Sample Implementation (IEFCustomRetrieve) - Integration - Update 44 - Help - Hexagon

SmartPlant Integration COM Help

Language
English
Product
Integration
Search by Category
Help
SmartPlant Foundation / SDx Version
10
Smart P&ID Version
9 (2019)
Smart Engineering Manager Version
10 (2019)

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