Всем привет!
Суть проблемы:
При попытке напечатать документ командой @Command([FilePrint]); выдает ошибку "Не удается выполнить указаную команду".
прблема решается после выполнения скрипта:
НО! Каждый день появляются новые документы, которые не печатаются и выполнять каждый день скрипт на нескольких базах не очень удобно... Может кто знает в чем проблема такого поведения документов?
Суть проблемы:
При попытке напечатать документ командой @Command([FilePrint]); выдает ошибку "Не удается выполнить указаную команду".
прблема решается после выполнения скрипта:
Код:
Dim Session As New NotesSession
Dim DB As NotesDatabase
Dim DC As NotesDocumentCollection
Dim Doc As NotesDocument
Set DB = Session.CurrentDatabase
Set DC = DB.UnprocessedDocuments
Print "Выбрано документов - " & DC.Count
For i% = 1 To DC.Count
Set Doc = DC.GetNthDocument( i% )
If Not(Doc Is Nothing) Then
Set item = doc.GetFirstItem( "$KeepPrivate" )
If Not(item Is Nothing) Then
Call item.Remove
Call doc.Save( False, True )
End If
End If
Next
Print "OK!!!"