Tally TDL Chapter 283 for Cost center in Outstanding Reports
.jpg)
[#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 : ""
टिप्पणियाँ
एक टिप्पणी भेजें