22 lines
607 B
VB.net
22 lines
607 B
VB.net
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
|