25 lines
592 B
VB.net
25 lines
592 B
VB.net
Module ModMain
|
|
|
|
Dim WithEvents obj As New EDKB08_GSF.Common()
|
|
|
|
Sub Main()
|
|
|
|
obj.Sub_Init("C:\EDOKA\Batch\EDKB08_GSF\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
|