Hallo,

ich möchte gerne meinen Paketartikel auflösen. Soweit funktiert es auch, jedoch wird leider nicht der richtige Name eingetragen. Entweder nimmt er den Namen aus dem Paket oder nichts.

let myBland := Bundesland;
let myAusg := Ausgaben.Nr;
let myAnz := max('Artikel Verkauft'.Anzahl);
let _Auf := Nr;
if Buchungsart = 1 then
let anzAusgaben := cnt((select Ausgaben)[Bundesland = myBland and Nr >= myAusg]);
if anzAusgaben >= myAnz then
for _pos in (select Verkauft)[Auftrag.Nr = _Auf] do
if _pos.Preislistenposition.FlagSammelartikel then
let _Sammelartikel := _pos.Preislistenposition.Produkt;
let _Menge := number(_pos.Anzahl);
let _PLNr := _pos.Preislistenposition;
for _art in (select 'PL-Druck')[Preislistenposition = _PLNr] do
let Artikel := _art.Produkt;
let _aufl := (create Verkauft);
_aufl.(Ausgaben := myAusg);
_aufl.Preislistenposition.(Nr := Artikel);
_aufl.(Anzahl := _art.Menge * _Menge);
_aufl.(Titel := _art.Titel);
_aufl.(Anzeigen := _art.Anzeige);
_aufl.(Advertorial := _art.Advertorial);
_aufl.(Paketpreispos := _art.Preis);
_aufl.('2.Umschlag' := _art.Umschlag);
_aufl.(Buchung := 2);
_aufl.(Auftrag := _Auf)
end
end
end
end
end