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