Hallo leute,

ich habe eine wunderschöne DilogBox, leider hat sie einen haken,
alle Daten die ich eingebe, werden nicht übernommen.

Wo ist mein Denkfehler ?

   Dim nDialog As Variant
   Dim ws As New NotesUIWorkspace  
   Dim session As NotesSession
   Dim db As NotesDatabase  
   Dim doc As NotesDocument
   Dim docDialog As NotesDocument
   Dim User As String
   Dim uidoc As NotesUiDocument
   
   Set session = New NotesSession            
   User = session.CommonUserName   
   
   
   Set s = New NotesSession
   Set db = s.CurrentDatabase
   Set docDialog = db.CreateDocument
   
   MASKENNAME$                = "BoxSenden"
   TITELTEXT$                   = "Dokument weiterleiten"
   sollLayoutHorizontalpassen$    = True
   sollLayoutVertikalpassen$       = True
   ohneCancel$                  = False
   keineNeuenFelder$               = True
   keinFeldUpdate$                = False
   mitTabelle$                      = True
   ReadOnly$                     = False
'   Setzen der Dialogbox Felder
   
   
   
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.Document    
   
   Call ws.EditDocument( True )
   
   
   nDialog = ws.dialogbox(Maskenname$,sollLayoutHorizontalpassen$,sollLayoutVertikalpassen$,ohneCancel$,keineNeuenFelder$,keinFeldUpdate$,ReadOnly$,TITELTEXT$,docDialog,mitTabelle$)   
   
   If nDialog Then
      uidoc.EditMode = True         
      Call uidoc.FieldSetText(    "wfl_an"       ,   docDialog.sn_An(0))
      Call uidoc.FieldSetText(    "wfl_von"      ,   User )
      Call uidoc.FieldSetText(   "wfl_Deadline"   ,   Cstr(docDialog.sn_Frist(0)))
      Call uidoc.FieldSetText(    "wfl_SendDate" ,    Cstr ( Today) )
      Call uidoc.FieldSetText(   "wfl_Verfuegung",   docDialog.sn_Verfuegung(0))
      Call uidoc.FieldSetText(   "Bemerkungen",       docDialog.sn_Bemerkungen(0))
      Call docDialog.Save(True,True,True)
      Call doc.Save(True,True,True)
      
      
   Else
      ' NIX ?
   End If
   

@Axel,

setz mal die Variable keineNeuenFelder$ auf False.

Jawohl,

das war es.

 

Am besten rufst du die Funktion so auf:
nDialog = ws.dialogbox(Maskenname$,True, True, False, False, False, False, TITELTEXT$, docDialog, True)  

Einspruch, Euer Ehren.
Ich finde diese Methode ganz hilfreich.
So kann ich gezielt die Maskenparameter setzen und muß
nicht immer in die Hilfe schauen und Parameter zählen.


Danke für die Hilfe

Ciao
Don Pasquale