Initial commit

EDKB19/Batch/EDKB18/EDKB18/clsJournale.vb

@@ -0,0 +1,21 @@
+Public Class clsJournal
+    Public RunJournal As String = ""
+    Public UebernahmeJournal As String = ""
+
+
+    Public Sub Insert_RunJOurnal(ByVal s As String)
+        If RunJournal <> "" Then RunJournal = RunJournal + vbCrLf
+        RunJournal = RunJournal + Now.ToString + " " + s
+    End Sub
+
+    Public Sub Insert_Uebernahmejournal(s As String)
+        If UebernahmeJournal <> "" Then UebernahmeJournal = UebernahmeJournal + vbCrLf
+        UebernahmeJournal = UebernahmeJournal + s
+    End Sub
+
+    Public Sub Init()
+        Me.RunJournal = ""
+        Me.UebernahmeJournal = ""
+    End Sub
+
+End Class