0

dialog-Funktion in einen duplicate-Ablauf einbauen

Hallo Leo, 

wie Du mir sagtest, funktioniert die dialog-Funktion nur mit einem Button. Einen solchen Button habe ich mit einem Code belegt, den Du mir gestern gegeben hast und den ich für meine Zwecke angepasst habe. Er dupliziert einen Datensatz und zeigt dann den neuen Datensatz an; für diesen neuen Datensatz wünschte ich mir den Dialog zum Prüfbericht. Kann man das miteinander kombinieren?

Hier zunächst der Code, der bereits auf dem Button liegt:

let new := duplicate(this);
new.(Preisanmerkung := 1);
new.('Auflagehöhe' := "null");
new.(Auftragseingang := today());
new.(Versandtermin := "null");
new.('Bestell-Nr.' := "Eintragen!");
new.('AB Nr.' := "53--19");
new.(Stufe := 1);
new.(Aktuell := true);
new.('Mat C' := 4);
new.(Aktion := 2);
new.('Film prüfen' := 2);
new.('Mat A' := 4);
new.('Mat B' := 4);
new.(Farben := 4);
new.(Wunschtermin := "null");
new.('Notiz Farbbestand' := "null");
new.('Auftragsbestätigung?' := false);
openRecord(new)

---------

Dann die Nachfrage zum Prüfbericht, die für den neuen Datensatz bejaht oder verneint werden soll:

let myAnswer := dialog("Prüfbericht gefordert?", " ", ["Ja", "Nein"]);
if myAnswer = "Ja" then
'Prüfbericht gefordert' := true
else
'Prüfbericht gefordert' := false
end

 

----------

Ich habe schon versucht, beides zu kombinieren; funktioniert bei mir aber nicht...

Heino

2 Antworten

null
    • Leonid_Semik
    • vor 5 Jahren
    • Gemeldet - anzeigen

    Hallo Heino,

    ---

    let new := duplicate(this);
    new.(Preisanmerkung := 1;
    'Auflagehöhe' := "null";
    Auftragseingang := today();
    Versandtermin := "null";
    'Bestell-Nr.' := "Eintragen!";
    'AB Nr.' := "53--19";
    Stufe := 1;
    Aktuell := true;
    'Mat C' := 4;
    Aktion := 2;
    'Film prüfen' := 2;
    'Mat A' := 4;
    'Mat B' := 4;
    Farben := 4;
    Wunschtermin := "null";
    'Notiz Farbbestand' := "null";
    'Auftragsbestätigung?' := false);
    new.'Prüfbericht gefordert' :=
    let myAnswer := dialog("Prüfbericht gefordert?", " ", ["Ja", "Nein"]);
    if myAnswer = "Ja" then
    true
    else
    false
    end;
    openRecord(new)

    ---

    Leo

    • Heino
    • vor 5 Jahren
    • Gemeldet - anzeigen

    Funktioniert bestens, Leonid, ich danke Dir!

    Heino