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;