per script auf Haupt- Haupt- Hauptdokument :-)

[OliverII]

Hallo Zusammen,

da ich im Scripten eine binäre Null bin, bräuchte ich Hilfe:

Habe mehrere Ebenen von Dokumenten.
möchte von der untersten Ebene auf das oberste Hauptdokument per Script, um dort einige Änderungen durchzuführen - muss leider per Script sein, da ich bereits zuvor einiges nur über Script lösen kann.
Im Dokument hätte ich zwar schon dir Richtige @InheritedDocumentUniqueID, jedoch habe ich es bisher noch nicht geschafft auf genau diese zu gelangen.

Habe hier im Forum ein Script gefunden, dass ich auch bereits für mich umgschrieben habe. Funktioniert super (danke!), jedoch schaffe ich es hiermit nur um eine ebene nach oben zu gelangen. Muss aber ganz nach oben ........... :-))

Ich hoffe, ich habe mein Problem halbwegs verständlich beschrieben

Grüße Oliver


Sub Click(Source As Button)
   Dim ws As NotesUIWorkspace   
   Dim s As NotesSession
   Dim db As NotesDatabase
   Dim uiDoc As NotesUIDocument
   Dim responseDoc As NotesDocument
   Dim parentDoc As NotesDocument
   Dim FeldName As String
   Dim FeldInhalt As String
   Dim i As Integer
   Dim item As NotesItem
   Set s = New NotesSession   
   Set db = s.CurrentDatabase
   Set ws = New NotesUIWorkspace
   Set uiDoc = ws.CurrentDocument
   Set responseDoc = uiDoc.Document
   
   If responseDoc.IsResponse Then
      Set parentDoc = db.GetDocumentByUNID(responseDoc.ParentDocumentUnID)
   End If
   If Not (parentDoc Is Nothing) Then
      FeldName = "Signalcode"
      FeldInhalt =uiDoc.FieldGetText( FeldName )
      Messagebox FeldInhalt
      Messagebox parentdoc.GetItemValue(FeldName)(0)
      Set item = parentdoc.ReplaceItemValue( FeldName, xxxx )
      Messagebox parentdoc.GetItemValue(FeldName)(0)
      Call parentDoc.Save( True, True )
   End If
   
   
End Sub

[koehlerbv]

Code

   If responseDoc.IsResponse Then
      Set parentDoc = db.GetDocumentByUNID(responseDoc.ParentDocumentUnID)
   End If

Dieser Teil gehört in eine Schleife (solange, bis IsResponse = False).

Damit sich das mit der "binären Null" ändert, siehe diesen BP-Artikel: Schleifen in LotusScript

Bernhard

[OliverII]

Hallo Bernhard,

vielen DANK für die schnelle R.Antwort.
Werde mir das PDF-File anschauen - hoffe, ich finde die Lösung!


Grüße
Oliver

[OliverII]

Hallo Bernhard,
habe mir mal das Dokument durchgelesen - habe jedoch Probleme, wie ich die Schleife bauen muss. Muss ja irgendwie die Dokumente weiterzählen wenn nicht false. Könntest Du mir die Vorgehensweise evlt. an diesem Beispiel erklären :-((

 

[koehlerbv]

Wieso zählen? Wenn IsResponse = False, dann hast Du das Hauptdokument gefunden. Das steht alles in dem Schleifenartikel drin. Lernen und verstehen musst Du das schon, Oliver.

Bernhard