Bill wise Outstanding all debtors but when i export to excel manage column so please correct my code

Discussion in 'Free Source Codes' started by pramod5542, Jul 25, 2018.

    
  1. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    You want SORT on what field???
     


  2. pramod5542

    pramod5542 Member


    "Voucher no" or "Ref no"
     


  3. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Check your email....sent you the revised file.
     


  4. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    [#Collection : LedgerBills]
    Sort : @@Default : $$Name

    Add this collection .............
     


  5. pramod5542

    pramod5542 Member


    Sir I want to this type filter below immage

    upload_2018-7-31_13-47-27.png
     


  6. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    Add Button---> Filters in your FORM
     


  7. pramod5542

    pramod5542 Member


    Add : Buttons : Filters
    [Button : Filters]
    Key : Alt + F12
    Action : ???(what is code for this line)
     


  8. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    In your TDL....u used DSP Template.... so the Filter Button is already there.....So what are you trying to achieve??
     


  9. pramod5542

    pramod5542 Member


    i want to this type of filter for my report..

    [​IMG]
     


  10. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    will be possible and will work only when your data is assembled in Voucher-wise aka DayBook type display....
     
    pramod5542 likes this.


  11. pramod5542

    pramod5542 Member


    It means in my report its not working that type filter
     


  12. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    you have two boxes of data......box1 (outer) and box2 (inner)

    Box1 contains ledger data...i.e. Name and Debit n Credit balances so Alt-F12 will work in filtering only ledger names.

    box2 within box1 layer contains bill-wise information hence will not work when you press Ctrl+F12 to filter on values within a voucher.
     


  13. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    make a code...provide a button on right side toolbar....to assemble your data in BOX2 ....sorted alphabetically....then u can apply your Ctrl+F12
     


  14. pramod5542

    pramod5542 Member


    suppose i make a button on right side toolbar (i.e - alt+f) what is the "action" line for filter bill no
     


  15. Amit Kamdar

    Amit Kamdar Administrator Staff Member


    action would be your new report.....voucher-wise display
     


  16. pramod5542

    pramod5542 Member


    I Add a new filter option. but its not working



    ;; The sample code gives report showing All the Party Leger name with its Bill Wise Outstanding in One report - Zero balance filter given

    [#Part: CMP AccFeat Right]

    Option: CS_EnableViewReport : NOT $$IsRemoteCompany

    [!Part:CS_EnableViewReport]

    Add: Line: CS_EnableViewReport


    [Line: CS_EnableViewReport]

    Fields : Medium Prompt, CS_EnableViewReport
    Local : Field : Medium Prompt : Info : $$LocaleString:"BIll-Wise Outstanding Report"
    Space Top : 0.4


    [Field: CS_EnableViewReport]

    Use : Logical Field
    Storage : CS_EnableViewReport

    [System: UDF]

    CS_EnableViewReport: Logical : 7532



    [System : Formula]
    OnlyCplParty: $$IsBelongsTo:$$GroupSundryDebtors AND Not $$IsEmpty:$ClosingBalance




    [#Menu : Gateway Of Tally]

    Add: Option : CS_ViewLedItemReport : $CS_EnableViewReport:company:##SVCurrentCompany

    [!Menu:CS_ViewLedItemReport]

    Add: Item : Before : ~locQuit : Bill Wise Outstanding : Menu : Bill Wise Outstanding

    [Menu : Bill Wise Outstanding]
    Item : Outstanding Bill Breakup : Display : Bill Wise Outstanding

    [Report : Bill Wise Outstanding]



    Form : MyTdl
    Family : "Outstandings"

    List Name : "Bill-wise Details"
    Variables : SV CurrentCompany, SVFromDate, SVToDate, SVSortMethod, LedgerName, SVBudget, SVVariance
    Variables : ExplodeFlag, IsForexReport
    Variable : DSPShowMonthly, DSPHasMultiLevel
    Variable : ShowDaysByBillDate
    Variable : ShowBillRange, IsBillWiseReport, IsLedgerReport, IsCCReport, IsVchTypeReport
    Variable : DSPNotScaleable, DSPHasColumnTotal, DSPAgeByDueDate
    Variable : AgeFrom, AgeTo, ShowReminders, ShowForex
    Variable : IsMultiPage, InNewPages, ShowBillType, IsGrpBillReport
    Repeat : AgeFrom, AgeTo



    Set : SV Sort Method : @@Default
    Set : DSPShowMonthly : No
    Set : ShowDaysByBillDate: Yes
    Set : IsBillWiseReport : Yes
    Set : IsLedgerReport : Yes
    Set : IsGrpBillReport : No
    Set : DSPHasMultiLevel : No
    Set : DSPNotScaleable : Yes
    Set : DSPHasColumnTotal : No
    Set : IsMultiPage : No
    Set : SVBudget : ""

    Set : SV From Date : $$MonthStart:##SVCurrentDate
    Set : SV To Date : $$MonthEnd:##SVCurrentDate

    Export : Yes



    [Form : MyTdl]
    Use : DSP Template
    Width : 100% Page
    Height : 100% Page
    BackGround : Light Sea Green
    Parts : Subbu Title, Subbu Title2, Subbu Body ;;;,SubbuTotal
    Button : Print Button,AgeWiseAnalysis

    Add : Buttons : Remove Line, Restore Line, Restore All, VG FilterButton

    [Button : Remove Line]
    Action : Remove Line : Remove Line
    Key : Alt + R

    [Button : Restore Line]
    Action : Show Last Removed Line : Restore Line
    Key : Alt + U

    [Button : Restore All]
    Action : Show Removed Lines : Restore All
    Key : Ctrl + U

    [Part : Subbu Title]
    Line : subbu Title
    [Border : Subbu Title Border]
    Top : Thin
    Bottom : Thin


    [Line : Subbu Title]
    Border : Subbu Title Border
    Fields : Subbu Title
    Right Fields : Subbu DrAmount Title, Subbu CrAmount Title


    [Field : Subbu Title]
    Use : Name Field
    Set as : "Particulars"
    FullWidth : Yes
    Style : Large
    Border : Thin Bottom
    BackGround : yellow

    [Field : Subbu DrAmount Title]
    Width : @@AmountWidth
    Set as : "Debit"
    Style : Large
    Border : Thin Bottom
    Align: Right
    BackGround : yellow

    [Field : Subbu CrAmount Title]
    Use : Subbu DrAmount Title
    Set as : "Credit"
    Style : Large
    Border : Thin Bottom
    BackGround : yellow

    [Part : Subbu Title2]
    Line : JlLedger Bills Title




    [Part : Subbu Body]

    Line : Subbu Body Detail ;;,Subbu
    Repeat : Subbu Body Detail : JlLedger
    Scroll : Vertical

    ;Local : Collection : Ledger : Filter : OnlyCplParty

    [Line : Subbu Body Detail]

    Left Fields : MyLedName

    Right Fields : MyDrAmount , MyCrAmount
    Explode : MyExplodPart : ($$KeyExplode OR ##ExplodeFlag)



    [Part : MyExplodPart]
    Lines : /*JlLedger Bills Title,*/ JlLedger Bills, Jl OnAccount Bills, ZJlEmptyLine
    Repeat : JlLedger Bills : Ledger Bills
    Scroll : Vertical
    Vertical : Yes
    Bottom Line : JLedgerTotals
    Totals : JLBill OpeningAmount, JLBill Amount

    [Line : JLedgerTotals]
    LeftFields : JLBill DateTitle1, JLBill DateTitle2, JLBill DateTitle3, JLBill DateTitle, JLBillNoTitle, JLBill OpeningAmountTitle, JLBill AmountTitle, JlBill CBlackitPeriodTitle, JlBill OverduedaysTitle
    Border : Column Titles
    Local : Field : JLBill DateTitle1 : Info : ""
    Local : Field : JLBill DateTitle2 : Info : ""
    Local : Field : JLBill DateTitle3 : Info : "GRAND TOTAL"
    Local : Field : Default : BackGround : Yellow
    Local : Field : JLBill DateTitle : Info : ""
    Local : Field : JLBillNoTitle : Info : ""
    Local : Field : JLBill OpeningAmountTitle : Set As : $$Total:JLBillOpeningAmount
    Local : Field : JLBill AmountTitle : Set As : $$Total:JLBillAmount
    Local : Field : JlBill CBlackitPeriodTitle : Info : ""
    Local : Field : JlBill OverduedaysTitle : Info : ""

    [Line : ZJlEmptyLine]
    Fields : Info Field
    Local : Field : Info Field : Info : ""

    [Line : JlLedger Bills Title]
    Line : JlLedger Bills Title1
    [Line : JlLedger Bills Title1]

    LeftFields : JLBill DateTitle1, JLBill DateTitle2, JLBill DateTitle3, JLBill DateTitle, JLBillNoTitle, JLBill OpeningAmountTitle, JLBill AmountTitle, JlBill CBlackitPeriodTitle, JlBill OverduedaysTitle
    Border : Column Titles




    Local : Field : JLBill DateTitle1 : Info : ""
    Local : Field : JLBill DateTitle2 : Info : ""
    Local : Field : JLBill DateTitle3 : Info : "Party Name"
    Local : Field : Default : BackGround : Leaf Green
    Local : Field : JLBill DateTitle : Info : "Bill Date"
    Local : Field : JLBillNoTitle : Info : "Bill Number"
    Local : Field : JLBill OpeningAmountTitle : Info : "Opening Amount"+$$NewLine
    Local : Field : JLBill OpeningAmountTitle: Line : 0
    Local : Field : JLBill AmountTitle : Info : "Pending Amount"+$$NewLine
    Local : Field : JLBill AmountTitle: Line : 0
    Local : Field : JlBill CBlackitPeriodTitle : Info : "Credit Period"+$$NewLine
    Local : Field : JlBill CBlackitPeriodTitle : Line : 0
    Local : Field : JlBill OverduedaysTitle : Info : "Overdue Days"+$$NewLine
    Local : Field : JlBill OverduedaysTitle : Line : 0



    [Field : JLBill DateTitle1]
    Use: Short Name Field
    Set as: ""
    Style: Small bold
    Width: 10
    Align: Right
    Color: Black


    [Field : JLBill DateTitle2]
    Use: Short Name Field
    Set as: ""
    Style: Small bold
    Width: 10
    Align: Right
    Color: Black


    [Field : JLBill DateTitle3]
    Use: Short Name Field
    Set as: "Party Name"
    Style: Small bold
    FullWidth : Yes
    Align: Centre
    Color: Black
    BackGround : Leaf Green
    Border : Thin Left

    [Field : JLBill DateTitle]
    Use: Short Name Field
    Set as: "Bill Date"
    Style: Small bold
    Width: 12
    Align: Centre
    Color: Black
    BackGround : Leaf Green
    Border : Thin LeftRight

    [Field : JLBillNoTitle]
    Use: Short Name Field
    Set as: "Bill Number"
    Style: Small bold
    Width: 18
    Align: Centre
    Color: Black
    BackGround : Leaf Green
    Border : Thin LeftRight

    [Field: JLBill OpeningAmountTitle]
    Use: Short Name Field
    Set as: "Opening Amount"
    Style: Small bold
    Width: 13
    Align: Center
    Color: Black
    BackGround : Leaf Green
    Border : Thin LeftRight


    [Field: JLBill AmountTitle]
    Use: Short Name Field
    Set as: "Pending Amount"
    Style: Small bold
    Width: 13
    Align: Center
    Color: Black
    BackGround : Leaf Green
    Border : Thin LeftRight

    [Field : JLBill CBlackitPeriodTitle]
    Use: Short Name Field
    Set as: "CBlackit Period"
    Style: Small bold
    Width:10
    Align: Centre
    Color: Black
    BackGround : Leaf Green
    Border : Thin LeftRight

    [Field : JlBill OverduedaysTitle]
    Use: Short Name Field
    Set as: "Overdue by Days"
    Style: Small bold
    Width: 8
    Align: Center
    Color: Black
    BackGround : Leaf Green
    Border : Thin LeftRight

    [Line : Jl OnAccount Bills]

    Empty: $$IsEmpty:$OnAccountValue:Ledger:#LedgerName
    Fields: JLBill Date, JL OnAccount Bills Title, JL OnAccount Amount
    Local: Field : JLBill Date : Set as : " "


    [Field : Jl OnAccount Bills Title]
    Use: Short Name Field
    Style: Small Bold
    FullWidth : Yes
    Align: Right
    Set as: "On Account "
    Invisible: $$IsEmpty:$OnAccountValue:Ledger:#LedgerName
    Color: Red

    [Field : Jl OnAccount Amount]
    Use: Amount Field
    Set as: $OnAccountValue:Ledger:#LedgerName
    Style : Small bold
    FullWidth : Yes
    Format : "DrCr,NoZero," + ##ShowForex
    Invisible: $$IsEmpty:$OnAccountValue:Ledger:#LedgerName
    Color: Red

    [Line : JlLedger Bills]
    LeftFields: JLBill DateTitle1, JLBill DateTitle2, JLBill DateTitle33, JLBillDate, JlBillNo, JLBill OpeningAmount, JLBill Amount, JlBill CBlackitPeriod, JlBill Overduebydays

    [Field : JLBill DateTitle33]
    Use: Short Name Field
    Set as: $LedgerName
    Style: Small
    FullWidth : Yes
    Align: Left

    [Field : JLBillDate]
    Use: UniDateField
    Set as: $BillDate
    Style: Small
    Width: 12
    Align: Left


    [Field : JLBillNo]
    Use: Short Name Field
    Set as: $Name
    Style: Small
    Width: 18
    Align: Left


    [Field: JLBill OpeningAmount]
    Use : AmountField
    Type : Amount
    Set as : $OpeningBalance
    Style : Small
    Width : 13
    Format : "DrCr,NoZero," + ##ShowForex
    Align: Left

    [Field: JLBill Amount]
    Use : AmountField
    Type : Amount
    Set as : $FinalBalance
    Style : Small
    Width : 13
    Format : "DrCr,NoZero," + ##ShowForex
    Align: Left

    [Field : JLBill CBlackitPeriod]
    Use : UniDateField
    Set as : If $$IsEmpty:$BillCBlackitPeriod then $BillDate else $BillCBlackitPeriod
    Style : Small
    Width : 10
    Align: Left


    [Field : JlBill Overduebydays]
    Set as : if ##ShowDaysByBillDate then @DaysByBillDate else @DaysByDueDate
    DaysByBillDate : $$String:mad:BillDays
    DaysByDueDate : if @@DSPToDate >= @@CBlackitPeriod then $$String:mad:OverDueDays else ""
    OverDueDays : @@DSPToDate - @@CBlackitPeriod
    BillDays : @@DSPToDate - $BillDate
    Width : 8
    Style : Small
    Align : Center
    Invisible : NOT ($$InPixelMode OR $$InExportMode)



    [Field : MyLedName]
    Set As: $Name
    Variable: LedgerName
    Modifies: ledgerName
    Style: Small bold
    FullWidth: Yes
    Invisible: $$IsEmpty:$ClosingBalance
    Color: Black
    Display : Ledger Vouchers

    [Field : MyCrAmount]
    Type: Amount
    Width: @@AmountWidth
    Align: Right
    Style: Small bold
    Set as: If Not $$Isdr:$ClosingBalance Then $ClosingBalance Else 0
    Invisible: $$IsEmpty:$ClosingBalance

    [Field : MyDrAmount]
    Use: MyCrAmount
    Set as: If $$IsDr:$ClosingBalance Then $ClosingBalance Else 0
    Invisible: $$IsEmpty:$ClosingBalance

    [Collection : JlLedger]
    Type : Ledger
    Filter : OnlyCplParty
    Sort : @@Default : $TransactionDate, $VoucherNumber, TransactionFirstLedName


    ;;=================================== New Filter Option ===========================================;;

    [Button:VG FilterButton]
    Key: Alt+F
    Title:$$LocaleString:"Find Invoice"
    Action:Modify Variables:VGFilterRep
    [Report:VGFilterRep]
    Title:$$LocaleString:"Find Invoice"
    Form:VG OutStandFiltForm
    [Form:VG OutStandFiltForm]
    Part:VG OutStandFiltPert
    Vertical Align:Center
    Horizontal Align:Center
    Full Height:No
    Full Width:No
    Space Bottom:0.5% Screen
    Space Left:0.5% Screen
    Space Right:0.5% Screen
    Space Top:0.5% Screen
    [Part:VG OutStandFiltPert]
    Line: VG OutStandFiltTit,VG OutStandParty
    Border:Thin Box
    Space Bottom:0.5% Screen
    Space Left:0.5% Screen
    Space Right:0.5% Screen
    Space Top:0.5% Screen
    [Line:VG OutStandFiltTit]
    Field:Name Field
    Local: Field: Name Field: Info:"Find Invoice"
    Local: Field: Name Field: Align:Center
    Local: Field: Name Field: Full Width:Yes

    [Line:VG OutStandParty]
    Field:Medium Prompt,VG OutPartyWise
    Local: Field: Medium Prompt:Set as:"Ref No"
    Space Top:0.5% Screen
    Space Bottom:0.5% Screen
    [Field:VG OutPartyWise]
    Use: Name Field
    Variable: VGRefFilter
    Modifies: VGRefFilter
    Width :20% Screen

    [Variable:VGRefFilter]
    Type:String
    Persistent:Yes
    [System:Variable]
    VGRefFilter:""
     


Share This Page