EDOKA_Batch/EDKB07WS/Backup/Globals.vb

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