if not Menge then
    alert("Keine Menge eingegeben")
else
    let myR := Nr;
    let addCheck := false;
    let visit := this;
    let myANZ := Menge;
    let myART := fxArtNummer;
    if Menge and fxArtNummer then
        if cnt(Bestellpositionen[Artikel.'Art-Nr' = myART]) != 0 then
            if dialog("ACHTUNG! ACHTUNG!", "Dieser Artikel " + myART + " wurde bereits übernommen! Trotzdem übernehmen?", ["Ja", "Nein"]) = "Ja" then
                addCheck := true
            end
        else
            addCheck := true
        end
    end;
    if addCheck then
        let thisArt := visit.first((select Artikel)['Art-Nr' = myART]);
        let myArts := [number(thisArt)];
        if thisArt.'zugrhörigDynamisch' then
            myArts := array(myArts, numbers(thisArt.'zugrhörigDynamisch'))
        end;
        for i in myArts do
            let newPosition := (create Bestellpositionen);
            let postionNr := max(Bestellpositionen.Pos) + 1;
            newPosition.(
                Artikel := record(Artikel,i);
                Menge := visit.Menge;
                Besuche := visit;
                Preis := record(Artikel,i).Listenpreis;
                Auswahl := visit.Auswahl;
                'Notiz zum Artikel' := visit.'Notiz zum Artikel'
            )
        end;
        if Artikelauswahl.'zugrhörigDynamisch' then
            alert("Ebenfalls hinzugefügt: " + text(Artikelauswahl.'zugrhörigDynamisch'))
        end;
        Menge := "";
        Artikelauswahl := 0;
        Auswahl := 1;
        Preis := 1;
        'Notiz zum Artikel' := ""
    else
        alert("Artikel wurde nicht übernommen!");
        Menge := "";
        Artikelauswahl := 0
    end
end