Sub Initialize
Dim ns As New notessession
Dim db As notesdatabase
Dim nedel As String
Dim mes As String
Dim password As String
Dim den As String
Dim dc As notesdocumentcollection
Dim doc1 As notesdocument
Dim doc2 As notesdocument
Dim ni As notesitem
Dim fields List As String
Dim d As notesdatetime
Set db = ns.currentdatabase
password = Inputbox("Введите пароль","")
If password = "неделя" Then
mes = Inputbox("Введите номер месяца","")
If Len(mes)=1 Then
mes = "0"+mes
End If
nedel = Inputbox("Введите номер недели","")
Set dc = db.search( | form="AgentForm" & AgentUpdateWeek="|+nedel+|" & AgentUpdatemonth="|+mes+|" & AgentType="На обслуживании"|,Nothing,0)
' Set dc = db.search(|form="AgentForm" & AgentUpdateWeek="|+nedel+|" & AgentUpdatemonth="|+mes+|"|,Nothing,0)
If dc.count = 0 Then
Msgbox "Документов не найдено!"
Exit Sub
End If
Fields("AgentShortName")="UpdateContactAgent"
Fields("AgentUpdateManager") = "UpdateContactManager"
Fields("AgentFactor")="UpdateContactFactor"
Fields("Agent_ID")="UpdateContactAgentID"
Fields("AgentPrivod")="UpdateContactPrivod"
Fields("AgentUpdateDay")="UpdateContactDay"
Fields("AgentUpdateWeekForAccount")="UpdateContactWeekForAccount"
Fields("AgentLawSystemCodeForAccount")="БД_для_выписки"
Fields("AgentLawSystemSummKodeks")="Сумма_счета"
Fields("AgentAccountComments")="Комментарий_счета"
Fields("depchief")="depchief"
Fields("docauthors")="docauthors"
Fields("docauthor")="docauthor"
Fields("docreaders")="docreaders"
Set d = New notesdatetime("01."+mes+"."+Cstr(Year(Now)))
Call d.adjustmonth(+1)
Call d.adjustday(-1)
Set doc1 = dc.getfirstdocument
While Not doc1 Is Nothing
Set doc2 = db.createdocument
doc2.form="UpdateContactForm"
Forall field In fields
Set ni = doc1.GetFirstItem(Listtag(field))
If Not ni Is Nothing Then
Call doc2.CopyItem(ni,field)
End If
End Forall
doc2.UpdateContactRate="40"
doc2.UpdateContactRate_1="40"
doc2.UpdateContactTaskDate=Year(Now)
doc2.UpdateContactCondition="Выдано"
doc2.UpdateContactWeek = nedel
doc2.UpdateContactMonth = mes
Dim iadmin As New notesitem(doc2,"admin","[admin]",AUTHORS)
doc2.docid = doc2.UniversalID
doc2.parentdocid = doc1.UniversalID
Call doc2.save( True,True)
Set doc1 = dc.getNextDocument(doc1)
Wend
Else
Print "Пароль НЕ верен!"
End If
End Sub