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


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


Set rst = dbs.OpenRecordset(strSQL)

Set rstTMP = dbs.OpenRecordset("ИнфоПоСистемамЗаказчика")

Do Until rstTMP.EOF

rstTMP.Delete

rstTMP.MoveNext

Loop

If rst.RecordCount = 0 Then

MsgBox ("Нет счетов на данную организацию")

rstTMP.Close

rst.Close

dbs.Close

Me.Refresh

Exit Sub

End If

rst.MoveLast

j = rst.RecordCount

rst.MoveFirst

For i = 1 To j

    rstTMP.AddNew

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

    rstTMP![ПоСчету] = rst![НомерСчета]

    If rst![Код] = 1 Then

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

    Else

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

    End If

    rstTMP![ДатаС] = CurrentDateWParam(rst![ДатаСчета])

    rstTMP![Цена] = rst![Цена]

    rstTMP![Сопр] = rst![Сопровождение]

    rstTMP![Скид] = rst![Скидки]

    rstTMP![СкидС] = rst![СкидкиС]

    rstTMP![ДейстПо] = rst![СрокДействияСчета]

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

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

    rstTMP![Оплата] = rst![ОплатаСчета]

    rst.MoveNext

    rstTMP.Update

Next i

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

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

rstTMP.Close

rst.Close

dbs.Close

Me.Refresh

End Sub

Private Sub Сист_Click()

On Error GoTo Err_Кнопка6_Click

Dim rst, rstTMP, rstTMP2 As Recordset

Dim rstTMP3 As Recordset

Dim rstTMP4 As Recordset

Dim rstTMP5 As Recordset

Dim dbs As Database

Dim i, j As Integer

Dim strSQL, strSQLTMP, strSQLTMP3 As String

Dim strSQLTMP2 As String

Dim Дата As Date

DoCmd.Hourglass True

Set dbs = CurrentDb

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

Set rst = dbs.OpenRecordset(strSQL)

Set rstTMP4 = dbs.OpenRecordset("ИнфоПоСистемамЗаказчика")




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