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