Bill - Party wise Outstandings

Dear All Experts

I Tried to Add Button "Bill-Party wise" In tally.ERP 9 rel 3.2

I Wrote the code. but it have some problem.

I Attach my Code. Please correct the code and post it for me.

Admin sir please help for this .

[#Form: Bills Outstanding]
Add: Button: ShowByLedBill
Add:Option : LedBills Outstanding: ##ShowByLedBill

[!Form: LedBills Outstanding]

SetAlways : ReportSubTitle : If ##InNewPages AND @@PartywiseStartFreshApplied Then $$LocaleString:"Ledger : " + $PartyName Else ""

Replace : Part : BILLBody : GRPLedBILL Body

Add : Part : Before : GRPLedBILL Body : BILL Column
Add : BottomPart : GRPLedBILL Totals

Option : GRPLedBILL Print : $$InPrintMode
Option : GRPLedBILL InNewPage : $$InPrintMode AND ##InNewPages

Local : Button: BILLConfigure : Action : Execute : LedWiseBILL Configure


[Variable: ShowByLedBill]

Type : Logical
Default : No
Volatile : Yes


[#Report: Group Outstandings]
Add : Variable : ShowByLedBill

;;[#Form: Group Outstandings]
;;Add: Button: ShowByLedBill,ToggleShowByLedBill


[Button: ShowByLedBill]

Title : if ##ShowByLedBill then $$LocaleString:"Summary" else $$LocaleString:"Bill-Party wise"
Key : Alt + F7
ActionList : ToggleShowByLedBill, SetShowByBill


[Button: ToggleShowByLedBill]

Key : Alt + F7
Action : Set : ShowByLedBill : NOT ##ShowByLedBill

[Button: SetShowByBill]

Key : Alt + F7
Action : Set : ShowByBill : No



[#Form: Group Outstandings]
Add: Button: ShowByLedBill,ToggleShowByLedBill
; Add : Option : LedBIL GroupOS : ##ShowByLedBill


Option : NRM GroupOS : NOT ##ShowByBill AND NOT ##ShowByLedBill
Option : BIL GroupOS : ##ShowByBill
Option : LedBIL GroupOS: ##ShowByLedBill


Local : Button : LedgerWiseButton : Inactive : ##ShowByBill OR ##ShowByLedBill
Local : Button : ShowByLedBill : Inactive : $$NumSets > 1

[!Form:LedBIL GroupOS]

SetAlways : ReportTitle : If ##InNewPages AND @@PartywiseStartFreshApplied Then $PartyName Else +
If $$IsCommon:GroupName Then ##GroupName Else $$LocaleString:"Group Outstandings"

Parts : GRPBILL Title, LEDBILL Column, GRPLedBILL Body
BottomPart: GRPLedBILL Totals

Option : GRPLedBILL Print : $$InPrintMode
Option : GRPLedBILL InNewPage : $$InPrintMode AND ##InNewPages

Local : Button: Report Config : Action : Execute: GrpLEDWiseBILL Configure
Local : Button: ValueButton : Inactive : Yes
Local : Part : DSP OpPageBreak : Replace : Part : DSP ColTitles : LEDBILL Column

;;[Part: LEDBILL Column]

;;Line : BILL Column

[Part: GRPLedBILL Body]

Part : GRPLedBILL BodyTitle
Repeat : GRPLedBILL BodyTitle : LedgerwiseBills

Total : BILLCl, BILLOp, BILLPDC, BillFinal, BILLForex, BILLInterest
Scroll : Vertical
Vertical : Yes


[Part: GRPLedBILL BodyTitle]

Part : GRPLedBILL Title , GRPLedBILL Details
Vertical : Yes
Page Break : BILL ClPageTotal, BILL OpPageTotal : $$PrevObj:$Parent = $Parent

[Part: GRPLedBILL Title]

Line : GRPLedBILL Title

[Line: GRPLedBILL Title]

Left Fields : BILLFixed, BILLOp, BILLCl
Repeat : BILLCl
Space Top : If $$InPrintMode Then 0.5 Else 0
Fixed : Yes

Invisible : $$IsEmpty$$Total:LedBillInv)
Next Page : NOT $$DoExplosionsFit OR ($$LineNumber = $$LastLineNumber AND NOT $$IsNextSibling)

;;Option : BILL WithGainLoss : ##IsForexReport
;;Option : BILL WithPDC : ##ShowPDC AND NOT ##ShowInterest
;;Option : BILL WithInterest : ##ShowInterest
;;Option : BILL WithDates : $$NumSets = 1 AND NOT ##ShowInterest AND NOT ##IsForexReport AND NOT ##ShowPDC
;;Option : GRPLedBILL TitlePrn : $$InPrintMode

Local: Field: BILLDate : Set as: ""
Local: Field: BILLRef : Set as: ""
Local: Field: BILLIsAdvance : Set as: ""
Local: Field: BILLParty : Set as: $PartyName
Local: Field: BILLParty : Width : 0
Local: Field: BILLParty : Style : Normal Bold
Local: Field: BILLOp : Set as: ""
Local: Field: BILLCl : Set as: ""
Local: Field: BILLForex : Set as: ""
Local: Field: BILLPDC : Set as: ""
Local: Field: BillFinal : Set as: ""
Local: Field: BILLInterest : Set as: ""
Local: Field: BillDue : Set as: ""
Local: Field: BILLOverdue : Set as: ""

[!Line: GRPLedBILL TitlePrn]

Space Bottom: 0.25
Local: Field: BILLParty : Border: Thin Top Bottom

[Part: GRPLedBILL Details]

Line : BILL Detail, GRPLedBILL Total
Repeat : BILL Detail : Group LedgerBills
Total : BILLCl, BILLOp, BILLPDC, BillFinal, BILLForex, BILLInterest, LedBillInv
Scrolled : Vertical

; Page Break : BILL ClPageTotal, BILL OpPageTotal ;;: $$PrevObj:$Parent = $Parent

;;Option : BillsLedgerwiseReceivables : NOT ##IsGrpBillReport AND ##ShowReceivables
;;Option : BillsLedgerwisePayables : NOT ##IsGrpBillReport AND NOT ##ShowReceivables
;;Option : BillsLedgerwiseGrp : ##IsGrpBillReport

Local: Line : GRPLedBILL Total : Invisible : $$IsEmpty$$Total:LedBillInv)

Local: Line : BILL Detail : Add : Field : After : BillOp : LedBillInv
Local: Line : BILL Detail : Local : Field : BILLDate : Set as : $BillDate
Local: Line : BILL Detail : Local : Field : BILLRef : Set as : $Name
Local: Line : BILL Detail : Local : Field : BILLIsAdvance : Set as : if $IsAdvance then $$LocaleString:"(advance)" else ""
Local: Line : BILL Detail : Local : Field : BILLParty : Set as : ""
Local: Line : BILL Detail : Local : Field : BILLParty : Width : If $$InPrintMode Then (@@NameWidth+ 5) Else 0
Local: Line : BILL Detail : Local : Field : BILLOp : Set as : $OpeningBalance
Local: Line : BILL Detail : Local : Field : BILLCl : Set as : $ClosingBalance
Local: Line : BILL Detail : Local : Field : BILLForex : Set as : $ForexClosing
Local: Line : BILL Detail : Local : Field : BILLPDC : Set as : $$AmountSubtract:$FinalBalance:$ClosingBalance
Local: Line : BILL Detail : Local : Field : BillFinal : Set as : $FinalBalance
Local: Line : BILL Detail : Local : Field : BILLInterest : Set as : $Interest
Local: Line : BILL Detail : Local : Field : BillDue : Set as : $$String@CreditPeriod:UniversalDate
Local: Line : BILL Detail : Local : Field : BILLOverdue : Set as : if ##ShowDaysByBillDate then @DaysByBillDate else @DaysByDueDate

[Field: LedBillInv]

Use : AmountField
Set as : $$Abs:#BILLOp
Set Always : Yes
Invisible : Yes


;; Ledger wise bills
[Collection: LedgerwiseBills_Print]

Use : LedgerwiseBills

Aggr Compute: NotBaseCurrCount : Sum : If $$IsBaseCurrency:$OpeningBalance AND $$IsBaseCurrency:$ClosingBalance Then 0 Else 1
Aggr Compute: InterestCount : Sum : If $$IsEmpty:$Interest Then 0 Else 1

Filter : PartywiseConfigFilter


[!Part: BillsLedgerwiseReceivables]

Repeat : BILL Detail : CompanyLedgerReceivables

[!Part: BillsLedgerwisePayables]

Repeat : BILL Detail : CompanyLedgerPayables

[!Part: BillsLedgerwiseGrp]

Repeat : BILL Detail : Group LedgerBills

[Line: GRPLedBILL Total]

Left Fields : BILLFixed, LedBILLOp, LedBILLCl
Repeat : LedBILLCl

Option : LedBILL WithGainLoss : ##IsForexReport
Option : LedBILL WithPDC : ##ShowPDC AND NOT ##ShowInterest
Option : LedBILL WithInterest : ##ShowInterest
Option : BILL WithDates : $$NumSets = 1 AND NOT ##ShowInterest AND NOT ##IsForexReport AND NOT ##ShowPDC

Local : Field : BILLDate : Set as : ""
Local : Field : BILLRef : Set as : ""
Local : Field : BILLIsAdvance : Set as : ""
Local : Field : BILLParty : Set as : ""
Local : Field : BillDue : Set as : ""
Local : Field : BILLOverdue : Set as : ""


[Part: GRPLedBILL Totals]

Line : BillTotal
Invisible : $$InPrintMode



[Collection: LedgerwiseBills]
;;Type : Bills
By : PartyName : $PartyName

Compute : Parent : $Parent
Compute : Date : $Date
Aggr Compute: OpeningBalance : Sum : $OpeningBalance
Aggr Compute: ClosingBalance : Sum : $ClosingBalance
Aggr Compute: ForexClosing : Sum : $ForexClosing
Aggr Compute: PDCAmt : Sum : $$AmountSubtract:$FinalBalance:$ClosingBalance
Aggr Compute: FinalBalance : Sum : $FinalBalance
Aggr Compute: Interest : Sum : $Interest
Search Key : $Parent

ColumnVar : AgeFrom, AgeTo
Keep Source : ().

Option : BillsLedgerwiseReceivables : NOT ##IsGrpBillReport AND ##ShowReceivables
Option : BillsLedgerwisePayables : NOT ##IsGrpBillReport AND NOT ##ShowReceivables
Option : BillsLedgerwiseGrp : ##IsGrpBillReport

Option : PartwiseDefault : @@PartywiseDefault OR @@PartywisePartyIncr
Option : PartwisePartyDecr : @@PartywisePartyDecr

[!Collection: PartwiseDefault]

Sort : @@Default : $Parent

[!Collection: PartwisePartyDecr]

Sort : @@Default : -$Parent


[Collection: Group LedgerBills]

ParmVar : pvParent : String : $Parent

Type : Bills
Filter : DueBillsFilter, AgeFilter, BillTypeFilter
;;Childof : ##pvParent

Compute : Name : $$Name
Compute : PartyName : $$FuncDSPAccName:$Parent ;;$DSPAccName:Ledger:$Parent
Compute : DSPNameStyle : ##DSPNameStyle
Compute : CreditPeriod : @@CreditPeriod

Switch : RemoteBills : RemoteBills : $$IsRemoteCompany

Sort : @@Default : $BillDate
Sort : @@DateIncr : $BillDate
Sort : @@DateDecr : -$BillDate
Sort : @@RefNoIncr : $$Name, $BillDate
Sort : @@RefNoDecr : -$$Name, $BillDate
Sort : @@AmtIncr : $$Abs:$ClosingBalance, $BillDate
Sort : @@AmtDecr : -$$Abs:$ClosingBalance, $BillDate
Sort : @@DueDateIncr : @@CreditPeriod, $BillDate
Sort : @@DueDateDecr : -@@CreditPeriod, $BillDate
Sort : @@CurrencyIncr : $$Currency:$OpeningBalance
Sort : @@CurrencyDecr : -$$Currency:$OpeningBalance