Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Don Pasquale am 19.02.03 - 16:38:58

Titel: LScript : DialogBox mit Übernahme von Werten
Beitrag von: Don Pasquale am 19.02.03 - 16:38:58

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
   

Titel: Re:LScript : DialogBox mit Übernahme von Werten
Beitrag von: Axel am 19.02.03 - 17:00:09

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

Titel: Re:LScript : DialogBox mit Übernahme von Werten
Beitrag von: Don Pasquale am 19.02.03 - 17:04:50

@Axel,

Zitat von: Axel am 19.02.03 - 17:00:09

setz mal die Variable keineNeuenFelder$ auf False.

Jawohl,

das war es.

 ;D ;D

Zitat

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

Titel: Re:LScript : DialogBox mit Übernahme von Werten
Beitrag von: Axel am 19.02.03 - 18:24:15

Hi,

Einspruch angenommen.  ;) ;D

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