Help - Requesting to Get Sub-Total for the custom made column

Enclosing the screen view for the ledger report : Requesting to help to get the total for the custom made colum which is the basic inventory value before tax (after deducting all the discounts). The coding is as below :
;;==============================================
[#Collection: Vouchers of Group]
Fetch: PartyLedgerName

[Variable: SVInvtValue]
Type: Logical
Volatile: Yes
Default: NO

[System: Variables]
SVInvtValue: NO

[#Report: Group Ledger Vouchers]
Variable: SVInvtValue
Set: SVInvtValue : Yes

[#Report: GRPVCH Configure]
Local: Part : DSP BasicConfig : Add : Line : DSP ShowInvtValue

[#Report: LEDVCH Configure]
Local: Part : DSP BasicConfig : Add : Line : DSP ShowInvtValue

[Line: DSP ShowInvtValue]
Field: Medium Prompt, DSP ShowInvtValue
Local: Field: Medium Prompt : Set as : $$LocaleString:"Show Goods Value ?"
;Invisible: NOT ##IsLedgerReport OR ##IsBillWiseReport OR ##ColumnarDayBook OR ##BankRecMode OR ##TCSForm27DRecMode Or ##IsMultiLedgerPrint

[Field: DSP ShowInvtValue]
Use: Logical Field
Set as: ##SVInvtValue
Modifies: SVInvtValue

[#Report: Ledger Vouchers]
Variable: SVInvtValue
Set: SVInvtValue : YES

[#Line: DSP VchDetail]
Add: Fields : VIT Vch No ;, VIT Invt Value
Add: Right Fields : Before : DSP VchType : VIT Invt Party,VIT Invt Value

[Field: VIT Vch No]
Use: Name Field
Set As: $VoucherNumber
Invisible: Yes

[Collection: MyVch]
Type: Vouchers : Voucher Type
Child Of: $$VchTypeSales
Belongs To: Yes
Filter: MyVchFil
Fetch: PartyLedgerName

[Collection: MyVchDtl]
Source Collection : MyVch
Walk: Inventory Entries
Fetch: StockItemName,Amount,udfDisAmt,udfQtyDisAmt,udfCashDisAmt

[System: Formula]
MyVchFil: $VoucherNumber = #VITVchNo And $VoucherTypeName = #DSPVchTypeName
MyVchDtlFil: $StockItemName Not Containing "Discount"
MyVchDtlDisFil : $StockItemName Containing "Discount"
MyDisCnt: $$FilterCount:MyVchDtl:MyVchDtlDisFil

[Field: VIT Invt Party]
Use: Name Field
Set As: $PartyLedgerName
Style: Small
Invisible: Not ##SVInvtValue

[Field: VIT Invt Value]
Use: Amount Field
Set As: $$InvBasicValue
Style: Small
Invisible: Not ##SVInvtValue
Set Always: Yes

[Function: InvBasicValue]
Returns: Amount
Variable: V_InvBasic : Amount
Variable: V_DisTotal : Number
Variable: V_DisAmt : Amount
Variable: V_DisQty : Amount
Variable: V_DisCash : Amount
01: SET : V_InvBasic : $$FilterAmtTotal:MyVchDtl:MyVchDtlFil:$Amount
02: SET : V_DisAmt : if @@MyDisCnt > 0 then $$FilterValue:$udfDisAmt:MyVchDtl:First:MyVchDtlDisFil else 0
03: SET : V_DisQty : if @@MyDisCnt > 0 then $$FilterValue:$udfQtyDisAmt:MyVchDtl:First:MyVchDtlDisFil else 0
04: SET : V_DisCash : if @@MyDisCnt > 0 then $$FilterValue:$udfCashDisAmt:MyVchDtl:First:MyVchDtlDisFil else 0
05: SET : V_DisTotal : ##V_DisAmt + ##V_DisQty + ##V_DisCash
06: Return : ##V_InvBasic - ##V_DisTotal
;;============================================================

 

Dear Sk,

Please check attached code.

 

Thanks a lot. I have included your coding, it's working well. Thanks a Lot.