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


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


    strSQLTMP = strSQLTMP & " HAVING (((ДанныеДляАвансОтчета.КодСистемы)=" & rst![КодСистемы] & ") AND ((ДанныеДляАвансОтчета.КоличествоМС)<>0) AND ((Заказчики.КодЗаказчика)=" & Me![КодЗаказчика] & "));"

   

    Set rstTMP2 = dbs.OpenRecordset(strSQLTMP)

    Дата = Format(rstTMP2![Месяц], "m yy")

    rstTMP4![ДатаС] = Дата

    rstTMP2.MoveLast

    Дата = Format(rstTMP2![Месяц], "m yy")

    rstTMP4![ДейстПо] = Дата

    rstTMP4![ПоСчету] = rstTMP2![НС]

    rstTMP4![ДатаСчСопр] = CurrentDateWParam(rstTMP2![ДатаСчета])

    rstTMP4![СкидС] = rstTMP2![СкидкиС]

   

    'Запрос по системам

    strSQLTMP = "SELECT DISTINCTROW Заказчики.КодЗаказчика, Заказчики.Организация, ОсновныеСчета.НомерСчета, ОсновныеСчета.ДатаСчета, ОсновныеСчета.ДатаУстановки, Дистрибутивы.КодСистемы, Дистрибутивы.Код, Дистрибутивы.СпецвупыскИлиНет, Дистрибутивы.Скидки, Дистрибутивы.Цена, Дистрибутивы.НомерДистрибутива"

    strSQLTMP = strSQLTMP & " FROM ([Заказчики] INNER JOIN [ОсновныеСчета] ON Заказчики.КодЗаказчика = ОсновныеСчета.КодЗаказчика) INNER JOIN Дистрибутивы ON ОсновныеСчета.КодСчета = Дистрибутивы.КодСчета"

    strSQLTMP = strSQLTMP & " WHERE (((Заказчики.КодЗаказчика)=" & Me![КодЗаказчика] & ") AND ((Дистрибутивы.КодСистемы)=" & rst![КодСистемы] & ") AND ((Дистрибутивы.Цена)<>0));"

    Set rstTMP3 = dbs.OpenRecordset(strSQLTMP)

    rstTMP4![ПоСчетуПок] = rstTMP3![НомерСчета]

    rstTMP4![ДатСчПок] = CurrentDateWParam(rstTMP3![ДатаСчета])

    rstTMP4![Рег] = rstTMP3![НомерДистрибутива]

    rstTMP4![Скид] = rstTMP3![Скидки]

    rstTMP4![Спец] = rstTMP3![СпецвупыскИлиНет]

    If rstTMP3![Код] = 1 Then

    rstTMP4![Тип] = "Локальная"

    Else

    rstTMP4![Тип] = "Сетевая"

    End If

labelnext:

    strSQLTMP2 = "SELECT DISTINCTROW АвансПоОстаткамС1996Года.Заказчик, АвансПоОстаткамС1996Года.Месяц, АвансПоОстаткамС1996Года.Сумма FROM АвансПоОстаткамС1996Года WHERE (((АвансПоОстаткамС1996Года.Заказчик)=" & Me![КодЗаказчика] & "));"




Начало  Назад  Вперед



Книжный магазин