Custom Translation for FX Scenario - Help

Hi Henning,

Thanks for the reply. This is just what i was trying to achive. But i couldn't make it work. Tried with a FinanceFunctionType.FxRate and also FinanceFunctionType.Translate but couldnt get the values translated to the prior year rate.

I finally created two exchange rate tables PYAverageRate amd PYClosingRate and created a Extensibility Rule that copies Rates from AverageRate and ClosingRate Tables to the new ones switching back one year.

		Public Function Main(ByVal si As SessionInfo, ByVal globals As BRGlobals, ByVal api As Object, ByVal args As ExtenderArgs) As Object
			Try

				Me.SetPriorYearRates(si, "PriorYearAverageRate", "AverageRate")
				Me.SetPriorYearRates(si, "PriorYearClosingRate", "ClosingRate")

				Return Nothing
			Catch ex As Exception
				Throw ErrorHandler.LogWrite(si, New XFException(si, ex))
			End Try
		End Function
		
#Region "PriorYearRates"
		Public Function SetPriorYearRates(ByVal si As SessionInfo, ByVal targetRateTable As String, ByVal sourceRateTable As String)
			Try
				
				'****************************************************************************************************
				'Define the target Rate Type:
				Dim fxRateTypeTarget As String = targetRateTable
				'Define the source Rate Type:
				Dim fxRateTypeSource As String = sourceRateTable
				
				'Define the target period year:
				Dim myWorkflowUnitPk As WorkflowUnitPk = BRApi.Workflow.General.GetWorkflowUnitPk(si)
				Dim workflowTimeTarget As String = BRApi.Finance.Time.GetNameFromId(si, myWorkflowUnitPk.TimeKey).Substring(0,4)
				'Define the source period year:
				Dim workflowTimeSource As String = BRApi.Finance.Time.GetNameFromId(si, BRApi.Finance.Time.AddYears(si, myWorkflowUnitPk.TimeKey, -1)).Substring(0,4)
				'BRApi.ErrorLog.LogMessage(si, "Target Time = " & workflowTimeTarget & ", Souce Time = " & workflowTimeSource)
				
				'Define the list of periods:
				Dim periods As String() = {"M1","M2","M3","M4","M5","M6","M7","M8","M9","M10","M11","M12"}
				
				'Define the list of source currencies:
				Dim currencyStr As String = BRApi.Utilities.GetApplicationProperties(si).CurrencyFilter
				Dim sourceCurrencies As List(Of String) = StringHelper.SplitString(currencyStr,",",StageConstants.ParserDefaults.DefaultQuoteCharacter)

				'Loop periods:
				For Each period As String In periods
					'Loop source currencies:
					For Each sourceCurrency As String In sourceCurrencies
						
						'Define destination currencies:
						Dim destinationCurrency As String = Currency.USD.Name
						
						
						'Get source's rate type, time period, source and destination currencies:
						Dim objFxRatePkUsingNamesSource As New FxRatePkUsingNames(fxRateTypeSource,workflowTimeSource & period,sourceCurrency,destinationCurrency)	
						Dim objFXRateUsingNamesSource As FXRateUsingNames = BRApi.Finance.Data.GetStoredFxRate(si, objFxRatePkUsingNamesSource)
						
						If objFXRateUsingNamesSource.Amount > 0 Then
						
							'Get target's rate type, time period, source and destination currencies:
							Dim objFxRatePkUsingNamesTarget As New FxRatePkUsingNames(fxRateTypeTarget,workflowTimeTarget & period,sourceCurrency,destinationCurrency)
						
							'Define the FX rate value (set HasData to True and IsInvalid to False in order to submit the FX rate successfully):
							Dim objFxRateUsingNamesTarget As New FxRateUsingNames(objFxRatePkUsingNamesTarget, objFXRateUsingNamesSource.Amount, True, False)
						
							'Submit the rate if exists:
							brapi.Finance.Data.SetFxRate(si,objFxRateUsingNamesTarget)
						End If
						
					Next
				Next

				'****************************************************************************************************
				
				Return Nothing
				Catch ex As Exception
				Throw ErrorHandler.LogWrite(si, New XFException(si, ex))
#End Region

			End Try
		End Function