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


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


Do Until rstTMP4.EOF

rstTMP4.Delete

rstTMP4.MoveNext

Loop

If rst.RecordCount = 0 Then

'   MsgBox ("Не сопровождается")

    rst.Close

    Me![ИнфоПоОрганизSub].Form.Visible = -1

    Me![ИнфоПоОрганСистемы].Form.Visible = 0

    'инфо по 1996 году

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

    Set rstTMP5 = dbs.OpenRecordset(strSQLTMP2)

    rstTMP4.AddNew

    rstTMP5.MoveFirst

    rstTMP4![Дата1С1996] = CurrentMWParam(rstTMP5![Месяц])

    rstTMP5.MoveLast

    rstTMP4![Дата2С1996] = rstTMP5![Месяц]

    rstTMP5.Close

    rstTMP4.Update

    Me.Refresh

    rstTMP4.Close

    dbs.Close

    DoCmd.Hourglass False

    Exit Sub

End If

   

rst.MoveLast

j = rst.RecordCount

rst.MoveFirst

For i = 1 To j

    rstTMP4.AddNew

   

    rstTMP4![КодСистемы] = НазваниеСистемы(rst![КодСистемы])

   

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

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

    strSQLTMP = strSQLTMP & " GROUP BY Заказчики.Организация, ДанныеДляАвансОтчета.КодСистемы, АвансовыйОтчет.Месяц, ДанныеДляАвансОтчета.КоличествоМС, Заказчики.КодЗаказчика, ДанныеДляАвансОтчета.КодСчета, ОсновныеСчета.НомерСчета, АвансовыйОтчет.ИдентКод, Дистрибутивы.СкидкиС, ОсновныеСчета.ДатаСчета"




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



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