Probleme mit Postopen

[gentleman]

hi,

ich fange den bearbeitenmodus im querymodechange ab.
wenn man in nder ansicht allerdings strg+b drückt kommt man rein.

ich habe bereits einen code im postopen.
es erscheint die richtige fehlermeldung, nur leider is das dokument danach im bearbeiten modus, was ja da eigentlich ned soll


hier mein querymodechange code:
_{Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
   Dim session As New NotesSession     
   Dim workspace As New NotesUIWorkspace
   Dim doc As NotesDocument
   Dim uidoc As NotesUIDocument
   Dim db As NotesDatabase
   Dim ein As String
   ein = session.GetEnvironmentString("ProblemEintritt")
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.document 
   Dim acl As notesacl
   Set db = session.CurrentDatabase
   Dim entry As notesaclentry
   Set acl = db.ACL
   Set entry = acl.GetEntry(Session.UserName)
   
   If doc.dok_status(0) = "6. Abgeschlossen" And Not entry.IsRoleEnabled( "[Admin]" ) Then
      Messagebox "Dokument ist bereits abgeschlossen!", OK, "Fehler"
      continue = False
   Else
      If doc.dok_status(0) = "hugo" Then
         continue = True
      Else
         If Not (ein = "Ja") Then
            Messagebox "Eine Bearbeitung des Dokuments ist nur über die Schaltfläche ''Bearbeiten'' möglich", OK, "Fehler"
            continue = False
         End If
      End If
   End If
End Sub}


und hier mal mein postopen:
_{Sub Postopen(Source As Notesuidocument)
   source.EditMode = False
End Sub}


wie gesagt, er bringt den richtig zugeordneten hinweis, is aber nach der bestätigung im bearbeiten modus

wäre klasse wenn da jemand weiter weiß

danke
marc

[koehlerbv]

So auf den ersten Blick:
Im PostOpen triggerst Du mit dem Wechsel des EditMode ein QueryModeChange - und brichst das dann (unter den gegebenen Voraussetzungen) ab mit Continue = False. Das kannst Du nur machen, wenn EditMode = False ist, bei True musst Du es zulassen.

Weiterhin: Du fragst die Rolle direkt über UserName in der ACL ab. Warum nimmst Du nicht @UserNamesList - so wie es jetzt ist, kannst Du ja niemals mit Gruppen arbeiten.

Bernhard

[Timo Schüring]

Warum arbeitest Du nicht mit Autoren und Leser Feldern ?

[gentleman]

hi,

danke für die schnellen antworten

So auf den ersten Blick:
Im PostOpen triggerst Du mit dem Wechsel des EditMode ein QueryModeChange - und brichst das dann (unter den gegebenen Voraussetzungen) ab mit Continue = False. Das kannst Du nur machen, wenn EditMode = False ist, bei True musst Du es zulassen.

d.h. ich muss im querymodechange ne weitere abfrage erstellen, oder?

so in etwa?

If source.EditMode = False Then
continue = False
End If

Weiterhin: Du fragst die Rolle direkt über UserName in der ACL ab. Warum nimmst Du nicht @UserNamesList - so wie es jetzt ist, kannst Du ja niemals mit Gruppen arbeiten.

wie würde der code aussehn? kenn diese methode nicht

vielen dank nochmals
marc

[koehlerbv]

Code

If source.EditMode = False Then
continue = False
End If

Jo !

@UserNamesList kannst Du mit Evaluate in LS verwenden.

HTH,
Bernhard

[gentleman]

also mein querymodechange sieht nun so aus:

_{Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
   Dim session As New NotesSession     
   Dim workspace As New NotesUIWorkspace
   Dim doc As NotesDocument
   Dim uidoc As NotesUIDocument
   Dim db As NotesDatabase
   Dim ein As String
   ein = session.GetEnvironmentString("ProblemEintritt")
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.document 
   Dim acl As notesacl
   Set db = session.CurrentDatabase
   Dim entry As notesaclentry
   Set acl = db.ACL
   Set entry = acl.GetEntry(Session.UserName)
   
   If source.EditMode = False Then
      continue = False
   Else
      If doc.dok_status(0) = "6. Abgeschlossen" And Not entry.IsRoleEnabled( "[Admin]" ) Then
         Messagebox "Dokument ist bereits abgeschlossen!", OK, "Fehler"
         continue = False
      Else
         If doc.dok_status(0) = "hugo" Then
            continue = True
         Else
            If Not (ein = "Ja") Then
               Messagebox "Eine Bearbeitung des Dokuments ist nur über die Schaltfläche ''Bearbeiten'' möglich", OK, "Fehler"
               continue = False
            End If            
         End If
      End If
   End If
End Sub}



mein postopen so:
_{Sub Postopen(Source As Notesuidocument)
   source.EditMode = False
End Sub}

die meldung erscheint, sonst passiert wieder nix

danke nochmals
marc

[Axel]

die meldung erscheint, sonst passiert wieder nix

Hi,

was heisst das? Was passiert nicht und was sollte denn passieren?

Ich habe das in grauer Vorzeit auch mal versucht auf diesem Wege das Editieren zu kontrollieren. Irgendwann habe ich dann aufgegeben, da es immer ein Weg gegeben hat, das Dokument im Editmodus zu öffnen.

Ich würde das, so Action Kalle auch schon vorgeschlagen hat mit Autorenfeldern regelt. Damit bekommst du das relativ einfach wasserdicht.

Axel
 

[gentleman]

die meldung erscheint, sonst passiert wieder nix

Hi,

was heisst das? Was passiert nicht und was sollte denn passieren?

hi,
also durch mein script oben ist nur noch das öffnen über die ansicht möglich... der rest funzt einwandfrei! nur wenn ich über strg+b in der ansicht (zum beispiel) in den bearbeiten modus will, kommt zwar die meldung (bearbeitung nur über button möglich) aber nach der bestätigung des fehlers ist und bleibt er im bearbeiten modus.

da sollte er das dok aber dann eigentlich sperren.

danke
marc

[Axel]

Hi,

ist eigentlich auch klar warum.

Ich denke er läuft dabei auf folgendes Codestück:

...
        Else
            If Not (ein = "Ja") Then
               Messagebox "Eine Bearbeitung des Dokuments ist nur über die Schaltfläche ''Bearbeiten'' möglich", OK, "Fehler"
               continue = False
            End If           
...

Der Hund liegt in der Zeile

      continue = False

begraben.


Auszug aus der Designer-Hilfe:
...
Continue
Boolean. Read-write. Indicates whether or not the document will change modes. Initially set to True. Set this parameter to False if you do not want the document to change modes.
...

Da steht ganz deutlich, wenn Continue auf False gesetzt wird, wird der Modus nicht geändert. Also bleibt er in deinem Fall im Edit - Modus.

Ich kann dir nur nochmal raten, arbeite mit Autorenfeldern


Axel

[gentleman]

hi,

jo das problem is wenn ich continue = True mach, dann kann ich gar nimmer bearbeiten

na gut, dann schau ich mir das mit den autorenfeldern an

vielen dank
marc

[koehlerbv]

Das Abfragen des EditMode steht auch an der völlig falschen Stelle.
Wenn Du allerdings tatsächlich das Bearbeiten gänzlich sperren willst (also nicht zum Beispiel Änderungen nur noch über Buttons zulassen willst oder ähnliche Konstrukte, die das Sperren des "normalen" EditModes via QueryModeChange begründen), dann musst Du natürlich unbedingt Autorenfelder verwenden.

Bernhard

[gentleman]

Hi,

also sollte jemand das gleiche suchen, hier meine lösung.
Es funktioniert nämlich doch! mein chef hats hingebracht:

in den queryopen das script rein:
_{Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
   Dim session As New NotesSession     
   Dim acl As notesacl
   Dim entry As notesaclentry
   Dim ein As String
   ein = session.GetEnvironmentString("ProblemEintritt")
   Set db = session.CurrentDatabase
   Set acl = db.ACL
   Set entry = acl.GetEntry(Session.UserName)
   If Not isnewdoc Then
      If source.document.dok_status(0) = "6. Abgeschlossen" And Mode = 1 And Not entry.IsRoleEnabled( "[Admin]" ) Then
         continue = False
         Messagebox "Das Dokument ist bereits abgeschlossen. Keine Bearbeitung möglich!" ,OK, "Hinweis"
      Else
         If Mode = 1 And Not entry.IsRoleEnabled( "[Admin]" ) And Not (ein = "Ja") Then
            continue = False
            Messagebox "Eine Bearbeitung des Dokuments ist nur über die Schaltfläche ''Bearbeiten'' möglich" ,OK, "Hinweis"
         End If
      End If
   End If
End Sub}


und in den querymodechange das hier rein:
_{Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
   Dim session As New NotesSession     
   Dim workspace As New NotesUIWorkspace
   Dim doc As NotesDocument
   Dim uidoc As NotesUIDocument
   Dim db As NotesDatabase
   Dim ein As String
   ein = session.GetEnvironmentString("ProblemEintritt")
   Set uidoc = workspace.CurrentDocument
   Set doc = uidoc.document 
   Dim acl As notesacl
   Set db = session.CurrentDatabase
   Dim entry As notesaclentry
   Set acl = db.ACL
   Set entry = acl.GetEntry(Session.UserName)
   If doc.dok_status(0) = "6. Abgeschlossen" And Not entry.IsRoleEnabled( "[Admin]" ) Then
      Messagebox "Dokument ist bereits abgeschlossen!", OK, "Fehler"
      continue = False
   Else
      If doc.dok_status(0) = "hugo" Then
         continue = True
      Else
         If Not (ein = "Ja") Then
            Messagebox "Eine Bearbeitung des Dokuments ist nur über die Schaltfläche ''Bearbeiten'' möglich", OK, "Fehler"
            continue = False   
         End If
      End If
   End If
End Sub}



sucht bestimmt noch jemand
marc

[koehlerbv]

Das ist aber nun etwas anderes als ursprünglich gewollt - jetzt kann ja das Dokument gar nicht mehr geöffnet werden ...

Wenn das Bearbeiten wirklich komplett verhindert werden soll, geht das nur über Autorenfelder. So wie jetzt schreibt man sich ein kleines Agentileinchen und setzt seine Felder eben selber 

Bernhard

[gentleman]

Das ist aber nun etwas anderes als ursprünglich gewollt - jetzt kann ja das Dokument gar nicht mehr geöffnet werden ...

Doch, aber eben nur über die Schaltfläche "Bearbeiten".
Und der Admin kommt immer rein!
Ich finds sehr gut so

trotzdem danke
marc