1 Druckdokument aus Haupt- und Antwortdokumenten

[Wiesel]

Hallo!

Ich habe in einer Datenbank Haupt- und Antwortdokumente.

Ist es möglich einen Druck von markierten Dokumenten anzustossen, der dann das Hauptdokument und bestimmte Inhalte aus den Antwortdokumenten zusammenfasst?

So in etwa:

Dokumente mit Inhalt:

- Hauptdokument (Name, Thema, Datum)
  -  Antwortdokument1 (Thema, Details, Verantwortliche)
  -  Antwortdokument2 (Thema, Details, Verantwortliche)


Druckdokument wenn Hauptdokument und Antwortdok1 und 2 markiert sind:

Name aus Hauptdokument
Thema aus Hauptdokument
Datum aus Hautpdokument

Details und Verantwortliche aus Antwortdokument1
Details und Verantwortliche aus Antwortdokument2


Geht so eine "Zusammenführung"?
Und wenn ja, wie?

Hab nur die Vorstellung, wie es sein sollte aber leider bisher keine weitere Idee dazu...

Freue mich auf Antworten,
Wiesel

[m3]

Eigenen "Druck-button" coden, der die beiden Docs in einem Neuen zusammenführt und dieses dann drucken.

[Wiesel]

Okay, schön zu wissen das es geht.

Ich habe in einer Ansicht nun eine Schaltfläche eingebaut, die aber noch nicht funktioniert. Da brauche ich noch Hilfe:

Sub Click(Source As Button)
   Dim db As NotesDatabase
   Dim workspace As New NotesUIWorkspace     
   Dim session As New NotesSession
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim rdoc As NotesDocument
   Dim responsedoc As NotesDocument
   Dim collection As NotesDocumentCollection
   Dim strAntwortdoc As String
   
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   
   If doc.form(0) = "Protokoll" Then
      doc.form = "(DruckProtokoll)"
      
      'Auslesen der Antwortdokumenten
      Set rdoc = uidoc.Document
      Set collection = rdoc.Responses
      Set responsedoc = collection.GetFirstDocument
      
      While Not (responsedoc Is Nothing)
         strAntwortdoc = strAntwortdoc  & " " &   responsedoc.numBeschluss & " " &   responsedoc.txtBeschlussvorlage
         Set responsedoc = collection.GetNextDocument(responsedoc)
      Wend
      
      'Antwortdokumente in Druck unterbringen
      doc.txtBeschlussvorlage = strAntwortdoc
      
      Set uidoc = workspace.EditDocument( False , doc)                   
      Call uidoc.print(1,1,1)
      
      doc.txtBeschlussvorlage = ""
      doc.form = "Protokoll"      
   End If   
   
   Call doc.save(True,True)
   Call uidoc.close
   
End Sub

Bei dem ersten "Set doc = uidoc.Document" steigt Notes mir mit "Object variable not set" aus. Was fehlt denn?

[m3]

Ein gültiges UIDocument

Nachdem Du den Knubbel vermutlich in der View drückst, hat er noch kein UIDocument:

Returns a NotesUIDocument object representing the document that's currently open.

[Wiesel]

Ja, ich drücke den Knubbel (?Schaltfläche) in der Ansicht.

Aber bei dem Rest verstehe ich Dich nicht.....
Was muss ich tun?

[m3]

Die Methode workspace.CurrentDocument liefert das gerade OFFENE Dokument zurück. Da Du keines offen hast, liefert er korrekterweise NOTHING zurück.

[Wiesel]

Und was nutze ich stattdessen?
Ich hab Probleme dabei, auf ein markiertes Dokument zuzugreifen.
Habe bisher immer auf alle Dokumente aus der Ansicht zugegriffen und dann alle ausdrucken lassen, oder so.
Aber wie greife ich das markierte Dokument?

[koehlerbv]

Auf das EINE (also durch den View-Cursor) markierte Dokument greifst Du
NotesSession.DocumentContext
zu.

Bernhard

[Wiesel]

Dann war ich doch schon auf dem richtigen Wege und hab nur zuviel benutzt.

Danke für Deine Antwort.

Jetzt hab ich allerdings ein Problem, Werte aus den Antwortdokumenten zu ziehen. Mein Script sieht jetzt so aus:

Sub Click(Source As Button)
   Dim db As NotesDatabase
   Dim workspace As New NotesUIWorkspace     
   Dim session As New NotesSession
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim rdoc As NotesDocument
   Dim responsedoc As NotesDocument
   Dim collection As NotesDocumentCollection
   Dim strAntwortdoc As String
   
   Set doc = session.DocumentContext
   
   If doc.form(0) = "Protokoll" Then
      doc.form = "(DruckProtokoll)"
      
      Set collection = doc.Responses
      Set responsedoc = collection.GetFirstDocument
      
      strAntwortdoc = ""
      While Not (responsedoc Is Nothing)
         strAntwortdoc = strAntwortdoc  & " " &   responsedoc.numBeschluss & " " &   responsedoc.txtBeschlussvorlage
         Set responsedoc = collection.GetNextDocument(responsedoc)
      Wend
      
      'Antwortdokumente in Druck unterbringen
      doc.txtBeschlussvorlage = strAntwortdoc
      
      Set uidoc = workspace.EditDocument( False , doc)                   
      Call uidoc.print(1,1,1)
      
      doc.form = "Protokoll"      
   End If   
   
   Call doc.save(True,True)
   Call uidoc.Close   
End Sub

In der ersten Zeile der While Not- Schleife steigt er mir wieder aus. ??

[m3]

1) OnError Fehlerbehandlung einbauen
2) Debugger verwenden
3) Genaue Fehlermeldung posten

[koehlerbv]

Martin stimme ich vollkommen zu! Daher habe ich nur einen ersten Überflug über Deinen Code investiert und gleich zwei Anmerkungen dazu (nochmals: Ergänzend zu denen von Martin):

Code

      Set collection = doc.Responses
      Set responsedoc = collection.GetFirstDocument
 

Das ist ein absolutes no-no. Wenn doc gar keine Responses hat, fällt Dein Code auf die Nase. Du musst also vor dem Zugriff auf ein eventuell gar nicht vorhandenes Dokument der Collection diese prüfen (collection.Count).

Code

strAntwortdoc = strAntwortdoc  & " " &   responsedoc.numBeschluss & " " &   responsedoc.txtBeschlussvorlage

Das ist vermutlich die zeile, in der es scheppert: Du kannst einem String keine Arrays zuweisen. Und NotesDocument.Feldname liefert (ausser bei RT) immer ein Array zurück. Daher::

Code

strAntwortdoc = strAntwortdoc  & " " &   responsedoc.numBeschluss (0) & " " &   responsedoc.txtBeschlussvorlage (0)

Bernhard

[Wiesel]

Hallo!
Ich hatte kurz auf die Zeile, bei dem die Fehlermeldung kam hingewiesen. Sorry, dass ich vergessen habe, die Meldung mit anzugeben.

Danke, Bernhard, für Deine Antwort.

Bzgl. der Abfrage zu den Responses: da hätte ich mich später dran gemacht. Aber der Tipp war schon Gold wert. Klappt!

Die Fehlermeldung stammte tatsächlich von der Zeile und mit Deiner Hilfe schnurrt der Druck wie eine Katze ) Muss nur noch ein paar optische Anpassungen reinbringen.

Vielen Dank Euch für die geduldige Hilfe,
Wiesel