uiDoc ohne Bearbeitunsmodus aktualisieren

[Durri]

Hallo Bernhard,
ich nochmal :-) - ich habe jetzt im PostOpen den u.a. String drin und bekomme bei einem neuen Dokument den Fehler "Document Command is not available".  Lösche ich den PostOpen, kommt auch der Fehler nicht mehr.

Sub Postopen(Source As Notesuidocument)
'Verhindert die Editierung aus der Ansicht heraus mit Strg+B
   If (Source.EditMode = True) Then
      Source.EditMode = False
   End If
End Sub

Viele Grüße
Michael

[Axel]

Hi,

versuch's mal so:

Sub Postopen(Source As Notesuidocument)
'Verhindert die Editierung aus der Ansicht heraus mit Strg+B
   If (Source.EditMode = True) And Not(Source.IsNewDoc) Then
      Source.EditMode = False
   End If
End Sub

Axel

[Durri]

Hi Axel,
danke Dir, 's funzt jetzt
Gruß
Michael

[Durri]

Hallo beisammen,

ich möchte mein o. a. Script

Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
   Dim Sperre As String   
   Sperre = source.FieldGetText("Sperre")
   If Sperre = "ja" Then
      Success = Messagebox ("Das Dokument ist historisch, ausgebucht oder archiviert und kann nicht mehr bearbeitet werden!",0+64,"Fehler!")
      Continue = False
   Else
      Continue = True
   End If
End Sub

noch erweitern und zusätzlich verhindern, dass Antwortdokumente editiert werden können.
Grundsätzliche Bedingung soll sein, dass Dokumente, die im Feld Sperre den Wert "ja" haben nicht editiert werden können. Das Feld Sperre wird über bestimmte Dokument-Stati automatisch bei Statusänderung gesetzt.
Daneben sollen alle Antwortdokumente von nicht-gesperrten Dokumenten ebenfalls nicht bearbeitet werden können.
Erste Möglichkeit, so dachte ich, wäre, das Feld Sperre in der Antwort in dem Moment auf "ja" zu setzen, wenn das Dokument zur Antwort wird. Ich hab's leider nicht hinbekommen.
Eine zweite Möglichkeit wäre doch wohl, 'doc.IsResponse' in das o. a. Script einzubauen. Ich habs so versucht:
   If Sperre = "ja" Or doc.IsResponse Then
Hat auch nicht funktioniert - bekomme Fehler.
Leider bin ich (noch) krasser Script-Laie und auf die eine oder andere Hilfestellung angewiesen. Wäre super, wenn ich die hier bekäme.

Vielen Dank im Voraus!!!
Michael

[mibo11]

Hallo Michael,

vermutlich hast du noch kein Objekt für doc erzeugt. Versuche es doc bitte einmal mit diesem Code:


Sub Querymodechange(Source As Notesuidocument, Continue As Variant)
   Dim Sperre As String   
   Dim doc as NotesDocument
   Set doc = source.Document
   Sperre = source.FieldGetText("Sperre")
    If Sperre = "ja" Or doc.IsResponse Then
      Success = Messagebox ("Das Dokument ist historisch, ausgebucht oder archiviert und kann nicht mehr bearbeitet werden!",0+64,"Fehler!")
      Continue = False
   Else
      Continue = True
   End If
End Sub


Gruß Sascha

[Durri]

Hi Sascha,
danke, jetzt klappt's. War ja doch ganz einfach - ich sach ja: Script-Laie.

Danke u. schönes Wochenende!
Michael

[mibo11]

Hallo Michael,

gern geschehen und ebenfalls ein schönes Wochenende. 

Sascha