Artikelverbrauch per Periode

[Timo Lässer]

Hallo zusammen,

ich bin Quereinsteiger und noch grün hinter den Ohren was meine Programmierkenntnisse betrifft. Jetzt aber zu meinem Problem:

Ich möchte einen Report erstellen, der mir anhand der Tabelle "Artikelposten" die Verkauften und Verbrauchten Artikel (Menge) anzeigt für ein Jahr.
Ich schaffe es mir die Gesamtmenge ausrechnen zu lassen, aber habe leider keinen Plan wie ich das auf die einzelnen Quartale aufsplitten kann.

Kann mir jemand dabei helfen?

So sieht mein Code bisher aus:

Code:

//Datum erfinden
bDatum := TODAY();
vDatum := CALCDATE('LT-1J',bDatum);

// Verbrauchsstatistik beschaffen
gVerbrauch1 := 0;
CLEAR(gItemLedger);
gItemLedger.RESET;
gItemLedger.SETFILTER(gItemLedger."Item No.","Item No.");
gItemLedger.SETFILTER(gItemLedger."Location Code",'=%1',"Location Code");
gItemLedger.SETFILTER(gItemLedger."Document Date",'%1..%2',vDatum,bDatum);
gItemLedger.SETFILTER(gItemLedger."Entry Type",'=%1',gItemLedger."Entry Type"::Consumption);
IF gItemLedger.FIND('-') THEN BEGIN
          REPEAT
             gVerbrauch1 := gVerbrauch1 + gItemLedger.Quantity;
          UNTIL gItemLedger.NEXT =0;
END;

gVerbrauch2 := 0;
CLEAR(gItemLedger);
gItemLedger.RESET;
gItemLedger.SETFILTER(gItemLedger."Item No.","Item No.");
gItemLedger.SETFILTER(gItemLedger."Location Code",'=%1',"Location Code");
gItemLedger.SETFILTER(gItemLedger."Document Date",'%1..%2',vDatum,bDatum);
gItemLedger.SETFILTER(gItemLedger."Entry Type",'=%1',gItemLedger."Entry Type"::Sale);
IF gItemLedger.FIND('-') THEN BEGIN
          REPEAT
             gVerbrauch2 := gVerbrauch2 + gItemLedger.Quantity;
          UNTIL gItemLedger.NEXT =0;   
END;

Zuletzt geändert von Timo Lässer am 9. April 2009 09:04, insgesamt 1-mal geändert.
Grund: C/AL-Code der besseren Lesbarkeit halber in [code]-Blöcke gepackt

[Beitrag aus dem Download-Center nach NAV 4.xx verschoben.]

Gruß, Timo Lässer
MSDynamics.de-Team