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


         

INNER JOIN Дистрибутивы ON


        End If

End If

        'ЦенаП_Р = ЦенаП

        'Сумма_Р = Сумма

        Msg = "Cумма по счету" & Chr(13) & "                                        - " & Сумма & "р." & Chr(13) & "Cуммы по платежкам " & Chr(13) & "                                        - " & ЦенаП & "р." & Chr(13) & "Суммы совпадают." & Chr(13) & "Занести в авансовый отчет?" ' Сообщение.

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

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

        Response = MsgBox(Msg, Style, Title)     ' Выводит сообщение.

           

        If Response = vbOK Then ' Если нажата кнопка "Да" (Yes).

            Forms![Просмотр]![ОсновныеСчета].Form![Разница] = 0

            GoTo labelOK

        Else

            Exit Sub

        End If

       

labelOK:

   

    Set rst = dbs.OpenRecordset("ДанныеДляАвансОтчета")

    strSQL = "SELECT DISTINCTROW ОсновныеСчета.НомерСчета, Дистрибутивы.КодСистемы, Дистрибутивы.Цена, Дистрибутивы.ТолькоИПС, Дистрибутивы.Сопровождение, Дистрибутивы.КоличествоМ, Дистрибутивы.Количество FROM [ОсновныеСчета] INNER JOIN Дистрибутивы ON ОсновныеСчета.КодСчета = Дистрибутивы.КодСчета WHERE (((ОсновныеСчета.НомерСчета)=" & sing & Forms![Просмотр]![ОсновныеСчета].Form![НомерСчета] & sing & "));"

   

    '"SELECT DISTINCTROW ОсновныеСчета.НомерСчета, Дистрибутивы.КодСистемы, Дистрибутивы.Цена, Дистрибутивы.Сопровождение, Дистрибутивы.КоличествоМ, Дистрибутивы.Количество FROM [ОсновныеСчета] INNER JOIN Дистрибутивы ON ОсновныеСчета.НомерСчета = Дистрибутивы.НомерСчета WHERE (((ОсновныеСчета.НомерСчета)=" & Forms![Просмотр]![ОсновныеСчета].Form![НомерСчета] & "));"

    Set rstПоCчету = dbs.OpenRecordset(strSQL)

    Set rstПоАО = dbs.OpenRecordset("АвансовыйОтчет")


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