Initial commit

edkb04op/EDKB04OP/EDKB04OP.Designer.vb

@@ -0,0 +1,76 @@
+Imports System.ServiceProcess
+
+<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
+Partial Class EDKB04OP
+    Inherits System.ServiceProcess.ServiceBase
+    'UserService überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        Try
+            If disposing AndAlso components IsNot Nothing Then
+                components.Dispose()
+            End If
+        Finally
+            MyBase.Dispose(disposing)
+        End Try
+    End Sub
+
+    ' Der Haupteinstiegspunkt für den Prozess
+    <MTAThread()> _
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Shared Sub Main()
+
+#If CONFIG = "Release" Then
+        Dim ServicesToRun() As System.ServiceProcess.ServiceBase
+        ServicesToRun = New System.ServiceProcess.ServiceBase() {New EDKB04OP}
+        System.ServiceProcess.ServiceBase.Run(ServicesToRun)
+#Else
+        Dim myServ As New EDKB04OP()
+        myServ.OnStart({""})
+        While (True)
+            System.Threading.Thread.Sleep(2000)
+        End While
+#End If
+        ''#If DEBUG Then
+        ''        Dim myServ As New EDKB04OP()
+        ''        myServ.OnStart({""})
+        ''        While (True)
+        '' System.Threading.Thread.Sleep(2000)
+        '' End While
+
+        ''#Else
+        ''                                                     Dim ServicesToRun() As System.ServiceProcess.ServiceBase
+        ''                                                     ServicesToRun = New System.ServiceProcess.ServiceBase() {New Service1()}
+        ''System.ServiceProcess.ServiceBase.Run(ServicesToRun)
+
+
+        'Dim ServicesToRun() As System.ServiceProcess.ServiceBase
+
+        '' Innerhalb eines Prozesses können mehrere NT-Dienste ausgeführt werden. Um einen
+        '' weiteren Dienst zu diesem Prozess hinzuzufügen, ändern Sie die folgende Zeile,
+        '' um ein zweites Dienstobjekt zu erstellen. Zum Beispiel
+        ''
+        ''   ServicesToRun = New System.ServiceProcess.ServiceBase () {New Service1, New MySecondUserService}
+        ''
+        'ServicesToRun = New System.ServiceProcess.ServiceBase() {New EDKB04OP}
+
+        'System.ServiceProcess.ServiceBase.Run(ServicesToRun)
+        ''#End If
+
+
+
+    End Sub
+
+    'Wird vom Komponenten-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    ' Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich.
+    ' Das Bearbeiten ist mit dem Komponenten-Designer möglich.  
+    ' Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        components = New System.ComponentModel.Container()
+        Me.ServiceName = "Service1"
+    End Sub
+
+End Class

edkb04op/EDKB04OP/EDKB04OP.vb

@@ -0,0 +1,319 @@
+Imports System.Timers
+Imports IBM.WMQ
+Imports System.ServiceProcess
+Imports System.Runtime.Remoting
+Imports System.Runtime.Remoting.Channels
+Imports System.Xml
+Imports System.Data.SqlClient
+Imports System.IO
+Imports System.Reflection
+Imports bms
+
+Public Class EDKB04OP
+    Inherits System.ServiceProcess.ServiceBase
+    Dim WithEvents tmrQueuePolling As Timer = New Timer(2000)
+    Dim myStopper As ErrorStopper
+
+
+#Region " Vom Component Designer generierter Code "
+
+    Public Sub New()
+        MyBase.New()
+
+        ' Dieser Aufruf wird vom Komponenten-Designer benötigt.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungscode hinter dem InitializeComponent()-Aufruf ein
+
+    End Sub
+
+    ''UserService überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
+    'Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+    '    If disposing Then
+    '        If Not (components Is Nothing) Then
+    '            components.Dispose()
+    '        End If
+    '    End If
+    '    MyBase.Dispose(disposing)
+    'End Sub
+
+    '' Der Haupteinstiegspunkt für den Vorgang
+    '<MTAThread()> _
+    'Shared Sub Main()
+    '    Dim ServicesToRun() As System.ServiceProcess.ServiceBase
+    '    ServicesToRun = New System.ServiceProcess.ServiceBase() {New EDKB04OP}
+    '    System.ServiceProcess.ServiceBase.Run(ServicesToRun)
+    'End Sub
+
+
+
+#End Region
+
+#Region "StartStop"
+
+    Protected Overrides Sub OnStart(ByVal args() As String)
+        Try
+
+
+            Dim FileWatch As New FileSystemWatcher()
+            'init BMS
+#If CONFIG = "Release" Then
+            Dim m_log1 As New bms.Logging(6, Common.Common.JobType.WatchJob)
+            m_log = m_log1
+#Else
+            Dim m_log1 As New Globals.log
+            m_log = m_log1
+
+#End If
+            '#If DEBUG Then
+            '            Dim m_log1 As New Globals.log
+            '            m_log = m_log1
+            '#Else
+            'Dim m_log1 As New bms.Logging(6, Common.Common.JobType.WatchJob)
+            'm_log = m_log1
+            '#End If
+
+
+            m_log.Start()
+            m_log.Log("EDKB04: Start", Common.Common.JournalEntryType.Information)
+
+            'Init Params
+            Params.Loadparameters()
+
+            'Init File Watcher
+            FileWatch.Path = Params.Watchdir
+            FileWatch.IncludeSubdirectories = False
+            FileWatch.Filter = "*.xml"
+            AddHandler FileWatch.Created, New FileSystemEventHandler(AddressOf OnFileEvent)
+            FileWatch.EnableRaisingEvents = True
+
+            'init DB-Connection
+            Dim sconnection = New DB_Connection()
+
+            'init Timer
+            If CInt(Params.TimerInterval) > 0 Then
+                tmrQueuePolling.Start()
+            Else
+                tmrQueuePolling.Enabled = False
+            End If
+
+            'Init Error Stopper
+            Me.myStopper = New ErrorStopper
+            Me.myStopper.init(Params.nb_errors, Params.nb_seconds)
+
+        Catch ex As Exception
+            WriteLog("BMS-Connection / XML: " + ex.Message, appPath + "Error.txt")
+            m_log.Log(ex.Message, Common.Common.JournalEntryType.Error)
+            Exit Sub
+        End Try
+    End Sub
+
+    Protected Overrides Sub OnStop()
+        ' Hier Code zum Ausführen erforderlicher Löschvorgänge zum Beenden des Dienstes einfügen.
+        m_log.Log("EDKB04 Stop", Common.Common.JournalEntryType.Information)
+        m_log.Ende()
+    End Sub
+#End Region
+
+#Region "Log"
+
+    Private Sub WriteLog(ByVal stext As String, ByVal sPfad As String)
+        Try
+            Dim FiStr As FileStream = New FileStream(sPfad, FileMode.Append)
+            Dim StrWr As StreamWriter = New StreamWriter(FiStr)
+            StrWr.WriteLine("Fehler: " + Now() & " Text:" & stext)
+            StrWr.Close()
+        Catch ex As Exception
+        End Try
+    End Sub
+
+    Private Function writeDebug(ByVal xmlstring As String) As Boolean
+        Dim result As Boolean = True
+        Try
+            Dim writer As System.IO.StreamWriter
+            Dim filetimestamp As String = Format(Now, "yyyyMMddHHmmssffff")
+            writer = IO.File.AppendText(Params.DebugDir & filetimestamp & ".xml")
+            writer.WriteLine(xmlstring)
+            writer.Close()
+        Catch ex As Exception
+            m_log.Log("EDKB04: Error beim Abspeichern der Debug .xml Daten")
+            result = False
+        End Try
+        Return result
+    End Function
+
+#End Region
+
+#Region "Timer"
+    Public Sub OnTimedEvent(ByVal source As Object, ByVal e As ElapsedEventArgs) Handles tmrQueuePolling.Elapsed
+        ReadfromMQ()
+    End Sub
+#End Region
+
+#Region "File Watcher"
+    Private Sub OnFileEvent(ByVal source As Object, ByVal e As FileSystemEventArgs)
+        Try
+            Threading.Thread.Sleep(2000)
+            Dim di As New IO.DirectoryInfo(Params.Watchdir)
+            Dim diar1 As IO.FileInfo() = di.GetFiles("*.xml")
+            Dim dra As IO.FileInfo
+            Dim data As String
+            Dim counter As Integer = 0
+            For Each dra In diar1
+                counter = counter + 1
+                Dim fil As New StreamReader(dra.FullName)
+                data = fil.ReadToEnd()
+                fil.Close()
+                'm_log.Log("EDKB04: read File OK", Common.Common.JournalEntryType.Information)
+                Dim newending As String = ".err"
+                Dim filetimestamp As String = Format(Now, "yyyyMMddHHmmssffff")
+                Dim splitter() As String
+                Dim splitstring = "<?xml version="
+                splitter = Split(data, splitstring)
+                For i As Integer = 1 To splitter.Length - 1
+                    If XMLtoObj(splitstring + splitter(i)) = True Then
+                        'If XMLtoObj(data) = True Then
+                        newending = ".xml"
+                    Else
+                        newending = ".err"
+                    End If
+                Next
+
+                If Params.DebugMode Then
+                    'moven
+                    File.Move(dra.FullName, Params.DebugDir & filetimestamp + "_" + dra.Name & newending)
+                Else
+                    'deleten
+                    File.Delete(dra.FullName)
+                End If
+            Next
+        Catch ex As Exception
+            m_log.Log("EDKB04: FileWatcher Error: " & ex.Message, Common.Common.JournalEntryType.Error)
+        End Try
+    End Sub
+#End Region
+
+#Region "MQ"
+
+    Private Function ReadfromMQ() As Boolean
+
+        Dim mqQMgr As MQQueueManager            '* MQQueueManager instance
+        Dim mqQueue As MQQueue = Nothing        '* MQQueue instance
+        Dim queueName As String                 '* Name of queue to use
+        Dim strMsg As String
+        Dim result As Boolean
+
+        tmrQueuePolling.Stop()
+        'm_log.Log("EDKB04: Start MQ Verbindungsaufbau", Common.Common.JournalEntryType.Information)
+        queueName = Params.MQQueueName
+        Try
+            MQEnvironment.Hostname = Params.MQHostname    'Bsp: "vb0049d"
+            MQEnvironment.Port = Params.MQPort       'Bsp: 1416
+            MQEnvironment.Channel = Params.MQChannel       'Bsp: "TGKB.D16.EDOKA.CL"
+            Try
+                mqQMgr = New MQQueueManager()
+                mqQueue = mqQMgr.AccessQueue(queueName, MQC.MQOO_INPUT_AS_Q_DEF + MQC.MQOO_FAIL_IF_QUIESCING)       '* open queue for input but not if MQM stopping
+            Catch ex As Exception
+                m_log.Log("EDKB04: MQ Error: " & ex.Message, Common.Common.JournalEntryType.Error)
+            End Try
+
+        Catch mqe As IBM.WMQ.MQException
+            m_log.Log("EDKB04: Error: " & mqe.Message, Common.Common.JournalEntryType.Error)
+            m_log.Log("EDKB04: Errorcode: " & mqe.CompletionCode, Common.Common.JournalEntryType.Error)
+            m_log.Log("EDKB04: Reasoncode: " & mqe.ReasonCode, Common.Common.JournalEntryType.Error)
+        End Try
+
+        Try
+            Dim isContinue As Boolean = True
+            Dim strXMLContent As String
+            Do While (isContinue = True)
+                Dim mqMsg As MQMessage                      '* MQMessage instance
+                Dim mqGetMsgOpts As MQGetMessageOptions     '* MQGetMessageOptions instance
+
+                mqMsg = New MQMessage()
+                mqGetMsgOpts = New MQGetMessageOptions()
+                Try
+                    If CInt(Params.TimerInterval) > 0 Then
+                        mqGetMsgOpts.WaitInterval = CInt(Params.TimerInterval)
+                    Else
+                        mqGetMsgOpts.WaitInterval = 15000  '* 15 second limit for waiting
+                    End If
+                Catch ex As Exception
+                    mqGetMsgOpts.WaitInterval = 15000  '* 15 second limit for waiting
+                End Try
+                mqGetMsgOpts.Options = MQC.MQGMO_WAIT
+
+                Try
+                    mqQueue.Get(mqMsg, mqGetMsgOpts)
+                    'mqQueue.
+                    If (mqMsg.Format.CompareTo(MQC.MQFMT_STRING) = 0) Then
+                        strMsg = mqMsg.ReadString(mqMsg.MessageLength)
+                        strXMLContent = strMsg
+                        'Me.Log("Message Content:" & strMsg)
+                        If Params.DebugMode Then
+                            Me.writeDebug(strMsg)
+                        End If
+                        'm_log.Log("EDKB04: Message Length:" & Len(strMsg) & " Chars", Common.Common.JournalEntryType.Information)
+                        If XMLtoObj(strXMLContent) = True Then
+                            'XMLtoObj(strXMLContent)
+                        Else
+                            result = False
+                        End If
+                        result = True
+                    Else
+                        If Me.myStopper.insert Then m_log.Log("EDKB04: Non-text message", Common.Common.JournalEntryType.Error)
+                        result = False
+                    End If
+                Catch mqe As IBM.WMQ.MQException
+                    '* report reason, if any
+                    If (mqe.Reason = MQC.MQRC_NO_MSG_AVAILABLE) Then
+                        '* special report for normal end
+                        m_log.Log("EDKB04: no more messages", Common.Common.JournalEntryType.Information)
+                        isContinue = False
+                    Else
+                        '* general report for other reasons
+                        If Me.myStopper.insert Then m_log.Log("EDKB04: MQQueue::Get ended with {0}: " & mqe.Message, Common.Common.JournalEntryType.Error)
+
+                        '* treat truncated message as a failure for this sample
+                        'If (mqe.Reason = MQC.MQRC_TRUNCATED_MSG_FAILED) Then
+                        isContinue = False
+                        'End If
+                    End If
+                    result = False
+                End Try
+                If LCase(Params.LoopQueue) = "false" Then
+                    isContinue = False
+                End If
+            Loop
+        Catch ex As Exception
+            If Me.myStopper.insert Then m_log.Log("EDKB04: Error bei GET: " & ex.Message, Common.Common.JournalEntryType.Error)
+            result = False
+        Finally
+            If CInt(Params.TimerInterval) > 0 Then
+                tmrQueuePolling.Start()
+            End If
+        End Try
+        Return result
+    End Function
+
+    Private Function XMLtoObj(ByVal strXMLContent As String) As Boolean
+        Dim result As Boolean
+        Try
+            'm_log.Log("EDKB04: Lese XML String in Objekt", Common.Common.JournalEntryType.Information)
+            Dim xmlh As New xmlHandling(strXMLContent)
+            result = xmlh.Result
+            xmlh = Nothing
+            'm_log.Log("EDKB04: Lese XML String in Objekt ENDE", Common.Common.JournalEntryType.Information)
+        Catch ex As Exception
+            m_log.Log("EDKB04: Error bei XML->Obj: " & ex.Message, Common.Common.JournalEntryType.Error)
+            result = False
+        End Try
+        Return result
+    End Function
+
+#End Region
+
+
+
+
+End Class

edkb04op/EDKB04OP/EDKB04OP.vbproj

@@ -0,0 +1,154 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <Import Project="$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props" Condition="Exists('$(MSBuildExtensionsPath)\$(MSBuildToolsVersion)\Microsoft.Common.props')" />
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProjectGuid>{4D4E0D27-5773-452F-BA0B-7A18EC833470}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>EDKB04.EDKB04OP</StartupObject>
+    <RootNamespace>EDKB04</RootNamespace>
+    <AssemblyName>EDKB04</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>Console</MyType>
+    <TargetFrameworkVersion>v2.0</TargetFrameworkVersion>
+    <SccProjectName>SAK</SccProjectName>
+    <SccLocalPath>SAK</SccLocalPath>
+    <SccAuxPath>SAK</SccAuxPath>
+    <SccProvider>SAK</SccProvider>
+    <TargetFrameworkProfile />
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>EDKB04.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <PlatformTarget>AnyCPU</PlatformTarget>
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>EDKB04.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionExplicit>On</OptionExplicit>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionCompare>Binary</OptionCompare>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionStrict>Off</OptionStrict>
+  </PropertyGroup>
+  <PropertyGroup>
+    <OptionInfer>On</OptionInfer>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="amqmdnet, Version=1.0.0.3, Culture=neutral, PublicKeyToken=dd3cb1c9aae9ec97">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>bin\Debug\amqmdnet.dll</HintPath>
+    </Reference>
+    <Reference Include="BMS, Version=2.0.2972.16650, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>bin\Debug\BMS.dll</HintPath>
+    </Reference>
+    <Reference Include="Common, Version=2.0.5320.15797, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>bin\Debug\Common.dll</HintPath>
+    </Reference>
+    <Reference Include="DataAccess, Version=2.0.5320.15797, Culture=neutral, processorArchitecture=MSIL">
+      <SpecificVersion>False</SpecificVersion>
+      <HintPath>bin\Debug\DataAccess.dll</HintPath>
+    </Reference>
+    <Reference Include="System" />
+    <Reference Include="System.Configuration.Install" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.ServiceProcess" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Linq" />
+    <Import Include="System.Xml.Linq" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="clsconnectionprovider.vb" />
+    <Compile Include="clsParameter.vb" />
+    <Compile Include="db_connection.vb" />
+    <Compile Include="ErrorStopper.vb" />
+    <Compile Include="Globals.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <Compile Include="EDKB04OP.vb">
+      <SubType>Component</SubType>
+    </Compile>
+    <Compile Include="EDKB04OP.Designer.vb">
+      <DependentUpon>EDKB04OP.vb</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+    <Compile Include="ProjectInstaller.vb">
+      <SubType>Component</SubType>
+    </Compile>
+    <Compile Include="xmlHandling.vb" />
+    <Compile Include="xmlhelper.vb" />
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="ProjectInstaller.resx">
+      <DependentUpon>ProjectInstaller.vb</DependentUpon>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="app.config" />
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
+       Other similar extension points exist, see Microsoft.Common.targets.
+  <Target Name="BeforeBuild">
+  </Target>
+  <Target Name="AfterBuild">
+  </Target>
+  -->
+</Project>

edkb04op/EDKB04OP/EDKB04OP.vbproj.vspscc

@@ -0,0 +1,10 @@
+""
+{
+"FILE_VERSION" = "9237"
+"ENLISTMENT_CHOICE" = "NEVER"
+"PROJECT_FILE_RELATIVE_PATH" = ""
+"NUMBER_OF_EXCLUDED_FILES" = "0"
+"ORIGINAL_PROJECT_FILE_PATH" = ""
+"NUMBER_OF_NESTED_PROJECTS" = "0"
+"SOURCE_CONTROL_SETTINGS_PROVIDER" = "PROVIDER"
+}

edkb04op/EDKB04OP/EDKB04OP.vsdoc

@@ -0,0 +1,7 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+  <!--   VSdocman config file for current project/solution.-->
+  <activeProfile>default</activeProfile>
+  <appSettings>
+  </appSettings>
+</configuration>

edkb04op/EDKB04OP/ErrorStopper.vb

@@ -0,0 +1,34 @@
+Public Class ErrorStopper
+
+    Private nb_events As Integer = 0
+    Private nb_seconds As Integer = 0
+
+    Private myStack As ArrayList
+
+    Public Function insert() As Boolean
+        Dim result As Boolean = True
+        'Neues Element rein
+        Dim new_el As New DateTime
+        new_el = Now()
+        myStack.Add(new_el)
+        'Alte löschen
+        Dim check_el As DateTime
+        Dim i As Integer = myStack.Count
+        Do While i > 0
+            check_el = myStack.Item(0)
+            If DateAdd(DateInterval.Second, nb_seconds, check_el) < Now() Then
+                myStack.RemoveAt(0)
+            End If
+            i = i - 1
+        Loop
+        'Check ob Menge überschritten
+        If myStack.Count >= nb_events Then result = False
+        Return result
+    End Function
+
+    Public Sub init(ByVal numberOfEvents As Integer, ByVal periodInSeconds As Integer)
+        Me.nb_events = numberOfEvents
+        Me.nb_seconds = periodInSeconds
+        Me.myStack = New ArrayList
+    End Sub
+End Class

edkb04op/EDKB04OP/Globals.vb

@@ -0,0 +1,60 @@
+Imports System.Reflection
+Imports System.IO
+
+Module Globals
+    Public Applikationsdaten As DataTable
+    Public AppldataRow As Integer
+
+    Public sConnectionString_edoka As String
+    Public sConnectionString_journale As String
+    Public sConnectionString_tgdata As String
+
+    Public args As String() = Environment.GetCommandLineArgs()
+
+    Public Params As New ClsParameter()
+
+    Public conn_edoka As New edokadb.clsConnectionProvider()
+    Public conn_journale As New edokadb.clsConnectionProvider()
+    Public conn_tgdata 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 ofile As System.IO.File
+    Public oread As System.IO.StreamReader
+    'test
+
+    'NEU
+    Public appPath As String = Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
+
+#Region "BMS - Normal"
+
+
+#If CONFIG = "Release" Then
+    Public m_log As bms.Logging
+
+#Else
+    Public m_log As log
+
+    Public Class log
+        Function log(ByVal msg As String, Optional type As Integer = 0)
+
+        End Function
+
+        Public Function start()
+
+        End Function
+
+        Public Function ende()
+
+        End Function
+    End Class
+
+#End If
+
+#End Region
+
+End Module

edkb04op/EDKB04OP/My Project/Application.Designer.vb

@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.34014
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+

edkb04op/EDKB04OP/My Project/Application.myapp

@@ -0,0 +1,10 @@
+<?xml version="1.0" encoding="utf-8"?>
+<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
+  <MySubMain>false</MySubMain>
+  <SingleInstance>false</SingleInstance>
+  <ShutdownMode>0</ShutdownMode>
+  <EnableVisualStyles>true</EnableVisualStyles>
+  <AuthenticationMode>0</AuthenticationMode>
+  <ApplicationType>3</ApplicationType>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

edkb04op/EDKB04OP/My Project/AssemblyInfo.vb

@@ -0,0 +1,35 @@
+Imports System
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Allgemeine Informationen über eine Assembly werden über die folgenden 
+' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern,
+' die mit einer Assembly verknüpft sind.
+
+' Die Werte der Assemblyattribute überprüfen
+
+<Assembly: AssemblyTitle("EDKB04OP")> 
+<Assembly: AssemblyDescription("")> 
+<Assembly: AssemblyCompany("")> 
+<Assembly: AssemblyProduct("EDKB04OP")> 
+<Assembly: AssemblyCopyright("Copyright ©  2014")> 
+<Assembly: AssemblyTrademark("")> 
+
+<Assembly: ComVisible(False)>
+
+'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
+<Assembly: Guid("c3fb0e9d-c04c-482b-af9b-1f71c47d03b5")> 
+
+' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
+'
+'      Hauptversion
+'      Nebenversion 
+'      Buildnummer
+'      Revision
+'
+' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern 
+' übernehmen, indem Sie "*" eingeben:
+' <Assembly: AssemblyVersion("1.0.*")> 
+
+<Assembly: AssemblyVersion("1.0.0.0")> 
+<Assembly: AssemblyFileVersion("1.0.0.0")> 

edkb04op/EDKB04OP/My Project/Resources.Designer.vb

@@ -0,0 +1,63 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.34014
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+Imports System
+
+Namespace My.Resources
+    
+    'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
+    '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
+    'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
+    'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
+    '''<summary>
+    '''  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+    '''</summary>
+    <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.Microsoft.VisualBasic.HideModuleNameAttribute()>  _
+    Friend Module Resources
+        
+        Private resourceMan As Global.System.Resources.ResourceManager
+        
+        Private resourceCulture As Global.System.Globalization.CultureInfo
+        
+        '''<summary>
+        '''  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
+            Get
+                If Object.ReferenceEquals(resourceMan, Nothing) Then
+                    Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("EDKB04.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+        
+        '''<summary>
+        '''  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+        '''  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set
+                resourceCulture = value
+            End Set
+        End Property
+    End Module
+End Namespace

edkb04op/EDKB04OP/My Project/Resources.resx

@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+    Microsoft ResX Schema 
+    
+    Version 2.0
+    
+    The primary goals of this format is to allow a simple XML format 
+    that is mostly human readable. The generation and parsing of the 
+    various data types are done through the TypeConverter classes 
+    associated with the data types.
+    
+    Example:
+    
+    ... ado.net/XML headers & schema ...
+    <resheader name="resmimetype">text/microsoft-resx</resheader>
+    <resheader name="version">2.0</resheader>
+    <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+    <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+    <data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
+    <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+    <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+        <value>[base64 mime encoded serialized .NET Framework object]</value>
+    </data>
+    <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+        <value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
+        <comment>This is a comment</comment>
+    </data>
+                
+    There are any number of "resheader" rows that contain simple 
+    name/value pairs.
+    
+    Each data row contains a name, and value. The row also contains a 
+    type or mimetype. Type corresponds to a .NET class that support 
+    text/value conversion through the TypeConverter architecture. 
+    Classes that don't support this are serialized and stored with the 
+    mimetype set.
+    
+    The mimetype is used for serialized objects, and tells the 
+    ResXResourceReader how to depersist the object. This is currently not 
+    extensible. For a given mimetype the value must be set accordingly:
+    
+    Note - application/x-microsoft.net.object.binary.base64 is the format 
+    that the ResXResourceWriter will generate, however the reader can 
+    read any of the formats listed below.
+    
+    mimetype: application/x-microsoft.net.object.binary.base64
+    value   : The object must be serialized with 
+            : System.Serialization.Formatters.Binary.BinaryFormatter
+            : and then encoded with base64 encoding.
+    
+    mimetype: application/x-microsoft.net.object.soap.base64
+    value   : The object must be serialized with 
+            : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+            : and then encoded with base64 encoding.
+
+    mimetype: application/x-microsoft.net.object.bytearray.base64
+    value   : The object must be serialized into a byte array 
+            : using a System.ComponentModel.TypeConverter
+            : and then encoded with base64 encoding.
+    -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="metadata">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" />
+              <xsd:attribute name="type" type="xsd:string" />
+              <xsd:attribute name="mimetype" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="assembly">
+            <xsd:complexType>
+              <xsd:attribute name="alias" type="xsd:string" />
+              <xsd:attribute name="name" type="xsd:string" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>2.0</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+</root>

edkb04op/EDKB04OP/My Project/Settings.Designer.vb

@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.34014
+'
+'     Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
+'     der Code erneut generiert wird.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+    
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "12.0.0.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+        
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
+        
+#Region "Funktion zum automatischen Speichern von My.Settings"
+#If _MyType = "WindowsForms" Then
+    Private Shared addedHandler As Boolean
+
+    Private Shared addedHandlerLockObject As New Object
+
+    <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+    Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+        If My.Application.SaveMySettingsOnExit Then
+            My.Settings.Save()
+        End If
+    End Sub
+#End If
+#End Region
+        
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+                
+#If _MyType = "WindowsForms" Then
+               If Not addedHandler Then
+                    SyncLock addedHandlerLockObject
+                        If Not addedHandler Then
+                            AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                            addedHandler = True
+                        End If
+                    End SyncLock
+                End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Module MySettingsProperty
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
+        Friend ReadOnly Property Settings() As Global.EDKB04.My.MySettings
+            Get
+                Return Global.EDKB04.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

edkb04op/EDKB04OP/My Project/Settings.settings

@@ -0,0 +1,7 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
+  <Profiles>
+    <Profile Name="(Default)" />
+  </Profiles>
+  <Settings />
+</SettingsFile>

edkb04op/EDKB04OP/ProjectInstaller.resx

@@ -0,0 +1,117 @@
+<?xml version="1.0" encoding="utf-8"?>
+<root>
+  <!-- 
+            Microsoft ResX Schema 
+        
+            Version 1.3
+                
+            The primary goals of this format is to allow a simple XML format 
+            that is mostly human readable. The generation and parsing of the 
+            various data types are done through the TypeConverter classes 
+            associated with the data types.
+        
+            Example:
+        
+                ... ado.net/XML headers & schema ...
+                <resheader name="resmimetype">text/microsoft-resx</resheader>
+                <resheader name="version">1.3</resheader>
+                <resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
+                <resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
+                <data name="Name1">this is my long string</data>
+                <data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
+                <data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
+                    [base64 mime encoded serialized .NET Framework object]
+                </data>
+                <data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
+                    [base64 mime encoded string representing a byte array form of the .NET Framework object]
+                </data>
+        
+            There are any number of "resheader" rows that contain simple 
+            name/value pairs.
+            
+            Each data row contains a name, and value. The row also contains a 
+            type or mimetype. Type corresponds to a .NET class that support 
+            text/value conversion through the TypeConverter architecture. 
+            Classes that don't support this are serialized and stored with the 
+            mimetype set.
+                     
+            The mimetype is used for serialized objects, and tells the 
+            ResXResourceReader how to depersist the object. This is currently not 
+            extensible. For a given mimetype the value must be set accordingly:
+        
+            Note - application/x-microsoft.net.object.binary.base64 is the format 
+                   that the ResXResourceWriter will generate, however the reader can 
+                   read any of the formats listed below.
+        
+            mimetype: application/x-microsoft.net.object.binary.base64
+            value   : The object must be serialized with 
+                    : System.Serialization.Formatters.Binary.BinaryFormatter
+                    : and then encoded with base64 encoding.
+        
+            mimetype: application/x-microsoft.net.object.soap.base64
+            value   : The object must be serialized with 
+                    : System.Runtime.Serialization.Formatters.Soap.SoapFormatter
+                    : and then encoded with base64 encoding.
+            mimetype: application/x-microsoft.net.object.bytearray.base64
+            value   : The object must be serialized into a byte array 
+                    : using a System.ComponentModel.TypeConverter
+                    : and then encoded with base64 encoding.
+        -->
+  <xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
+    <xsd:element name="root" msdata:IsDataSet="true">
+      <xsd:complexType>
+        <xsd:choice maxOccurs="unbounded">
+          <xsd:element name="data">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+                <xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
+              <xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
+              <xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
+            </xsd:complexType>
+          </xsd:element>
+          <xsd:element name="resheader">
+            <xsd:complexType>
+              <xsd:sequence>
+                <xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
+              </xsd:sequence>
+              <xsd:attribute name="name" type="xsd:string" use="required" />
+            </xsd:complexType>
+          </xsd:element>
+        </xsd:choice>
+      </xsd:complexType>
+    </xsd:element>
+  </xsd:schema>
+  <resheader name="resmimetype">
+    <value>text/microsoft-resx</value>
+  </resheader>
+  <resheader name="version">
+    <value>1.3</value>
+  </resheader>
+  <resheader name="reader">
+    <value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <resheader name="writer">
+    <value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
+  </resheader>
+  <data name="ServiceProcessInstaller1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>Assembly</value>
+  </data>
+  <data name="ServiceProcessInstaller1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>17, 17</value>
+  </data>
+  <data name="ServiceInstaller1.Modifiers" type="System.CodeDom.MemberAttributes, System, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>Assembly</value>
+  </data>
+  <data name="ServiceInstaller1.Location" type="System.Drawing.Point, System.Drawing, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
+    <value>188, 17</value>
+  </data>
+  <data name="$this.Name">
+    <value>ProjectInstaller</value>
+  </data>
+  <data name="$this.TrayLargeIcon" type="System.Boolean, mscorlib, Version=1.0.3300.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+    <value>False</value>
+  </data>
+</root>

edkb04op/EDKB04OP/ProjectInstaller.vb

@@ -0,0 +1,60 @@
+Imports System.ComponentModel
+Imports System.Configuration.Install
+
+<RunInstaller(True)> Public Class ProjectInstaller
+    Inherits System.Configuration.Install.Installer
+
+#Region " Vom Component Designer generierter Code "
+
+    Public Sub New()
+        MyBase.New()
+
+        ' Dieser Aufruf ist für den Komponenten-Designer erforderlich.
+        InitializeComponent()
+
+        ' Initialisierungen nach dem Aufruf InitializeComponent() hinzufügen
+
+    End Sub
+
+    'Installer überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
+    Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing Then
+            If Not (components Is Nothing) Then
+                components.Dispose()
+            End If
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    ' Für Komponenten-Designer erforderlich
+    Private components As System.ComponentModel.IContainer
+
+    'HINWEIS: Die folgende Prozedur ist für den Komponenten-Designer erforderlich
+    'Sie kann mit dem Komponenten-Designer modifiziert werden.
+    'Verwenden Sie nicht den Code-Editor zur Bearbeitung.
+    Friend WithEvents ServiceProcessInstaller1 As System.ServiceProcess.ServiceProcessInstaller
+    Friend WithEvents ServiceInstaller1 As System.ServiceProcess.ServiceInstaller
+    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
+        Me.ServiceProcessInstaller1 = New System.ServiceProcess.ServiceProcessInstaller()
+        Me.ServiceInstaller1 = New System.ServiceProcess.ServiceInstaller()
+        '
+        'ServiceProcessInstaller1
+        '
+        Me.ServiceProcessInstaller1.Account = System.ServiceProcess.ServiceAccount.LocalSystem
+        Me.ServiceProcessInstaller1.Password = Nothing
+        Me.ServiceProcessInstaller1.Username = Nothing
+        '
+        'ServiceInstaller1
+        '
+        Me.ServiceInstaller1.DisplayName = "EDKB04"
+        Me.ServiceInstaller1.ServiceName = "EDKB04"
+        '
+        'ProjectInstaller
+        '
+        Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.ServiceProcessInstaller1, Me.ServiceInstaller1})
+
+    End Sub
+
+#End Region
+
+End Class

edkb04op/EDKB04OP/app.config

@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+    <system.diagnostics>
+        <sources>
+            <!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
+            <source name="DefaultSource" switchName="DefaultSwitch">
+                <listeners>
+                    <add name="FileLog"/>
+                    <!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
+                    <!--<add name="EventLog"/>-->
+                </listeners>
+            </source>
+        </sources>
+        <switches>
+            <add name="DefaultSwitch" value="Information"/>
+        </switches>
+        <sharedListeners>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+            <!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
+            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+        </sharedListeners>
+    </system.diagnostics>
+<startup><supportedRuntime version="v2.0.50727"/></startup></configuration>

edkb04op/EDKB04OP/bin/Debug/EDKB04.exe.config

@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+    <system.diagnostics>
+        <sources>
+            <!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
+            <source name="DefaultSource" switchName="DefaultSwitch">
+                <listeners>
+                    <add name="FileLog"/>
+                    <!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
+                    <!--<add name="EventLog"/>-->
+                </listeners>
+            </source>
+        </sources>
+        <switches>
+            <add name="DefaultSwitch" value="Information"/>
+        </switches>
+        <sharedListeners>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+            <!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
+            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+        </sharedListeners>
+    </system.diagnostics>
+<startup><supportedRuntime version="v2.0.50727"/></startup></configuration>

edkb04op/EDKB04OP/bin/Debug/EDKB04.vshost.exe.config

@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+    <system.diagnostics>
+        <sources>
+            <!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
+            <source name="DefaultSource" switchName="DefaultSwitch">
+                <listeners>
+                    <add name="FileLog"/>
+                    <!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
+                    <!--<add name="EventLog"/>-->
+                </listeners>
+            </source>
+        </sources>
+        <switches>
+            <add name="DefaultSwitch" value="Information"/>
+        </switches>
+        <sharedListeners>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+            <!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
+            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+        </sharedListeners>
+    </system.diagnostics>
+<startup><supportedRuntime version="v2.0.50727"/></startup></configuration>

edkb04op/EDKB04OP/bin/Debug/EDKB04.vshost.exe.manifest

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+  <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+        <requestedExecutionLevel level="asInvoker" uiAccess="false"/>
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+</assembly>

edkb04op/EDKB04OP/bin/Debug/EDKB04.xml

@@ -0,0 +1,305 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+EDKB04
+</name>
+</assembly>
+<members>
+<member name="P:EDKB04.My.Resources.Resources.ResourceManager">
+	<summary>
+  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+</summary>
+</member><member name="P:EDKB04.My.Resources.Resources.Culture">
+	<summary>
+  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+</summary>
+</member><member name="T:EDKB04.My.Resources.Resources">
+	<summary>
+  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+</summary>
+</member><member name="M:EDKB04.XmlHelper.GetAttributeValue(System.Xml.XmlNode@,System.String,System.String@)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Gets the value from an attribute at the specified node.
+ </summary>
+	<param name="node">The XmlNode from which this method will get the value of an attribute.</param>
+	<param name="attributeName">Name of the attribute that will be read.</param>
+	<param name="value">Attribute value read by this method</param>
+	<returns>True if node is found and value is retrieved successfully.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.GetAttributeValue(System.Xml.XmlNode@,System.String,System.Int32@)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Gets the value from an attribute at the specified node.
+ </summary>
+	<param name="node">The XmlNode from which this method will get the value of an attribute.</param>
+	<param name="attributeName">Name of the attribute that will be read.</param>
+	<param name="value">Attribute value read by this method</param>
+	<returns>True if success.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.GetAttributeValue(System.Xml.XmlNode@,System.String,System.UInt32@)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Gets the value from an attribute at the specified node.
+ </summary>
+	<param name="node">The XmlNode from which this method will get the value of an attribute.</param>
+	<param name="attributeName">Name of the attribute that will be read.</param>
+	<param name="value">Attribute value read by this method</param>
+	<returns>True if success.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.SetAttributeValue(System.Xml.XmlNode@,System.String,System.String)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Sets the value of an attribute for a given XmlNode.
+ </summary>
+	<param name="node">XmlNode whose attribute will be set.</param>
+	<param name="attributeName">Name of the attribute to set.</param>
+	<param name="value">Value to be set</param>
+	<returns>True if success.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.SetAttributeValue(System.Xml.XmlNode@,System.String,System.Int32)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Sets the value of an attribute for a given XmlNode.
+ </summary>
+	<param name="node">XmlNode whose attribute will be set.</param>
+	<param name="attributeName">Name of the attribute to set.</param>
+	<param name="value">Value to be set</param>
+	<returns>True if success.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.SetAttributeValue(System.Xml.XmlNode@,System.String,System.UInt32)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Sets the value of an attribute for a given XmlNode.
+ </summary>
+	<param name="node">XmlNode whose attribute will be set.</param>
+	<param name="attributeName">Name of the attribute to set.</param>
+	<param name="value">Value to be set</param>
+	<returns>True if success.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.GetDataTable(System.Xml.XmlNodeList@)">
+ -----------------------------------------------------------------------------
+ <summary>s 
+ Converts a list of Xml nodes to a DataTable.
+ </summary>
+	<param name="nodelist">List of Xml nodes</param>
+	<returns>DataTable</returns>
+	<remarks>
+ This method convert
+ </remarks>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.GetDataTable(System.Xml.XmlNodeList,System.String,System.Boolean)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Converts a list of Xml nodes to a DataTable and sets one of the columns as a primary key.
+ </summary>
+	<param name="nodelist"></param>
+	<param name="primaryKeyColumn"></param>
+	<param name="autoIncrement"></param>
+	<returns></returns>
+	<remarks>
+	</remarks>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.UpdateChildNodesWithDataTable(System.Xml.XmlNode,System.Data.DataTable,System.String)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Updates the child nodes of "parentNode" by using the fields from a datatable.
+ </summary>
+	<param name="parentNode"></param>
+	<param name="table"></param>
+	<param name="keyField"></param>
+	<remarks>
+ The child nodes that will be updated must have attribute fields that correspond to
+ the DataTable.  The "keyField" will be used to identify the attribute that serves as 
+ an identifier of the rows.  The datatable can have less fields than the nodes so
+ you have the chance to update smaller subsets.
+ Make sure that you did not call "AcceptChanges" before passing the datatable or this
+ function will not find any change.
+ </remarks>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.NodeToString(System.Xml.XmlNode@)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Returns contents of an XmlNode in a string.
+ </summary>
+	<param name="node">The XmlNode whose contents will be read into a string.</param>
+	<returns>Xml formatted string with contents of "node" parameter.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.NodeListToString(System.Xml.XmlNodeList)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Convert a XmlNodeList to string
+ </summary>
+	<param name="nodeList"></param>
+	<returns></returns>
+	<remarks>
+	</remarks>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.DocumentToString(System.Xml.XmlDocument@)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Method to convert a XmlDocument to string.
+ </summary>
+	<param name="xmlDoc">XmlDocument that will be converted to string.</param>
+	<returns>A xml formatted string.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.Insert(System.Xml.XmlDocument,System.String)">
+	<summary>
+ Inserts an empty record at the bottom of the hierarchy, creating the
+ tree as required.
+ </summary>
+	<param name="doc">The XmlDocument to which the node will be inserted.</param>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<returns>The XmlNode inserted into the hierarchy.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to insert an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Insert(System.Xml.XmlDocument,System.String,System.String[],System.String[])">
+	<summary>
+ Inserts an record with a multiple fields at the bottom of the hierarchy.
+ </summary>
+	<param name="doc">The XmlDocument to which the node will be inserted.</param>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<param name="fields">The attribute names that will be created for the node inserted.</param>
+	<param name="values">The corresponding value of each field.</param>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to insert an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Insert(System.Xml.XmlDocument,System.String,System.String,System.String)">
+	<summary>
+ Inserts a record with a single field at the bottom of the hierarchy.
+ </summary>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<param name="field">The field to add to the record.</param>
+	<param name="val">The value assigned to the field.</param>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to insert an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Insert(System.Xml.XmlDocument,System.String,System.Data.DataRow)">
+	<summary>
+ Inserts a record with multiple fields at bottom of the hierarchy.
+ </summary>
+	<param name="doc"></param>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<param name="rowValues">The DataRow values that will be added as attributes.</param>
+	<remarks>
+ The columns names of the DataRow will become the attribute names and 
+ the row values of the DataRow will be the attribute values.
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to insert an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Insert(System.Xml.XmlDocument,System.String,System.String,System.String[])">
+	<summary>
+ Inserts a record with multiple values at bottom of hierarchy. This is analogous to inserting 
+ a column of data.
+ </summary>
+	<param name="doc"></param>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<param name="field">Name of the attribute to be created at node inserted.</param>
+	<param name="values">Values that will be inserted that correspond to the field name.</param>
+	<remarks>
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to insert an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Update(System.Xml.XmlDocument,System.String,System.String,System.String)">
+	<summary>
+ Update a single field in all records in the specified path.
+ </summary>
+	<param name="doc">The XmlDocument whose node will be udpated.</param>
+	<param name="xpath">The xml path.</param>
+	<param name="field">The field name to update.</param>
+	<param name="val">The new value.</param>
+	<returns>The number of records affected.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to update an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Delete(System.Xml.XmlDocument,System.String)">
+	<summary>
+ Deletes all records of the specified path.
+ </summary>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<returns>The number of records deleted.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>Additional exceptions may be thrown by the XmlDocument class.</remarks>
+</member><member name="M:EDKB04.XmlHelper.QueryScalar(System.Xml.XmlDocument,System.String,System.String)">
+	<summary>
+ Return a single string representing the value of the specified field
+ for the first record encountered.
+ </summary>
+	<param name="xpath">The xml path.</param>
+	<param name="field">The desired field.</param>
+	<returns>A string with the field's value or null.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>Additional exceptions may be thrown by the XmlDocument class.</remarks>
+</member><member name="M:EDKB04.XmlHelper.Query(System.Xml.XmlDocument,System.String)">
+	<summary>
+ Returns a DataTable for all rows on the path.
+ </summary>
+	<param name="xpath">The xml path.</param>
+	<returns>The DataTable with the returned rows.
+ The row count will be 0 if no rows returned.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>Additional exceptions may be thrown by the XmlDocument class.</remarks>
+</member><member name="M:EDKB04.XmlHelper.QueryField(System.Xml.XmlDocument,System.String,System.String)">
+	<summary>
+ Returns an array of values for the specified field for all rows on
+ the path.
+ </summary>
+	<param name="xpath">The xml path.</param>
+	<param name="field">The desired field.</param>
+	<returns>The array of string values for each row qualified by the path.
+ A null is returned if the query results in 0 rows.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>Additional exceptions may be thrown by the XmlDocument class.</remarks>
+</member><member name="M:EDKB04.XmlHelper.InsertNode(System.Xml.XmlNode,System.String[],System.Int32)">
+	<summary>
+ Inserts a node at the specified segment if it doesn't exist, otherwise
+ traverses the node.
+ </summary>
+	<param name="node">The current node.</param>
+	<param name="segments">The path segment list.</param>
+	<param name="idx">The current segment.</param>
+	<returns></returns>
+</member><member name="M:EDKB04.XmlHelper.CreateColumns(System.Data.DataTable,System.Xml.XmlNode)">
+	<summary>
+ Creates columns given an XmlNode.
+ </summary>
+	<param name="dt">The target DataTable.</param>
+	<param name="node">The source XmlNode.</param>
+</member>
+</members>
+</doc>

edkb04op/EDKB04OP/bin/Debug/EDKB04OP.vshost.exe.manifest

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+  <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+        <requestedExecutionLevel level="asInvoker" uiAccess="false"/>
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+</assembly>

edkb04op/EDKB04OP/bin/Debug/Error.txt

@@ -0,0 +1,11 @@
+Fehler: 26.07.2014 08:49:45 Text:BMS-Connection / XML: Die Datei oder Assembly "DataAccess, Version=2.0.2972.16650, Culture=neutral, PublicKeyToken=null" oder eine Abhängigkeit davon wurde nicht gefunden. Das System kann die angegebene Datei nicht finden.
+Fehler: 26.07.2014 08:50:39 Text:BMS-Connection / XML: Die Datei oder Assembly "DataAccess, Version=2.0.2972.16650, Culture=neutral, PublicKeyToken=null" oder eine Abhängigkeit davon wurde nicht gefunden. Das System kann die angegebene Datei nicht finden.
+Fehler: 26.07.2014 09:08:30 Text:BMS-Connection / XML: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
+Fehler: 26.07.2014 09:10:16 Text:BMS-Connection / XML: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
+Fehler: 26.07.2014 09:18:01 Text:BMS-Connection / XML: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
+Fehler: 26.07.2014 09:19:37 Text:BMS-Connection / XML: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
+Fehler: 26.07.2014 09:21:17 Text:BMS-Connection / XML: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
+Fehler: 26.07.2014 09:44:09 Text:BMS-Connection / XML: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
+Fehler: 26.07.2014 09:48:24 Text:BMS-Connection / XML: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
+Fehler: 26.07.2014 09:52:24 Text:BMS-Connection / XML: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt.
+Fehler: 26.07.2014 12:37:52 Text:BMS-Connection / XML: Der Verzeichnisname C:\Data\EDKB04\ ist ungültig.

edkb04op/EDKB04OP/bin/Debug/bms_conn.cfg

@@ -0,0 +1 @@
+¹µÈ¦rȽ¹¿¸ª‰¿­Çx…½³»É·¥¹u¨­À¦¾·¼‘–’¥¾©¿È®¿ÀeÅ­¸ÉÆ®ÆÎn­»»´‰’¦¾»ºË´ÄÀÁ¸®É®»ºe»¬’Ä¦µÀ³¸mȮƱ‚†xŽŠºÅºÀd¶¹‚¿­€Â©ÈÇ˴Ĺ‹nÀ½º~…€

edkb04op/EDKB04OP/bin/Debug/bms_settings.xml

@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<root>
+	<config>
+		<!-- The maximum duration a start job can take before a starter error occures -->
+		<MaximumStartDuration>1</MaximumStartDuration>
+
+		<!-- Check interval in minutes for starter -->
+		<StartJobInterval>2</StartJobInterval>
+
+		<!-- Check interval in minutes for watcher -->
+		<WatchJobInterval>2</WatchJobInterval>
+
+		<!-- The number of Starter-Errors notifications should be activated until the job runs successful next time -->
+		<MaxStarterNotifications>2</MaxStarterNotifications>
+		
+		<!-- The number of Watch-Errors notifications should be activated until the job runs successful next time -->
+		<MaxWatcherNotifications>3</MaxWatcherNotifications>
+
+		<!-- Name of the system event log where service should write his entries -->
+		<EventLogName>BMS</EventLogName>
+
+		<!-- The target where messages should be written to.
+		Valid log targets are:
+		- 1: System EventLog
+		- 2: Database EventLog table
+		 -->
+		<LogTarget>1</LogTarget>
+		
+		<!-- Mail Server to send eMails from BMS -->
+		<MailServer>server01</MailServer>
+		
+		<!-- Mail sender name -->
+		<MailFrom>bms@tkb.ch</MailFrom>
+		
+		<!-- Mail Server authentication method.
+		Valid methods are:
+		- 0: Anonymous
+		- 1: Basic Authentication (clear text authentication!)
+		 -->
+		<MailServerAuth>
+			<Method>0</Method>
+			<UserName>mailUser</UserName>
+			<Password>mailPassword</Password>
+		</MailServerAuth>
+	</config>
+</root>

edkb04op/EDKB04OP/bin/Debug/edokaconn.cfg

@@ -0,0 +1 @@
+Data Source=shu00;Initial Catalog=edoka;Persist Security Info=False;workstation id =;packet size=4096;User ID=sa;Password=*shu29

edkb04op/EDKB04OP/bin/Debug/journaleconn.cfg

@@ -0,0 +1 @@
+Data Source=shu00;Initial Catalog=edoka_journale;Persist Security Info=False;workstation id =;packet size=4096;User ID=sa;Password=*shu29

edkb04op/EDKB04OP/bin/Debug/parameter.cfg

@@ -0,0 +1,16 @@
+MQHostname =vb0049d
+MQPort =1416
+MQChannel =TGKB.D16.EDOKA.CL
+MQQueueName =test
+SqlTimeOut =500000
+CDMUTER =EDKB04
+MuterNr =9996
+WatchDir =D:\edoka\EDKB04\
+TimerIntervall =0
+Loop =false
+Debugmode =true
+DebugDir =d:\edoka\EDKB04\Archiv\
+DefaultBetreuerID =1166755
+nb_Errors =10
+nb_seconds =10
+len_TXADZ =35

edkb04op/EDKB04OP/bin/Release/EDKB04.exe.config

@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+    <system.diagnostics>
+        <sources>
+            <!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
+            <source name="DefaultSource" switchName="DefaultSwitch">
+                <listeners>
+                    <add name="FileLog"/>
+                    <!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
+                    <!--<add name="EventLog"/>-->
+                </listeners>
+            </source>
+        </sources>
+        <switches>
+            <add name="DefaultSwitch" value="Information"/>
+        </switches>
+        <sharedListeners>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+            <!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
+            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+        </sharedListeners>
+    </system.diagnostics>
+<startup><supportedRuntime version="v2.0.50727"/></startup></configuration>

edkb04op/EDKB04OP/bin/Release/EDKB04.vshost.exe.config

@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+    <system.diagnostics>
+        <sources>
+            <!-- Dieser Abschnitt definiert die Protokollierungskonfiguration für My.Application.Log -->
+            <source name="DefaultSource" switchName="DefaultSwitch">
+                <listeners>
+                    <add name="FileLog"/>
+                    <!-- Auskommentierung des nachfolgenden Abschnitts aufheben, um in das Anwendungsereignisprotokoll zu schreiben -->
+                    <!--<add name="EventLog"/>-->
+                </listeners>
+            </source>
+        </sources>
+        <switches>
+            <add name="DefaultSwitch" value="Information"/>
+        </switches>
+        <sharedListeners>
+            <add name="FileLog" type="Microsoft.VisualBasic.Logging.FileLogTraceListener, Microsoft.VisualBasic, Version=8.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a, processorArchitecture=MSIL" initializeData="FileLogWriter"/>
+            <!-- Auskommentierung des nachfolgenden Abschnitts aufheben und APPLICATION_NAME durch den Namen der Anwendung ersetzen, um in das Anwendungsereignisprotokoll zu schreiben -->
+            <!--<add name="EventLog" type="System.Diagnostics.EventLogTraceListener" initializeData="APPLICATION_NAME"/> -->
+        </sharedListeners>
+    </system.diagnostics>
+<startup><supportedRuntime version="v2.0.50727"/></startup></configuration>

edkb04op/EDKB04OP/bin/Release/EDKB04.vshost.exe.manifest

@@ -0,0 +1,11 @@
+<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
+<assembly xmlns="urn:schemas-microsoft-com:asm.v1" manifestVersion="1.0">
+  <assemblyIdentity version="1.0.0.0" name="MyApplication.app"/>
+  <trustInfo xmlns="urn:schemas-microsoft-com:asm.v2">
+    <security>
+      <requestedPrivileges xmlns="urn:schemas-microsoft-com:asm.v3">
+        <requestedExecutionLevel level="asInvoker" uiAccess="false"/>
+      </requestedPrivileges>
+    </security>
+  </trustInfo>
+</assembly>

edkb04op/EDKB04OP/bin/Release/EDKB04.xml

@@ -0,0 +1,305 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+EDKB04
+</name>
+</assembly>
+<members>
+<member name="P:EDKB04.My.Resources.Resources.ResourceManager">
+	<summary>
+  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+</summary>
+</member><member name="P:EDKB04.My.Resources.Resources.Culture">
+	<summary>
+  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+</summary>
+</member><member name="T:EDKB04.My.Resources.Resources">
+	<summary>
+  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+</summary>
+</member><member name="M:EDKB04.XmlHelper.GetAttributeValue(System.Xml.XmlNode@,System.String,System.String@)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Gets the value from an attribute at the specified node.
+ </summary>
+	<param name="node">The XmlNode from which this method will get the value of an attribute.</param>
+	<param name="attributeName">Name of the attribute that will be read.</param>
+	<param name="value">Attribute value read by this method</param>
+	<returns>True if node is found and value is retrieved successfully.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.GetAttributeValue(System.Xml.XmlNode@,System.String,System.Int32@)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Gets the value from an attribute at the specified node.
+ </summary>
+	<param name="node">The XmlNode from which this method will get the value of an attribute.</param>
+	<param name="attributeName">Name of the attribute that will be read.</param>
+	<param name="value">Attribute value read by this method</param>
+	<returns>True if success.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.GetAttributeValue(System.Xml.XmlNode@,System.String,System.UInt32@)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Gets the value from an attribute at the specified node.
+ </summary>
+	<param name="node">The XmlNode from which this method will get the value of an attribute.</param>
+	<param name="attributeName">Name of the attribute that will be read.</param>
+	<param name="value">Attribute value read by this method</param>
+	<returns>True if success.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.SetAttributeValue(System.Xml.XmlNode@,System.String,System.String)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Sets the value of an attribute for a given XmlNode.
+ </summary>
+	<param name="node">XmlNode whose attribute will be set.</param>
+	<param name="attributeName">Name of the attribute to set.</param>
+	<param name="value">Value to be set</param>
+	<returns>True if success.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.SetAttributeValue(System.Xml.XmlNode@,System.String,System.Int32)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Sets the value of an attribute for a given XmlNode.
+ </summary>
+	<param name="node">XmlNode whose attribute will be set.</param>
+	<param name="attributeName">Name of the attribute to set.</param>
+	<param name="value">Value to be set</param>
+	<returns>True if success.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.SetAttributeValue(System.Xml.XmlNode@,System.String,System.UInt32)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Sets the value of an attribute for a given XmlNode.
+ </summary>
+	<param name="node">XmlNode whose attribute will be set.</param>
+	<param name="attributeName">Name of the attribute to set.</param>
+	<param name="value">Value to be set</param>
+	<returns>True if success.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.GetDataTable(System.Xml.XmlNodeList@)">
+ -----------------------------------------------------------------------------
+ <summary>s 
+ Converts a list of Xml nodes to a DataTable.
+ </summary>
+	<param name="nodelist">List of Xml nodes</param>
+	<returns>DataTable</returns>
+	<remarks>
+ This method convert
+ </remarks>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.GetDataTable(System.Xml.XmlNodeList,System.String,System.Boolean)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Converts a list of Xml nodes to a DataTable and sets one of the columns as a primary key.
+ </summary>
+	<param name="nodelist"></param>
+	<param name="primaryKeyColumn"></param>
+	<param name="autoIncrement"></param>
+	<returns></returns>
+	<remarks>
+	</remarks>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.UpdateChildNodesWithDataTable(System.Xml.XmlNode,System.Data.DataTable,System.String)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Updates the child nodes of "parentNode" by using the fields from a datatable.
+ </summary>
+	<param name="parentNode"></param>
+	<param name="table"></param>
+	<param name="keyField"></param>
+	<remarks>
+ The child nodes that will be updated must have attribute fields that correspond to
+ the DataTable.  The "keyField" will be used to identify the attribute that serves as 
+ an identifier of the rows.  The datatable can have less fields than the nodes so
+ you have the chance to update smaller subsets.
+ Make sure that you did not call "AcceptChanges" before passing the datatable or this
+ function will not find any change.
+ </remarks>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.NodeToString(System.Xml.XmlNode@)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Returns contents of an XmlNode in a string.
+ </summary>
+	<param name="node">The XmlNode whose contents will be read into a string.</param>
+	<returns>Xml formatted string with contents of "node" parameter.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.NodeListToString(System.Xml.XmlNodeList)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Convert a XmlNodeList to string
+ </summary>
+	<param name="nodeList"></param>
+	<returns></returns>
+	<remarks>
+	</remarks>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.DocumentToString(System.Xml.XmlDocument@)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Method to convert a XmlDocument to string.
+ </summary>
+	<param name="xmlDoc">XmlDocument that will be converted to string.</param>
+	<returns>A xml formatted string.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.Insert(System.Xml.XmlDocument,System.String)">
+	<summary>
+ Inserts an empty record at the bottom of the hierarchy, creating the
+ tree as required.
+ </summary>
+	<param name="doc">The XmlDocument to which the node will be inserted.</param>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<returns>The XmlNode inserted into the hierarchy.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to insert an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Insert(System.Xml.XmlDocument,System.String,System.String[],System.String[])">
+	<summary>
+ Inserts an record with a multiple fields at the bottom of the hierarchy.
+ </summary>
+	<param name="doc">The XmlDocument to which the node will be inserted.</param>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<param name="fields">The attribute names that will be created for the node inserted.</param>
+	<param name="values">The corresponding value of each field.</param>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to insert an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Insert(System.Xml.XmlDocument,System.String,System.String,System.String)">
+	<summary>
+ Inserts a record with a single field at the bottom of the hierarchy.
+ </summary>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<param name="field">The field to add to the record.</param>
+	<param name="val">The value assigned to the field.</param>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to insert an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Insert(System.Xml.XmlDocument,System.String,System.Data.DataRow)">
+	<summary>
+ Inserts a record with multiple fields at bottom of the hierarchy.
+ </summary>
+	<param name="doc"></param>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<param name="rowValues">The DataRow values that will be added as attributes.</param>
+	<remarks>
+ The columns names of the DataRow will become the attribute names and 
+ the row values of the DataRow will be the attribute values.
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to insert an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Insert(System.Xml.XmlDocument,System.String,System.String,System.String[])">
+	<summary>
+ Inserts a record with multiple values at bottom of hierarchy. This is analogous to inserting 
+ a column of data.
+ </summary>
+	<param name="doc"></param>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<param name="field">Name of the attribute to be created at node inserted.</param>
+	<param name="values">Values that will be inserted that correspond to the field name.</param>
+	<remarks>
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to insert an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Update(System.Xml.XmlDocument,System.String,System.String,System.String)">
+	<summary>
+ Update a single field in all records in the specified path.
+ </summary>
+	<param name="doc">The XmlDocument whose node will be udpated.</param>
+	<param name="xpath">The xml path.</param>
+	<param name="field">The field name to update.</param>
+	<param name="val">The new value.</param>
+	<returns>The number of records affected.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to update an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Delete(System.Xml.XmlDocument,System.String)">
+	<summary>
+ Deletes all records of the specified path.
+ </summary>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<returns>The number of records deleted.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>Additional exceptions may be thrown by the XmlDocument class.</remarks>
+</member><member name="M:EDKB04.XmlHelper.QueryScalar(System.Xml.XmlDocument,System.String,System.String)">
+	<summary>
+ Return a single string representing the value of the specified field
+ for the first record encountered.
+ </summary>
+	<param name="xpath">The xml path.</param>
+	<param name="field">The desired field.</param>
+	<returns>A string with the field's value or null.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>Additional exceptions may be thrown by the XmlDocument class.</remarks>
+</member><member name="M:EDKB04.XmlHelper.Query(System.Xml.XmlDocument,System.String)">
+	<summary>
+ Returns a DataTable for all rows on the path.
+ </summary>
+	<param name="xpath">The xml path.</param>
+	<returns>The DataTable with the returned rows.
+ The row count will be 0 if no rows returned.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>Additional exceptions may be thrown by the XmlDocument class.</remarks>
+</member><member name="M:EDKB04.XmlHelper.QueryField(System.Xml.XmlDocument,System.String,System.String)">
+	<summary>
+ Returns an array of values for the specified field for all rows on
+ the path.
+ </summary>
+	<param name="xpath">The xml path.</param>
+	<param name="field">The desired field.</param>
+	<returns>The array of string values for each row qualified by the path.
+ A null is returned if the query results in 0 rows.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>Additional exceptions may be thrown by the XmlDocument class.</remarks>
+</member><member name="M:EDKB04.XmlHelper.InsertNode(System.Xml.XmlNode,System.String[],System.Int32)">
+	<summary>
+ Inserts a node at the specified segment if it doesn't exist, otherwise
+ traverses the node.
+ </summary>
+	<param name="node">The current node.</param>
+	<param name="segments">The path segment list.</param>
+	<param name="idx">The current segment.</param>
+	<returns></returns>
+</member><member name="M:EDKB04.XmlHelper.CreateColumns(System.Data.DataTable,System.Xml.XmlNode)">
+	<summary>
+ Creates columns given an XmlNode.
+ </summary>
+	<param name="dt">The target DataTable.</param>
+	<param name="node">The source XmlNode.</param>
+</member>
+</members>
+</doc>

edkb04op/EDKB04OP/bin/Release/bms_settings.xml

@@ -0,0 +1,46 @@
+<?xml version="1.0" encoding="utf-8" ?>
+<root>
+	<config>
+		<!-- The maximum duration a start job can take before a starter error occures -->
+		<MaximumStartDuration>1</MaximumStartDuration>
+
+		<!-- Check interval in minutes for starter -->
+		<StartJobInterval>2</StartJobInterval>
+
+		<!-- Check interval in minutes for watcher -->
+		<WatchJobInterval>2</WatchJobInterval>
+
+		<!-- The number of Starter-Errors notifications should be activated until the job runs successful next time -->
+		<MaxStarterNotifications>2</MaxStarterNotifications>
+		
+		<!-- The number of Watch-Errors notifications should be activated until the job runs successful next time -->
+		<MaxWatcherNotifications>3</MaxWatcherNotifications>
+
+		<!-- Name of the system event log where service should write his entries -->
+		<EventLogName>BMS</EventLogName>
+
+		<!-- The target where messages should be written to.
+		Valid log targets are:
+		- 1: System EventLog
+		- 2: Database EventLog table
+		 -->
+		<LogTarget>1</LogTarget>
+		
+		<!-- Mail Server to send eMails from BMS -->
+		<MailServer>server01</MailServer>
+		
+		<!-- Mail sender name -->
+		<MailFrom>bms@tkb.ch</MailFrom>
+		
+		<!-- Mail Server authentication method.
+		Valid methods are:
+		- 0: Anonymous
+		- 1: Basic Authentication (clear text authentication!)
+		 -->
+		<MailServerAuth>
+			<Method>0</Method>
+			<UserName>mailUser</UserName>
+			<Password>mailPassword</Password>
+		</MailServerAuth>
+	</config>
+</root>

edkb04op/EDKB04OP/clsParameter.vb

@@ -0,0 +1,226 @@
+Public Class ClsParameter
+
+#Region "Deklarationen"
+
+    Dim p_MQHostname As String
+    Public Property MQHostname() As String
+        Get
+            Return p_MQHostname
+        End Get
+        Set(ByVal value As String)
+            p_MQHostname = value
+        End Set
+    End Property
+
+    Dim p_MQPort As String
+    Public Property MQPort() As String
+        Get
+            Return p_MQPort
+        End Get
+        Set(ByVal value As String)
+            p_MQPort = value
+        End Set
+    End Property
+
+    Dim p_MQChannel As String
+    Public Property MQChannel() As String
+        Get
+            Return p_MQChannel
+        End Get
+        Set(ByVal value As String)
+            p_MQChannel = value
+        End Set
+    End Property
+
+    Dim p_MQQueueName As String
+    Public Property MQQueueName() As String
+        Get
+            Return p_MQQueueName
+        End Get
+        Set(ByVal value As String)
+            p_MQQueueName = value
+        End Set
+    End Property
+
+    Dim p_SqlTimeout As String
+    Public Property SqlTimeout() As String
+        Get
+            Return p_SqlTimeout
+        End Get
+        Set(ByVal value As String)
+            p_SqlTimeout = value
+        End Set
+    End Property
+
+    Dim p_CDMuter As String
+    Public Property CDMuter() As String
+        Get
+            Return p_CDMuter
+        End Get
+        Set(ByVal value As String)
+            p_CDMuter = value
+        End Set
+    End Property
+
+    Dim p_MuterNr As String
+    Public Property MuterNr() As String
+        Get
+            Return p_MuterNr
+        End Get
+        Set(ByVal value As String)
+            p_MuterNr = value
+        End Set
+    End Property
+
+    Dim p_Watchdir As String
+    Public Property Watchdir() As String
+        Get
+            Return p_Watchdir
+        End Get
+        Set(ByVal value As String)
+            p_Watchdir = value
+        End Set
+    End Property
+
+    Dim p_TimerInterval As String
+    Public Property TimerInterval() As String
+        Get
+            Return p_TimerInterval
+        End Get
+        Set(ByVal value As String)
+            p_TimerInterval = value
+        End Set
+    End Property
+
+    Dim p_LoopQueue As String
+    Public Property LoopQueue() As String
+        Get
+            Return p_LoopQueue
+        End Get
+        Set(ByVal value As String)
+            p_LoopQueue = value
+        End Set
+    End Property
+
+    Dim p_DebugMode As Boolean
+    Public Property DebugMode() As Boolean
+        Get
+            Return p_DebugMode
+        End Get
+        Set(ByVal value As Boolean)
+            p_DebugMode = value
+        End Set
+    End Property
+
+    Dim p_DebugDir As String
+    Public Property DebugDir() As String
+        Get
+            Return p_DebugDir
+        End Get
+        Set(ByVal value As String)
+            p_DebugDir = value
+        End Set
+    End Property
+
+    Dim p_DefaultBetreuerID As String
+    Public Property DefaultBetreuerID() As String
+        Get
+            Return p_DefaultBetreuerID
+        End Get
+        Set(ByVal value As String)
+            p_DefaultBetreuerID = value
+        End Set
+    End Property
+
+    Dim p_nb_errors As Integer
+    Public Property nb_errors() As Integer
+        Get
+            Return p_nb_errors
+        End Get
+        Set(ByVal value As Integer)
+            p_nb_errors = value
+        End Set
+    End Property
+
+    Dim p_nb_seconds As Integer
+    Public Property nb_seconds() As Integer
+        Get
+            Return p_nb_seconds
+        End Get
+        Set(ByVal value As Integer)
+            p_nb_seconds = value
+        End Set
+    End Property
+
+    Dim p_len_TXADZ As Integer
+    Public Property len_TXADZ() As Integer
+        Get
+            Return p_len_TXADZ
+        End Get
+        Set(ByVal value As Integer)
+            p_len_TXADZ = value
+        End Set
+    End Property
+
+    Dim m_writeeventlog As Boolean
+    Property WriteEventLog As Boolean
+        Get
+            Return m_writeeventlog
+        End Get
+        Set(value As Boolean)
+            m_writeeventlog = value
+        End Set
+    End Property
+#End Region
+
+    Public Function Loadparameters() As String
+        Try
+            WriteEventLog = False
+            m_log.Log("EDKB04: Loading Parameters", Common.Common.JournalEntryType.Information)
+            oread = IO.File.OpenText(appPath & "parameter.cfg")
+            Me.p_MQHostname = ParamValue(oread.ReadLine)
+            Me.p_MQPort = ParamValue(oread.ReadLine)
+            Me.p_MQChannel = ParamValue(oread.ReadLine)
+            Me.p_MQQueueName = ParamValue(oread.ReadLine)
+            Me.p_SqlTimeout = ParamValue(oread.ReadLine)
+            Me.p_CDMuter = ParamValue(oread.ReadLine)
+            Me.p_MuterNr = ParamValue(oread.ReadLine)
+            Me.p_Watchdir = ParamValue(oread.ReadLine)
+            Me.p_TimerInterval = ParamValue(oread.ReadLine)
+            Me.p_LoopQueue = ParamValue(oread.ReadLine)
+            Me.p_DebugMode = CBool(ParamValue(oread.ReadLine))
+            Me.p_DebugDir = ParamValue(oread.ReadLine)
+            Me.p_DefaultBetreuerID = ParamValue(oread.ReadLine)
+            Try
+                Me.p_nb_errors = CInt(ParamValue(oread.ReadLine))
+            Catch ex As Exception
+                ' Keine Zahl
+                Me.p_nb_errors = 999999
+            End Try
+            Try
+                Me.p_nb_seconds = CInt(ParamValue(oread.ReadLine))
+            Catch ex As Exception
+                'Keine Zahl
+                Me.p_nb_seconds = 1
+            End Try
+            Try
+                Me.p_len_TXADZ = CInt(ParamValue(oread.ReadLine))
+            Catch ex As Exception
+                'Keine Zahl
+                Me.p_len_TXADZ = 35
+            End Try
+            oread.Close()
+            m_log.Log("EDKB04: Loading Parameters Ended", Common.Common.JournalEntryType.Information)
+            Return ""
+        Catch ex As Exception
+            m_log.Log("EDKB04: Error Loading Params: " & ex.Message, Common.Common.JournalEntryType.Error)
+            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

edkb04op/EDKB04OP/clsconnectionprovider.vb

@@ -0,0 +1,289 @@
+' ///////////////////////////////////////////////////////////////////////////
+' // Description: Connection Provider class for Database connection sharing  
+' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 18. Mai 2003, 00:06:25
+' // This class implements IDisposable.
+' ///////////////////////////////////////////////////////////////////////////
+Imports System
+Imports System.Configuration
+Imports System.Data
+Imports System.Data.SqlClient
+Imports System.Collections
+
+Namespace edokadb
+    ' /// <summary>
+    ' /// Purpose: provides a SqlConnection object which can be shared among data-access tier objects
+    ' /// to provide a way to do ADO.NET transaction coding without the hassling with SqlConnection objects
+    ' /// on a high level.
+    ' /// </summary>
+    Public Class clsConnectionProvider
+        Implements IDisposable
+
+#Region " Class Member Declarations "
+
+        Private m_scoDBConnection As SqlConnection
+        Private m_bIsTransactionPending, m_bIsDisposed As Boolean
+        Private m_stCurrentTransaction As SqlTransaction
+        Private m_alSavePoints As ArrayList
+
+#End Region
+
+
+        Public Sub New()
+            ' // Init the class
+            InitClass()
+        End Sub
+
+
+        ' /// <summary>
+        ' /// Purpose: Implements the IDispose' method Dispose.
+        ' /// </summary>
+        Public Overloads Sub Dispose() Implements IDisposable.Dispose
+            Dispose(True)
+            GC.SuppressFinalize(Me)
+        End Sub
+
+
+        ' /// <summary>
+        ' /// Purpose: Implements the Dispose functionality.
+        ' /// </summary>
+        Protected Overridable Overloads Sub Dispose(ByVal bIsDisposing As Boolean)
+            ' // Check to see if Dispose has already been called.
+            If Not m_bIsDisposed Then
+                If bIsDisposing Then
+                    ' // Dispose managed resources.
+                    If Not (m_stCurrentTransaction Is Nothing) Then
+                        m_stCurrentTransaction.Dispose()
+                        m_stCurrentTransaction = Nothing
+                    End If
+                    If Not (m_scoDBConnection Is Nothing) Then
+                        ' // closing the connection will abort (rollback) any pending transactions
+                        m_scoDBConnection.Close()
+                        m_scoDBConnection.Dispose()
+                        m_scoDBConnection = Nothing
+                    End If
+                End If
+            End If
+            m_bIsDisposed = True
+        End Sub
+
+
+        ' /// <summary>
+        ' /// Purpose: Initializes class members.
+        ' /// </summary>
+        Private Sub InitClass()
+            ' // Create all the objects and initialize other members.
+            m_scoDBConnection = New SqlConnection()
+            m_bIsDisposed = False
+            m_stCurrentTransaction = Nothing
+            m_bIsTransactionPending = False
+            m_alSavePoints = New ArrayList()
+        End Sub
+
+
+        ' /// <summary>
+        ' /// Purpose: Opens the connection object.
+        ' /// </summary>
+        ' /// <returns>True, if succeeded, otherwise an Exception exception is thrown.</returns>
+        Public Function OpenConnection() As Boolean
+            Try
+                If (m_scoDBConnection.State And ConnectionState.Open) > 0 Then
+                    ' // It's already open.
+                    Throw New Exception("OpenConnection::Connection is already open.")
+                End If
+                m_scoDBConnection.Open()
+                m_bIsTransactionPending = False
+                m_alSavePoints.Clear()
+                Return True
+            Catch ex As Exception
+                ' // bubble exception
+                Throw ex
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: Starts a new ADO.NET transaction using the open connection object of this class.
+        ' /// </summary>
+        ' /// <param name="sTransactionName">Name of the transaction to start</param>
+        ' /// <returns>True, if transaction is started correctly, otherwise an Exception exception is thrown</returns>
+        Public Function BeginTransaction(ByVal sTransactionName As String) As Boolean
+            Try
+                If m_bIsTransactionPending Then
+                    ' // no nested transactions allowed.
+                    Throw New Exception("BeginTransaction::Already transaction pending. Nesting not allowed")
+                End If
+                If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
+                    ' // no open connection
+                    Throw New Exception("BeginTransaction::Connection is not open.")
+                End If
+                ' // begin the transaction and store the transaction object.
+                m_stCurrentTransaction = m_scoDBConnection.BeginTransaction(IsolationLevel.ReadCommitted, sTransactionName)
+                m_bIsTransactionPending = True
+                Return True
+            Catch ex As Exception
+                ' // bubble exception
+                Throw ex
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: Commits a pending transaction on the open connection object of this class.
+        ' /// </summary>
+        ' /// <returns>True, if commit was succesful, or an Exception exception is thrown</returns>
+        Public Function CommitTransaction() As Boolean
+            Try
+                If Not m_bIsTransactionPending Then
+                    ' // no transaction pending
+                    Throw New Exception("CommitTransaction::No transaction pending.")
+                End If
+                If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
+                    ' // no open connection
+                    Throw New Exception("CommitTransaction::Connection is not open.")
+                End If
+                ' // commit the transaction
+                m_stCurrentTransaction.Commit()
+                m_bIsTransactionPending = False
+                m_stCurrentTransaction.Dispose()
+                m_stCurrentTransaction = Nothing
+                m_alSavePoints.Clear()
+                Return True
+            Catch ex As Exception
+                ' // bubble exception
+                Throw ex
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: Rolls back a pending transaction on the open connection object of this class, 
+        ' /// or rolls back to the savepoint with the given name. Savepoints are created with SaveTransaction().
+        ' /// </summary>
+        ' /// <param name="sTransactionToRollback">Name of transaction to roll back. Can be name of savepoint</param>
+        ' /// <returns>True, if rollback was succesful, or an Exception exception is thrown</returns>
+        Public Function RollbackTransaction(ByVal sTransactionToRollback As String) As Boolean
+            Try
+                If Not m_bIsTransactionPending Then
+                    ' // no transaction pending
+                    Throw New Exception("RollbackTransaction::No transaction pending.")
+                End If
+                If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
+                    ' // no open connection
+                    Throw New Exception("RollbackTransaction::Connection is not open.")
+                End If
+                ' // rollback the transaction
+                m_stCurrentTransaction.Rollback(sTransactionToRollback)
+                ' // if this wasn't a savepoint, we've rolled back the complete transaction, so we
+                ' // can clean it up.
+                If Not m_alSavePoints.Contains(sTransactionToRollback) Then
+                    ' // it's not a savepoint
+                    m_bIsTransactionPending = False
+                    m_stCurrentTransaction.Dispose()
+                    m_stCurrentTransaction = Nothing
+                    m_alSavePoints.Clear()
+                End If
+                Return True
+            Catch ex As Exception
+                ' // bubble exception
+                Throw ex
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: Saves a pending transaction on the open connection object of this class to a 'savepoint'
+        ' /// with the given name.
+        ' /// When a rollback is issued, the caller can rollback to this savepoint or roll back the complete transaction.
+        ' /// </summary>
+        ' /// <param name="sSavePointName">Name of the savepoint to store the current transaction under.</param>
+        ' /// <returns>True, if save was succesful, or an Exception exception is thrown</returns>
+        Public Function SaveTransaction(ByVal sSavePointName As String) As Boolean
+            Try
+                If Not m_bIsTransactionPending Then
+                    ' // no transaction pending
+                    Throw New Exception("SaveTransaction::No transaction pending.")
+                End If
+                If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
+                    ' // no open connection
+                    Throw New Exception("SaveTransaction::Connection is not open.")
+                End If
+                ' // save the transaction
+                m_stCurrentTransaction.Save(sSavePointName)
+                ' // Store the savepoint in the list.
+                m_alSavePoints.Add(sSavePointName)
+                Return True
+            Catch ex As Exception
+                ' // bubble exception
+                Throw ex
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: Closes the open connection. Depending on bCommitPendingTransactions, a pending
+        ' /// transaction is commited, or aborted. 
+        ' /// </summary>
+        ' /// <param name="bCommitPendingTransaction">Flag for what to do when a transaction is still pending. True
+        ' /// will commit the current transaction, False will abort (rollback) the complete current transaction.</param>
+        ' /// <returns>True, if close was succesful, False if connection was already closed, or an Exception exception is thrown when
+        ' /// an error occurs</returns>
+        Public Function CloseConnection(ByVal bCommitPendingTransaction As Boolean) As Boolean
+            Try
+                If (m_scoDBConnection.State And ConnectionState.Open) = 0 Then
+                    ' // No open connection
+                    Return False
+                End If
+                If m_bIsTransactionPending Then
+                    If bCommitPendingTransaction Then
+                        ' // Commit the pending transaction
+                        m_stCurrentTransaction.Commit()
+                    Else
+                        ' // Rollback the pending transaction
+                        m_stCurrentTransaction.Rollback()
+                    End If
+                    m_bIsTransactionPending = False
+                    m_stCurrentTransaction.Dispose()
+                    m_stCurrentTransaction = Nothing
+                    m_alSavePoints.Clear()
+                End If
+                ' // close the connection
+                m_scoDBConnection.Close()
+                Return True
+            Catch ex As Exception
+                ' // bubble exception
+                Throw ex
+            End Try
+        End Function
+
+
+#Region " Class Property Declarations "
+
+        Public ReadOnly Property stCurrentTransaction() As SqlTransaction
+            Get
+                Return m_stCurrentTransaction
+            End Get
+        End Property
+
+
+        Public ReadOnly Property bIsTransactionPending() As Boolean
+            Get
+                Return m_bIsTransactionPending
+            End Get
+        End Property
+
+
+        Public ReadOnly Property scoDBConnection() As SqlConnection
+            Get
+                Return m_scoDBConnection
+            End Get
+        End Property
+        Public WriteOnly Property sConnectionString() As String
+            Set(ByVal Value As String)
+                m_scoDBConnection.ConnectionString = Value
+            End Set
+        End Property
+
+#End Region
+
+    End Class
+End Namespace

edkb04op/EDKB04OP/db_connection.vb

@@ -0,0 +1,36 @@
+Imports System.ComponentModel
+Imports Microsoft.VisualBasic
+
+Public Class DB_Connection
+    Shared Sub New()
+        Try
+            'Edoka
+            oread = IO.File.OpenText(appPath + "edokaconn.cfg")
+            sConnectionString_edoka = oread.ReadLine
+            Globals.sConnectionString_edoka = sConnectionString_edoka
+            oread.Close()
+
+            'Journale
+            oread = IO.File.OpenText(appPath + "journaleconn.cfg")
+            sConnectionString_journale = oread.ReadLine
+            Globals.sConnectionString_journale = sConnectionString_journale
+            oread.Close()
+
+            ''tgdata
+            'oread = IO.File.OpenText(appPath + "tgdataconn.cfg")
+            'sConnectionString_tgdata = oread.ReadLine
+            'Globals.sConnectionString_tgdata = sConnectionString_tgdata
+            'oread.Close()
+
+            Globals.conn_edoka.sConnectionString = sConnectionString_edoka
+            Globals.conn_journale.sConnectionString = sConnectionString_journale
+            'Globals.conn_tgdata.sConnectionString = sConnectionString_tgdata
+            m_log.Log("EDKB04: DB-Connection OK", Common.Common.JournalEntryType.Information)
+        Catch ex As Exception
+            m_log.Log(ex.Message, Common.Common.JournalEntryType.Error)
+        End Try
+
+    End Sub
+
+End Class
+

edkb04op/EDKB04OP/obj/Debug/EDKB04.xml

@@ -0,0 +1,305 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+EDKB04
+</name>
+</assembly>
+<members>
+<member name="P:EDKB04.My.Resources.Resources.ResourceManager">
+	<summary>
+  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+</summary>
+</member><member name="P:EDKB04.My.Resources.Resources.Culture">
+	<summary>
+  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+</summary>
+</member><member name="T:EDKB04.My.Resources.Resources">
+	<summary>
+  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+</summary>
+</member><member name="M:EDKB04.XmlHelper.GetAttributeValue(System.Xml.XmlNode@,System.String,System.String@)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Gets the value from an attribute at the specified node.
+ </summary>
+	<param name="node">The XmlNode from which this method will get the value of an attribute.</param>
+	<param name="attributeName">Name of the attribute that will be read.</param>
+	<param name="value">Attribute value read by this method</param>
+	<returns>True if node is found and value is retrieved successfully.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.GetAttributeValue(System.Xml.XmlNode@,System.String,System.Int32@)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Gets the value from an attribute at the specified node.
+ </summary>
+	<param name="node">The XmlNode from which this method will get the value of an attribute.</param>
+	<param name="attributeName">Name of the attribute that will be read.</param>
+	<param name="value">Attribute value read by this method</param>
+	<returns>True if success.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.GetAttributeValue(System.Xml.XmlNode@,System.String,System.UInt32@)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Gets the value from an attribute at the specified node.
+ </summary>
+	<param name="node">The XmlNode from which this method will get the value of an attribute.</param>
+	<param name="attributeName">Name of the attribute that will be read.</param>
+	<param name="value">Attribute value read by this method</param>
+	<returns>True if success.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.SetAttributeValue(System.Xml.XmlNode@,System.String,System.String)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Sets the value of an attribute for a given XmlNode.
+ </summary>
+	<param name="node">XmlNode whose attribute will be set.</param>
+	<param name="attributeName">Name of the attribute to set.</param>
+	<param name="value">Value to be set</param>
+	<returns>True if success.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.SetAttributeValue(System.Xml.XmlNode@,System.String,System.Int32)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Sets the value of an attribute for a given XmlNode.
+ </summary>
+	<param name="node">XmlNode whose attribute will be set.</param>
+	<param name="attributeName">Name of the attribute to set.</param>
+	<param name="value">Value to be set</param>
+	<returns>True if success.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.SetAttributeValue(System.Xml.XmlNode@,System.String,System.UInt32)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Sets the value of an attribute for a given XmlNode.
+ </summary>
+	<param name="node">XmlNode whose attribute will be set.</param>
+	<param name="attributeName">Name of the attribute to set.</param>
+	<param name="value">Value to be set</param>
+	<returns>True if success.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.GetDataTable(System.Xml.XmlNodeList@)">
+ -----------------------------------------------------------------------------
+ <summary>s 
+ Converts a list of Xml nodes to a DataTable.
+ </summary>
+	<param name="nodelist">List of Xml nodes</param>
+	<returns>DataTable</returns>
+	<remarks>
+ This method convert
+ </remarks>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.GetDataTable(System.Xml.XmlNodeList,System.String,System.Boolean)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Converts a list of Xml nodes to a DataTable and sets one of the columns as a primary key.
+ </summary>
+	<param name="nodelist"></param>
+	<param name="primaryKeyColumn"></param>
+	<param name="autoIncrement"></param>
+	<returns></returns>
+	<remarks>
+	</remarks>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.UpdateChildNodesWithDataTable(System.Xml.XmlNode,System.Data.DataTable,System.String)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Updates the child nodes of "parentNode" by using the fields from a datatable.
+ </summary>
+	<param name="parentNode"></param>
+	<param name="table"></param>
+	<param name="keyField"></param>
+	<remarks>
+ The child nodes that will be updated must have attribute fields that correspond to
+ the DataTable.  The "keyField" will be used to identify the attribute that serves as 
+ an identifier of the rows.  The datatable can have less fields than the nodes so
+ you have the chance to update smaller subsets.
+ Make sure that you did not call "AcceptChanges" before passing the datatable or this
+ function will not find any change.
+ </remarks>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.NodeToString(System.Xml.XmlNode@)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Returns contents of an XmlNode in a string.
+ </summary>
+	<param name="node">The XmlNode whose contents will be read into a string.</param>
+	<returns>Xml formatted string with contents of "node" parameter.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.NodeListToString(System.Xml.XmlNodeList)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Convert a XmlNodeList to string
+ </summary>
+	<param name="nodeList"></param>
+	<returns></returns>
+	<remarks>
+	</remarks>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.DocumentToString(System.Xml.XmlDocument@)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Method to convert a XmlDocument to string.
+ </summary>
+	<param name="xmlDoc">XmlDocument that will be converted to string.</param>
+	<returns>A xml formatted string.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.Insert(System.Xml.XmlDocument,System.String)">
+	<summary>
+ Inserts an empty record at the bottom of the hierarchy, creating the
+ tree as required.
+ </summary>
+	<param name="doc">The XmlDocument to which the node will be inserted.</param>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<returns>The XmlNode inserted into the hierarchy.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to insert an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Insert(System.Xml.XmlDocument,System.String,System.String[],System.String[])">
+	<summary>
+ Inserts an record with a multiple fields at the bottom of the hierarchy.
+ </summary>
+	<param name="doc">The XmlDocument to which the node will be inserted.</param>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<param name="fields">The attribute names that will be created for the node inserted.</param>
+	<param name="values">The corresponding value of each field.</param>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to insert an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Insert(System.Xml.XmlDocument,System.String,System.String,System.String)">
+	<summary>
+ Inserts a record with a single field at the bottom of the hierarchy.
+ </summary>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<param name="field">The field to add to the record.</param>
+	<param name="val">The value assigned to the field.</param>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to insert an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Insert(System.Xml.XmlDocument,System.String,System.Data.DataRow)">
+	<summary>
+ Inserts a record with multiple fields at bottom of the hierarchy.
+ </summary>
+	<param name="doc"></param>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<param name="rowValues">The DataRow values that will be added as attributes.</param>
+	<remarks>
+ The columns names of the DataRow will become the attribute names and 
+ the row values of the DataRow will be the attribute values.
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to insert an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Insert(System.Xml.XmlDocument,System.String,System.String,System.String[])">
+	<summary>
+ Inserts a record with multiple values at bottom of hierarchy. This is analogous to inserting 
+ a column of data.
+ </summary>
+	<param name="doc"></param>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<param name="field">Name of the attribute to be created at node inserted.</param>
+	<param name="values">Values that will be inserted that correspond to the field name.</param>
+	<remarks>
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to insert an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Update(System.Xml.XmlDocument,System.String,System.String,System.String)">
+	<summary>
+ Update a single field in all records in the specified path.
+ </summary>
+	<param name="doc">The XmlDocument whose node will be udpated.</param>
+	<param name="xpath">The xml path.</param>
+	<param name="field">The field name to update.</param>
+	<param name="val">The new value.</param>
+	<returns>The number of records affected.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to update an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Delete(System.Xml.XmlDocument,System.String)">
+	<summary>
+ Deletes all records of the specified path.
+ </summary>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<returns>The number of records deleted.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>Additional exceptions may be thrown by the XmlDocument class.</remarks>
+</member><member name="M:EDKB04.XmlHelper.QueryScalar(System.Xml.XmlDocument,System.String,System.String)">
+	<summary>
+ Return a single string representing the value of the specified field
+ for the first record encountered.
+ </summary>
+	<param name="xpath">The xml path.</param>
+	<param name="field">The desired field.</param>
+	<returns>A string with the field's value or null.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>Additional exceptions may be thrown by the XmlDocument class.</remarks>
+</member><member name="M:EDKB04.XmlHelper.Query(System.Xml.XmlDocument,System.String)">
+	<summary>
+ Returns a DataTable for all rows on the path.
+ </summary>
+	<param name="xpath">The xml path.</param>
+	<returns>The DataTable with the returned rows.
+ The row count will be 0 if no rows returned.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>Additional exceptions may be thrown by the XmlDocument class.</remarks>
+</member><member name="M:EDKB04.XmlHelper.QueryField(System.Xml.XmlDocument,System.String,System.String)">
+	<summary>
+ Returns an array of values for the specified field for all rows on
+ the path.
+ </summary>
+	<param name="xpath">The xml path.</param>
+	<param name="field">The desired field.</param>
+	<returns>The array of string values for each row qualified by the path.
+ A null is returned if the query results in 0 rows.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>Additional exceptions may be thrown by the XmlDocument class.</remarks>
+</member><member name="M:EDKB04.XmlHelper.InsertNode(System.Xml.XmlNode,System.String[],System.Int32)">
+	<summary>
+ Inserts a node at the specified segment if it doesn't exist, otherwise
+ traverses the node.
+ </summary>
+	<param name="node">The current node.</param>
+	<param name="segments">The path segment list.</param>
+	<param name="idx">The current segment.</param>
+	<returns></returns>
+</member><member name="M:EDKB04.XmlHelper.CreateColumns(System.Data.DataTable,System.Xml.XmlNode)">
+	<summary>
+ Creates columns given an XmlNode.
+ </summary>
+	<param name="dt">The target DataTable.</param>
+	<param name="node">The source XmlNode.</param>
+</member>
+</members>
+</doc>

edkb04op/EDKB04OP/obj/Debug/EDKB04OP.vbproj.FileListAbsolute.txt

@@ -0,0 +1,10 @@
+E:\Software-Projekte\EDOKA\batch\EDKB04OP\EDKB04OP\obj\Debug\EDKB04OP.vbproj.GenerateResource.Cache
+E:\Software-Projekte\EDOKA\batch\EDKB04OP\EDKB04OP\bin\Debug\EDKB04.exe
+E:\Software-Projekte\EDOKA\batch\EDKB04OP\EDKB04OP\bin\Debug\EDKB04.pdb
+E:\Software-Projekte\EDOKA\batch\EDKB04OP\EDKB04OP\bin\Debug\EDKB04.xml
+E:\Software-Projekte\EDOKA\batch\EDKB04OP\EDKB04OP\obj\Debug\EDKB04.Resources.resources
+E:\Software-Projekte\EDOKA\batch\EDKB04OP\EDKB04OP\obj\Debug\EDKB04.exe
+E:\Software-Projekte\EDOKA\batch\EDKB04OP\EDKB04OP\obj\Debug\EDKB04.xml
+E:\Software-Projekte\EDOKA\batch\EDKB04OP\EDKB04OP\obj\Debug\EDKB04.pdb
+E:\Software-Projekte\EDOKA\batch\EDKB04OP\EDKB04OP\bin\Debug\EDKB04.exe.config
+E:\Software-Projekte\EDOKA\batch\edkb04op\EDKB04OP\obj\Debug\EDKB04.ProjectInstaller.resources

edkb04op/EDKB04OP/obj/Release/CoreCompileInputs.cache

@@ -0,0 +1 @@
+1298b83552e96d9bacb8314380c1194667ea8259

edkb04op/EDKB04OP/obj/Release/EDKB04.xml

@@ -0,0 +1,305 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+EDKB04
+</name>
+</assembly>
+<members>
+<member name="P:EDKB04.My.Resources.Resources.ResourceManager">
+	<summary>
+  Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
+</summary>
+</member><member name="P:EDKB04.My.Resources.Resources.Culture">
+	<summary>
+  Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
+  Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
+</summary>
+</member><member name="T:EDKB04.My.Resources.Resources">
+	<summary>
+  Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
+</summary>
+</member><member name="M:EDKB04.XmlHelper.GetAttributeValue(System.Xml.XmlNode@,System.String,System.String@)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Gets the value from an attribute at the specified node.
+ </summary>
+	<param name="node">The XmlNode from which this method will get the value of an attribute.</param>
+	<param name="attributeName">Name of the attribute that will be read.</param>
+	<param name="value">Attribute value read by this method</param>
+	<returns>True if node is found and value is retrieved successfully.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.GetAttributeValue(System.Xml.XmlNode@,System.String,System.Int32@)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Gets the value from an attribute at the specified node.
+ </summary>
+	<param name="node">The XmlNode from which this method will get the value of an attribute.</param>
+	<param name="attributeName">Name of the attribute that will be read.</param>
+	<param name="value">Attribute value read by this method</param>
+	<returns>True if success.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.GetAttributeValue(System.Xml.XmlNode@,System.String,System.UInt32@)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Gets the value from an attribute at the specified node.
+ </summary>
+	<param name="node">The XmlNode from which this method will get the value of an attribute.</param>
+	<param name="attributeName">Name of the attribute that will be read.</param>
+	<param name="value">Attribute value read by this method</param>
+	<returns>True if success.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.SetAttributeValue(System.Xml.XmlNode@,System.String,System.String)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Sets the value of an attribute for a given XmlNode.
+ </summary>
+	<param name="node">XmlNode whose attribute will be set.</param>
+	<param name="attributeName">Name of the attribute to set.</param>
+	<param name="value">Value to be set</param>
+	<returns>True if success.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.SetAttributeValue(System.Xml.XmlNode@,System.String,System.Int32)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Sets the value of an attribute for a given XmlNode.
+ </summary>
+	<param name="node">XmlNode whose attribute will be set.</param>
+	<param name="attributeName">Name of the attribute to set.</param>
+	<param name="value">Value to be set</param>
+	<returns>True if success.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.SetAttributeValue(System.Xml.XmlNode@,System.String,System.UInt32)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Sets the value of an attribute for a given XmlNode.
+ </summary>
+	<param name="node">XmlNode whose attribute will be set.</param>
+	<param name="attributeName">Name of the attribute to set.</param>
+	<param name="value">Value to be set</param>
+	<returns>True if success.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.GetDataTable(System.Xml.XmlNodeList@)">
+ -----------------------------------------------------------------------------
+ <summary>s 
+ Converts a list of Xml nodes to a DataTable.
+ </summary>
+	<param name="nodelist">List of Xml nodes</param>
+	<returns>DataTable</returns>
+	<remarks>
+ This method convert
+ </remarks>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.GetDataTable(System.Xml.XmlNodeList,System.String,System.Boolean)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Converts a list of Xml nodes to a DataTable and sets one of the columns as a primary key.
+ </summary>
+	<param name="nodelist"></param>
+	<param name="primaryKeyColumn"></param>
+	<param name="autoIncrement"></param>
+	<returns></returns>
+	<remarks>
+	</remarks>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.UpdateChildNodesWithDataTable(System.Xml.XmlNode,System.Data.DataTable,System.String)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Updates the child nodes of "parentNode" by using the fields from a datatable.
+ </summary>
+	<param name="parentNode"></param>
+	<param name="table"></param>
+	<param name="keyField"></param>
+	<remarks>
+ The child nodes that will be updated must have attribute fields that correspond to
+ the DataTable.  The "keyField" will be used to identify the attribute that serves as 
+ an identifier of the rows.  The datatable can have less fields than the nodes so
+ you have the chance to update smaller subsets.
+ Make sure that you did not call "AcceptChanges" before passing the datatable or this
+ function will not find any change.
+ </remarks>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.NodeToString(System.Xml.XmlNode@)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Returns contents of an XmlNode in a string.
+ </summary>
+	<param name="node">The XmlNode whose contents will be read into a string.</param>
+	<returns>Xml formatted string with contents of "node" parameter.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.NodeListToString(System.Xml.XmlNodeList)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Convert a XmlNodeList to string
+ </summary>
+	<param name="nodeList"></param>
+	<returns></returns>
+	<remarks>
+	</remarks>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.DocumentToString(System.Xml.XmlDocument@)">
+ -----------------------------------------------------------------------------
+ <summary>
+ Method to convert a XmlDocument to string.
+ </summary>
+	<param name="xmlDoc">XmlDocument that will be converted to string.</param>
+	<returns>A xml formatted string.</returns>
+ -----------------------------------------------------------------------------
+
+</member><member name="M:EDKB04.XmlHelper.Insert(System.Xml.XmlDocument,System.String)">
+	<summary>
+ Inserts an empty record at the bottom of the hierarchy, creating the
+ tree as required.
+ </summary>
+	<param name="doc">The XmlDocument to which the node will be inserted.</param>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<returns>The XmlNode inserted into the hierarchy.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to insert an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Insert(System.Xml.XmlDocument,System.String,System.String[],System.String[])">
+	<summary>
+ Inserts an record with a multiple fields at the bottom of the hierarchy.
+ </summary>
+	<param name="doc">The XmlDocument to which the node will be inserted.</param>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<param name="fields">The attribute names that will be created for the node inserted.</param>
+	<param name="values">The corresponding value of each field.</param>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to insert an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Insert(System.Xml.XmlDocument,System.String,System.String,System.String)">
+	<summary>
+ Inserts a record with a single field at the bottom of the hierarchy.
+ </summary>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<param name="field">The field to add to the record.</param>
+	<param name="val">The value assigned to the field.</param>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to insert an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Insert(System.Xml.XmlDocument,System.String,System.Data.DataRow)">
+	<summary>
+ Inserts a record with multiple fields at bottom of the hierarchy.
+ </summary>
+	<param name="doc"></param>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<param name="rowValues">The DataRow values that will be added as attributes.</param>
+	<remarks>
+ The columns names of the DataRow will become the attribute names and 
+ the row values of the DataRow will be the attribute values.
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to insert an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Insert(System.Xml.XmlDocument,System.String,System.String,System.String[])">
+	<summary>
+ Inserts a record with multiple values at bottom of hierarchy. This is analogous to inserting 
+ a column of data.
+ </summary>
+	<param name="doc"></param>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<param name="field">Name of the attribute to be created at node inserted.</param>
+	<param name="values">Values that will be inserted that correspond to the field name.</param>
+	<remarks>
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to insert an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Update(System.Xml.XmlDocument,System.String,System.String,System.String)">
+	<summary>
+ Update a single field in all records in the specified path.
+ </summary>
+	<param name="doc">The XmlDocument whose node will be udpated.</param>
+	<param name="xpath">The xml path.</param>
+	<param name="field">The field name to update.</param>
+	<param name="val">The new value.</param>
+	<returns>The number of records affected.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>
+ The "doc" variable must have a root node.  The path should not contain the root node.
+ The path can contain only the node names or it can contain attributes in XPath query form.
+ For example to update an "Address" node at the bottom, the following is a valid xpath query
+     xpath = "University[@Name='UT']/Student[@Id=12222]/Address"
+ </remarks>
+</member><member name="M:EDKB04.XmlHelper.Delete(System.Xml.XmlDocument,System.String)">
+	<summary>
+ Deletes all records of the specified path.
+ </summary>
+	<param name="xpath">The xml XPath query to get to the bottom node.</param>
+	<returns>The number of records deleted.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>Additional exceptions may be thrown by the XmlDocument class.</remarks>
+</member><member name="M:EDKB04.XmlHelper.QueryScalar(System.Xml.XmlDocument,System.String,System.String)">
+	<summary>
+ Return a single string representing the value of the specified field
+ for the first record encountered.
+ </summary>
+	<param name="xpath">The xml path.</param>
+	<param name="field">The desired field.</param>
+	<returns>A string with the field's value or null.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>Additional exceptions may be thrown by the XmlDocument class.</remarks>
+</member><member name="M:EDKB04.XmlHelper.Query(System.Xml.XmlDocument,System.String)">
+	<summary>
+ Returns a DataTable for all rows on the path.
+ </summary>
+	<param name="xpath">The xml path.</param>
+	<returns>The DataTable with the returned rows.
+ The row count will be 0 if no rows returned.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>Additional exceptions may be thrown by the XmlDocument class.</remarks>
+</member><member name="M:EDKB04.XmlHelper.QueryField(System.Xml.XmlDocument,System.String,System.String)">
+	<summary>
+ Returns an array of values for the specified field for all rows on
+ the path.
+ </summary>
+	<param name="xpath">The xml path.</param>
+	<param name="field">The desired field.</param>
+	<returns>The array of string values for each row qualified by the path.
+ A null is returned if the query results in 0 rows.</returns>
+	<exception cref="T:System.ArgumentNullException">Thrown when an argument is null.</exception>
+	<remarks>Additional exceptions may be thrown by the XmlDocument class.</remarks>
+</member><member name="M:EDKB04.XmlHelper.InsertNode(System.Xml.XmlNode,System.String[],System.Int32)">
+	<summary>
+ Inserts a node at the specified segment if it doesn't exist, otherwise
+ traverses the node.
+ </summary>
+	<param name="node">The current node.</param>
+	<param name="segments">The path segment list.</param>
+	<param name="idx">The current segment.</param>
+	<returns></returns>
+</member><member name="M:EDKB04.XmlHelper.CreateColumns(System.Data.DataTable,System.Xml.XmlNode)">
+	<summary>
+ Creates columns given an XmlNode.
+ </summary>
+	<param name="dt">The target DataTable.</param>
+	<param name="node">The source XmlNode.</param>
+</member>
+</members>
+</doc>

edkb04op/EDKB04OP/obj/Release/EDKB04OP.vbproj.FileListAbsolute.txt

@@ -0,0 +1,18 @@
+E:\Software-Projekte\EDOKA\batch\EDKB10\BMS\BMSDll\obj\Release\EDKB04.exe
+E:\Software-Projekte\EDOKA\batch\EDKB10\BMS\BMSDll\obj\Release\EDKB04.xml
+E:\Software-Projekte\EDOKA\batch\EDKB10\BMS\BMSDll\obj\Release\EDKB04.pdb
+E:\Software-Projekte\EDOKA\batch\edkb04op\EDKB04OP\obj\Release\EDKB04.Resources.resources
+E:\Software-Projekte\EDOKA\batch\edkb04op\EDKB04OP\obj\Release\EDKB04OP.vbproj.GenerateResource.Cache
+E:\Software-Projekte\EDOKA\batch\edkb04op\EDKB04OP\bin\Release\EDKB04.exe.config
+E:\Software-Projekte\EDOKA\batch\edkb04op\EDKB04OP\obj\Release\EDKB04OP.vbprojResolveAssemblyReference.cache
+E:\Software-Projekte\EDOKA\batch\edkb04op\EDKB04OP\bin\Release\EDKB04.exe
+E:\Software-Projekte\EDOKA\batch\edkb04op\EDKB04OP\bin\Release\EDKB04.pdb
+E:\Software-Projekte\EDOKA\batch\edkb04op\EDKB04OP\bin\Release\EDKB04.xml
+E:\Software-Projekte\EDOKA\batch\edkb04op\EDKB04OP\bin\Release\amqmdnet.dll
+E:\Software-Projekte\EDOKA\batch\edkb04op\EDKB04OP\obj\Release\EDKB04.exe
+E:\Software-Projekte\EDOKA\batch\edkb04op\EDKB04OP\obj\Release\EDKB04.xml
+E:\Software-Projekte\EDOKA\batch\edkb04op\EDKB04OP\obj\Release\EDKB04.pdb
+E:\Software-Projekte\EDOKA\batch\edkb04op\EDKB04OP\bin\Release\BMS.dll
+E:\Software-Projekte\EDOKA\batch\edkb04op\EDKB04OP\bin\Release\Common.dll
+E:\Software-Projekte\EDOKA\batch\edkb04op\EDKB04OP\bin\Release\DataAccess.dll
+E:\Software-Projekte\EDOKA\batch\edkb04op\EDKB04OP\obj\Release\EDKB04.ProjectInstaller.resources