27. Oktober 2006 00:03
6. Dezember 2006 12:50
RoundLoop - OnPreDataItem()
MoreLines := PurchLine.FIND('+');
WHILE MoreLines AND (PurchLine.Description = '') AND (PurchLine."Description 2"= '') AND
(PurchLine."No." = '') AND (PurchLine.Quantity = 0) AND
(PurchLine.Amount = 0) DO
MoreLines := PurchLine.NEXT(-1) <> 0;
IF NOT MoreLines THEN
CurrReport.BREAK;
//voy+ Sortierung der Zeilen
PurchLine.SETCURRENTKEY("Document Type","Document No.","Expected Receipt Date");
//voy-
PurchLine.SETRANGE("Line No.",0,PurchLine."Line No.");
SETRANGE(Number,1,PurchLine.COUNT);
CurrReport.CREATETOTALS(PurchLine."Line Amount",PurchLine."Inv. Discount Amount");