Verstecken von Inhalten wenn in Dialogbox geöffnet wird

[khsopro]

Hi,
folgendes: Ich habe ein Dokument, was einmal als Dialogbox geöffnet werden kann und einmal als 'normales' Dokument.

Nun möchte ich eine Zeile verstecken wenn das Dokument in der Dialogbox geöffnet wird. Hier dachte ich mir setze ich ein Flag in ein Feld. Dies funktioniert aber nur, wenn ich das Dokument in Bearbeitungsmodus in der Dialogbox öffne, sonst bekommt er das Flag nicht mit und zeigt den wert an.

Hat jemand vielleicht eine Idee?

CU
khsopro

[Driri]

Ich würde mal folgendes ausprobieren :

Erstell eine zweite Maske als Kopie der Originalmaske und laß dort das Feld weg. In der Dialogbox-Methode gibst Du dann diese Maske im ersten Parameter an.

[Werner Götz]

Wird die Dialogbox per Script geöffnet?
Dann könnte man an der entsprechenden Stelle im betroffenen Dokument vorher ein Feld setzen, welches dann eine HideWhen-Formel in der Maske "steuert" und das Feld nach der Dialogbox wieder löschen.

-Werner

[khsopro]

Erstell eine zweite Maske als Kopie der Originalmaske und laß dort das Feld weg. In der Dialogbox-Methode gibst Du dann diese Maske im ersten Parameter an.

Das wollte ich eigentlich vermeiden.

Dann könnte man an der entsprechenden Stelle im betroffenen Dokument vorher ein Feld setzen, welches dann eine HideWhen-Formel in der Maske "steuert" und das Feld nach der Dialogbox wieder löschen.

Das habe ich schon probiert. Wie schon beschrieben klappt das nur wenn das Dokument in Bearbeitungsmodus geöffnet wird.

[Werner Götz]

Wenn das Dokument beim Aufruf der Dialogbox als Parameter notesDocument (s. unten) übergeben wird, sollte auch im Lesemodus ein Feld gesetzt werden können.

flag = notesUIWorkspace.DialogBox( form$ , [autoHorzFit] , [autoVertFit] , [noCancel] , [noNewFields] , [noFieldUpdate] , [readOnly] , [title$] , [notesDocument] , [sizeToTable] , [noOkCancel] , [okCancelAtBottom] )


-Werner

[Johnson]

Du kannst dabei das Feld vor dem Aufruf der Dialogbox-Methode setzen.

Code

Dim db as NotesDatabase
Dim doc as NotesDocument
Dim s as NotesSession
Dim uiws as NotesUIWorkspace
Dim bln_result as Boolean

Set s = New NotesSession
Set db = s.CurrentDatabase
Set doc = db.CreateDocument
doc.Form = "BlaBlaBla"
doc.tmpShowCrazyRow = "0"

Set uiws = New NotesUIWorkspace
bln_result = uiws.DialogBox("BlaBlaBla", True, True, False, False, False, False, db.Title, doc, True)
...

In der Maske (hier: "BlaBlaBla") versteckst du dann die Zeile, wenn das Flag-Feld (hier: "tmpShowCrazyRow") den entsprechenden Wert hat.
Des weiteren kannst du das Flag-Feld, wenn die Dialogbox mit OK geschlossen wurde und der Rückgabewert True ist, wieder entfernen.

Prinzipiell tendiere ich aber auch zur Lösung mit zwei Masken, da die "normale" Maske weitaus flexiblere Bearbeitungsmöglichkeiten bieten kann, als eine Maske, die in einer Dialogbox geöffnet wird. Auch die Gestaltung kann sich erheblich unterscheiden, wenn Dialogboxen auf Grund der CI ein gewisses Aussehen erhalten.

[khsopro]

Okay, ich hab den Fehler. Ihr hab recht. Beim verkehrten Aufruf geschaut.

Danke für eure Antworten.