PLEASE HELP WITH CODE

PLEASE HELP ME WITH THE PROPER CODE AND ALIGNMENT.

 

Enjoy this columnar Day Book

[#Menu : Gateway of Tally]
Item : Columer Day Book : Display : Columer Day Book
[Report : Columer Day Book]
Form :Columer Day Book
Variable : SVFromDate,SVToDate
Set : SVFromDate : ##SVCurrentDate
Set : SVToDate : ##SVCurrentDate

[Form :Columer Day Book]
Part :daybookhead,daybookhead1, Columer Day Book ;;,daybookhead2

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 : ". Coulmer Day Book on " + $$String:##SVCurrentDate

Local : Field : Simple Field : Set As : " Coulmer Day Book on " + $$String:##SVFromDate +" to " + $$String:##SVToDate
Local : Field : Simple Field : Style : Normal
Local : Field : Simple Field : Align : Centre


[Part : daybookhead1]
Use : Columer Day Book
Delete : Repeat
Delete : Scroll
Border : ColumnTitles
Local : Field : Default : Type : string
Local : Field : My Voucher Date : Set As : "Date"
Local : Field : My Voucher Day : Set As : "Day Name"
Local : Field : MyVoucherParty: Set As : "Particular"
Local : Field : MyVchNo : Set As : "Voucher No"
Local : Field : MyVchType : Set As : "Voucher Type"
Local : Field : Refnobb : Set As : "Reference No."
Local : Field : TEPLChequeNoFld : Set As : "Cheque No"
Local : Field : MyVchAmount5 : Set As : "Journal"
Local : Field : MyVchAmount : Set As : "Sales"
Local : Field : MyVchAmount4 : Set As : "Credit Note"
Local : Field : MyVchAmount6 : Set As : "Purchase"
Local : Field : MyVchAmount3 : Set As : "Debit Note"
Local : Field : MyVchAmount1 : Set As : "Receipt"
Local : Field : MyVchAmount2 : Set As : "Payment"




Local :Field : Default : Style : Small Bold : Color : Leaf Green
Local: Field: Default: Align: Center



[Part :Columer Day Book]
Line : Columer Day Book
Repeat :Columer Day Book :My Voucher Rep Collection
tOTAL : MyVchAmount5,MyVchAmount,MyVchAmount4,MyVchAmount6,MyVchAmount3,MyVchAmount1,MyVchAmount2
Scroll : Vertical
[Line :Columer Day Book]
Field :My Voucher Date,My Voucher Day,MyVoucherParty,MyVchNo,MyVchType,Refnobb,TEPLChequeNoFld

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

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


[Field : My Voucher Day]

Use : Name Title Field
set as : $$Dayofweek : $date
Indent : 6
Style : Normal Bold
FullWidth : Yes
Width : @@ShortNameWidth
Border : Thin Right




[Field : MyVoucherParty]

Use : NAme Field
Set As : $LedgerName
Width : 35
Border : Thin Right
Alter : Voucher



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

[Field : MyVchType]
Use : Name Field
Set As : $VoucherTypeName
Border : Thin Right
Width : 15

[Field:Refnobb]
Use : Name Field
Set As : $Reference
Width : 20
Align : centre
color : black
Style : Normal
Border : Thin Left right
[#Collection: Vouchers of Ledger]
Fetch : AllLedgerEntries.BankAllocations.INSTRUMENTNUMBER
Fetch : Reference

[#Collection: Daybook Vouchers of Company]
Fetch : AllLedgerEntries.BankAllocations.INSTRUMENTNUMBER
Fetch : Reference

[#Collection : Specific Vouchers of Company]
Fetch : AllledgerEntries.BankAllocations.INSTRUMENTNUMBER
Fetch : Reference

[#Collection: Vouchers of Group]
Fetch : AllLedgerEntries.BankAllocations.INSTRUMENTNUMBER
Fetch : Reference



[Field : TEPLChequeNoFld]
Use : Short Name Field
Set as : $AllLedgerEntries[-1].BankAllocations.INSTRUMENTNUMBER
Border : Thin Right
Skip : Yes
Align : Right
Width : 6

[Field : MyVchAmount5]
Use : Amount Field
Set As :if $VoucherTypeName CONTAINS "Jou" then $Amount else ""
Border : Thin Right



[Field : MyVchAmount]
Use : Amount Field
Set As :if $VoucherTypeName LIKE "Sales" then $Amount else ""
Format : "DrCr"
Border : Thin Right

[Field : MyVchAmount4]
Use : Amount Field
Set As :if $VoucherTypeName CONTAINS "Cre" then $Amount else ""
Border : Thin Right

[Field : MyVchAmount6]
Use : Amount Field
Set As :if $VoucherTypeName LIKE "Purchase" then $Amount else ""
Border : Thin Right
[Collection : My Voucher Rep Collection]
Type : Vouchers
Fetch : Date,Amount,VoucherTypeName ,PArtyLedgerName,VoucherNumber

[Field : MyVchAmount3]
Use : Amount Field
Set As :if $VoucherTypeName CONTAINS "deb" then $Amount else ""
Border : Thin Right





[Field : MyVchAmount1]
Use : Amount Field
Set As :if $VoucherTypeName LIKE "Receipt" then $Amount else ""
Border : Thin Right
[Field : MyVchAmount2]
Use : Amount Field
Set As :if $VoucherTypeName CONTAINS "pay" then $Amount else ""
Border : Thin Right


[Part: daybookbottam]
Lines : daybookTotalLine
[Line: daybookTotalLine]
Use : Columer Day Book
Local: Field: Default : style : Small bold : Bottom ouble Line

Local: Field: Default: Align: Center




Local : Field : My Voucher Date : Invisible : Yes
Local : Field : My Voucher Day : Invisible : Yes
Local : Field : MyVoucherParty : Invisible : Yes
Local : Field : MyVchNo : Invisible : Yes
Local : Field : MyVchType : Invisible : Yes
Local : Field : Refnobb : Set as : "Total"

Local : Field : TEPLChequeNoFld: Invisible : Yes

Local : Field : MyVchAmount5 : Set As : $$Total:MyVchAmount5

Local : Field : MyVchAmount : Set As : if $$Total:MyVchAmount >1 then $$Total:MyVchAmount else ""
Local : Field : MyVchAmount4 : Set As : $$Total:MyVchAmount4
Local : Field : MyVchAmount6 : Set As : $$Total:MyVchAmount6
Local : Field : MyVchAmount3 : Set As : $$Total:MyVchAmount3
Local : Field : MyVchAmount1 : Set As : $$Total:MyVchAmount1
Local : Field : MyVchAmount2 : Set As : $$Total:MyVchAmount2
Border : Totals
[#LineSP VchDetail]
Local:Fieldefault:Background:If $$IsOdd:$$BalanceLines Then "Grey" Else "White"