i want to get only ledgers under sundry debtors please correct the code !!

[#Field: default]

Add:Tooltip:$$DescName

[#Menu: Gateway of Tally]

Add : Key Item : Before : @@locQuit : Consolidate ledger Report : L : Display :ledger Report

[Report: ledger Report]

Form : ledger form
Use : DSP Template
Variables : SV CurrentCompany, SV FromDate, SV ToDate,
Variables : IsDayBook
Variables : IsLedgerReport


[Form:ledger form]

Part : headerpart,ledger part
Height : 100% page
Width : 100% page
Button : F2 TDS Change Periods
Use : Empty Right Buttons Template
Replace : Button : F3 InactiveButton : Change Company
Replace : Button : F2 InactiveButton : F2 Change Period

[part : headerpart]

line : headerLine,
Height : 5% page
Space Bottom : 0.5
Space Top : 0.5


[line : headerLine]


Field : NameField, ShortPrompt, DSP MainDateTitle

local : field : NameField : Set as : "Multi Company Report"
local : field : NameField : width : 42
local : field : NameField : style : NormalBold
local : field : NameField : color : blue
local : field : ShortPrompt : SET AS : $$LocaleString:"Period" + " : "
local : field : DSP MainDateTitle : width : 40
local : field : DSP MainDateTitle : align : left
local : field : DSP MainDateTitle : color : blue


[Part:ledger part]


Line : CA ListOfAccountsLedgerWiseTitles,CA ListOfAccountsLedgerWises
Repeat : CA ListOfAccountsLedgerWises : CA My Ledger
Scroll : Vertical
Common Border : Yes
Total : CA invvalues
Width : 100% page
Height : 95% page
;Background : blue


[Line: CA ListOfAccountsLedgerWiseTitles]

Field : CA LedgerSlNos , CAAccType Names , CA LedgerParents,

Right Fields : CA Ledgerinvno,CA Ledgerdate,CA invvalue,CA company name, CA total





Local : Field : Default : Type : String
Local : Field : Default : Style : Normal Bold
Local : Field : Default : Border : thinright
Local : Field : Default : Align : Left
;Local : Field : Default : LINE : 3
Local : Field : Default : Border : Column Titles

Local : Field : CA LedgerSlNos : info : $$LocaleString:"Sl. No."
Local : Field : CA AccType Names : info : $$LocaleString:"Name of Ledger"
Local : Field : CA LedgerParents : info : $$LocaleString:"Under"
Local : Field : CA Ledgerinvno : info : $$LocaleString:"Invoice No"
Local : Field : CA Ledgerdate : info : $$LocaleString:"Invoice Date"
Local : Field : CA invvalue : info : $$LocaleString:"Invoice Value"
Local : Field : CA company name : info : $$LocaleString:"Compay Name"
Local : Field : CA total : info : $$LocaleString:"Total"






[Field: CA LedgerSlNos]

Width:10% page

[Field:CA AccType Names ]

;Width:40% page
Full Width:Yes

[Field:CA LedgerParents]
;
Width:15% page

[Field:CA Ledgerinvno]

Width:13% page

[Field: CA Ledgerdate]

Width:13% page

[Field:CA invvalue]

Width:15% page

[Field:CA company name]

Width:40% page
;Full Width:Yes

[Field:CA total]

Width:15% page



[Line: CA ListOfAccountsLedgerWises]

Field : CA LedgerSNo , CAAccTypes Name , parents

Right Fields :CA Ledgerinvnos,CA Ledgerdates,CA invvalues,CA company names, CA totals

; Local : Field : Default : Type : String
Local : Field : Default : Style : Normal Bold
Local : Field : Default : Border : thinright
Local : Field : Default : Align : Left


[Field:CA LedgerSNo]

Set as:$$Line
Width:10% page


[Field:CA AccTypes Name]

Set as :$ledgername
Full Width:Yes

[Fieldarents]

Set as:$parent

[Field:CA Ledgerinvnos]

Use : Short Name Field
Width : 13% page
Set as : $VoucherNumber

[Field:CA Ledgerdates]



Use : Uni Date Field
Set as :$Date
Width :13% page

[Field: CA invvalues]

Width :15% page
Set As : If $$IsDr:$Amount Then $Amount Else -$Amount
[Field:CA company names]



Use : Name Field
Alter : Voucher
Invisible : No
Width : 40% page
Set as : $OwnerCompany


[Field:CA totals]


Width :15% page
Set as: $Amount

[Collection: CA My Ledger]

Collection : AllCollection : CompanyCollection

[Collection : CompanyCollection]

Type : Company
Fetch : Name

[Collection : VoucherCollection]

Type : Voucher
Fetch : Date, Vouchernumber, Amount,Partyname
Filter : TSPL Smp IsPurcOrSales

[Collection : ALLCollection]

;Collection:ledgercollection
Source Collection : VoucherCollection,;ledgercollection

;Walk : AllLedgerEntries

Compute : Owner Company : $$LoopCollObj:$Name
;Compute : Owner LedgerName : $$LoopCollObj:$LedgerName
Compute : Date : $..Date
Compute : VoucherNumber : $..VoucherNumber
Compute : amount : $..Amount
;By: Partyname : $..Partyname
By : LedgerName :$LedgerName
By : parent : $..parent
Aggr Compute :total:Sum:$..amount


;[Collection:ledgercollection]
;
; Type : Ledger
; Child of : $$GroupSundryDebtors
; Belongs to : Yes
;; Filter : commonledger
;


[System: Formula]

TSPL Smp IsPurcOrSales : $IsSales

 

Thankyou sir !