Call uidoc.Reload - Aktualisieren eines Doks im Lesemodus

[dirk_2909]

 

Deine Variable "unid" ist zu dem Zeitpunkt auch leer, wenn Du versuchst das Dokument zu holen.

Erst später im Script weist Du ihr einen Wert zu .

….

[DAU-in]

benutzt du eigentlich den Debugger?

Grüsse

Dau-in

[lotus blue]

benutzt du eigentlich den Debugger?

Grüsse

Dau-in

Natürlich , da liegt ja mein Prob. Es kommt die Fehlermeldung ohne jemals den Debugger zu sehen.

[DerAndre]

Und eine Fehlerbehandlung bitte auch.

Nach Set db = kommt ein GetDocumentBy...

[dirk_2909]

Warum siehst Du den Debugger nicht? In welchem Context rufst Du das Script denn auf.

Und wie mein Vorredner ähhh -Schreiber schon sagte: Eine ordentliche Fehlerbehandlung

Dazu gehört auch mögliche Fehler vorher abzufangen ;-)

if ( unid = "" ) Then
 msgbox "Uuuups....." , 16 , ""
end if

oder

if db is Nothing Then
 msgbox "Sch*******" ,16, "Dummer Fehler"
end if

[lotus blue]

Hallöchen.
Also den Debugger gestartet und die Maskenaktion ausglöst-> Pustekuchen. Nix zu sehen.

Hab jetzt nochmals das Script umgebaut:
Keine Fehler, aber auch leider keine Änderung der Feldwerte
Sub Click(Source As Button)
   Dim session As New notessession
   Dim db As notesdatabase
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim unid As String
   
   Set db = session.currentdatabase
   Set uidoc = workspace.CurrentDocument
   unid = uidoc.document.universalID
   Set doc = db.GetDocumentByUNID (unid )
   If Not ( uidoc.IsNewDoc ) Then
      Call uidoc.Close
      Set doc = db.GetDocumentByUNID (unid )
      Call workspace.EditDocument(False,doc)
   End If
End Sub

Gruß

[DerAndre]

Dirks Post hat Du gelesen?

[lotus blue]

Dirks Post hat Du gelesen?

Ja natürlich. Aber bin wohl auf dem Holzweg und versteh was vollkommen falsch.

Ich weise doch zuerst den Wert zu
"unid = uidoc.document.universalID"

und dann erst hol ich das Dok .
"db.GetDocumentByUNID (unid )"
 

[dirk_2909]

Was genau ist eine Maskenaktion?


Ich vermute mal, dass Du dein Script in einem Button eingefügt hast ?!

Folgendes habe ich mal nachgebaut und positiv getetstet:

Code

Dim s As New notessession
	Dim db As notesdatabase
	Dim ws As New NotesUIWorkspace
	Dim uidoc As NotesUIDocument
	Dim doc As NotesDocument
	Dim unid As String
	
	On Error Goto ERROR_ME
	
	Set db = s.currentdatabase
	Set uidoc = ws.CurrentDocument
	
	If uidoc.IsNewDoc  Then
	' Msgbox "Sie können diese Aktion nicht von neuen Dokumenten aus ausführen!" ,64, "Hinweis"
		Exit Sub
	End If	
	
	If uidoc.Editmode Then
		Msgbox "Das aktuelle Dokument befindet sich im Bearbeitungsmodus!" ,64, "Abbruch"
		Exit Sub
	End If
	
	unid = uidoc.document.universalID
	
	If unid = "" Then
		Msgbox "Das aktuelle Dokument ist nicht gespeichert oder defekt!" ,64, "Hinweis"
		Exit Sub
	End If
	
	Set doc = db.GetDocumentByUNID (unid )
	
	
	If Not doc Is Nothing Then
		Call uidoc.Close
		Call ws.EditDocument(False,doc)
	Else
		Msgbox "Das Kontextdokument konnte nicht initialisiert werden!" , 16 , "Fehler"
	End If
	
	
EXIT_OK:
	Exit Sub
	
ERROR_ME:
	Msgbox "Fehler aufgetreten: " & Error & " (" & Err & ") - Zeile " & Erl
	Err = 0
	Resume EXIT_OK

[dirk_2909]

zu #27:

Ist soweit richtig. Aber warum 2 mal:

…
Set doc = db.GetDocumentByUNID (unid )
   If Not ( uidoc.IsNewDoc ) Then
      Call uidoc.Close
      Set doc = db.GetDocumentByUNID (unid )

…


Aber wenn der Wert sich nicht ändert, kann es auch an einer anderen Stelle liegen?!
Wie verhält es sich denn, wenn Du das Dokument (UI) normal schließt (z.B. mit ESC) und sofort danach wieder
öffnest?

[lotus blue]

@dirk_2909
Danke für Deine Mühen. Bei mir funzt es aber leider nicht. Keine Fehelermeldung und auch keine Änderung.
Script ist natürlich in einem Button "Aktionsschaltfläche".

Tja warum zweimal  Mann bin ich blöd

Ändert aber auch nix.
Wenn ich das Dok offen habe, der Kollege was ändert, ich mit ECS schließe und in der Ansicht gleich wieder öffne per Dopelklick, dann ist der Wert richtig (geändert).
Gruß

[DAU-in]

springt der Debugger denn an, wenn du die Aktion aufrufst???

[Glombi]

Wird denn eigentlich dasselbe Dokument geöffnet, wenn es über die Ansicht aufgemacht wird?

Es könnte ja bspw. sein, dass beim Speichern eine neue Version angelegt wird.

Du solltest mal als erstes prüfen, ob die Dok-ID der Dokumente, die über die View und die per Script geöffnet werden, gleich ist.

Andreas

[lotus blue]

springt der Debugger denn an, wenn du die Aktion aufrufst???

Ja aber komischer Weise erst nach zweimaligem Drücken.
Gruß

[DAU-in]

Und findet der Debugger dann Dokumente,
ist doc dann ein 'IsNewDoc'?

[WildVirus]

Eigentlich Basics - aber hast Du "option declare" gesetzt ?

Schönen Abend noch
Axel

[lotus blue]

Morgäääääähn.
Option Declare ist ausnahmsweise  gesetzt. War gleich das erste.

Also die ID des neuen Doks ist eine andere wie des alten Doks.OK.
--> ISNEWDOC-> False
 

[DAU-in]

Natürlich hat das Dokument eine andere UNID, es ist ja auch ein anderes Dokument !?!?

IsNewDoc: du führst die Aktion in einem frisch erstellten Dokument durch oder in einem alten?

[lotus blue]

Natürlich hat das Dokument eine andere UNID, es ist ja auch ein anderes Dokument !?!?

Ja mir auch klar, so hab ich es auch geschrieben.

IsNewDoc: du führst die Aktion in einem frisch erstellten Dokument durch oder in einem alten?

In einem alten.

[dirk_2909]

So. Langsam blick ich jetzt nicht mehrdurch 

Also:
Du brauchst die Funktion nicht bei neuen Dokumenten. - Klar! -> ergo: Aktion verbergen...
Du willst ein geöffnetes Dokument "refreshen", damit die Änderungen des Backenddokumentes
angezeigt werden -> dafür ist das o.g. Script ok!! ..

Meine Tests ( …) waren soweit OK.
Die UNID muss dieselbe sein, wie die des Backenddokumentes!

Wenn nicht läuft bei Dir schon was grundlegendes Falsch!

Ich weiß jetzt nicht mehr weiter