Druck von Dokumenten durch Agent

[koehlerbv]

Jo, Du hast Recht - und ich habe schief geguckt  

Sorry,
Bernhard

[braincrusha]

Ist es irgendwie möglich bei der UIView auch diese NextAuslierferung Ansicht zu benützen oder muss dort CurrentView benützt werden?

[braincrusha]

Jetzt bin ich vollends verwirrt.

Also erst sagst du mir ich soll sie in einen Ordner packen. Was ich  auch getan habe und jetzt soll ich es über eine UIView drucken?? Wie bekomm ich es hin dass nur die Dokumente aus dem Ordner in der UIView sind?? Oder muss ich das mit dem Ordner doch lassen und eine UIView benützen?  

[koehlerbv]

Die UIView musst Du ja sowieso irgendeiner View (oder eben ein Folder) zuordnen. Einzige Bedingung: Die View oder der Folder müssen aktuell im Client angezeigt werden.

[braincrusha]

aha okay.. so ähnlich hab ich mir dass auch gedacht... aber dann hätte ich auch gleich die nächste Frage... kann ich mittem im Agent ihm sagen dass er diesen Folder öffnen soll? Weil wenn nicht müsste ich ja zwei Agenten schreiben.. einer der diesen Folder erstellt dann müsste man auf diesen Folder klicken und dann noch ein Agent der ihn ausdruckt...

[koehlerbv]

Das beste wäre, den Code gleich in einen Button des Folders zu stecken. Ein Agent ist ja eigentlich unnötig.
Sonst musst Du das Ding öffnen mit NotesUIDatabase.OpenView.

Bernhard

[Semeaphoros]

Jo, ist richtig so

[braincrusha]

ich hab es immer noch als agent gelassen und lass ihn den folder währrend der laufzeit des agenten öffnen. Nun hab ich aber noch eine Frage. Wie druck ich nun jedes Dokument in diesem Folder beziehungsweise der UIView. Ich habe in der UIVIew ja nicht die Möglichkeit GetNextDocument und in meinem Handbuch zum nachschlagen find ich absolut gar nix über Folder. Kann mir da noch irgendjemand helfen?

[koehlerbv]

Schau mal in die Designer-Hilfe in das Beispiel zu NotesUIView.SelectDocument ... Die Collection dort müsstest Du durch ein Loop durch durch Dokumente der zugehörigen backend view ersetzen.

HTH,
Bernhard

[braincrusha]

Wir reden über diesen Teil vom Code oder?

Code

   

   Set oh_document = view.GetFirstDocument   
   Call uidb.OpenView("ausliefer")
   Set uiview = ws.currentview

While Not oh_document Is Nothing   
   Call uiview.SelectDocument(oh_document)
   Call uiview.print(1)
   Set oh_document = view.GetnextDocument(oh_document) 
Wend

und du willst dass ich jetzt in das Argument von uiview.SelectDocument(...) eine Schleife baue die durch die View durchläuft und alle Dokumente einliest die in dem Folder sind (also auch in der UIView). Ich suche aber doch gar nicht die Dokumente aus meiner View sondern will die Dokumente die nun in den Folder aussortiert worden sind. Und genau danach frag ich. Wie mach ich das am dümmsten?

[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

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

[braincrusha]

Ist ja egal ich hab jetzt die Felder einfach mal gleichgenannt. Damit Bilder etc die zwischen den Texten stehen auch mitrübergenommen werden. Nun hab ich aber immer noch ein Problem (immer wenn eins geht kommt ein neues :-( )

Also ich übernehm die Texte und geb in den Eigenschaften des Text-Feldes an dass er es als Arial und Schriftgröße 12 schreiben/bzw. drucken soll und mit der Farbe schwarz.

Diese Änderungen werden aber nicht übernommen und bei manchen Dokumenten geht er soweit dass er die Hälfte des Feldes außerhalb der PDF Datei steht...

[koehlerbv]

Sind das RTFs ? Da kannst Du (logischerweise) für Farbe und Schriftart etc. einstellen, was Du willst - es gilt das originale RT Item.

"Ausserhalb der PDF-Datei": Ist jetzt Dein Festplattengehäuse kaputt ?  

[braincrusha]

Sind das RTFs ? Da kannst Du (logischerweise) für Farbe und Schriftart etc. einstellen, was Du willst - es gilt das originale RT Item.

"Ausserhalb der PDF-Datei": Ist jetzt Dein Festplattengehäuse kaputt ?  

Also die OriginalFelder sind Text Felder? Kann ich die im Nachhinein nicht mehr nur für diesen Druck formatieren???

Nein mein Festplattengehäuse hat weder Löcher noch Risse...  

ich mein damit ein Satz beginnt irgendwann ist er am Ende so und dann müsste eigentlich ja eine neue Zeile kommen und die kommt auch. Nur leider fängt die da nicht an wo die davorige aufgehört hat sondern da fehlt halt en Stück