Domino 9 und frühere Versionen > Entwicklung

Probleme mit Postopen

(1/3) > >>

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ß :D

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


--- Zitat von: koehlerbv am 20.10.04 - 16:49:29 ---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.

--- Ende Zitat ---

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

so in etwa?

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



--- Zitat von: koehlerbv am 20.10.04 - 16:49:29 ---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.

--- Ende Zitat ---

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

--- Ende Code ---

Jo !

@UserNamesList kannst Du mit Evaluate in LS verwenden.

HTH,
Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite