Bad Formula : Column Total

Dear Experts,

Can you please teach me to rectify the error in my codes? it shows Bad formula for the column total;


[#Menu: Gateway of Tally]

Add : Item : Ledger : Display Collection : RCP LedgerColl : NOT $$IsEmpty:$$SelectedCmps

[Collection: RCP LedgerColl]

Use : Alias Collection ;; Default Collection for including Alias
Type : Ledger
Variable : LedgerName ;; Default Variable LedgerName is used
Trigger : RCP Triggered LedRpt
Report : RCP Final LedRpt
Fetch : Name




[Report: RCP Triggered LedRpt]

Title : "Select Ledger"
Form : RCP Triggered LedFrm


[Form: RCP Triggered LedFrm]

Parts : RCP Triggered LedPrt

[Part: RCP Triggered LedPrt]

Lines : RCP Triggered LedLne

[Line: RCP Triggered LedLne]

Fields : Medium Prompt, RCP Triggered LedFld
Local: Field: Medium Prompt : Set as : "Ledger :"

[Field: RCP Triggered LedFld]

Use : Name Field
Table : RCP LedgerColl
Show Table : Always
Modifies : LedgerName



[Report: RCP Final LedRpt]

Form : RCP Final LedRpt
Title : $$LocaleString:"Ledger"
Print Set : Report Title : $$LocaleString:"Ledger"
Fetch Object : Ledger : #LedgerName : Name, LedgerContact, VoucherTypeName, VoucherNumber, OpeningBalance, LedOpeningBalance, TBalOpening

Variable : SVFRomDate, SVToDate
Variable : DSPShowOpening, DSPShowClosing
Set : SVFRomDate : $$MonthStart:##SVCurrentDate
Set : SVToDate : $$MonthEnd:##SVCurrentDate




[Form: RCP Final LedRpt]

Parts : RCP TtlePeriodPrt, RCP FinLedTtlePrt
Bottom Parts : RCP ClosingBalance
Height : 100% Screen
Width : 100% Screen
Button : Print Button, ExportButton, ExplodeFlag, Change Period


[Part : RCP TtlePeriodPrt]

Line : RCP TtlePeriodLne
Space Bottom : 0.50

[Line: RCP TtlePeriodLne]

Field : Name Field
Right Field : Simple Field

Local : Field : Default : Style : Normal Bold


Local : Field : Name Field : Set as : #LedgerName
Local : Field : Name Field : Full Width: Yes

Local : Field : Name Field : Cells : 2

Local : Field : Simple Field : Set as : $$String:##SVFromDate + " to " + $$String:##SVToDate
Local : Field : Simple Field : Full Width: Yes
Local : Field : Simple Field : Align : Right

;Local : Field : Simple Field : Cells : $$Column:5 ;$$Quotient@ExcelCellColumn:4






[Part : RCP FinLedTtlePrt]

Left Part : RCP DebitTtlePrt
Right Part : RCP CreditTtlePrt


[Part : RCP DebitTtlePrt]

Line : RCP DebitTtleLne, RCP OpeningBalanceLne, RCP DebitDetlsLne
Repeat : RCP DebitDetlsLne : RCP LedVch Coll

Bottom Line : RCP FinalTotalLneDebit
Total : RCP DebitAmountFld

Scroll : Vertical
Common Border : Yes


[Line : RCP OpeningBalanceLne]

Use : RCP DebitDetlsLne

Local : Field : RCP DateFld : Set as : $$LocaleString:""

Local : Field : RCP ParticularFld : Set as : $$LocaleString:"Opening Balance"
Local : Field : RCP ParticularFld : Invisible : Not $$IsDr:$OpeningBalance:Ledger:#LedgerName ;;OR $$IsEmpty:$OpeningBalance:Ledger:#LedgerName


Local : Field : RCP VchTypeFld : Set as : $$LocaleString:""
Local : Field : RCP VchNumberFld : Set as : $$LocaleString:""

Local : Field : RCP DebitAmountFld : Set as : $OpeningBalance:Ledger:#LedgerName
Local : Field : RCP DebitAmountFld : Invisible : Not $$IsDr:$OpeningBalance:Ledger:#LedgerName

Space Top : 0.15


[Line : RCP DebitTtleLne]

Use : RCP DebitDetlsLne

Local : Field : Default : Line : 0
;;Local : Field : Default : Type : String
Local : Field : Default : Delete : Style

;Field : RCP DateFld, RCP ParticularFld
;Right Field : RCP VchTypeFld, RCP VchNumberFld, /*RCP SupplierInvNoFld,*/ RCP DebitAmountFld

Local : Field : RCP DateFld : Set as: $$LocaleString:"Date"
Local : Field : RCP DateFld : Type : String
Local : Field : RCP DateFld : Add : Style : Small

Local : Field : RCP ParticularFld : Set as: $$LocaleString:"Particulars" + $$NewLine + $$LocaleString:"(Debit)"
Local : Field : RCP ParticularFld : Add : Style : Small Bold

Local : Field : RCP VchTypeFld : Set as: $$LocaleString:"Vch" + $$NewLine + $$LocaleString:"Type"
Local : Field : RCP VchTypeFld : Add : Style : Small

Local : Field : RCP VchNumberFld : Set as: $$LocaleString:"Vch" + $$NewLine + $$LocaleString:"No."
Local : Field : RCP VchNumberFld : Add : Style : Small
Local : Field : RCP VchNumberFld : Align : Right

;Local : Field : RCP SupplierInvNoFld : Set as: $$LocaleString:"Supplier" + $$NewLine + $$LocaleString:"Invoice No."

Local : Field : RCP DebitAmountFld : Set as: $$LocaleString:"Debit" + $$NewLine + $$LocaleString:"Amount"
Local : Field : RCP DebitAmountFld : Type : String
Local : Field : RCP DebitAmountFld : Add : Style : Small Bold
Local : Field : RCP DebitAmountFld : Border: Thin Right

Border : Column Titles


[Line : RCP DebitDetlsLne]
Explode : MyInvExplode: NOT $$IsEmpty:$StockItemName
Field : RCP DateFld, RCP ParticularFld
Right Field : RCP VchTypeFld, RCP VchNumberFld, /*RCP SupplierInvNoFld,*/ RCP DebitAmountFld


[Field : RCP DateFld]

Use : Short Date Field
Set as :If Not $Parent:Ledger:$FirstContraAcc = "Sales Accounts" Then $Date Else +
If $Parent:Ledger:$LedgerEntries[2].LedgerName = "Indirect Incomes" Then $Date Else ""
Set Always : Yes
Width : 5% Screen
Alter : Voucher
Style : Small

[Field : RCP ParticularFld]

Use : Name Field
Set as : If $Parent:Ledger:$FirstContraAcc = "Sales Accounts" Then $LedgerEntries[2].LedgerName Else +
If $$IsJournal:$VoucherTypeName then $LedgerEntries[1].LedgerName Else $LedgerEntries[2].LedgerName
Set Always : Yes
FullWidth : Yes
Style : Small Bold

[Field : RCP VchTypeFld]

Use : Name Field
Set as :If Not $Parent:Ledger:$FirstContraAcc = "Sales Accounts" Then $VoucherTypeName Else +
If $Parent:Ledger:$LedgerEntries[2].LedgerName = "Indirect Incomes" Then $VoucherTypeName Else ""

Set Always : Yes
Width : 5% Screen
Style : Small Bold

[Field : RCP VchNumberFld]

Use : Name Field
Set as :If Not $Parent:Ledger:$FirstContraAcc = "Sales Accounts" Then $VoucherNumber Else +
If $Parent:Ledger:$LedgerEntries[2].LedgerName = "Indirect Incomes" Then $VoucherNumber Else ""
Width : 5% Screen
Set Always : Yes
Align : Right
Style : Small

[Field : RCP DebitAmountFld]

Use : Amount Field
Set as : if Not $$IsJournal:$VoucherTypeName AND $$IsDr:$Amount then $LedgerEntries[2].Amount Else 0
Set Always : Yes
Width : @@AmountWidth
Style : Small Bold






[Line : RCP FinalTotalLneDebit]

Use : RCP DebitDetlsLne

Local : Field : RCP DateFld : Set as : $$LocaleString:""

Local : Field : RCP ParticularFld : Set as : $$LocaleString:"Total"


Local : Field : RCP VchTypeFld : Set as : $$LocaleString:""
Local : Field : RCP VchNumberFld : Set as : $$LocaleString:""
Local : Field : RCP DebitAmountFld : Set as : $$Total:RCP DebitAmountFld
Local : Field : RCP DebitAmountFld : Border : Thin Top
Space Bottom : 0.15


[Collection : RCP LedVch Coll]

Type : Voucher
filter: LedFil
Fetch : Name, Ledger Name, Date, VoucherNumber, LedgerName, PartyLedgerName, StockItemName
Fetch : ParentFullList, DebitTotals, CreditTotals

Compute : FirstContraAcc : $$FirstContraAcc:$$IsDr$$OrigVchLedTotal:#LedgerName)
Compute : OrigVchLedDrTotal : $$OrigVchLedDrTotal:#LedgerName
Compute : OrigVchLedCrTotal : $$OrigVchLedCrTotal:#LedgerName
Compute : FirstName : $.Name[2].Name
Delete : Set as
Add : Set as : $FirstName

Sort : @@Default : $Date




;;------------------------------------------------------------------------------------------------------------------------------------------
;; Right Part ;;

[Part : RCP CreditTtlePrt]

Line : RCP CreditTtleLne, RCP CrOpeningBalanceLne, RCP CreditDetlsLne
Repeat : RCP CreditDetlsLne : RCP LedVch Coll

Bottom Line : RCP FinalTotalLneCredit
Total : RCP CreditAmountFld

Scroll : Vertical
Common Border : Yes


[Line : RCP CrOpeningBalanceLne]

Use : RCP CreditDetlsLne

Local : Field : RCP CrDateFld : Set as : $$LocaleString:""

Local : Field : RCP CrParticularFld : Set as : $$LocaleString:"Opening Balance"
Local : Field : RCP CrParticularFld : Invisible :$$IsDr:$OpeningBalance:Ledger:#LedgerName ;;OR $$IsEmpty:$OpeningBalance:Ledger:#LedgerName


Local : Field : RCP CrVchTypeFld : Set as : $$LocaleString:""
Local : Field : RCP CrVchNumberFld : Set as : $$LocaleString:""

Local : Field : RCP CreditAmountFld : Set as : $OrigVchLedCrTotal
Local : Field : RCP CreditAmountFld : Invisible : $$IsDr:$OpeningBalance:Ledger:#LedgerName

Space Top : 0.15


[Line : RCP CreditTtleLne]

Use : RCP CreditDetlsLne

Local : Field : Default : Line : 0
;;Local : Field : Default : Type : String
Local : Field : Default : Delete : Style

;Field : RCP CrDateFld, RCP CrParticularFld
;Right Field : RCP CrVchTypeFld, RCP CrVchNumberFld, /*RCP CrSupplierInvNoFld,*/ RCP CreditAmountFld

Local : Field : RCP CrDateFld : Set as: $$LocaleString:"Date"
Local : Field : RCP CrDateFld : Type : String
Local : Field : RCP CrDateFld : Add : Style : Small

Local : Field : RCP CrParticularFld : Set as: $$LocaleString:"Particulars" + $$NewLine + $$LocaleString:"(Credit)"
Local : Field : RCP CrParticularFld : Add : Style : Small Bold

Local : Field : RCP CrVchTypeFld : Set as: $$LocaleString:"Vch" + $$NewLine + $$LocaleString:"Type"
Local : Field : RCP CrVchTypeFld : Add : Style : Small

Local : Field : RCP CrVchNumberFld : Set as: $$LocaleString:"Vch" + $$NewLine + $$LocaleString:"No."
Local : Field : RCP CrVchNumberFld : Add : Style : Small
Local : Field : RCP CrVchNumberFld : Align : Right

;Local : Field : RCP CrSupplierInvNoFld : Set as: $$LocaleString:"Supplier" + $$NewLine + $$LocaleString:"Invoice No."

Local : Field : RCP CreditAmountFld : Set as: $$LocaleString:"Credit" + $$NewLine + $$LocaleString:"Amount"
Local : Field : RCP CreditAmountFld : Type : String
Local : Field : RCP CreditAmountFld : Add : Style : Small Bold
Local : Field : RCP CreditAmountFld : Border: Thin Right

Border : Column Titles


[Line : RCP CreditDetlsLne]

Field : RCP CrDateFld, RCP CrParticularFld
Right Field : RCP CrVchTypeFld, RCP CrVchNumberFld, /*RCP CrSupplierInvNoFld,*/ RCP CreditAmountFld

Space Bottom: 0.15
;;Remove if : $$IsEmpty:$$OrigVchLedCrTotal:#LedgerName




[Field : RCP CrDateFld]

Use : Short Date Field
Set as :$Date
Set Always : Yes
Width : 5% Screen
Alter : Voucher
Style : Small

[Field : RCP CrParticularFld]

Use : Name Field
Set as : $FirstContraAcc
Set Always : Yes
FullWidth : Yes
Style : Small Bold


[Field : RCP CrVchTypeFld]

Use : Name Field
Set as : $AdditionalName ;;$VoucherTypeName
Set Always : Yes
Width : 5% Screen
Style : Small Bold

[Field : RCP CrVchNumberFld]

Use : Name Field
Set as : $VoucherNumber
Width : 5% Screen
Set Always : Yes
Align : Right
Style : Small

[Field : RCP CreditAmountFld]

Use : Amount Field
Set as : $Amount
Set Always : Yes
Width : @@AmountWidth
Style : Small Bold




*************************************************************************************************



[Collection : My Voucher Rep Collection]
Type : Vouchers
Fetch : Date,Amount,VoucherTypeName ,PArtyLedgerName,VoucherNumber


[Collection:SunDebColl]
Type: Ledgers
Child of:"Sundry Debtors"
Belong To: Yes
Filter:Ledfil

[System: Formula]
LedFil: $PartyLedgerName = ##LedgerName



[Part : MyInvExplode]

Line : MyInvExplode
Repeat : MyInvExplode : AllInventoryEntries

[Line : MyInvExplode]
Field : RCP DateFld, RCP ParticularFld
Right Field : RCP VchTypeFld, RCP VchNumberFld, /*RCP SupplierInvNoFld,*/ RCP DebitAmountFld
Remove If : $$IsEmpty:$StockItemName

Local : Field : RCP DateFld : Set As : $Date
Local : Field : RCP ParticularFld: Set As : $StockItemName
Local : Field : RCP DebitAmountFld: Set As : $Amount
Local : Field : RCP VchNumberFld :””
Local : Field : RCP VchTypeFld: Set As :””









;;Findal Total Line ;;
[Line : RCP FinalTotalLneCredit]
Local : Field : Default : Line : 0
;;Local : Field : Default : Type : String

Use : RCP CreditDetlsLne

Local : Field : RCP CrDateFld : Set as : $$LocaleString:""

Local : Field : RCP CrParticularFld : Set as : $$LocaleString:"Total"


Local : Field : RCP CrVchTypeFld : Set as : $$LocaleString:""
Local : Field : RCP CrVchNumberFld : Set as : $$LocaleString:""
Local : Field : RCP CreditAmountFld : Set as : $$Total:RCP CreditAmountFld
Local : Field : RCP CreditAmountFld : Border : Thin Top
Space Bottom : 0.15


[Part : RCP ClosingBalance]
Left Parts : RCP Balance Receibales
Right Parts : RCP Balance Payable

[Part : RCP Balance Receibales]
Line : RCP ClosingBalanceCrLne
[Line : RCP ClosingBalanceCrLne]

Use : RCP DebitDetlsLne


Local : Field : RCP DateFld : Set as : $$LocaleString:""

Local : Field : RCP ParticularFld : Set as : $$LocaleString:"Closing Balance"
Local : Field : RCP ParticularFld : Invisible : Not $$IsDr:$ClosingBalance:Ledger:#LedgerName


Local : Field : RCP VchTypeFld : Set as : $$LocaleString:""
Local : Field : RCP VchNumberFld : Set as : $$LocaleString:""
Local : Field : RCP DebitAmountFld : Set as : IF Not $$IsDr:$ClosingBalance:Ledger:#LedgerName Then 0 Else +
$ClosingBalance:Ledger:#LedgerName ;@@LedClosing
Border : Totals

[Part : RCP Balance Payable]
Line : RCP ClosingBalanceDrLne
[Line : RCP ClosingBalanceDrLne]

Use : RCP CreditDetlsLne
Local : Field : Default : Line : 0
;;Local : Field : Default : Type : String

Local : Field : RCP CrDateFld : Set as : $$LocaleString:""

Local : Field : RCP CrParticularFld : Set as : $$LocaleString:"Closing Balance"
Local : Field : RCP CrParticularFld : Invisible : $$IsDr:$ClosingBalance:Ledger:#LedgerName


Local : Field : RCP CrVchTypeFld : Set as : $$LocaleString:""
Local : Field : RCP CrVchNumberFld : Set as : $$LocaleString:""
Local : Field : RCP CreditAmountFld : Set as : IF Not $$IsDr:$ClosingBalance:Ledger:#LedgerName Then +
$ClosingBalance:Ledger:#LedgerName Else 0 ;@@LedClosing
Border : Totals


[Collection: My Source Collection]
Type : Voucher
[Collection: My Summary Collection]
Source Collection : My Source Collection
Filter:Ledfil
Walk : Ledger Entries
By : MyLedgeName : $LedgerName
Aggr Compute : My Total : Sum : $Amount

 

Rectified code...
[#Menu: Gateway of Tally]

Add : Item : Ledger : Display Collection : RCP LedgerColl : NOT $$IsEmpty:$$SelectedCmps

[Collection: RCP LedgerColl]

Use : Alias Collection ;; Default Collection for including Alias
Type : Ledger
Variable : LedgerName ;; Default Variable LedgerName is used
Trigger : RCP Triggered LedRpt
Report : RCP Final LedRpt
Fetch : Name




[Report: RCP Triggered LedRpt]

Title : "Select Ledger"
Form : RCP Triggered LedFrm


[Form: RCP Triggered LedFrm]

Parts : RCP Triggered LedPrt

[Part: RCP Triggered LedPrt]

Lines : RCP Triggered LedLne

[Line: RCP Triggered LedLne]

Fields : Medium Prompt, RCP Triggered LedFld
Local: Field: Medium Prompt : Set as : "Ledger :"

[Field: RCP Triggered LedFld]

Use : Name Field
Table : RCP LedgerColl
Show Table : Always
Modifies : LedgerName



[Report: RCP Final LedRpt]

Form : RCP Final LedRpt
Title : $$LocaleString:"Ledger"
Print Set : Report Title : $$LocaleString:"Ledger"
Fetch Object : Ledger : #LedgerName : Name, LedgerContact, VoucherTypeName, VoucherNumber, OpeningBalance, LedOpeningBalance, TBalOpening

Variable : SVFRomDate, SVToDate
Variable : DSPShowOpening, DSPShowClosing
Set : SVFRomDate : $$MonthStart:##SVCurrentDate
Set : SVToDate : $$MonthEnd:##SVCurrentDate




[Form: RCP Final LedRpt]

Parts : RCP TtlePeriodPrt, RCP FinLedTtlePrt
Bottom Parts : RCP ClosingBalance
Height : 100% Screen
Width : 100% Screen
Button : Print Button, ExportButton, ExplodeFlag, Change Period


[Part : RCP TtlePeriodPrt]

Line : RCP TtlePeriodLne
Space Bottom : 0.50

[Line: RCP TtlePeriodLne]

Field : Name Field
Right Field : Simple Field

Local : Field : Default : Style : Normal Bold


Local : Field : Name Field : Set as : #LedgerName
Local : Field : Name Field : Full Width: Yes

Local : Field : Name Field : Cells : 2

Local : Field : Simple Field : Set as : $$String:##SVFromDate + " to " + $$String:##SVToDate
Local : Field : Simple Field : Full Width: Yes
Local : Field : Simple Field : Align : Right

;Local : Field : Simple Field : Cells : $$Column:5 ;$$Quotient@ExcelCellColumn:4






[Part : RCP FinLedTtlePrt]

Left Part : RCP DebitTtlePrt
Right Part : RCP CreditTtlePrt


[Part : RCP DebitTtlePrt]

Line : RCP DebitTtleLne, RCP OpeningBalanceLne, RCP DebitDetlsLne
Repeat : RCP DebitDetlsLne : RCP LedVch Coll

Bottom Line : RCP FinalTotalLneDebit
Total : RCPDebitAmountFld

Scroll : Vertical
Common Border : Yes


[Line : RCP OpeningBalanceLne]

Use : RCP DebitDetlsLne

Local : Field : RCP DateFld : Set as : $$LocaleString:""

Local : Field : RCP ParticularFld : Set as : $$LocaleString:"Opening Balance"
Local : Field : RCP ParticularFld : Invisible : Not $$IsDr:$OpeningBalance:Ledger:#LedgerName ;;OR $$IsEmpty:$OpeningBalance:Ledger:#LedgerName


Local : Field : RCP VchTypeFld : Set as : $$LocaleString:""
Local : Field : RCP VchNumberFld : Set as : $$LocaleString:""

Local : Field : RCP DebitAmountFld : Set as : $OpeningBalance:Ledger:#LedgerName
Local : Field : RCP DebitAmountFld : Invisible : Not $$IsDr:$OpeningBalance:Ledger:#LedgerName

Space Top : 0.15


[Line : RCP DebitTtleLne]

Use : RCP DebitDetlsLne

Local : Field : Default : Line : 0
;;Local : Field : Default : Type : String
Local : Field : Default : Delete : Style

;Field : RCP DateFld, RCP ParticularFld
;Right Field : RCP VchTypeFld, RCP VchNumberFld, /*RCP SupplierInvNoFld,*/ RCP DebitAmountFld

Local : Field : RCP DateFld : Set as: $$LocaleString:"Date"
Local : Field : RCP DateFld : Type : String
Local : Field : RCP DateFld : Add : Style : Small

Local : Field : RCP ParticularFld : Set as: $$LocaleString:"Particulars" + $$NewLine + $$LocaleString:"(Debit)"
Local : Field : RCP ParticularFld : Add : Style : Small Bold

Local : Field : RCP VchTypeFld : Set as: $$LocaleString:"Vch" + $$NewLine + $$LocaleString:"Type"
Local : Field : RCP VchTypeFld : Add : Style : Small

Local : Field : RCP VchNumberFld : Set as: $$LocaleString:"Vch" + $$NewLine + $$LocaleString:"No."
Local : Field : RCP VchNumberFld : Add : Style : Small
Local : Field : RCP VchNumberFld : Align : Right

;Local : Field : RCP SupplierInvNoFld : Set as: $$LocaleString:"Supplier" + $$NewLine + $$LocaleString:"Invoice No."

Local : Field : RCP DebitAmountFld : Set as: $$LocaleString:"Debit" + $$NewLine + $$LocaleString:"Amount"
Local : Field : RCP DebitAmountFld : Type : String
Local : Field : RCP DebitAmountFld : Add : Style : Small Bold
Local : Field : RCP DebitAmountFld : Border: Thin Right

Border : Column Titles


[Line : RCP DebitDetlsLne]
Explode : MyInvExplode: NOT $$IsEmpty:$StockItemName
Field : RCP DateFld, RCP ParticularFld
Right Field : RCP VchTypeFld, RCP VchNumberFld, /*RCP SupplierInvNoFld,*/ RCP DebitAmountFld


[Field : RCP DateFld]

Use : Short Date Field
Set as :If Not $Parent:Ledger:$FirstContraAcc = "Sales Accounts" Then $Date Else +
If $Parent:Ledger:$LedgerEntries[2].LedgerName = "Indirect Incomes" Then $Date Else ""
Set Always : Yes
Width : 5% Screen
Alter : Voucher
Style : Small

[Field : RCP ParticularFld]

Use : Name Field
Set as : If $Parent:Ledger:$FirstContraAcc = "Sales Accounts" Then $LedgerEntries[2].LedgerName Else +
If $$IsJournal:$VoucherTypeName then $LedgerEntries[1].LedgerName Else $LedgerEntries[2].LedgerName
Set Always : Yes
FullWidth : Yes
Style : Small Bold

[Field : RCP VchTypeFld]

Use : Name Field
Set as :If Not $Parent:Ledger:$FirstContraAcc = "Sales Accounts" Then $VoucherTypeName Else +
If $Parent:Ledger:$LedgerEntries[2].LedgerName = "Indirect Incomes" Then $VoucherTypeName Else ""

Set Always : Yes
Width : 5% Screen
Style : Small Bold

[Field : RCP VchNumberFld]

Use : Name Field
Set as :If Not $Parent:Ledger:$FirstContraAcc = "Sales Accounts" Then $VoucherNumber Else +
If $Parent:Ledger:$LedgerEntries[2].LedgerName = "Indirect Incomes" Then $VoucherNumber Else ""
Width : 5% Screen
Set Always : Yes
Align : Right
Style : Small

[Field : RCP DebitAmountFld]

Use : Amount Field
Set as : if Not $$IsJournal:$VoucherTypeName AND $$IsDr:$Amount then $LedgerEntries[2].Amount Else 0
Set Always : Yes
Width : @@AmountWidth
Style : Small Bold






[Line : RCP FinalTotalLneDebit]

Use : RCP DebitDetlsLne

Local : Field : RCP DateFld : Set as : $$LocaleString:""

Local : Field : RCP ParticularFld : Set as : $$LocaleString:"Total"


Local : Field : RCP VchTypeFld : Set as : $$LocaleString:""
Local : Field : RCP VchNumberFld : Set as : $$LocaleString:""
Local : Field : RCP DebitAmountFld : Set as : $$Total:RCPDebitAmountFld
Local : Field : RCP DebitAmountFld : Border : Thin Top
Space Bottom : 0.15


[Collection : RCP LedVch Coll]

Type : Voucher
filter: LedFil
Fetch : Name, Ledger Name, Date, VoucherNumber, LedgerName, PartyLedgerName, StockItemName
Fetch : ParentFullList, DebitTotals, CreditTotals

Compute : FirstContraAcc : $$FirstContraAcc:$$IsDr$$OrigVchLedTotal:#LedgerName)
Compute : OrigVchLedDrTotal : $$OrigVchLedDrTotal:#LedgerName
Compute : OrigVchLedCrTotal : $$OrigVchLedCrTotal:#LedgerName
Compute : FirstName : $.Name[2].Name
Delete : Set as
Add : Set as : $FirstName

Sort : @@Default : $Date




;;------------------------------------------------------------------------------------------------------------------------------------------
;; Right Part ;;

[Part : RCP CreditTtlePrt]

Line : RCP CreditTtleLne, RCP CrOpeningBalanceLne, RCP CreditDetlsLne
Repeat : RCP CreditDetlsLne : RCP LedVch Coll

Bottom Line : RCP FinalTotalLneCredit
Total : RCPCreditAmountFld

Scroll : Vertical
Common Border : Yes


[Line : RCP CrOpeningBalanceLne]

Use : RCP CreditDetlsLne

Local : Field : RCP CrDateFld : Set as : $$LocaleString:""

Local : Field : RCP CrParticularFld : Set as : $$LocaleString:"Opening Balance"
Local : Field : RCP CrParticularFld : Invisible :$$IsDr:$OpeningBalance:Ledger:#LedgerName ;;OR $$IsEmpty:$OpeningBalance:Ledger:#LedgerName


Local : Field : RCP CrVchTypeFld : Set as : $$LocaleString:""
Local : Field : RCP CrVchNumberFld : Set as : $$LocaleString:""

Local : Field : RCP CreditAmountFld : Set as : $OrigVchLedCrTotal
Local : Field : RCP CreditAmountFld : Invisible : $$IsDr:$OpeningBalance:Ledger:#LedgerName

Space Top : 0.15


[Line : RCP CreditTtleLne]

Use : RCP CreditDetlsLne

Local : Field : Default : Line : 0
;;Local : Field : Default : Type : String
Local : Field : Default : Delete : Style

;Field : RCP CrDateFld, RCP CrParticularFld
;Right Field : RCP CrVchTypeFld, RCP CrVchNumberFld, /*RCP CrSupplierInvNoFld,*/ RCP CreditAmountFld

Local : Field : RCP CrDateFld : Set as: $$LocaleString:"Date"
Local : Field : RCP CrDateFld : Type : String
Local : Field : RCP CrDateFld : Add : Style : Small

Local : Field : RCP CrParticularFld : Set as: $$LocaleString:"Particulars" + $$NewLine + $$LocaleString:"(Credit)"
Local : Field : RCP CrParticularFld : Add : Style : Small Bold

Local : Field : RCP CrVchTypeFld : Set as: $$LocaleString:"Vch" + $$NewLine + $$LocaleString:"Type"
Local : Field : RCP CrVchTypeFld : Add : Style : Small

Local : Field : RCP CrVchNumberFld : Set as: $$LocaleString:"Vch" + $$NewLine + $$LocaleString:"No."
Local : Field : RCP CrVchNumberFld : Add : Style : Small
Local : Field : RCP CrVchNumberFld : Align : Right

;Local : Field : RCP CrSupplierInvNoFld : Set as: $$LocaleString:"Supplier" + $$NewLine + $$LocaleString:"Invoice No."

Local : Field : RCP CreditAmountFld : Set as: $$LocaleString:"Credit" + $$NewLine + $$LocaleString:"Amount"
Local : Field : RCP CreditAmountFld : Type : String
Local : Field : RCP CreditAmountFld : Add : Style : Small Bold
Local : Field : RCP CreditAmountFld : Border: Thin Right

Border : Column Titles


[Line : RCP CreditDetlsLne]

Field : RCP CrDateFld, RCP CrParticularFld
Right Field : RCP CrVchTypeFld, RCP CrVchNumberFld, /*RCP CrSupplierInvNoFld,*/ RCP CreditAmountFld

Space Bottom: 0.15
;;Remove if : $$IsEmpty:$$OrigVchLedCrTotal:#LedgerName




[Field : RCP CrDateFld]

Use : Short Date Field
Set as :$Date
Set Always : Yes
Width : 5% Screen
Alter : Voucher
Style : Small

[Field : RCP CrParticularFld]

Use : Name Field
Set as : $FirstContraAcc
Set Always : Yes
FullWidth : Yes
Style : Small Bold


[Field : RCP CrVchTypeFld]

Use : Name Field
Set as : $AdditionalName ;;$VoucherTypeName
Set Always : Yes
Width : 5% Screen
Style : Small Bold

[Field : RCP CrVchNumberFld]

Use : Name Field
Set as : $VoucherNumber
Width : 5% Screen
Set Always : Yes
Align : Right
Style : Small

[Field : RCP CreditAmountFld]

Use : Amount Field
Set as : $Amount
Set Always : Yes
Width : @@AmountWidth
Style : Small Bold




*************************************************************************************************



[Collection : My Voucher Rep Collection]
Type : Vouchers
Fetch : Date,Amount,VoucherTypeName ,PArtyLedgerName,VoucherNumber


[Collection:SunDebColl]
Type: Ledgers
Child of:"Sundry Debtors"
Belong To: Yes
Filter:Ledfil

[System: Formula]
LedFil: $PartyLedgerName = ##LedgerName



[Part : MyInvExplode]

Line : MyInvExplode
Repeat : MyInvExplode : AllInventoryEntries

[Line : MyInvExplode]
Field : RCP DateFld, RCP ParticularFld
Right Field : RCP VchTypeFld, RCP VchNumberFld, /*RCP SupplierInvNoFld,*/ RCP DebitAmountFld
Remove If : $$IsEmpty:$StockItemName

Local : Field : RCP DateFld : Set As : $Date
Local : Field : RCP ParticularFld: Set As : $StockItemName
Local : Field : RCP DebitAmountFld: Set As : $Amount
Local : Field : RCP VchNumberFld :””
Local : Field : RCP VchTypeFld: Set As :””









;;Findal Total Line ;;
[Line : RCP FinalTotalLneCredit]
Local : Field : Default : Line : 0
;;Local : Field : Default : Type : String

Use : RCP CreditDetlsLne

Local : Field : RCP CrDateFld : Set as : $$LocaleString:""

Local : Field : RCP CrParticularFld : Set as : $$LocaleString:"Total"


Local : Field : RCP CrVchTypeFld : Set as : $$LocaleString:""
Local : Field : RCP CrVchNumberFld : Set as : $$LocaleString:""
Local : Field : RCP CreditAmountFld : Set as : $$Total:RCPCreditAmountFld
Local : Field : RCP CreditAmountFld : Border : Thin Top
Space Bottom : 0.15


[Part : RCP ClosingBalance]
Left Parts : RCP Balance Receibales
Right Parts : RCP Balance Payable

[Part : RCP Balance Receibales]
Line : RCP ClosingBalanceCrLne
[Line : RCP ClosingBalanceCrLne]

Use : RCP DebitDetlsLne


Local : Field : RCP DateFld : Set as : $$LocaleString:""

Local : Field : RCP ParticularFld : Set as : $$LocaleString:"Closing Balance"
Local : Field : RCP ParticularFld : Invisible : Not $$IsDr:$ClosingBalance:Ledger:#LedgerName


Local : Field : RCP VchTypeFld : Set as : $$LocaleString:""
Local : Field : RCP VchNumberFld : Set as : $$LocaleString:""
Local : Field : RCP DebitAmountFld : Set as : IF Not $$IsDr:$ClosingBalance:Ledger:#LedgerName Then 0 Else +
$ClosingBalance:Ledger:#LedgerName ;@@LedClosing
Border : Totals

[Part : RCP Balance Payable]
Line : RCP ClosingBalanceDrLne
[Line : RCP ClosingBalanceDrLne]

Use : RCP CreditDetlsLne
Local : Field : Default : Line : 0
;;Local : Field : Default : Type : String

Local : Field : RCP CrDateFld : Set as : $$LocaleString:""

Local : Field : RCP CrParticularFld : Set as : $$LocaleString:"Closing Balance"
Local : Field : RCP CrParticularFld : Invisible : $$IsDr:$ClosingBalance:Ledger:#LedgerName


Local : Field : RCP CrVchTypeFld : Set as : $$LocaleString:""
Local : Field : RCP CrVchNumberFld : Set as : $$LocaleString:""
Local : Field : RCP CreditAmountFld : Set as : IF Not $$IsDr:$ClosingBalance:Ledger:#LedgerName Then +
$ClosingBalance:Ledger:#LedgerName Else 0 ;@@LedClosing
Border : Totals


[Collection: My Source Collection]
Type : Voucher
[Collection: My Summary Collection]
Source Collection : My Source Collection
Filter:Ledfil
Walk : Ledger Entries
By : MyLedgeName : $LedgerName
Aggr Compute : My Total : Sum : $Amount

 

Tha

Thank You Sir