|CVEntityDesc|
XFBR(REP_ParamHelper, GetMbrNameOrDesc, Dim=Time, Value=|!SelectTime_FSK!|)
|CVScenario|, |CVView| - |CVUD2|
CURRENCY: EUR K
>>>>>>>>
Public Class MainClass
Public Function Main(ByVal si As SessionInfo, ByVal globals As BRGlobals, ByVal api As Object, ByVal args As DashboardStringFunctionArgs) As Object
Try
If (args.FunctionName.XFEqualsIgnoreCase("GetMbrNameOrDesc")) Then
'XFBR(REP_ParamHelper, GetMbrNameOrDesc, Dim=Time, Value=|WFTime|)
Dim strDim As String = args.NameValuePairs.XFGetValue("Dim")
Dim strValue As String = args.NameValuePairs.XFGetValue("Value")
If String.IsNullOrEmpty(strDim) OrElse String.IsNullOrEmpty(strValue) Then Return String.Empty
Dim dimMbr As [Dim] = BRApi.Finance.Dim.GetDim(si, strDim)
Dim mbrValue As Member = BRApi.Finance.Members.GetMember(si, dimMbr.DimPk.DimTypeId, strValue)
Dim strResult As String = mbrValue.NameOrDescription
Return strResult
End If
Return Nothing
Catch ex As Exception
Throw ErrorHandler.LogWrite(si, New XFException(si, ex))
End Try
End Function
End Class