Domino 9 und frühere Versionen > Entwicklung

uiDoc ohne Bearbeitunsmodus aktualisieren

<< < (5/6) > >>

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

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete