0

Dialog hängt

Grüßt euch,

hab bestimmt misst zusammen gebastelt. Der Dialog hängt ganz schön. Ohne geht es schnell. 

Wie kann ich es besser lösen?

let mynr := number('Datenübernahme aus Aufträgen');
let serch := first((select 'Aufträge')[number(Nr = mynr)]);
let Na := serch.Name;
let Vo := serch.Vorname;
let str := serch.'Straße';
let Pl := serch.PLZ;
let ot := serch.Ort;
let Te := serch.'Telefon 1';
let Te1 := serch.'Telefon 2';
let KV := serch.'KV-Nr.';
let myArr := "Rechnungsinformation: " + "
" + Na + " - " + Vo + "

" + "
" + "KV:  " + KV;
let bb := dialog("Bitte wählen", myArr, ["Frau", "Herr", "Firma", "andere", "abbrechen"]);
if bb = "Frau" then
    Anrede := 2;
    'Nachname oder Zusatz für Empfänger in PDF' := Na;
    Vorname := Vo;
    'Straße Nr' := str;
    PLZ := Pl;
    Ort := ot;
    'Telefon 1' := Te;
    'Telefon 2' := Te1;
    'Aufträge' := serch
else
    let bb := dialog("Bitte wählen", myArr, ["Frau", "Herr", "Firma", "andere", "abbrechen"]);
    if bb = "Herr" then
        Anrede := 1;
        'Nachname oder Zusatz für Empfänger in PDF' := Na;
        Vorname := Vo;
        'Straße Nr' := str;
        PLZ := Pl;
        Ort := ot;
        'Telefon 1' := Te;
        'Telefon 2' := Te1;
        'Aufträge' := serch
    else
        let bb := dialog("Bitte wählen", myArr, ["Frau", "Herr", "Firma", "andere", "abbrechen"]);
        if bb = "Firma" then
            Anrede := 3;
            Firma := Na;
            Vorname := Vo;
            'Straße Nr' := str;
            PLZ := Pl;
            Ort := ot;
            'Telefon 1' := Te;
            'Telefon 2' := Te1;
            'Aufträge' := serch
        else
            let bb := dialog("Bitte wählen", myArr, ["Frau", "Herr", "Firma", "andere", "abbrechen"]);
            if bb = "andere" then
                Anrede := 4;
                'Nachname oder Zusatz für Empfänger in PDF' := Na;
                Vorname := Vo;
                'Straße Nr' := str;
                PLZ := Pl;
                Ort := ot;
                'Telefon 1' := Te;
                'Telefon 2' := Te1;
                'Aufträge' := serch
            else
                let bb := dialog("Bitte wählen", myArr, ["Frau", "Herr", "Firma", "andere", "abbrechen"]);
                if bb = "abbrechen" then
                    alert("Vorgang abgebrochen!")
                end
            end
        end
    end
end

2 Antworten

null
    • Ninox-Professional
    • planoxpro
    • vor 2 JahrenMon, December 19, 2022 at 2:38 PM UTC
    • Gemeldet - anzeigen

    Kann sein, dass ich auf die Schnelle was übersehen habe, aber das Prinzip wird wohl deutlich:

    let mynr := number('Datenübernahme aus Aufträgen');
let serch := first((select 'Aufträge')[number(Nr = mynr)]);
let myArr := "Rechnungsinformation: " + "
" + Na + " - " + serch.Vorname + "
" + "
" + "KV:  " + serch.'KV-Nr.';
let bb := dialog("Bitte wählen", myArr, ["Frau", "Herr", "Firma", "andere", "abbrechen"]);
if bb != "abbrechen" then
    Anrede := switch bb do
        case "Frau": 2
        case "Herr": 1
        case "Firma": 3
        case "andere": 4
    end;
    'Nachname oder Zusatz für Empfänger in PDF' if bb := 3 then serch.Name else null;
    Vorname := serch.Vorname;
    'Straße Nr' := serch.'Straße';
    PLZ := serch.PLZ;
    Ort := serch.Ort;
    'Telefon 1' := serch.'Telefon 1;
    'Telefon 2' := serch.'Telefon 2';
    'Aufträge' := serch
end
      • Michi.1
      • vor 2 JahrenMon, December 19, 2022 at 2:46 PM UTC
      • Gemeldet - anzeigen

      planox. pro danke dir,

      setz ich um.👍

Anmelden, um zu antworten

Content aside

  • Status Answered
  • vor 2 JahrenMon, December 19, 2022 at 2:46 PM UTCZuletzt aktiv
  • 2Antworten
  • 64Ansichten
  • 2 Folge bereits