Defaultwert eines Radiobuttons

[Alexis]

Hallöchen,

mein Problem ist folgendes:

Ich möchte aus einer Sicht mit mehreren Buttons Dokumente in den Editmode versetzen (@Command([EditDocument];"1")) und dabei den Wert eines Radiobuttons in der Maske beeinflussen.

Mit FIELD und @SetField wird der Wert erst nach dem Speichern des Dokumentes richtig übernommen.

Wo liegt der Haken?

Alexis

[Axel]

Hi,

versuch mal das Dokument mit @Command([ViewRefreshFields]) zu refreshen.


Axel

[Alexis]

Sorry,

leider ohne Erfolg  
Hat jemand noch eine Idee

Alexis

[koehlerbv]

Post' mal den Code in Deinem Buhtong und ggf. den in Deinem Feld, daß Du durch diesen Button setzen möchtest.

[Alexis]

Hallo,

hier der Code hinter dem Button:

FIELD Change:=Change;
@SetField("Change";"1");
@Command([ViewRefreshFields]);
@Command( [EditDocument];"1")

Das Feld "Change" ist vom Typ "Radio button" Editierbar
mit der Auswahl:
Nein | 0
Ja | 1

Doch 'ne Idee?

Alexis

[Axel]

Hi,

ich denke du solltest das Dokument erst in den Editmodus bringen und dann den Feldwert setzen.

FIELD Change:=Change;
@Command( [EditDocument];"1");
@SetField("Change";"1");
@Command([ViewRefreshFields]);


Axel

[Alexis]

Hallo Axel,

hat leider den selben Effekt: Maske öffnet nicht mit von mir gesetzten Attribut. Erst mit dem Speichern wird dieses richtig gesetzt.

Wusste gar nicht wie störrisch der Gaul LN ist.

Dank für jeden Tipp

Alexis

[Axel]

Hi,

du kannst das Feld auch im Postopen-Event der Maske setzen.


Axel

[Alexis]

Hallo Alex,

leider ist LotusScript für mich ein Buch mit sieben Siegeln.

Schade, trotzdem vielen Dank!

Alexis

[Axel]

Hi,

du kannst in den Events auch Formeln einsetzen.

Axel

[koehlerbv]

Bevor ich mich jetzt hier tiefer beschäftige: Es ist doch wohl so, daß der Wert nur gesetzt werden soll, wenn das Dokument über genau DEN Button in den EditMode versetzt wird ? Doch nicht bei jedem Öffnen, oder ?

[Alexis]

Hallo,

Fakt ist, dass der Wert von @SetField hinter dem Button auch nicht im "PostOpen" Event richtig übernommen wird (@Prompt zeigt mir den falschen Wert).

Was ist faul am Übergeben des Feldinhaltes vom Button zur Maske?
Gibt es eine Alternative zu @SetField?

Alexis

[Alexis]

Hallo koehlerbv,

exakt richtig: Nur wenn das gewählte Dokument über diesen Button in den EditMode gesetzt wird soll das Feld "Change" den Wert "1" annehmen.

Danke für jede Hilfe.

Alexis

[Axel]

Hi,

probier's mal damit. Erstelle dir in der entsprechenden Ansicht ein Aktionsbutton und füge folgendes Script ein.

Sub Click(Source As Button)
   
   Dim session As New NotesSession
   Dim workspace As New NotesUIWorkspace   
   Dim db As NotesDatabase
   Dim collection As NotesDocumentCollection
   Dim doc As NotesDocument
   Dim uidoc As NotesUIDocument
   
   Set db = session.CurrentDatabase   'Aktuelle Datenabnk
   Set collection = db.UnprocessedDocuments 'Markiertes Dokument in Kollektion  
   If collection.Count > 1 Then  'Prüfung ob nur ein Dokument markiert ist.
      Messagebox "Es darf nur ein Dokument markiert sein!", 16, "Demo"
      Exit Sub
   End If  'If collection.Count > 1 Then
   
   Set doc = collection.GetFirstDocument  'Erstes Dokument aus der Kollektion
   
   doc.Change = "1"  'Feldwert setzen
   
   Set uidoc = workspace.EditDocument(True,doc)  'Dokument im Editmodus öffnen
   Call uidoc.Refresh  'Dokument aktualisieren
   
End Sub

Das sollte funktionieren.


Axel

[Alexis]

Bingo Axel,

das Script funktioniert prima. Vielen Dank für Deine Mühe, auch für Deine Kommentierung im Script.

Gruß
Alexis