Hello,
I am using BPC NW 801 SP04. In below script logic code, I am tring to make currency translation but getting same value as is in USD currency.
Could anyone please help me what mistake I am doing in given below code.
*SELECT(%REPORTING_CURRENCIES%, "[ID]", "RPTCURRENCY", "[REPORTING] = 'Y'")
*SELECT(%FX_RATES%, "[ID]", "R_ACCOUNT", "[GROUP] = 'FX RATE'")
*WHEN RPTCURRENCY
*IS %REPORTING_CURRENCIES%
*REC(EXPRESSION=0)
*ENDWHEN
*LOOKUP Rates
*DIM R_ENTITY="Global"
*DIM R_ACCOUNT=EXPACCOUNT.RATETYPE
*DIM SOURCECURR:INPUTCURRENCY=COMPANY.CURRENCY
*FOR %CURR%=%REPORTING_CURRENCIES%
*DIM C_%CURR%:INPUTCURRENCY="%CURR%"
*NEXT
*ENDLOOKUP
//____________________________________________________________________
// define the translation rule
//____________________________________________________________________
*WHEN RPTCURRENCY
*IS "LC"
*WHEN ACCOUNTDIM.RATETYPE
*IS "NOTRANS"
// skip
*IS AVG,END,ENDFLOW
// translate
*FOR %CURR%=%REPORTING_CURRENCIES%
*REC(FACTOR=LOOKUP(SOURCECURR)/LOOKUP(C_%CURR%),RPTCURRENCY="USD")
*NEXT
*ELSE
// take as is
*FOR %CURR%=%REPORTING_CURRENCIES%
*REC(RPTCURRENCY="%CURR%")
*NEXT
*ENDWHEN
*ENDWHEN
Best Regards,
Deepa Palsaniya