Domino 9 und frühere Versionen > Entwicklung

1 Druckdokument aus Haupt- und Antwortdokumenten

(1/3) > >>

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:

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

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

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

Navigation

[0] Themen-Index

[#] Nächste Seite