Hi Experts,
Im new to calc script , I have one requirement that I need to convert VB script into Calc script which I can use in calc Manager. If anyone have any idea please provide suggestion.
Sub ICPAdj()
IF HS.Entity.IsBase("", "") Then
If HS.Value.Member = "<Entity Currency>" or .Value.Member = "<Entity Curr Adjs>" Then
AcctsFS = HS.Account.List("Statement_of_Financial_Position","[Base]")
For Each Acc in AcctsFS
If HS.Account.IsICP("") Then
'Do Nothing
Else
HS.Clear "A#" & Acc & ".I#[ICP None].MV#IC_BAL"
HS.Exp "A#" & Acc & ".I#[ICP None].MV#IC_BAL = -1* A#" & Acc & ".I#[ICP Entities].MV#IC_BAL"
End If
End Sub
Thanks,
RK