Hallo liebe Forumsmitglieder,

ich bräuchte Euer Schwarmwissen.

Ich habe eine Artikel Datenbank in denen es zu einem Artikel auch sein kann das hierfür noch 2,3 oder 4 andere Artikel dazugehören können. Mit dem unten aufgeführten Code werden diese dann zu einer Bestellung ALLE hinzugefügt. Jetzt kann es aber auch sein das nicht alle Artikel benötigt werden sondern von 4 nur 2 dies würde ich gerne über einen Filter oder Dialog Auswahl hinzufügen können oder eben nicht.

Da fehlt mir der Ansatz wo ich das zwischen bauen kann.

Würde mich über Hilfe freuen.

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