Dialogbox übergibt nicht immer die neuen Daten

[Don Pasquale]

Hallo Leute,

ich übernehme aus Dialogboxen neue Daten.
Sobald ich ich aber danach noch irgendwelche Operationen durchführe gehen diese Daten wieder verloren.

Ist das nur bei mir so ?

Ciao

Don Pasquale


teilauszug

   MASKENNAME$                      = "BoxWiedervorlage"
   TITELTEXT$                         = "Wiedervorlage"
   sollLayoutHorizontalpassen$       = True
   sollLayoutVertikalpassen$          = True
   ohneCancel$                           = False
   keineNeuenFelder$                 = False
   keinFeldUpdate$                      = False
   mitTabelle$                            = True
   ReadOnly$                              = False
   
   
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.Document    
   
   
   strIDENT = doc.e4ihk_Identnummer(0)
   
   
   nDialog = ws.dialogbox(Maskenname$,sollLayoutHorizontalpassen$,sollLayoutVertikalpassen$_
,ohneCancel$,keineNeuenFelder$,keinFeldUpdate$,ReadOnly$,TITELTEXT$, docDialog,mitTabelle$)  
   
   If nDialog Then
      
      uidoc.EditMode = True
      
'   Setzen der Hauptdokumentfelder
      
      Call uidoc.FieldSetText( "e4Fld_Exchange" , docDialog.Fld_Exchange(0) )
      Call uidoc.FieldSetText( "ReminderTime",Cstr(docDialog.wv_Zeit(0) ))      
      Call uidoc.FieldSetText( "e4fld_Wiedervorlage" , Cstr(docDialog.wv_Datum(0)) )
      Call uidoc.FieldSetText( "Bemerkungen", Cstr(docDialog.wv_Bemerkungen(0) ))
      Call uidoc.FieldSetText( "wfl_an"       ,   docDialog.sn_An(0))
      
      JNAlarm                = True
      subject$             = "Wiedervorlage " & Chr$(13) & "Vorgang : " & doc.e4ihk_Identnummer(0) & "  " & doc.sf_Firmierung(0)
      info$                  = docDialog.wv_Bemerkungen(0)
      key$                   = sword(doc.e4Fld_Exchange(0),"~",1)      
      popUpStr$            = Cstr(docDialog.wv_Bemerkungen(0) )
      ReminderDate         =  docDialog.wv_Datum(0)
      ReminderTime          = Cstr(docDialog.wv_Zeit(0) )
      ReminderDateTime    = ReminderDate & " " &  ReminderTime
      
      Set dateTime          = New NotesDateTime( ReminderDateTime)
      
      Call createReminder (DateTime, JNAlarm, popUpStr$ , subject$, info$ , key$)      
      
      Call docDialog.Save(True,True,True)
      Call doc.Save(True,True,True)

Wenn ich diesen Teil weglasse,
dann bleiben die Daten im Hauptdokument erhalten.


      ergebnis = SETZE_ID_AUF_SONDERORDNER( strIDENT, STATUS_ZUR_WIEDERVORLAGE)      
      ergebnis = SETZE_STATUS_ALT_AUF_STATUS(strIDENT,Doc.e4fld_STATUS_VORGANG(0))            
      Call uidoc.FieldSetText("e4fld_STATUS_VORGANG",STATUS_ZUR_WIEDERVORLAGE)
      Call uidoc.FieldSetText("e4fld_STATUS_DOKUMENT",STATUS_ZUR_WIEDERVORLAGE)


      

[Performance]

verstehe nicht ganz... wo das Problem liegt ?

- wo hast du dein "docDialog" initialisiert - normalerweise wird diese dok als temporäres dok verwendet - wenn der code zu Ende ist sind auch die Daten verloren - du speicherst dir aber diese Daten... warum auch immer.

du machst Änderungen im uidoc und machst ein backend save wobei dieses backend doc vor den Änderungen initialisiert wurde ? warum nicht ein uidoc.save ? im Endeffekt speicherst du die alten Daten nochmal.


cu