Domino 9 und frühere Versionen > Entwicklung

Probleme mit Postopen

<< < (2/3) > >>

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:

--- Zitat von: gentleman am 20.10.04 - 17:13:12 ---die meldung erscheint, sonst passiert wieder nix :(

--- Ende Zitat ---

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:

--- Zitat von: Axel am 20.10.04 - 18:24:46 ---
--- Zitat von: gentleman am 20.10.04 - 17:13:12 ---die meldung erscheint, sonst passiert wieder nix :(

--- Ende Zitat ---

Hi,

was heisst das? Was passiert nicht und was sollte denn passieren?
--- Ende Zitat ---

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

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

vielen dank :)
marc

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete