Translate not working for Budget rate for different scenarios

Question

I have created 2 new scenarios and the custom4 exchange rates is only working for [None] but not for BUDR, BUDRPY, or CONR.
I can't see anything obvious within the translate rule that affects these new scenarios.
'     =========================
'      (25) Translation
'     =========================
Sub Translate()
     Dim strYear,aC2,aC3,aC4,aC5,aC6,opinp,curr,svt16,op,fxinp
     strYear = HS.Year.Member()
          aC2 = HS.Custom2.List("MVMT_EQ","[Base]")
          aC3 = HS.Custom2.List("MVMT_IFA","[Base]")
          'aC4 = HS.Custom2.List("MVMT_IFA_DEPN","[Base]")
          aC5 = HS.Custom2.List("MVMT_MASTER","[Base]")
          aC6 = HS.Custom2.List("MVMT_INVEST","[Base]")
          opinp = ".C2#OPBAL_INP.C4#[None]"
          curr = ".C4#[None]"
          svt16 =     ".C2#MVT1600.C4#[None]"
          op = ".C2#OPBAL.C4#[None]"
          fxinp = ".C2#FXINPUT.C4#[None]"
HS.Trans "C4#BUDR", "", "A#BUDR", ""                                             
HS.Trans "C4#BUDRPY", "", "A#BUDRPY", ""                                        
HS.Trans "C4#CONR", "", "A#CONR", ""
Both these new scenarios are setup the same as our main Actual scenario as YTD for data input.
We do expand on the translation rule for specific C2 balances for just the Actual scenario for the various balance sheet sections like Equity, Investments to apply specific exch rates for OPE and movements but this should not affect these new scenarios I would not have thought.
Grateful for any assistance.
Thanks
LG
I found another rule that could be where my problem stems from: - halfway down it refers to Budget and Forecast scenarios and my new scenarios are Cashflow and Strategy so do I have to add them here??
Sub copyC4None()
     'Debug
     If Debug = True then
          Writetxt("Debug," & HS.Entity.Member() & ",CopyC4None sub-routine started")
     End If
     'Copy all data for conversion to Budget rates
     dim strReviewStatus,strScenario,strYear,strPeriod,strEntityDefCurrency,strEntity,strView,strDataUnit,myDataUnit,lNumItems,i,lAccount,lICP,lCustom1,lCustom2
     dim lCustom3,lCustom4,dData,strCustom4,lC4Dest,strAccC4Top,sAccount
     strScenario=HS.Scenario.Member()
     strPeriod=HS.Period.Member()
     strYear=HS.Year.Member()
     strEntity=HS.Entity.Member()
     strReviewStatus = HS.ReviewStatus("")
' Copy Entity Currency to Entity Currency and Entity Curr Adj to Entity Curr Adj on the alternate translation members
          'strDataUnit = "C4#[None].V#<Entity Curr Total>"
          Select Case lcase(Left(strScenario, 6))
          Case "budget", "forecast", "budget_final"
               strDataUnit = "W#YTD.C4#[None]" ' changed by sarav on 29-05-2008 from W#Periodic to W#YTD
          Case Else
               'strDataUnit = "C4#[None].V#<Entity Curr Total>"
               strDataUnit = "C4#[None]"
          End Select
          SET MyDataUnit = HS.OpenDataUnit(strDataUnit)
lNumItems = MyDataUnit.GetNumItems
          IF strScenario <> "" THEN
For i = 0 To lNumItems - 1
     Call MyDataUnit.GetItemIDs2(i, lAccount, lICP, lCustom1, lCustom2, lCustom3, lCustom4, dData)
                         sAccount = HS.Account.MemberFromID(lAccount)
                         sAccountUD1 = Left(HS.Account.UD1(sAccount),2)
                         strAccC4Top = HS.Account.C4Top(sAccount)
                         If strAccC4Top = "TotalCustom4" And sAccountUD1 = "TB" Then
                              For Each strCustom4 In HS.Custom4.List("EXCHANGE", "[Base]")
               If strCustom4 <> "[None]" Then
               lC4Dest = HS.Custom4.IDFromMember(strCustom4)
          Call HS.SetData(0, lAccount, lICP, lCustom1, lCustom2, lCustom3, lC4Dest, dData, False)
          End If
          Next
                         End If
                    'End If
Next
          END IF
Edited by: jamdom on Aug 3, 2011 11:42 PM

Answer 1

I have worked it out - the first issue was the scenarios in the Select Case were not all stated nor were they 6 characters in length
Select Case lcase(Left(strScenario, 6))
Case "budget", "forecast", "budget_final"
now Case "Budget", "Foreca", "Cashfl", "Strate", "Actual"
The second issue was the account list in UD1 - I had to amend the member list to include these new accounts, then in the metadata tag the UD1 for these codes then amend the sAccountUD1 to include this new list
sAccount = HS.Account.MemberFromID(lAccount)
sAccountUD1 = Left(HS.Account.UD1(sAccount),2)
strAccC4Top = HS.Account.C4Top(sAccount)
If strAccC4Top = "TotalCustom4" And sAccountUD1 = "TB" Then
now If strAccC4Top = "TotalCustom4" And sAccountUD1 = "TB" or sAccountUD1 = "CF" Then
and it works!! Yeh!!
LG