Tally TDL Chapter 283 for Cost center in Outstanding Reports

 

[#Line: BILLCol1]

Add: Option: RAJIVT1: Yes

[!Line: RAJIVT1]

Add : Right Field : F00xBillCost

Local: Field: F00xBillCost : Set as:"Cost"

[#Line: BILLCol2]

Add: Option: RAJIVT2: Yes

[!Line: RAJIVT2]

Add : Right Field : F00xBillCost

Local: Field: F00xBillCost : Set as:"Center"

[#Line: BILL Detail]

Add: Option: RAJIV: Yes

[!Line: RAJIV]

Add :Right Field: F00xBillCost

[Field: F00xBillCost]

Use: Name Field

Width: 10

Skip: YES

Align: Center

Color: red

Set as: if $$IsEmpty:$ObjCostNameI Then $ObjCostNameL Else $ObjCostNameI

Border: Thin Left

Style: Normal

[Function: Func_GetCostCenterName]

Parameter: pMasterID : String

Parameter: pIsItemWise : Logical

Fetch Object: Voucher : ##pMasterID : COSTCENTRENAME;LedgerEntries, Category Allocations

Variable: vCCName : String : "Empty"

Return: String

001 : SET OBJECT : (Voucher , ##pMasterID).

002 : If: ##pIsItemWise

010 : WALK COLLECTION : LedgerEntries

020 : Walk Collection : InventoryEntries

030 : Walk Collection : AccountingAllocations

040 : Walk Collection : Category Allocations

050 : Walk Collection : CostCentreAllocations

100 : Set: vCCName : $Name

110 : End Walk ; Cost Centre Allocations

120 : End Walk ; Category Allocations

130 : End Walk ; AccountingAllocations

140 : End Walk ; InventoryEntries

150 : End Walk ; LedgerEntries

200 : Else

210 : WALK COLLECTION : LedgerEntries

240 : Walk Collection : Category Allocations

250 : Walk Collection : CostCentreAllocations

300 : Set: vCCName : $Name

310 : End Walk ; Cost Centre Allocations

320 : End Walk ; Category Allocations

350 : End Walk ; LedgerEntries

400 : End if

900 : Return: ##vCCName

[#Object: Bill]

ObjMstID : $$CollectionField:$MasterID:First:LedgerEntries

ObjCostNameL : $$Func_GetCostCenterName:$ObjMSTID:No

ObjCostNameI : $$Func_GetCostCenterName:$ObjMSTID:YES

[#Collection: Ledger Bills]

Fetch: ObjMSTID,ObjCostNameL,ObjCostNameI

[#Collection: Group LedgerBills]

Fetch: ObjMSTID,ObjCostNameL,ObjCostNameI

[#Collection: Company Receivables]

Fetch: ObjMSTID,ObjCostNameL,ObjCostNameI

[#Collection: Company Payables]

Fetch: ObjMSTID,ObjCostNameL,ObjCostNameI

;;============================================================================================================

;; Add In Range Filter ( Alt + F12 )

;;============================================================================================================

[#Collection: MethodTable]

Add: Option: O00xAddInMethod : YES

[!Collection: O00xAddInMethod]

Add: Object: O00xCostCenterL,O00xCostCenterI

[Object: O00xCostCenterL]

User Method Name : $$LocaleString:"CostCenter_1"

Method Name : "ObjCostNameL"

Collection Source : ""

Method Type : "String"

Secondary Object : ""

[Object: O00xCostCenterI]

User Method Name : $$LocaleString:"CostCenter_2"

Method Name : "ObjCostNameI"

Collection Source : ""

Method Type : "String"

Secondary Object : ""