4. Juni 2007 16:06
4. Juni 2007 16:15
CALCFIELDS("Amount (LCY)");
4. Juni 2007 16:30
DtldCustLedgEntry.CALCSUMS("Amount (LCY)");
4. Juni 2007 16:41
FOR i := 1 TO 5 DO BEGIN
DtldCustLedgEntry.SETCURRENTKEY("Customer No.","Initial Entry Due Date","Posting Date");
DtldCustLedgEntry.SETRANGE("Customer No.","No.");
DtldCustLedgEntry.SETRANGE("Posting Date",0D,StartDate);
DtldCustLedgEntry.SETRANGE("Initial Entry Due Date",PeriodStartDate[i],PeriodStartDate[i + 1] - 1);
// ---- Hier setzt du Satzmarken ----
DtldCustLedgEntry.MARKEDONLY(TRUE);
DtldCustLedgEntry.CALCSUMS("Amount (LCY)");
CustBalanceDueLCY[i] := DtldCustLedgEntry."Amount (LCY)";
IF CustBalanceDueLCY[i] <> 0 THEN
PrintCust := TRUE;
END;
5. Juni 2007 07:36
AmountLCY := 0;
IF DtldCustLedgEntry.FINDFIRST THEN REPEAT
IF gr_CustLedgEntry.GET(DtldCustLedgEntry."Cust. Ledger Entry No.") THEN
IF gr_CustLedgEntry."DPay Invoice Type" <> gr_CustLedgEntry."DPay Invoice Type"::"Down Payment Invoice" THEN
AmountLCY += DtldCustLedgEntry."Amount (LCY)";
UNTIL DtldCustLedgEntry.NEXT = 0;
CustBalanceDueLCY[i] := AmountLCY;