OBJECT Report 60200 Test Two Reports { OBJECT-PROPERTIES { Date=03/24/12; Time=12:09:51 PM; Modified=Yes; Version List=NAVW16.00.01; } PROPERTIES { CaptionML=ENU=Customer - Detail Trial Bal.; OnPreReport=BEGIN CustFilter := Customer.GETFILTERS; CustDateFilter := Customer.GETFILTER("Date Filter"); WITH "Cust. Ledger Entry" DO IF PrintAmountsInLCY THEN BEGIN AmountCaption := FIELDCAPTION("Amount (LCY)"); RemainingAmtCaption := FIELDCAPTION("Remaining Amt. (LCY)"); END ELSE BEGIN AmountCaption := FIELDCAPTION(Amount); RemainingAmtCaption := FIELDCAPTION("Remaining Amount"); END; GLSetup.GET; CalcDates; CreateHeadings; { IF PrintToExcel THEN MakeExcelInfo; IF ISSERVICETIER THEN BEGIN PageGroupNo := 1; NextPageGroupNo := 1; END; } END; } DATAITEMS { { PROPERTIES { DataItemTable=Table18; DataItemTableView=SORTING(No.); PrintOnlyIfDetail=Yes; OnPreDataItem=BEGIN PageGroupNo := 1; CurrReport.NEWPAGEPERRECORD := PrintOnlyOnePerPage; CurrReport.CREATETOTALS("Cust. Ledger Entry"."Amount (LCY)",StartBalanceLCY, StartBalAdjLCY, Correction, ApplicationRounding); END; OnAfterGetRecord=BEGIN IF ISSERVICETIER THEN BEGIN IF PrintOnlyOnePerPage THEN PageGroupNo := PageGroupNo + 1; END; StartBalanceLCY := 0; StartBalAdjLCY := 0; IF CustDateFilter <> '' THEN BEGIN IF GETRANGEMIN("Date Filter") <> 0D THEN BEGIN SETRANGE("Date Filter",0D,GETRANGEMIN("Date Filter") - 1); CALCFIELDS("Net Change (LCY)"); StartBalanceLCY := "Net Change (LCY)"; END; SETFILTER("Date Filter",CustDateFilter); CALCFIELDS("Net Change (LCY)"); StartBalAdjLCY := "Net Change (LCY)"; CustLedgEntry.SETCURRENTKEY("Customer No.","Posting Date"); CustLedgEntry.SETRANGE("Customer No.",Customer."No."); CustLedgEntry.SETFILTER("Posting Date",CustDateFilter); IF CustLedgEntry.FIND('-') THEN REPEAT CustLedgEntry.SETFILTER("Date Filter",CustDateFilter); CustLedgEntry.CALCFIELDS("Amount (LCY)"); StartBalAdjLCY := StartBalAdjLCY - CustLedgEntry."Amount (LCY)"; "Detailed Cust. Ledg. Entry".SETCURRENTKEY("Cust. Ledger Entry No.","Entry Type","Posting Date"); "Detailed Cust. Ledg. Entry".SETRANGE("Cust. Ledger Entry No.",CustLedgEntry."Entry No."); "Detailed Cust. Ledg. Entry".SETFILTER("Entry Type",'%1|%2', "Detailed Cust. Ledg. Entry"."Entry Type"::"Correction of Remaining Amount", "Detailed Cust. Ledg. Entry"."Entry Type"::"Appln. Rounding"); "Detailed Cust. Ledg. Entry".SETFILTER("Posting Date",CustDateFilter); IF "Detailed Cust. Ledg. Entry".FIND('-') THEN REPEAT StartBalAdjLCY := StartBalAdjLCY - "Detailed Cust. Ledg. Entry"."Amount (LCY)"; UNTIL "Detailed Cust. Ledg. Entry".NEXT = 0; "Detailed Cust. Ledg. Entry".RESET; UNTIL CustLedgEntry.NEXT = 0; END; CurrReport.PRINTONLYIFDETAIL := ExcludeBalanceOnly OR (StartBalanceLCY = 0); CustBalanceLCY := StartBalanceLCY + StartBalAdjLCY END; ReqFilterFields=No.,Search Name,Customer Posting Group,Date Filter; } SECTIONS { { PROPERTIES { SectionType=Header; PrintOnEveryPage=Yes; SectionWidth=18150; SectionHeight=1692; } CONTROLS { { 1 ;Label ;0 ;0 ;7500 ;423 ;FontSize=8; FontBold=Yes; CaptionML=ENU=Customer - Detail Trial Bal.; DataSetFieldName=Customer___Detail_Trial_Bal_Caption } { 2 ;TextBox ;15000;0 ;3150 ;423 ;HorzAlign=Right; SourceExpr=FORMAT(TODAY,0,4); DataSetFieldName=FORMAT_TODAY_0_4_ } { 3 ;TextBox ;0 ;423 ;7500 ;423 ;SourceExpr=STRSUBSTNO(Text000,CustDateFilter); DataSetFieldName=STRSUBSTNO_Text000_CustDateFilter_ } { 4 ;Label ;16950;423 ;750 ;423 ;ParentControl=5; DataSetFieldName=CurrReport_PAGENOCaption } { 5 ;TextBox ;17700;423 ;450 ;423 ;CaptionML=ENU=Page; SourceExpr=CurrReport.PAGENO; DataSetFieldName=CurrReport_PAGENO } { 6 ;TextBox ;0 ;846 ;7500 ;423 ;SourceExpr=COMPANYNAME; DataSetFieldName=COMPANYNAME } { 7 ;TextBox ;15900;846 ;2250 ;423 ;HorzAlign=Right; SourceExpr=USERID; DataSetFieldName=USERID } } } { PROPERTIES { SectionType=Header; PrintOnEveryPage=Yes; SectionWidth=18150; SectionHeight=423; OnPreSection=BEGIN CurrReport.SHOWOUTPUT(PrintAmountsInLCY); END; } CONTROLS { { 8 ;Label ;0 ;0 ;7500 ;423 ;CaptionML=ENU=All amounts are in LCY; DataSetFieldName=All_amounts_are_in_LCYCaption } { 42 ;TextBox ;17850;0 ;150 ;423 ;Name=PrintAmountsInLCY; Visible=No; ForeColor=65535; SourceExpr=PrintAmountsInLCY; DataSetFieldName=PrintAmountsInLCY } { 74 ;TextBox ;17700;0 ;150 ;423 ;Name=PrintOnlyOnePerPage; Visible=No; ForeColor=65535; SourceExpr=PrintOnlyOnePerPage; DataSetFieldName=PrintOnlyOnePerPage } } } { PROPERTIES { SectionType=Header; PrintOnEveryPage=Yes; SectionWidth=18150; SectionHeight=423; } CONTROLS { } } { PROPERTIES { SectionType=Header; PrintOnEveryPage=Yes; SectionWidth=18150; SectionHeight=423; OnPreSection=BEGIN CurrReport.SHOWOUTPUT((CurrReport.PAGENO = 1) AND NOT ExcludeBalanceOnly); END; } CONTROLS { { 9 ;Label ;0 ;0 ;12000;423 ;CaptionML=ENU=This report also includes customers that only have balances.; DataSetFieldName=This_report_also_includes_customers_that_only_have_balances_Caption } { 75 ;TextBox ;18000;0 ;150 ;423 ;Name=ExcludeBalanceOnly; Visible=No; ForeColor=65535; SourceExpr=ExcludeBalanceOnly; DataSetFieldName=ExcludeBalanceOnly } } } { PROPERTIES { SectionType=Header; PrintOnEveryPage=Yes; SectionWidth=18150; SectionHeight=423; OnPreSection=BEGIN CurrReport.SHOWOUTPUT((CurrReport.PAGENO = 1) AND (CustFilter <> '')); END; } CONTROLS { { 10 ;TextBox ;0 ;0 ;18150;423 ;SourceExpr=Customer.TABLECAPTION + ': ' + CustFilter; DataSetFieldName=Customer_TABLECAPTION__________CustFilter } { 18 ;TextBox ;18000;0 ;150 ;423 ;Name=CustFilter; Visible=No; ForeColor=65535; SourceExpr=CustFilter; DataSetFieldName=CustFilter } } } { PROPERTIES { SectionType=Header; PrintOnEveryPage=Yes; SectionWidth=18150; SectionHeight=423; OnPreSection=BEGIN CurrReport.SHOWOUTPUT((CurrReport.PAGENO = 1) AND ((CustFilter <> '') OR NOT ExcludeBalanceOnly)); END; } CONTROLS { } } { PROPERTIES { SectionType=Header; PrintOnEveryPage=Yes; SectionWidth=18150; SectionHeight=1269; } CONTROLS { { 11 ;Label ;0 ;0 ;1200 ;846 ;ParentControl=35; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=Cust__Ledger_Entry__Posting_Date_Caption } { 12 ;Label ;1350 ;0 ;750 ;846 ;ParentControl=36; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=Cust__Ledger_Entry__Document_Type_Caption } { 13 ;Label ;2250 ;0 ;1500 ;846 ;ParentControl=37; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=Cust__Ledger_Entry__Document_No__Caption } { 14 ;Label ;3900 ;0 ;3000 ;846 ;ParentControl=38; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=Cust__Ledger_Entry_DescriptionCaption } { 20 ;Label ;13800;0 ;1200 ;846 ;ParentControl=44; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=CustEntryDueDateCaption } { 21 ;Label ;15150;0 ;1200 ;846 ;ParentControl=45; HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=Cust__Ledger_Entry__Entry_No__Caption } { 53 ;TextBox ;8100 ;0 ;1650 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; SourceExpr=AmountCaption; DataSetFieldName=AmountCaption } { 54 ;TextBox ;9900 ;0 ;1800 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; SourceExpr=RemainingAmtCaption; DataSetFieldName=RemainingAmtCaption } { 57 ;Label ;11850;0 ;1800 ;846 ;ParentControl=56; HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=CustBalanceLCY_Control56Caption } } } { PROPERTIES { SectionType=Body; SectionWidth=18150; SectionHeight=846; } CONTROLS { { 22 ;TextBox ;0 ;0 ;1500 ;423 ;FontBold=Yes; SourceExpr="No."; DataSetFieldName=Customer__No__ } { 23 ;TextBox ;1650 ;0 ;4500 ;423 ;FontBold=Yes; SourceExpr=Name; DataSetFieldName=Customer_Name } { 24 ;Label ;1650 ;423 ;1800 ;423 ;ParentControl=25; DataSetFieldName=Customer__Phone_No__Caption } { 25 ;TextBox ;3600 ;423 ;2550 ;423 ;SourceExpr="Phone No."; DataSetFieldName=Customer__Phone_No__ } { 77 ;TextBox ;18000;0 ;150 ;423 ;Name=PageGroupNo; Visible=No; ForeColor=65535; SourceExpr=PageGroupNo; DataSetFieldName=PageGroupNo } } } { PROPERTIES { SectionType=Body; SectionWidth=18150; SectionHeight=423; } CONTROLS { { 28 ;TextBox ;11850;0 ;1800 ;423 ;SourceExpr=StartBalanceLCY; AutoFormatType=1; DataSetFieldName=StartBalanceLCY } } } { PROPERTIES { SectionType=Body; SectionWidth=18150; SectionHeight=423; OnPreSection=BEGIN CurrReport.SHOWOUTPUT(StartBalAdjLCY <> 0); END; } CONTROLS { { 26 ;Label ;3900 ;0 ;3000 ;423 ;CaptionML=ENU=Adj. of Opening Balance; DataSetFieldName=Adj__of_Opening_BalanceCaption } { 27 ;TextBox ;7950 ;0 ;1800 ;423 ;SourceExpr=StartBalAdjLCY; AutoFormatType=1; DataSetFieldName=StartBalAdjLCY } { 40 ;TextBox ;11850;0 ;1800 ;423 ;SourceExpr=CustBalanceLCY; AutoFormatType=1; DataSetFieldName=CustBalanceLCY } } } { PROPERTIES { SectionType=Footer; SectionWidth=18150; SectionHeight=1269; OnPreSection=BEGIN CurrReport.SHOWOUTPUT(StartBalAdjLCY <> 0); END; } CONTROLS { { 17 ;TextBox ;11700;846 ;1800 ;423 ;FontBold=Yes; SourceExpr=StartBalanceLCY + StartBalAdjLCY + "Cust. Ledger Entry"."Amount (LCY)" + Correction + ApplicationRounding; AutoFormatType=1; DataSetFieldName=StartBalanceLCY___StartBalAdjLCY____Cust__Ledger_Entry___Amount__LCY_____Correction___ApplicationRounding } { 47 ;TextBox ;11700;0 ;1800 ;423 ;SourceExpr=StartBalanceLCY; AutoFormatType=1; DataSetFieldName=StartBalanceLCY_Control47 } { 50 ;Label ;0 ;0 ;3600 ;423 ;CaptionML=ENU=Total (LCY) Before Period; DataSetFieldName=Total__LCY__Before_PeriodCaption } { 64 ;Label ;0 ;846 ;2250 ;423 ;FontBold=Yes; CaptionML=ENU=Total (LCY); DataSetFieldName=Total__LCY_Caption } { 65 ;TextBox ;7800 ;846 ;1800 ;423 ;FontBold=Yes; SourceExpr="Cust. Ledger Entry"."Amount (LCY)" + Correction + ApplicationRounding; AutoFormatType=1; DataSetFieldName=Cust__Ledger_Entry___Amount__LCY_____Correction___ApplicationRounding } { 66 ;Label ;0 ;423 ;3600 ;423 ;CaptionML=ENU=Total Adj. of Opening Balance; DataSetFieldName=Total_Adj__of_Opening_BalanceCaption } { 67 ;TextBox ;7800 ;423 ;1800 ;423 ;SourceExpr=StartBalAdjLCY; AutoFormatType=1; DataSetFieldName=StartBalAdjLCY_Control67 } { 68 ;TextBox ;11700;423 ;1800 ;423 ;SourceExpr=StartBalanceLCY + StartBalAdjLCY; AutoFormatType=1; DataSetFieldName=StartBalanceLCY___StartBalAdjLCY } } } { PROPERTIES { SectionType=Footer; SectionWidth=18150; SectionHeight=846; OnPreSection=BEGIN CurrReport.SHOWOUTPUT(StartBalAdjLCY = 0); END; } CONTROLS { { 30 ;Label ;0 ;423 ;2250 ;423 ;FontBold=Yes; CaptionML=ENU=Total (LCY); DataSetFieldName=Total__LCY_Caption_Control30 } { 16 ;Label ;0 ;0 ;3600 ;423 ;CaptionML=ENU=Total (LCY) Before Period; DataSetFieldName=Total__LCY__Before_PeriodCaption_Control16 } { 69 ;TextBox ;7800 ;423 ;1800 ;423 ;FontBold=Yes; SourceExpr="Cust. Ledger Entry"."Amount (LCY)" + Correction + ApplicationRounding; AutoFormatType=1; DataSetFieldName=Cust__Ledger_Entry___Amount__LCY_____Correction___ApplicationRounding_Control69 } { 70 ;TextBox ;11700;423 ;1800 ;423 ;FontBold=Yes; SourceExpr=StartBalanceLCY + "Cust. Ledger Entry"."Amount (LCY)" + Correction + ApplicationRounding; AutoFormatType=1; DataSetFieldName=StartBalanceLCY____Cust__Ledger_Entry___Amount__LCY_____Correction___ApplicationRounding } { 71 ;TextBox ;11700;0 ;1800 ;423 ;SourceExpr=StartBalanceLCY; AutoFormatType=1; DataSetFieldName=StartBalanceLCY_Control71 } } } } } { PROPERTIES { DataItemIndent=1; DataItemTable=Table21; DataItemTableView=SORTING(Customer No.,Posting Date); OnPreDataItem=BEGIN CustLedgEntryExists := FALSE; CurrReport.CREATETOTALS(CustAmount,"Amount (LCY)"); END; OnAfterGetRecord=BEGIN CALCFIELDS(Amount,"Remaining Amount","Amount (LCY)","Remaining Amt. (LCY)"); CustLedgEntryExists := TRUE; IF PrintAmountsInLCY THEN BEGIN CustAmount := "Amount (LCY)"; CustRemainAmount := "Remaining Amt. (LCY)"; CustCurrencyCode := ''; END ELSE BEGIN CustAmount := Amount; CustRemainAmount := "Remaining Amount"; CustCurrencyCode := "Currency Code"; END; CustBalanceLCY := CustBalanceLCY + "Amount (LCY)"; IF ("Document Type" = "Document Type"::Payment) OR ("Document Type" = "Document Type"::Refund) THEN CustEntryDueDate := 0D ELSE CustEntryDueDate := "Due Date"; END; DataItemLink=Customer No.=FIELD(No.), Posting Date=FIELD(Date Filter), Global Dimension 2 Code=FIELD(Global Dimension 2 Filter), Global Dimension 1 Code=FIELD(Global Dimension 1 Filter), Date Filter=FIELD(Date Filter); } SECTIONS { { PROPERTIES { SectionType=TransHeader; SectionWidth=18150; SectionHeight=846; } CONTROLS { { 33 ;Label ;3900 ;0 ;3000 ;423 ;LeaderDots=Yes; CaptionML=ENU=Continued; DataSetFieldName=ContinuedCaption } { 34 ;TextBox ;11850;0 ;1800 ;423 ;SourceExpr=StartBalanceLCY + StartBalAdjLCY + "Amount (LCY)"; AutoFormatType=1; DataSetFieldName=StartBalanceLCY___StartBalAdjLCY____Amount__LCY__ } } } { PROPERTIES { SectionType=Body; SectionWidth=18150; SectionHeight=423; } CONTROLS { { 35 ;TextBox ;0 ;0 ;1200 ;423 ;HorzAlign=Right; CaptionML=ENU=Posting Date; SourceExpr=FORMAT("Posting Date"); DataSetFieldName=Cust__Ledger_Entry__Posting_Date_ } { 36 ;TextBox ;1350 ;0 ;750 ;423 ;CaptionML=ENU=Document Type; SourceExpr="Document Type"; DataSetFieldName=Cust__Ledger_Entry__Document_Type_ } { 37 ;TextBox ;2250 ;0 ;1500 ;423 ;SourceExpr="Document No."; DataSetFieldName=Cust__Ledger_Entry__Document_No__ } { 38 ;TextBox ;3900 ;0 ;3000 ;423 ;SourceExpr=Description; DataSetFieldName=Cust__Ledger_Entry_Description } { 39 ;TextBox ;7950 ;0 ;1800 ;423 ;CaptionML=ENU=Amount; SourceExpr=CustAmount; AutoFormatType=1; AutoFormatExpr=CustCurrencyCode; DataSetFieldName=CustAmount } { 41 ;TextBox ;9900 ;0 ;1800 ;423 ;CaptionML=ENU=Remaining Amount; SourceExpr=CustRemainAmount; AutoFormatType=1; AutoFormatExpr=CustCurrencyCode; DataSetFieldName=CustRemainAmount } { 44 ;TextBox ;13800;0 ;1200 ;423 ;HorzAlign=Right; CaptionML=ENU=Due Date; SourceExpr=FORMAT(CustEntryDueDate); DataSetFieldName=CustEntryDueDate } { 45 ;TextBox ;15150;0 ;1200 ;423 ;SourceExpr="Entry No."; DataSetFieldName=Cust__Ledger_Entry__Entry_No__ } { 51 ;TextBox ;7050 ;0 ;750 ;423 ;SourceExpr=CustCurrencyCode; DataSetFieldName=CustCurrencyCode } { 56 ;TextBox ;11850;0 ;1800 ;423 ;CaptionML=ENU=Balance (LCY); SourceExpr=CustBalanceLCY; AutoFormatType=1; DataSetFieldName=CustBalanceLCY_Control56 } } } { PROPERTIES { SectionType=TransFooter; SectionWidth=18150; SectionHeight=846; } CONTROLS { { 46 ;Label ;3900 ;423 ;3000 ;423 ;LeaderDots=Yes; CaptionML=ENU=Continued; DataSetFieldName=ContinuedCaption_Control46 } { 59 ;TextBox ;11850;423 ;1800 ;423 ;CaptionML=ENU=Balance (LCY); SourceExpr=StartBalanceLCY + StartBalAdjLCY + "Amount (LCY)"; AutoFormatType=1; DataSetFieldName=StartBalanceLCY___StartBalAdjLCY____Amount__LCY___Control59 } } } } } { PROPERTIES { DataItemIndent=2; DataItemTable=Table379; DataItemTableView=SORTING(Cust. Ledger Entry No.,Entry Type,Posting Date) WHERE(Entry Type=CONST(Correction of Remaining Amount)); OnPreDataItem=BEGIN SETFILTER("Posting Date",CustDateFilter); IF ISSERVICETIER THEN Correction := 0; END; OnAfterGetRecord=VAR DtldCustLedgEntry@1000 : Record 379; BEGIN Correction := Correction + "Amount (LCY)"; CustBalanceLCY := CustBalanceLCY + "Amount (LCY)"; END; DataItemLink=Cust. Ledger Entry No.=FIELD(Entry No.); } SECTIONS { { PROPERTIES { SectionType=Footer; SectionWidth=18150; SectionHeight=423; } CONTROLS { { 52 ;TextBox ;2250 ;0 ;1500 ;423 ;SourceExpr="Cust. Ledger Entry"."Document No."; DataSetFieldName=Cust__Ledger_Entry___Document_No__ } { 55 ;TextBox ;1350 ;0 ;750 ;423 ;CaptionML=ENU=Document Type; SourceExpr="Cust. Ledger Entry"."Document Type"; DataSetFieldName=Cust__Ledger_Entry___Document_Type_ } { 58 ;TextBox ;3900 ;0 ;3000 ;423 ;SourceExpr="Entry Type"; DataSetFieldName=Detailed_Cust__Ledg__Entry__Entry_Type_ } { 60 ;TextBox ;7950 ;0 ;1800 ;423 ;CaptionML=ENU=Amount; SourceExpr=Correction; AutoFormatType=1; DataSetFieldName=Correction } { 61 ;TextBox ;11850;0 ;1800 ;423 ;CaptionML=ENU=Balance (LCY); SourceExpr=CustBalanceLCY; AutoFormatType=1; DataSetFieldName=CustBalanceLCY_Control61 } } } } } { PROPERTIES { DataItemIndent=2; DataItemTable=Table379; DataItemTableView=SORTING(Cust. Ledger Entry No.,Entry Type,Posting Date) WHERE(Entry Type=CONST(Appln. Rounding)); DataItemVarName=Detailed Cust. Ledg. Entry2; OnPreDataItem=BEGIN SETFILTER("Posting Date",CustDateFilter); END; OnAfterGetRecord=BEGIN ApplicationRounding := ApplicationRounding + "Amount (LCY)"; CustBalanceLCY := CustBalanceLCY + "Amount (LCY)"; IF CONFIRM('%1 %2',TRUE,Text001,ApplicationRounding) THEN; END; DataItemLink=Cust. Ledger Entry No.=FIELD(Entry No.); } SECTIONS { { PROPERTIES { SectionType=Body; SectionWidth=18150; SectionHeight=846; } CONTROLS { { 29 ;TextBox ;1350 ;0 ;750 ;423 ;CaptionML=ENU=Document Type; SourceExpr="Cust. Ledger Entry"."Document Type"; DataSetFieldName=Cust__Ledger_Entry___Document_Type__Control29 } { 31 ;TextBox ;2250 ;0 ;1500 ;423 ;SourceExpr="Cust. Ledger Entry"."Document No."; DataSetFieldName=Cust__Ledger_Entry___Document_No___Control31 } { 32 ;TextBox ;3900 ;0 ;3000 ;423 ;SourceExpr="Entry Type"; DataSetFieldName=Detailed_Cust__Ledg__Entry2__Entry_Type_ } { 72 ;TextBox ;7950 ;0 ;1800 ;423 ;CaptionML=ENU=Amount; SourceExpr=ApplicationRounding; AutoFormatType=1; DataSetFieldName=ApplicationRounding } { 73 ;TextBox ;11850;0 ;1800 ;423 ;CaptionML=ENU=Balance (LCY); SourceExpr=CustBalanceLCY; AutoFormatType=1; DataSetFieldName=CustBalanceLCY_Control73 } } } } } { PROPERTIES { DataItemIndent=1; DataItemTable=Table2000000026; DataItemTableView=SORTING(Number) WHERE(Number=CONST(1)); OnAfterGetRecord=BEGIN IF NOT CustLedgEntryExists AND ((StartBalanceLCY = 0) OR ExcludeBalanceOnly) THEN BEGIN StartBalanceLCY := 0; CurrReport.SKIP; END; END; } SECTIONS { { PROPERTIES { SectionType=Body; SectionWidth=18150; SectionHeight=1269; OnPreSection=BEGIN CurrReport.SHOWOUTPUT(NOT PrintAmountsInLCY); END; } CONTROLS { { 48 ;TextBox ;2400 ;0 ;4500 ;423 ;FontBold=Yes; SourceExpr=Customer.Name; DataSetFieldName=Customer_Name_Control48 } { 62 ;TextBox ;11850;0 ;1800 ;423 ;CaptionML=ENU=Balance (LCY); SourceExpr=CustBalanceLCY; AutoFormatType=1; DataSetFieldName=CustBalanceLCY_Control62 } { 80 ;TextBox ;17850;0 ;150 ;423 ;Name=StartBalanceLCY; Visible=No; ForeColor=65535; SourceExpr=StartBalanceLCY; DataSetFieldName=StartBalanceLCY_Control80 } { 81 ;TextBox ;18000;0 ;150 ;423 ;Name=StartBalAdjLCY; Visible=No; ForeColor=65535; SourceExpr=StartBalAdjLCY; DataSetFieldName=StartBalAdjLCY_Control81 } } } { PROPERTIES { SectionType=Body; SectionWidth=18150; SectionHeight=1269; OnPreSection=BEGIN CurrReport.SHOWOUTPUT(PrintAmountsInLCY); END; } CONTROLS { { 15 ;TextBox ;2100 ;0 ;4500 ;423 ;FontBold=Yes; SourceExpr=Customer.Name; DataSetFieldName=Customer_Name_Control15 } { 49 ;TextBox ;7950 ;0 ;1800 ;423 ;FontBold=Yes; SourceExpr=CustBalanceLCY-StartBalanceLCY-StartBalAdjLCY; AutoFormatType=1; DataSetFieldName=CustBalanceLCY_StartBalanceLCY_StartBalAdjLCY } { 63 ;TextBox ;11850;0 ;1800 ;423 ;CaptionML=ENU=Balance (LCY); SourceExpr=CustBalanceLCY; AutoFormatType=1; DataSetFieldName=CustBalanceLCY_Control63 } } } } } { PROPERTIES { DataItemIndent=1; DataItemTable=Table18; DataItemVarName=Customer2; OnAfterGetRecord=BEGIN //AMEYAS_KVPH2CR19.00_31MAR11 >> Dim1Filter := GETFILTER("Global Dimension 1 Filter"); Dim2Filter := GETFILTER("Global Dimension 2 Filter"); //AMEYAS_KVPH2CR19.00_31MAR11 << TempCurrency.RESET; TempCurrency.DELETEALL; TempCustLedgEntry.RESET; TempCustLedgEntry.DELETEALL; END; DataItemLink=No.=FIELD(No.); } SECTIONS { { PROPERTIES { SectionType=Header; SectionWidth=18150; SectionHeight=1692; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE); END; } CONTROLS { { 1000000000;TextBox;0 ;423 ;7500 ;423 ;SourceExpr=COMPANYNAME } { 1000000001;Label ;0 ;0 ;7500 ;423 ;FontSize=8; FontBold=Yes; CaptionML=ENU=Aged Accounts Receivable; DataSetFieldName=Aged_Accounts_ReceivableCaption } { 1000000002;TextBox;15000;0 ;3150 ;423 ;HorzAlign=Right; SourceExpr=FORMAT(TODAY,0,4) } { 1000000003;TextBox;15900;846 ;2250 ;423 ;HorzAlign=Right; SourceExpr=USERID } { 1000000004;Label ;16950;423 ;750 ;423 ;ParentControl=1000000005 } { 1000000005;TextBox;17700;423 ;450 ;423 ;CaptionML=ENU=Page; SourceExpr=CurrReport.PAGENO } } } { PROPERTIES { SectionType=Header; SectionWidth=18150; SectionHeight=846; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT(CurrReport.PAGENO = 1) END; } CONTROLS { { 1000000008;TextBox;0 ;0 ;7350 ;423 ;SourceExpr=STRSUBSTNO(Text006,FORMAT(EndingDate,0,4)); DataSetFieldName=STRSUBSTNO_Text006_FORMAT_EndingDate_0_4__ } { 1000000009;TextBox;0 ;423 ;7350 ;423 ;SourceExpr=STRSUBSTNO(Text007,SELECTSTR(AgingBy + 1,Text009)); DataSetFieldName=STRSUBSTNO_Text007_SELECTSTR_AgingBy___1_Text009__ } } } { PROPERTIES { SectionType=Header; SectionWidth=18150; SectionHeight=423; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT((CurrReport.PAGENO = 1) AND PrintAmountInLCY) END; } CONTROLS { { 1000000011;Label ;0 ;0 ;7350 ;423 ;CaptionML=ENU=All Amounts in LCY; DataSetFieldName=All_Amounts_in_LCYCaption } } } { PROPERTIES { SectionType=Header; SectionWidth=18150; SectionHeight=423; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT((CurrReport.PAGENO = 1) AND (CustFilter <> '')); END; } CONTROLS { { 1000000012;TextBox;0 ;0 ;18150;423 ;SourceExpr=TABLECAPTION + ': ' + CustFilter; DataSetFieldName=TABLECAPTION__________CustFilter } } } { PROPERTIES { SectionType=Header; SectionWidth=18150; SectionHeight=423; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT(CurrReport.PAGENO = 1) END; } CONTROLS { } } { PROPERTIES { SectionType=Header; SectionWidth=18150; SectionHeight=846; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT(AgingBy = AgingBy::"Due Date"); END; } CONTROLS { { 1000000014;Label ;10500;0 ;7650 ;423 ;HorzAlign=Center; FontBold=Yes; CaptionML=ENU=Aged Overdue Amounts; DataSetFieldName=Aged_Overdue_AmountsCaption } { 1000000015;TextBox;10500;423 ;7650 ;423 ;FontBold=Yes; LeaderDots=Yes; SourceExpr=''; DataSetFieldName=EmptyString } } } { PROPERTIES { SectionType=Header; SectionWidth=18150; SectionHeight=846; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT(AgingBy <> AgingBy::"Due Date"); END; } CONTROLS { { 1000000017;TextBox;8550 ;0 ;9600 ;423 ;HorzAlign=Center; FontBold=Yes; SourceExpr=STRSUBSTNO(Text004,SELECTSTR(AgingBy + 1,Text009)); DataSetFieldName=STRSUBSTNO_Text004_SELECTSTR_AgingBy___1_Text009__ } { 1000000018;TextBox;8550 ;423 ;9600 ;423 ;FontBold=Yes; LeaderDots=Yes; SourceExpr=''; DataSetFieldName=EmptyString_Control56 } } } { PROPERTIES { SectionType=Header; SectionWidth=18150; SectionHeight=1269; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT(PrintDetails); END; } CONTROLS { { 1000000019;TextBox;16350;0 ;1800 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; SourceExpr=HeaderText[5]; DataSetFieldName=HeaderText_5_ } { 1000000020;TextBox;14400;0 ;1800 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; SourceExpr=HeaderText[4]; DataSetFieldName=HeaderText_4_ } { 1000000021;TextBox;12450;0 ;1800 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; SourceExpr=HeaderText[3]; DataSetFieldName=HeaderText_3_ } { 1000000022;TextBox;10500;0 ;1800 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; SourceExpr=HeaderText[2]; DataSetFieldName=HeaderText_2_ } { 1000000024;TextBox;8550 ;0 ;1800 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; SourceExpr=HeaderText[1]; DataSetFieldName=HeaderText_1_ } { 1000000025;Label ;6600 ;0 ;1800 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=Original_Amount_Control58Caption } { 1000000026;Label ;4650 ;0 ;1800 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=CustLedgEntryEndingDate__Amount__LCY__Caption } { 1000000027;Label ;3450 ;0 ;1050 ;846 ;HorzAlign=General; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=CustLedgEntryEndingDate__Due_Date_Caption } { 1000000028;Label ;1800 ;0 ;1500 ;846 ;HorzAlign=General; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=CustLedgEntryEndingDate__Document_No__Caption } { 1000000029;Label ;1350 ;0 ;300 ;846 ;HorzAlign=General; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=FORMAT_CustLedgEntryEndingDate__Document_Type__Caption } { 1000000030;Label ;0 ;0 ;1200 ;846 ;HorzAlign=General; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=CustLedgEntryEndingDate__Posting_Date_Caption } } } { PROPERTIES { SectionType=Header; SectionWidth=18150; SectionHeight=846; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT(PrintAmountInLCY AND NOT PrintDetails); END; } CONTROLS { { 1000000031;TextBox;16350;0 ;1800 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; SourceExpr=HeaderText[5]; DataSetFieldName=HeaderText_5__Control8 } { 1000000032;TextBox;14400;0 ;1800 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; SourceExpr=HeaderText[4]; DataSetFieldName=HeaderText_4__Control11 } { 1000000033;TextBox;12450;0 ;1800 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; SourceExpr=HeaderText[3]; DataSetFieldName=HeaderText_3__Control12 } { 1000000034;TextBox;10500;0 ;1800 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; SourceExpr=HeaderText[2]; DataSetFieldName=HeaderText_2__Control13 } { 1000000035;TextBox;8550 ;0 ;1800 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; SourceExpr=HeaderText[1]; DataSetFieldName=HeaderText_1__Control14 } { 1000000036;Label ;6600 ;0 ;1800 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=Original_Amount_Control17Caption } { 1000000037;Label ;1650 ;0 ;4500 ;846 ;VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=Customer_Name_Control15Caption } { 1000000038;Label ;0 ;0 ;1500 ;846 ;VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=Customer__No___Control9Caption } } } { PROPERTIES { SectionType=Header; SectionWidth=18150; SectionHeight=846; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT(NOT PrintAmountInLCY AND NOT PrintDetails); END; } CONTROLS { { 1000000039;TextBox;16350;0 ;1800 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; SourceExpr=HeaderText[5]; DataSetFieldName=HeaderText_5__Control40 } { 1000000040;TextBox;14400;0 ;1800 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; SourceExpr=HeaderText[4]; DataSetFieldName=HeaderText_4__Control39 } { 1000000041;TextBox;12450;0 ;1800 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; SourceExpr=HeaderText[3]; DataSetFieldName=HeaderText_3__Control38 } { 1000000042;TextBox;10500;0 ;1800 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; SourceExpr=HeaderText[2]; DataSetFieldName=HeaderText_2__Control37 } { 1000000043;TextBox;8550 ;0 ;1800 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; SourceExpr=HeaderText[1]; DataSetFieldName=HeaderText_1__Control36 } { 1000000044;Label ;6600 ;0 ;1800 ;846 ;HorzAlign=Right; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=Original_Amount_Control24Caption } { 1000000045;Label ;5700 ;0 ;750 ;846 ;HorzAlign=Left; VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=Original_Amount_Control32Caption } { 1000000046;Label ;1650 ;0 ;3900 ;846 ;VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=Customer_Name_Control30Caption } { 1000000047;Label ;0 ;0 ;1500 ;846 ;VertAlign=Bottom; FontBold=Yes; MultiLine=Yes; DataSetFieldName=Customer__No___Control31Caption } } } { PROPERTIES { SectionType=Footer; SectionWidth=18150; SectionHeight=423; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT(NOT PrintDetails); END; } CONTROLS { } } { PROPERTIES { SectionType=Footer; SectionWidth=18150; SectionHeight=846; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE); END; } CONTROLS { { 1000000128;TextBox;16350;0 ;1800 ;423 ;Name=Original Amount; FontBold=Yes; SourceExpr=GrandTotalCustLedgEntry[5]."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount } { 1000000129;TextBox;14400;0 ;1800 ;423 ;Name=Original Amount; FontBold=Yes; SourceExpr=GrandTotalCustLedgEntry[4]."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control43 } { 1000000130;TextBox;12450;0 ;1800 ;423 ;Name=Original Amount; FontBold=Yes; SourceExpr=GrandTotalCustLedgEntry[3]."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control44 } { 1000000131;TextBox;10500;0 ;1800 ;423 ;Name=Original Amount; FontBold=Yes; SourceExpr=GrandTotalCustLedgEntry[2]."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control45 } { 1000000132;TextBox;8550 ;0 ;1800 ;423 ;Name=Original Amount; FontBold=Yes; SourceExpr=GrandTotalCustLedgEntry[1]."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control46 } { 1000000133;TextBox;6600 ;0 ;1800 ;423 ;Name=Original Amount; FontBold=Yes; CaptionML=ENU=Balance; SourceExpr=GrandTotalCustLedgEntry[1]."Amount (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control47 } { 1000000134;Label ;0 ;0 ;1500 ;423 ;FontBold=Yes; CaptionML=ENU=Total (LCY) } { 1000000135;TextBox;9450 ;423 ;900 ;423 ;HorzAlign=Right; SourceExpr=Pct(GrandTotalCustLedgEntry[1]."Remaining Amt. (LCY)",GrandTotalCustLedgEntry[1]."Amount (LCY)"); DataSetFieldName=Pct_GrandTotalCustLedgEntry_1___Remaining_Amt___LCY___GrandTotalCustLedgEntry_1___Amount__LCY___ } { 1000000136;TextBox;11400;423 ;900 ;423 ;HorzAlign=Right; SourceExpr=Pct(GrandTotalCustLedgEntry[2]."Remaining Amt. (LCY)",GrandTotalCustLedgEntry[1]."Amount (LCY)"); DataSetFieldName=Pct_GrandTotalCustLedgEntry_2___Remaining_Amt___LCY___GrandTotalCustLedgEntry_1___Amount__LCY___ } { 1000000137;TextBox;13350;423 ;900 ;423 ;HorzAlign=Right; SourceExpr=Pct(GrandTotalCustLedgEntry[3]."Remaining Amt. (LCY)",GrandTotalCustLedgEntry[1]."Amount (LCY)"); DataSetFieldName=Pct_GrandTotalCustLedgEntry_3___Remaining_Amt___LCY___GrandTotalCustLedgEntry_1___Amount__LCY___ } { 1000000138;TextBox;15300;423 ;900 ;423 ;HorzAlign=Right; SourceExpr=Pct(GrandTotalCustLedgEntry[4]."Remaining Amt. (LCY)",GrandTotalCustLedgEntry[1]."Amount (LCY)"); DataSetFieldName=Pct_GrandTotalCustLedgEntry_4___Remaining_Amt___LCY___GrandTotalCustLedgEntry_1___Amount__LCY___ } { 1000000139;TextBox;17250;423 ;900 ;423 ;HorzAlign=Right; SourceExpr=Pct(GrandTotalCustLedgEntry[5]."Remaining Amt. (LCY)",GrandTotalCustLedgEntry[1]."Amount (LCY)"); DataSetFieldName=Pct_GrandTotalCustLedgEntry_5___Remaining_Amt___LCY___GrandTotalCustLedgEntry_1___Amount__LCY___ } } } } } { PROPERTIES { DataItemIndent=2; DataItemTable=Table21; DataItemTableView=SORTING(Customer No.,Posting Date,Currency Code); DataItemVarName=CustLegerEntry; OnPreDataItem=BEGIN SETRANGE("Posting Date",EndingDate + 1,12319999D); END; OnAfterGetRecord=BEGIN CustLedgEntry.SETCURRENTKEY("Closed by Entry No."); CustLedgEntry.SETRANGE("Closed by Entry No.","Entry No."); CustLedgEntry.SETRANGE("Posting Date",0D,EndingDate); IF CustLedgEntry.FINDSET(FALSE,FALSE) THEN REPEAT InsertTemp(CustLedgEntry); UNTIL CustLedgEntry.NEXT = 0; IF "Closed by Entry No." <> 0 THEN BEGIN CustLedgEntry.SETRANGE("Closed by Entry No.","Closed by Entry No."); IF CustLedgEntry.FINDSET(FALSE,FALSE) THEN REPEAT InsertTemp(CustLedgEntry); UNTIL CustLedgEntry.NEXT = 0; END; CustLedgEntry.RESET; CustLedgEntry.SETRANGE("Entry No.","Closed by Entry No."); CustLedgEntry.SETRANGE("Posting Date",0D,EndingDate); IF CustLedgEntry.FINDSET(FALSE,FALSE) THEN REPEAT InsertTemp(CustLedgEntry); UNTIL CustLedgEntry.NEXT = 0; END; DataItemLink=Customer No.=FIELD(No.); } SECTIONS { } } { PROPERTIES { DataItemIndent=2; DataItemTable=Table21; DataItemTableView=SORTING(Customer No.,Open,Positive,Due Date,Currency Code); DataItemVarName=OpenCustLedgEntry; OnPreDataItem=BEGIN IF AgingBy = AgingBy::"Posting Date" THEN BEGIN SETRANGE("Posting Date",0D,EndingDate); SETRANGE("Date Filter",0D,EndingDate); END; END; OnAfterGetRecord=BEGIN IF AgingBy = AgingBy::"Posting Date" THEN BEGIN CALCFIELDS("Remaining Amt. (LCY)"); IF "Remaining Amt. (LCY)" = 0 THEN CurrReport.SKIP; END; InsertTemp(OpenCustLedgEntry); END; DataItemLinkReference=Customer2; DataItemLink=Customer No.=FIELD(No.); } SECTIONS { } } { PROPERTIES { DataItemIndent=2; DataItemTable=Table2000000026; DataItemTableView=SORTING(Number) WHERE(Number=FILTER(1..)); DataItemVarName=CurrencyLoop; OnPreDataItem=BEGIN NumberOfCurrencies := 0; END; OnAfterGetRecord=BEGIN CLEAR(TotalCustLedgEntry); IF Number = 1 THEN BEGIN IF NOT TempCurrency.FINDSET(FALSE,FALSE) THEN CurrReport.BREAK; END ELSE IF TempCurrency.NEXT = 0 THEN CurrReport.BREAK; IF TempCurrency.Code <> '' THEN CurrencyCode := TempCurrency.Code ELSE CurrencyCode := GLSetup."LCY Code"; NumberOfCurrencies := NumberOfCurrencies + 1; END; OnPostDataItem=BEGIN IF NOT ISSERVICETIER THEN IF NewPagePercustomer AND (NumberOfCurrencies > 0) THEN CurrReport.NEWPAGE; END; } SECTIONS { } } { PROPERTIES { DataItemIndent=3; DataItemTable=Table2000000026; DataItemTableView=SORTING(Number) WHERE(Number=FILTER(1..)); DataItemVarName=TempCustLedgEntryLoop; OnPreDataItem=BEGIN IF NOT PrintAmountInLCY THEN TempCustLedgEntry.SETRANGE("Currency Code",TempCurrency.Code); IF ISSERVICETIER THEN BEGIN PageGroupNo := NextPageGroupNo; IF NewPagePercustomer AND (NumberOfCurrencies > 0) THEN NextPageGroupNo := PageGroupNo + 1; END; END; OnAfterGetRecord=VAR PeriodIndex@1000000000 : Integer; BEGIN IF Number = 1 THEN BEGIN IF NOT TempCustLedgEntry.FINDSET(FALSE,FALSE) THEN CurrReport.BREAK; END ELSE IF TempCustLedgEntry.NEXT = 0 THEN CurrReport.BREAK; CustLedgEntryEndingDate := TempCustLedgEntry; DetailedCustomerLedgerEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgEntryEndingDate."Entry No."); //AMEYAS_KVPH2CR19.00_29MAR11 >> IF Dim1Filter <> '' THEN DetailedCustomerLedgerEntry.SETFILTER("Initial Entry Global Dim. 1",Dim1Filter); IF Dim2Filter <> '' THEN DetailedCustomerLedgerEntry.SETFILTER("Initial Entry Global Dim. 2",Dim2Filter); //AMEYAS_KVPH2CR19.00_29MAR11 << IF DetailedCustomerLedgerEntry.FINDSET(FALSE,FALSE) THEN REPEAT IF (DetailedCustomerLedgerEntry."Entry Type" = DetailedCustomerLedgerEntry."Entry Type"::"Initial Entry") AND (CustLedgEntryEndingDate."Posting Date" > EndingDate) AND (AgingBy <> AgingBy::"Posting Date") THEN BEGIN IF CustLedgEntryEndingDate."Document Date" <= EndingDate THEN DetailedCustomerLedgerEntry."Posting Date" := CustLedgEntryEndingDate."Document Date" ELSE IF (CustLedgEntryEndingDate."Due Date" <= EndingDate) AND (AgingBy = AgingBy::"Due Date") THEN DetailedCustomerLedgerEntry."Posting Date" := CustLedgEntryEndingDate."Due Date" END; IF (DetailedCustomerLedgerEntry."Posting Date" <= EndingDate) OR (TempCustLedgEntry.Open AND (AgingBy = AgingBy::"Due Date") AND (CustLedgEntryEndingDate."Due Date" > EndingDate)) THEN BEGIN IF DetailedCustomerLedgerEntry."Entry Type" IN [DetailedCustomerLedgerEntry."Entry Type"::"Initial Entry", DetailedCustomerLedgerEntry."Entry Type"::"Unrealized Loss", DetailedCustomerLedgerEntry."Entry Type"::"Unrealized Gain", DetailedCustomerLedgerEntry."Entry Type"::"Realized Loss", DetailedCustomerLedgerEntry."Entry Type"::"Realized Gain", DetailedCustomerLedgerEntry."Entry Type"::"Payment Discount", DetailedCustomerLedgerEntry."Entry Type"::"Payment Discount (VAT Excl.)", DetailedCustomerLedgerEntry."Entry Type"::"Payment Discount (VAT Adjustment)", DetailedCustomerLedgerEntry."Entry Type"::"Payment Tolerance", DetailedCustomerLedgerEntry."Entry Type"::"Payment Discount Tolerance", DetailedCustomerLedgerEntry."Entry Type"::"Payment Tolerance (VAT Excl.)", DetailedCustomerLedgerEntry."Entry Type"::"Payment Tolerance (VAT Adjustment)", DetailedCustomerLedgerEntry."Entry Type"::"Payment Discount Tolerance (VAT Excl.)", DetailedCustomerLedgerEntry."Entry Type"::"Payment Discount Tolerance (VAT Adjustment)"] THEN BEGIN CustLedgEntryEndingDate.Amount := CustLedgEntryEndingDate.Amount + DetailedCustomerLedgerEntry.Amount; CustLedgEntryEndingDate."Amount (LCY)" := CustLedgEntryEndingDate."Amount (LCY)" + DetailedCustomerLedgerEntry."Amount (LCY)"; END; CustLedgEntryEndingDate."Remaining Amount" := CustLedgEntryEndingDate."Remaining Amount" + DetailedCustomerLedgerEntry.Amount; CustLedgEntryEndingDate."Remaining Amt. (LCY)" := CustLedgEntryEndingDate."Remaining Amt. (LCY)" + DetailedCustomerLedgerEntry."Amount (LCY)"; END; UNTIL DetailedCustomerLedgerEntry.NEXT = 0; IF CustLedgEntryEndingDate."Remaining Amount" = 0 THEN CurrReport.SKIP; CASE AgingBy OF AgingBy::"Due Date": PeriodIndex := GetPeriodIndex(CustLedgEntryEndingDate."Due Date"); AgingBy::"Posting Date": PeriodIndex := GetPeriodIndex(CustLedgEntryEndingDate."Posting Date"); AgingBy::"Document Date": BEGIN IF CustLedgEntryEndingDate."Document Date" > EndingDate THEN BEGIN CustLedgEntryEndingDate."Remaining Amount" := 0; CustLedgEntryEndingDate."Remaining Amt. (LCY)" := 0; CustLedgEntryEndingDate."Document Date" := CustLedgEntryEndingDate."Posting Date"; END; PeriodIndex := GetPeriodIndex(CustLedgEntryEndingDate."Document Date"); END; END; CLEAR(AgedCustLedgEntry); AgedCustLedgEntry[PeriodIndex]."Remaining Amount" := CustLedgEntryEndingDate."Remaining Amount"; AgedCustLedgEntry[PeriodIndex]."Remaining Amt. (LCY)" := CustLedgEntryEndingDate."Remaining Amt. (LCY)"; TotalCustLedgEntry[PeriodIndex]."Remaining Amount" += CustLedgEntryEndingDate."Remaining Amount"; TotalCustLedgEntry[PeriodIndex]."Remaining Amt. (LCY)" += CustLedgEntryEndingDate."Remaining Amt. (LCY)"; GrandTotalCustLedgEntry[PeriodIndex]."Remaining Amt. (LCY)" += CustLedgEntryEndingDate."Remaining Amt. (LCY)"; TotalCustLedgEntry[1].Amount += CustLedgEntryEndingDate."Remaining Amount"; TotalCustLedgEntry[1]."Amount (LCY)" += CustLedgEntryEndingDate."Remaining Amt. (LCY)"; GrandTotalCustLedgEntry[1]."Amount (LCY)" += CustLedgEntryEndingDate."Remaining Amt. (LCY)"; IF PrintToExcel THEN MakeExcelDataBody; END; OnPostDataItem=BEGIN IF NOT PrintAmountInLCY THEN UpdateCurrencyTotals; END; } SECTIONS { { PROPERTIES { SectionType=Header; SectionWidth=18150; SectionHeight=423; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT(PrintDetails); END; } CONTROLS { { 1000000006;TextBox;1650 ;0 ;4500 ;423 ;FontBold=Yes; SourceExpr=Customer.Name } { 1000000007;TextBox;0 ;0 ;1500 ;423 ;HorzAlign=Left; FontBold=Yes; SourceExpr=Customer."No." } } } { PROPERTIES { SectionType=Body; SectionWidth=18150; SectionHeight=423; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT(PrintAmountInLCY AND PrintDetails); END; } CONTROLS { { 1000000081;TextBox;16350;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[5]."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control63 } { 1000000082;TextBox;14400;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[4]."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control62 } { 1000000083;TextBox;12450;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[3]."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control61 } { 1000000084;TextBox;10500;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[2]."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control60 } { 1000000085;TextBox;8550 ;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[1]."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control59 } { 1000000086;TextBox;6600 ;0 ;1800 ;423 ;Name=Original Amount; CaptionML=ENU=Balance; SourceExpr=CustLedgEntryEndingDate."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control58 } { 1000000087;TextBox;4650 ;0 ;1800 ;423 ;CaptionML=ENU="Original Amount "; SourceExpr=CustLedgEntryEndingDate."Amount (LCY)"; AutoFormatType=1; DataSetFieldName=CustLedgEntryEndingDate__Amount__LCY__ } { 1000000088;TextBox;3450 ;0 ;1050 ;423 ;HorzAlign=Left; CaptionML=ENU=Due Date; SourceExpr=FORMAT(CustLedgEntryEndingDate."Due Date"); DataSetFieldName=CustLedgEntryEndingDate__Due_Date_ } { 1000000089;TextBox;1800 ;0 ;1500 ;423 ;HorzAlign=Left; CaptionML=ENU=Document No.; SourceExpr=CustLedgEntryEndingDate."Document No."; DataSetFieldName=CustLedgEntryEndingDate__Document_No__ } { 1000000090;TextBox;1350 ;0 ;300 ;423 ;CaptionML=ENU=Document Type; SourceExpr=FORMAT(CustLedgEntryEndingDate."Document Type"); DataSetFieldName=FORMAT_CustLedgEntryEndingDate__Document_Type__ } { 1000000091;TextBox;0 ;0 ;1200 ;423 ;HorzAlign=Left; CaptionML=ENU=Posting Date; SourceExpr=FORMAT(CustLedgEntryEndingDate."Posting Date"); DataSetFieldName=CustLedgEntryEndingDate__Posting_Date_ } } } { PROPERTIES { SectionType=Body; SectionWidth=18150; SectionHeight=423; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT(NOT PrintAmountInLCY AND PrintDetails); END; } CONTROLS { { 1000000092;TextBox;16350;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[5]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control89 } { 1000000093;TextBox;14400;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[4]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control90 } { 1000000094;TextBox;12450;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[3]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control91 } { 1000000095;TextBox;10500;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[2]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control92 } { 1000000096;TextBox;8550 ;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[1]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control93 } { 1000000097;TextBox;6600 ;0 ;1800 ;423 ;Name=Original Amount; CaptionML=ENU=Balance; SourceExpr=CustLedgEntryEndingDate."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control94 } { 1000000098;TextBox;4650 ;0 ;1800 ;423 ;CaptionML=ENU="Original Amount "; SourceExpr=CustLedgEntryEndingDate.Amount; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=CustLedgEntryEndingDate_Amount } { 1000000099;TextBox;3450 ;0 ;1050 ;423 ;HorzAlign=Left; CaptionML=ENU=Due Date; SourceExpr=FORMAT(CustLedgEntryEndingDate."Due Date"); DataSetFieldName=CustLedgEntryEndingDate__Due_Date__Control96 } { 1000000100;TextBox;1800 ;0 ;1500 ;423 ;HorzAlign=Left; CaptionML=ENU=Document No.; SourceExpr=CustLedgEntryEndingDate."Document No."; DataSetFieldName=CustLedgEntryEndingDate__Document_No___Control97 } { 1000000101;TextBox;1350 ;0 ;300 ;423 ;CaptionML=ENU=Document Type; SourceExpr=FORMAT(CustLedgEntryEndingDate."Document Type"); DataSetFieldName=FORMAT_CustLedgEntryEndingDate__Document_Type___Control98 } { 1000000102;TextBox;0 ;0 ;1200 ;423 ;HorzAlign=Left; CaptionML=ENU=Posting Date; SourceExpr=FORMAT(CustLedgEntryEndingDate."Posting Date"); DataSetFieldName=CustLedgEntryEndingDate__Posting_Date__Control99 } } } { PROPERTIES { SectionType=Footer; SectionWidth=18150; SectionHeight=423; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT(PrintAmountInLCY AND PrintDetails); END; } CONTROLS { { 1000000074;TextBox;16350;0 ;1800 ;423 ;Name=Original Amount; FontBold=Yes; SourceExpr=TotalCustLedgEntry[5]."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control88 } { 1000000075;TextBox;14400;0 ;1800 ;423 ;Name=Original Amount; FontBold=Yes; SourceExpr=TotalCustLedgEntry[4]."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control87 } { 1000000076;TextBox;12450;0 ;1800 ;423 ;Name=Original Amount; FontBold=Yes; SourceExpr=TotalCustLedgEntry[3]."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control86 } { 1000000077;TextBox;10500;0 ;1800 ;423 ;Name=Original Amount; FontBold=Yes; SourceExpr=TotalCustLedgEntry[2]."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control85 } { 1000000078;TextBox;8550 ;0 ;1800 ;423 ;Name=Original Amount; FontBold=Yes; SourceExpr=TotalCustLedgEntry[1]."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control84 } { 1000000079;TextBox;6600 ;0 ;1800 ;423 ;Name=Original Amount; FontBold=Yes; CaptionML=ENU=Balance; SourceExpr=TotalCustLedgEntry[1]."Amount (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control83 } { 1000000080;TextBox;0 ;0 ;6450 ;423 ;FontBold=Yes; SourceExpr=STRSUBSTNO(Text005,Customer.Name); DataSetFieldName=STRSUBSTNO_Text005_Customer_Name_ } } } { PROPERTIES { SectionType=Footer; SectionWidth=18150; SectionHeight=423; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT(NOT PrintAmountInLCY AND PrintDetails); END; } CONTROLS { { 1000000103;TextBox;16350;0 ;1800 ;423 ;Name=Original Amount; FontBold=Yes; SourceExpr=TotalCustLedgEntry[5]."Remaining Amount"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control102 } { 1000000104;TextBox;14400;0 ;1800 ;423 ;Name=Original Amount; FontBold=Yes; SourceExpr=TotalCustLedgEntry[4]."Remaining Amount"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control103 } { 1000000105;TextBox;12450;0 ;1800 ;423 ;Name=Original Amount; FontBold=Yes; SourceExpr=TotalCustLedgEntry[3]."Remaining Amount"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control104 } { 1000000106;TextBox;10500;0 ;1800 ;423 ;Name=Original Amount; FontBold=Yes; SourceExpr=TotalCustLedgEntry[2]."Remaining Amount"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control105 } { 1000000107;TextBox;8550 ;0 ;1800 ;423 ;Name=Original Amount; FontBold=Yes; SourceExpr=TotalCustLedgEntry[1]."Remaining Amount"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control106 } { 1000000108;TextBox;6600 ;0 ;1800 ;423 ;Name=Original Amount; FontBold=Yes; CaptionML=ENU=Balance; SourceExpr=TotalCustLedgEntry[1].Amount; AutoFormatType=1; DataSetFieldName=Original_Amount_Control107 } { 1000000109;TextBox;5700 ;0 ;750 ;423 ;Name=Original Amount; FontBold=Yes; CaptionML=ENU=Currency Code; SourceExpr=CurrencyCode; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control100 } { 1000000110;TextBox;0 ;0 ;5550 ;423 ;FontBold=Yes; SourceExpr=STRSUBSTNO(Text005,Customer.Name); DataSetFieldName=STRSUBSTNO_Text005_Customer_Name__Control101 } } } { PROPERTIES { SectionType=Footer; SectionWidth=18150; SectionHeight=423; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT(PrintAmountInLCY AND NOT PrintDetails); END; } CONTROLS { { 1000000111;TextBox;16350;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=TotalCustLedgEntry[5]."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control23 } { 1000000112;TextBox;14400;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=TotalCustLedgEntry[4]."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control22 } { 1000000113;TextBox;12450;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=TotalCustLedgEntry[3]."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control20 } { 1000000114;TextBox;10500;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=TotalCustLedgEntry[2]."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control19 } { 1000000115;TextBox;8550 ;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=TotalCustLedgEntry[1]."Remaining Amt. (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control18 } { 1000000116;TextBox;6600 ;0 ;1800 ;423 ;Name=Original Amount; CaptionML=ENU=Balance; SourceExpr=TotalCustLedgEntry[1]."Amount (LCY)"; AutoFormatType=1; DataSetFieldName=Original_Amount_Control17 } { 1000000117;TextBox;1650 ;0 ;4500 ;423 ;SourceExpr=Customer.Name } { 1000000118;TextBox;0 ;0 ;1500 ;423 ;HorzAlign=Left; SourceExpr=Customer."No."; DataSetFieldName=Customer__No___Control9 } } } { PROPERTIES { SectionType=Footer; SectionWidth=18150; SectionHeight=423; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT(NOT PrintAmountInLCY AND NOT PrintDetails); END; } CONTROLS { { 1000000119;TextBox;16350;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=TotalCustLedgEntry[5]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control29 } { 1000000120;TextBox;14400;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=TotalCustLedgEntry[4]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control28 } { 1000000121;TextBox;12450;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=TotalCustLedgEntry[3]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control27 } { 1000000122;TextBox;10500;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=TotalCustLedgEntry[2]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control26 } { 1000000123;TextBox;8550 ;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=TotalCustLedgEntry[1]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control25 } { 1000000124;TextBox;6600 ;0 ;1800 ;423 ;Name=Original Amount; CaptionML=ENU=Balance; SourceExpr=TotalCustLedgEntry[1].Amount; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control24 } { 1000000125;TextBox;5700 ;0 ;750 ;423 ;Name=Original Amount; CaptionML=ENU=Currency Code; SourceExpr=CurrencyCode; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control32 } { 1000000126;TextBox;1650 ;0 ;3900 ;423 ;SourceExpr=Customer.Name; DataSetFieldName=Customer_Name_Control30 } { 1000000127;TextBox;0 ;0 ;1500 ;423 ;HorzAlign=Left; SourceExpr=Customer."No."; DataSetFieldName=Customer__No___Control31 } } } { PROPERTIES { SectionType=Footer; SectionWidth=18150; SectionHeight=423; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT(PrintDetails); END; } CONTROLS { } } } } { PROPERTIES { DataItemIndent=1; DataItemTable=Table2000000026; DataItemTableView=SORTING(Number) WHERE(Number=FILTER(1..)); DataItemVarName=CurrencyTotals; OnAfterGetRecord=BEGIN IF Number = 1 THEN BEGIN IF NOT TempCurrency2.FINDSET(FALSE,FALSE) THEN CurrReport.BREAK; END ELSE IF TempCurrency2.NEXT = 0 THEN CurrReport.BREAK; CLEAR(AgedCustLedgEntry); TempCurrencyAmount.SETRANGE("Currency Code",TempCurrency2.Code); IF TempCurrencyAmount.FINDSET(FALSE,FALSE) THEN REPEAT IF TempCurrencyAmount.Date <> 12319999D THEN AgedCustLedgEntry[GetPeriodIndex(TempCurrencyAmount.Date)]."Remaining Amount" := TempCurrencyAmount.Amount ELSE AgedCustLedgEntry[6]."Remaining Amount" := TempCurrencyAmount.Amount; UNTIL TempCurrencyAmount.NEXT = 0; END; } SECTIONS { { PROPERTIES { SectionType=Body; SectionWidth=18150; SectionHeight=423; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT(Number = 1); END; } CONTROLS { } } { PROPERTIES { SectionType=Body; SectionWidth=18150; SectionHeight=423; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT(Number = 1); END; } CONTROLS { { 1000000140;TextBox;16350;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[5]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control124 } { 1000000141;TextBox;14400;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[4]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control123 } { 1000000142;TextBox;12450;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[3]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control122 } { 1000000143;TextBox;10500;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[2]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control121 } { 1000000144;TextBox;8550 ;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[1]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control120 } { 1000000145;TextBox;6600 ;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[6]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control119 } { 1000000146;TextBox;5700 ;0 ;750 ;423 ;Name=Original Amount; FontBold=Yes; CaptionML=ENU=Currency Code; SourceExpr=TempCurrency2.Code; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control117 } { 1000000147;Label ;0 ;0 ;5550 ;423 ;CaptionML=ENU=Currency Specification; DataSetFieldName=Currency_SpecificationCaption } } } { PROPERTIES { SectionType=Body; SectionWidth=18150; SectionHeight=423; OnPreSection=BEGIN IF PrintToExcel THEN CurrReport.SHOWOUTPUT(FALSE) ELSE CurrReport.SHOWOUTPUT(Number > 1); END; } CONTROLS { { 1000000148;TextBox;16350;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[5]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control112 } { 1000000149;TextBox;14400;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[4]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control113 } { 1000000150;TextBox;12450;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[3]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control114 } { 1000000151;TextBox;10500;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[2]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control115 } { 1000000152;TextBox;8550 ;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[1]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control109 } { 1000000153;TextBox;6600 ;0 ;1800 ;423 ;Name=Original Amount; SourceExpr=AgedCustLedgEntry[6]."Remaining Amount"; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control116 } { 1000000154;TextBox;5700 ;0 ;750 ;423 ;Name=Original Amount; FontBold=Yes; CaptionML=ENU=Currency Code; SourceExpr=TempCurrency2.Code; AutoFormatType=1; AutoFormatExpr=CurrencyCode; DataSetFieldName=Original_Amount_Control118 } } } } } } REQUESTFORM { PROPERTIES { Width=9680; Height=10120; SaveValues=Yes; } CONTROLS { { 1 ;CheckBox ;3410 ;0 ;440 ;440 ;InPage=-1; ShowCaption=No; CaptionML=ENU=Show Amounts in LCY; SourceExpr=PrintAmountsInLCY } { 21 ;Label ;0 ;0 ;3300 ;440 ;ParentControl=1 } { 2 ;CheckBox ;3410 ;550 ;440 ;440 ;InPage=-1; ShowCaption=No; CaptionML=ENU=New Page per Customer; SourceExpr=PrintOnlyOnePerPage } { 22 ;Label ;0 ;550 ;3300 ;440 ;ParentControl=2 } { 3 ;CheckBox ;3410 ;1540 ;440 ;440 ;InPage=-1; ShowCaption=No; CaptionML=ENU=Exclude Customers That Have a Balance Only; SourceExpr=ExcludeBalanceOnly } { 23 ;Label ;0 ;1100 ;3300 ;880 ;ParentControl=3; VertAlign=Bottom; MultiLine=Yes } { 1000000000;TextBox;3410 ;7920 ;1700 ;440 ;InPage=-1; CaptionML=ENU=Heading Type; OptionCaptionML=ENU=Date Interval,Number of Days; SourceExpr=HeadingType } { 1000000001;CheckBox;3410;7260 ;440 ;440 ;ShowCaption=No; CaptionML=ENU=Print Details; SourceExpr=PrintDetails } { 1000000002;CheckBox;3410;8580 ;440 ;440 ;InPage=-1; ShowCaption=No; CaptionML=ENU=New Page per Customer; SourceExpr=NewPagePercustomer } { 1000000003;CheckBox;3410;9130 ;440 ;440 ;Name=PrintToExcel; ShowCaption=No; CaptionML=ENU=Print to Excel; SourceExpr=PrintToExcel } { 1000000004;CheckBox;3410;6600 ;440 ;440 ;InPage=-1; ShowCaption=No; CaptionML=ENU=Print Amounts in LCY; SourceExpr=PrintAmountInLCY } { 1000000005;Label ;0 ;6600 ;3300 ;440 ;ParentControl=1000000004 } { 1000000006;Label ;0 ;7260 ;3300 ;440 ;ParentControl=1000000001; InPage=-1 } { 1000000007;Label ;0 ;7920 ;3300 ;440 ;ParentControl=1000000000 } { 1000000008;Label ;0 ;8580 ;3300 ;440 ;ParentControl=1000000002; InPage=-1 } { 1000000009;Label ;0 ;9130 ;3300 ;440 ;ParentControl=1000000003 } { 1000000010;TextBox;3410 ;5940 ;2750 ;440 ;InPage=-1; CaptionML=ENU=Period Length; SourceExpr=PeriodLength } { 1000000011;Label ;0 ;5940 ;3300 ;440 ;ParentControl=1000000010 } { 1000000012;OptionButton;3410;5280;3740;440;InPage=-1; CaptionML=ENU=Document Date; SourceExpr=AgingBy; OptionValue=Document Date } { 1000000013;OptionButton;3410;4730;3740;440;CaptionML=ENU=Posting Date; SourceExpr=AgingBy; OptionValue=Posting Date } { 1000000014;OptionButton;3410;4180;3740;440;InPage=-1; CaptionML=ENU=Due Date; SourceExpr=AgingBy; OptionValue=Due Date } { 1000000015;Label ;0 ;4180 ;3300 ;440 ;ParentControl=1000000014; CaptionML=ENU=Aging by } { 1000000016;TextBox;3410 ;3520 ;1700 ;440 ;InPage=-1; CaptionML=ENU=Aged As Of; SourceExpr=EndingDate } { 1000000017;Label ;0 ;3520 ;3300 ;440 ;ParentControl=1000000016 } { 1000000018;Label ;220 ;2530 ;8910 ;660 ;InPage=-1; CaptionML=ENU=Aged Account Details Request form info } } } REQUESTPAGE { PROPERTIES { SaveValues=Yes; } CONTROLS { { 1900000001;0;Container; ContainerType=ContentArea } { 1900000002;1;Group ; CaptionML=ENU=Options } { 1 ;2 ;Field ; CaptionML=ENU=Show Amounts in LCY; SourceExpr=PrintAmountsInLCY } { 2 ;2 ;Field ; CaptionML=ENU=New Page per Customer; SourceExpr=PrintOnlyOnePerPage } { 3 ;2 ;Field ; CaptionML=ENU=Exclude Customers That Have a Balance Only; SourceExpr=ExcludeBalanceOnly; MultiLine=Yes } } } CODE { VAR Text0000@1000 : TextConst 'ENU=Period: %1'; CustLedgEntry@1016 : Record 21; PrintAmountsInLCY@1001 : Boolean; PrintOnlyOnePerPage@1002 : Boolean; ExcludeBalanceOnly@1003 : Boolean; CustFilter@1004 : Text[250]; CustDateFilter@1005 : Text[30]; AmountCaption@1006 : Text[80]; RemainingAmtCaption@1007 : Text[30]; CustAmount@1008 : Decimal; CustRemainAmount@1009 : Decimal; CustBalanceLCY@1010 : Decimal; CustCurrencyCode@1011 : Code[10]; CustEntryDueDate@1012 : Date; StartBalanceLCY@1013 : Decimal; StartBalAdjLCY@1015 : Decimal; Correction@1019 : Decimal; ApplicationRounding@1017 : Decimal; CustLedgEntryExists@1014 : Boolean; Text0020@1018 : TextConst 'ENU=Appln Rounding:'; PageGroupNo@1021 : Integer; PN@1000000000 : Integer; GLSetup@1000000030 : Record 98; TempCustLedgEntry@1000000029 : TEMPORARY Record 21; CustLedgEntryEndingDate@1000000028 : Record 21; TotalCustLedgEntry@1000000027 : ARRAY [5] OF Record 21; GrandTotalCustLedgEntry@1000000026 : ARRAY [5] OF Record 21; AgedCustLedgEntry@1000000025 : ARRAY [6] OF Record 21; TempCurrency@1000000024 : TEMPORARY Record 4; TempCurrency2@1000000023 : TEMPORARY Record 4; TempCurrencyAmount@1000000022 : TEMPORARY Record 264; ExcelBuf@1000000021 : TEMPORARY Record 370; DetailedCustomerLedgerEntry@1000000020 : Record 379; PrintAmountInLCY@1000000018 : Boolean; EndingDate@1000000017 : Date; AgingBy@1000000016 : 'Due Date,Posting Date,Document Date'; PeriodLength@1000000015 : DateFormula; PrintDetails@1000000014 : Boolean; HeadingType@1000000013 : 'Date Interval,Number of Days'; NewPagePercustomer@1000000012 : Boolean; PeriodStartDate@1000000011 : ARRAY [5] OF Date; PeriodEndDate@1000000010 : ARRAY [5] OF Date; HeaderText@1000000009 : ARRAY [5] OF Text[30]; CurrencyCode@1000000008 : Code[10]; NumberOfCurrencies@1000000007 : Integer; NextPageGroupNo@1000000005 : Integer; PrintToExcel@1000000004 : Boolean; "-AMEYAS_KVPH2IR19.00_05APR11-"@1000000003 : Integer; Dim1Filter@1000000002 : Code[30]; Dim2Filter@1000000001 : Code[30]; Text000@1000000050 : TextConst 'ENU=Not Due'; Text001@1000000049 : TextConst 'ENU=Before'; Text002@1000000048 : TextConst 'ENU=days'; Text003@1000000047 : TextConst 'ENU=More than'; Text004@1000000046 : TextConst 'ENU=Aged by %1'; Text005@1000000045 : TextConst 'ENU=Total for %1'; Text006@1000000044 : TextConst 'ENU=Aged as of %1'; Text007@1000000043 : TextConst 'ENU=Aged by %1'; Text008@1000000042 : TextConst 'ENU=All Amounts in LCY'; Text009@1000000041 : TextConst 'ENU=Due Date,Posting Date,Document Date'; Text010@1000000040 : TextConst 'ENU=The Date Formula %1 cannot be used. Try to restate it. E.g. 1M+CM instead of CM+1M.'; Text011@1000000039 : TextConst 'ENU=Data'; Text012@1000000038 : TextConst 'ENU=Aged Accounts Receivable'; Text013@1000000037 : TextConst 'ENU=Company Name'; Text014@1000000036 : TextConst 'ENU=Report No.'; Text015@1000000035 : TextConst 'ENU=Report Name'; Text016@1000000034 : TextConst 'ENU=User ID'; Text017@1000000033 : TextConst 'ENU=Date'; Text018@1000000032 : TextConst 'ENU=Customer Filters'; Text019@1000000031 : TextConst 'ENU=Cust. Ledger Entry Filters'; LOCAL PROCEDURE CalcDates@5(); VAR i@1000 : Integer; PeriodLength2@1001 : DateFormula; BEGIN EVALUATE(PeriodLength2,'-' + FORMAT(PeriodLength)); IF AgingBy = AgingBy::"Due Date" THEN BEGIN PeriodEndDate[1] := 12319999D; PeriodStartDate[1] := EndingDate + 1; END ELSE BEGIN PeriodEndDate[1] := EndingDate; PeriodStartDate[1] := CALCDATE(PeriodLength2,EndingDate + 1); END; FOR i := 2 TO ARRAYLEN(PeriodEndDate) DO BEGIN PeriodEndDate[i] := PeriodStartDate[i - 1] - 1; PeriodStartDate[i] := CALCDATE(PeriodLength2,PeriodEndDate[i] + 1); END; PeriodStartDate[i] := 0D; FOR i := 1 TO ARRAYLEN(PeriodEndDate) DO IF PeriodEndDate[i] < PeriodStartDate[i] THEN ERROR(Text010,PeriodLength); END; LOCAL PROCEDURE CreateHeadings@10(); VAR i@1000 : Integer; BEGIN IF AgingBy = AgingBy::"Due Date" THEN BEGIN HeaderText[1] := Text000; i := 2; END ELSE i := 1; WHILE i < ARRAYLEN(PeriodEndDate) DO BEGIN IF HeadingType = HeadingType::"Date Interval" THEN HeaderText[i] := STRSUBSTNO('%1\..%2',PeriodStartDate[i],PeriodEndDate[i]) ELSE HeaderText[i] := STRSUBSTNO('%1 - %2 %3',EndingDate - PeriodEndDate[i] + 1,EndingDate - PeriodStartDate[i] + 1,Text002); i := i + 1; END; IF HeadingType = HeadingType::"Date Interval" THEN HeaderText[i] := STRSUBSTNO('%1 %2',Text001,PeriodStartDate[i - 1]) ELSE HeaderText[i] := STRSUBSTNO('%1 \%2 %3',Text003,EndingDate - PeriodStartDate[i - 1] + 1,Text002); END; LOCAL PROCEDURE InsertTemp@1(VAR CustLedgEntry@1040000 : Record 21); VAR Currency@1000 : Record 4; BEGIN WITH TempCustLedgEntry DO BEGIN IF GET(CustLedgEntry."Entry No.") THEN EXIT; TempCustLedgEntry := CustLedgEntry; INSERT; IF PrintAmountInLCY THEN BEGIN CLEAR(TempCurrency); TempCurrency."Amount Rounding Precision" := GLSetup."Amount Rounding Precision"; IF TempCurrency.INSERT THEN; EXIT; END; IF TempCurrency.GET("Currency Code") THEN EXIT; IF "Currency Code" <> '' THEN Currency.GET("Currency Code") ELSE BEGIN CLEAR(Currency); Currency."Amount Rounding Precision" := GLSetup."Amount Rounding Precision"; END; TempCurrency := Currency; TempCurrency.INSERT; END; END; LOCAL PROCEDURE GetPeriodIndex@8(Date@1040000 : Date) : Integer; VAR i@1000 : Integer; BEGIN FOR i := 1 TO ARRAYLEN(PeriodEndDate) DO IF Date IN [PeriodStartDate[i]..PeriodEndDate[i]] THEN EXIT(i); END; LOCAL PROCEDURE Pct@2(a@1000 : Decimal;b@1001 : Decimal) : Text[30]; BEGIN IF b <> 0 THEN EXIT(FORMAT(ROUND(100 * a / b,0.1),0,'') + '%'); END; LOCAL PROCEDURE UpdateCurrencyTotals@7(); VAR i@1000 : Integer; BEGIN TempCurrency2.Code := CurrencyCode; IF TempCurrency2.INSERT THEN; WITH TempCurrencyAmount DO BEGIN FOR i := 1 TO ARRAYLEN(TotalCustLedgEntry) DO BEGIN "Currency Code" := CurrencyCode; Date := PeriodStartDate[i]; IF FIND THEN BEGIN Amount := Amount + TotalCustLedgEntry[i]."Remaining Amount"; MODIFY; END ELSE BEGIN "Currency Code" := CurrencyCode; Date := PeriodStartDate[i]; Amount := TotalCustLedgEntry[i]."Remaining Amount"; INSERT; END; END; "Currency Code" := CurrencyCode; Date := 12319999D; IF FIND THEN BEGIN Amount := Amount + TotalCustLedgEntry[1].Amount; MODIFY; END ELSE BEGIN "Currency Code" := CurrencyCode; Date := 12319999D; Amount := TotalCustLedgEntry[1].Amount; INSERT; END; END; END; PROCEDURE MakeExcelInfo@9(); BEGIN ExcelBuf.SetUseInfoSheed; ExcelBuf.AddInfoColumn(FORMAT(Text013),FALSE,'',TRUE,FALSE,FALSE,''); ExcelBuf.AddInfoColumn(COMPANYNAME,FALSE,'',FALSE,FALSE,FALSE,''); ExcelBuf.NewRow; ExcelBuf.AddInfoColumn(FORMAT(Text015),FALSE,'',TRUE,FALSE,FALSE,''); ExcelBuf.AddInfoColumn(FORMAT(Text012),FALSE,'',FALSE,FALSE,FALSE,''); ExcelBuf.NewRow; ExcelBuf.AddInfoColumn(FORMAT(Text014),FALSE,'',TRUE,FALSE,FALSE,''); ExcelBuf.AddInfoColumn(REPORT::"Aged Accounts Receivable",FALSE,'',FALSE,FALSE,FALSE,''); ExcelBuf.NewRow; ExcelBuf.AddInfoColumn(FORMAT(Text016),FALSE,'',TRUE,FALSE,FALSE,''); ExcelBuf.AddInfoColumn(USERID,FALSE,'',FALSE,FALSE,FALSE,''); ExcelBuf.NewRow; ExcelBuf.AddInfoColumn(FORMAT(Text017),FALSE,'',TRUE,FALSE,FALSE,''); ExcelBuf.AddInfoColumn(TODAY,FALSE,'',FALSE,FALSE,FALSE,''); ExcelBuf.NewRow; ExcelBuf.AddInfoColumn(FORMAT(Text018),FALSE,'',TRUE,FALSE,FALSE,''); ExcelBuf.AddInfoColumn(Customer.GETFILTERS,FALSE,'',FALSE,FALSE,FALSE,''); ExcelBuf.NewRow; ExcelBuf.AddInfoColumn(FORMAT(Text019),FALSE,'',TRUE,FALSE,FALSE,''); ExcelBuf.AddInfoColumn("Cust. Ledger Entry".GETFILTERS,FALSE,'',FALSE,FALSE,FALSE,''); IF PrintAmountInLCY THEN BEGIN ExcelBuf.NewRow; ExcelBuf.AddInfoColumn(FORMAT(Text008),FALSE,'',TRUE,FALSE,FALSE,''); ExcelBuf.AddInfoColumn(PrintAmountInLCY,FALSE,'',FALSE,FALSE,FALSE,''); END; ExcelBuf.NewRow; ExcelBuf.AddInfoColumn(FORMAT(COPYSTR(Text004,1,7)),FALSE,'',TRUE,FALSE,FALSE,''); ExcelBuf.AddInfoColumn(FORMAT(SELECTSTR(AgingBy + 1,Text009)),FALSE,'',FALSE,FALSE,FALSE,''); ExcelBuf.ClearNewRow; MakeExcelDataHeader; END; LOCAL PROCEDURE MakeExcelDataHeader@6(); BEGIN ExcelBuf.NewRow; ExcelBuf.AddColumn(Customer.FIELDCAPTION("No."),FALSE,'',TRUE,FALSE,TRUE,'@'); ExcelBuf.AddColumn(Customer.FIELDCAPTION(Name),FALSE,'',TRUE,FALSE,TRUE,''); ExcelBuf.AddColumn(TempCustLedgEntry.FIELDCAPTION("Posting Date"),FALSE,'',TRUE,FALSE,TRUE,''); ExcelBuf.AddColumn(TempCustLedgEntry.FIELDCAPTION("Document Type"),FALSE,'',TRUE,FALSE,TRUE,''); ExcelBuf.AddColumn(TempCustLedgEntry.FIELDCAPTION("Document No."),FALSE,'',TRUE,FALSE,TRUE,'@'); ExcelBuf.AddColumn(TempCustLedgEntry.FIELDCAPTION("Due Date"),FALSE,'',TRUE,FALSE,TRUE,''); IF NOT PrintAmountInLCY THEN BEGIN ExcelBuf.AddColumn(TempCustLedgEntry.FIELDCAPTION("Currency Code"),FALSE,'',TRUE,FALSE,TRUE,''); ExcelBuf.AddColumn(TempCustLedgEntry.FIELDCAPTION("Original Amount"),FALSE,'',TRUE,FALSE,TRUE,'@'); ExcelBuf.AddColumn(TempCustLedgEntry.FIELDCAPTION("Remaining Amount"),FALSE,'',TRUE,FALSE,TRUE,'@'); END ELSE BEGIN ExcelBuf.AddColumn(TempCustLedgEntry.FIELDCAPTION("Original Amt. (LCY)"),FALSE,'',TRUE,FALSE,TRUE,'@'); ExcelBuf.AddColumn(TempCustLedgEntry.FIELDCAPTION("Remaining Amt. (LCY)"),FALSE,'',TRUE,FALSE,TRUE,'@'); END; END; PROCEDURE MakeExcelDataBody@4(); BEGIN ExcelBuf.NewRow; ExcelBuf.AddColumn(Customer."No.",FALSE,'',FALSE,FALSE,FALSE,''); ExcelBuf.AddColumn(Customer.Name,FALSE,'',FALSE,FALSE,FALSE,''); ExcelBuf.AddColumn(TempCustLedgEntry."Posting Date",FALSE,'',FALSE,FALSE,FALSE,''); ExcelBuf.AddColumn(FORMAT(TempCustLedgEntry."Document Type"),FALSE,'',FALSE,FALSE,FALSE,''); ExcelBuf.AddColumn(TempCustLedgEntry."Document No.",FALSE,'',FALSE,FALSE,FALSE,''); ExcelBuf.AddColumn(TempCustLedgEntry."Due Date",FALSE,'',FALSE,FALSE,FALSE,''); IF PrintAmountInLCY THEN BEGIN ExcelBuf.AddColumn(CustLedgEntryEndingDate."Amount (LCY)",FALSE,'',FALSE,FALSE,FALSE,''); ExcelBuf.AddColumn(CustLedgEntryEndingDate."Remaining Amt. (LCY)",FALSE,'',FALSE,FALSE,FALSE,''); END ELSE BEGIN ExcelBuf.AddColumn(CurrencyCode,FALSE,'',FALSE,FALSE,FALSE,''); ExcelBuf.AddColumn(CustLedgEntryEndingDate.Amount,FALSE,'',FALSE,FALSE,FALSE,''); ExcelBuf.AddColumn(CustLedgEntryEndingDate."Remaining Amount",FALSE,'',FALSE,FALSE,FALSE,''); END; END; PROCEDURE CreateExcelbook@3(); BEGIN ExcelBuf.CreateBook; ExcelBuf.CreateSheet(Text011,Text012,COMPANYNAME,USERID); ExcelBuf.GiveUserControl; ERROR(''); END; BEGIN END. } RDLDATA { 9.83068cm 0.423cm =First(Fields!This_report_also_includes_customers_that_only_have_balances_Caption.Value) =IIF(Fields!ExcludeBalanceOnly.Value=TRUE,TRUE,FALSE) 12cm 2 0.423cm 0.43cm =First(Fields!Customer_TABLECAPTION__________CustFilter.Value) =IIF(Fields!CustFilter.Value="",TRUE,FALSE) 18.15cm 1 DataSet_Result
0.423cm true =Fields!Cust__Ledger_Entry__Posting_Date_.Value 111 =Fields!Cust__Ledger_Entry__Document_Type_.Value 110 =Fields!Cust__Ledger_Entry__Document_No__.Value 109 =Fields!Cust__Ledger_Entry_Description.Value 108 =Fields!CustCurrencyCode.Value 107 true =Fields!CustAmount.Value 106 true =Fields!CustRemainAmount.Value 105 true =Fields!CustBalanceLCY.Value-Fields!Correction.Value 104 true =Fields!CustEntryDueDate.Value 102 =Fields!Cust__Ledger_Entry__Entry_No__.Value 101 =IIF((Count(Fields!Cust__Ledger_Entry__Entry_No__.Value,"Table1_Group3")-1)=RowNumber("Table1_Group3"),FALSE,TRUE) 0.423cm 100 textbox45 =Fields!Cust__Ledger_Entry__Document_Type_.Value 99 =Fields!Cust__Ledger_Entry__Document_No__.Value 98 =Fields!Detailed_Cust__Ledg__Entry__Entry_Type_.Value 97 96 true =Fields!Correction.Value 95 94 textbox64 true =Fields!CustBalanceLCY_Control61.Value 93 91 textbox67 90 textbox68 =IIF(Count(Fields!Detailed_Cust__Ledg__Entry_Entry_No_.Value,"Table1_Group3")=RowNumber("Table1_Group3"),FALSE,TRUE) 0.846cm 10 textbox58 =Fields!Cust__Ledger_Entry__Document_Type_.Value 9 =Fields!Cust__Ledger_Entry__Document_No__.Value 8 =Fields!Detailed_Cust__Ledg__Entry2__Entry_Type_.Value 7 6 textbox46 true =Fields!ApplicationRounding.Value 5 textbox47 4 textbox48 true =Fields!CustBalanceLCY_Control73.Value 3 1 textbox59 textbox60 =IIF(Fields!Detailed_Cust__Ledg__Entry2__Entry_Type_.Value="",TRUE,FALSE)
true 0.95238cm true =First(Fields!Cust__Ledger_Entry__Posting_Date_Caption.Value) 171 true =First(Fields!Cust__Ledger_Entry__Document_Type_Caption.Value) 170 true =First(Fields!Cust__Ledger_Entry__Document_No__Caption.Value) 169 true =First(Fields!Cust__Ledger_Entry_DescriptionCaption.Value) 168 167 true =First(Fields!AmountCaption.Value) 166 true =First(Fields!RemainingAmtCaption.Value) 165 true =First(Fields!CustBalanceLCY_Control56Caption.Value) 164 true =First(Fields!CustEntryDueDateCaption.Value) 162 true =First(Fields!Cust__Ledger_Entry__Entry_No__Caption.Value) 161 0.1cm =Fields!PrintAmountsInLCY.Value true 160 true =Fields!Customer___Detail_Trial_Bal_Caption.Value+Chr(177)+Fields!STRSUBSTNO_Text000_CustDateFilter_.Value+Chr(177)+Fields!COMPANYNAME.Value+Chr(177)+Fields!All_amounts_are_in_LCYCaption.Value true 159 true =Fields!FORMAT_TODAY_0_4_.Value+Chr(177)+Fields!CurrReport_PAGENOCaption.Value true 158 157 textbox231 156 textbox232 155 textbox233 154 textbox234 153 textbox235 151 textbox237 150 textbox5
1.90476cm 0.95238cm 1.58718cm 3.17435cm 0.8419cm 1.74589cm 1.90461cm 1.90461cm 1.61104cm 1.26974cm
0.423cm 3 true =First(Fields!Total__LCY__Before_PeriodCaption.Value) 60 59 58 57 2 true =Sum(Fields!StartBalanceLCY_Control80.Value) 56 54 textbox307 53 textbox308 =IIF(Sum(Fields!StartBalAdjLCY.Value)=0,TRUE,FALSE) 0.423cm 3 true =First(Fields!Total_Adj__of_Opening_BalanceCaption.Value) 67 66 2 true =Sum(Fields!StartBalAdjLCY_Control81.Value) 65 2 true =Sum(Fields!StartBalanceLCY_Control80.Value)+Sum(Fields!StartBalAdjLCY_Control81.Value) 64 62 textbox20 61 textbox21 =IIF(Sum(Fields!StartBalAdjLCY.Value)=0,TRUE,FALSE) 0.423cm 3 true =First(Fields!Total__LCY_Caption.Value) 74 73 2 true =Sum(Fields!CustBalanceLCY_Control62.Value)-(Sum(Fields!StartBalanceLCY_Control80.Value)+Sum(Fields!StartBalAdjLCY_Control81.Value)) 72 2 true =Sum(Fields!CustBalanceLCY_Control62.Value) 71 69 textbox291 68 textbox292 =IIF(Sum(Fields!StartBalAdjLCY.Value)=0,TRUE,FALSE) 0.423cm 3 true =First(Fields!Total__LCY__Before_PeriodCaption_Control16.Value) 82 81 80 79 2 true =Sum(Fields!StartBalanceLCY_Control80.Value) 78 76 textbox275 75 textbox276 =IIF(Sum(Fields!StartBalAdjLCY.Value)=0,FALSE,TRUE) 0.423cm 3 true =First(Fields!Total__LCY_Caption.Value) 89 88 2 true =Sum(Fields!CustBalanceLCY_Control62.Value)-Sum(Fields!StartBalanceLCY_Control80.Value) 87 2 true =Sum(Fields!CustBalanceLCY_Control62.Value) 86 84 textbox27 83 textbox63 =IIF(Sum(Fields!StartBalAdjLCY.Value)=0,FALSE,TRUE)
=1
=Fields!PageGroupNo.Value true
0.423cm 20 textbox29 19 textbox6 2 =Last(Fields!Customer_Name_Control48.Value) 18 textbox33 17 textbox36 16 textbox37 15 textbox38 true =Last(Fields!CustBalanceLCY.Value) 14 textbox39 12 textbox54 11 textbox55 =IIF(Fields!PrintAmountsInLCY.Value=TRUE,TRUE,FALSE) 0.423cm 30 textbox3 29 textbox7 2 =Last(Fields!Customer_Name_Control48.Value) 28 textbox34 27 textbox78 true =Last(Fields!CustBalanceLCY_StartBalanceLCY_StartBalAdjLCY.Value) 26 textbox79 25 textbox80 true =Last(Fields!CustBalanceLCY.Value) 24 22 textbox83 21 textbox84 =IIF(Fields!PrintAmountsInLCY.Value=TRUE,FALSE,TRUE) 0.423cm 41 textbox10 40 textbox23 39 textbox24 38 textbox26 37 textbox28 36 textbox31 35 textbox57 34 textbox61 32 textbox71 31 textbox86 0.423cm 52 textbox146 51 textbox147 50 textbox148 49 textbox149 48 textbox150 47 textbox151 46 textbox52 45 textbox65 43 textbox156 42 textbox157
=Fields!Customer__No__.Value
0.423cm =Fields!Customer__No__.Value 149 3 =Fields!Customer_Name.Value 148 147 146 145 144 142 141 0.423cm 140 textbox173 2 true =Fields!Customer__Phone_No__Caption.Value 139 3 =Fields!Customer__Phone_No__.Value 138 137 136 134 133 0.423cm 132 textbox98 131 textbox99 130 textbox100 129 textbox101 128 textbox102 127 textbox103 126 textbox104 true =Fields!StartBalanceLCY.Value 125 textbox105 123 textbox107 122 textbox108 0.423cm 121 textbox119 120 textbox120 2 true =Fields!Adj__of_Opening_BalanceCaption.Value 119 textbox121 118 textbox123 =Fields!StartBalAdjLCY.Value 117 textbox124 116 textbox125 true =Fields!StartBalanceLCY___StartBalAdjLCY.Value 115 textbox126 113 textbox128 112 textbox129 =IIF(Fields!StartBalAdjLCY.Value=0,TRUE,FALSE)
=Fields!Cust__Ledger_Entry__Entry_No__.Value
1.5873cm16.89646cm
2cm Public Function BlankZero(ByVal Value As Decimal) if Value = 0 then Return "" end if Return Value End Function Public Function BlankPos(ByVal Value As Decimal) if Value > 0 then Return "" end if Return Value End Function Public Function BlankZeroAndPos(ByVal Value As Decimal) if Value >= 0 then Return "" end if Return Value End Function Public Function BlankNeg(ByVal Value As Decimal) if Value < 0 then Return "" end if Return Value End Function Public Function BlankNegAndZero(ByVal Value As Decimal) if Value <= 0 then Return "" end if Return Value End Function Customer___Detail_Trial_Bal_Caption FORMAT_TODAY_0_4_ STRSUBSTNO_Text000_CustDateFilter_ CurrReport_PAGENOCaption CurrReport_PAGENO COMPANYNAME USERID All_amounts_are_in_LCYCaption PrintAmountsInLCY PrintOnlyOnePerPage This_report_also_includes_customers_that_only_have_balances_Caption ExcludeBalanceOnly Customer_TABLECAPTION__________CustFilter CustFilter Cust__Ledger_Entry__Posting_Date_Caption Cust__Ledger_Entry__Document_Type_Caption Cust__Ledger_Entry__Document_No__Caption Cust__Ledger_Entry_DescriptionCaption CustEntryDueDateCaption Cust__Ledger_Entry__Entry_No__Caption AmountCaption RemainingAmtCaption CustBalanceLCY_Control56Caption Customer__No__ Customer_Name Customer__Phone_No__Caption Customer__Phone_No__ PageGroupNo StartBalanceLCY StartBalanceLCYFormat Adj__of_Opening_BalanceCaption StartBalAdjLCY StartBalAdjLCYFormat CustBalanceLCY CustBalanceLCYFormat StartBalanceLCY___StartBalAdjLCY____Cust__Ledger_Entry___Amount__LCY_____Correction___ApplicationRounding StartBalanceLCY___StartBalAdjLCY____Cust__Ledger_Entry___Amount__LCY_____Correction___ApplicationRoundingFormat StartBalanceLCY_Control47Format Total__LCY__Before_PeriodCaption Total__LCY_Caption Cust__Ledger_Entry___Amount__LCY_____Correction___ApplicationRounding Cust__Ledger_Entry___Amount__LCY_____Correction___ApplicationRoundingFormat Total_Adj__of_Opening_BalanceCaption StartBalAdjLCY_Control67Format StartBalanceLCY___StartBalAdjLCY StartBalanceLCY___StartBalAdjLCYFormat Total__LCY_Caption_Control30 Total__LCY__Before_PeriodCaption_Control16 Cust__Ledger_Entry___Amount__LCY_____Correction___ApplicationRounding_Control69Format StartBalanceLCY____Cust__Ledger_Entry___Amount__LCY_____Correction___ApplicationRounding StartBalanceLCY____Cust__Ledger_Entry___Amount__LCY_____Correction___ApplicationRoundingFormat StartBalanceLCY_Control71Format Customer_Date_Filter Customer_Global_Dimension_2_Filter Customer_Global_Dimension_1_Filter ContinuedCaption StartBalanceLCY___StartBalAdjLCY____Amount__LCY__ StartBalanceLCY___StartBalAdjLCY____Amount__LCY__Format Cust__Ledger_Entry__Posting_Date_ Cust__Ledger_Entry__Document_Type_ Cust__Ledger_Entry__Document_No__ Cust__Ledger_Entry_Description CustAmount CustAmountFormat CustRemainAmount CustRemainAmountFormat CustEntryDueDate Cust__Ledger_Entry__Entry_No__ CustCurrencyCode CustBalanceLCY_Control56 CustBalanceLCY_Control56Format ContinuedCaption_Control46 StartBalanceLCY___StartBalAdjLCY____Amount__LCY___Control59Format Cust__Ledger_Entry_Customer_No_ Cust__Ledger_Entry_Posting_Date Cust__Ledger_Entry_Global_Dimension_2_Code Cust__Ledger_Entry_Global_Dimension_1_Code Cust__Ledger_Entry_Date_Filter Cust__Ledger_Entry___Document_No__ Cust__Ledger_Entry___Document_Type_ Detailed_Cust__Ledg__Entry__Entry_Type_ Correction CorrectionFormat CustBalanceLCY_Control61 CustBalanceLCY_Control61Format Detailed_Cust__Ledg__Entry_Entry_No_ Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_ Cust__Ledger_Entry___Document_Type__Control29 Cust__Ledger_Entry___Document_No___Control31 Detailed_Cust__Ledg__Entry2__Entry_Type_ ApplicationRounding ApplicationRoundingFormat CustBalanceLCY_Control73 CustBalanceLCY_Control73Format Detailed_Cust__Ledg__Entry2_Entry_No_ Detailed_Cust__Ledg__Entry2_Cust__Ledger_Entry_No_ Customer_Name_Control48 CustBalanceLCY_Control62 CustBalanceLCY_Control62Format StartBalanceLCY_Control80 StartBalanceLCY_Control80Format StartBalAdjLCY_Control81 StartBalAdjLCY_Control81Format CustBalanceLCY_StartBalanceLCY_StartBalAdjLCY CustBalanceLCY_StartBalanceLCY_StartBalAdjLCYFormat CustBalanceLCY_Control63Format DummyDataSource DataSet Result SQL 8da16eac-55ee-44f4-8dd4-0f2195b75a8b 11in 8.5in =User!Language 1.5cm 2.53968cm true true 0.423cm 17.83234cm 0.423cm =Globals!PageNumber 0.45cm 7 0.423cm 15.03234cm 0.846cm =User!UserID 3.25cm 6 0.423cm 15.13234cm =Cstr(Choose(1,Split(Cstr(ReportItems!HeaderInfo2.Value),Chr(177)))) 3.15cm 5 0.423cm 0.11466cm 0.423cm =Cstr(Choose(2,Split(Cstr(ReportItems!HeaderInfo1.Value),Chr(177)))) 7.5cm 4 0.423cm 0.11466cm 0.846cm =Cstr(Choose(3,Split(Cstr(ReportItems!HeaderInfo1.Value),Chr(177)))) 7.5cm 3 0.423cm 0.11466cm =Cstr(Choose(1,Split(Cstr(ReportItems!HeaderInfo1.Value),Chr(177)))) 7.5cm 2 0.423cm 17.08234cm 0.423cm =Cstr(Choose(2,Split(Cstr(ReportItems!HeaderInfo2.Value),Chr(177)))) 0.75cm 1 0.423cm 0.11466cm 1.75cm =Cstr(Choose(4,Split(Cstr(ReportItems!HeaderInfo1.Value),Chr(177)))) =IIF(ReportItems!PrintAmountsInLCY.Value=FALSE,TRUE,FALSE) 7.5cm 29.7cm 21cm 2cm 18.39646cm true ece01aa1-21dc-42ce-80d9-9c65b57a7364 true
END_OF_RDLDatA } }