Sorting of Pending Bill Collection

Discussion in 'Free Source Codes' started by hiteshhkj, Dec 10, 2019.

    
  1. hiteshhkj

    hiteshhkj Member


    I found many tally users want to sort Pending Bill Collection date wise
    so now here is the solutions for this try this tdl
     

    Attached Files:



  2. mukeshb

    mukeshb Member


    Dear Hitesh,

    Thanks for sharing this usefull TDL.
    Kindly guide how to Hide below marked .

    upload_2019-12-14_15-31-49.png
     


  3. Bipin Damania

    Bipin Damania Active Member


    Thank you for sharing Hitesh

    Very Usefull...
     


  4. tejeet

    tejeet Member


    Dear Hitesh,

    Thanks for sharing this useful TDL.
    Kindly guide how to use this tdl & where this reports are display
     


  5. Bipin Damania

    Bipin Damania Active Member


    This you can see at the time Voucher entry screen...

    Please check
     


  6. Eresh

    Eresh New Member


    How to check the report Sir pls explain
     


  7. tejeet

    tejeet Member


    dear hiteshji,

    i have modify your above codes,but it is not working if their is no table selection - that is it is not working if party does not have outstanding. so please correct below code so that it works properly



    [#Collection: Pending Bills]
    Sub Title: $$LocaleString:"Name", $$LocaleString:"Date", $$LocaleString:"Balance", $$LocaleString:"Date Number"

    Delete : Format
    FullHeight : Yes
    Align : Right
    Add: Format : $$Name, 14
    Add: Format : $BillDate, 8 : Universal Date
    Add: Format : $BaseClosing : "AllSymbols, DrCr"
    Add: Format : $FinalDateNumbers



    [system : formula]
    FormulaMonth : If $$MonthOfDate:$BillDate <=2 then $$MonthOfDate:$BillDate+13 else $$MonthOfDate:$BillDate+1
    FormulaYear : If $$MonthOfDate:$BillDate <=2 then $$YearOfDate:$BillDate-1 else $$YearOfDate:$BillDate
    FormulaDay : $$DayOfDate:$BillDate
    FormulaDateToNum : (1461*$FormulaYear)/4+(153*$FormulaMonth)/5+$FormulaDay ;;;(146097*$FormulaYear)/400+(153*$FormulaMonth+8)/5+$FormulaDay
    FinalDateNumbers : $$Round:$FormulaDateToNum:1


    [#Line: VCHBILL MainLine]
    Add : Field : Before : VCHBILL Name : VCHBILL NameTemp

    [Field : VCHBILL NameTemp]
    Use : Name field
    Set As : If not $$InCreateMode Then $$Table:VCHBILLNameTemp:$Name else $$Value
    Table : MyNewBillColl : $$InCreateMode
    Table : MyNewBillColl, BillRefBlankColl : not $$InCreateMode
    Show Table : Always
    Set Always : Yes
    Dynamic : ""
    Width : @@VCHShortNameWidth




    [#Field: VCHBILL Name]
    Set As : If not $$IsEmpty:#VCHBILLNameTemp then $$Table:VCHBILLNameTemp:$Name else $$ExclEvaluate:$$FnSetBillName



    [Collection : BillRefBlankColl]
    Title : "Blank"
    List Name : " "


    [Collection : MyNewBillColl]
    Use : Pending Bills
    Delete : Sub Title
    Add : Sub Title: $$LocaleString:"Invoice No", $$LocaleString:"Date", $$LocaleString:"Balance"
    Delete : Format
    FullHeight : Yes
    Add : Format : $$Name, 14
    Add : Format : $BillDate, 8 : Universal Date
    Add : Format : $BaseClosing : "AllSymbols, DrCr"
    Client Only : Yes
    Keep Source : ...

    Option : ShowBillFnlBlnc : ##VchShowBillFnlBlnc

    Delete : Sort
    Add : Sort : @@default : $FinalDateNumbers, $$Number:$Name





    [#Line: VCHBILL CTLineOne]
    Local : Field : VCH ShortTitle : Width : @@VCHShortNameWidth*2


    [#Line: VCHBILL CTLineTwo]
    Local : Field : VCH ShortTitle : Width : @@VCHShortNameWidth*2


    [#Line: VCHBILL CTLineThree]
    Local : Field : VCH ShortTitle : Width : @@VCHShortNameWidth*2
     


  8. tejeet

    tejeet Member


    Dear Hitesh Ji,

    please check your code it is not working for party who has no outstanding , we are not able to complete voucher entry as it get stopped at new ref field - we are not able to enter new invoice no as your code are written in which we have to compulsory select from outstanding table show, so please re write your code so that in table always 1st should be add new & then show outstanding details if any
     


  9. hiteshhkj

    hiteshhkj Member


    Now I have resolved the issue when party who has no outstanding, you can complete your voucher entry by selecting on account or other bill type



    [#Collection: Pending Bills]
    Sub Title: $$LocaleString:"Name", $$LocaleString:"Date", $$LocaleString:"Balance", $$LocaleString:"Date Number"

    Delete : Format
    FullHeight : Yes
    Align : Right
    Add: Format : $$Name, 14
    Add: Format : $BillDate, 8 : Universal Date
    Add: Format : $BaseClosing : "AllSymbols, DrCr"
    Add: Format : $FinalDateNumbers

    [system : formula]
    FormulaMonth : If $$MonthOfDate:$BillDate <=2 then $$MonthOfDate:$BillDate+13 else $$MonthOfDate:$BillDate+1
    FormulaYear : If $$MonthOfDate:$BillDate <=2 then $$YearOfDate:$BillDate-1 else $$YearOfDate:$BillDate
    FormulaDay : $$DayOfDate:$BillDate
    FormulaDateToNum : (1461*$FormulaYear)/4+(153*$FormulaMonth)/5+$FormulaDay ;;;(146097*$FormulaYear)/400+(153*$FormulaMonth+8)/5+$FormulaDay
    FinalDateNumbers : $$Round:$FormulaDateToNum:1

    [#Line: VCHBILL MainLine]
    Add : Field : Before : VCHBILL Name : VCHBILL NameTemp

    [Field : VCHBILL NameTemp]
    Use : Name field
    Set As : If not $$InCreateMode Then $$Table:VCHBILLNameTemp:$Name else $$Value
    Table : MyNewBillColl : $$InCreateMode and $BillType = $$SysName:AgstRef
    Table : MyNewBillColl, BillRefBlankColl : not $$InCreateMode and $BillType = $$SysName:AgstRef
    Show Table : Always
    Set Always : Yes
    Dynamic : ""
    Width : @@VCHShortNameWidth
    Skip : $BillType != $$SysName:AgstRef
    Inactive : $BillType != $$SysName:AgstRef

    [#Field: VCHBILL Name]
    Set As : If not $$IsEmpty:#VCHBILLNameTemp then $$Table:VCHBILLNameTemp:$Name else $$ExclEvaluate:$$FnSetBillName

    [Collection : BillRefBlankColl]
    Title : "Blank"
    List Name : " "

    [Collection : MyNewBillColl]
    Use : Pending Bills
    Delete : Sub Title
    Add : Sub Title: $$LocaleString:"Date Number", $$LocaleString:"Name", $$LocaleString:"Date", $$LocaleString:"Balance"
    Delete : Format
    FullHeight : Yes
    Add : Format : $FinalDateNumbers, 10 ;;FinalDateNumbers, 10
    Add : Format : $$Name, 14
    Add : Format : $BillDate, 8 : Universal Date
    Add : Format : $BaseClosing : "AllSymbols, DrCr"
    Client Only : Yes
    Keep Source : ...

    Option : ShowBillFnlBlnc : ##VchShowBillFnlBlnc
    Delete : Sort
    Add : Sort : @@default : $FinalDateNumbers, $$Number:$Name

    [#Line: VCHBILL CTLineOne]
    Local : Field : VCH ShortTitle : Width : @@VCHShortNameWidth*2

    [#Line: VCHBILL CTLineTwo]
    Local : Field : VCH ShortTitle : Width : @@VCHShortNameWidth*2

    [#Line: VCHBILL CTLineThree]
    Local : Field : VCH ShortTitle : Width : @@VCHShortNameWidth*2

    [#Line: VCHBILL ExplLine]
    Add : Field : Before : VCHBILL Name : VCHBILL NameTemp
     


  10. tejeet

    tejeet Member


    Dear Sir ,

    thank you hitesh ji , above TDL is now working fine in all the cases , please also email me city tdl if you have , my email id - tejeet1@gmail.com
     


  11. manishtoya

    manishtoya New Member


    thank you for tdl sharing. it is working fine in create mode but when we open it in alter mode it got stuck after agnst ref field.(receipt voucher).
    pls check . also can we hide date number field
     


  12. sivam

    sivam Active Member


    You try and update it
     


Share This Page