Option Explicit
Implements EFCustomProcess.IEFCustomPublish
Dim ObjEFSrvMgrLocal As IEFCustomPublishEventHandler
Private m_oMessageIContainer As IContainer
Private m_oToolParms As IEFToolParameters
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 = "CustomPublish"
Public Property Set IEFCustomPublish_MessageIContainer(ByVal RHS As IContainer)
Set m_oMessageIContainer = RHS
End Property
Public Property Set IEFCustomPublish_ToolParameters(ByVal RHS As IEFToolParameters)
Set m_oToolParms = RHS
End Property
Public Sub IEFCustomPublish_SetEventHandlerObj(ByVal lobjEventHandler As IEFCustomPublishEventHandler)
Set ObjEFSrvMgrLocal = lobjEventHandler
End Sub
Public Sub IEFCustomPublish_ListOfProgressSteps(ByRef parrListOfProgressSteps()As String)
ReDim parrListOfProgressSteps(0) As String
parrListOfProgressSteps(0) = "Updating Pump(P-008)..."
End Sub
Public Sub IEFCustomPublish_ProcessPublishData(ByRef pDocObject As IObject, _
ByRef pDocContainer As IContainer, _
ByRef pMetaContainer As IContainer, _
Optional ByRef pToolMapContainer As IContainer)
On Error GoTo llblErrorHandler
ObjEFSrvMgrLocal.StepProgressBegin ("Adding new Pump(P-008)...")
Call AddNewObject(pDocObject, pDocContainer, pMetaContainer, pToolMapContainer)
ObjEFSrvMgrLocal.StepProgressEnd ("Adding new object (Vessel)...")
GoTo llblExitProcedure
llblErrorHandler:
Call ECU_HandleErrorProcessPublishDta("IEFCustomPublish_ProcessPublishData", m_oMessageIContainer, Err.Source, Err.Description, Err.Number)
llblExitProcedure:
End Sub