Initial commit

EDKB08/_Archiv/20160327/EDKB08_GSF_Tester/ModMain.vb

@@ -0,0 +1,24 @@
+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