Problem in Explode of outstanding report !

please help here is code-
[#Menu:gateway of tally]
Add: Item: Before: @@LocQuit: BILL WISE DEBIT OUTSTANDING: Display:BILLSALEREPORTDIX

[Report:BILLSALEREPORTDIX]
UseSP TEMPLATE
Form:CASHSALEREPORTDIX
Set : SVFromDate: ##SVCurrentDate
Set : SVToDate : ##SVCurrentDate
Set : FilterPartyNameGWLWBILLDIX : ""
[Form:CASHSALEREPORTDIX]
UseSP TEMPLATE
Height:100% SCREEN
Width:100% SCREEN
Part:CASHSALEREPORTtitleDIX,CASHSALEREPORTbodyDIX,CSBOTTOMTITLEDIX
Button:EXPLODEFLAG,BtnPartyNameGWLWFilterBILLDIX
[Button:BtnPartyNameGWLWFilterBILLDIX]
Key : F5
Action : Execute : Dispatch DetailsWiseBILLDIX
Title : PARTY NAME


[Reportispatch DetailsWiseBILLDIX]
Form : Dispatch DetailsWiseBILLDIX

[Formispatch DetailsWiseBILLDIX]
Part : Dispatch DetailsWiseBILLDIX
Space Left : 2 mms
Space Right : 2 mms

[Partispatch DetailsWiseBILLDIX]
Line : Dispatch DetailsWiseBILLDIX

[Lineispatch DetailsWiseBILLDIX]
Field : Medium Prompt,Dispatch DetailsWiseBILLDIX
Local : Field : Medium Prompt : Set as : "Select Party Name:"
Space Bottom : 2 mms

[Fieldispatch DetailsWiseBILLDIX]
Table : FILTER,EndOfList
ShowTable : Always
Use : Name Field
Width : 20
Border : Thin Box
Variable : FilterPartyNameGWLWBILLDIX
Modifies : FilterPartyNameGWLWBILLDIX

[Collection: FILTER]
Type: Ledger
ChildOf: $$GroupSundryDebtors
BelongsTo: Yes

[System:Formula]
SMSFilterBILLDIX : $PARTYLedgerName=@@PartyLedgerWiseBILLDIX
PartyLedgerWiseBILLDIX : If $$IsEndOfList:##FilterPartyNameGWLWBILLDIX or ##FilterPartyNameGWLWBILLDIX="" Then $PARTYLedgerName Else ##FilterPartyNameGWLWBILLDIX


[Variable: PartyNameGWLWNIKDIX]
Type : String
Repeat : ##DSPRepeatCollection

[Variable:FilterPartyNameGWLWBILLDIX]
Type : String

[System:Variables]
FilterPartyNameGWLWBILLDIX : ""


[Part:CASHSALEREPORTtitleDIX]
Line:CASHSALEREPORTtitleDIX,kBILLDIX
Background:YELLOW
[Line:kBILLDIX]
Right Field : Name Field
Left Field : Short Prompt,SMSfilterRptBILLDIX
Local : Field : Name Field : Info : @@DSPDateStr
Local : Field : Name Field : Width : 60
Local : Field : Name Field : Align : Right
Local : Field : Short Prompt : Set as: "Party Name:"
[Field:SMSfilterRptBILLDIX]
Use : Simple Field
Style : Normal
Set as : @CSITEMNAMEDIX
Set Always : Yes
CSITEMNAMEDIX : If $$IsEndOfList:##FilterPartyNameGWLWBILLDIX or ##FilterPartyNameGWLWBILLDIX="" Then "" Else ##FilterPartyNameGWLWBILLDIX


[Line:CASHSALEREPORTtitleDIX]
Field:CASHSALEREPORTtitleDIX
Right Field: uni date field;;
Space Bottom:.5
Local:Field:uni date field:Set as:##SVCURRENTDATE;;DATE FIELD2
Local:Field:uni date field:Width:10;;;DATE FIELD3

[Field:CASHSALEREPORTtitleDIX]
Use:name field
Indent:6
Set as:"BILL WISE DEBIT OUTSTANDING"
Full Width:Yes
Style:HEADER TITLE
Align:Center
Color:red
Border:THICK BOTTOM
Wide Space:Yes;
Line:1.5;;;0
[#Style:HEADER TITLE]
Height:grow 20%


[Part:CASHSALEREPORTbodyDIX]

Line:CASHSALETITLELINEDIX,CASHSALEDETAILLINEDIX
Repeat:CASHSALEDETAILLINEDIX:CASHSALECOLLDIX
Scroll:Vertical
Common Border:Yes
Total:CSTOTALBILLAMTDIX,CS TOTALBILLRECDIX,csvalueDIX
Background:GREEN1DIX



[Collection:CASHSALECOLLDIX]
Type:VOUCHERS:VOUCHERTYPE
Child Of:$$VchTypeSales
Belongs To:Yes
FetchATE,VOUCHERNUMBER,BASICBUYERNAME,Reference,STOCKITEMNAME,BasicPurchaseOrderno,BasicOrderDate,BasicOrderRef,AMOUNT
Fetch:LEDGERENTRIES.*
Compute:$$CollAmtTotal:InventoryEntries:$CreditTotals
compute:$$CollAmtTotal:InventoryEntries:$Amount

Filter : NOTIsOptionalVoucher,SMSFilterBILLDIX
[Line:CASHSALETITLELINEDIX]
Field:CS SNODIX,CS BILLDATEDIX, CS BILLNODIX, CS ITEMNAMEDIX,CS PARTYSALEDIX,CS PARTYPODATEDIX,CS PARTYREFDIX,CS TOTALBILLAMTDIX,CS TOTALBILLRECDIX,csvalueDIX
Local:Field:CS SNODIX:Info:"Sr NO"
Local:Field:CS BILLDATEDIX:Info:"BILL DATE"
Local:Field:CS BILLNODIX:Set as:"BILL No"

Local:Field:CS ITEMNAMEDIX:Set as:"CUSTOMER NAME"

Local:Field:CS PARTYSALEDIX:Info:"P.O.NO."
Local:Field:CS PARTYPODATEDIX:Info:"P.O.DATE"
Local:Field:CS PARTYREFDIX:Info:"REF.NO."
Local:Field:CS TOTALBILLRECDIX:Info:"Recieved"
Local:Field:csvalueDIX:Info:"Balance"
Local:Field:csvalueDIX:Align:Center
Local:Field:CS TOTALBILLAMTDIX:Info:"AMOUNT"
Local:Field:CS TOTALBILLAMTDIX:Align:Center
Border:Flush Column Titles
Local:FieldEFAULT:Color:BLUE

[Line:CASHSALEDETAILLINEDIX]

Field:CS SNODIX,CS BILLDATEDIX, CS BILLNODIX,CS ITEMNAMEDIX,CS PARTYSALEDIX,CS PARTYPODATEDIX,CS PARTYREFDIX,CS TOTALBILLAMTDIX,CS TOTALBILLRECDIX,csvalueDIX


Explode:csINVENTRIESDIX:$$KeyExplode;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Explode: CPGrp OnAccVouchersNIK:$$KeyExplode

[Part:csINVENTRIESDIX]
Line:csINVENTRIESDIX
Repeat:csINVENTRIESDIX:MYCOLL
[Line:csINVENTRIESDIX]
Field:csINVENTRIESDIX,csINVENTRIESqtyDIX,csINVENTRIESrateDIX,csINVENTRIESVALUEDIX

[Field:csINVENTRIESDIX]
Use : UniDateField
Set as : $Date
Width : if NOT $$InPixelMode then @@ShortDateWidth else @@ShortDateWidth - 1
Alter : CPBillVoucher
Display : VCH Display
Option : Excel BILLVCH Date : $$InExportMode AND ($$KeyExplode OR ##ExplodeFlag)

[Field:csINVENTRIESqtyDIX]
Use : ShortNameField
Set as : $CurLangVoucherTypeName
Width : @@NumberWidth + 1
[Field:csINVENTRIESrateDIX]
Use : ShortNameField
Set as : $VoucherNumber
Width : @@NumberWidth - 1

[Field:csINVENTRIESVALUEDIX]

Use : Amount Field
Set as : $BillAmount
Format : "DrCr"
Width : if NOT $$InPixelMode then @@AmountWidth else (@@AmountWidth - 1)

[Part: CPGrp OnAccVouchersNIK]

Line : CPGrp OnAccVouchersNIK
Repeat : CPGrp OnAccVouchersNIK : MYCOLL2
Scroll : Vertical

Option : Non Bold Part
Option : Italic Part

[Line: CPGrp OnAccVouchersNIK]

Use : csINVENTRIESDIX
EmptyIf : (If #CFPIsRecievable Then NOT $$IsDr:$OnAccLedTotal Else $$IsDr:$OnAccLedTotal) OR +
($Date != $$ExplodeOwner:#CPGSDate)
Local : Field :csINVENTRIESVALUEDIX : Set as : $OnAccLedTotal

[Collection:MYCOLL]
Source Collection:MYCOLL1
Walk : LedgerEntries
By : MasterID : $MasterID
Compute : Date : $Date
Compute : VoucherTypeName : $VoucherTypeName
Compute : CurLangVoucherTypeName: $VoucherTypeName
Compute : VoucherNumber : $VoucherNumber
Compute : BillAmount : @@AllocBillsTotal

Parm Var : BillName : String : #BillName
Parm Var : LedgerName : String : #LedgerName
Filter : NOTIsOptionalVoucher

[Collection:MYCOLL1]
Object : Bill : @@PartyBillKey
Fetch : Name, Parent, LedgerEntries.*

Parm Var: BillName : String : #BillName
Parm Var: LedgerName : String : #LedgerName

[Collection: MYCOLL2]

Type : OnAccountVouchers
Child Of: #LedgerName
Fetch : Date, CurLangVoucherTypeName, VoucherNumber, IsPostDated
Fetch : HasInventory

Compute : OnAccLedTotal : ($$OnAccountTotal:#LedgerName)
Parm Var: SVFromDate : Date : @@BooksFromDate
Parm Var: SVToDate : Date : ##ProjectionEndDate
Filter : NOTIsPostDatedVch

[System: Formula]

PartyBillKey : $$SPrintf:"%s%s%s":##BillName:$$Separatorchar:##LedgerName

[Field:CS SNODIX]
Use:NUMBER FIELD
Set as:$$Line
Width:4
Border:THIN LEFT
[Field:CS BILLDATEDIX]
Use:UNI DATE FIELD
Set as:$DATE
Alter:Voucher
Border:THIN LEFT
Width:7
[Field:CS BILLNODIX]
Use:NAME FIELD
Set as:$VOUCHERNUMBER
Alter:Voucher
Border:THIN LEFT
Width:6

[Field:CS ITEMNAMEDIX]

Use:NAME FIELD
Set as:$LedgerName
Display:Voucher
Border:THIN LEFT
Width:35

[Field:CS PARTYSALEDIX]
Use : Name Field
Set as:$BasicPurchaseOrderno
Width:40

Border:THIN LEFT
[Field:CS PARTYPODATEDIX]
Use : Name Field
Set as:$BasicOrderDate
Width:10

Border:THIN LEFT
[Field:CS PARTYREFDIX]
Use : Name Field
Set as:$Reference
Width:10

Border:THIN LEFT
[Field:csvalueDIX]
Use : AMOUNT Field
Set as:$$ToValue:$DATE:$CLOSINGBALANCE:LEDGER:$$CollectionField:$ledgername:1:ledgerentries

Width:15
Format:"DrCr,Nozero,"
Border:THIN LEFT

[Field:CS TOTALBILLAMTDIX]
Use:AMOUNT FIELD
Set as:$AMOUNT
Format:"DrCr,Nozero,"
Border:THIN LEFT
Width:15
[Field:CS TOTALBILLRECDIX]
Use:AMOUNT FIELD
Set as:$$ToValue:$DATE:$CreditTotals:LEDGER:$$CollectionField:$ledgername:1:ledgerentries;$AMOUNT
Format:"DrCr,Nozero,"
Border:THIN LEFT
Width:15
[PART:CSBOTTOMTITLEDIX]
Bottom Line:cashsalebottomlineDIX
Background:YELLOW
Height:5% SCREEN
[Line:cashsalebottomlineDIX]

Field:cstotalTITLEflDIX,cstotalVALUEflDIX,cstotalVALUEflDIX1,cstotalVALUEflDIX2
Border: THIN TOP BOTTOM

[Field:cstotalTITLEflDIX]

Set as:"TOTAL"
Style:LARGE BOLD
Color:BLUE
Align:Center
Width:50% PAGE
Border:THIN LEFT



[Field:cstotalVALUEflDIX]
Use:amount field
Set as:$$Total:CSTOTALBILLAMTDIX
Style:LARGE BOLD
Space Right:1.25

Color:BLUE
Format:"DrCr"
Width:35% PAGE
Border:XX
[Border:XX]
Left:Thin
Right:Thin
[Field:cstotalVALUEflDIX1]
Use:amount field
Set as:$$Total:CSTOTALBILLRECDIX
Style:LARGE BOLD
;Space Right:1.25

Color:BLUE
Format:"DrCr"
Width:13% PAGE
Border:XX

[Field:cstotalVALUEflDIX2]
Use:amount field
Set as:$$Total:csvalueDIX
Style:LARGE BOLD
;Space Right:1.25

Color:BLUE
Format:"DrCr"
Align:Right
Width:14% PAGE


[Color:GREEN1DIX]
RGB:26,234,135

 

Please help sir

 

Hello. Anybody got the solution??? Please help