Initial commit

EDKB09/utils/Globals.vb

@@ -0,0 +1,92 @@
+'*
+' Modul Globals
+'
+' Dieses Modul beinhaltet Public Objekte und Variablen, welche während der gesamten
+' Luafzeit von EDOKA benötigt werden
+' 
+' Autor: Stefan Hutter
+' Datum: 2.12.2002
+'*
+Imports System.Reflection
+Imports System.IO
+
+
+Module Globals
+    'Datenbankvariablen
+    Public Indextyp As Integer = 1
+    Public Applikationsdaten As DataTable
+    Public AppldataRow As Integer = 0
+
+    Public sConnectionString_edoka As String
+    Public sConnectionString_journale As String
+    Public sConnectionString_ams As String
+
+    Public args As String() = Environment.GetCommandLineArgs()
+
+    Public conn_edoka As New edokadb.clsConnectionProvider()
+    Public conn_journale As New edokadb.clsConnectionProvider()
+
+    Public Fehler As Integer = 0
+    Public Warning As Integer = 0
+    Public DokumentID As String
+    Public ColdDokumentID As String
+    Public KeyNr As Long
+    Public Params As New ClsParameters()
+
+    Public oread As System.IO.StreamReader
+    Public oread1 As System.IO.StreamReader
+    Public Aufgehoben As Boolean
+    Public edokadokumentid As String
+    Public dokumenttyp As Integer
+    Public save_dokumentid As String
+
+    'Public ReservedWords As New Collection()
+
+#Region "BMS"
+    Dim journallog As New clsLog
+
+    Public Enum Enum_BMS_Typen
+        Information = 1
+        Warnung = 2
+        Fehler = 3
+    End Enum
+
+    Public Enum BMS_Fnkt
+        BMSStart = 1
+        BMSMessage = 2
+        BMSStop = 3
+    End Enum
+
+    Public m_log As New Object
+
+
+    Public Sub BMS_Log(ByVal Fnkt As Integer, Optional ByVal Message As String = "", Optional ByVal MSGType As Enum_BMS_Typen = 1)
+        Select Case Fnkt
+            Case 1
+                journallog.Startlog(Params.ApplicationID)
+                journallog.InsertJournale("EDKB09 Start", clsLog.Enum_InfoTyp.Information)
+            Case 2
+                journallog.InsertJournale(Message, clsLog.Enum_InfoTyp.Information)
+            Case 3
+                journallog.InsertJournale("EDKB09 Ende", clsLog.Enum_InfoTyp.Information)
+            Case Else
+        End Select
+    End Sub
+
+    'Public Function BMS_Send_Mail(ByVal EMail As String, ByVal Betreff As String, ByVal Meldung As String)
+
+    'End Function
+
+#End Region
+
+
+
+
+    Public Function ApplicationPath() As String
+        'Return Path.GetDirectoryName([Assembly].GetExecutingAssembly().Location)
+        Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
+    End Function
+
+
+
+End Module

EDKB09/utils/clsParameter.vb

@@ -0,0 +1,246 @@
+Public Class ClsParameters
+
+#Region "Deklarationen"
+
+    Dim m_applicationid As String
+    Property ApplicationID() As String
+        Get
+            Return m_applicationid
+        End Get
+        Set(ByVal Value As String)
+            m_applicationid = Value
+        End Set
+    End Property
+
+    Dim m_pathtmpsb As String
+    Property Pfad_Serienbrief_Daten() As String
+        Get
+            Return m_pathtmpsb
+        End Get
+        Set(ByVal Value As String)
+            m_pathtmpsb = Value
+        End Set
+    End Property
+
+    Dim m_pfadps As String
+    Property Pfad_PS() As String
+        Get
+            Return m_pfadps
+        End Get
+        Set(ByVal Value As String)
+            m_pfadps = Value
+        End Set
+    End Property
+
+    Dim m_pfadpdf As String
+    Property Pfad_Pdf() As String
+        Get
+            Return m_pfadpdf
+        End Get
+        Set(ByVal Value As String)
+            m_pfadpdf = Value
+        End Set
+    End Property
+
+    Dim m_dokumente_kleinauftrag As Integer
+    Property Anzahl_Dokumente_Kleinauftrag() As Integer
+        Get
+            Return m_dokumente_kleinauftrag
+        End Get
+        Set(ByVal Value As Integer)
+            m_dokumente_kleinauftrag = Value
+        End Set
+    End Property
+
+    Dim m_anzahl_dokumente_druckjob As Integer
+    Property Anzahl_Dokumente_Druckjob() As Integer
+        Get
+            Return m_anzahl_dokumente_druckjob
+        End Get
+        Set(ByVal Value As Integer)
+            m_anzahl_dokumente_druckjob = Value
+        End Set
+    End Property
+
+    Dim m_Dokumente_Auftrag As Integer
+    Property Anzahl_Dokumente_Auftrag() As Integer
+        Get
+            Return m_Dokumente_Auftrag
+        End Get
+        Set(ByVal Value As Integer)
+            m_Dokumente_Auftrag = Value
+        End Set
+    End Property
+
+    Dim m_pfad_edkb08 As String
+    Property Pfad_EDKB08() As String
+        Get
+            Return m_pfad_edkb08
+        End Get
+        Set(ByVal Value As String)
+            m_pfad_edkb08 = Value
+
+        End Set
+    End Property
+
+    Dim m_PrinterDriver As String
+    Property PrinterDriver() As String
+        Get
+            Return m_PrinterDriver
+        End Get
+        Set(ByVal Value As String)
+            m_PrinterDriver = Value
+        End Set
+    End Property
+
+    Dim m_mailempfaenger As String
+    Property MailEmpfanger() As String
+        Get
+            Return m_mailempfaenger
+        End Get
+        Set(ByVal Value As String)
+            m_mailempfaenger = Value
+        End Set
+    End Property
+
+    Dim m_timeOutKleinAuftrage As String
+    Property TimeOutKleinAuftraege() As String
+        Get
+            Return m_timeOutKleinAuftrage
+        End Get
+        Set(ByVal Value As String)
+            m_timeOutKleinAuftrage = Value
+        End Set
+    End Property
+
+    Dim m_timeOutGrossAuftrage As String
+    Property TimeOutGrossAuftraege() As String
+        Get
+            Return m_timeOutGrossAuftrage
+        End Get
+        Set(ByVal Value As String)
+            m_timeOutGrossAuftrage = Value
+        End Set
+    End Property
+
+    Dim m_wordwait As String
+    Property Wordwait() As String
+        Get
+            Return m_wordwait
+        End Get
+        Set(ByVal value As String)
+            m_wordwait = value
+        End Set
+    End Property
+    Dim m_maxwait As Integer
+    Property MaxWait() As Integer
+        Get
+            Return m_maxwait
+        End Get
+        Set(ByVal value As Integer)
+            m_maxwait = value
+        End Set
+    End Property
+
+    Dim m_Office2010 As Boolean
+    Property Office2010() As Boolean
+        Get
+            Return m_Office2010
+        End Get
+        Set(ByVal value As Boolean)
+            m_Office2010 = value
+        End Set
+    End Property
+
+    Dim m_ppfileB As String
+    Property PPFileB As String
+        Get
+            Return m_ppfileB
+        End Get
+        Set(value As String)
+            m_ppfileB = value
+        End Set
+    End Property
+
+    Dim m_ppfileA As String
+    Property PPFileA As String
+        Get
+            Return m_ppfileA
+        End Get
+        Set(value As String)
+            m_ppfileA = value
+        End Set
+    End Property
+
+    Dim m_log As String
+    Property Log As String
+        Get
+            Return m_log
+        End Get
+        Set(value As String)
+            m_log = value
+        End Set
+    End Property
+
+    Dim m_logpfad As String
+    Property LogPfad As String
+        Get
+            Return m_logpfad
+        End Get
+        Set(value As String)
+            m_logpfad = value
+        End Set
+    End Property
+
+
+#End Region
+
+    Sub New()
+        Loadparameters()
+    End Sub
+    Public Function Loadparameters() As String
+        Try
+            oread = IO.File.OpenText(Globals.ApplicationPath + "parameters.cfg")
+            Me.ApplicationID = ParamValue(oread.ReadLine)
+            Me.Pfad_Serienbrief_Daten = ParamValue(oread.ReadLine)
+            Me.Pfad_PS = ParamValue(oread.ReadLine)
+            Me.Pfad_Pdf = ParamValue(oread.ReadLine)
+            Me.Anzahl_Dokumente_Kleinauftrag = ParamValue(oread.ReadLine)
+            Me.Anzahl_Dokumente_Druckjob = ParamValue(oread.ReadLine)
+            Me.Anzahl_Dokumente_Auftrag = ParamValue(oread.ReadLine)
+            Me.Pfad_EDKB08 = ParamValue(oread.ReadLine)
+            Me.PrinterDriver = ParamValue(oread.ReadLine)
+            Me.MailEmpfanger = ParamValue(oread.ReadLine)
+            Me.TimeOutGrossAuftraege = ParamValue(oread.ReadLine)
+            Me.TimeOutKleinAuftraege = ParamValue(oread.ReadLine)
+            Try
+                Me.Wordwait = ParamValue(oread.ReadLine)
+            Catch
+                Me.Wordwait = 500
+            End Try
+            Try
+                Me.MaxWait = ParamValue(oread.ReadLine)
+            Catch
+                Me.MaxWait = 2
+            End Try
+            Me.Office2010 = ParamValue(oread.ReadLine) = "True"
+            Me.Pfad_Pdf = ParamValue(oread.ReadLine)
+            Me.PPFileB = ParamValue(oread.ReadLine)
+            Me.ppfileA = ParamValue(oread.ReadLine)
+            Me.m_log = ParamValue(oread.ReadLine)
+            Me.LogPfad = ParamValue(oread.ReadLine)
+            oread.Close()
+            Return Nothing
+        Catch ex As Exception
+            Return ex.Message
+        End Try
+    End Function
+
+
+
+    Private Function ParamValue(ByVal sinput As String) As String
+        Dim splitter() As String
+        splitter = Split(sinput, "=")
+        ParamValue = splitter(1)
+    End Function
+End Class