Dateianhang gegen Bearbeitung sperren

[MasterminD]

Hallo,

mein erster Thread und schon eine so spezielle Frage 


Habe mich nun schon über eine Stunde mit der Hilfe beschäftigt aber nichts passendes gefunden.

Mein Problem:

Ich habe in einer Maske ein RTF (um eben zb. Word Doc anhängen zu können). Nun soll von der Programmierung her aber verhindert werden das zb. dieses angehängte Word Doc nach dem ein gewisses Flag gesetzt wurde, nicht mehr bearbeitet werden kann.

Kenne die Funktionen die "QueryChangeMode" bietet, aber diese verhindern das das gesamte Notes Dokument nicht mehr in den Edit-Modus wechselt. Es soll aber nur ein RTF und nicht das ganze Notes Dokument gesperrt werden.

Kennt da von euch wer eine Lösung?



Anbei noch das Script für den QueryChangeMode:

Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
   
   Dim W As New NotesUIWorkspace
   Dim UIDoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim agent As NotesAgent
   
   Set UIDoc = W.CurrentDocument
   Set doc = uidoc.Document
   
   If (UIDoc.FieldGetText ("DocLock") = "1" ) Then
      
      If Not ( source.EditMode ) Then
         Messagebox( _
         "ERR: Document is locked")
         continue = False
      End If
      
   End If
   
End Sub


mfg

[Untitled]

Wie wärs, wenn du das RTF Computed auf sich selbst machst? Das Problem ist dann, dass du Anhänge, meines Wissens nach, nur noch programmatisch einfügen kannst...

Grüsse Untitled

[MasterminD]

Sorry, eher unpassend.

Die Dateien sollen vom User angehängt werden, ein Approver kontrolliert diese auf Richtigkeit und sperrt diese dann. Dadurch soll die Informationen in den Dateien nach dem approve nicht mehr verändert werden.

Danke für die Hilfe.

cu

[m3]

Setz das Feld  mit dem Anhang in einen Abschnitt, den Du dann vor der Bearbeitung schützt.

[MasterminD]

Setz das Feld  mit dem Anhang in einen Abschnitt, den Du dann vor der Bearbeitung schützt.

Auch wenn ich jetzt dumm fragen muss. Und wie kann ich das dann mit Hilfe des Feldes "DocLock" steuern.

Es sollte so funzen:
DocLock ist default auf 0 (Anhang kann bearbeitet werde)
DocLock ist 1 (Anhang kann nur mehr gelesen werden); jedoch das restliche Notes Dokument kann weiterhin in den Editier Modus

cu

[m3]

Aus der Online-Hilfe:

To name the editors for a controlled-access section
  1.   Click the section title.
  2.   Choose Section - Section Properties.
  3.   Click the Formula tab.
  4.   Select Editable as the section type to allow the document creator to specify the section editors.
  5.   Select one of the Computed types to use a formula to define the section editors.
  6.   (Optional for an editable field; Required for a computed field) In the Properties box, write a formula to define who can edit the field, and click the check mark.

Abhängig vom Inhalt des Feldes DocLock liefert die Formel halt die entsprechenden Namen zurück.

[MasterminD]

Danke m3!!!

Hatt bestens Funktioniert *BerechneteAbschnitteSindMeineFreunde*

cu