Module ModMain

    Dim WithEvents obj As New EDKB08_GSF.Common()

    Sub Main()

        obj.Sub_Init("E:\Software-Projekte\EDOKA\batch\EDKB08\EDKB08\bin\gsf\", "xml")
        obj.Start_Checking()
        obj.Sub_End()

    End Sub

    Sub StartVerarbeitung(ByVal StartVerz As String) Handles obj.StartVerarbeitung
        MsgBox("Verarbeitung kann gestartet werden. " + StartVerz)

        obj.Set_DokStatus("20051121-0000000001", False)

    End Sub

    Sub LogIng(ByVal LogEintrag As String, ByVal iTyp As Integer) Handles obj.LogToBMS
        'MsgBox("Log Eintrag :" + LogEintrag)
    End Sub

End Module