LScript : DialogBox mit Übernahme von Werten

[Don Pasquale]

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]

Hi,

Idee auf die Schnelle:

setz mal die Variable keineNeuenFelder$ auf False.

Ausserdem, da bin ich mir aber nicht ganz sicher, verwende in den Variablennamen kein $. Das könnte ein Kennzeichen für eine String-Variable sein.

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

Ich mach das immer so und es funktioniert.

Axel


Axel

[Don Pasquale]

@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

[Axel]

Hi,

Einspruch angenommen.  

Die Idee mit den Parametern ist gut. Wie gesagt ich war mir nicht ganz sicher, ob Notes das $-Zeichen im Variablennamen interpretiert oder nicht.

Hauptsache es tut.

Axel