[OFFEN]FactBox - Aller Art Abgängen last 12M
Verfasst: 6. Februar 2019 09:33
Guten Morgen,
ich brauche noch ein Paar Augen die auf mein Code draufschaut denn ich finde den Fehler nicht
Bin in der Page 9326 - Freigegebene FA's
Eine neue FactBox soll erstellt werden. Darin sollen alle Abgänge in einer Periode angezeigt werden. Habe 12Monate als Richtwert erstmal genommen.
Neue FactBox erstellt Source die Itemtabelle und in der Page 9326 eingebunden. Das funktioniert. Wenn ich durch die Liste mit den Cursortasten navigiere ändert sich auch die Artikelnummer.
Nun habe ich eine Funktion in der FactBox angelegt.
Item_lRec - lokale Variable auf die Item Tabelle
ItemLedgerEntry_lRec - lokale Variable auf die Item Ledger Entry Tabelle
TotalAbgang - Decimal - globale Variable
Die Abgänge in der Artikelpostentabelle sind: Sale (Verkauf), Consumption (Verbrauch) und Negative Adjmt. (Abgang)
Beim kompilieren mit F11 kommt kein Syntaxfehler.
Leider bekomme ich keine Werte zurück. Bei meinem Testartikel wenn ich die Artikelpostentabelle aufrufe und die oben genannten Filter eingebe, habe ich einen Abgang von 26.600 Stück
Habt ihr vielleicht eine Idee warum mein Code nicht funktioniert? Gibt es eventuell einen eleganteren bzw. einfacheren Lösungsansatz?
Herzlichen Dank für eure Hilfe
Beste Grüße
ls
ich brauche noch ein Paar Augen die auf mein Code draufschaut denn ich finde den Fehler nicht
Bin in der Page 9326 - Freigegebene FA's
Eine neue FactBox soll erstellt werden. Darin sollen alle Abgänge in einer Periode angezeigt werden. Habe 12Monate als Richtwert erstmal genommen.
Neue FactBox erstellt Source die Itemtabelle und in der Page 9326 eingebunden. Das funktioniert. Wenn ich durch die Liste mit den Cursortasten navigiere ändert sich auch die Artikelnummer.
Nun habe ich eine Funktion in der FactBox angelegt.
Item_lRec - lokale Variable auf die Item Tabelle
ItemLedgerEntry_lRec - lokale Variable auf die Item Ledger Entry Tabelle
TotalAbgang - Decimal - globale Variable
Die Abgänge in der Artikelpostentabelle sind: Sale (Verkauf), Consumption (Verbrauch) und Negative Adjmt. (Abgang)
- Code:
IF Item_lRec.GET("No.") THEN BEGIN
ItemLedgerEntry_lRec.RESET;
ItemLedgerEntry_lRec.SETCURRENTKEY("Item No.","Entry Type","Variant Code","Drop Shipment","Location Code","Posting Date");
ItemLedgerEntry_lRec.SETRANGE("Item No.",Item_lRec."No.");
ItemLedgerEntry_lRec.SETFILTER("Entry Type",'%1|%2|%3',ItemLedgerEntry_lRec."Entry Type"::Sale,
ItemLedgerEntry_lRec."Entry Type"::Consumption,
ItemLedgerEntry_lRec."Entry Type"::"Negative Adjmt.");
ItemLedgerEntry_lRec.SETRANGE("Posting Date",CALCDATE('-12M',WORKDATE),WORKDATE);
END;
IF ItemLedgerEntry_lRec.FINDSET THEN
REPEAT
TotalAbgang := ItemLedgerEntry_lRec.Quantity;
UNTIL
ItemLedgerEntry_lRec.NEXT = 0;
Beim kompilieren mit F11 kommt kein Syntaxfehler.
Leider bekomme ich keine Werte zurück. Bei meinem Testartikel wenn ich die Artikelpostentabelle aufrufe und die oben genannten Filter eingebe, habe ich einen Abgang von 26.600 Stück
Habt ihr vielleicht eine Idee warum mein Code nicht funktioniert? Gibt es eventuell einen eleganteren bzw. einfacheren Lösungsansatz?
Herzlichen Dank für eure Hilfe
Beste Grüße
ls