30. September 2015 05:45
TempArtikel.COPY(Item);
Kunden.COPYFILTERS(Customer);
FilterTextBelegNr := 'AR*|GU*';
i:=0;
IF Kunden.FINDSET THEN BEGIN
REPEAT
CLEAR(VerkaufHitlisteAbfrage);
VerkaufHitlisteAbfrage.SETRANGE(DatumsFilter,Datumvon,Datumbis);
VerkaufHitlisteAbfrage.SETRANGE(HerkunftsNrFilter,Kunden."No.");
VerkaufHitlisteAbfrage.SETFILTER(BelegNrFilter,FilterTextBelegNr);
VerkaufHitlisteAbfrage.OPEN;
WHILE VerkaufHitlisteAbfrage.READ DO BEGIN
TempArtikel.SETRANGE("No.",VerkaufHitlisteAbfrage.Artikelnr);
IF TempArtikel.FINDFIRST THEN BEGIN
i += 1;
TempWertposten.INIT;
TempWertposten."Entry No." := VerkaufHitlisteAbfrage.Lfdnr;
TempWertposten."Invoiced Quantity" := VerkaufHitlisteAbfrage.Menge; //"Valued Quantity";
TempWertposten."Sales Amount (Actual)" := VerkaufHitlisteAbfrage.Betrag;
TempWertposten."Cost Amount (Actual)" := VerkaufHitlisteAbfrage.Einstandsbetrag;
TempWertposten."Item Ledger Entry Quantity" := 0; //Wird für Menge2 verwendet
TempWertposten."Cost per Unit" := 0; //Wird für Betrag2 verwendet
TempWertposten."Cost Posted to G/L" := 0; //Wird für den Einstandpreis2 verwendet --> für die DB Berechnung
TempWertposten."Item No." := VerkaufHitlisteAbfrage.Artikelnr;
TempWertposten."Item Ledger Entry No." := VerkaufHitlisteAbfrage.Artikelposteneintrag;
TempWertposten.INSERT;
END;
END;
end;