12. April 2017 09:47
ItemRec.CHANGECOMPANY('Mandant');
WertpostenRec.CHANGECOMPANY('Mandant');
SalesInvoiceLines.CHANGECOMPANY('Mandant');
SalesCrMemoLines.CHANGECOMPANY('Mandant');
ItemRec.SETCURRENTKEY("No.");
ItemRec.SETFILTER("No.", '1211|1415');
IF ItemRec.FIND('-') THEN
REPEAT
WertpostenRec.SETFILTER("Posting Date",EingangsDate);
WertpostenRec.SETFILTER("Item No.",ItemRec."No.");
WertpostenRec.SETCURRENTKEY("Item No.","Posting Date","Item Ledger Entry Type",
"Entry Type","Item Charge No.","Location Code","Variant Code");
IF WertpostenRec.FIND('-') THEN
REPEAT
SalesInvoiceLines.SETCURRENTKEY("Document No.");
SalesInvoiceLines.SETFILTER("Document No.",Terminal."Document No.");
SalesInvoiceLines.SETFILTER("Unit Price",'0.05');
IF SalesInvoiceLines.FIND('-') THEN
REPEAT
SalesLMenge+=SalesInvoiceLines.Quantity;
UNTIL SalesInvoiceLines.NEXT(+1)=0;
SalesCrMemoLines.SETCURRENTKEY("Document No.");
SalesCrMemoLines.SETFILTER("Document No.",Terminal."Document No.");
SalesCrMemoLines.SETFILTER("Unit Price",'1.00');
IF SalesCrMemoLines.FIND('-') THEN
REPEAT
GutschriftMenge+=SalesCrMemoLines.Quantity;
UNTIL SalesCrMemoLines.NEXT(+1)=0;
UNTIL WertpostenRec.NEXT(+1)=0;
SummeSalesInvoiceLMenge+=SalesLMenge;
SalesLMenge:=0;
SummeGutschriftMenge+=GutschriftMenge;
GutschriftMenge:=0;
UNTIL ItemRec.NEXT(+1)=0;
Aktionsmenge:= SummeSalesInvoiceLMenge - SummeGutschriftMenge;
SummeSalesInvoiceLMenge:=0;
SummeGutschriftMenge:=0;
ItemRec.RESET;
SalesInvoiceLines.RESET;
SalesCrMemoLines.RESET;
WertpostenRec.RESET;
12. April 2017 11:23
12. April 2017 11:40
Natalie hat geschrieben:Schau doch mal im Debugger nach, ob er überhaupt bis zu den Rechnungszeilen kommt, oder ob später was der Variablenzuweisung schief läuft.
Natalie hat geschrieben:Warum gehst du eigentlich den Umweg über die Wertposten? Du kannst doch auch direkt auf die Rechnungszeilen gehen, indem du zusätzlich auf das Buchungsdatum filterst.
13. April 2017 13:44