2 Frontenddokumente

[Hedwig14]

Hallo,

ich erstelle aus einem Frontend ein weiteres Doc .
Dieses Doc öffne ich im Edit Mode will es ausdrucken, schließen
und in mein Ursprungs Doc zurückgehen.

Leider wird das 2. Doc mit diesem Script nicht geschlossen !

Warum nur ? Ich bleibe in dem Doc und kann mein Script nicht fortfahren


'Versandbeleg drucken
         Dim versandbeleg As NotesDocument
         Dim tempdoc As NotesUIDocument
         Set versandbeleg = New NotesDocument( db )
         versandbeleg.Form = "Versandbeleg"
         versandbeleg.Versand_Nummer = uidoc.FieldGetText( "SP_Nummer" )
         versandbeleg.Versand_Name = s.CommonUserName
         versandbeleg.Versand_Datum = heute
         Call ws.editDocument(False, versandbeleg)
         Set tempdoc = ws.editDocument(False, versandbeleg, True)
         Call tempdoc.print (1)
         Call tempdoc.close()
         
'Mailversand
         Call mdoc.Send (False, rc(0) )
         Call uidoc.FieldClear ("Autoren_AUT")
         Call uidoc.FieldSetText ( "Autoren_AUT", vg )      
         
         Messagebox "Dieser Reisekostenantrag wurde an: " & vg  & "  weitergeleitet !",,Art
         Call uidoc.save      
         Call uidoc.close
         

[Axel]

Wenn das der Code ist, den du verwendest, dann öffnest du das Frontend-Dokument zweimal.

...
         Call ws.editDocument(False, versandbeleg)
         Set tempdoc = ws.editDocument(False, versandbeleg, True)
...

Es reicht, wenn du die zweite Zeile stehen lässt. Die Zeile mit dem Call... kannst du löschen.

Axel