Murtas
1. с названием порядок, код тот же что и на всез остальных серверах где на точно такую же ошибку реакция соответствующая
2. он единственный только в начале. обработчик вы конце.
3. похоже нато, но пока чем вызвано не известно
[codebox]Sub Initialize
On Error Goto er
Set ses=New NotesSession
Set doc=ses.DocumentContext
Set db=ses.CurrentDatabase
Msgbox "111"
Select Case doc.vid(0)
Case "1": Call otpusk()
Case "2": Call prevozrast()
Case "3": Call vzysk()
Case "4": Call nagrada()
Case "5": Call attestatcia()
Case "6": Call vysluga()
End Select
Print "Отчет готов, перейдите в соответсвующий раздел"
If 1<>1 Then
er:
Msgbox "vid_save_initialize: Cтрока № "&Cstr(Erl())& ". Ошибка "& Err() & ": " & Error(),, "Ошибка"
End If
End Sub[/codebox]
код одного из процедур
[codebox]Sub prevozrast
On Error Goto er
Dim sotr As NotesDocument
Dim doc As NotesDocument
Dim tmpdoc As NotesDocument
Dim colsot As NotesDocumentCollection
Dim stazh_col As NotesDocumentCollection
Dim sotview As NotesView
Dim stazh_view As NotesView
Dim dt As NotesDateTime
Dim m, i As Integer
Dim poz As Integer
Dim buf As String
Dim tmp As String
Set sotview=db.GetView("emplageLim")
Set colsot=sotview.GetAllDocumentsByKey("Достигшие предельного возраста",True)
Set sotr=colsot.GetFirstDocument
fn="Kadry_prvozrast.xls"
fn= vygruz_formy(fn)
If fn="0" Then
Msgbox "Не удалось найти или выгрузить исходный файл отчета"+Chr(10)_
+"Если дальше будет выходить это сообщенине обратитесь администратору"
End If
Set xl = CreateObject("Excel.Application")
Call xl.Workbooks.Open(fn) ' на том сервере не был установлен офис, потому и здесь ошибка выскакивало.
Set xlsh = xl.ActiveWorkbook.ActiveSheet
xl.DisplayAlerts = False
Set stazh_view=db.GetView("emplStazh")
xlsh.cells(1,1).Value="Список сотрудников достигших и достигающих предельного возраста пребывания"+ _
+" на службе в "+Cstr(1+Year(Today))+" году по Агентству и территориальным органам на "+Cstr(Today)
buf=""
poz=3
i=1
While Not sotr Is Nothing
If buf <> sotr.emplOrganization(0) Then
buf=sotr.emplOrganization(0)
xl.Range("A"&Cstr(poz)&":G"&Cstr(poz)).Select
xl.Selection.HorizontalAlignment = -4108
xl.Selection.MergeCells = True
xl.Selection.Font.Bold = True
xl.Selection.Font.Size=14
xlsh.cells(poz,1).Value=buf
poz=poz+1
i=1
End If
xlsh.cells(poz,1).Value=i
tmp=sotr.emplRank(0)+ " " + sotr.emplLastName(0)+" "
If sotr.emplFirstName(0)<>"" Then tmp=tmp+Left(sotr.emplFirstName(0),1)+"."
If sotr.emplMiddleName(0)<>"" Then tmp=tmp+Left(sotr.emplMiddleName(0),1)+"."
tmp=tmp+" - "+sotr.emplPostList(0)+" "+sotr.emplSubunit(0)
xlsh.cells(poz,2).Value=tmp
xlsh.cells(poz,3).Value=sotr.emplBirthday(0)
xlsh.cells(poz,4).Value=sotr.dataprodlen(0)
Set tmpdoc=stazh_view.GetDocumentByKey(sotr.UID(0),True)
If Not tmpdoc Is Nothing Then
xlsh.cells(poz,7).Value=tmpdoc.seniorityLongService(0)
End If
i=i+1
poz=poz+1
Set sotr=colsot.GetNextDocument(sotr)
Wend
xl.Range("A"&Cstr(poz+1)).Select
xl.ActiveWorkbook.save
xl.ActiveWorkbook.close
xl.quit
'*********крепление
Set doc=db.CreateDocument
Call doc.Save( True, True )
Dim notesItem As NotesItem
Dim rtitem As NotesRichTextItem
Dim object As NotesEmbeddedObject
Set notesItem = doc.ReplaceItemValue("Form", "Сформированный отчет доп")
Set notesItem = doc.ReplaceItemValue("reportName", "Шектеулі жасқа жеткендер / Достигшие предельного возраста")
Set notesItem = doc.ReplaceItemValue("reportDate", Format( Now , "dd/mm/yyyy h:mm:ss") )
Set notesItem = doc.ReplaceItemValue("reportPath", Strrightback(fn,"\" ))
Set rtitem = New NotesRichTextItem( doc, "Body" )
Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", fn )
Call doc.Save( True, True )
'конец крепление
Kill fn
If 1<>1 Then
er:
If Isobject(xl.ActiveWorkbook) Then
xl.ActiveWorkbook.close
End If
If Isobject(xl) Then
xl.quit
End If
If Dir$(fn)<>"" Then Kill fn
Msgbox "vid_save_prevozrast: Cтрока № "&Cstr(Erl())& ". Ошибка "& Err() & ": " & Error(),, "Ошибка"
End If
End Sub[/codebox]
