Initial commit

EDKB07WS/Backup1/Globals.vb

@@ -0,0 +1,117 @@
+Imports System.Reflection
+Imports System.IO
+Imports System.Xml
+
+Module Globals
+    Public Office2010 As Boolean = True
+    Public sConnectionString As String
+    Public DruckjobParameter As String
+    Public DruckjobParameterAVQ As String
+    Public ColdOutputFolder As String
+    Public Deckblatt As String
+    Public Schlussblatt As String
+    Public TempPath As String
+    Public OutputFolder As String
+    Public conn_journale As New edokadb.clsConnectionProvider()
+    Public m_journalid As Long
+    Public sConnectionString_journale As String
+    Public UseTestMode As Boolean
+    Public TestParamFilePath As String
+    Public ParamFileOutputPath As String
+    Public CMDFilePath As String
+    Public CMDFile1Content As String
+    Public CMDFile2Content As String
+    Public DokPerPackage As Integer
+
+    Public Vorlagenverzeichnis As String
+    Public Workverzeichnis As String
+    Public psdir As String
+    Public PDFdir As String
+    Public PSPrinter As String
+
+    Public conn_edoka As New edokadb.clsConnectionProvider()
+    Public ofile As System.IO.File
+    Public oread As System.IO.StreamReader
+
+    '20071002 RGL: Parameter Workaround
+    Public ProcessToKill As String
+    Public ProcessIdleTime As Integer
+    Public OwnName As String
+    Public OtherBatch1 As String
+    Public OtherBatch2 As String
+    Public OtherBatch3 As String
+    Public NameDistiller As String
+    Public PathDistiller As String
+    Public OpenModeDistiller As String
+
+    'SHU 20120104
+    Public Beilage_1_ab As String
+    Public Beilage_2_ab As String
+    Public Beilage_3_ab As String
+    Public Beilage_1 As String
+    Public Beilage_2 As String
+    Public Beilage_3 As String
+
+
+    ''RGL 29.1.08 Zusätzlicher Textlog für jeden einzelnen Schritt
+    'Public LogFileName As String
+
+    'Public Function ApplicationPath() As String
+    '    'Return Path.GetDirectoryName([Assembly].GetExecutingAssembly().Location)
+    '    Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
+    'End Function
+
+    Dim EVLog As New EventLog("Log_EDKB07")
+
+    '''<summary>Eintrag ins EventLog von EDKB07 schreiben</summary>
+    '''<param name="message"></param>
+    '''<param name="eventmessage"></param>
+    Public Sub PrintLog(ByVal message As String, Optional ByVal eventmessage As EventLogEntryType = EventLogEntryType.Information)
+        If Not EventLog.SourceExists("EDKB07") Then
+            EventLog.CreateEventSource("EDKB07", "EDKB07 Log")
+        End If
+        EVLog.Source = "EDKB07 Log"
+        EventLog.WriteEntry(EVLog.Source, message, eventmessage)
+    End Sub
+
+    ''RGL 29.1.08 Zusätzlicher Textlog für jeden einzelnen Schritt
+    'Public Sub WriteTxtLog(ByVal msg As String)
+    '    MsgBox("hallo")
+    '    Try
+    '        Dim writer As System.IO.StreamWriter
+    '        Dim filetimestamp As String = Format(Now, "yyyyMMddHHmmss")
+    '        writer = IO.File.AppendText(TempPath & "\" & LogFileName & ".log")
+    '        writer.WriteLine(filetimestamp + ": " & msg)
+    '        writer.Close()
+    '    Catch ex As Exception
+    '        'Ganz übel wer hier landet, kann auch nicht geloggt werden
+    '    End Try
+    'End Sub
+
+#Region "BMS"
+
+    Public m_log As bms.Logging
+
+#End Region
+
+#Region " Cold Mehrfachdruck"
+
+    Public Global_md_Error As Integer = 0
+
+    Public Global_md_ColdMDOutputFolder As String
+    Public Global_md_TempFilePath As String
+    Public Global_md_EDKB07_MDOutputFolder As String
+    Public Global_md_ParamFileOutputPath As String
+    Public Global_md_CMDFilePath As String
+    Public Global_md_CMDFile1Content As String
+    Public Global_md_CMDFile2Content As String
+    Public Global_md_ParamCfgAvaloq As String
+    Public Global_md_ParamCfgEdoka As String
+    Public Global_md_ParamCfgHost As String
+    Public Global_md_ParamCfgZv As String
+    Public Global_md_MaxWaitTime As Integer 'Zeit in Minuten
+    Public Global_md_UseTestMode As Boolean 'True/False
+
+#End Region
+
+End Module