Hi
I am trying to calculate the historical rate that should be used for translation of accounts on historical costs.
The script for calculation of the rates is as follows:
SUB Exch_Rate_Cf
'carry forward of composite exchange rates for FA Opening Balances
IF HS.VALUE.MEMBER = "<Entity Currency>" OR HS.Value.Member = "[None]" THEN
HS.EXP "A#Op_ExcRate = (A#ClosingBal.V#<Parent Currency>.Y#Prior.P#Last.W#YTD.C2#TOTAL PPE)/ ((A#ClosingBal.V#<Entity Currency>.Y#Prior.P#Last.W#YTD.C2#TOTAL PPE)+(A#OpenBal.V#<Entity Curr Adjs>.Y#Prior.P#Last.W#YTD.C2#TOTAL PPE))"
Else
END IF
END SUB
This rate is used in script below:
SUB Op_Bal_Trans_PPE
'This script translates the FA accounts at historical rates
Dim vHIST
vHIST = HS.GetRate("A#Op_ExcRate")
HS.Trans "A#OpenBal", "", vHIST, ""
END SUB
But though no error is given, it returns a value of zero after running force translate.
Can the error in this be seen by anyone?
In case of rates - which intersections can be put on the grid to check if the calculation is yielding the right result?
Rgds
Edited by: MKD on Jan 31, 2010 1:45 PM