Vat tin no cannot be display in report please help

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
[#Menu : Gateway of Tally]
Add : Item : Sales Report : DISPLAY : Sales Report

[Report : SalesReport]
Form : SalesReport
Set: variable : svfromdate, svtodate
Set : SVFromDate : $$FinYearBeg:##SVCurrentDate:$StartingFrom:Company:##SVCurrentCompany
Set : SVToDate : $$FinYearEnd:##SVCurrentDate:$StartingFrom:Company:##SVCurrentCompany

[Form : SalesReport]
Part : ASTPURTitle,ASTPURDtls
Bottom Part : ASTTotal
Height : 100% Screen
use : DSP Template
Add : Button : LedgerwiseS

[Part : ASTPURTitle]
Line : ASTPURTL1,ASTPURTL2

[Line : ASTPURTL1]
Field : ASTPURTL1

[Field : ASTPURTL1]
Set as : @@cmpmailname
Full Width : Yes
Align : Centre
Style : Large Bold
Skip : Yes

[Line : ASTPURTL2]
Field : ASTPURTL2
Right Field : AStPeriod
; Border : Column Titles

[Field : ASTPURTL2]
use : Name Field
Set as : "Sales Register"
Fullwidth : Yes
Align : Centre
Skip : Yes


[Field : Astperiod]
Set as : "From "+$$String:##svFromdate+" To "+$$String:##svTodate
Skip : Yes


[Part : ASTPURDtls]
Line : saleTitles,salesdtls
Repeat : salesdtls : Salescoll :SalesColldtl
Total : Invamt,InvVat
Scroll : Vertical
option : Ledgerwise : ##Newchangecoll Not Contains "ALL ITEMS"
option : AllLedger : ##Newchangecoll contains "ALL ITEMS"

[!Part: Ledgerwise]
Repeat : salesdtls : Ledsalescoll :SalesColldtl

[!Part : AllLedger]
Repeat : salesdtls : Salescoll :SalesColldtl



[Line : Saletitles]
Field : Sno, Invno, invdt , Party,CSTNO, INVVAT , Invamt
Local : Field : sno : Set as : "S.No."
Local : Field : Party : Set as: "Buyer Name"
Local : Field : Party : Line : 0
Local : Field : CSTNO : type : String
Local : Field : CSTNO : Set as: "Vat Tin"
Local : Field : invdt : Set as :"Inv Dt"
Local : Field : Invno : Set as :"Invno."
Local : Field : InvVat : type : String
Local : Field : InvVat : Set as :"InvVat."
Local : Field : Invamt : type : String
Local : Field : Invamt : Set as : "Inv.Amt"
Border : Column Titles


[Line : salesdtls]
Field : Sno, invno,invdt,Party, CSTNO, INVVAT, Invamt
Option : AlterOnEnter

[Field : Sno]
Set as : $$Line
Width : 5% Screen
Alter : Voucher

[Field : Party]
use : Name Field
set as : $PartyLedgername
Width : 25% Screen

[Field : Cstno ]
use : Name Field
set as : $Vattinnumber
Width : 15% Screen


[Field : InvNO]
use : Name Field
Set as : $Vouchernumber
Width : 10% Screen

[Field : Invdt]
Set as : $Date
Width : 10% Screen

[Field : InvVat]
use : Amount Field
Set as : $Vatamount
Width : 10% Screen

[Field : Invamt]
use : Amount Field
Set as : $Amount
Width : 10% Screen



[Part : ASTTotal]
Line : Asttotal

[Line : Asttotal]
Field : Sno, Invno,invdt,party, cstno, invvat, Invamt
Local : Field : sno : Set as : ""
Local : Field : Party : Set as: "Total..."
Local : Field : Cstno : Set as : ""
Local : Field : invdt : Set as :""
Local : Field : Invno : Set as :""
Local : Field : InvVat : Set as : $$Total:Invvat
Local : Field : Invamt : Set as : $$Total:Invamt
Border : Column Titles

[Collection : Salescoll]
Type : voucher
Filter : IsSale
Fetch : Vouchernumber,PartyLedgername,Amount,Date,vatamount,vattinnumber

[Collection : LedSalescoll]
Type : voucher
Filter : IsSale
Fetch : Vouchernumber,PartyLedgername,Amount,Date,vatamount,vattinnumber
Filter : ChkParty

[Collection : SalesColldtl]
Type : ledger
By : PartyLedgername : $NAME
Fetch : NAME,vattinnumber




[System : Formula]
Issale : $$IsSales:$vouchertypename
ChkParty : $PartyLedgername = ##Newchangecoll

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

[Button: LedgerwiseS]
Key : CTRL + L
Action : Execute : LedgerwiseColl
Title : $$LocaleString:"Ledgerwise"

[Report : LedgerwiseColl ]
Form : NewchangeColl

[Form : NewchangeColl]
Part : Newchangecoll

[Part : Newchangecoll]
Line: New Change Coll

[Line: New Change Coll]

Field : Short Prompt, MyLedger
Local : Field : Short Prompt : Info : $$LocaleString:"Select Ledger:"

[Field: MyLedger]

Use : Name Field
Table : MyLedger
Modifies : New Change Coll : Yes
Show Table : Always
Style : Small
Always : Yes

[Collection : MyLedger]
Collection : Ledger
Collection : All Items

[Variable : NewChangeColl]
Type : String
Persistent : NO
Volatile : NO

[System : Variable]
NewChangeColl : "All Items"

 

Dear Deepak,
Try this Corrected Code...

 

Thanks for sharing.

 

Thanks Sir

 

Dear Deepak Sir,
How to Write collection or filter to show the report as