FlowFact - Entwicklungstools

zurück

Sub - FlowFact_SetApplication
Schnittstelle über FlowFact-Objektmodell initialisieren

Voraussetzung: FlowFact muß gestartet sein und ein Benutzer ist angemeldet.
  Sub FlowFact_SetApplication(ByVal oFF)  
 


oFF: Zugriffsvariable auf das FlowFact-Objektmodell vom Typ GetObject("", "FlowFact.Application")


Public Sub FlowFact_SetApplication(ByVal oFF)
    Dim blnLogin As Boolean

    If (oFF Is Nothing) = True Then
        MsgBox "FlowFact.Application-Objekt ist nicht vorhanden."
        Exit Sub
    End If

    On Error Resume Next
    blnLogin = oFF.IsLoggedIn()
    If Err <> 0 Then
        MsgBox "FlowFact_SetApplication wurde mit einem ungültigen FlowFact-Objekt aufgerufen."
        Exit Sub
    End If
    On Error GoTo 0

    If blnLogin = False Then
        MsgBox "Sie müssen in FlowFact angemeldet sein."
        Exit Sub
    End If


    FlowFact_Done

    Set m_oFF = oFF
    Set m_oUtil = m_oFF.Util

    On Error Resume Next
    Set m_oBlob = m_oFF.Blob
    Set m_oDbIni = m_oFF.DbIni
    On Error GoTo 0

    m_oFlowFactFolder = m_oFF.Folder

    m_oTools.Init Me
    m_oBase.Init Me, m_oTools
    m_oFileSystem.Init

    m_InitType = INITTYPE_APPLICATION
End Sub