Рекомендации по созданию решений на базе DocsVision 3.1


         

rstПоАО![Нал]


        rstПоАО![Сумма] = ЦенаСоп * 1.2

        rstПоАО![Нал] = Нал

        ДатаTMP = Format(ДАТАПМП, "m yy")

        rstПоАО![Месяц] = ДатаTMP

        ДатаTMP = ДатаTMP + 32

        ДАТАПМП = ДатаTMP

        rstПоАО.Update

        Next k

   

        Else

       

        РазницаДат = (CDate(Format(ДатаStore, "m yy")) - CDate(Format(ДатаПМС, "m yy"))) / 100

        rst.AddNew

        rst![КодЗаказчика] = Forms![Просмотр]![КодЗаказчика]

        rst![КодСчета] = Forms![Просмотр]![ОсновныеСчета].Form![КодСчета]

        rst![КодСистемы] = rstПоCчету![КодСистемы]

        rst![ДатаПМС] = ДатаTMP2

        rst![КоличествоМС] = rstПоCчету![КоличествоМ]

        rst![Нал] = Нал

        rst.Update

        rst.MoveLast

       

        rstПоАО.AddNew

        rstПоАО![ИдентКод] = rst![Код]

        ЦенаСоп = rstПоCчету![Сопровождение] / rstПоCчету![КоличествоМ]

        rstПоАО![Сумма] = ЦенаСоп * 1.2 * CInt(РазницаДат)

        rstПоАО![Нал] = Нал

        ДатаTMP = Format(Дата, "m yy")

        rstПоАО![Месяц] = ДатаTMP

        ДатаTMP = ДатаTMP + 32

        Дата = ДатаTMP

        rstПоАО.Update

       

       

        m = rstПоCчету![КоличествоМ]

       

        For k = 1 To m - CInt(РазницаДат)

        rstПоАО.AddNew

        rstПоАО![ИдентКод] = rst![Код]

        ЦенаСоп = rstПоCчету![Сопровождение] / m

        rstПоАО![Сумма] = ЦенаСоп * 1.2

        rstПоАО![Нал] = Нал

        ДатаTMP = Format(Дата, "m yy")

        rstПоАО![Месяц] = ДатаTMP

        ДатаTMP = ДатаTMP + 32

        Дата = ДатаTMP

        rstПоАО.Update

        Next k

        End If

       

        Else

        'ДЛЯ ПЕРВИЧНОЙ ПОКУПКИ

        Дата = ДатаStore

        If rstПоCчету![Цена] <> 0 Then

        rst.AddNew

        rst![КодЗаказчика] = Forms![Просмотр]![КодЗаказчика]

        rst![КодСчета] = Forms![Просмотр]![ОсновныеСчета].Form![КодСчета]

        rst![КодСистемы] = rstПоCчету![КодСистемы]

        rst![ДатаПМС] = Дата


Содержание  Назад  Вперед





Forekc.ru
Рефераты, дипломы, курсовые, выпускные и квалификационные работы, диссертации, учебники, учебные пособия, лекции, методические пособия и рекомендации, программы и курсы обучения, публикации из профильных изданий