Solved
Need help on Error in BR- Object reference not set an instance of an object
Hi Community members,
Need your help on the below business rule, as i am unable to identify the errors.
The rule wrote for to get the value from combobox value and run Data managment sequence to clear the data.
Namespace OneStream.BusinessRule.Finance.BOYD_Clear_Data_2
Public Class MainClass
Public Function Main(ByVal si As SessionInfo, ByVal globals As BRGlobals, ByVal api As FinanceRulesApi, ByVal args As FinanceRulesArgs) As Object
Try
Select Case api.FunctionType
Case Is = FinanceFunctionType.CustomCalculate
If args.CustomCalculateArgs.FunctionName.XFEqualsIgnoreCase("ClearSeeding") Then
'{Clear_Seeding}{Param=[|!ParamWFProfileEntities!|],Time=T#2023.BASE}
'Dim objList = api.Workflow.GetWFProfileEntities()
Dim wfClusterPk As WorkflowUnitClusterPk = si.WorkflowClusterPk
Dim intScenarioId As Integer = wfClusterPk.ScenarioKey
Dim myWorkflowUnitPk As WorkflowUnitPk = BRApi.Workflow.General.GetWorkflowUnitPk(si)
Dim intYear As Integer = BRApi.Finance.Time.GetYearFromId(si, myWorkflowUnitPk.TimeKey)
'
Dim params As New Dictionary(Of String, String)
'Dim cbxMonth As Integer=BRApi.Dashboards.Parameters.GetLiteralParameterValue(si, False, "BOYD_Time")
Dim intNoInput As Integer = api.Scenario.GetWorkflowNumNoInputTimePeriods(intScenarioId)
'Dim intNoInput As Integer = BRapi.Dashboards.Parameters.GetLiteralParameterValue(si,False,"BOYD_Time")
Dim strButtonName As String = args.MemberListArgs.NameValuePairs("BOYD_Time")
Dim Selectmonth As String = BRApi.Dashboards.Parameters.GetLiteralParameterValue(si, False, "ParamBOYD_Clear_Time")
params("Time") = SelectMonth
'params("Time") = intNoInput
params("Param") = args.CustomCalculateArgs.NameValuePairs("ParamWFProfileEntities")
'brapi.ErrorLog.LogMessage(si, "time " & args.CustomCalculateArgs.NameValuePairs("ParamWFProfileEntities"))
BRApi.Utilities.ExecuteDataMgmtSequence(si, "BOYD_Clear_Data", params)
End If
End Select