Please add "change voucher" filter button to the below columnar day book TDL

Hi Experts,

I got this code from this forum only. I am not a programmer. I would like to request to add "change voucher" button like in day book where we filter report with voucher type (receipt, payment, contra, etc).

Please help me.

Thank you in advance



[#Menu : Gateway of Tally]
Item : Column Day Book : Display : Column Day Book
[Report : Column Day Book]



Form :Column Day Book
Variable : SVFromDate,SVToDate
Set : SVFromDate : ##SVCurrentDate
Set : SVToDate : ##SVCurrentDate

[Button : Change Voucher Type]

Title : "Change Voucher Type"
Key : Ctrl+V
Action : Execute : DYBK ChgVchType
Use : DYBK ChgVchType


[Form :Column Day Book]
Part :daybookhead,daybookhead1, Column Day Book ;;,daybookhead2
Add : Top Button : At Beginning : Change Voucher Type



bottom Part : daybookbottam
Button : Change Period,Print Button,Export Button,FilterButton,GRPVCH Configure



[Part : daybookhead]
Line :daybookhead
[Line :daybookhead]
Field : Simple Field
;Local : Field : Simple Field : Set As : ". on " + $$String:##SVCurrentDate

Local : Field : Simple Field : Set As : " From " + $$String:##SVFromDate +" to " + $$String:##SVToDate
Local : Field : Simple Field : Style : Normal bold
Local : Field : Simple Field : Align : Centre
[Part : daybookhead1]
Use : Column Day Book
Delete : Repeat
Delete : Scroll
Border : ColumnTitles
Local : Field : Default : Type : string
Local : Field : My Voucher Date : Set As : "Date"
Local : Field : MyVoucherParty: Set As : "Particulars"
Local : Field : MyVchNo : Set As : "Vou. No."
Local : Field : MyVchType : Set As : "Vou.Type"
Local : Field : MEBNo : Set As : "Narration"
Local : Field : MyVchAmount0 : Set As : "Contra"
Local : Field : MyVchAmount : Set As : "Sales"
Local : Field : MyVchAmount1 : Set As : "Receipt"
Local : Field : MyVchAmount2 : Set As : "Payment"
Local : Field : MyVchAmount3 : Set As : "Debit Note"
Local : Field : MyVchAmount4 : Set As : "Credit Note"
Local : Field : MyVchAmount5 : Set As : "Journal"
Local : Field : MyVchAmount6 : Set As : "Purchase"
Local :Field : Default : Style : Normal
Local: Field: Default: Align: Center


[Part :Column Day Book]
Line : Column Day Book
Repeat :Column Day Book :My Voucher Rep Collection
Total : MyVchAmount0,MyVchAmount,MyVchAmount1,MyVchAmount2,MyVchAmount3,MyVchAmount4,MyVchAmount5,MyVchAmount6
Scroll : Vertical
[Line :Column Day Book]
Field :My Voucher Date,MyVoucherParty,MyVchNo,MyVchType,MEBNo

Right Field : MyVchAmount0,MyVchAmount,MyVchAmount1,MyVchAmount2,MyVchAmount3,MyVchAmount4,MyVchAmount5,MyVchAmount6
Option : Alter On Enter

[Field :My Voucher Date]
Use : Short Date Field
Set As : $Date
Width:13
Border : Thin Right

[Field : MyVoucherParty]

Use : Name Field
Set As : $LedgerName
Width : 30
Border : Thin Right
Alter : Voucher



[Field : MyVchNo]
Use : NAme Field
Set As : $VoucherNumber
Width : 12
Border : Thin Right

[Field : MyVchType]
Use : Name Field
Set As : $VoucherTypeName
Border : Thin Right
Width : 15
[Field : MEBNo]
Use : Name Field
Set As : $Narration
Width : 60
Border : Thin Right
Style : Normal
Set Always : Yes

[Field : MyVchAmount0]
Use : Amount Field

Set As :if $VoucherTypeName CONTAINS "Con" then $Amount else ""
Format : ""
Border : Thin Right
[Field : MyVchAmount]
Use : Amount Field

Set As :if $VoucherTypeName CONTAINS "Sale" then $Amount else ""
Format : ""
Border : Thin Right
[Field : MyVchAmount1]
Use : Amount Field
Set As :if $VoucherTypeName CONTAINS "Rec" then $Amount else ""
Border : Thin Right
[Field : MyVchAmount2]
Use : Amount Field
Set As :if $VoucherTypeName CONTAINS "pay" then $Amount else ""
Border : Thin Right
[Field : MyVchAmount3]
Use : Amount Field
Set As :if $VoucherTypeName CONTAINS "deb" then $Amount else ""
Border : Thin Right
[Field : MyVchAmount4]
Use : Amount Field
Set As :if $VoucherTypeName CONTAINS "Cre" then $Amount else ""
Border : Thin Right
[Field : MyVchAmount5]
Use : Amount Field
Set As :if $VoucherTypeName CONTAINS "Jou" then $Amount else ""
Border : Thin Right
[Field : MyVchAmount6]
Use : Amount Field
Set As :if $VoucherTypeName CONTAINS "Pur" then $Amount else ""
[Collection : My Voucher Rep Collection]
Type : Vouchers
Fetch : Date,Amount,VoucherTypeName,PArtyLedgerName,VoucherNumber,Narration

*/
[Part: daybookbottam]
Lines : daybookTotalLine
[Line: daybookTotalLine]
Use : Column Day Book
Local: Field: Default : Style : Small Bold

Local: Field: Default: Type: String
Local: Field: Default: Align: Center
Local : Field : MyVoucherParty: Set As : "Total"


Local : Field : MyVchAmount0 :Set As: $$Total:MyVchAmount0
Local : Field : MyVchAmount : Set As : $$Total:MyVchAmount
Local : Field : MyVchAmount1 : Set As : $$Total:MyVchAmount1
Local : Field : MyVchAmount2 : Set As : $$Total:MyVchAmount2
Local : Field : MyVchAmount3 : Set As : $$Total:MyVchAmount3
Local : Field : MyVchAmount4 : Set As : $$Total:MyVchAmount4
Local : Field : MyVchAmount5 : Set As : $$Total:MyVchAmount5
Local : Field : MyVchAmount6 : Set As : $$Total:MyVchAmount6
Border : Totals

 

Filter Button is already there in TDL. Use F12

 

Thank You Sir,

Did not Check it properly