You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
25 lines
613 B
25 lines
613 B
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
|