Dim ScenarioMth As String = api.Pov.Scenario.Name
Dim gbTimeName As String = BRApi.Workflow.General.GetGlobalTime(si)
Dim objTimeMemberSubComponents As TimeMemberSubComponents = BRApi.Finance.Time.GetSubComponentsFromName(si, gbTimeName)
Dim gbMonth As String = objTimeMemberSubComponents.Month.ToString
'Dim gbMonthCur As Integer = gbMonth
If gbMonth.Length < 2 Then
gbMonth = "0" & gbMonth
End If
Select Case gbMonth
Case 11
'January
If ScenarioMth = "FCST12" Then
Return api.Data.GetDataCell("U8#None")
' Return "01"
Else
Return api.Data.GetDataCell("S#FCST01:U8#None")
' Return "02"
End If
Return "03"
End Select
Return gbMonth