Extender Rule:
Imports System
Imports System.Data
Imports System.Data.Common
Imports System.IO
Imports System.Collections.Generic
Imports System.Globalization
Imports System.Linq
Imports Microsoft.VisualBasic
Imports System.Windows.Forms
Imports System.Net.Mail
Imports OneStream.Shared.Common
Imports OneStream.Shared.Wcf
Imports OneStream.Shared.Engine
Imports OneStream.Shared.Database
Imports OneStream.Stage.Engine
Imports OneStream.Stage.Database
Imports OneStream.Finance.Engine
Imports OneStream.Finance.Database
Namespace OneStream.BusinessRule.Extender.RP_BDGT_CURRENT_HISTORY_LOAD
Public Class MainClass
Public Function Main(ByVal si As SessionInfo, ByVal globals As BRGlobals, ByVal api As Object, ByVal args As ExtenderArgs) As Object
Try
Select Case args.FunctionType
Case Is = ExtenderFunctionType.Unknown, ExtenderFunctionType.ExecuteDataMgmtBusinessRuleStep
'Set global/workflow info
Dim swfName As String = "Revenue Planning"
Dim swfSub As String = ";RP_BDGT_CURRENT_HISTORY"
Dim swfProfile As String = swfName & swfSub
Dim swfScenario As String = "Budget"
'Set Parameters
Dim OSStartPeriod As String = args.NameValuePairs.XFGetValue("StartPeriod")
Dim OSEndPeriod As String = args.NameValuePairs.XFGetValue("EndPeriod")
'Define the Start and End Periods
Dim StartPeriodList As List (Of String) = StringHelper.SplitString(OSStartPeriod,"M")
Dim StartYear As Integer = StartPeriodList(0)
Dim StartMonth As Integer = StartPeriodList(1)
Dim EndPeriodList As List (Of String) = StringHelper.SplitString(OSEndPeriod,"M")
Dim EndYear As Integer = EndPeriodList(0)
Dim EndMonth As Integer = EndPeriodList(1)
Dim CalcStartPeriod As Integer = (StartYear * 100) + StartMonth
Dim CalcEndPeriod As Integer = (EndYear * 100) + EndMonth
Dim OSExecPeriod As String = OSStartPeriod
Dim CalcExecPeriod As Integer = CalcStartPeriod
While CalcExecPeriod <= CalcEndPeriod
'Set file name variables
Dim loadMethod As String = "R"
Dim strFilePath As String = "\\XXXX.corp.u-store-it.com\OneStreamShare\FileShare\Applications\XXXXX\Batch\Harvest\"
Dim strSuffix As String = "TriggerAuto-"
'Set Processing Switches
Dim valTransform As Boolean = True
Dim valIntersect As Boolean = True
Dim loadCube As Boolean = True
Dim processCube As Boolean = False
Dim confirm As Boolean = False
Dim autoCertify As Boolean = False
'----------------------------------------------------
'Create trigger file
Dim strFileName As String = strSuffix & swfProfile & "-" & swfScenario & "-" & OSExecPeriod & "-" & loadMethod
Dim fileTrigger1 As New StreamWriter(strFilePath & strFileName & ".txt")
fileTrigger1.Close()
'----------------------------------------------------
'Execute Data Load
Dim batchInfo As WorkflowBatchFileCollection = BRAPi.Utilities.ExecuteFileHarvestBatch(si, swfScenario, "2020M1" , valTransform, valIntersect, loadCube, processCube, confirm, autoCertify, True)
Dim fileTrigger2 As String = strFilePath & strFileName & ".txt"
While File.Exists(fileTrigger2)
System.Threading.Thread.Sleep(10000)
End While
'----------------------------------------------------
'Move to Next Period
Dim ExecPeriodList As List (Of String) = StringHelper.SplitString(OSExecPeriod,"M")
Dim ExecYear As Integer = ExecPeriodList(0)
Dim ExecMonth As Integer = ExecPeriodList(1)
If ExecMonth = 12 Then
ExecMonth = 1
ExecYear = ExecYear +1
Else
ExecMonth = ExecMonth +1
ExecYear = ExecYear
End If
OSExecPeriod = ExecYear & "M" & ExecMonth
Dim ExecPeriodList1 As List (Of String) = StringHelper.SplitString(OSExecPeriod,"M")
Dim ExecYear1 As Integer = ExecPeriodList1(0)
Dim ExecMonth1 As Integer = ExecPeriodList1(1)
CalcExecPeriod = (ExecYear1 * 100) + ExecMonth1
'End If
End While
End Select
Return Nothing
Catch ex As Exception
Throw ErrorHandler.LogWrite(si, New XFException(si, ex))
End Try
End Function
End Class
End Namespace
