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


         

Проверка для вторичного


    rstПоCчету.MoveLast

    j = rstПоCчету.RecordCount

   

    ДатаStore = Дата

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

    Case 1, 3

        Нал = False

    Case 2

        Нал = True

    End Select

   

   

    rstПоCчету.MoveFirst

    'ОСНОВНОЙ ЦИКЛ

    flagДата = False

    For i = 1 To j

           

    ' Проверка для вторичного ИПС

   

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

    If flagДата = False Then

    GoTo ДатаОпределение

    End If

   

    Дата = ДатаStore

   

    Set dbs = CurrentDb

    strSQLTMP = "SELECT DISTINCTROW ДанныеДляАвансОтчета.Код, ДанныеДляАвансОтчета.КодЗаказчика, ДанныеДляАвансОтчета.КодСистемы, ДанныеДляАвансОтчета.КоличествоМС, Max(ДанныеДляАвансОтчета.ДатаПМС) AS ДатаПМС FROM [ДанныеДляАвансОтчета] GROUP BY ДанныеДляАвансОтчета.Код, ДанныеДляАвансОтчета.КодЗаказчика, ДанныеДляАвансОтчета.КодСистемы, ДанныеДляАвансОтчета.КоличествоМС HAVING (((ДанныеДляАвансОтчета.КодЗаказчика)=" & Forms![Просмотр]![КодЗаказчика] & ") AND ((ДанныеДляАвансОтчета.КодСистемы)=" & rstПоCчету![КодСистемы] & ") AND ((ДанныеДляАвансОтчета.КоличествоМС)<>0));"

    Set rstTMP2 = dbs.OpenRecordset(strSQLTMP)

    

    If rstTMP2.RecordCount >= 1 Then

    GoTo labelЕстьЗаписи

    'Else

    'MsgBox ("Записей Нет")

    Exit Sub

    End If

labelЕстьЗаписи:

 

    rstTMP2.MoveLast

    rstTMP2.Close

    

Дата:

        ДатаTMP2 = Format(ДатаStore, "m yy")

        If flagГолоеСопр = True Then 'Расписать если сопров голое

        rst.AddNew

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

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

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

        rst![ДатаПМС] = Format(ДатаTMP2, "m yy")

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

        rst![Нал] = Нал

       

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


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