Domino 9 und frühere Versionen > Entwicklung

Druck von Dokumenten durch Agent

<< < (7/8) > >>

braincrusha:
also ich hab jetzt eine Lösung die funktioniert nur falls es jemanden interessiert


--- Code: ---Sub Initialize
   Dim session As NotesSession
   Dim db As NotesDatabase
   Dim doc As NotesDocument
   Dim view As NotesView
   Dim vw As NotesView
   Dim ws As New NotesUIWorkspace
   Dim oh_document As NotesDocument
   Dim temp As NotesDocument
   Dim bis_date As Variant
   Dim von_date As Variant
   Dim uiview As NotesUiView
   Dim uidb As NotesUIDatabase
   
   Set session = New NotesSession
   Set db = session.CurrentDatabase
   Set view = db.getview("NextAuslieferung")
   Set uidb = ws.currentdatabase
   Set oh_document = view.GetFirstDocument
   
   
   von_date = Inputbox("Letze Version vom?", "Letzte Version", "31.05.2001")    
   bis_date = Inputbox("Datum der Version die ausgeliefert wird?", "Auslieferungsdatum","03.07.2001")
   
   
   Call uidb.OpenView("ausliefer")
   Set uiview = ws.currentview
   Set vw = db.getview("ausliefer")
   
   
   Do While Not (oh_document Is Nothing)   
      Set temp = view.GetNextDocument(oh_document)
      If (((oh_document.voiAuslieferungCall(0) = "Ja" Or oh_document.voiAuslieferungCall(0) = "1") Or _
      Not(Isempty(voiInbetriebKunde)))And Datevalue(von_date)<= oh_document.voiAbgeschlossen(0) And _
      oh_document.voiAbgeschlossen(0) <= Datevalue(bis_date)) Then   
      
         Call oh_document.PutInFolder("ausliefer")
         Call uiview.SelectDocument(oh_document)
         Call uiview.print(1)      
      End If
      Set oh_document = temp
   Loop
   
   Set oh_document = view.GetFirstDocument   
   
   
   
   While Not oh_document Is Nothing
      Call oh_document.removefromfolder("ausliefer")
      Set oh_document = view.GetnextDocument(oh_document)
   Wend
   
End Sub
--- Ende Code ---

Jetzt hab ich aber noch eine Frage (mir kommen die Ideen immer erst wenn ich eigentlich fertig bin). Ist es möglich die Werte von dem Dokument in einer anderen Maske die anders angeordnet ist als die erste auszudrucken?

koehlerbv:
Hast Du Dir in der DesignerHelp mal genau die Parameter der Methode Print angeschaut ?

braincrusha:
Ich nehm mal an ich muss den Maskennamen den ich benutzen will in den Parameter Form Override schreiben? Wie muss die Maske aussehen?? Müssen die Felder genauso heißen wie bei der Originalmaske oder reicht es wenn ich über "Berechnet beim anlegen" die Werte aus der Originalmaske hole?

MadMetzger:
Dann müsstest du aber das Dokument erst berechnen lassen, einfacher wäre es die Felder exakt gleich zu benennen. Wenn du es so machen willst, dann empfehle ich dir, die Felder als Berechnet zur Anzeige zu nehmen.

koehlerbv:
"Berechnet zur Anzeige" wäre der Typ der Wahl  ;)

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete