Domino 9 und frühere Versionen > ND6: Entwicklung

Notes Script Agent läuft nicht über alle selektierten Forms

(1/3) > >>

Peacemaker:
Hallo alle zusammen,

ich bin mal wieder ratlos:

Ich habe einen LS Agenten (weiter unten geposted), den ich mittels agent properties auf "All selected documents" angesetzt habe. Wenn ich nun mehrere Forms im View selektiere udn den Agenten starte, bearbeitet er aber trotzdem nur das erste der selektierten Forms (korrekt und fehlerfrei). Wieso das???

Danke für eure hilfe

Sub Initialize
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim docNew As NotesDocument
   Dim strN As String
   Dim n As Integer
   Dim subname As String
   Dim alllongnames As String
   Dim uiview As NotesUIView
   
   
   
   Set db = session.CurrentDatabase
   Set doc = session.DocumentContext
   
   n = doc.numberss(0)
   
   While n >= 1
      
      Set docNew = db.CreateDocument
      docNew.form = "add_subsystem"   
      docNew.serialnr = doc.serialnr(0)
      docNew.model = doc.model(0)
      docNew.type = doc.type(0)
      docNew.sysid = doc.sysid(0)
      docNew.customer = doc.customer(0)
      
      docNew.alllongnames_temp = doc.alllongnames(n-1)
      docNew.subsys_temp = doc.subsys(n-1)
      docNew.ecnumbers_temp = doc.ecnumbers(n-1)
      docNew.alldrivers_temp = doc.alldrivers(n-1)
      docNew.allrec_temp = doc.allrec(n-1)
      docNew.allact_temp = doc.allact(n-1)
      docNew.allacttime_temp = doc.allacttime(n-1)
      docNew.allmax_temp = doc.allmax(n-1)
      docNew.allacc_temp = doc.allacc(n-1)
      docNew.allacttime_temp = doc.allacttime(n-1)
      docNew.doctype = "Subsystem Information"
      Call docNew.Save( True, False )
      
      
      n=n-1
      
   Wend
   
   
End Sub

koehlerbv:
Für so etwas musst Du die Property UnprocessedDocuments der NotesDatabase class verwenden.

Bernhard

PS: Wozu soll denn das dienen ?
"n = doc.numberss(0)"

Peacemaker:
danke für den tipp

die Anzahl der while schleifendurchgänge ist von Form zu form unterschiedlich - deswegen wird sie ausgelesen.

Peacemaker:
hab den Text wie folgt abgeändert - irgendwie tut ers aber noch nicht - Error: Subscript out of range...


Sub Initialize
   
   Dim session As New NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim docNew As NotesDocument
   Dim strN As String
   Dim n As Integer
   Dim subname As String
   Dim alllongnames As String
   Dim uiview As NotesUIView
   Dim collection As NotesDocumentCollection
   
   
   Set db = session.CurrentDatabase
   
   Set collection = db.UnprocessedDocuments
   Set doc = collection.GetFirstDocument()

   n = doc.numberss(0)
   
   While n >= 1
      
      Set docNew = db.CreateDocument
      docNew.form = "add_subsystem"   
      docNew.serialnr = doc.serialnr(0)
      docNew.model = doc.model(0)
      docNew.type = doc.type(0)
      docNew.sysid = doc.sysid(0)
      docNew.customer = doc.customer(0)
      
      docNew.alllongnames_temp = doc.alllongnames(n-1)
      docNew.subsys_temp = doc.subsys(n-1)
      docNew.ecnumbers_temp = doc.ecnumbers(n-1)
      docNew.alldrivers_temp = doc.alldrivers(n-1)
      docNew.allrec_temp = doc.allrec(n-1)
      docNew.allact_temp = doc.allact(n-1)
      docNew.allacttime_temp = doc.allacttime(n-1)
      docNew.allmax_temp = doc.allmax(n-1)
      docNew.allacc_temp = doc.allacc(n-1)
      docNew.allacttime_temp = doc.allacttime(n-1)
      docNew.doctype = "Subsystem Information"
      Call docNew.Save( True, False )
      
      
      n=n-1
      Set doc = collection.GetNextDocument(doc)
   Wend
   
   
End Sub

koehlerbv:
Wo kommt der Fehler ?

Navigation

[0] Themen-Index

[#] Nächste Seite