Call uidoc.Reload - Aktualisieren eines Doks im Lesemodus

[lotus blue]

Hallo hier nochmal mein Aufgabenprob:

Michael Test öffnet um 8:00 Uhr aus einer Ansicht ein Dokument im Lesemodus. In den Bearbeitenmodus geht er gar nicht rein.
Das Dok bleibt den ganzen Vormittag auf.

Anna Meier öffnet um 9:00 das gleiche Dokument und ändert jedoch zwei Feldwerte.

Damit nun Michael Test am Nachmittag die Änderungen sieht, muss er logischerweise das Dokument (das er ja seit dem Vormittag auf hat) schließen, die Ansicht aktualisieren und das Dokument wieder öffnen.
So sind alle Änderungen sichtbar.

Meine Aufgabe ist es, einen Button/Aktion zu machen, damit sich Michael Test den Schritt -->"muss er logischerweise das Dokument (das er ja seit dem Vormittag auf hat) schließen, die Ansicht aktualisieren und das Dokument wieder öffnen"
spart.

Macht Euch bitte keine Gedanken über die Notwendigkeit dieser Aktion (das hat keinen Sinn ). Reg mich eigentlich immer noch drüber auf.

Gruß

[DAU-in]

Aber wenn du auf einem alten Dok stehst, die UNID ausliest und dann über die UNID wieder dasselbe Dokument holst, dann bekommst du doch wieder das dasselbe alte Dokument?

Oder arbeitet ihr mit Kopien?

[Thomas Schulte]

Kinderkram Aufgabe ...


Sub Click(Source As Button)
   Dim wksp As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As notesdatabase
   Dim uidoc As notesuidocument
   Dim doc As notesdocument
   Dim docunid As String
   
   Set db = session.CurrentDatabase
   Set uidoc = wksp.CurrentDocument
   Call uidoc.Save()
   Set doc = uidoc.Document
   docunid = uidoc.Document.UniversalID
   Call uidoc.Close(True)
   Set doc =db.GetDocumentByUNID(docunid)
   Call wksp.EditDocument(False,doc)
End Sub

[lotus blue]

Danke Thomas für Deine Hilfe.
Leider bekomm ich ein "Dokumentbefehl nicht verfügbar".
Liegt wohl daran dass ich nicht in den Editmode gehe oder?
Aber da will ich ja nicht rein

Gruß

[DAU-in]

an welcher Stelle springt der Debugger raus?

[lotus blue]

an welcher Stelle springt der Debugger raus?

Sorry immer wieder das gleiche Prob, dass ich nicht gleich alles schreibe.
Also bei Betätigen des Buttons in der Aktionsleiste-> Dokumentbefehl nicht verfügbar
Als Schaltfläche im Dok
springt der Debugger bei Call UIdoc save () raus.

Gruß

[DAU-in]

uidoc ist im Lesemodus und du versuchst zu speichern, richtig?

[lotus blue]

uidoc ist im Lesemodus und du versuchst zu speichern, richtig?

  Richtig. Hab halt leider ohne große nochmalige Überprüfung den Kinderkram Code von Thomas eingesetzt.
Mein Fehler.
Muss dann ein False rein oder ganz raus lassen?

[DAU-in]

SAve und das erste 'set doc' auskommentieren, wie weit kommst du dann?

[lotus blue]

SAve und das erste 'set doc' auskommentieren, wie weit kommst du dann?

Dann läuft er durch und ändert wieder nix.
Post gleich mal ein Bild der Debugger-Ergebnisse

[DAU-in]

ähh, nur noch mal nachfragen:

Michael Test öffnet um 8:00 Uhr aus einer Ansicht ein Dokument im Lesemodus. In den Bearbeitenmodus geht er gar nicht rein.
Das Dok bleibt den ganzen Vormittag auf.

Anna Meier öffnet um 9:00 das gleiche Dokument und ändert jedoch zwei Feldwerte.

Anna Meier speichert auch sofort?

wenn Frau Meier das Dokument einfach auch nur offen hat,  ändert sich ja im Backend gar nichts?

Und dann wäre es doch auch korrekt, wenn Michael Test keine Änderung sieht?

[lotus blue]

Anna Meier speichert auch die Änderungen.


Hier das Debugger Ergebnis:

CURRENTDOKUMENT  ["Neuer Eintrag",False,False ....]
Editmode False

UIDOC
Dokument UniversialID   die gleiche wie die
DOC
UniversialID
und die DOC UNID

[dirk_2909]

Irgndwie drehen wir uns im Kreis.

Die Lösung wird hier x-fach gepostet ( siehe z.B. #26 und  #42).
Mehr geht nicht.

Es muss was anderes sein.

Ich klinke mich dann aus und were Projektarbeit machen... 

[lotus blue]

Irgndwie drehen wir uns im Kreis.

Die Lösung wird hier x-fach gepostet ( siehe z.B. #26 und  #42).
Mehr geht nicht.

Es muss was anderes sein.

Ich klinke mich dann aus und were Projektarbeit machen... 

Tja nur das die Lösung nicht funzt.
#26 und #42 wurden ja bereit sangewendet. Zb. bei 42 ist ja das Save angegeben obwohl ich ja im Lesemodus bin.
Entfernt und trotzdem tut es nicht usw.
Natürlich dreh ich mich im Kreis und zieh Euch mit in den Kreis. Sorry falls ich jemand nerve.
Aber durch das Kreisdrehen wird es leider nicht besser.

Danke trotzdem für Deine Hilfe.

[DAU-in]

Und die DokID des Dokumentes von Frau Meier?

Ist das diesselbe wie von Herrn Test?

nicht dass ihr auf verschiedenen Dokumenten arbeitet.
ihr seid auf der gleichen DB auf demselben Server?
die DBs sind nicht lokal oder so?

da muss was ganz anderes dahinterstecken.

mich macht eine Bemerkung vorhin mit 'neuem und altem' Dokument einfach stutzig.

[Thomas Schulte]

Hier kriegst du jetzt Code der genau so geschrieben ist wie es funktionieren muss wenn du das über eine Aktion in der Maske ausführen willst. Ohne Save und ohne Wechsel in den Edit Mode.

Sub Click(Source As Button)
   Dim wksp As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As notesdatabase
   Dim uidoc As notesuidocument
   Dim doc As notesdocument
   Dim docunid As String
  
   Set db = session.CurrentDatabase
   Set uidoc = wksp.CurrentDocument
   docunid = uidoc.Document.UniversalID
   Call uidoc.Close(True)
   Set doc =db.GetDocumentByUNID(docunid)
   Call wksp.EditDocument(False,doc,False,,True,True)
End Sub

Wenn das nicht funktioniert, dann solltest du ganz von vorne anfangen und alle möglichen Fehlerquellen die dir bereits genannt wurden, wie

- Arbeiten mit lokaler Replik oder auf unterschiedlichen Servern.
- Hat der andere das Dokument denn wirklich geändert und gespeichert.
Und so weiter, ich spare es mir das jetzt noch einmal aufzuzählen.

SYSTEMATISCH der REIHE nach untersuchen und als Fehlerursache ausschließen. Mit besonderer Berücksichtigung des Hinweises den dir der letzte Post vorher gibt.

[TRO]

Schmeiß mal zwischendurch das doc weg und/oder setze mit GetDocumentByUNID ein anderes NotesDocument.

Sub Click(Source As Button)
   Dim wksp As New NotesUIWorkspace
   Dim session As New NotesSession
   Dim db As notesdatabase
   Dim uidoc As notesuidocument
   Dim doc As notesdocument
   Dim Ndoc As notesdocument
   Dim docunid As String
   
   Set db = session.CurrentDatabase
   Set uidoc = wksp.CurrentDocument
   docunid = uidoc.Document.UniversalID
   Call uidoc.Close(True)
   ' Achtung: manche berichten hier von einem Crash (auch in 6.5.5), der
   ' vermieden wird, wenn uidoc.close ohne True-Parameter aufgerufen wird
   Delete uidoc
   Set Ndoc =db.GetDocumentByUNID(docunid)
   Call wksp.EditDocument(False, Ndoc,False,,True,True)
End Sub

[DAU-in]

Schmeiß mal zwischendurch das doc weg und/oder setze mit GetDocumentByUNID ein anderes NotesDocument.

äääääääääää

wo schmeisst du hier das doc weg?
und warum brauchst du ein NDoc bzw. warum deklarierst du ein doc zum NDoc dazu?

[lotus blue]

Hallo Mädels

also zunächst (zwar schon mal gemacht aber doppelt hält besser) nochmal alles kontrolliert.
Der selbe Server, die gleiche DB, nichts auf Lokal oder der gleichen.
Und sonst auch nix. Der zweite Benutzer ändert was und speichert es auch.
............usw.

Dann nochmal das Script von Thomas ausprobiert-> es tut sich nix. Script läuft ohe Fehler durch, ändert aber nix.

Zu guter letzt das Script von TRO ausprobiert und --> 
  es funzt.

Danke TRO
auch wenn ich momentan gar nix mehr kapier und der Kopf raucht

[TRO]

Hallo DAU-in,

mit der Zeile Delete uidoc wird das Frontend- und damit auch das Backend-Doc verworfen.

Bei dem GetDocumentByUNID wurde offensichtlich auf das BE-Doc im Cache/Hauptspeicher zurückgegriffen, was nach dem Delete unmöglich wurde.

Das mit dem Ndoc ist in diesem Fall überflüssig (bei mir brauch ich das schon, da ich meist parallel zum setzen des Frontend-Doc auch das BE-Doc in einer Variable ablege).