Das Notes Forum

Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Don Pasquale am 20.02.03 - 12:53:36

Titel: ArrayAppend im uidoc ?
Beitrag von: Don Pasquale am 20.02.03 - 12:53:36

Hallo Leute,

ich habe eine Dialogbox, dort werden unter anderem Notizen hineingeschrieben. Jetzt kann ich zwar wunderbar die Notiz speichern, aber eigentlich möchte ich die tmp_Notizen sie an die bestehenden Noptizen anhängen mittels ArrayAppend.
Aber im Frontend funktioniert das nicht.

Ratlos

DOn Pasquale

   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$                 = False
   keinFeldUpdate$                      = False
   mitTabelle$                            = True
   ReadOnly$                              = False
   
   
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.Document    
   
   nDialog = ws.dialogbox(Maskenname$,sollLayoutHorizontalpassen$,sollLayoutVertikalpassen$,ohneCancel$,keineNeuenFelder$,keinFeldUpdate$,ReadOnly$,TITELTEXT$,docDialog,mitTabelle$)  
   
   If nDialog Then
      uidoc.EditMode = True        
      NOTIZZEILE$ = Cstr(Today) & " Von:  " & USER & "  An:" & docDialog.sn_An(0) & "  " & docDialog.sn_Verfuegung(0) & " " & docDialog.sn_Bemerkungen(0) & Chr$(34)
      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 uidoc.FieldSetText(   "tmp_Notizen", NOTIZZEILE$)
      Call docDialog.Save(True,True,True)
      Call doc.Save(True,True,True)
   Else
      ' NIX ?
   End If

Titel: Re:ArrayAppend im uidoc ?
Beitrag von: ata am 20.02.03 - 13:15:43

... ich glaube die Frage habe ich dir in der Vergangenheit bereits schon mal gestellt - warum gehst du über das uidoc.FieldSetText(...) ?

docThis.Feldname = FullTrim(ArrayAppend(docThis.FeldName , WertOderArray) ) ...

... funktioniert in der Regel...

ata

Titel: Re:ArrayAppend im uidoc ?
Beitrag von: Don Pasquale am 20.02.03 - 13:22:47

Keine Regel ohne Ausnahme :-)

Wenn ich zwischen den ganzen uidoc.FieldSetText Befehlen
einen doc.Feldnamen stehen habe, dann werden bei mir
die uidoc Werte einfach nicht übernommen.

ciao

Don Pasquale

Titel: Re:ArrayAppend im uidoc ?
Beitrag von: ata am 20.02.03 - 13:32:45

was passiert, wenn du der Dialogbox das doc nicht mitgibst

... TITELTEXT$,  ,mitTabelle$...

ata

Titel: Re:ArrayAppend im uidoc ?
Beitrag von: Don Pasquale am 20.02.03 - 13:39:45

Interessanter Effekt,
die Werte in der Dialogbox bleiben erhalten,
aber sie werden nicht ins Hauptdokument übernommen.

Don Pasquale