Option Explicit
Implements EFCustomProcess.IEFCustomRetrieve
Dim EventHandlerObj As EFCustomProcess.IEFCustomRetrieveEventHandler
Private m_oMessageIContainer As IContainer
Private m_oToolParms As IEFToolParameters
Private m_spfusername As String
Private m_spfuserpwd As String
Private m_spfurl As String
Private m_sessionID As String
Private Const TCD_L_ERROR_NUMBER_BASE As Long = vbObjectError + 5023&
Private Const TCD_L_ERROR_GENERAL As Long = TCD_L_ERROR_NUMBER_BASE + 1
Private Const S_THIS_FILE As String = "CustomRetrieve"
Public Property Let IEFCustomRetrieve_SPFUserID(ByVal RHS As String)
m_spfusername = RHS
End Property
Public Property Let IEFCustomRetrieve_SPFUserPassword(ByVal RHS As String)
m_spfuserpwd = RHS
End Property
Public Property Let IEFCustomRetrieve_SPFUrl(ByVal RHS As String)
m_spfurl = RHS
End Property
Public Property Let IEFCustomRetrieve_SPFSessionID(ByVal RHS As String)
m_sessionID = RHS
End Property
Public Property Set IEFCustomRetrieve_MessageIContainer(ByVal RHS As IContainer)
Set m_oMessageIContainer = RHS
End Property
Public Property Set IEFCustomRetrieve_ToolParameters(ByVal RHS As IEFToolParameters)
Set m_oToolParms = RHS
End Property
Public Sub IEFCustomRetrieve_SetEventHandlerObj(ByVal lobjEventHandler As IEFCustomRetrieveEventHandler)
Set EventHandlerObj = lobjEventHandler
End Sub
Public Sub IEFCustomRetrieve_ListOfProgressSteps(ByRef parrListOfProgressSteps() As String)
ReDim parrListOfProgressSteps(0) As String
parrListOfProgressSteps(0) = "Adding new object (Vessel1)"
End Sub
Public Sub IEFCustomRetrieve_ProcessRetrieveData(ByRef pDocObject As IObject, _
ByRef pblnValidateAfterCustomProcess As Boolean, _
ByRef pDocContainer As IContainer, _
ByRef pMetaContainer As IContainer, _
ByRef pTSContainer As IContainer, _
Optional ByRef pToolMapContainer As IContainer)
EventHandlerObj.StepProgress ("Adding new object (Vessel)")
pblnValidateAfterCustomProcess = True
On Error GoTo llblErrorHandler
Call AddNewObject(pDocObject, pDocContainer, pMetaContainer, pToolMapContainer)
GoTo llblExitProcedure
llblErrorHandler:
Call ECU_HandleErrorProcessRetrieveData("IEFCustomRetrieve_ProcessRetrieveData", m_oMessageIContainer, Err.Source, Err.Description, Err.Number)
llblExitProcedure:
End Sub