Logic not working - Aging report

Hi Nav Experts!

I have modified standard report 109:Customer - Summary Aging Simp., as per customer requirement.

My Logic is not working properly. details as follows:

here customer having additional fields 1. Cust. Payment date 2. Sus.Duedate

Example data:

Posting Date| Cust. Payment Date| Sus.DueDate | Amount
2008/7/15 | 2008/07/20 | 2008/08/20 | 840
2008/8/21 | 2008/09/20 | 2008/10/20 | 12,600
2008/10/16 | 2008/10/20 | 2008/11/20 | 12,600
2008/10/16 | 2008/10/20 | 2008/11/20 | 12,600


Startdate > Sus.DueDate will be Overdue
Example: Startdate --> 2008/12/24, then as per above data all invoices will display in overdue columns, if Startdate--> 2008/10/23 then as per above data, last two invoices should show in due columns and first 3 invoices should show in overdue column as sus.duedate is greaterthen Startdate.

Startdate < Sus.DueDate will be due and have to check cust. payment date of particular Invoice not posting date

Reprot format is :

---

....................................| Trade AR Due ......................... | Trade AR OverDue
SusDue Date | Document No. | less 30D | 31-60D | 61-90D | More | less 30D | 31-60D | 61-90D | More

---

My code as follows:

PrintCust := FALSE;

DtldCustLedgEntry.RESET;
DtldCustLedgEntry.SETRANGE(DtldCustLedgEntry."Customer No.",Customer."No.");

IF DtldCustLedgEntry.FIND('-') THEN

IF StartDate < DtldCustLedgEntry."Sus. DueDate" THEN BEGIN
FOR i := 1 TO 15 DO BEGIN
DtldCustLedgEntry.SETCURRENTKEY("Customer No.","Sus. DueDate","Cust. Payment Date");
DtldCustLedgEntry.SETRANGE("Customer No.","No.");
DtldCustLedgEntry.SETRANGE("Cust. Payment Date",0D,StartDate);
DtldCustLedgEntry.SETRANGE("Cust. Payment Date",PeriodStartDate,PeriodStartDate[i + 1] - 1);
DtldCustLedgEntry.CALCSUMS("Amount (LCY)");

CustLedgerEntryRec.RESET;
IF CustLedgerEntryRec.FIND('-') THEN BEGIN
CustBalanceDueLCY := DtldCustLedgEntry."Amount (LCY)";
END ELSE BEGIN
CustBalanceDueLCY := 0;
END;
IF CustBalanceDueLCY <> 0 THEN
PrintCust := TRUE;
END;
IF NOT PrintCust THEN
CurrReport.SKIP;

END ELSE BEGIN

// 2nd

PrintCust2 := FALSE;

FOR k := 1 TO 15 DO BEGIN
DtldCustLedgEntry2.SETCURRENTKEY("Customer No.","Sus. DueDate","Cust. Payment Date");
DtldCustLedgEntry2.SETRANGE("Customer No.","No.");
DtldCustLedgEntry2.SETRANGE("Sus. DueDate",0D,StartDate);
DtldCustLedgEntry2.SETRANGE("Sus. DueDate",PeriodStartDate2[k],PeriodStartDate2[k + 1] - 1);
DtldCustLedgEntry2.CALCSUMS("Amount (LCY)");
CustLedgerEntryRec2.RESET;
IF CustLedgerEntryRec2.FIND('-') THEN BEGIN
CustBalanceDueLCY2[k] := DtldCustLedgEntry2."Amount (LCY)";
END ELSE BEGIN
CustBalanceDueLCY2[k] := 0;
END;
IF CustBalanceDueLCY2[k] <> 0 THEN
PrintCust2 := TRUE;
END;
IF NOT PrintCust2 THEN
CurrReport.SKIP;
END;

Can any one suggest how to work logic properly.

Thanking You