//Collect(colRateCardInfoNew,{Units:0,internal:0,isExternal:0,OpexInt:0,Capex:0,RunPA:0,Remarks:"",dwcit_rowrder:""});
If(
CountRows(
Filter(
'WebITCM RateCards Infos',
'CS ID'.'CS ID' = cockpitsublevel.'CS ID'
)
) <> galddsRateCard.AllItemsCount,
UpdateContext({varPleaseWait: true});
ForAll(
galddsRateCard.AllItems As X,
If(
IsBlank(X.'RI ID'),
Patch(
'WebITCM RateCards Infos',
Defaults('WebITCM RateCards Infos'),
{
'Need Resouce': If(
"true" in X.tglddsRCIDtls.Value,
'Need Resouce (WebITCM RateCards Infos)'.Yes,
'Need Resouce (WebITCM RateCards Infos)'.No
),
Domain: cockpitsublevel.'IT Domain',
SubDomain: cockpitsublevel.'IT SubDomain',
Product: cockpitsublevel.'IT Product',
'Category Counting': X.cbddsRCIDtls1.Selected.Value,
CeItem: X.ddlddsRCIDtls5.Selected.CeItem,
'Default Resource': X. ddlddsRCIDtls1.Selected.Value,
'Target Currency': X.ddlddsRCIDtls3.Selected.dwcit_targetcurrency,
Capitalizable: If(
X. ddlddsRCIDtls2.Selected.Value = "Yes",
'Capitalizable (WebITCM RateCards Infos)'.Yes,
'Capitalizable (WebITCM RateCards Infos)'.No
),
'Unit Price Build': Coalesce(
Value(
Left(
X.lblddsRCIDtls2.Text,
Find(
"/",
X.lblddsRCIDtls2.Text
) - 1
)
),
0
),
'Unit Price Run': Coalesce(
Value(
Right(
X.lblddsRCIDtls2.Text,
Len(X.lblddsRCIDtls2.Text) - Find(
"/",
X.lblddsRCIDtls2.Text
)
)
),
0
),
UnitsD: Value(X.txtddsRCIDtls1.Text),
Internal: Value(X.lblddsRCIDtls3t.Text),
External: Value(X.lblddsRCIDtls4t.Text),
OpexInt: Value(X.ddlddsRCIDtls3.Selected.dwcit_ceopexint),
Capex: Value(X.ddlddsRCIDtls3.Selected.dwcit_cecapex),
RunPA: Value(X.ddlddsRCIDtls3.Selected.dwcit_cerunpa),
OpexInc: Value(X.ddlddsRCIDtls3.Selected.dwcit_ceopexinc),
'Cost p.a': Round(
Text(
(Value(X.lblddsRCIDtls5t.Text + X.lblddsRCIDtls6t.Text) / If(
Or(
IsBlank(Value(DataCardValue15_1.Text)),
Value(DataCardValue15_1.Text) = 0
),
1,
Value(DataCardValue15_1.Text) / 12
)) + Value(X.lblddsRCIDtls7t.Text),
"#,###0.##0"
),
2
),
OpexIntDC: Value(X.lblddsDTOpex.Text),
CapexDC: Value(X.lblddsDTCapex.Text),
RunPADC: Value(X.lblDTRunPA.Text),
CostPaDC: Value(X.lblddsCostPa.Text),
RowOrder: Value(X.txtddsOrder.Text),
'Asset Category': X.lblddsRCIDtlsAC.Text,
Remarks: X.txtddsRCIDtls2.Text,
'Owning Business Unit': LookUp(
'Business Units',
Name = comddsHeader.Country
),
'CS ID': LookUp(
'WebITCM Cockpit SubLevels',
'CS ID' = cockpitsublevel.'CS ID'
),
'CSCockpit Version Code': LookUp(
'WebITCM Cockpits',
'Cockpit Version Code' = varCockpitItem.cockpitversioncode
),
'RIProject ID': LookUp(
'WebITCM Projects',
Code = varCockpitItem.projectcode
),
'User Depending': If(
"Yes" in X.lblddsRCIDtls5t_UserDepending.Text,
'User Depending (WebITCM RateCards Infos)'.Yes,
'User Depending (WebITCM RateCards Infos)'.No
)
}
),
Patch(
'WebITCM RateCards Infos',
LookUp(
'WebITCM RateCards Infos',
'RI ID' = X.'RI ID'
),
{
'Need Resouce': If(
"true" in X.tglddsRCIDtls.Value,
'Need Resouce (WebITCM RateCards Infos)'.Yes,
'Need Resouce (WebITCM RateCards Infos)'.No
),
Domain: cockpitsublevel.'IT Domain',
SubDomain: cockpitsublevel.'IT SubDomain',
Product: cockpitsublevel.'IT Product',
'Category Counting': X.cbddsRCIDtls1.Selected.Value,
CeItem: X.lblddsRCIDtls1.Text,
'Default Resource': X.ddlddsRCIDtls1.Selected.Value,
'Target Currency': X.ddlddsRCIDtls3.Selected.dwcit_targetcurrency,
Capitalizable: If(
X.ddlddsRCIDtls2.Selected.Value = "Yes",
'Capitalizable (WebITCM RateCards Infos)'.Yes,
'Capitalizable (WebITCM RateCards Infos)'.No
),
'Unit Price Build': Coalesce(
Value(
Left(
X.lblddsRCIDtls2.Text,
Find(
"/",
X.lblddsRCIDtls2.Text
) - 1
)
),
0
),
'Unit Price Run': Coalesce(
Value(
Right(
X.lblddsRCIDtls2.Text,
Len(X.lblddsRCIDtls2.Text) - Find(
"/",
X.lblddsRCIDtls2.Text
)
)
),
0
),
'Asset Category': X.lblddsRCIDtlsAC.Text,
UnitsD: Value(X.txtddsRCIDtls1.Text),
Internal: Value(X.lblddsRCIDtls3t.Text),
External: Value(X.lblddsRCIDtls4t.Text),
OpexInt: Value(X.ddlddsRCIDtls3.Selected.dwcit_ceopexint),
Capex: Value(X.ddlddsRCIDtls3.Selected.dwcit_cecapex),
RunPA: Value(X.ddlddsRCIDtls3.Selected.dwcit_cerunpa),
OpexInc: Value(X.ddlddsRCIDtls3.Selected.dwcit_ceopexinc),
'Cost p.a': Round(
Text(
(Value(X.lblddsRCIDtls5t.Text + lblddsRCIDtls6t.Text) / If(
Or(
IsBlank(Value(DataCardValue15_1.Text)),
Value(DataCardValue15_1.Text) = 0
),
1,
Value(DataCardValue15_1.Text) / 12
)) + Value(X.lblddsRCIDtls7t.Text),
"#,###0.##0"
),
2
),
OpexIntDC: Value(X.lblddsDTOpex.Text),
CapexDC: Value(X.lblddsDTCapex.Text),
RunPADC: Value(X.lblDTRunPA.Text),
CostPaDC: Value(X.lblddsCostPa.Text),
RowOrder: Value(X.txtddsOrder.Text),
Remarks: X.txtddsRCIDtls2.Text,
'Owning Business Unit': LookUp(
'Business Units',
Name = comddsHeader.Country
),
'CS ID': LookUp(
'WebITCM Cockpit SubLevels',
'CS ID' = cockpitsublevel.'CS ID'
),
'CSCockpit Version Code': LookUp(
'WebITCM Cockpits',
'Cockpit Version Code' = varCockpitItem.cockpitversioncode
),
'RIProject ID': LookUp(
'WebITCM Projects',
Code = varCockpitItem.projectcode
),
Default: If(
"Yes" in X.Default,
'Default (WebITCM RateCards Infos)'.Yes,
'Default (WebITCM RateCards Infos)'.No
),
'User Depending': If(
"Yes" in X.lblddsRCIDtls5t_UserDepending.Text,
'User Depending (WebITCM RateCards Infos)'.Yes,
'User Depending (WebITCM RateCards Infos)'.No
)
}
)
)
);
UpdateContext({varPleaseWait: false});
Refresh('WebITCM RateCards Infos');
ClearCollect(
colRateCardInfoNew,
Filter(
'WebITCM RateCards Infos',
'CS ID'.'CS ID' = cockpitsublevel.'CS ID'
)
);
Collect(
colRateCardInfoNew,
{RowNo: galddsRateCard.AllItemsCount + 1}
),
Collect(
colRateCardInfoNew,
{RowNo: galddsRateCard.AllItemsCount + 1}
)
)