Das Notes Forum

Domino 9 und frühere Versionen => ND6: Entwicklung => Thema gestartet von: DAU-in am 22.10.06 - 01:58:12

Titel: Backend und Frontend save
Beitrag von: DAU-in am 22.10.06 - 01:58:12

ich habe ein Dokument, in welchem der User Änderungen macht, und dann im Backend Daten eingelesen werden.
kann ich das Backend speichern, und danach als UIdoc wiederöffnen, refreshen( brechnete Felder), und erneut speichern,( ohne Abfrage betr. Speicherns) und dann im Lesemodus anbieten?

Titel: Re: Backend und Frontend save
Beitrag von: Glombi am 22.10.06 - 08:32:52

Ja

Den Speicherndialog unterdrückt man, indem das Feld SaveOptions = "1" gesetzt wird.
Wenn Daten gleichzeitig (!) ins Backend und vom User im Frontend eingetragen werden sehe ich ein Problem. Aber so genau geht es aus Deinem Beitrag nicht hervor. Ich nehme eher an, es passiert nacheinander.

Ich würde so vorgehen:
Eingaben durch den User
Speicher und Schließen des UI-Dok.
Backendeingaben (+ SaveOptions = "1" setzen)
Öffnen und Refresh des UI-Dok. + Speichern + Schließen
Backend (RemoveItem("SaveOptions")
Dok. im Lesemodus öffnen

Andreas

Titel: Re: Backend und Frontend save
Beitrag von: DAU-in am 22.10.06 - 09:14:59

Hi!

Warum das SaveOptions wieder entfernen?
Und ich habe im Prinzip diesen Ablauf, aber wenn ich das uidoc wieder öffne, kommt ein 'not vailable from this context'?

Dim uidoc_reopen As NotesUIDocument   Set uidoc_reopen = ws.EditDocument(True, doc_current)
Call uidoc_reopen.refresh
Call uidoc_reopen.save
Call uidoc_reopen.close

Titel: Re: Backend und Frontend save
Beitrag von: DAU-in am 22.10.06 - 09:42:34

hier noch mal im Ganzen:

Set uidoc = ws.currentdocument
Set doc_current = uidoc.Document
Set db_current = session.CurrentDatabase   
   If Not uidoc.EditMode Then
      uidoc.EditMode = True
   End If


   ret = ws.DialogBox( "dlgHoursRejection" ,_ usw

If ret Then
   str_Rejection = uidoc.FieldGetText("RejectionReasons")
                Call uidoc.save
    Call uidoc.close
   
'hier trampel ich auf dem Backend rum
Call doc_current.Save(True,False)

Dim uidoc_reopen As NotesUIDocument
Set uidoc_reopen = ws.EditDocument(True, doc_current) ' genau hier knallts
Call uidoc_reopen.refresh
Call uidoc_reopen.save
Call uidoc_reopen.close   
            
      

Titel: Re: Backend und Frontend save
Beitrag von: Glombi am 22.10.06 - 10:24:33

Wo befindet sich denn der Code? In einem Button oder einer Aktion?

Du kannst natürlich auch SaveOptions = "1" drin lassen. Aber dann wird beim Schließen des Dokuments immer gespeichert. Es soll schon Anwender gegeben haben, die mit ESC aus dem Dokument wollten ohne zu speichern.

Andreas

Titel: Re: Backend und Frontend save
Beitrag von: DAU-in am 22.10.06 - 10:31:29

der Code steckt in einer Aktion.

ich enmhe an, umsetzen in einen Button in einem Dokument?