Tally Chapter 124 TDL for Ledger details with Ageing By Rajiv Mishra Computer class






Few lines are Missing here. Watch the lesson 124 Video for full code
   

[Collection : Fi1 List of Ledger]

    Use                : List of Ledgers

    Fetch            : Name, Parent

    Delete          : Format

    Add : Format     : $Name, 40

    Add    : Format     : $Parent, 30

    Filter            : IsLedgerDrsCrs

   

[System : Formula]

    IsLedgerDrsCrs     : $$IsGrpofGrp:$Parent:$$GroupSundryDebtors OR $$IsGrpOfGrp:$Parent:$$GroupSundryCreditors


   

   


;****************************************************************************

   

[Report : LedgerDisplayFi1]

    Use                : Ledger Vouchers

    Delete            : Form            : Ledger Vouchers

    Form            : LedgerDisplayFi1

    Title            : $$LocaleString:"4-in-1 Ledger Display"

    Print Set        : Report Title        : If NOT $$IsEmpty:$Name Then $Name Else ##LedgerName

    Variable         : SVFromDate, SVToDate

    Set             : SVFromDate     : $$SystemPeriodFrom

    Variable        : LedgerName

    Variables        : DSP AgeByDueDate, DSP HasColumnTotal, DSP HasMultiLevel, DSP NotScaleable, DSP ShowMonthly

    Variables        : ExplodeFlag, In NewPages, LedgerName

    Variables        : Is BillWiseReport, Is CCReport, Is ForexReport, Is GrpBillReport, Is GrpReport, Is LedgerReport, Is MultiPage, Is VchTypeReport, IsTDSOutstandingReport

    Variables        : Show BillRange, Show BillType, Show ContactDetails, Show DaysByBillDate, Show Forex, Show Reminders

    Variables        : SV Budget, SV CurrentCompany, SV SortMethod, SV Variance

    Variable        : ShowRunBalance

    Variable        : IsDisplayReport, DSPWithOpening

    Variable        : ShowOpBillAmt, ExplodeNarrFlag, ShowDueOnPrompt, ShowOverdueOfBill, BillwithOrder

    Local            : Variable    : LedgerName: Table    : Ledger OutstandingsExtract

    Variable        : ShowLedParent

    Set                : DSP HasColumnTotal    : No

    Set               : DSP HasMultiLevel      : No

    Set             : DSP NotScaleable       : Yes

    Set                : DSP ShowMonthly        : No

    Set                : Is BillWiseReport      : Yes

    Set                 : Is GrpBillReport       : No

    Set             : Is LedgerReport        : Yes

    Set             : Is MultiPage           : No

    Set             : Show ContactDetails    : No

    Set                : IsTDSOutstandingReport: No

    Set                : SV Sort Method        : @@Default

    Set                : IsDisplayReport         : $$InDisplayMode

    Set                : ShowOpBillAmt            : Yes

    Set               : ShowDueOnPrompt        : Yes

    Set               : ShowOverdueOfBill     : Yes

    Set               : ShowDaysByBillDate     : No

    Set               : ShowReminders         : No

    Set               : ShowInterest             : No

    Set               : ShowRunBalance         : Yes

    Set               : Is ForexReport         : No

   

[Form : LedgerDisplayFi1]

    Parts            : LedgerAccPart

    Parts            : LedgerBillPart

    Parts            : LedgerAge


    Height          : 100% Screen

    Width           : 100% Screen

    Buttons            : PrintButton, ExportButton, MailButton, UploadButton

    Button          : ExplodeFlag, F2ChangePeriod, ChangeCompany, ChangeItem, /*LedgerChange,*/ +

                        LED Daily, LED Monthly, Direct Columnar, LED BillWise, Fi1Contact Details

    BottomButton    : BlankButton, ToggleDueDays, RunBalOnOff, SetDates, BlankButton1, BlankButton2, BlankButton3, BlankButton4,+

                        Fi1 LEDVCH Configure, FilterButton, ValueButton

    Bottom Toolbar Buttons     : BottomToolBarBtn1, BottomToolBarBtn2_EditVch, BottomToolBarBtn3, BottomToolBarBtn4, BottomToolBarBtn5, BottomToolBarBtn6,+

                    BottomToolBarBtn7, BottomToolBarBtn8, BottomToolBarBtn9, BottomToolBarBtn10, BottomToolBarBtn11, BottomToolBarBtn12

    Local           : Button        : ValueButton         : Inactive     : Yes

     Local            : Button        : BottomToolBarBtn6    : Inactive    : NOT $$Allow:Create:Vouchers

     Local            : Button        : BottomToolBarBtn7    : Inactive  : NOT $$Allow:Create:Vouchers    

    Local           : Button        : Change Company     : Delete    : Action

    Local            : Button        : Change Company    : Add        : Action List    :  ChangeCompanyWindow, ChangeLedgerName

    Local            : Button        : FilterButton        : Delete    : Action

    Local            : Button        : FilterButton        : Add        : Action List    :  SetFilterVar, OpenFilterWindow

    Keys            : ChangePeriod

    Space Top       : If $$InPrintMode Then ##SVSpaceTop Else 0 inches

    Space Bottom    : If $$InPrintMode Then 0.5 Else 0 inches

    Space Left      : If $$InPrintMode AND $$InPixelMode Then 0.5 Else 0 inches

    Space Right     : If $$InPrintMode AND $$InPixelMode Then 0.25 Else 0 inches

    Set                : SVPrintCMPConfirmDate        : @@DSPToDate    


   

[System : Formula]

    LedDateWidth    : 6

    LedLedgerWidth    : 100 - @@LedDateWidth - @@LedVchType - @@LedVchNum - @@WithRunBal

    LedVchType        : 10

    LedVchNum        : 14

    LedAmount        : 10

    WithRunBal        : If ##ShowRunBalance Then (@@LedAmount * 3) Else (@@LedAmount * 2)

   



;****************************************************************************


[Part :    LedgerAccPart]

    Parts            : Fi1LV Title, Fi1LV Body,

    Vertical        : Yes

   

[Part: Fi1LV Title]

    Option      : DB PrnTitle        : @@InPrintORExcelExportMode

    Option      : Fi1LV ScrTitle    : NOT @@InPrintORExcelExportMode


[!Part: Fi1LV ScrTitle]

    Line        : Fi1LV Title, Fi1LV Details

       

        [Line  : Fi1LV Title]

            Field       : Fi1LV Title,

            Right Field : DSP MainDateTitle

            Local       : Field : DSPMainDateTitle    : Width        : 20% Screen

           

            [Field: Fi1LV Title]

                Fields  : Simple Prompt, Name Field

                Full Width   : Yes

                Local   : Field : Simple Prompt : Info      : If NOT ##InNewPages AND @@IsHTMLFormat Then "" Else $$LocaleString:$$SysName:Ledger

                Local   : Field : Simple Prompt : Width     : 9

                Local   : Field : Name Field    : Set as    : If NOT ##InNewPages AND @@IsHTMLFormat Then "" Else If NOT $$IsEmpty:$Name Then $Name Else #LedgerName

                Local   : Field : Name Field    : Style     : Large Bold

                Local   : Field : Name Field    : Full Width: Yes

               

            [Field: Fi1LEDMailName]

                Use                : Name Field

                Set as            : $EMail:Ledger:##LedgerName

                Set always        : Yes

                Variable        : SVMailTo

                Width            : 20.1% screen


        [Line  : Fi1LV Details]

            Field       : Fi1FullAddress

            Right Field : Fi1GSTNo, Fi1MobileNo

            Local       : Field : Fi1FullAddress    : Full Width: Yes

            Local       : Field : Fi1GSTNo            : Width        : 28% Screen

            Local       : Field : Fi1MobileNo        : Width        : 12% Screen

            Border        : Thin Top

           

            [Field : Fi1FullAddress]

                Use            : Name Field

                Set As        : $STPartyFullAdd + " " + $StateName + " - " + $PinCode:Ledger:##LedgerName


            [Field : Fi1GSTNo]

                Use            : Name Field

                Set As        : "GST No. : " + $PARTYGSTIN:Ledger:##LedgerName + " ( " + $GSTRegistrationType:Ledger:##LedgerName + " )"


            [Field : Fi1MobileNo]

                Use            : Name Field

                Set As        : "Cell : " + $LedgerMOBILE:Ledger:##LedgerName

               

[Part : Fi1LV VchTitle]

    Line        : Fi1LV VchTitle

       

    [Line: Fi1LV VchTitle]

        Line    : Fi1 DSP VchAccTitles


        [Line: Fi1 DSP VchAccTitles]

            Left Fields     : Fi1DSP VchDateTitle, Fi1DSP VchAcctTitle,

            Right Fields    : Fi1DSP VchTypeTitle, Fi1DSP VchNumberTitle, Fi1DSP VchDrTitle, Fi1DSP VchCrTitle, Fi1DSP VchLedBalTitle

            Border          : Thin Top Bottom                   

            Option            : Excel DB Title1 Bills             : $$InExportMode AND ##DBBillExplodeFlag AND (##ExplodeFlag OR $$KeyExplode) AND NOT (($$IsServiceTaxOn AND @@IsSTTaxenabledDate_Vch) AND $$IsTDSOn AND NOT ##OnlyInvVouchers)       

            Option            : Excel DB Title1                    : $$InExportMode AND NOT ##DBBillExplodeFlag AND (##ExplodeFlag OR $$KeyExplode)

            Option            : Excel DB Title1 ServiceTax Bills    : $$InExportMode AND ##DBBillExplodeFlag AND (##ExplodeFlag OR $$KeyExplode) AND (($$IsServiceTaxOn AND @@IsSTTaxenabledDate_Vch) AND $$IsTDSOn AND NOT ##OnlyInvVouchers)       


            [Field: Fi1DSP VchDateTitle]

                Use         : Short Date Title Field

                Info        : $$LocaleString:"Date"

                Align       : Centre

                Width        : @@LedDateWidth % Screen


            [Field: Fi1DSP VchAcctTitle]

                Use         : Name Title Field

                Info        : $$LocaleString:"Particulars"

                Widespaced    : Yes

                Indent      : 4

                Style       : Normal Bold

                Full Width  : Yes

                Width        : @@LedLedgerWidth % Screen

   

            [Field: Fi1DSP VchTypeTitle]

                Use         : Short Name Title Field

                Width       : @@LedVchType % Screen

                Info        : $$LocaleString:"Voucher Type"

                Align       : Centre


            [Field: Fi1DSP VchNumberTitle]

                Use         : Short Name Title Field

                Width       : @@LedVchNum % Screen

                Info        : $$LocaleString:"Voucher No."

                Align       : Centre

                Invisible   : (##BankRecMode OR NOT $$InPixelMode OR (($$InExportMode OR $$InPrintMode) AND NOT ##ExplodeVNum))


            [Field: Fi1DSP VchDrTitle]

                Use         : Amount Title Field

                Info        : $$LocaleString:"Debit"

                Align       : Centre

                Style       : Normal Bold

                Width        : @@LedAmount % Screen


            [Field: Fi1DSP VchCrTitle]

                Use         : Amount Title Field

                Info        : $$LocaleString:"Credit"

                Align       : Centre

                Style       : Normal Bold

                Width        : @@LedAmount % Screen


            [Field: Fi1DSP VchLedBalTitle]

                Use            : Amount Title Field

                Set as        : $$LocaleString:"Balance"

                Widespaced    : Yes

                Align        : Centre

                Width        : @@LedAmount % Screen

                Invisible    : NOT ##ShowRunBalance OR NOT (##SVSortMethod = @@Default)


[Part : Fi1LV Body]

    Sync            : No

    Lines           : Fi1LV VchTitle, Fi1DSP VchOpBal, Fi1DSP VchDetail

    Repeat          : Fi1DSP VchDetail : Vouchers of Ledger

    Bottom Line        : Fi1DSP VchTotalAmt, Fi1LedTotals

    Total           : Fi1DSP VchCrAmt, Fi1DSP VchDrAmt

    Scroll          : Vertical

    Page Break      : Fi1LV ClPageBreak, Fi1LV OpPageBreak

    Space Top       : if $$InPrintMode then 0.5 else 0

    Space Bottom    : if $$InPrintMode then 0.5 else 0

    Balancing       : Yes

    Option            : UpdatePageIndex        : ##IsMultiPage AND ##InNewPages AND $$UpdatePageIndex:#LedgerName

    Local    : Field : Fi1DSP VchType : Set as  : if NOT $$IsVoucher then "" else +

                                                if NOT $$InPixelMode then $AdditionalName:VoucherType:$VoucherTypeName else $Name:VoucherType:$VoucherTypeName

    Local        : Part    : Default    : Float    : Yes

   

    [Line: Fi1DSP VchOpBal]

        Field            : Fi1DSP VchDate, Fi1DSP VchLedAccount

        Right Fields    : Fi1DSP VchType, Fi1DSP VchNumber, Fi1DSP VchDrOpAmt, Fi1DSP VchCrOpAmt, Fi1DSP VchLedBalance

        Local           : Field : Fi1DSP VchDate        : Set As    : if $$IsVoucher OR $IsForexLine then @@BalancingStart else @@DSPFromDate

        Local           : Field : Fi1DSP VchLedAccount    : Set As    : $$LocaleString:"Opening Balance"

        Local           : Field : Fi1DSP VchLedAccount    : SpaceLeft    : 3

        Local           : Field : Fi1DSP VchLedAccount    : Delete    : Border

        Local           : Field : Fi1DSP VchLedAccount    : Style        : Normal Bold

        Local           : Field : Fi1DSP VchLedAccount    : Widespaced: Yes

        Local           : Field : Fi1DSP VchLedBalance    : InActive    : Yes

        Invisible       : (NOT ##ShowRunBalance OR NOT ##DSPWithOpening OR NOT (##SVSortMethod = @@Default)) OR ##BankRecMode

       

    [Line: Fi1DSP VchDetail]

        Next Page           : NOT $$DoExplosionsFit OR (($$LineNumber = $$LastLineNumber) AND $$IsLastOfSet)

        Fields              : Fi1DSP VchDate

        Right Fields        : DSP VchSuppleCount, Fi1DSP VchType, Fi1DSP VchNumber, DSP VchMasterID

        Keys                : Delete Line Object, Cancel Line Object

        Keys                : Line Insert Voucher, Line Append Voucher, Line Duplicate Voucher

        Local               : Key   : Delete Line ObjectEx     : Inactive : NOT $$CanDelete OR NOT $$Allow:Alter:BackDatedVouchers

        Local               : Key   : Delete Line Object     : Inactive : NOT $$CanDelete OR (NOT $$Allow:Alter:Vouchers) OR (NOT $$Allow:Alter:BackDatedVouchers)

        Local               : Key   : Cancel Line Object     : Inactive : NOT $$CanCancel OR (NOT $$Allow:Alter:Vouchers) OR (NOT $$Allow:Alter:BackDatedVouchers)

        Local               : Key   : Line Object Display AltEnter    : Inactive : (NOT $$Allow:Display:BackDatedVouchers) AND ($Date < ($$Date:(@@PayVchLastVchDate) - @@DaysOfBackDatedVch))

        Space Top           : if NOT $$IsSiblingExploded then 0 else if $$InPrintMode then 0.5 else 0.25

        Explode                : DBExplodeForFetch        :(##IsDaybook OR ##IsLedgerReport OR ##IsGrpReport) AND ($$KeyExplode And $$DBExplodeKeyFetch)

        Option              : Fi1DSP VchAccDetail      : NOT ##IsDayBook AND (##IsLedgerReport OR ##IsGrpReport OR ##IsCCReport)

        Option              : DSP ExplVchNumber     : NOT $$InPixelMode AND ##ExplodeVNum

        Option              : Italics Line            : $$IsVoucher AND ($IsDeleted OR $IsOptional OR ($$IsMemo:$VoucherTypeName) OR ($$IsRevJrnl:$VoucherTypeName) OR (##TallyAudit AND $IsAuditModified))

        Option              : Alter On Enter        : $$IsVoucher AND NOT $IsDeleted

        Option              : DisplayOnAltEnter     : $$IsVoucher AND NOT $IsDeleted

        Option                : DisplayOnEnter        : NOT $$IsVoucher

        Option              : DSP VchToolBarVariableSet

        Local    : Field        : Fi1DSP VchDate        : Style        : Small

        Local   : Field     : VCHCURRENCY Forex     : Type       : Amount

        Local   : Field     : VCHCURRENCY Forex     : Format     : if @@ShowForex then "ShowBaseSymbol" else "Forex,Currency"

        Local   : Field     : VCHCURRENCY Forex     : Width      : 0

        Local   : Field     : VCHCURRENCY Rate      : Width      : 0

        Local   : Line      : VCHBILL ExplLine      : Delete     : Explode

        Local   : Line      : VCHCURRENCYExplLine   : Indent     : @@DBIndentByLevel

        Local   : Line      : VCHBILL ExplLine      : Indent     : @@DBIndentByLevel

        Local   : Line      : VCHCSTCAT ExplLine    : Indent     : @@DBIndentByLevel

        Local   : Line      : VCHCST ExplLine       : Indent     : @@DBIndentByLevel

        Local   : Line      : STKALL Details        : Indent     : @@DBIndentByLevel

        Local   : Line      : STKALL Details        : Delete     : Explode : STKALL ActualQty

        Local   : Line      : STKALL Details        : Delete     : Explode : VCHCSTAlloc Explosion

        Local   : Line      : STKALL Details        : Add        : Explode : VCHCSTAlloc Explosion : @@DBInvAllCstExplodable

       

        [Field: Fi1DSP VchDate]

            Use         : Uni Date Field

            Set as      : if NOT $$IsVoucher then @@DSPToDate else +

                          if NOT $$InPrintMode OR ##IsDayBook then $Date else +

                          if $$LineNumber = $$FirstLineNumber then $Date else +

                          if $$PrevLineVisible AND $$PrevLine:$Date = $Date then $Date else $Date

            Style       : Normal

            Align       : Right

            Alter       : Voucher           : $$IsVoucher AND NOT $IsDeleted

            Display     : VCH Display       : $$IsVoucher AND NOT $IsDeleted          

            Width       : @@LedDateWidth % Screen


        [Field: Fi1DSP VchType]

            Use         : Short Name Field

            Width       : @@LedVchType % Screen

            Set as      : if NOT $$IsVoucher then "" else  if NOT $$InPixelMode then $AdditionalName:VoucherType:$VoucherTypeName else $Name:VoucherType:$VoucherTypeName

            Style       : Small Bold

            Variable    : DSPVchTypeName

            Align       : Centre


        [Field: Fi1DSP VchNumber]

            Use         : Short Name Field

            Width       : @@LedVchNum % Screen

            Set as      : if NOT $$IsVoucher then "" else @OptStr + @VchNo

            OptStr      : If $IsPostDated And $Date>@@EntryEndingat Then $$LocaleString:"(Post-Dated) " Else If $IsOptional Then $$LocaleString:"(Optional) " Else ""

            VchNo        : If ##ShowExciseMfgrSlNo AND $$InPrintMode AND NOT $$IsEmpty:$SerialNumber Then $SerialNumber Else $VoucherNumber

            Style       : Small

            Align       : Centre

            Invisible   : ##BankRecMode OR NOT $$InPixelMode OR (($$InExportMode OR $$InPrintMode) AND NOT ##ExplodeVNum)


    [!Line: Fi1DSP VchAccDetail]

        Add : Left  Fields  : Fi1DSP VchLedAccount

        Add : Right Fields  : Fi1DSP VchDrAmt, Fi1DSP VchCrAmt, Fi1DSP VchLedBalance

        Remove if    : ##IsNegativeCash AND $$IsDr:#Fi1DSPVchLedBalance

        Explode : DSP VchExplosion            : ($$IsVoucher AND NOT $IsDeleted AND @@LVExplode AND (##IsGrpReport OR +

                                              (##IsLedgerReport AND NOT ##IsGrpReport AND $$NumItems:SelectedLedgerEntries > 1) OR +

                                              (##IsCCReport AND $$NumItems:SelectedCCEntries > 1)))

        Explode    : DSP SingLedInvExplosion    : ((##DBInvExplodeFlag AND ##ExplodeFlag) OR $$KeyExplode) AND $$NumItems:AllLedgerEntries = 2 AND ##IsLedgerReport

        Explode    : DSP SingLedCCExplosion    : ((##DBCostExplodeFlag AND ##ExplodeFlag) OR $$KeyExplode) AND $$NumItems:AllLedgerEntries = 2 AND ##IsLedgerReport AND $$IsEmpty:$AllLedgerEntries[1,@@IsFirstLedger].InventoryAllocations[1].StockItemName

        Explode : DSP SingleLedBankExplosion: ((##DBBankExplodeFlag AND ##ExplodeFlag) OR $$KeyExplode) AND $$NumItems:AllLedgerEntries = 2 AND ##IsLedgerReport

        Explode    : DSP LEDNarration            : ((##ExplodeNarrFlag AND ##ExplodeFlag) OR $$KeyExplode) AND ((##IsLedgerReport AND $$NumItems:AllLedgerEntries = 2) OR (##IsCCReport AND NOT $$NumItems:SelectedCCEntries > 1) OR ##IsGrpReport) AND NOT ##IsJobWorkBreakUp


        Option  : DSP LedAccDetail                                    : ##IsLedgerReport  AND NOT ##IsGrpReport  AND $$IsVoucher AND NOT $IsDeleted

        Option  : DSP GrpAccDetail                                  : ##IsGrpReport AND $$IsVoucher AND NOT $IsDeleted

           Option    : DSP VchDybkDetail Excel Export Bills                : $$InExportMode AND NOT ##ColumnarDayBook AND NOT ##ExtractMode AND ##DBBillExplodeFlag AND (##ExplodeFlag OR $$KeyExplode) AND NOT (($$IsServiceTaxOn AND @@IsSTTaxenabledDate_Vch) AND $$IsTDSOn AND NOT ##OnlyInvVouchers)

        Option    : DSP VchDybkDetail Excel Export ServiceTax Bills    : $$InExportMode AND NOT ##ColumnarDayBook AND NOT ##ExtractMode AND ##DBBillExplodeFlag AND (##ExplodeFlag OR $$KeyExplode) AND (($$IsServiceTaxOn AND @@IsSTTaxenabledDate_Vch) AND $$IsTDSOn AND NOT ##OnlyInvVouchers)

        Option    : DSP VchDybkDetail Excel Export                    : $$InExportMode AND NOT ##ColumnarDayBook AND NOT ##ExtractMode AND NOT ##DBBillExplodeFlag AND (##ExplodeFlag OR $$KeyExplode)

        Option    : Excel DB Details                                    : $$InExportMode AND NOT ##DBBillExplodeFlag AND (##ExplodeFlag OR $$KeyExplode)

       

        Local    : Part        : DSP LEDNarration                        : Local        : Line        : DSP LEDNarration            : Delete    : Empty

        Local    : Part        : DSP LEDNarration                        : Local        : Line        : DSP LEDNarration            : Add        : Empty    : $$IsEmpty:$AllLedgerEntries[1, @@IsFirstLedger].Narration

        Local    : Line        : DSP LEDNarration                        : Local        : Field        : DSP LEDNarration            : Set as    : $AllLedgerEntries[1,@@IsFirstLedger].Narration

       

        [Field: Fi1DSP VchLedAccount]

            Use         : Name Field

            Set as      : if NOT $$IsVoucher then $Name else +

                          if ##BankRecMode AND NOT $$IsEmpty:$BasicVoucherChequeName then $BasicVoucherChequeName else +

                          if (##IsGrpReport AND NOT $$IsExploded:DSPVchExplosion) then If @POSLedger AND NOT ##IsCCReport then $$LocaleString:"(as per details)" else $GrpName else +

                          if $$IsExploded:DSPVchExplosion OR @POSLedger AND NOT ##IsCCReport then $$LocaleString:"(as per details)" else +

                          if ##IsCCReport then If $$IsExploded:DSPVchExplosion then $$LocaleString:"(as per details)" else @CCAllocName else +

                          if $$IsPayroll:$VoucherTypeName Then @PayVchLedName else $VchLedName

            POSLedger   : ($UseForPOSInvoice:VoucherType:$VoucherTypeName AND ($$AddOnInfo:POSEnabled))  AND @@POSLedgerEntries

            CCAllocName : if NOT ##IsCCBkup then $CCLedAccount else if ##IsGrpBkup then $AllocCCGrpOwner else $AllocCCLedName 

            PayVchLedName: $VchLedName

            QuickSearch : Yes

            FullWidth   : Yes

            Width        : @@LedLedgerWidth % Screen

            Style       : if NOT $$IsVoucher then "Normal Bold Italic" else "Normal Bold"

            Indent      : if NOT $$IsVoucher then 2 else 2

       

        [Field: Fi1DSP VchDrAmt]

            Use         : Amount Field

            Set as      : if NOT $$IsVoucher then @ForexVal else +

                          if ##IsCCReport then $$AsDrAmt:@CCAmount else $$AsDrAmt:@LGAmt

            LGAmt       : if ##IsGrpReport then $TotalGrpDrVchAmt else $TotalLedDrVchAmt

            CCAmount    : if NOT ##IsCCBkup then $AllocCostCentreDrTotal else +

                          if ##IsGrpBkup then $AllocCCGrpDrTotal else $AllocCCLedDrTotal

            ForexVal    : if ##IsGrpReport then $$IfDr:$NettGrpForex else $$IfDr:$NettLedForex

            Style       : if $$InPrintMode then "Normal" else "Normal Bold"

            Inactive    : $$IsVoucher AND NOT ##IsCCReport AND @@ShowForex AND $$IsBaseCurrency:@LGAmt

            Width        : @@LedAmount % Screen

           

        [Field: Fi1DSP VchCrAmt]

            Use         : Amount Field

            Set as      : if NOT $$IsVoucher then @ForexVal else +

                          if ##IsCCReport then $$AsCrAmt:@CCAmount else $$AsPositive:$$AsCrAmt:@LGAmt

            LGAmt       : if ##IsGrpReport then $TotalGrpCrVchAmt else $TotalLedCrVchAmt

            CCAmount    : if NOT ##IsCCBkup then $AllocCostCentreCrTotal else +

                          if ##IsGrpBkup then $AllocCCGrpCrTotal else $AllocCCLedCrTotal

            ForexVal    : if ##IsGrpReport then $$IfCr:$NettGrpForex else $$IfCr:$NettLedForex

            Style       : if $$InPrintMode then "Normal" else "Normal Bold"

            Inactive    : $$IsVoucher AND NOT ##IsCCReport AND @@ShowForex AND $$IsBaseCurrency:@LGAmt

            Width        : @@LedAmount % Screen


        [Field: Fi1DSP VchLedBalance]

            Use                : Amount Field

            Set as            : If ($$Line = 1) Then If (##DSPWithOpening) Then @NettOpBal Else @NettDrCrTotal Else $$NettAmount:@PrevTot:@NettDrCrTotal

            PrevTot            : $$PrevLineField

            NettOpBal        : $$NettAmount:@NettDrCrTotal:@OpgBalance

            OpgBalance        : @LedOpening

            LedOpening        : If $$IsEmpty:@@LedOpening Then $$AsAmount:0 Else @@LedOpening

            NettDrCrTotal    : If ($$IsEmpty:#Fi1DSPVchDrAmt AND NOT $$IsEmpty:#Fi1DSPVchCrAmt) Then #Fi1DSPVchCrAmt Else +

                              If (NOT $$IsEmpty:#Fi1DSPVchDrAmt AND $$IsEmpty:#Fi1DSPVchCrAmt) Then #Fi1DSPVchDrAmt Else +

                              $$NettAmount:#Fi1DSPVchDrAmt:#Fi1DSPVchCrAmt

            Invisible        : ##BankRecMode OR (NOT ##ShowRunBalance OR NOT (##SVSortMethod = @@Default))

            Inactive        : ##BankRecMode OR (NOT ##ShowRunBalance OR NOT (##SVSortMethod = @@Default))

            Style            : If $$InPrintMode then "Normal" Else "Small Italic"

            Format            : if @@ShowForex then "DrCr,ShowBaseSymbol,Forex" else "DrCr"

            Fixed            : Yes

            Skip            : No

            Width            : @@LedAmount % Screen


[Part: Fi1LV Totals]

    Lines       : Fi1DSP VchTotalAmt


    [Line: Fi1DSP VchTotalAmt]

        Line    : Fi1DSP VchOpAmt, Fi1DSP VchCurTotalAmt, Fi1DSP VchClAmt

        Local    : Line            : Fi1DSP VchOpAmt            : Invisible        : ##ShowRunBalance

        Local    : Line            : Fi1DSP VchCurTotalAmt        : Invisible        : ##ShowRunBalance

        Local    : Line            : Fi1DSP VchClAmt            : Invisible        : ##ShowRunBalance


        [Line: Fi1DSP VchOpAmt]

            Right Fields    : Info Field, Fi1DSP VchDrOpAmt, Fi1DSP VchCrOpAmt, Fi1DSP VchLedBalance

            Local           : Field : Info Field : Info         : $$LocaleString:"Opening Balance" + " " + ":" + " "

            Local           : Field : Info Field : Width        : 20

            Local            : Field    : Fi1DSP VchLedBalance        : Set as    : ""

            Local           : Field : Info Field : Align        : Right

       

        [Line: Fi1DSP VchCurTotalAmt]

            Right Fields    : Info Field, Fi1DSP VchDrTotalAmt, Fi1DSP VchCrTotalAmt, Fi1DSP VchLedBalance

            Local           : Field : Info Field : Info          : $$LocaleString:"Current Total :" + " "

            Local           : Field : Info Field : Width        : 20

            Local            : Field    : Fi1DSP VchLedBalance        : Set as    : ""   

            Local           : Field : Info Field : Align        : Right

            Option          : WithThinTopBotBorder                : ##ShowRunBalance AND NOT $$InPrintMode AND NOT $$InExportMode


        [Line: Fi1DSP VchClAmt]

            Right Fields    : Info Field, Fi1DSP VchDrClAmt, Fi1DSP VchCrClAmt, Fi1DSP VchLedBalance

            Local           : Field : Info Field : Info          : $$LocaleString:"Closing Balance" + " " + ":" + " "

            Local           : Field : Info Field : Width        : 20

            Local            : Field    : Fi1DSP VchLedBalance        : Set as    : ""

            Local           : Field : Info Field : Align        : Right

            Local           : Field : Info Field : Style         : Normal Bold


                                    [Field : Fi1DummyFld]

                                        Use            : Name Field

                                        Full Width    : Yes

                                       

                [Field: Fi1DSP VchDrOpAmt]

                    Use         : Amount Field

                    Set as      : if ##IsCCReport then $$IfDr:@@CCOpening else if ##IsGrpReport then $$IfDr:@@GrpOpening else $$IfDr:@@LedOpening

                    Switch        : DSP VchForexDrOpAmt    : DSP VchForexDrOpAmt : @@ShowForex

                    Color        : Blue

                    Width        : @@LedAmount % Screen

                    Border        : Full Thin Top

                   

                [Field: Fi1DSP VchCrOpAmt]

                    Use         : Amount Field

                    Set as      : if ##IsCCReport then $$IfCr:@@CCOpening else if ##IsGrpReport then $$IfCr:@@GrpOpening else $$IfCr:@@LedOpening

                    Switch        : DSP VchForexCrOpAmt    : DSP VchForexCrOpAmt : @@ShowForex

                    Color        : Red

                    Width        : @@LedAmount % Screen

                    Border        : Full Thin Top

       

                [Field: Fi1DSP VchDrTotalAmt]

                    Use         : Amount Field

                    Set as      : $$Total:Fi1DSPVchDrAmt

                    Color        : Blue

                    Border        : Full Thin Bottom

                    Width        : @@LedAmount % Screen

                   

                [Field: Fi1DSP VchCrTotalAmt]

                    Use         : Amount Field

                    Set as      : $$Total:Fi1DSPVchCrAmt

                    Color        : Red

                    Border        : Full Thin Bottom

                    Width        : @@LedAmount % Screen

       

                [Field: Fi1DSP VchDrClAmt]

                    Use         : Amount Field

                    Set as      : If @@ShowForex Then $$IfForexDr:$$ForexAsPositive:@@Fi1VchClg Else $$IfDr:@@Fi1VchClg

                    Style       : Normal Bold

                    Color        : Blue

                    Width        : @@LedAmount % Screen

                    Border        : Full Thin Bottom : $$InExportMode OR $$InPrintMode


                [Field: Fi1DSP VchCrClAmt]

                    Use         : Amount Field

                    Set as      : If @@ShowForex Then $$IfForexCr:$$ForexAsPositive:@@Fi1VchClg Else $$IfCr:@@Fi1VchClg

                    Style       : Normal Bold

                    Color        : Red

                    Width        : @@LedAmount % Screen

                    Border        : Full Thin Bottom : $$InExportMode OR $$InPrintMode

   

[Part: Fi1LedTotals]

    Line             : Fi1LedTotals

    Space Bottom     : 0.25

    Local    : Line            : Fi1LedTotals            : Invisible        : NOT ##ShowRunBalance

   

    [Line : Fi1LedTotals]

        Field    : TtlSum, OpBalTtl, OpBalDets, DrTotTtl, DrTotalDets, CrTotTtl, CrTotalDets, ClBalTtl, ClBalDets

        Local    : Field        : Default    : Invisible        : NOT ##ShowRunBalance

       

                    [Field : DefaultTitleField]

                        Use            : Name Field

                        Width        : @@ClNameWidth % screen

                        Style        : Normal Bold

                        Skip        : Yes

                        Align        : Right


                    [Field : DefaultAmountField]

                        Use            : Amount Field

                        Width        : @@ClAmtWidth % Screen

                        Style        : Normal Bold

                        Skip        : Yes

                        Border        : Thin Box

                        Format        : "DrCr,NoZero," + ##ShowForex

                        Align        : Left

                        Indent        : 1


[System : Formula]

    ClAmtWidth        : 11

    ClNameWidth        : 10

    ClTitleWidth    : 100 - (@@ClAmtWidth * 4) - (@@ClNameWidth * 4)

                       

        [Field : TtlSum]

            Use            : Name Field

            Set As        : "Ledger Summary"

            Full Width    : Yes

            Width        : @@ClTitleWidth % Screen

            Widespaced    : Yes

            Align        : Left

            Style        : Normal Bold

           

        [Field : OpBalTtl]

            Use            : DefaultTitleField

            Set As        : "Opening Balance"


        [Field : OpBalDets]

            Use            : DefaultAmountField

            Set As        : $OpeningBalance:Ledger:##LedgerName

            Color        : If $$IsDr:#OpBalDets Then "Blue" Else "Red"


        [Field : DrTotTtl]

            Use            : DefaultTitleField

            Set As        : "Debits Totals"


        [Field : DrTotalDets]

            Use            : DefaultAmountField

            Set As        : $$Total:Fi1DSPVchDrAmt

            Color        : If $$IsDr:#DrTotalDets Then "Blue" Else "Red"


        [Field : CrTotTtl]

            Use            : DefaultTitleField

            Set As        : "Credits Totals"


        [Field : CrTotalDets]

            Use            : DefaultAmountField

            Set As        : $$Total:Fi1DSPVchCrAmt

            Color        : If $$IsDr:#CrTotalDets Then "Blue" Else "Red"


        [Field : ClBalTtl]

            Use            : DefaultTitleField

            Set As        : "Closing Balance"


        [Field : ClBalDets]

            Use            : DefaultAmountField

            Set As        : $ClosingBalance:Ledger:##LedgerName

            Color        : If $$IsDr:#ClBalDets Then "Blue" Else "Red"


           


;****************************************************************************


[Part: LedgerBillPart]

    Line        : Fi1Bill0, Fi1BillTitle, Fi1Bill Column, Fi1BILL Detail

    Sync        : No

    Space Top    : If $$InExportMode Then 0.5 Else 0

    Vertical     : Yes

    Bottom Line    : Fi1BILL Total

    Repeat        : Fi1BILL Detail        : Ledger Bills

    Scroll        : Vertical

    Total       : Fi1A001, Fi1A002, Fi1A003, Fi1A004, Fi1A005, Fi1A006, Fi1A007, Fi1A008, Fi1A009, +

                    Fi1BILLOp, Fi1BILLCl, BILLForex, BILLPDC, BillFinal, BILLInterest, +

                    Fi1B001, Fi1B002, Fi1B003, Fi1B004, Fi1B005, Fi1B006, Fi1B007, Fi1B008, Fi1B009

    Local       : Line    : Fi1BILL Total: Invisible    : $$InPrintMode AND (($$IsEmptyCollection:LedgerBills) AND (NOT @@HasOnAccount))

    Page Break  : Fi1BILL ClPageTotal, Fi1BILL OpPageTotal

    Option      : Fi1LB AllBills           : $$IsSysNameEqual:AllBills:##ShowBillRange OR ##ShowInterest

    Option      : Fi1BILL OnAccDetail      : NOT ##IsForexReport AND ((($$IsEmpty:##AgeFrom) AND ($$IsEmpty:##AgeTo)) OR (##AgeFrom < 0)) AND (@@HasOnAccount) AND @@AllowedOnAcc AND NOT @@ShowForex

    Option         : LEDBillLedgerNotAvbl    : $$IsEmpty:($Name:Ledger:#LedgerName) AND NOT $$IsRemoteCompany                             

    Local        : Part    : Default    : Float    : No


    [!Part: Fi1LB AllBills]

        Repeat    : Fi1BILL Detail    : All Ledger Bills

   

    [Line: Fi1LedBILLOpPageBreak]

        Line    : Fi1Bill Column

       

    [Line : Fi1BILL0]

        Field : Fi1BILL0

       

        [Field : Fi1BILL0]

            Set As        : ""

            Invisible    : NOT ($$InExportMode OR $$InPrintMode)

   

    [Line : Fi1BillTitle]

        Field : Fi1BillTitle

       

        [Field : Fi1BillTitle]

            Use            : Name Field

            Set As        : "Bill-wise Outstandings of Ledger :- " + ##LedgerName

            Style        : Large Bold Italic

            Invisible    : NOT ($$InExportMode OR $$InPrintMode)

            Full Width    : Yes

            Align        : Centre

            Cells        : If ##ShowRunBalance Then 12 Else 11

   

    [Line: Fi1BILL Column]

        Lines   : Fi1BILLCol1, Fi1BILLCol2


    [Line: Fi1BILLCol1]

        Use         : Fi1BillDetail

        Fixed       : Yes

        Delete      : Empty

        Delete      : NextPage

        Delete      : Explode

        Local       : Field : Default               : Type      : String

        Local       : Field : Default               : Align     : Centre

        Local       : Field : Fi1BillDate              : Set as    : $$LocaleString:"Date"

        Local       : Field : Fi1BillRef               : Set as    : $$LocaleString:"Bill /  Invoice"

        Local       : Field : Fi1BillRef               : Widespaced: Yes

        Local       : Field : Fi1BillRef               : Align        : Left

        Local       : Field : Fi1BillRef               : Style        : Normal Bold

        Local       : Field : Fi1BillIsAdvance         : Set as    : ""

        Local       : Field : Fi1BillParty             : Set as    : $$LocaleString:"Party's Name"

        Local       : Field : Fi1BillParty             : Indent    : 2

        Local       : Field : Fi1BillOp                : Set as    : $$StringWord:1:$$LocaleString:"Opening Amount"

        Local       : Field : Fi1BillCl                : Set as    : if ($$NumSets = 1) OR ($$Column = 1) then $$StringWord:1:$$LocaleString:"Pending Amount" else @@AgeTitle

        Local       : Field : BillForex             : Set as    : $$LocaleString:"Gain/Loss"

        Local       : Field : BillInterest          : Set as    : $$LocaleString:"Interest"

        Local       : Field : BillPDC               : Set as    : $$StringWord:1:$$LocaleString:"Post-Dated Amount"

        Local       : Field : BillFinal             : Set as    : $$StringWord:1:$$LocaleString:"Final Balance"

        Local       : Field : Fi1BillDue               : Set as    : $$LocaleString:"Due on"

        Local       : Field : Fi1BillOverDue           : Set as    : if ##ShowDaysByBillDate and Not ##ShowReminders then $$StringWord:1:@@NewBillDays + " " + $$StringWord:2:@@NewBillDays else +

                                                                    $$StringWord:1:@@NewOverDueDays

        Border      : Thin Top


    [Line: Fi1BILLCol2]

        Use         : Fi1BillCol1

        Option        : Fi1SelectedBillsTotal            : (##IsBillWiseReport AND ##IsLedgerReport)

        Local       : Field : Default               : Align     : Centre

        Local       : Field : Fi1BillDate              : Set as    : ""

        Local       : Field : Fi1BillRef               : Set as    : $$LocaleString:"Reference No."

        Local       : Field : Fi1BillRef               : Widespaced: Yes

        Local       : Field : Fi1BillParty             : Set as    : ""

        Local       : Field : Fi1BillOp                : Set as    : $$StringRemWord:1:$$LocaleString:"Opening Amount"

        Local       : Field : Fi1BILLCl                : Set as    : if ($$NumSets = 1) OR ($$Column = 1) then $$StringRemWord:1:$$LocaleString:"Pending Amount" else ""

        Local       : Field : BillForex             : Set as    : ""

        Local       : Field : BillInterest          : Set as    : ""

        Local       : Field : BillPDC               : Set as    : $$StringRemWord:1:$$LocaleString:"Post-Dated Amount"

        Local       : Field : BillFinal             : Set as    : $$StringRemWord:1:$$LocaleString:"Final Balance"

        Local       : Field : Fi1BillDue               : Set as    : ""

        Local       : Field : Fi1BillOverdue           : Set as    : if ##ShowDaysByBillDate then $$StringWord:3:@@NewBillDays else $$StringRemWord:1:@@NewOverDueDays

        Local       : Field : Fi1BillSelectedTotal    : Color        : If $$IsDr:#Fi1BillSelectedTotal Then "Blue" Else "Red"

        Border      : Flush Thin Bottom

        SpaceBottom : if $$InPrintMode then 0.5 else 0


        [!Line: Fi1SelectedBillsTotal]

            Add    : Field    : Before : Fi1BillOp : Fi1BillSelectedTotal


            [Field: Fi1BillSelectedTotal]

                Use                : Name Field

                Set as            : if ##IsBillSelected AND NOT $$IsEmpty:($$ReportObject:$$CollAmtTotal:SelectedPendingBills:$ClosingBalance) Then $$String:@SelectedTotal + $$String:@SelectedTotalVal Else ""

                Width            : 40

                Align            : Centre

                Invisible        : NOT (##IsBillWiseReport AND ##IsLedgerReport) OR NOT $$InDisplayMode

                SelectedTotal    : $$LocaleString:"Totals of Selected Bills : "

                SelectedTotalVal: $$String:##SelectedBillsTotal:"DrCr"


[!Part: Fi1BILL OnAccDetail]

        Option    : Fi1BILL SubTotal    : Not $$IsEmptyCollection:LedgerBills

        Add        : Line    : After    : Fi1BILL Detail    : Fi1BILL OnAccDetail


        [!Part: Fi1BILL SubTotal]

            Add        : Line    : Before            : Fi1BILL OnAccDetail        : Fi1BILL SubTotal

            Local    : Line    : Fi1BILLSubTotal    : Replace    : Field            : Fi1Bill Op    : Fi1Bill SubOp

            Local    : Line     : Fi1BILLSubTotal     : Replace    : Field         : Fi1Bill Cl    : Fi1Bill SubCl

            Local    : Line     : Fi1BILLSubTotal     : Replace    : Right Field    : Bill PDC      : Bill SubPDC

            Local    : Line     : Fi1BILLSubTotal     : Replace    : Right Field     : Bill Final    : Bill SubFinal

            Local    : Line     : Fi1BILLSubTotal     : Repeat    : Fi1BillSubCl


                [Field: Fi1BillSubOp]

                    Use        : Fi1BillOp

                    Set as    : $$SubTotal:Fi1BillOp

                    Style    : Normal Italic

                    Border    : FullThinTop


                [Field: Fi1BillSubCl]

                    Use        : Fi1BillCl

                    Set as    : If ($$NumSets = 1) OR ($$Column = 1) Then $$SubTotal:Fi1BILLCl Else 0

                    Style    : Normal Italic

                    Border    : FullThinTop


            [Line: Fi1BILL SubTotal]

                Use             : Fi1BillDetail

                Delete          : Empty

                Delete          : NextPage

                Delete          : Explode

                Local           : Field    : Fi1BILLDate          : Set as    : ""

                Local           : Field    : Fi1BILLRef           : Set as    : $$LocaleString:"Sub Total"

                Local           : Field    : Fi1BILLRef           : Style     : Normal Bold

                Local           : Field    : Fi1BILLRef           : Indent    : 1.4

                Local           : Field    : Fi1BILLIsAdvance    : Set as    : ""

                Local           : Field    : Fi1BILLParty         : Set as    : ""

                Local           : Field    : Fi1BILLDue           : Set as    : ""

                Local           : Field    : Fi1BILLOverDue       : Set as    : ""

                Fixed           : Yes   

                Space Bottom    : 0.25

                Space Top       : 0.25

       

        [Line: Fi1BILL OnAccDetail]

            Use         : Fi1BillDetail

            Delete      : Empty

            Delete      : NextPage

            Delete      : Explode

            Local       : Style        : Default           : Italics    : Yes

            Local       : Field     : Fi1BILLDate          : Set as    : @@DSPToDate

            Local       : Field     : Fi1BILLRef           : Set as    : $$LocaleString:"On Account Details"

            Local       : Field     : Fi1BILLIsAdvance     : Set as    : ""

            Local       : Field        : Fi1BILLParty         : Set as    : ""

            Local       : Field     : Fi1BILLOp            : Set as    : $OnAccountValue:Ledger:##LedgerName

            Local       : Field     : Fi1BILLCl            : Set as    : If ($$NumSets = 1) OR ($$Column = 1) OR (##AgeFrom < 0) Then @@FullOnAccount Else 0

            Local       : Field         : Fi1BILLDue           : Set as    : ""

            Local       : Field     : Fi1BILLOverDue       : Set as    : ""

            Local       : Field     : BILLPDC           : Set as    : $$AmountSubtract:#BILLFinal:#BILLCl

            Local       : Field     : BILLFinal         : Set as    : @@FinalOnAccount

            Space Top    : If $$IsSiblingExploded Then @@ExplodedSpace Else 0

            Add         : Next Page    : NOT $$DoExplosionsFit

            Add         : Explode    : BILL OnAccVouchers        : $$InPixelMode AND ($$KeyExplode OR ##ExplodeFlag)


    [Line: Fi1BILL Detail]

        Left Fields : Fi1BILLFixed, Fi1BILLOp, Fi1BILLCl, Fi1BillDays

        Repeat      : Fi1BILLCl

        Empty       : (@@ShowForex AND $$IsBaseCurrency:$OpeningBalance AND $$IsBaseCurrency:$ClosingBalance) OR (##ShowInterest AND $$IsEmpty:$Interest)

        Space Top   : if $$IsSiblingExploded then @@ExplodedSpace else 0

        Next Page   : NOT $$DoExplosionsFit OR ($$LineNumber = $$LastLineNumber AND NOT $$IsNextSibling)

        Explode     : BILL Vouchers     : NOT ##ShowInterest AND $$InPixelMode AND ($$KeyExplode OR ##ExplodeFlag)

        Explode     : BILL Interest     : ##ShowInterest AND $$InPixelMode AND ($$KeyExplode OR ##ExplodeFlag)

        Option      : ExplodeOnEnter

        Option      : BILL WithGainLoss : ##IsForexReport

        Option      : BILL WithPDC      : ##ShowPDC AND NOT ##ShowInterest

        Option      : BILL WithInterest : ##ShowInterest

        Option      : Fi1BILL WithDates : NOT ##ShowInterest AND NOT ##IsForexReport

        Option        : SelectedBillsTotalOnFocus    : (##IsBillWiseReport AND ##IsLedgerReport)


        [Field: Fi1BILLFixed]

            Fields : Fi1BILLDate, Fi1BILLRef, Fi1BILLIsAdvance, Fi1BILLParty


            [Field: Fi1BILLDate]

                Use         : UniDateField

                Set as      : $BillDate

                Style       : Normal Bold

                Width       : @@LedDateWidth % Screen


            [Field: Fi1BILLRef]

                Use         : ShortNameField

                Set as      : $Name  

                Width       : 20% Screen

                Style       : Normal

                SpaceLeft   : if ##IsBillWiseReport AND $$InPixelMode then 2.5 else 0.5

                Option      : BILLRef AsQSrch   : ##IsBillWiseReport


            [Field: Fi1BILLIsAdvance]

                Use         : Simple Field

                Set as      : if $IsAdvance then $$LocaleString:"(advance)" else ""           

                Style       : Small Italic

                Width          : @@LedDateWidth % Screen

                Full Width    : Yes

                Invisible   : NOT @@IsLedBillReport OR NOT $$InPixelMode

                Option        : Excel BILLIsAdvance            : $$InExportMode AND ($$KeyExplode OR ##ExplodeFlag)


            [Field: Fi1BILLParty]

                Use         : NameField

                Set as      : $PartyName  

                Style       : if (##ShowOpBillAmt AND NOT $$InPrintMode) then "Normal" else "Normal Bold"

                Width       : 35% Screen

                QuickSearch : Yes

                Invisible   : If ##IsTDSOutstandingReport Then No Else @@IsLedBillReport

                Option         : Excel BILLParty                : $$InExportMode AND ##ExplodeFlag


        [Field: Fi1BILLOp]

            Use         : AmountField

            Type        : Amount

            Set as      : $OpeningBalance

            Style       : Normal

            Invisible   : NOT ##ShowOpBillAmt

            Width       : @@LedAmount % Screen

            Format      : "DrCr," + ##ShowForex


        [Field: Fi1BILLCl]

            Use         : AmountField

            Type        : Amount

            Set as      : $ClosingBalance

            Style       : if ##ShowPDC OR (@@DSPToDate < @@CreditPeriod) then "Normal" else "Normal Bold"

            Width       : @@LedAmount % Screen

            Format      : (if ##IsBillWiseReport then "DrCr,NoZero," else "NoZero,") + ##ShowForex

            Invisible   : NOT ##IsBillWiseReport AND ($$NumSets > 1) AND (##AgeFrom < 0)


        [Field: Fi1BillDays]

            Fields : Fi1A001, Fi1A002, Fi1A003, Fi1A004, Fi1A005, Fi1A006, Fi1A007, Fi1A008, Fi1A009, +

                        Fi1B001, Fi1B002, Fi1B003, Fi1B004, Fi1B005, Fi1B006, Fi1B007, Fi1B008, Fi1B009


[System : Formula]

    DaysDiff1        :    @@DSPToDate - $BillDate

    DaysDiff2        :    @@DSPToDate - $BillCreditPeriod

   

                            [Field: AgeAmtDefault]

                                Use         : Amount Field

                                Width       : @@AgeAmtWidth % Screen

                                Invisible   : Yes


            [Field: Fi1A001]

                Use         : AgeAmtDefault

                Set as      : If (@@DaysDiff1 > 0 AND @@DaysDiff1 <= ##varDate001) Then $ClosingBalance Else ""


            [Field: Fi1A002]

                Use         : AgeAmtDefault

                Set as      : If (@@DaysDiff1 > ##varDate001 AND @@DaysDiff1 <= ##varDate002) Then $ClosingBalance Else ""


            [Field: Fi1A003]

                Use         : AgeAmtDefault

                Set as      : If (@@DaysDiff1 > ##varDate002 AND @@DaysDiff1 <= ##varDate003) Then $ClosingBalance Else ""


            [Field: Fi1A004]

                Use         : AgeAmtDefault

                Set as      : If (@@DaysDiff1 > ##varDate003 AND @@DaysDiff1 <= ##varDate004) Then $ClosingBalance Else ""


            [Field: Fi1A005]

                Use         : AgeAmtDefault

                Set as      : If (@@DaysDiff1 > ##varDate004 AND @@DaysDiff1 <= ##varDate005) Then $ClosingBalance Else ""


            [Field: Fi1A006]

                Use         : AgeAmtDefault

                Set as      : If (@@DaysDiff1 > ##varDate005 AND @@DaysDiff1 <= ##varDate006) Then $ClosingBalance Else ""


            [Field: Fi1A007]

                Use         : AgeAmtDefault

                Set as      : If (@@DaysDiff1 > ##varDate006 AND @@DaysDiff1 <= ##varDate007) Then $ClosingBalance Else ""


            [Field: Fi1A008]

                Use         : AgeAmtDefault

                Set as      : If (@@DaysDiff1 > ##varDate007 AND @@DaysDiff1 <= ##varDate008) Then $ClosingBalance Else ""


            [Field: Fi1A009]

                Use         : AgeAmtDefault

                Set as      : If @@DaysDiff1 > ##varDate008 Then $ClosingBalance Else ""

           

            [Field: Fi1B001]

                Use         : AgeAmtDefault

                Set as      : If (@@DaysDiff2 > 0 AND @@DaysDiff2 <= ##varDate001) Then $ClosingBalance Else ""


            [Field: Fi1B002]

                Use         : AgeAmtDefault

                Set as      : If (@@DaysDiff2 > ##varDate001 AND @@DaysDiff2 <= ##varDate002) Then $ClosingBalance Else ""


            [Field: Fi1B003]

                Use         : AgeAmtDefault

                Set as      : If (@@DaysDiff2 > ##varDate002 AND @@DaysDiff2 <= ##varDate003) Then $ClosingBalance Else ""


            [Field: Fi1B004]

                Use         : AgeAmtDefault

                Set as      : If (@@DaysDiff2 > ##varDate003 AND @@DaysDiff2 <= ##varDate004) Then $ClosingBalance Else ""


            [Field: Fi1B005]

                Use         : AgeAmtDefault

                Set as      : If (@@DaysDiff2 > ##varDate004 AND @@DaysDiff2 <= ##varDate005) Then $ClosingBalance Else ""


            [Field: Fi1B006]

                Use         : AgeAmtDefault

                Set as      : If (@@DaysDiff2 > ##varDate005 AND @@DaysDiff2 <= ##varDate006) Then $ClosingBalance Else ""


            [Field: Fi1B007]

                Use         : AgeAmtDefault

                Set as      : If (@@DaysDiff2 > ##varDate006 AND @@DaysDiff2 <= ##varDate007) Then $ClosingBalance Else ""


            [Field: Fi1B008]

                Use         : AgeAmtDefault

                Set as      : If (@@DaysDiff2 > ##varDate007 AND @@DaysDiff2 <= ##varDate008) Then $ClosingBalance Else ""


            [Field: Fi1B009]

                Use         : AgeAmtDefault

                Set as      : If @@DaysDiff2 > ##varDate008 Then $ClosingBalance Else ""


    [!Line: Fi1BILL WithDates]

        Right Fields    : Fi1BillDue, Fi1BILLOverdue


        [Field: Fi1BILLDue]

            Use             : UniDateField

            Set as          : $$String:@@CreditPeriod:UniversalDate

            Style           : Normal Italic

            Align           : Centre

            Width           : 8% Screen

            Invisible       : Not ##ShowDueOnPrompt

            Fixed            : Yes


        [Field: Fi1BILLOverdue]

            Set as          : If (##ShowDaysByBillDate and Not ##ShowReminders) then @DaysByBillDate else @DaysByDueDate

            DaysByBillDate  : $$String:@BillDays

            DaysByDueDate   : If (@@DSPToDate >= @@CreditPeriod) Then $$String:@OverDueDays Else ""

            OverDueDays     : If ($$IsEmpty:$ClosingBalance AND NOT $$IsEmpty:@BillClearedDate) Then @BillClearedDate - @@CreditPeriod Else @@DSPToDate - @@CreditPeriod

            BillDays        : @@DSPToDate - $BillDate

            BillClearedDate    : $ClearedOn

            Width           : 5% Screen

            Style           : Normal Italic

            Align           : Centre

            Invisible       : $$NumSets > 1 OR NOT ($$InPixelMode OR $$InExportMode) OR Not ##ShowOverdueOfBill

            Fixed            : Yes


    [Line: Fi1BILL Total]

        Use         : Fi1BillDetail

        Fixed       : Yes

        Delete      : Empty

        Delete      : NextPage

        Delete      : Explode

        Local       : Field : Fi1BillRef         : Set as    : "TOTALS"

        Local       : Field : Fi1BillRef         : Style     : Normal Bold

        Local       : Field : Fi1BillRef         : Widespaced: Yes

        Local       : Field : Fi1BillRef         : Indent    : 2

        Local       : Field : Fi1BillOp            : Set as     : $$Total:Fi1BILLOp

        Local       : Field : Fi1BillOp            : Border     : Flush Totals : $$InPrintMode

        Local       : Field : Fi1BillCl            : Set as     : $$Total:Fi1BILLCl

        Local       : Field : Fi1BillCl            : Border     : Flush Totals : $$InPrintMode

        Local       : Field : BillForex         : Set as     : $$Total:BILLForex

        Local       : Field : BillForex         : Border     : Flush Totals : $$InPrintMode

        Local       : Field : BillPDC           : Set as     : $$Total:BILLPDC

        Local       : Field : BillPDC           : Border     : Flush Totals : $$InPrintMode

        Local       : Field : BillFinal         : Set as     : $$Total:BILLFinal

        Local       : Field : BillFinal         : Border     : Flush Totals : $$InPrintMode

        Local       : Field : BillInterest      : Set as     : $$Total:BILLInterest

        Local       : Field : BillInterest      : Border     : Flush Totals : $$InPrintMode

        Local       : Field : Fi1BillDue           : Type       : String

        Local       : Field : Fi1BillDue           : Set as     : ""

        Local       : Field : Fi1BillOverdue       : Type       : String

        Local       : Field : Fi1BillOverdue       : Set as     : ""

        Local       : Field : Fi1BillDate          : Set as     : ""

        Local       : Field : Fi1BillIsAdvance     : Set as     : ""

        Local       : Field : Fi1BillParty         : Set as     : ""

        Border      : Flush Totals              : NOT $$InPrintMode

        Space Top   : if $$InPrintMode then 0.5 else 0


[Line: Fi1BILL OpPageTotal]

    Use         : Fi1BILL Total

    Local       : Field : Fi1BillRef         : Set as    : "Brought Forward"

    Local       : Field : Fi1BillRef         : Style     : Normal

    Local       : Field : Fi1BillRef         : Widespaced: Yes

    Local       : Field : Fi1BillRef         : Indent    : 2

    Local       : Field : Fi1BillOp            : Delete    : Border

    Local       : Field : Fi1BillCl            : Delete    : Border

    Local       : Field : BillForex         : Delete    : Border

    Local       : Field : BillPDC           : Delete    : Border

    Local       : Field : BillFinal         : Delete    : Border

    Local       : Field : BillInterest      : Delete    : Border


[Line: Fi1BILL ClPageTotal]

    Use         : Fi1BILL Total

    Local       : Field : Fi1BillRef         : Set as    : "Carried Over"

    Local       : Field : Fi1BillRef         : Style     : Normal

    Local       : Field : Fi1BillRef         : Widespaced: Yes

    Local       : Field : Fi1BillRef         : Indent    : 2

    Local       : Field : Fi1BillOp            : Border     : Flush Sub Totals

    Local       : Field : Fi1BillCl            : Border     : Flush Sub Totals

    Local       : Field : BillForex         : Border     : Flush Sub Totals

    Local       : Field : BillPDC           : Border     : Flush Sub Totals

    Local       : Field : BillFinal         : Border     : Flush Sub Totals

    Local       : Field : BillInterest      : Border     : Flush Sub Totals

   


;****************************************************************************


[System : Formula]

    AgeNameWidth    : 100 - (@@AgeAmtWidth * 10)

    AgeAmtWidth        : 9


[Part : LedgerAge]

    Line         : LedgerAge0, LedgerAgeTitle, LedgerAge1, LedgerAge2, LedgerAge3,


    [Line : LedgerAge0]

        Field : LedgerAge0

       

        [Field : LedgerAge0]

            Set As        : ""

            Invisible    : NOT ($$InExportMode OR $$InPrintMode)

   

    [Line : LedgerAgeTitle]

        Field : LedgerAgeTitle

       

        [Field : LedgerAgeTitle]

            Use            : Name Field

            Set As        : "Age-wise Analysis of Ledger :- " + ##LedgerName

            Style        : Large Bold Italic

            Invisible    : NOT ($$InExportMode OR $$InPrintMode)

            Full Width    : Yes

            Align        : Centre

            Cells        : If ##ShowRunBalance Then 12 Else 11


                                [Field : AgeDefaultName]

                                    Use            : Name Field

                                    Width        : @@AgeAmtWidth % Screen

                                    Style        : Small Bold

                                    Align        : Centre


                                [Field : AgeDefaultAmt]

                                    Use            : Amount Field

                                    Width        : @@AgeAmtWidth % Screen

                                    Style        : Small Bold

                                    Color        : If $$IsDr:$$Value Then "Blue" Else "Red"

                                    Align        : Centre

                                    Border        : Thin Left

                                    Format        : "Dr,Cr"

                                   

    [Line : LedgerAge1]

        Field         : LedgerAge1, A0to30T, A30to60T, A60to90T, A90to120T, A120to180T, A180to270T, A270to1yrT, A1Yrto2YrT ,A2YrNAboveT, AOnAccountT

       

        [Field : LedgerAge1]

            Use            : Name Field

            Set As        : "Ageing Analysis"

            Full Width    : Yes

            Width        : @@AgeNameWidth % Screen

            Style        : Large Bold

            Align        : Left

            Border        : Fi1EncloseRLT : $$InExportMode OR $$InPrintMode


        [Field : A0to30T]

            Use            : AgeDefaultName

            Set As        : "â–º " + $$String:##varDate001 + " days"

            Border        : Fi1EncloseRT : $$InExportMode OR $$InPrintMode


        [Field : A30to60T]

            Use            : AgeDefaultName

            Set As        : $$String:##varDate001 + " â—„ â–º " + $$String:##varDate002 + " days"

            Border        : Fi1EncloseRT : $$InExportMode OR $$InPrintMode


        [Field : A60to90T]

            Use            : AgeDefaultName

            Set As        : $$String:##varDate002 + " â—„ â–º " + $$String:##varDate003 + " days"

            Border        : Fi1EncloseRT : $$InExportMode OR $$InPrintMode


        [Field : A90to120T]

            Use            : AgeDefaultName

            Set As        : $$String:##varDate003 + " â—„ â–º " + $$String:##varDate004 + " days"

            Border        : Fi1EncloseRT : $$InExportMode OR $$InPrintMode


        [Field : A120to180T]

            Use            : AgeDefaultName

            Set As        : $$String:##varDate004 + " â—„ â–º " + $$String:##varDate005 + " days"

            Border        : Fi1EncloseRT : $$InExportMode OR $$InPrintMode


        [Field : A180to270T]

            Use            : AgeDefaultName

            Set As        : $$String:##varDate005 + " â—„ â–º " + $$String:##varDate006 + " days"

            Border        : Fi1EncloseRT : $$InExportMode OR $$InPrintMode


        [Field : A270to1YrT]

            Use            : AgeDefaultName

            Set As        : $$String:##varDate006 + " â—„ â–º " + $$String:##varDate007 + " days"

            Border        : Fi1EncloseRT : $$InExportMode OR $$InPrintMode


        [Field : A1Yrto2YrT]

            Use            : AgeDefaultName

            Set As        : $$String:##varDate007 + " â—„ â–º " + $$String:##varDate008 + " days"

            Border        : Fi1EncloseRT : $$InExportMode OR $$InPrintMode


        [Field : A2YrNAboveT]

            Use            : AgeDefaultName

            Set As        : "â–º " + $$String:##varDate008 + " days"

            Border        : Fi1EncloseRT : $$InExportMode OR $$InPrintMode


        [Field : AOnAccountT]

            Use            : AgeDefaultName

            Set As        : "On Account"

            Border        : Fi1EncloseRT : $$InExportMode OR $$InPrintMode

           

    [Line : LedgerAge2]

        Field         : LedgerAge2, A0to30, A30to60, A60to90, A90to120, A120to180, A180to270, A270to1yr, A1Yrto2yr, A2YrNAbove, AOnAccount

        Border        : Thin Top


        [Field : LedgerAge2]

            Use            : Name Field

            Set As        : " --- By Bill Date   "

            Align        : Right

            Full Width    : Yes

            Width        : @@AgeNameWidth % Screen

            Style        : Normal Bold Italic

            Border        : Fi1EncloseRLB

           

        [Field : A0to30]

            Use            : AgeDefaultAmt

            Set As        : $$Total:Fi1A001

            Border        : Fi1EncloseRB


        [Field : A30to60]

            Use            : AgeDefaultAmt

            Set As        : $$Total:Fi1A002

            Border        : Fi1EncloseRB


        [Field : A60to90]

            Use            : AgeDefaultAmt

            Set As        : $$Total:Fi1A003

            Border        : Fi1EncloseRB

   

        [Field : A90to120]

            Use            : AgeDefaultAmt

            Set As        : $$Total:Fi1A004

            Border        : Fi1EncloseRB


        [Field : A120to180]

            Use            : AgeDefaultAmt

            Set As        : $$Total:Fi1A005

            Border        : Fi1EncloseRB


        [Field : A180to270]

            Use            : AgeDefaultAmt

            Set As        : $$Total:Fi1A006

            Border        : Fi1EncloseRB


        [Field : A270to1Yr]

            Use            : AgeDefaultAmt

            Set As        : $$Total:Fi1A007

            Border        : Fi1EncloseRB


        [Field : A1Yrto2yr]

            Use            : AgeDefaultAmt

            Set As        : $$Total:Fi1A008

            Border        : Fi1EncloseRB

           

        [Field : A2YrNAbove]

            Use            : AgeDefaultAmt

            Set As        : $$Total:Fi1A009

            Border        : Fi1EncloseRB


        [Field : AOnAccount]

            Use            : AgeDefaultAmt

            Set As        : $OnAccountValue:Ledger:##LedgerName

            Border        : Fi1EncloseRB


    [Line : LedgerAge3]

        Field         : LedgerAge3, B0to30, B30to60, B60to90, B90to120, B120to180, B180to270, B270to1yr, B1Yrto2yr, B2YrNAbove, BOnAccount


        [Field : LedgerAge3]

            Use            : Name Field

            Set As        : " --- By Due Date   "

            Align        : Right

            Full Width    : Yes

            Width        : @@AgeNameWidth % Screen

            Style        : Normal Bold Italic   

            Border        : Fi1EncloseRLB

           

        [Field : B0to30]

            Use            : AgeDefaultAmt

            Set As        : $$Total:Fi1B001

            Border        : Fi1EncloseRB


        [Field : B30to60]

            Use            : AgeDefaultAmt

            Set As        : $$Total:Fi1B002

            Border        : Fi1EncloseRB


        [Field : B60to90]

            Use            : AgeDefaultAmt

            Set As        : $$Total:Fi1B003

            Border        : Fi1EncloseRB

   

        [Field : B90to120]

            Use            : AgeDefaultAmt

            Set As        : $$Total:Fi1B004

            Border        : Fi1EncloseRB


        [Field : B120to180]

            Use            : AgeDefaultAmt

            Set As        : $$Total:Fi1B005

            Border        : Fi1EncloseRB


        [Field : B180to270]

            Use            : AgeDefaultAmt

            Set As        : $$Total:Fi1B006

            Border        : Fi1EncloseRB


        [Field : B270to1Yr]

            Use            : AgeDefaultAmt

            Set As        : $$Total:Fi1B007

            Border        : Fi1EncloseRB


        [Field : B1Yrto2yr]

            Use            : AgeDefaultAmt

            Set As        : $$Total:Fi1B008

            Border        : Fi1EncloseRB

           

        [Field : B2YrNAbove]

            Use            : AgeDefaultAmt

            Set As        : $$Total:Fi1B009

            Border        : Fi1EncloseRB

           

        [Field : BOnAccount]

            Use            : AgeDefaultAmt

            Set As        : $OnAccountValue:Ledger:##LedgerName

            Border        : Fi1EncloseRB



;****************************************************************************

   

[Key: SetDates]

    Key             : Ctrl + D

    Title           : $$LocaleString:"Ageing Dates"

    Action          : Alter : SetDates


[Key : ToggleDueDays]

    Key                : F9

    Title            : If ##ShowDaysByBillDate = "No" Then "By Bill Date" Else "By Credit Period"

    Action            : Set     : ShowDaysByBillDate : If ##ShowDaysByBillDate = "No" Then "Yes" Else "No"


[Key : RunBalOnOff]

    Key                : F10

    Title            : If ##ShowRunBalance = "Yes" Then "Running Bal OFF" Else "Running Bal ON"

    Action            : Set     : ShowRunBalance : If ##ShowRunBalance = "Yes" Then "No" Else "Yes"


[Button: Fi1 LEDVCH Configure]

    Key     : F12

    Title   : $$LocaleString:"4-in-1 Configure"

    Action  : Modify Variables : Fi1LEDVCH Configure

   


;****************************************************************************


[Report : SetDates]

    Form                : SetDates

    Object            : Company


[Form : SetDates]

    Parts           : SetDatesTitle, SetDatesSubTitle, SetDatesData

    Space Top        : 1

    Space Bottom    : 1

    Space Left        : 1

    Space Right        : 1

    Height            : 55% Screen

    Width            : 37% Screen

    Local : Field     : SetDatesData13 : Modifies    : varDate001

    Local : Field     : SetDatesData23 : Modifies    : varDate002

    Local : Field     : SetDatesData33 : Modifies    : varDate003

    Local : Field     : SetDatesData43 : Modifies    : varDate004

    Local : Field     : SetDatesData53 : Modifies    : varDate005

    Local : Field     : SetDatesData63 : Modifies    : varDate006

    Local : Field     : SetDatesData73 : Modifies    : varDate007

    Local : Field     : SetDatesData83 : Modifies    : varDate008


[Part : SetDatesTitle]

    Line            : SetDatesTitle

    Border            : Fi1DoubleBorder

   

    [Line : SetDatesTitle]

        Field            : SetDatesTitle

        Space Top         : .5

        Space Bottom     : .5


        [Field : SetDatesTitle]

            Use            : Name Field

            Set As        : "Ageing for : " + #LedgerName

            Full Width    : Yes

            Align        : Centre

            Style        : Large Bold

            Skip        : Yes


[Part : SetDatesSubTitle]

    Line            : SetDatesSubTitle

    Background        : Grey

    Border            : Fi1DoubleBorder1

   

    [Line : SetDatesSubTitle]

        Field            : SetDatesSrT, BlankSpace0, SetDatesFromT, BlankSpace1, SetDatesToT, BlankSpace2, SetDatesDefaultT

        Space Top         : .5

        Space Bottom     : .5


                            [Field : BlankSpace0]

                                Use            : Name Field

                                Set As        : ""

                                Align        : Centre

                                Width        : 3

                                Fixed        : Yes

                                Skip        : Yes


                            [Field : BlankSpace1]

                                Use            : Name Field

                                Set As        : ""

                                Align        : Centre

                                Width        : 3

                                Fixed        : Yes

                                Skip        : Yes


                            [Field : BlankSpace2]

                                Use            : Name Field

                                Set As        : ""

                                Align        : Centre

                                Width        : 3

                                Fixed        : Yes

                                Skip        : Yes


        [Field : SetDatesSrT]

            Use            : SetDatesFromT

            Set As        : "#"

            Width        : 8

           

        [Field : SetDatesFromT]

            Use            : Name Field

            Set As        : "Ageing From"

            Align        : Centre

            Color        : Black

            Width        : 11

            Skip        : Yes

           

        [Field : SetDatesToT]

            Use            : SetDatesFromT

            Set As        : "Ageing To"


        [Field : SetDatesDefaultT]

            Use            : SetDatesFromT

            Set As        : "Default Days"

           

[Part: SetDatesData]

        Lines           : SetDatesData1, SetDatesData2, SetDatesData3, SetDatesData4, SetDatesData5, SetDatesData6, +

                            SetDatesData7, SetDatesData8, SetDatesData9,

        Space Top        : 0.5

        Border            : Fi1DoubleBorder1

        BackGround        : Fi1HighlightBox

       

                            [Field : SetDateDefault1]

                                Use            : Number Field

                                Align        : Centre

                                Width        : 8

                                Fixed        : Yes

                                Skip        : Yes

                                Style        : Large Bold


                            [Field : SetDateDefault2]

                                Use            : Number Field

                                Align        : Centre

                                Width        : 11

                                Style        : Large Bold


    [Line: SetDatesData1]

        Field           : SetDatesData11, BlankSpace0, SetDatesData12, BlankSpace1, SetDatesData13, BlankSpace2, SetDatesData14,

        Space Bottom     : 0.5


        [Field : SetDatesData11]

            Use            : SetDateDefault1

            Set As        : $$Number:1


        [Field : SetDatesData12]

            Use            : SetDateDefault2

            Set As        : $$Number:0

            Skip        : Yes

           

        [Field: SetDatesData13]

            Use         : SetDateDefault2

            Validate    : $$Value > #SetDatesData12

            Set as      : ##varDate001

            Set Always    : Yes

            Format        : "No Zero"


        [Field : SetDatesData14]

            Use            : SetDateDefault2

            Set As        : $$Number:30

            Skip        : Yes

                               

    [Line: SetDatesData2]

        Field           : SetDatesData21, BlankSpace0, SetDatesData22, BlankSpace1, SetDatesData23, BlankSpace2, SetDatesData24,

        Space Bottom     : 0.5


        [Field : SetDatesData21]

            Use            : SetDateDefault1

            Set As        : $$Number:2


        [Field : SetDatesData22]

            Use            : SetDateDefault2

            Set As        : If #SetDatesData13=0 Then $$Number:0 Else #SetDatesData13

            Set Always    : Yes

            Skip        : Yes

            BackGround    : Grey

           

        [Field: SetDatesData23]

            Use         : SetDateDefault2

            Validate    : $$Value = 0 OR $$Value > #SetDatesData22

            Set as      : ##varDate002

            Set Always    : Yes

            Format        : "No Zero"


        [Field : SetDatesData24]

            Use            : SetDateDefault2

            Set As        : $$Number:60

            Skip        : Yes

                               

    [Line: SetDatesData3]

        Field           : SetDatesData31, BlankSpace0, SetDatesData32, BlankSpace1, SetDatesData33, BlankSpace2, SetDatesData34,

        Space Bottom     : 0.5


        [Field : SetDatesData31]

            Use            : SetDateDefault1

            Set As        : $$Number:3


        [Field : SetDatesData32]

            Use            : SetDateDefault2

            Set As        : If #SetDatesData23=0 Then $$Number:0 Else #SetDatesData23

            Set Always    : Yes

            Skip        : Yes

            BackGround    : Grey

           

        [Field: SetDatesData33]

            Use         : SetDateDefault2

            Validate    : $$Value = 0 OR $$Value > #SetDatesData32

            Set as      : ##varDate003

            Set Always    : Yes

            Format        : "No Zero"


        [Field : SetDatesData34]

            Use            : SetDateDefault2

            Set As        : $$Number:90

            Skip        : Yes

                               

    [Line: SetDatesData4]

        Field           : SetDatesData41, BlankSpace0, SetDatesData42, BlankSpace1, SetDatesData43, BlankSpace2, SetDatesData44,

        Space Bottom     : 0.5


        [Field : SetDatesData41]

            Use            : SetDateDefault1

            Set As        : $$Number:4


        [Field : SetDatesData42]

            Use            : SetDateDefault2

            Set As        : If #SetDatesData33=0 Then $$Number:0 Else #SetDatesData33

            Set Always    : Yes

            Skip        : Yes

            BackGround    : Grey

           

        [Field: SetDatesData43]

            Use         : SetDateDefault2

            Validate    : $$Value = 0 OR $$Value > #SetDatesData42

            Set as      : ##varDate004

            Set Always    : Yes

            Format        : "No Zero"


        [Field : SetDatesData44]

            Use            : SetDateDefault2

            Set As        : $$Number:120

            Skip        : Yes

                               

    [Line: SetDatesData5]

        Field           : SetDatesData51, BlankSpace0, SetDatesData52, BlankSpace1, SetDatesData53, BlankSpace2, SetDatesData54,

        Space Bottom     : 0.5


        [Field : SetDatesData51]

            Use            : SetDateDefault1

            Set As        : $$Number:5


        [Field : SetDatesData52]

            Use            : SetDateDefault2

            Set As        : If #SetDatesData43=0 Then $$Number:0 Else #SetDatesData43

            Set Always    : Yes

            Skip        : Yes

            BackGround    : Grey

           

        [Field: SetDatesData53]

            Use         : SetDateDefault2

            Validate    : $$Value = 0 OR $$Value > #SetDatesData52

            Set as      : ##varDate005

            Set Always    : Yes

            Format        : "No Zero"


        [Field : SetDatesData54]

            Use            : SetDateDefault2

            Set As        : $$Number:180

            Skip        : Yes

                               

    [Line: SetDatesData6]

        Field           : SetDatesData61, BlankSpace0, SetDatesData62, BlankSpace1, SetDatesData63, BlankSpace2, SetDatesData64,

        Space Bottom     : 0.5


        [Field : SetDatesData61]

            Use            : SetDateDefault1

            Set As        : $$Number:6


        [Field : SetDatesData62]

            Use            : SetDateDefault2

            Set As        : If #SetDatesData53=0 Then $$Number:0 Else #SetDatesData53

            Set Always    : Yes

            Skip        : Yes

            BackGround    : Grey

           

        [Field: SetDatesData63]

            Use         : SetDateDefault2

            Validate    : $$Value = 0 OR $$Value > #SetDatesData62

            Set as      : ##varDate006

            Set Always    : Yes

            Format        : "No Zero"


        [Field : SetDatesData64]

            Use            : SetDateDefault2

            Set As        : $$Number:270

            Skip        : Yes

                               

    [Line: SetDatesData7]

        Field           : SetDatesData71, BlankSpace0, SetDatesData72, BlankSpace1, SetDatesData73, BlankSpace2, SetDatesData74,

        Space Bottom     : 0.5


        [Field : SetDatesData71]

            Use            : SetDateDefault1

            Set As        : $$Number:7


        [Field : SetDatesData72]

            Use            : SetDateDefault2

            Set As        : If #SetDatesData63=0 Then $$Number:0 Else #SetDatesData63

            Set Always    : Yes

            Skip        : Yes

            BackGround    : Grey

           

        [Field: SetDatesData73]

            Use         : SetDateDefault2

            Validate    : $$Value = 0 OR $$Value > #SetDatesData72

            Set as      : ##varDate007

            Set Always    : Yes

            Format        : "No Zero"


        [Field : SetDatesData74]

            Use            : SetDateDefault2

            Set As        : $$Number:365

            Skip        : Yes

                               

    [Line: SetDatesData8]

        Field           : SetDatesData81, BlankSpace0, SetDatesData82, BlankSpace1, SetDatesData83, BlankSpace2, SetDatesData84,

        Space Bottom     : 0.5


        [Field : SetDatesData81]

            Use            : SetDateDefault1

            Set As        : $$Number:8


        [Field : SetDatesData82]

            Use            : SetDateDefault2

            Set As        : If #SetDatesData73=0 Then $$Number:0 Else #SetDatesData73

            Set Always    : Yes

            Skip        : Yes

            BackGround    : Grey

           

        [Field: SetDatesData83]

            Use         : SetDateDefault2

            Validate    : $$Value = 0 OR $$Value > #SetDatesData82

            Set as      : ##varDate008

            Set Always    : Yes

            Format        : "No Zero"


        [Field : SetDatesData84]

            Use            : SetDateDefault2

            Set As        : $$Number:730

            Skip        : Yes

                               

    [Line: SetDatesData9]

        Field           : SetDatesData91, BlankSpace0, SetDatesData92, BlankSpace1, SetDatesData93, BlankSpace2, SetDatesData94,

        Space Bottom     : 0.5


        [Field : SetDatesData91]

            Use            : SetDateDefault1

            Set As        : $$Number:9


        [Field : SetDatesData92]

            Use            : SetDateDefault2

            Set As        : If #SetDatesData83="" Then $$Number:0 Else #SetDatesData83

            Set Always    : Yes

            Skip        : Yes

            BackGround    : Grey

           

        [Field: SetDatesData93]

            Use         : SetDateDefault2

            Skip        : Yes

            Format        : "No Zero"


        [Field : SetDatesData94]

            Use            : SetDateDefault2

            Skip        : Yes



           


;****************************************************************************


[System: Variables]

    varDate001    : 30

    varDate002    : 60

    varDate003    : 90

    varDate004    : 120

    varDate005    : 180

    varDate006    : 270

    varDate007    : 365

    varDate008    : 730

   

[System : Formula]

    NewBillDays        :    $$String:"Age of Bill"

    NewOverDueDays    :    $$String:"Days Overdue"


    OnlyHigherAllowed   : $$LocaleString:"Number should be\nhigher than\n`FROM' value. !"

   

    Fi1VchOpg          : $$NettAmount:#Fi1DSPVchDrOpAmt:#Fi1DSPVchCrOpAmt

    Fi1VchTrans        : $$NettAmount:#Fi1DSPVchDrTotalAmt:#Fi1DSPVchCrTotalAmt

    Fi1VchClg          : $$NettAmount:@@Fi1VchOpg:@@Fi1VchTrans


[Variable : varDate001]

    Type        : Number

    Set Always    : Yes

    Persistent    : Yes

    Volatile    : No

   

[Variable : varDate002]

    Type        : Number

    Set Always    : Yes

    Persistent    : Yes

    Volatile    : No

   

[Variable : varDate003]

    Type        : Number

    Set Always    : Yes

    Persistent    : Yes

    Volatile    : No

   

[Variable : varDate004]

    Type        : Number

    Set Always    : Yes

    Persistent    : Yes

    Volatile    : No

   

[Variable : varDate005]

    Type        : Number

    Set Always    : Yes

    Persistent    : Yes

    Volatile    : No

   

[Variable : varDate006]

    Type        : Number

    Set Always    : Yes

    Persistent    : Yes

    Volatile    : No

   

[Variable : varDate007]

    Type        : Number

    Set Always    : Yes

    Persistent    : Yes

    Volatile    : No

   

[Variable : varDate008]

    Type        : Number

    Set Always    : Yes

    Persistent    : Yes

    Volatile    : No




[Color : Fi1HighlightBox]

    RGB : 255, 255, 203


[Color : Fi1InactiveBox]

    RGB : 150, 0, 0


[Border: Fi1DoubleBorder]

    Right        : Thick, Double Lined

    Left         : Thick, Double Lined

    Top           : Thick, Double Lined

    Bottom      : Thick, Double Lined


[Border: Fi1DoubleBorder1]

    Right        : Thick, Double Lined

    Left         : Thick, Double Lined

    Bottom      : Thick, Double Lined


[Border: Fi1ThinRight]

    Right        : Thin, Full Length

   

[Border: Fi1EncloseRLB]

    Right        : Thin, Full Length

    Left         : Thin, Full Length

    Bottom         : Thin, Full Length

   

[Border: Fi1EncloseRB]

    Right        : Thin, Full Length

    Bottom         : Thin, Full Length

   

[Border: Fi1EncloseRLT]

    Right        : Thin, Full Length

    Left         : Thin, Full Length

    Top         : Thin, Full Length

   

[Border: Fi1EncloseRT]

    Right        : Thin, Full Length

    Top         : Thin, Full Length

   


;****************************************************************************



[Report: Fi1LEDVCH Configure]

    Auto    : Yes

    Form    : Fi1DSP Configure

    Title    : $$LocaleString:"4-in-1 Ledger Configure"

    Local   : Form     : Fi1DSP Configure     : Add     : Parts : After             : Fi1DSPConfigure    : Fi1LEDVCHCFG Common, Fi1DSP BasicConfig, Fi1LEDBILLCFG Common

    Local    : Part    : Fi1DSP BasicConfig: Add    : Line    : After                : DSP Sorting    : DSP ShowBalance

    Local   : Part     : Fi1DSP BasicConfig: Local    : Line     : DSPInvNameStyle   : Invisible      : ##IsCCReport

    Local   : Part     : Fi1DSP BasicConfig: Local : Line     : DSPInvNameStyle   : Local         : Field: DSPInvNameStyle : Skip    : If  ##IsInvRegister OR #ColumnarDayBook OR #ExtractMode Then No Else NOT #DBKExplodeInv

    Local    : Part    : Fi1DSP BasicConfig: Local : Line     : DSPNameStyle            : Invisible      : ##IsInvRegister

    Local   : Field : Medium Prompt     : Width : @@LongWidth

    Local   : Field : DSPExplode Prompt : Width : @@LongWidth


[Form: Fi1DSP Configure]

    No confirm  : Yes

    Full width  : No

    Full height : No

    Parts       : Fi1DSP Configure

    Local       : Line  : Form SubTitle : SpaceBottom   : 0.5

    Space Top   : 1

    Space Bottom: 1

    Space Left  : 1

    Space Right : 1


    [Part: Fi1DSP Configure]

        Lines       : Form SubTitle

        Local       : Field : Form SubTitle : Info : $$LocaleString:"4-in-1 Ledger Configuration"

        Local       : Field : Form SubTitle : Style        : Large Bold

        Border        : Fi1DoubleBorder


    [Part: Fi1LEDVCHCFG Common]

        Lines   : Fi1SubTitle, LedVchFilter, DSPExploded, DBKExplodeBill, DBKExplodeCost, DBKExplodeInv, DSPExplodeBank, DSPExplodeBankAll, ShowCreatedBy, DSPExplodeNarr, LedShowForex, ShowForex, INCLOpening, INCLOpExpl

        Local   : Field : ShowForexPrompt   : Info  : $$LocaleString:"Show Forex Transactions only ?"

        Option  : ShowMarkedVouchers    : ##BankRecMode

        Option  : CCOptions             : ##IsCCReport

        Border            : Fi1DoubleBorder1

        Local : Line    : Default : Local : Field : Default : Style : SmallBold

        Local : Line    : Default : Local : Field : Default : Indent: 1

        Local : Line    : Fi1SubTitle : Local : Field : Fi1SubTitle : Set As     : "Configuration for Normal Ledger"

        Local : Line    : Fi1SubTitle : Local : Field : Fi1SubTitle : Style        : Normal Bold

        Space Top       : 0.5

        Space Bottom    : 0.5

        Common Border    : Yes


    [Part: Fi1DSP BasicConfig]

        Lines       : DSPInvNameStyle, DSPNameStyle, ShowBudgetType, DSPShowColumnTotal, DSPSetScale, DSPCurrencySymbol, DSPSetPeriod, DSPAverage, DSPHiLo, DSP Sorting, DSP ExplodeAllLevels

        Space Top   : 0.5

        Local       : Field : DSPExplodeAllLevels: Skip on : No

        Local       : Field : DSPExplodeAllLevels: Set as  : ##ExplodeAllLevels

        Border            : Fi1DoubleBorder1

        Local : Line    : Default : Local : Field : Default : Style : SmallBold

        Local : Line    : Default : Local : Field : Default : Indent: 1

        Space Top       : 0.5

        Space Bottom    : 0.5


    [Part: Fi1LEDBILLCFG Common]

        Lines   : Fi1SubTitle, ShowPDC, BILLCFG ShowOpAmt, ShowReminders, LedgerAddressToPrint, BILLCFG ShowDueOn, BILLCFG ShowOverdueDayAgeOfBill, BILLCFG ShowByBillDate, ShowBillRange, BillWithOrder, BillWithQty, DSPExplodeNarr, ShowBillType, ShowExciseMfgrRef, ShowForex

        Local    : Line    : ShowReminders        : Invisible        : Yes

        Local    : Line    : BILLCFG ShowOpAmt    : Delete        : Invisible

        Border            : Fi1DoubleBorder1

        Local : Line    : Default : Local : Field : Default : Style : SmallBold

        Local : Line    : Default : Local : Field : Default : Indent: 1

        Local : Line    : Fi1SubTitle : Local : Field : Fi1SubTitle : Set As     : "Configuration for Bill Outstandings"

        Local : Line    : Fi1SubTitle : Local : Field : Fi1SubTitle : Style        : Normal Bold

        Space Top       : 0.5

        Space Bottom    : 0.5

       

    [Line : Fi1SubTitle]

        Field : Fi1SubTitle

        Space Top       : 0.5

        Space Bottom    : 0.5

       

        [Field : Fi1SubTitle]

            Use            : Name Field

            Skip        : Yes

            Fixed        : Yes

            Full Width    : Yes

            Align        : Centre

       

टिप्पणियाँ

इस ब्लॉग से लोकप्रिय पोस्ट

Tally Chapter 153 TDL for Custom List of Stock Item By Rajiv Mishra Computer Class

Tally Chapter 130 TDL for Stamp & Signature By Rajiv Mishra Computer Class

Tally Chapter 105 TDL for Receipt contra Payment BULK Entry by Rajiv Mishra Computer Class