Всем здравствуйте!
Столкнулся вот с такой штукой!
У меня есть агент вот его код:
LibID
Вот такая вещь! в .сsv файле 3000 записей. Когда я пускаю агент вручную - Run
он отрабатывается на ура - создаёт 3000 записей в нужные поля записывает нужные значения
А когда я ставлю его запуск по расписанию с настройками :
Shared
On Shedule - Daily
Start running agent at - 17:00
Run on - SERVER
Target - all document in database
Allow restricted operation with full administration rights
ОН ОТРАБАТЫВАЕТСЯ ТАК - ВСЁ СТИРАЕТ И ВО ВЬЮХЕ ТОЛЬКО ОДИН ДОКУМЕНТ СФОРМИРОВАННЫЙ ИЗ ПЕРВОЙ СТРОКИ ИЗ ФАЙЛА .csv
В чём может быть проблема?
Столкнулся вот с такой штукой!
У меня есть агент вот его код:
Код:
Option Public
Use "LibID"
Sub Initialize
Call [u]UpDateSapRole[/u]("TabNOM")
End SubLibID
Код:
Public Sub [u]UpDateSapRole[/u](SName As String)
Dim s As New NotesSession
Set db = s.CurrentDatabase
Dim view As NotesView
Dim doc As NotesDocument
Set view = db.GetView(SName)
Set doc = view.GetFirstDocument()
While Not (doc Is Nothing)
Call doc.Remove(True)
Set doc = view.GetFirstDocument()
Wend
Call [i]GetRoleFile[/i]("c:\XXX.csv")
Call view.Refresh
End Sub
Public Sub [i]GetRoleFile[/i](Path As String)
Dim doc,doc1 As NotesDocument
Dim session As New NotesSession
Set db = session.CurrentDatabase
Dim text As String, fileNum As Integer
i = 1
fileNum% = Freefile()
Open Path For Input As fileNum%
Do Until Eof(1)
Set doc = New NotesDocument( db )
doc.Form = "TabN"
Line Input #1, text$
REM Call OemToAnsi(text$,text$)
S = Strleft(text$,";")
doc.IDN = Cstr(Cint(S))
S1 = Ltrim(Strright(text$,";"))
S2 = Strright(S1,";")
S3 = Strleft(S2,";")
S4 = Ltrim(Strright(S2,";"))
S5 = Strleft(S4,";")
S6 = Ltrim(Strright(S4,";"))
S7 = Strleft(S6,";")
S8 = Ltrim(Strright(S6,";"))
S9 = Strleft(S8,";")
S10 = Ltrim(Strright(S8,";"))
S11 = Strleft(S10,";")
S12 = Ltrim(Strright(S10,";"))
S13 = Strleft(S12,";")
S14 = Ltrim(Strright(S12,";"))
S15 = Strleft(S14,";")
doc.FIO = S5 + " " + S3
doc.INFO = S11 + " " +"(" + S15 + ")"
Call doc.Save( True, True )
Loop
Close fileNum%
End SubВот такая вещь! в .сsv файле 3000 записей. Когда я пускаю агент вручную - Run
он отрабатывается на ура - создаёт 3000 записей в нужные поля записывает нужные значения
А когда я ставлю его запуск по расписанию с настройками :
Shared
On Shedule - Daily
Start running agent at - 17:00
Run on - SERVER
Target - all document in database
Allow restricted operation with full administration rights
ОН ОТРАБАТЫВАЕТСЯ ТАК - ВСЁ СТИРАЕТ И ВО ВЬЮХЕ ТОЛЬКО ОДИН ДОКУМЕНТ СФОРМИРОВАННЫЙ ИЗ ПЕРВОЙ СТРОКИ ИЗ ФАЙЛА .csv
В чём может быть проблема?
