Free Code : TDS Button In Ledger Voucher

Code:

[#Line: DSP VchAccTitles]
Add : Fields : After : DSP Vchaccttitle : JKLTDS



[Field : JKLTDS]
Set as : "TDS"
Skip : Yes
Width : 18
Align : Center
Invisible     : not ##TDSnumber
Style : Normal Bold

[#Line: DSP VchDetail]
Add : Right Fields : Before : DSP Vchtype : JKLTDSDTL

[Field : JKLTDSDTL]
Use : Name Field
Set As : @@JKTDS
Skip : Yes
Align : Center
Width : 18
Invisible     : not ##TDSnumber



[button: TDSnumber]
    Key         : Ctrl+A
    Title     : "TDS"
        Action     : Set : TDSnumber : NOT ##TDSnumber
   
[Variable :TDSnumber]
    type : Logical

[System : Variable]
    TDSnumber : no

[#Form : Ledger Vouchers]
    button : TDSnumber

[System: Formula]
JKTDS :$$FilterAmtTotal:LedgerEntries:DISCOTDS:$Amount
DISCOTDS      :$Name:Ledger:$LedgerName Contains $$LocaleString:"TDS"