Das Notes Forum

Domino 9 und frühere Versionen => Administration & Userprobleme => Thema gestartet von: Alexis am 29.07.03 - 09:51:44

Titel: Defaultwert eines Radiobuttons
Beitrag von: Alexis am 29.07.03 - 09:51:44
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


Titel: Re:Defaultwert eines Radiobuttons
Beitrag von: Axel am 29.07.03 - 12:03:14
Hi,

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


Axel

Titel: Re:Defaultwert eines Radiobuttons
Beitrag von: Alexis am 29.07.03 - 15:03:47
Sorry,

leider ohne Erfolg  :'(
Hat jemand noch eine Idee ???

Alexis
Titel: Re:Defaultwert eines Radiobuttons
Beitrag von: koehlerbv am 29.07.03 - 15:05:20
Post' mal den Code in Deinem Buhtong und ggf. den in Deinem Feld, daß Du durch diesen Button setzen möchtest.
Titel: Re:Defaultwert eines Radiobuttons
Beitrag von: Alexis am 29.07.03 - 15:20:56
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
Titel: Re:Defaultwert eines Radiobuttons
Beitrag von: Axel am 29.07.03 - 15:32:42
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
Titel: Re:Defaultwert eines Radiobuttons
Beitrag von: Alexis am 29.07.03 - 15:38:48
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
Titel: Re:Defaultwert eines Radiobuttons
Beitrag von: Axel am 29.07.03 - 15:50:32
Hi,

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


Axel

Titel: Re:Defaultwert eines Radiobuttons
Beitrag von: Alexis am 29.07.03 - 16:06:10
Hallo Alex,

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

Schade, trotzdem vielen Dank!

Alexis
Titel: Re:Defaultwert eines Radiobuttons
Beitrag von: Axel am 29.07.03 - 16:08:02
Hi,

du kannst in den Events auch Formeln einsetzen.

Axel
Titel: Re:Defaultwert eines Radiobuttons
Beitrag von: koehlerbv am 29.07.03 - 16:26:00
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 ?
Titel: Re:Defaultwert eines Radiobuttons
Beitrag von: Alexis am 29.07.03 - 16:42:45
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
Titel: Re:Defaultwert eines Radiobuttons
Beitrag von: Alexis am 29.07.03 - 16:48:30
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
Titel: Re:Defaultwert eines Radiobuttons
Beitrag von: Axel am 30.07.03 - 08:25:50
Hi,

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

Zitat
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
Titel: Re:Defaultwert eines Radiobuttons
Beitrag von: Alexis am 30.07.03 - 08:34:18
Bingo Axel,

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

Gruß
Alexis