Domino 9 und frühere Versionen > ND6: Entwicklung

Postopen=> EditMode sperren

(1/2) > >>

Selin:
Hallo Zusammen,

ich habe folgendes Skript im Postopen Event. Bis zum Umstellung auf 6 hat es auch funktioniert.
Nun ist es aber so, wenn ich ein neues Dokument erstelle, dessen Maske dieses Evet hat, bekomme ich die Meldung "Dokumentbefehl ist nicht verfügbar".
Wenn ich aber bestehende Dokumente (mit dieser Maske erstellt) öffne, kommt keine Meldung.
Der Debugger zeigt den Fehler bei "source.EditMode = False.

Hat jemand ne Idee, warum es nicht mehr funktioniert?

Danke + Gruß
selin

Sub Postopen(Source As Notesuidocument)
   currentSperren = source.FieldGetText ("Sperren")
   If (currentSperren <> "offen") Then
      source.EditMode = False
      continue = True
      
   End If
End Sub

koehlerbv:
Hast den den Code unter R6 mal neu kompiliert? Fehlerhaft ist an der Zeile nämlich nichts.

Bernhard

Selin:
Hallo Bernhard,

habe ich gerade getan und die Meldung erscheint immer noch...

koehlerbv:
Ich habe mal fix ein PostOpen bei mir herausgesucht:

--- Code: ---Sub Postopen (Source As Notesuidocument)

'Prevent editing a signed or discarded entry:
If  (Source.EditMode = True) And (Source.Document.Status (0)  <> "") Then
Source.EditMode = False 'This triggers the QueryModeChange event !
End If

End Sub
--- Ende Code ---

Und das funktioniert natürlich unter R4, R5, R6 und R7. Und R3 nicht  ;D ;D

Spass beiseite: Das Problem muss an anderer Stelle zu suchen sein.

Bernhard

Selin:
habe es auch mal umgeschrieben, wie in deinem Script

Sub Postopen (Source As Notesuidocument)
   
      If  (Source.EditMode = True) And (Source.FieldGetText("Sperren")  <> "offen") Then
      Source.EditMode = False       
   End If
   
End Sub

aber hmmm, geht nicht.

Im QueryModeChange Event habe ich folgendes stehen:

Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
   If Not ( source.EditMode ) Then
      currentSperren = source.FieldGetText( "Sperren" )
      If ( currentSperren <> "" ) Then
         Messagebox _
         ( "Document available for browsing only." )
         continue = False
      End If
   End If
End Sub

Dann wird das wohl auch nicht funktionieren

Navigation

[0] Themen-Index

[#] Nächste Seite