Call uidoc.Reload - Aktualisieren eines Doks im Lesemodus

[lotus blue]

Hallo und noch eins  
Ein User ist im Lesemodus eines Dokuments.
Gleichzeitig ändert eine andere Person dieses Dok.

Jetzt benötige ich eine Art "Aktualisieren" Button.
Hab in der Hilfe folgendes gefunden:

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Set uidoc = workspace.CurrentDocument
   If Not ( uidoc.IsNewDoc ) Then
      Call uidoc.Reload
   End If
End Sub

Die Reload Methode müßte doch normal funzen? Oder?
Viele Grüße

[klaussal]

Das steht doch alles in der Hilfe:

Refreshes the current document with any changes that have been made to the corresponding back-end document. Refreshing the current document updates its representation in memory, as well as visually on the workspace, to reflect the changes that have been made to the back-end document.

PS: Wie soll der User denn die Änderung mitbekommen ? Den blauen Kringel gibt's ja nicht.

[lotus blue]

Das steht doch alles in der Hilfe:

Refreshes the current document with any changes that have been made to the corresponding back-end document. Refreshing the current document updates its representation in memory, as well as visually on the workspace, to reflect the changes that have been made to the back-end document.

PS: Wie soll der User denn die Änderung mitbekommen ? Den blauen Kringel gibt's ja nicht.

Ja das hab ich auch gelesen. Oder hab mit meinem Englisch was falsch verstanden?
Im Grunde: Das Dok wird refresht mit allen Änderungen die im Backend gemacht wurden.
Da der User ja die Änderung nicht mitbekommt, benötige ich ja einen Button/eine Aktion.

[klaussal]

Aber woher soll der User denn wissen, ob und wann er den Knopf drücken soll ?

[lotus blue]

Aber woher soll der User denn wissen, ob und wann er den Knopf drücken soll ?

Sagen wirs mal blöd ausgedrückt-> "Darüber mach ich mir keinen Kopf" da der Kunde diese Funktion halt so will.
Versteh es auch nicht 

Er geht morgens um 6:00 in das Dok und schaut z.B. um 10:00 nochmals rein.
Dann will er den Button um den aktuellsten Stand abrufen zu können.
Bisher geht er immer raus und dann wieder rein.

[Glombi]

Wenn dann so:

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
dim doc as NotesDocument
   Set uidoc = workspace.CurrentDocument
set doc = uidoc.Document
   If Not ( uidoc.IsNewDoc ) Then
call uidoc.Close
call ws.EditDocument(False,doc)
   End If
End Sub

[lotus blue]

Wenn dann so:

Sub Click(Source As Button)
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
dim doc as NotesDocument
   Set uidoc = workspace.CurrentDocument
set doc = uidoc.Document
   If Not ( uidoc.IsNewDoc ) Then
call uidoc.Close
call ws.EditDocument(False,doc)
   End If
End Sub

Danke schon mal.
Hab jetzt nen Termin und darf dann ins WE.
Meld mich am Montag nochmal.
Euch ein schönes WE.
Gruß

[lotus blue]

Sodala,
script läuft durch, aber es ändert nix.

Hab das entsprechende Dok geöffnet im Lesemodus.
Meine Kollegin ändert derweil einen Feldwert und speichert es ab.
Ich lass das Script drüberlaufen, aber der Feldwert ist immer noch der alte.
Benötige deshalb immer noch Eure hilfe bitte.
Mfg

Hier das Script:
Sub Click(Source As Button)
   Dim db As NotesDatabase
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.Document
   If Not ( uidoc.IsNewDoc ) Then
      Call uidoc.Close
      Call workspace.EditDocument(False,doc)
   End If
End Sub

[TRO]

UNID merken,
dann Set doc = db.GetDocumentByUNID

und dann dieses doc über ws.EditDocument öffnen

[lotus blue]

UNID merken,
dann Set doc = db.GetDocumentByUNID

und dann dieses doc über ws.EditDocument öffnen

Dann muss ich aber in alle bestehenden Doks ein Feld mit der UNID einfügen oder?

[DAU-in]

nein, einfach eine Stringvariable inerhalb des Scriptes damit belegen.

grüsse

Dau-in

[lotus blue]

Sorry aber da komm ich nicht dahinter:

Sub Click(Source As Button)
   Dim db As NotesDatabase
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim unid As String
   Set doc = db.GetDocumentByUNID (unid )
   Set uidoc = workspace.CurrentDocument
   If Not ( uidoc.IsNewDoc ) Then
      Call uidoc.Close
      Call workspace.EditDocument(False,doc)
   End If
End Sub

Mir fehlt noch was, hab aber keinen Schimmer.
Kann mir bitte jemand helfen?

[DAU-in]

Sub Click(Source As Button)
Dim db As NotesDatabase
Dim workspace As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim unid As String

'Set doc = db.GetDocumentByUNID (unid )
Set uidoc = workspace.CurrentDocument
unid = uidoc.document.universalID

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

Call workspace.EditDocument(False,doc)
End If
End Sub


oder so ähnlich



grüsse

Dau-in

[m3]

Sodala,
script läuft durch, aber es ändert nix.

Hab das entsprechende Dok geöffnet im Lesemodus.
Meine Kollegin ändert derweil einen Feldwert und speichert es ab.
Ich lass das Script drüberlaufen, aber der Feldwert ist immer noch der alte.
Benötige deshalb immer noch Eure hilfe bitte.

Es könnte natürlich auch sein, dass Kollege und Kollegin jeweils auf eigenen, lokalen Repliken der DB arbeiten. Und solange die nicht ausrepliziert haben, sieht der Kollege nicht die Änderungen der Kollegin.

[lotus blue]

Es könnte natürlich auch sein, dass Kollege und Kollegin jeweils auf eigenen, lokalen Repliken der DB arbeiten. Und solange die nicht ausrepliziert haben, sieht der Kollege nicht die Änderungen der Kollegin.

Ist definitiv nicht der Fall. Hab ich gleich am Anfang überprüft.

Bastle noch an dem Script vom DAU-in --> danke Dir schon mal für Deine Hilfe.

Momentan sind wir beim "Object variable not set".

Gruß

[DAU-in]

dann solltest du das entsprechende Objekt setzen?

[lotus blue]

So hab jetzt folgendes Script:


Bei Set doc = db.GetDocumentByUNID (unid )
kommt der object variable not set.
Aber ist doch gesetzt.


Sub Click(Source As Button)
   Dim db As NotesDatabase
   Dim workspace As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim unid As String
   
   Set uidoc = workspace.CurrentDocument
   unid = uidoc.document.universalID
   
   If Not ( uidoc.IsNewDoc ) Then
      Call uidoc.Close
      Set doc = db.GetDocumentByUNID (unid )
      
      Call workspace.EditDocument(False,doc)
   End If
End Sub

Macht es eigentlich einen Unterschied ob ich das Script in einer Ansichtsaktion laufen lass oder muss die Schaltfläche im Dok sein.

Mfg Jason

[dirk_2909]

Ich kann aber nirgendwo sehen, dass db gesetzt ist  ..


Also noch die Datenbank db initialisieren. Dann sollte es gehen

[DAU-in]

Und die Frage nach der Ansichtsaktion beantwortet die Hilfe:

Set notesUIDocument = notesUIWorkspace.CurrentDocument
Return value: notesUIDocument
Represents the current document. If there is no document currently open on the workspace, this method returns Nothing.

[lotus blue]

Ähmmmm ja  die session und db.
Jetzt geändert und schon paßt es fast, nur dass ich jetzt "invalid universial id" bekomme. 
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 doc = db.GetDocumentByUNID (unid )
   Set uidoc = workspace.CurrentDocument
   unid = uidoc.document.universalID
   
   If Not ( uidoc.IsNewDoc ) Then
      Call uidoc.Close
      Set doc = db.GetDocumentByUNID (unid )
      
      Call workspace.EditDocument(False,doc)
   End If
End Sub

Wegen meiner Frage:
Sorry mein Fehler.
Hab mich verschrieben. Meinte statt Ansichtaktion die Maskenaktion.
Aber das dürfte ja wieder gleich sein.