Den Edit-Modus=False über einen Button auf EditModus=True setzen

[Marshuhn]

Hallo Spezies,

ich habe zwar schon im Forum rauf und runter gesucht, aber ich habe nicht die richtige Lösung gefunden.

Nachdem eine Resource in der Anwendung Raumreservierung gebucht wurde, wird das Edit-Mode durch das Postopen:

Sub Postopen(Source As Notesuidocument)
   If (source.InPreviewPane) Then Exit Sub
   Call uiresdoc.PostOpen()
   If Not(source.IsNewDoc) Then source.EditMode= False   
End Sub

auf False gesetzt. Ich möchte aber, dass bestimmte Admins über einen Button den Edit Modus auf True setzen können.

Über einen Button lässt sich das EditMode nicht wieder auf true setzen.

Wer kann mir hier weiterhelfen.

Danke für Eure Hilfe.

Marshuhn

[Semeaphoros]

Was steht denn im QueryChange? Abgesehen davon halte ich diesen Eingriff für ziemlich heikel. Hast Du schon mal analysiert, was das Objekt UIResDoc da im Hintergrund noch so alles macht?

[klaussal]

so etwas wie:
@if(@contains(@usernameslist("[Admin]));continue = True;"")
noch einbauen

[Marshuhn]

Hallo,

im QueryOpen läuft folgende Prozedur ab:

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
   Dim version As Variant   
   
   version=Evaluate("@Version")
   If Cint(version(0))<163 Then
      Msgbox "Sie müssen die Schaltfläche 'Reservierung erstellen' verwenden, um eine Reservierung zu erstellen."   
      continue=False
   End If
   
   If (source.InPreviewPane) Then Exit Sub
   
   Set uiresdoc = CSUIDocOpen(3, source, mode, isnewdoc, continue)   
   
End Sub

Der einzige Wer, der mir geliefert wird ist:

UIEVENTDOCUMENT.

@KLAUSS: Da hier alles in Script vorgegeben ist, möchte ich die Sache auch in der Script-Sprache (wenn möglich) lösen. Trotzdem danke

Marshuhn

[Tode]

Es ist AUSDRÜCKLICH von den Notes- Entwicklern so gewünscht, dass eine Reservierung im Nachhinein NICHT MEHR bearbeitet werden kann...

Wenn Du das abänderst, dann wirst Du die gesamte Reservierungs- Logik zerstören... Das ganze ist ein HOCHKOMPLEXES zusammenspiel verschiedener
Datenbanken und Servertasks... Und für die Fehler die dann aus Deiner Änderung resultieren, bist DU SELBST verantwortlich... den bisherigen Fehler kannst Du dagegen direkt auf IBM / Lotus schieben...

Jeder, den ich kenne, sagt, dass das ein QUATSCH ist, dass man Reservierungen nicht ändern kann... Aber wenn das so einfach wäre, dann hätten die Entwickler von Notes sicher nicht bis R6 gewartet, bis sie diesen "Bug" behoben haben, und damit weltweit Millionen User verärgert...

Gruß
Tode

[Semeaphoros]

Ich kann mich dem von Tode gesagt nur ausdrücklich und mit Nachdruck anschliessen.

[Marshuhn]

Ok, dann habe ich wohl Pech gehabt. Da wir aber zum Anfang nächsten Jahes die Server auf 6.X migrieren werden, werde ich darauf drängen, dass dann diese Datenbank in der 6er Version schnell nachgezogen wird.

Trotzdem vielen Dank für alle Antworten.

Gruß

Marshuhn