Разработка системы автоматизации документооборота


         

Заносим сумму реализации системы


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

        rst![Нал] = Нал

        rst.Update

        rst.MoveLast

       

        rstПоАО.AddNew

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

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

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

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

       

        Msg = " Заносим сумму реализации системы " & НазваниеСистемы(rstПоCчету![КодСистемы]) & " на " & CurrentMWParam(Дата)

        Style = vbOKOnly + vbInformation      ' Кнопки.

        Title = "Сообщение"    ' Заголовок.

        MsgBox Msg, Style, Title

       

        rstПоАО.Update

       

        End If

       

        If rstПоCчету![Сопровождение] <> 0 Then

        rst.AddNew

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

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

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

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

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

        rst![Нал] = Нал

       

        Msg = "Заносим сопровождение " & НазваниеСистемы(rstПоCчету![КодСистемы]) & " на " & rstПоCчету![КоличествоМ] & " месяцев с " & CurrentMonthWParamWSuf(Дата)

        Style = vbOKOnly + vbInformation      ' Кнопки.

        Title = "Сообщение"    ' Заголовок.

        MsgBox Msg, Style, Title

               

        rst.Update

        rst.MoveLast

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

       

        For k = 1 To m

        rstПоАО.AddNew

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

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

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

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

        If Format(Дата, "dd") < 20 Then

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

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

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

            Дата = ДатаTMP

            rstПоАО.Update

        Else

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


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