Documentation()
OnInitReport()
OnPreReport()
//Getting Company Details
CompanyInfoTable.RESET;
CompanyInfoTable.GET;
IF CompanyInfoTable.FINDFIRST THEN BEGIN
Companyaddress1 := CompanyInfoTable.Address;
Companyaddress2 := CompanyInfoTable."Address 2";
CompanyName1 := CompanyInfoTable.Name;
END;
//Company Details END
OnPostReport()
Customer - OnPreDataItem()
Customer - OnAfterGetRecord()
Customer - OnPostDataItem()
Cust. Ledger Entry - OnPreDataItem()
Cust. Ledger Entry - OnAfterGetRecord()
{Binesh Code.
IF Table1.Date_Field = 0D THEN BEGIN
IF Table2.GET(Table1.Primary_Key_Field) THEN BEGIN
Table1.Date_Field := Table2.Date_Field;
END;
END;}
IF "Cust. Ledger Entry".FINDFIRST THEN BEGIN
IF "Cust. Ledger Entry"."CF_Promised to pay date" = 0D THEN BEGIN
//REPEAT
CF_CollectionPaymentScheduleTable.RESET;
CF_CollectionPaymentScheduleTable.SETRANGE("Customer No.","Cust. Ledger Entry"."Customer No.");
IF CF_CollectionPaymentScheduleTable.FINDFIRST THEN BEGIN
AmountVariable := CF_CollectionPaymentScheduleTable."Payment Amount";
DueDateVariable := CF_CollectionPaymentScheduleTable."Payment Date";
//CurrReport.BREAK;
END;
//UNTIL CF_CollectionPaymentScheduleTable.NEXT=0;
END
{ELSE BEGIN
AmountVariable := "Cust. Ledger Entry"."CF_Promised to pay amount";
DueDateVariable := "Cust. Ledger Entry"."CF_Promised to pay date";
END;}
END;
Cust. Ledger Entry - OnPostDataItem()
CF_CollectionPaymentSchedule - OnPreDataItem()
CF_CollectionPaymentSchedule - OnAfterGetRecord()
CF_CollectionPaymentSchedule - OnPostDataItem()
