Initial commit

EDKB18/Batch/EDKB18/EDKB18.sln

@@ -0,0 +1,25 @@
+
+Microsoft Visual Studio Solution File, Format Version 12.00
+# Visual Studio 15
+VisualStudioVersion = 15.0.27428.2015
+MinimumVisualStudioVersion = 10.0.40219.1
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDKB18", "EDKB18\EDKB18.vbproj", "{8610971F-05E9-4658-998F-04400B48C873}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{8610971F-05E9-4658-998F-04400B48C873}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{8610971F-05E9-4658-998F-04400B48C873}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{8610971F-05E9-4658-998F-04400B48C873}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{8610971F-05E9-4658-998F-04400B48C873}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+	GlobalSection(ExtensibilityGlobals) = postSolution
+		SolutionGuid = {F801CC68-4F5E-4229-9714-674B4294FE2A}
+	EndGlobalSection
+EndGlobal

EDKB18/Batch/EDKB18/EDKB18/App.config

@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+  <configSections>
+    <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+      <section name="EDKB18.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
+    </sectionGroup>
+  </configSections>
+  <startup>
+    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
+  </startup>
+  <userSettings>
+    <EDKB18.My.MySettings>
+      <setting name="ConnINT" serializeAs="String">
+        <value>data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
+      </setting>
+      <setting name="ConnProd" serializeAs="String">
+        <value>data source=shu00;initial catalog=edoka_test;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
+      </setting>
+      <setting name="Vorlagenverzeichnis" serializeAs="String">
+        <value>k:\edoka\edkb18</value>
+      </setting>
+      <setting name="ConnJournale" serializeAs="String">
+        <value>data source=shu00;initial catalog=edoka_Journale;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
+      </setting>
+      <setting name="Check_Timerintervall" serializeAs="String">
+        <value>20000</value>
+      </setting>
+      <setting name="Debug" serializeAs="String">
+        <value>False</value>
+      </setting>
+    </EDKB18.My.MySettings>
+  </userSettings>
+</configuration>

EDKB18/Batch/EDKB18/EDKB18/EDKB18.vbproj

@@ -0,0 +1,116 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project ToolsVersion="15.0" 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>{8610971F-05E9-4658-998F-04400B48C873}</ProjectGuid>
+    <OutputType>Exe</OutputType>
+    <StartupObject>EDKB18.Module1</StartupObject>
+    <RootNamespace>EDKB18</RootNamespace>
+    <AssemblyName>EDKB18</AssemblyName>
+    <FileAlignment>512</FileAlignment>
+    <MyType>Console</MyType>
+    <TargetFrameworkVersion>v4.5</TargetFrameworkVersion>
+  </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>EDKB18.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>EDKB18.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="System" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.Xml" />
+    <Reference Include="System.Core" />
+    <Reference Include="System.Xml.Linq" />
+    <Reference Include="System.Data.DataSetExtensions" />
+    <Reference Include="System.Net.Http" />
+  </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" />
+    <Import Include="System.Threading.Tasks" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="clsdb.vb" />
+    <Compile Include="clsdms.vb" />
+    <Compile Include="clsJournale.vb" />
+    <Compile Include="db\clsConnectionProvider.vb" />
+    <Compile Include="db\clsDBInteractionBase.vb" />
+    <Compile Include="db\clsOffice_vorlage.vb" />
+    <Compile Include="db\clsOffice_Vorlage_Datei.vb" />
+    <Compile Include="Globals.vb" />
+    <Compile Include="Module1.vb" />
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <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>
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <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>
+    <None Include="App.config" />
+  </ItemGroup>
+  <Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
+</Project>

EDKB18/Batch/EDKB18/EDKB18/Globals.vb

@@ -0,0 +1,29 @@
+Module Globals
+
+    Public ofile As System.IO.File
+    Public oread As System.IO.StreamReader
+
+    Public conn As New edokaDB.clsConnectionProvider()
+    Public Journal As New clsJournal
+
+    Public Sub PrintOut(ByVal s As String)
+        'Console.WriteLine(Format(Now, "yyyyMMddHHmmss") + ": " + s)
+        PrintLog(Format(Now, "yyyyMMddHHmmss") + ": " + s, EventLogEntryType.Information)
+    End Sub
+
+    Dim EVLog As New EventLog("Log_EDKB18")
+    Public Sub PrintLog(ByVal message As String, Optional ByVal eventmessage As EventLogEntryType = EventLogEntryType.Information)
+#If CONFIG = "Release" Then  'Release
+        If Not EventLog.SourceExists("EDKB18") Then
+            EventLog.CreateEventSource("EDKB18", "EDKB18 Log")
+        End If
+        EVLog.Source = "EDKB18 Log"
+
+        EventLog.WriteEntry(EVLog.Source, message, eventmessage)
+#Else
+        Debug.Print(message)
+#End If
+
+    End Sub
+
+End Module

EDKB18/Batch/EDKB18/EDKB18/Module1.vb

@@ -0,0 +1,55 @@
+Imports System.IO
+
+Module Module1
+    Dim db As New clsdb(My.Settings.ConnINT, My.Settings.ConnProd)
+
+    Sub Main()
+        Verarbeiten()
+    End Sub
+
+    Private Sub Verarbeiten(Optional ExpressUser As String = "")
+        Dim importierte_vorlagen As Integer = 0
+        Try
+            Globals.Journal.Init()
+            Globals.Journal.Insert_RunJOurnal("Start Vorlagenübernahme")
+            If ExpressUser <> "" Then
+                Globals.Journal.Insert_RunJOurnal("Express ausgelöst durch: " + ExpressUser)
+            End If
+            If db.Check_Run Then
+                Dim dms As New clsdms(My.Settings.ConnINT, My.Settings.ConnProd)
+                dms.Get_Vorlagen()
+                If dms.Check_Import_Vorlagen Then
+                    importierte_vorlagen = dms.Import_Vorlagen()
+                End If
+            Else
+                Globals.Journal.Insert_RunJOurnal("Keine Übernahme")
+
+            End If
+
+            If ExpressUser = "" Then db.Set_Next_RunDate()
+            Globals.Journal.Insert_RunJOurnal("Ende Vorlagenübernahme")
+            db.Save_Journal()
+            db.SendMail(1, importierte_vorlagen, "")
+            If importierte_vorlagen > 0 Then
+                db.SendMail(2, importierte_vorlagen, Globals.Journal.UebernahmeJournal)
+            End If
+        Catch ex As Exception
+            Globals.Journal.Insert_RunJOurnal("Fehler aufgetreten: " + ex.Message)
+            db.Save_Journal()
+            db.Set_Next_RunDate()
+
+        Finally
+
+        End Try
+
+        cleanup()
+
+    End Sub
+
+    Sub cleanup()
+        Dim directoryName As String = My.Settings.Vorlagenverzeichnis
+        For Each deleteFile In Directory.GetFiles(directoryName, "*.*", SearchOption.TopDirectoryOnly)
+            File.Delete(deleteFile)
+        Next
+    End Sub
+End Module

EDKB18/Batch/EDKB18/EDKB18/My Project/Application.Designer.vb

@@ -0,0 +1,13 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+

EDKB18/Batch/EDKB18/EDKB18/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>2</ApplicationType>
+  <SaveMySettingsOnExit>true</SaveMySettingsOnExit>
+</MyApplicationData>

EDKB18/Batch/EDKB18/EDKB18/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 einer Assembly zugeordnet sind.
+
+' Werte der Assemblyattribute überprüfen
+
+<Assembly: AssemblyTitle("EDKB18")>
+<Assembly: AssemblyDescription("")>
+<Assembly: AssemblyCompany("")>
+<Assembly: AssemblyProduct("EDKB18")>
+<Assembly: AssemblyCopyright("Copyright ©  2018")>
+<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("fb5175b2-fa6e-4ced-8f23-07bd30697a58")>
+
+' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
+'
+'      Hauptversion
+'      Nebenversion
+'      Buildnummer
+'      Revision
+'
+' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden,
+' übernehmen, indem Sie "*" eingeben:
+' <Assembly: AssemblyVersion("1.0.*")>
+
+<Assembly: AssemblyVersion("1.0.0.0")>
+<Assembly: AssemblyFileVersion("1.0.0.0")>

EDKB18/Batch/EDKB18/EDKB18/My Project/Resources.Designer.vb

@@ -0,0 +1,62 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:4.0.30319.42000
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My.Resources
+
+    'This class was auto-generated by the StronglyTypedResourceBuilder
+    'class via a tool like ResGen or Visual Studio.
+    'To add or remove a member, edit your .ResX file then rerun ResGen
+    'with the /str option, or rebuild your VS project.
+    '''<summary>
+    '''  A strongly-typed resource class, for looking up localized strings, etc.
+    '''</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>
+        '''  Returns the cached ResourceManager instance used by this class.
+        '''</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("EDKB18.Resources", GetType(Resources).Assembly)
+                    resourceMan = temp
+                End If
+                Return resourceMan
+            End Get
+        End Property
+
+        '''<summary>
+        '''  Overrides the current thread's CurrentUICulture property for all
+        '''  resource lookups using this strongly typed resource class.
+        '''</summary>
+        <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Friend Property Culture() As Global.System.Globalization.CultureInfo
+            Get
+                Return resourceCulture
+            End Get
+            Set(ByVal value As Global.System.Globalization.CultureInfo)
+                resourceCulture = value
+            End Set
+        End Property
+    End Module
+End Namespace

EDKB18/Batch/EDKB18/EDKB18/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>

EDKB18/Batch/EDKB18/EDKB18/My Project/Settings.Designer.vb

@@ -0,0 +1,149 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     Dieser Code wurde von einem Tool generiert.
+'     Laufzeitversion:4.0.30319.42000
+'
+'     Ä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", "15.6.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 "Automatische My.Settings-Speicherfunktion"
+#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(sender As Global.System.Object, 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
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security"& _ 
+            " info=false;workstation id=;packet size=4096;user id=sa;password=*shu29")>  _
+        Public Property ConnINT() As String
+            Get
+                Return CType(Me("ConnINT"),String)
+            End Get
+            Set
+                Me("ConnINT") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=edoka_test;integrated security=SSPI;persist sec"& _ 
+            "urity info=false;workstation id=;packet size=4096;user id=sa;password=*shu29")>  _
+        Public Property ConnProd() As String
+            Get
+                Return CType(Me("ConnProd"),String)
+            End Get
+            Set
+                Me("ConnProd") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("k:\edoka\edkb18")>  _
+        Public Property Vorlagenverzeichnis() As String
+            Get
+                Return CType(Me("Vorlagenverzeichnis"),String)
+            End Get
+            Set
+                Me("Vorlagenverzeichnis") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("data source=shu00;initial catalog=edoka_Journale;integrated security=SSPI;persist"& _ 
+            " security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29"& _ 
+            "")>  _
+        Public Property ConnJournale() As String
+            Get
+                Return CType(Me("ConnJournale"),String)
+            End Get
+            Set
+                Me("ConnJournale") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("20000")>  _
+        Public Property Check_Timerintervall() As String
+            Get
+                Return CType(Me("Check_Timerintervall"),String)
+            End Get
+            Set
+                Me("Check_Timerintervall") = value
+            End Set
+        End Property
+        
+        <Global.System.Configuration.UserScopedSettingAttribute(),  _
+         Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+         Global.System.Configuration.DefaultSettingValueAttribute("False")>  _
+        Public Property Debug() As String
+            Get
+                Return CType(Me("Debug"),String)
+            End Get
+            Set
+                Me("Debug") = value
+            End Set
+        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.EDKB18.My.MySettings
+            Get
+                Return Global.EDKB18.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

EDKB18/Batch/EDKB18/EDKB18/My Project/Settings.settings

@@ -0,0 +1,24 @@
+<?xml version='1.0' encoding='utf-8'?>
+<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" GeneratedClassNamespace="My" GeneratedClassName="MySettings" UseMySettingsClassName="true">
+  <Profiles />
+  <Settings>
+    <Setting Name="ConnINT" Type="System.String" Scope="User">
+      <Value Profile="(Default)">data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</Value>
+    </Setting>
+    <Setting Name="ConnProd" Type="System.String" Scope="User">
+      <Value Profile="(Default)">data source=shu00;initial catalog=edoka_test;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</Value>
+    </Setting>
+    <Setting Name="Vorlagenverzeichnis" Type="System.String" Scope="User">
+      <Value Profile="(Default)">k:\edoka\edkb18</Value>
+    </Setting>
+    <Setting Name="ConnJournale" Type="System.String" Scope="User">
+      <Value Profile="(Default)">data source=shu00;initial catalog=edoka_Journale;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</Value>
+    </Setting>
+    <Setting Name="Check_Timerintervall" Type="System.String" Scope="User">
+      <Value Profile="(Default)">20000</Value>
+    </Setting>
+    <Setting Name="Debug" Type="System.String" Scope="User">
+      <Value Profile="(Default)">False</Value>
+    </Setting>
+  </Settings>
+</SettingsFile>

EDKB18/Batch/EDKB18/EDKB18/bin/Debug/EDKB18.exe.config

@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+  <configSections>
+    <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+      <section name="EDKB18.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
+    </sectionGroup>
+  </configSections>
+  <startup>
+    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
+  </startup>
+  <userSettings>
+    <EDKB18.My.MySettings>
+      <setting name="ConnINT" serializeAs="String">
+        <value>data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
+      </setting>
+      <setting name="ConnProd" serializeAs="String">
+        <value>data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
+      </setting>
+      <setting name="Vorlagenverzeichnis" serializeAs="String">
+        <value>k:\edoka\edkb18</value>
+      </setting>
+      <setting name="ConnJournale" serializeAs="String">
+        <value>data source=shu00;initial catalog=edoka_Journale;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
+      </setting>
+      <setting name="Check_Timerintervall" serializeAs="String">
+        <value>20000</value>
+      </setting>
+      <setting name="Debug" serializeAs="String">
+        <value>False</value>
+      </setting>
+    </EDKB18.My.MySettings>
+  </userSettings>
+</configuration>

EDKB18/Batch/EDKB18/EDKB18/bin/Debug/EDKB18.xml

@@ -0,0 +1,26 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+EDKB18
+</name>
+</assembly>
+<members>
+<member name="T:EDKB18.My.Resources.Resources">
+<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+<member name="P:EDKB18.My.Resources.Resources.ResourceManager">
+<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member>
+<member name="P:EDKB18.My.Resources.Resources.Culture">
+<summary>
+  Overrides the current thread's CurrentUICulture property for all
+  resource lookups using this strongly typed resource class.
+</summary>
+</member>
+</members>
+</doc>

EDKB18/Batch/EDKB18/EDKB18/bin/Release/EDKB18.exe.config

@@ -0,0 +1,33 @@
+<?xml version="1.0" encoding="utf-8"?>
+<configuration>
+  <configSections>
+    <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
+      <section name="EDKB18.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/>
+    </sectionGroup>
+  </configSections>
+  <startup>
+    <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.0"/>
+  </startup>
+  <userSettings>
+    <EDKB18.My.MySettings>
+      <setting name="ConnINT" serializeAs="String">
+        <value>data source=shu00;initial catalog=edoka;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
+      </setting>
+      <setting name="ConnProd" serializeAs="String">
+        <value>data source=shu00;initial catalog=edoka_test;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
+      </setting>
+      <setting name="Vorlagenverzeichnis" serializeAs="String">
+        <value>k:\edoka\edkb18</value>
+      </setting>
+      <setting name="ConnJournale" serializeAs="String">
+        <value>data source=shu00;initial catalog=edoka_Journale;integrated security=SSPI;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29</value>
+      </setting>
+      <setting name="Check_Timerintervall" serializeAs="String">
+        <value>20000</value>
+      </setting>
+      <setting name="Debug" serializeAs="String">
+        <value>False</value>
+      </setting>
+    </EDKB18.My.MySettings>
+  </userSettings>
+</configuration>

EDKB18/Batch/EDKB18/EDKB18/bin/Release/EDKB18.xml

@@ -0,0 +1,26 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+EDKB18
+</name>
+</assembly>
+<members>
+<member name="T:EDKB18.My.Resources.Resources">
+<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+<member name="P:EDKB18.My.Resources.Resources.ResourceManager">
+<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member>
+<member name="P:EDKB18.My.Resources.Resources.Culture">
+<summary>
+  Overrides the current thread's CurrentUICulture property for all
+  resource lookups using this strongly typed resource class.
+</summary>
+</member>
+</members>
+</doc>

EDKB18/Batch/EDKB18/EDKB18/clsJournale.vb

@@ -0,0 +1,21 @@
+Public Class clsJournal
+    Public RunJournal As String = ""
+    Public UebernahmeJournal As String = ""
+
+
+    Public Sub Insert_RunJOurnal(ByVal s As String)
+        If RunJournal <> "" Then RunJournal = RunJournal + vbCrLf
+        RunJournal = RunJournal + Now.ToString + " " + s
+    End Sub
+
+    Public Sub Insert_Uebernahmejournal(s As String)
+        If UebernahmeJournal <> "" Then UebernahmeJournal = UebernahmeJournal + vbCrLf
+        UebernahmeJournal = UebernahmeJournal + s
+    End Sub
+
+    Public Sub Init()
+        Me.RunJournal = ""
+        Me.UebernahmeJournal = ""
+    End Sub
+
+End Class

EDKB18/Batch/EDKB18/EDKB18/clsdb.vb

@@ -0,0 +1,206 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlDbType
+Public Class clsdb
+
+    Dim conn_int As String
+    Dim conn_prod As String
+    Dim Connection_Int As SqlConnection
+    Dim Connection_Prod As SqlConnection
+
+    Sub New(conn_int As String, conn_prod As String)
+        Me.conn_int = conn_int
+        Me.conn_prod = conn_prod
+        Connection_Int = New SqlConnection(conn_int)
+        Connection_Prod = New SqlConnection(conn_prod)
+    End Sub
+
+    Public Function Get_Vorlagen() As DataTable
+        Dim i As Integer
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        Dim dtToReturn As DataTable = New DataTable()
+        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+        Try
+            scmCmdToExecute.CommandText = "dbo.SP_Office_Vorlage_Datei"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            scmCmdToExecute.Connection = Connection_Int
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@Fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2))
+            sdaAdapter.Fill(dtToReturn)
+            Return dtToReturn
+        Catch ex As Exception
+        Finally
+            '            DivFnkt.SpaltenTitel_Aktualisieren(Me.DomainList, dtToReturn, "OfficeVorlageDatei")
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+        End Try
+    End Function
+
+    Public Function Get_TimerIntervall() As String
+        Dim i As Integer
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        Dim dtToReturn As DataTable = New DataTable()
+        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+        Try
+            scmCmdToExecute.CommandText = "dbo.SP_Vorlagenuebernahme"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            scmCmdToExecute.Connection = Connection_Prod
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@Fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param1", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param2", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param3", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param4", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@result", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            Connection_Prod.Open()
+            scmCmdToExecute.ExecuteNonQuery()
+            Return scmCmdToExecute.Parameters("@result").Value
+
+        Catch ex As Exception
+        Finally
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+            Connection_Prod.Close()
+        End Try
+    End Function
+
+    Public Function Check_Express(ByRef Express As String, ByRef Expressuser As String)
+        Dim i As Integer
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        Dim dtToReturn As DataTable = New DataTable()
+        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+        Try
+            scmCmdToExecute.CommandText = "dbo.SP_Vorlagenuebernahme"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            scmCmdToExecute.Connection = Connection_Prod
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@Fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 20))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param1", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param2", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param3", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param4", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@result", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            Connection_Prod.Open()
+            scmCmdToExecute.ExecuteNonQuery()
+            Expressuser = scmCmdToExecute.Parameters("@result").Value
+
+        Catch ex As Exception
+        Finally
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+            Connection_Prod.Close()
+        End Try
+    End Function
+
+    Public Function Check_Run() As Boolean
+        Return True
+        Dim i As Integer
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        Dim dtToReturn As DataTable = New DataTable()
+        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+        Try
+            scmCmdToExecute.CommandText = "dbo.SP_Vorlagenuebernahme"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            scmCmdToExecute.Connection = Connection_Prod
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@Fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param1", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param2", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param3", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param4", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@result", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            Connection_Prod.Open()
+            scmCmdToExecute.ExecuteNonQuery()
+            Return scmCmdToExecute.Parameters("@result").Value
+
+        Catch ex As Exception
+            Globals.Journal.Insert_RunJOurnal("Fehler Check_Run: " + ex.Message)
+            Return False
+        Finally
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+            Connection_Prod.Close()
+        End Try
+    End Function
+
+    Public Function Save_Journal() As Boolean
+        Dim i As Integer
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        Dim dtToReturn As DataTable = New DataTable()
+        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+        Try
+            scmCmdToExecute.CommandText = "dbo.SP_Vorlagenuebernahme"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            scmCmdToExecute.Connection = Connection_Prod
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@Fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 4))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param1", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Journal.RunJournal))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param2", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.Journal.UebernahmeJournal))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param3", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param4", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@result", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            Connection_Prod.Open()
+            scmCmdToExecute.ExecuteNonQuery()
+            'Return scmCmdToExecute.Parameters("@result").Value
+
+        Catch ex As Exception
+            Globals.Journal.Insert_RunJOurnal("Fehler Check_Run: " + ex.Message)
+            Return False
+        Finally
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+            Connection_Prod.Close()
+        End Try
+    End Function
+
+    Public Function Set_Next_RunDate() As Boolean
+        Exit Function
+        Dim i As Integer
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        Dim dtToReturn As DataTable = New DataTable()
+        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+        Try
+            scmCmdToExecute.CommandText = "dbo.SP_Vorlagenuebernahme"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            scmCmdToExecute.Connection = Connection_Prod
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@Fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 3))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param1", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param2", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param3", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param4", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@result", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            Connection_Prod.Open()
+            scmCmdToExecute.ExecuteNonQuery()
+
+
+        Catch ex As Exception
+            Globals.Journal.Insert_RunJOurnal("Fehler Check_Run: " + ex.Message)
+            Return False
+        Finally
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+            Connection_Prod.Close()
+        End Try
+    End Function
+
+    Public Function SendMail(Typ As Integer, counter As Integer, inhalt As String) As String
+        Dim i As Integer
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        Dim dtToReturn As DataTable = New DataTable()
+        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+        Try
+            scmCmdToExecute.CommandText = "dbo.SP_Vorlagenuebernahme"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            scmCmdToExecute.Connection = Connection_Prod
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@Fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 5 + Typ))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param1", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, counter))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param2", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, inhalt))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param3", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@param4", SqlDbType.VarChar, 8000, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@result", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            Connection_Prod.Open()
+            scmCmdToExecute.ExecuteNonQuery()
+            Return scmCmdToExecute.Parameters("@result").Value
+
+        Catch ex As Exception
+        Finally
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+            Connection_Prod.Close()
+        End Try
+    End Function
+End Class

EDKB18/Batch/EDKB18/EDKB18/clsdms.vb

@@ -0,0 +1,304 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlDbType
+Imports System.Data.SqlTypes
+Imports System.IO
+
+Public Class clsdms
+
+    Dim conn_int As String
+    Dim conn_prod As String
+    Dim Vorlagen As New DataTable
+    Dim db As clsdb
+    Dim Vorlagenverzeichnis As String = My.Settings.Vorlagenverzeichnis
+
+    Sub New(ByVal connint As String, connprod As String)
+        Me.conn_int = connint
+        Me.conn_prod = connprod
+        db = New clsdb(conn_int, conn_prod)
+    End Sub
+
+#Region "Export"
+
+    Public Function Get_Vorlagen()
+        Vorlagen = db.Get_Vorlagen()
+        Export_Vorlagen()
+    End Function
+
+    Sub Export_Vorlagen()
+        Globals.Journal.Insert_RunJOurnal("Export Vorlagen")
+        Globals.conn.sConnectionString = conn_int
+        Dim i As Integer
+        Dim x As Integer
+        Dim da As New DataTable()
+        Dim counter As Integer
+        Dim s As String
+        Dim ovd As New edokaDB.clsOffice_Vorlage_Datei()
+        ovd.cpMainConnectionProvider = Globals.conn
+        FileOpen(1, Vorlagenverzeichnis + "\uebernahme.txt", OpenMode.Output)
+        PrintLine(1, "Vorlagenübernahme Produktion: " + Now)
+        counter = 0
+
+        For Each r As DataRow In Vorlagen.Rows
+            ovd.iOffice_vorlage_dateinr = New SqlInt32(CType(r.Item("dateinr"), Int32))
+            da = ovd.SelectOne()
+            If ovd.bFreigegeben.Value = True Then
+                s = Get_From_DB(r.Item("dateinr"), Vorlagenverzeichnis + "\")
+                Dim anr As String = get_anwendungnr(s)
+                x = s.LastIndexOf("\")
+                s = Microsoft.VisualBasic.Right(s, Len(s) - (x + 1))
+                ovd.daUebernahme_produktion = New SqlDateTime(CType(Now, DateTime))
+                Globals.conn.OpenConnection()
+                If My.Settings.Debug = "False" Then ovd.Update()
+                Globals.conn.CloseConnection(True)
+                s = ovd.daFragabe_am.ToString + "|" + ovd.iFreigabe_durch.ToString + "|" + ovd.iMutierer.ToString + "|" + ovd.daMutiert_am.ToString + "|" + s + "|" + anr
+                PrintLine(1, Trim(Str(r("nr")) + "|" + s))
+            End If
+        Next
+
+        FileClose(1)
+        ovd.Dispose()
+    End Sub
+
+    Private Function get_anwendungnr(ByVal dokumentname As String) As Integer
+        Dim extension As String = System.IO.Path.GetExtension(dokumentname)
+        Select Case UCase(extension)
+            Case ".DOC"
+                Return 1
+            Case ".XLS"
+                Return 2
+            Case ".PDF"
+                Return 3
+            Case ".DOCX"
+                Return 4
+            Case ".DOCM"
+                Return 5
+            Case ".DOTX"
+                Return 6
+            Case ".DOTM"
+                Return 7
+            Case ".XLSX"
+                Return 8
+            Case ".XLSM"
+                Return 9
+            Case ".XLTX"
+                Return 10
+            Case ".XLTM"
+                Return 11
+            Case Else
+                Return 4
+        End Select
+    End Function
+
+    Public Function Get_From_DB(ByVal office_vorlagenr As Integer, ByVal pfad As String, Optional ByVal Office2010_Vorlage As Boolean = False) As String
+
+        Dim connection As New SqlConnection()
+        Dim s As String = "Select * From office_vorlage_datei where office_vorlage_Dateinr=" + Trim(Str(office_vorlagenr))
+        If Office2010_Vorlage = True Then
+            s = "Select * from Office2010_Vorlage_datei where office_vorlage_dateinr=" + Trim(Str(office_vorlagenr))
+        End If
+        Dim da As New SqlDataAdapter(s, connection)
+        Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
+        Dim ds As New DataSet()
+        Try
+            Dim filename As String
+            connection.ConnectionString = conn_int
+            connection.Open()
+            da.Fill(ds, "docs")
+            Dim myRow As DataRow
+            myRow = ds.Tables(0).Rows(0)
+            Dim MyData() As Byte
+            MyData = myRow.Item(2)
+            Dim K As Long
+            K = UBound(MyData)
+            filename = pfad + "" + myRow.Item(10)
+            Dim fs As New FileStream(filename, FileMode.OpenOrCreate, FileAccess.Write)
+            fs.Write(MyData, 0, K)
+            fs.Close()
+            fs = Nothing
+            Return filename
+        Catch ex As Exception
+            Globals.Journal.Insert_RunJOurnal("Fehler Get_From_DB:" + ex.Message)
+        End Try
+        CB = Nothing
+        ds = Nothing
+        da = Nothing
+        connection.Close()
+        connection = Nothing
+    End Function
+#End Region
+
+#Region "Import"
+
+    Public Function Check_Import_Vorlagen()
+        Globals.Journal.Insert_RunJOurnal("Check Import Vorlagen")
+        Globals.conn.sConnectionString = conn_prod
+        Dim s As String
+        Dim Fehler As String = ""
+        Dim Splitter
+        Dim da As DataTable
+        Dim ov As New edokaDB.clsOffice_vorlage()
+        ov.cpMainConnectionProvider = conn
+        FileOpen(1, Vorlagenverzeichnis + "\uebernahme.txt", OpenMode.Input)
+        Input(1, s)
+        While Not EOF(1)
+            Input(1, s)
+            Splitter = Microsoft.VisualBasic.Split(s, "|")
+            ov.iOffice_vorlagenr = New SqlInt32(CType(Splitter(0), Int32))
+            da = ov.SelectOne()
+            If da.Rows.Count = 0 Then
+                If Fehler <> "" Then Fehler = Fehler + ", "
+                Fehler = Fehler + Trim(Splitter(0))
+            End If
+        End While
+        ov.Dispose()
+        FileClose(1)
+        If Len(Fehler) > 0 Then
+            Globals.Journal.Insert_RunJOurnal("Vorlagen nicht vorhandne: " + Fehler)
+            Return False
+        Else
+            Return True
+        End If
+    End Function
+
+    Public Function Import_Vorlagen() As Integer
+        Globals.conn.sConnectionString = conn_prod
+        Dim ovd As New edokaDB.clsOffice_Vorlage_Datei()
+        Dim anr As Integer
+        Dim da As New DataTable()
+        Dim s As String
+        Dim splitter
+        Dim counter As Integer
+        ovd.cpMainConnectionProvider = Globals.conn
+        counter = 0
+        FileOpen(1, Vorlagenverzeichnis + "\uebernahme.txt", OpenMode.Input)
+        Input(1, s)
+        While Not EOF(1)
+            Input(1, s)
+            splitter = Microsoft.VisualBasic.Split(s, "|")
+            ovd.iOffice_vorlage_dateinr = New SqlInt32(CType(splitter(0), Int32))
+            da = ovd.SelectOne
+            If My.Settings.Debug = "False" Then
+                If da.Rows.Count = 0 Then
+                    ovd.iOffice_vorlage_dateinr = New SqlInt32(CType(splitter(0), Int32))
+                    ovd.bAktiv = New SqlBoolean(CType(True, Boolean))
+                    ovd.bFreigegeben = New SqlBoolean(CType(True, Boolean))
+                    ovd.daFragabe_am = New SqlDateTime(CType(splitter(1), DateTime))
+                    ovd.daMutiert_am = New SqlDateTime(CType(splitter(4), DateTime))
+                    ovd.daUebernahme_produktion = New SqlDateTime(CType(Now, DateTime))
+                    ovd.iFreigabe_durch = New SqlInt32(CType(splitter(2), Int32))
+                    ovd.iMutierer = New SqlInt32(CType(9998, Int32))
+                    ovd.iOffice_vorlagenr = ovd.iOffice_vorlage_dateinr
+                    ovd.sDateiname = New SqlString(CType(splitter(5), String))
+                    Try
+                        anr = splitter(6)
+                    Catch ex As Exception
+                        anr = -1
+                    End Try
+                    Globals.conn.OpenConnection()
+                    ovd.Insert()
+                    Globals.conn.CloseConnection(True)
+                Else
+                    ovd.bAktiv = New SqlBoolean(CType(True, Boolean))
+                    ovd.bFreigegeben = New SqlBoolean(CType(True, Boolean))
+                    ovd.daFragabe_am = New SqlDateTime(CType(splitter(1), DateTime))
+                    ovd.daMutiert_am = New SqlDateTime(CType(splitter(4), DateTime))
+                    ovd.daUebernahme_produktion = New SqlDateTime(CType(Now, DateTime))
+                    ovd.iFreigabe_durch = New SqlInt32(CType(splitter(2), Int32))
+                    ovd.iMutierer = New SqlInt32(CType(9998, Int32))
+                    ovd.iOffice_vorlagenr = ovd.iOffice_vorlage_dateinr
+                    ovd.sDateiname = New SqlString(CType(splitter(3), String))
+                    Try
+                        anr = splitter(6)
+                    Catch ex As Exception
+                        anr = -1
+                    End Try
+                    Globals.conn.OpenConnection()
+                    ovd.Update()
+                    Globals.conn.CloseConnection(True)
+                End If
+            End If
+
+            If Save_Vorlage_To_Db_Import(Vorlagenverzeichnis + "\" + splitter(5), ovd.iOffice_vorlage_dateinr.Value) Then
+                counter = counter + 1
+            End If
+            If anr <> -1 Then update_applikation(splitter(0), anr)
+            Globals.Journal.Insert_Uebernahmejournal(splitter(0) + " - " + splitter(5))
+        End While
+        da.Dispose()
+        ovd.Dispose()
+        FileClose(1)
+        Globals.Journal.Insert_RunJOurnal("Anzahl importierte Vorlagen: " + Str(counter))
+        Return counter
+    End Function
+
+    Sub update_applikation(ByVal officevorlagenr As Integer, ByVal anwendungnr As Integer)
+        If Not My.Settings.Debug = "False" Then
+            Exit Sub
+        End If
+        Try
+            Dim Connection As New SqlConnection()
+            Dim c As New SqlCommand("Update office_vorlage set anwendungnr=" + anwendungnr.ToString + " where office_vorlagenr=" + officevorlagenr.ToString, Connection)
+            Connection.ConnectionString = conn_prod
+            Connection.Open()
+            c.ExecuteNonQuery()
+            Connection.Close()
+        Catch
+        End Try
+
+
+    End Sub
+
+    Private Function Save_Vorlage_To_Db_Import(ByVal dokumentname As String, ByVal nr As Integer) As Boolean
+        If Not My.Settings.Debug = "False" Then
+            Return True
+            Exit Function
+
+        End If
+        Try
+            Dim IntFilename As String
+            Dim Connection As New SqlConnection()
+            Dim DA As New SqlDataAdapter("select * from office_vorlage_datei where office_vorlagenr = " + Trim(Str(nr)), Connection)
+            Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
+            Dim ds As New DataSet()
+            Dim fs As New FileStream(dokumentname, FileMode.OpenOrCreate, FileAccess.Read)
+            Dim mydata(fs.Length) As Byte
+            Dim fi As New IO.FileInfo(dokumentname)
+            IntFilename = (fi.Name)
+            Try
+                fs.Read(mydata, 0, fs.Length)
+                If fs.Length = 0 Then
+                    Globals.Journal.Insert_RunJOurnal("Fehler bei der Datei Nr: " + Trim(nr) + ", " + dokumentname)
+                    fs.Close()
+                    Return False
+                End If
+                fs.Close()
+                Connection.ConnectionString = conn_prod
+                Connection.Open()
+                DA.Fill(ds, "docs")
+                Dim myRow As DataRow
+
+                myRow = ds.Tables(0).Rows(0)
+                myRow.Item(2) = mydata
+                myRow.Item(10) = IntFilename
+                DA.Update(ds, "docs")
+                Return True
+            Catch ex As Exception
+                Globals.Journal.Insert_RunJOurnal("Fehler Save_Vorlage:" + ex.Message)
+                Return False
+            End Try
+            fs = Nothing
+            cb = Nothing
+            ds = Nothing
+            DA = Nothing
+
+            Connection.Close()
+            Connection = Nothing
+        Catch ex1 As Exception
+            Globals.Journal.Insert_RunJOurnal("Fehler Save_Vorlage:" + ex1.Message)
+        End Try
+        End
+    End Function
+
+#End Region
+
+End Class

EDKB18/Batch/EDKB18/EDKB18/db/clsConnectionProvider.vb

@@ -0,0 +1,289 @@
+' ///////////////////////////////////////////////////////////////////////////
+' // Description: Connection Provider class for Database connection sharing  
+' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 26. November 2002, 22:32:48
+' // 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>
+		Overloads Public Sub Dispose() Implements IDisposable.Dispose
+			Dispose(True)
+			GC.SuppressFinalize(Me)
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Implements the Dispose functionality.
+		' /// </summary>
+		Overridable Overloads Protected 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(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(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(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(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

EDKB18/Batch/EDKB18/EDKB18/db/clsDBInteractionBase.vb

@@ -0,0 +1,202 @@
+' //////////////////////////////////////////////////////////////////////////////////////////
+' // Description: Base class for Database Interaction.                       
+' // Generated by LLBLGen v1.2.1045.38210 Final on: Dienstag, 26. November 2002, 22:32:48
+' // Because this class implements IDisposable, derived classes shouldn't do so.
+' //////////////////////////////////////////////////////////////////////////////////////////
+Imports System
+Imports System.Configuration
+Imports System.Data
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+
+Namespace edokadb
+	' /// <summary>
+	' /// Purpose: Error Enums used by this LLBL library.
+	' /// </summary>
+	Public Enum LLBLError
+		AllOk
+		' // Add more here (check the comma's!)
+	End Enum
+
+
+	' /// <summary>
+	' /// Purpose: General interface of the API generated. Contains only common methods of all classes.
+	' /// </summary>
+	Public Interface ICommonDBAccess
+		Function	Insert() As Boolean
+		Function	Update() As Boolean
+		Function	Delete() As Boolean
+		Function	SelectOne() As DataTable
+		Function	SelectAll() As DataTable
+	End Interface
+
+
+	' /// <summary>
+	' /// Purpose: Abstract base class for Database Interaction classes.
+	' /// </summary>
+	Public MustInherit Class clsDBInteractionBase
+		Implements IDisposable
+		Implements ICommonDBAccess
+
+#Region " Class Member Declarations "
+
+		Protected	m_scoMainConnection As SqlConnection
+		Protected	m_iErrorCode As SqlInt32
+		Protected	m_bMainConnectionIsCreatedLocal As Boolean
+		Protected	m_cpMainConnectionProvider As clsConnectionProvider
+		Private		m_sConnectionString As String
+		Private		m_bIsDisposed As Boolean
+
+#End Region
+
+
+		' /// <summary>
+		' /// Purpose: Class constructor.
+		' /// </summary>
+		Public Sub New()
+			' // Initialize the class' members.
+			InitClass()
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Initializes class members.
+		' /// </summary>
+		Private Sub InitClass()
+			' // create all the objects and initialize other members.
+			m_scoMainConnection = new SqlConnection()
+			m_bMainConnectionIsCreatedLocal = True
+			m_cpMainConnectionProvider = Nothing
+			m_iErrorCode = New SqlInt32(LLBLError.AllOk)
+			m_bIsDisposed = False
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Implements the IDispose' method Dispose.
+		' /// </summary>
+		Overloads Public Sub Dispose() Implements IDisposable.Dispose
+			Dispose(True)
+			GC.SuppressFinalize(Me)
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Implements the Dispose functionality.
+		' /// </summary>
+		Overridable  Overloads Protected 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 m_bMainConnectionIsCreatedLocal Then
+						' // Object is created in this class, so destroy it here.
+						m_scoMainConnection.Close()
+						m_scoMainConnection.Dispose()
+						m_bMainConnectionIsCreatedLocal = True
+					End If
+					m_cpMainConnectionProvider = Nothing
+					m_scoMainConnection = Nothing
+				End If
+			End If
+			m_bIsDisposed = True
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Implements the ICommonDBAccess.Insert() method.
+		' /// </summary>
+		Public Overridable Function Insert() As Boolean Implements ICommonDBAccess.Insert
+			' // No implementation, throw exception
+			Throw New NotImplementedException()
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Implements the ICommonDBAccess.Delete() method.
+		' /// </summary>
+		Public Overridable Function Delete() As Boolean Implements ICommonDBAccess.Delete
+			' // No implementation, throw exception
+			Throw New NotImplementedException()
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Implements the ICommonDBAccess.Update() method.
+		' /// </summary>
+		Public Overridable Function Update() As Boolean Implements ICommonDBAccess.Update
+			' // No implementation, throw exception
+			Throw New NotImplementedException()
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Implements the ICommonDBAccess.SelectOne() method.
+		' /// </summary>
+		Public Overridable Function SelectOne() As DataTable Implements ICommonDBAccess.SelectOne
+			' // No implementation, throw exception
+			Throw New NotImplementedException()
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Implements the ICommonDBAccess.SelectAll() method.
+		' /// </summary>
+		Public Overridable Function SelectAll() As DataTable Implements ICommonDBAccess.SelectAll
+			' // No implementation, throw exception
+			Throw New NotImplementedException()
+		End Function
+
+
+#Region " Class Property Declarations "
+
+		Public WriteOnly Property cpMainConnectionProvider() As clsConnectionProvider
+			Set(ByVal Value As clsConnectionProvider)
+				If Value Is Nothing Then
+					' // Invalid value
+					Throw New ArgumentNullException("cpMainConnectionProvider", "Nothing passed as value to this property which is not allowed.")
+				End If
+
+				' // A connection provider object is passed to this class.
+				' // Retrieve the SqlConnection object, if present and create a
+				' // reference to it. If there is already a MainConnection object
+				' // referenced by the membervar, destroy that one or simply 
+				' // remove the reference, based on the flag.
+				If Not (m_scoMainConnection Is Nothing) Then
+					' // First get rid of current connection object. Caller is responsible
+					If m_bMainConnectionIsCreatedLocal Then
+						' // Is local created object, close it and dispose it.
+						m_scoMainConnection.Close()
+						m_scoMainConnection.Dispose()
+					End If
+					' // Remove reference.
+					m_scoMainConnection = Nothing
+				End If
+				m_cpMainConnectionProvider = CType(Value, clsConnectionProvider)
+				m_scoMainConnection = m_cpMainConnectionProvider.scoDBConnection
+				m_bMainConnectionIsCreatedLocal = False
+			End Set
+		End Property
+
+
+		Public ReadOnly Property iErrorCode() As SqlInt32
+			Get
+				Return m_iErrorCode
+			End Get
+		End Property
+
+
+		Public Property sConnectionString() As String
+			Get
+				Return m_sConnectionString
+			End Get
+			Set (ByVal Value As String)
+				m_sConnectionString = Value
+				m_scoMainConnection.ConnectionString = m_sConnectionString
+			End Set
+		End Property
+
+#End Region
+
+	End Class
+End Namespace

EDKB18/Batch/EDKB18/EDKB18/db/clsOffice_Vorlage_Datei.vb

@@ -0,0 +1,559 @@
+' ///////////////////////////////////////////////////////////////////////////
+' // Description: Data Access class for the table 'Office_Vorlage_Datei'
+' // Generated by LLBLGen v1.2.1045.38210 Final on: Mittwoch, 25. Februar 2004, 23:48:51
+' // Because the Base Class already implements IDispose, this class doesn't.
+' ///////////////////////////////////////////////////////////////////////////
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokaDB
+	' /// <summary>
+	' /// Purpose: Data Access class for the table 'Office_Vorlage_Datei'.
+	' /// </summary>
+	Public Class clsOffice_Vorlage_Datei
+		Inherits clsDBInteractionBase
+
+#Region " Class Member Declarations "
+
+		Private 		m_bAktiv, m_bFreigegeben As SqlBoolean
+		Private 		m_daFragabe_am, m_daUebernahme_produktion, m_daMutiert_am As SqlDateTime
+		Private 		m_blobVorlage As SqlBinary
+		Private 		m_iFreigabe_durch, m_iOffice_vorlage_dateinr, m_iOffice_vorlagenr, m_iMutierer As SqlInt32
+		Private 		m_sDateiname As SqlString
+
+#End Region
+
+
+		' /// <summary>
+		' /// Purpose: Class constructor.
+		' /// </summary>
+		Public Sub New()
+			' // Nothing for now.
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Insert method. This method will insert one new row into the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iOffice_vorlage_dateinr</LI>
+		' ///		 <LI>iOffice_vorlagenr. May be SqlInt32.Null</LI>
+		' ///		 <LI>blobVorlage. May be SqlBinary.Null</LI>
+		' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		' ///		 <LI>bFreigegeben. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daFragabe_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iFreigabe_durch. May be SqlInt32.Null</LI>
+		' ///		 <LI>daUebernahme_produktion. May be SqlDateTime.Null</LI>
+		' ///		 <LI>sDateiname. May be SqlString.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Insert() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_Office_Vorlage_Datei_Insert]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlage_dateinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlage_dateinr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr))
+				Dim	iLength As Integer = 0
+				If Not m_blobVorlage.IsNull Then
+					iLength = m_blobVorlage.Length
+				End If
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@blobvorlage", SqlDbType.Image, iLength, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_blobVorlage))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bfreigegeben", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFreigegeben))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@dafragabe_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daFragabe_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ifreigabe_durch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFreigabe_durch))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@dauebernahme_produktion", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daUebernahme_produktion))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sdateiname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDateiname))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_Office_Vorlage_Datei_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsOffice_Vorlage_Datei::Insert::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Update method. This method will Update one existing row in the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iOffice_vorlage_dateinr</LI>
+		' ///		 <LI>iOffice_vorlagenr. May be SqlInt32.Null</LI>
+		' ///		 <LI>blobVorlage. May be SqlBinary.Null</LI>
+		' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		' ///		 <LI>bFreigegeben. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daFragabe_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iFreigabe_durch. May be SqlInt32.Null</LI>
+		' ///		 <LI>daUebernahme_produktion. May be SqlDateTime.Null</LI>
+		' ///		 <LI>sDateiname. May be SqlString.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Update() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_Office_Vorlage_Datei_Update]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlage_dateinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlage_dateinr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr))
+				Dim	iLength As Integer = 0
+				If Not m_blobVorlage.IsNull Then
+					iLength = m_blobVorlage.Length
+				End If
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@blobvorlage", SqlDbType.Image, iLength, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_blobVorlage))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bfreigegeben", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bFreigegeben))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@dafragabe_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daFragabe_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ifreigabe_durch", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFreigabe_durch))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@dauebernahme_produktion", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daUebernahme_produktion))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sdateiname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDateiname))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_Office_Vorlage_Datei_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsOffice_Vorlage_Datei::Update::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
+        ' /// </summary>
+        ' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties needed for this method: 
+        ' /// <UL>
+        ' ///		 <LI>iOffice_vorlage_dateinr</LI>
+        ' /// </UL>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Overrides Function Delete() As Boolean
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_Office_Vorlage_Datei_Delete]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlage_dateinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlage_dateinr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_Office_Vorlage_Datei_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsOffice_Vorlage_Datei::Delete::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+		' /// <summary>
+		' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
+		' /// </summary>
+		' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iOffice_vorlage_dateinr</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' ///		 <LI>iOffice_vorlage_dateinr</LI>
+		' ///		 <LI>iOffice_vorlagenr</LI>
+		' ///		 <LI>blobVorlage</LI>
+		' ///		 <LI>bAktiv</LI>
+		' ///		 <LI>daMutiert_am</LI>
+		' ///		 <LI>iMutierer</LI>
+		' ///		 <LI>bFreigegeben</LI>
+		' ///		 <LI>daFragabe_am</LI>
+		' ///		 <LI>iFreigabe_durch</LI>
+		' ///		 <LI>daUebernahme_produktion</LI>
+		' ///		 <LI>sDateiname</LI>
+		' /// </UL>
+		' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
+		' /// </remarks>
+		Overrides Public Function SelectOne() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_Office_Vorlage_Datei_SelectOne]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("Office_Vorlage_Datei")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@ioffice_vorlage_dateinr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlage_dateinr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_Office_Vorlage_Datei_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                If dtToReturn.Rows.Count > 0 Then
+                    m_iOffice_vorlage_dateinr = New SqlInt32(CType(dtToReturn.Rows(0)("office_vorlage_dateinr"), Integer))
+                    If dtToReturn.Rows(0)("office_vorlagenr") Is System.DBNull.Value Then
+                        m_iOffice_vorlagenr = SqlInt32.Null
+                    Else
+                        m_iOffice_vorlagenr = New SqlInt32(CType(dtToReturn.Rows(0)("office_vorlagenr"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("vorlage") Is System.DBNull.Value Then
+                        m_blobVorlage = SqlBinary.Null
+                    Else
+                        m_blobVorlage = New SqlBinary(CType(dtToReturn.Rows(0)("vorlage"), Byte()))
+                    End If
+                    If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
+                        m_bAktiv = SqlBoolean.Null
+                    Else
+                        m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
+                    End If
+                    If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
+                        m_daMutiert_am = SqlDateTime.Null
+                    Else
+                        m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
+                    End If
+                    If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
+                        m_iMutierer = SqlInt32.Null
+                    Else
+                        m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("freigegeben") Is System.DBNull.Value Then
+                        m_bFreigegeben = SqlBoolean.Null
+                    Else
+                        m_bFreigegeben = New SqlBoolean(CType(dtToReturn.Rows(0)("freigegeben"), Boolean))
+                    End If
+                    If dtToReturn.Rows(0)("fragabe_am") Is System.DBNull.Value Then
+                        m_daFragabe_am = SqlDateTime.Null
+                    Else
+                        m_daFragabe_am = New SqlDateTime(CType(dtToReturn.Rows(0)("fragabe_am"), Date))
+                    End If
+                    If dtToReturn.Rows(0)("freigabe_durch") Is System.DBNull.Value Then
+                        m_iFreigabe_durch = SqlInt32.Null
+                    Else
+                        m_iFreigabe_durch = New SqlInt32(CType(dtToReturn.Rows(0)("freigabe_durch"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("uebernahme_produktion") Is System.DBNull.Value Then
+                        m_daUebernahme_produktion = SqlDateTime.Null
+                    Else
+                        m_daUebernahme_produktion = New SqlDateTime(CType(dtToReturn.Rows(0)("uebernahme_produktion"), Date))
+                    End If
+                    If dtToReturn.Rows(0)("dateiname") Is System.DBNull.Value Then
+                        m_sDateiname = SqlString.Null
+                    Else
+                        m_sDateiname = New SqlString(CType(dtToReturn.Rows(0)("dateiname"), String))
+                    End If
+                End If
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsOffice_Vorlage_Datei::SelectOne::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: SelectAll method. This method will Select all rows from the table.
+        ' /// </summary>
+        ' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Overrides Function SelectAll() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_Office_Vorlage_Datei_SelectAll]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("Office_Vorlage_Datei")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_Office_Vorlage_Datei_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsOffice_Vorlage_Datei::SelectAll::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+#Region " Class Property Declarations "
+
+		Public Property [iOffice_vorlage_dateinr]() As SqlInt32
+			Get
+				Return m_iOffice_vorlage_dateinr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iOffice_vorlage_dateinrTmp As SqlInt32 = Value
+				If iOffice_vorlage_dateinrTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iOffice_vorlage_dateinr", "iOffice_vorlage_dateinr can't be NULL")
+				End If
+				m_iOffice_vorlage_dateinr = Value
+			End Set
+		End Property
+
+
+		Public Property [iOffice_vorlagenr]() As SqlInt32
+			Get
+				Return m_iOffice_vorlagenr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iOffice_vorlagenr = Value
+			End Set
+		End Property
+
+
+		Public Property [blobVorlage]() As SqlBinary
+			Get
+				Return m_blobVorlage
+			End Get
+			Set(ByVal Value As SqlBinary)
+				m_blobVorlage = Value
+			End Set
+		End Property
+
+
+		Public Property [bAktiv]() As SqlBoolean
+			Get
+				Return m_bAktiv
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bAktiv = Value
+			End Set
+		End Property
+
+
+		Public Property [daMutiert_am]() As SqlDateTime
+			Get
+				Return m_daMutiert_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daMutiert_am = Value
+			End Set
+		End Property
+
+
+		Public Property [iMutierer]() As SqlInt32
+			Get
+				Return m_iMutierer
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMutierer = Value
+			End Set
+		End Property
+
+
+		Public Property [bFreigegeben]() As SqlBoolean
+			Get
+				Return m_bFreigegeben
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bFreigegeben = Value
+			End Set
+		End Property
+
+
+		Public Property [daFragabe_am]() As SqlDateTime
+			Get
+				Return m_daFragabe_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daFragabe_am = Value
+			End Set
+		End Property
+
+
+		Public Property [iFreigabe_durch]() As SqlInt32
+			Get
+				Return m_iFreigabe_durch
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iFreigabe_durch = Value
+			End Set
+		End Property
+
+
+		Public Property [daUebernahme_produktion]() As SqlDateTime
+			Get
+				Return m_daUebernahme_produktion
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daUebernahme_produktion = Value
+			End Set
+		End Property
+
+
+		Public Property [sDateiname]() As SqlString
+			Get
+				Return m_sDateiname
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sDateiname = Value
+			End Set
+		End Property
+
+#End Region
+
+	End Class
+End Namespace

EDKB18/Batch/EDKB18/EDKB18/db/clsOffice_vorlage.vb

@@ -0,0 +1,850 @@
+' ///////////////////////////////////////////////////////////////////////////
+' // Description: Data Access class for the table 'office_vorlage'
+' // Generated by LLBLGen v1.2.1045.38210 Final on: Donnerstag, 26. Februar 2004, 22:30:42
+' // Because the Base Class already implements IDispose, this class doesn't.
+' ///////////////////////////////////////////////////////////////////////////
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokadb
+	' /// <summary>
+	' /// Purpose: Data Access class for the table 'office_vorlage'.
+	' /// </summary>
+	Public Class clsOffice_vorlage
+		Inherits clsDBInteractionBase
+
+#Region " Class Member Declarations "
+
+		Private 		m_bDokument_geschuetzt, m_bIdv_nativ, m_bAbsender_ersteller, m_bAktiv, m_bBchorizontal, m_bKopfzeile_generieren, m_bIdv_vorlage As SqlBoolean
+		Private 		m_daMutiert_am, m_daErstellt_am As SqlDateTime
+		Private 		m_iMandantnr, m_iBch, m_iBcw, m_iOffice_vorlagenr, m_iMutierer, m_iAnwendungnr, m_iOwner, m_iKlassifizierung, m_iVorlageid, m_iBcpl, m_iBcpt As SqlInt32
+		Private 		m_sPrefix_dokumentname, m_sIdv_id, m_sOffice_vorlage, m_sBezeichnung, m_sBeschreibung, m_sVorlagename As SqlString
+
+#End Region
+
+
+		' /// <summary>
+		' /// Purpose: Class constructor.
+		' /// </summary>
+		Public Sub New()
+			' // Nothing for now.
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Insert method. This method will insert one new row into the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iOffice_vorlagenr</LI>
+		' ///		 <LI>sBezeichnung. May be SqlString.Null</LI>
+		' ///		 <LI>sBeschreibung. May be SqlString.Null</LI>
+		' ///		 <LI>iVorlageid. May be SqlInt32.Null</LI>
+		' ///		 <LI>sVorlagename. May be SqlString.Null</LI>
+		' ///		 <LI>sPrefix_dokumentname. May be SqlString.Null</LI>
+		' ///		 <LI>bIdv_vorlage</LI>
+		' ///		 <LI>sIdv_id. May be SqlString.Null</LI>
+		' ///		 <LI>sOffice_vorlage. May be SqlString.Null</LI>
+		' ///		 <LI>bAbsender_ersteller. May be SqlBoolean.Null</LI>
+		' ///		 <LI>bIdv_nativ</LI>
+		' ///		 <LI>bDokument_geschuetzt. May be SqlBoolean.Null</LI>
+		' ///		 <LI>bKopfzeile_generieren</LI>
+		' ///		 <LI>iKlassifizierung. May be SqlInt32.Null</LI>
+		' ///		 <LI>iBcpt</LI>
+		' ///		 <LI>iBcpl. May be SqlInt32.Null</LI>
+		' ///		 <LI>iBcw</LI>
+		' ///		 <LI>iBch</LI>
+		' ///		 <LI>bBchorizontal. May be SqlBoolean.Null</LI>
+		' ///		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		' ///		 <LI>iAnwendungnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>iOwner. May be SqlInt32.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Insert() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_office_vorlage_Insert]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ivorlageid", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVorlageid))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@svorlagename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVorlagename))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sprefix_dokumentname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPrefix_dokumentname))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bidv_vorlage", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bIdv_vorlage))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sidv_id", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIdv_id))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@soffice_vorlage", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sOffice_vorlage))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@babsender_ersteller", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAbsender_ersteller))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bidv_nativ", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bIdv_nativ))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bdokument_geschuetzt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_geschuetzt))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bkopfzeile_generieren", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bKopfzeile_generieren))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iklassifizierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKlassifizierung))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ibcpt", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iBcpt))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ibcpl", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBcpl))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ibcw", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iBcw))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ibch", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iBch))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bbchorizontal", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBchorizontal))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ianwendungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAnwendungnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iowner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOwner))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_office_vorlage_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsOffice_vorlage::Insert::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Update method. This method will Update one existing row in the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iOffice_vorlagenr</LI>
+		' ///		 <LI>sBezeichnung. May be SqlString.Null</LI>
+		' ///		 <LI>sBeschreibung. May be SqlString.Null</LI>
+		' ///		 <LI>iVorlageid. May be SqlInt32.Null</LI>
+		' ///		 <LI>sVorlagename. May be SqlString.Null</LI>
+		' ///		 <LI>sPrefix_dokumentname. May be SqlString.Null</LI>
+		' ///		 <LI>bIdv_vorlage</LI>
+		' ///		 <LI>sIdv_id. May be SqlString.Null</LI>
+		' ///		 <LI>sOffice_vorlage. May be SqlString.Null</LI>
+		' ///		 <LI>bAbsender_ersteller. May be SqlBoolean.Null</LI>
+		' ///		 <LI>bIdv_nativ</LI>
+		' ///		 <LI>bDokument_geschuetzt. May be SqlBoolean.Null</LI>
+		' ///		 <LI>bKopfzeile_generieren</LI>
+		' ///		 <LI>iKlassifizierung. May be SqlInt32.Null</LI>
+		' ///		 <LI>iBcpt</LI>
+		' ///		 <LI>iBcpl. May be SqlInt32.Null</LI>
+		' ///		 <LI>iBcw</LI>
+		' ///		 <LI>iBch</LI>
+		' ///		 <LI>bBchorizontal. May be SqlBoolean.Null</LI>
+		' ///		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		' ///		 <LI>iAnwendungnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>iOwner. May be SqlInt32.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Update() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_office_vorlage_Update]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sbezeichnung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBezeichnung))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ivorlageid", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVorlageid))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@svorlagename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVorlagename))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sprefix_dokumentname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sPrefix_dokumentname))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bidv_vorlage", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bIdv_vorlage))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sidv_id", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sIdv_id))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@soffice_vorlage", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sOffice_vorlage))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@babsender_ersteller", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAbsender_ersteller))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bidv_nativ", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bIdv_nativ))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bdokument_geschuetzt", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bDokument_geschuetzt))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bkopfzeile_generieren", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bKopfzeile_generieren))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iklassifizierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKlassifizierung))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ibcpt", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iBcpt))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ibcpl", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iBcpl))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ibcw", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iBcw))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ibch", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iBch))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bbchorizontal", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bBchorizontal))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ianwendungnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iAnwendungnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iowner", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOwner))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_office_vorlage_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsOffice_vorlage::Update::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
+        ' /// </summary>
+        ' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties needed for this method: 
+        ' /// <UL>
+        ' ///		 <LI>iOffice_vorlagenr</LI>
+        ' /// </UL>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Overrides Function Delete() As Boolean
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_office_vorlage_Delete]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_office_vorlage_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsOffice_vorlage::Delete::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+		' /// <summary>
+		' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
+		' /// </summary>
+		' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iOffice_vorlagenr</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' ///		 <LI>iOffice_vorlagenr</LI>
+		' ///		 <LI>sBezeichnung</LI>
+		' ///		 <LI>sBeschreibung</LI>
+		' ///		 <LI>iVorlageid</LI>
+		' ///		 <LI>sVorlagename</LI>
+		' ///		 <LI>sPrefix_dokumentname</LI>
+		' ///		 <LI>bIdv_vorlage</LI>
+		' ///		 <LI>sIdv_id</LI>
+		' ///		 <LI>sOffice_vorlage</LI>
+		' ///		 <LI>bAbsender_ersteller</LI>
+		' ///		 <LI>bIdv_nativ</LI>
+		' ///		 <LI>bDokument_geschuetzt</LI>
+		' ///		 <LI>bKopfzeile_generieren</LI>
+		' ///		 <LI>iKlassifizierung</LI>
+		' ///		 <LI>iBcpt</LI>
+		' ///		 <LI>iBcpl</LI>
+		' ///		 <LI>iBcw</LI>
+		' ///		 <LI>iBch</LI>
+		' ///		 <LI>bBchorizontal</LI>
+		' ///		 <LI>iMandantnr</LI>
+		' ///		 <LI>bAktiv</LI>
+		' ///		 <LI>daErstellt_am</LI>
+		' ///		 <LI>daMutiert_am</LI>
+		' ///		 <LI>iMutierer</LI>
+		' ///		 <LI>iAnwendungnr</LI>
+		' ///		 <LI>iOwner</LI>
+		' /// </UL>
+		' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
+		' /// </remarks>
+		Overrides Public Function SelectOne() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_office_vorlage_SelectOne]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("office_vorlage")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_office_vorlage_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                If dtToReturn.Rows.Count > 0 Then
+                    m_iOffice_vorlagenr = New SqlInt32(CType(dtToReturn.Rows(0)("office_vorlagenr"), Integer))
+                    If dtToReturn.Rows(0)("bezeichnung") Is System.DBNull.Value Then
+                        m_sBezeichnung = SqlString.Null
+                    Else
+                        m_sBezeichnung = New SqlString(CType(dtToReturn.Rows(0)("bezeichnung"), String))
+                    End If
+                    If dtToReturn.Rows(0)("beschreibung") Is System.DBNull.Value Then
+                        m_sBeschreibung = SqlString.Null
+                    Else
+                        m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String))
+                    End If
+                    If dtToReturn.Rows(0)("vorlageid") Is System.DBNull.Value Then
+                        m_iVorlageid = SqlInt32.Null
+                    Else
+                        m_iVorlageid = New SqlInt32(CType(dtToReturn.Rows(0)("vorlageid"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("vorlagename") Is System.DBNull.Value Then
+                        m_sVorlagename = SqlString.Null
+                    Else
+                        m_sVorlagename = New SqlString(CType(dtToReturn.Rows(0)("vorlagename"), String))
+                    End If
+                    If dtToReturn.Rows(0)("prefix_dokumentname") Is System.DBNull.Value Then
+                        m_sPrefix_dokumentname = SqlString.Null
+                    Else
+                        m_sPrefix_dokumentname = New SqlString(CType(dtToReturn.Rows(0)("prefix_dokumentname"), String))
+                    End If
+                    m_bIdv_vorlage = New SqlBoolean(CType(dtToReturn.Rows(0)("idv_vorlage"), Boolean))
+                    If dtToReturn.Rows(0)("idv_id") Is System.DBNull.Value Then
+                        m_sIdv_id = SqlString.Null
+                    Else
+                        m_sIdv_id = New SqlString(CType(dtToReturn.Rows(0)("idv_id"), String))
+                    End If
+                    If dtToReturn.Rows(0)("office_vorlage") Is System.DBNull.Value Then
+                        m_sOffice_vorlage = SqlString.Null
+                    Else
+                        m_sOffice_vorlage = New SqlString(CType(dtToReturn.Rows(0)("office_vorlage"), String))
+                    End If
+                    If dtToReturn.Rows(0)("absender_ersteller") Is System.DBNull.Value Then
+                        m_bAbsender_ersteller = SqlBoolean.Null
+                    Else
+                        m_bAbsender_ersteller = New SqlBoolean(CType(dtToReturn.Rows(0)("absender_ersteller"), Boolean))
+                    End If
+                    m_bIdv_nativ = New SqlBoolean(CType(dtToReturn.Rows(0)("idv_nativ"), Boolean))
+                    If dtToReturn.Rows(0)("dokument_geschuetzt") Is System.DBNull.Value Then
+                        m_bDokument_geschuetzt = SqlBoolean.Null
+                    Else
+                        m_bDokument_geschuetzt = New SqlBoolean(CType(dtToReturn.Rows(0)("dokument_geschuetzt"), Boolean))
+                    End If
+                    m_bKopfzeile_generieren = New SqlBoolean(CType(dtToReturn.Rows(0)("kopfzeile_generieren"), Boolean))
+                    If dtToReturn.Rows(0)("klassifizierung") Is System.DBNull.Value Then
+                        m_iKlassifizierung = SqlInt32.Null
+                    Else
+                        m_iKlassifizierung = New SqlInt32(CType(dtToReturn.Rows(0)("klassifizierung"), Integer))
+                    End If
+                    m_iBcpt = New SqlInt32(CType(dtToReturn.Rows(0)("bcpt"), Integer))
+                    If dtToReturn.Rows(0)("bcpl") Is System.DBNull.Value Then
+                        m_iBcpl = SqlInt32.Null
+                    Else
+                        m_iBcpl = New SqlInt32(CType(dtToReturn.Rows(0)("bcpl"), Integer))
+                    End If
+                    m_iBcw = New SqlInt32(CType(dtToReturn.Rows(0)("bcw"), Integer))
+                    m_iBch = New SqlInt32(CType(dtToReturn.Rows(0)("bch"), Integer))
+                    If dtToReturn.Rows(0)("bchorizontal") Is System.DBNull.Value Then
+                        m_bBchorizontal = SqlBoolean.Null
+                    Else
+                        m_bBchorizontal = New SqlBoolean(CType(dtToReturn.Rows(0)("bchorizontal"), Boolean))
+                    End If
+                    If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
+                        m_iMandantnr = SqlInt32.Null
+                    Else
+                        m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
+                        m_bAktiv = SqlBoolean.Null
+                    Else
+                        m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
+                    End If
+                    If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
+                        m_daErstellt_am = SqlDateTime.Null
+                    Else
+                        m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
+                    End If
+                    If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
+                        m_daMutiert_am = SqlDateTime.Null
+                    Else
+                        m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
+                    End If
+                    If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
+                        m_iMutierer = SqlInt32.Null
+                    Else
+                        m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("anwendungnr") Is System.DBNull.Value Then
+                        m_iAnwendungnr = SqlInt32.Null
+                    Else
+                        m_iAnwendungnr = New SqlInt32(CType(dtToReturn.Rows(0)("anwendungnr"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("owner") Is System.DBNull.Value Then
+                        m_iOwner = SqlInt32.Null
+                    Else
+                        m_iOwner = New SqlInt32(CType(dtToReturn.Rows(0)("owner"), Integer))
+                    End If
+                End If
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsOffice_vorlage::SelectOne::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: SelectAll method. This method will Select all rows from the table.
+        ' /// </summary>
+        ' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Overrides Function SelectAll() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_office_vorlage_SelectAll]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("office_vorlage")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_office_vorlage_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsOffice_vorlage::SelectAll::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+#Region " Class Property Declarations "
+
+		Public Property [iOffice_vorlagenr]() As SqlInt32
+			Get
+				Return m_iOffice_vorlagenr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iOffice_vorlagenrTmp As SqlInt32 = Value
+				If iOffice_vorlagenrTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iOffice_vorlagenr", "iOffice_vorlagenr can't be NULL")
+				End If
+				m_iOffice_vorlagenr = Value
+			End Set
+		End Property
+
+
+		Public Property [sBezeichnung]() As SqlString
+			Get
+				Return m_sBezeichnung
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sBezeichnung = Value
+			End Set
+		End Property
+
+
+		Public Property [sBeschreibung]() As SqlString
+			Get
+				Return m_sBeschreibung
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sBeschreibung = Value
+			End Set
+		End Property
+
+
+		Public Property [iVorlageid]() As SqlInt32
+			Get
+				Return m_iVorlageid
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iVorlageid = Value
+			End Set
+		End Property
+
+
+		Public Property [sVorlagename]() As SqlString
+			Get
+				Return m_sVorlagename
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sVorlagename = Value
+			End Set
+		End Property
+
+
+		Public Property [sPrefix_dokumentname]() As SqlString
+			Get
+				Return m_sPrefix_dokumentname
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sPrefix_dokumentname = Value
+			End Set
+		End Property
+
+
+		Public Property [bIdv_vorlage]() As SqlBoolean
+			Get
+				Return m_bIdv_vorlage
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				Dim bIdv_vorlageTmp As SqlBoolean = Value
+				If bIdv_vorlageTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("bIdv_vorlage", "bIdv_vorlage can't be NULL")
+				End If
+				m_bIdv_vorlage = Value
+			End Set
+		End Property
+
+
+		Public Property [sIdv_id]() As SqlString
+			Get
+				Return m_sIdv_id
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sIdv_id = Value
+			End Set
+		End Property
+
+
+		Public Property [sOffice_vorlage]() As SqlString
+			Get
+				Return m_sOffice_vorlage
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sOffice_vorlage = Value
+			End Set
+		End Property
+
+
+		Public Property [bAbsender_ersteller]() As SqlBoolean
+			Get
+				Return m_bAbsender_ersteller
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bAbsender_ersteller = Value
+			End Set
+		End Property
+
+
+		Public Property [bIdv_nativ]() As SqlBoolean
+			Get
+				Return m_bIdv_nativ
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				Dim bIdv_nativTmp As SqlBoolean = Value
+				If bIdv_nativTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("bIdv_nativ", "bIdv_nativ can't be NULL")
+				End If
+				m_bIdv_nativ = Value
+			End Set
+		End Property
+
+
+		Public Property [bDokument_geschuetzt]() As SqlBoolean
+			Get
+				Return m_bDokument_geschuetzt
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bDokument_geschuetzt = Value
+			End Set
+		End Property
+
+
+		Public Property [bKopfzeile_generieren]() As SqlBoolean
+			Get
+				Return m_bKopfzeile_generieren
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				Dim bKopfzeile_generierenTmp As SqlBoolean = Value
+				If bKopfzeile_generierenTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("bKopfzeile_generieren", "bKopfzeile_generieren can't be NULL")
+				End If
+				m_bKopfzeile_generieren = Value
+			End Set
+		End Property
+
+
+		Public Property [iKlassifizierung]() As SqlInt32
+			Get
+				Return m_iKlassifizierung
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iKlassifizierung = Value
+			End Set
+		End Property
+
+
+		Public Property [iBcpt]() As SqlInt32
+			Get
+				Return m_iBcpt
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iBcptTmp As SqlInt32 = Value
+				If iBcptTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iBcpt", "iBcpt can't be NULL")
+				End If
+				m_iBcpt = Value
+			End Set
+		End Property
+
+
+		Public Property [iBcpl]() As SqlInt32
+			Get
+				Return m_iBcpl
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iBcpl = Value
+			End Set
+		End Property
+
+
+		Public Property [iBcw]() As SqlInt32
+			Get
+				Return m_iBcw
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iBcwTmp As SqlInt32 = Value
+				If iBcwTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iBcw", "iBcw can't be NULL")
+				End If
+				m_iBcw = Value
+			End Set
+		End Property
+
+
+		Public Property [iBch]() As SqlInt32
+			Get
+				Return m_iBch
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iBchTmp As SqlInt32 = Value
+				If iBchTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iBch", "iBch can't be NULL")
+				End If
+				m_iBch = Value
+			End Set
+		End Property
+
+
+		Public Property [bBchorizontal]() As SqlBoolean
+			Get
+				Return m_bBchorizontal
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bBchorizontal = Value
+			End Set
+		End Property
+
+
+		Public Property [iMandantnr]() As SqlInt32
+			Get
+				Return m_iMandantnr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMandantnr = Value
+			End Set
+		End Property
+
+
+		Public Property [bAktiv]() As SqlBoolean
+			Get
+				Return m_bAktiv
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bAktiv = Value
+			End Set
+		End Property
+
+
+		Public Property [daErstellt_am]() As SqlDateTime
+			Get
+				Return m_daErstellt_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daErstellt_am = Value
+			End Set
+		End Property
+
+
+		Public Property [daMutiert_am]() As SqlDateTime
+			Get
+				Return m_daMutiert_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daMutiert_am = Value
+			End Set
+		End Property
+
+
+		Public Property [iMutierer]() As SqlInt32
+			Get
+				Return m_iMutierer
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMutierer = Value
+			End Set
+		End Property
+
+
+		Public Property [iAnwendungnr]() As SqlInt32
+			Get
+				Return m_iAnwendungnr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iAnwendungnr = Value
+			End Set
+		End Property
+
+
+		Public Property [iOwner]() As SqlInt32
+			Get
+				Return m_iOwner
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iOwner = Value
+			End Set
+		End Property
+
+#End Region
+
+	End Class
+End Namespace

EDKB18/Batch/EDKB18/EDKB18/obj/Debug/EDKB18.vbproj.CoreCompileInputs.cache

@@ -0,0 +1 @@
+ff327e975066bc497b66b0574ecd4f992965e82e

EDKB18/Batch/EDKB18/EDKB18/obj/Debug/EDKB18.vbproj.FileListAbsolute.txt

@@ -0,0 +1,10 @@
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\obj\Debug\EDKB18.Resources.resources
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\obj\Debug\EDKB18.vbproj.GenerateResource.cache
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\obj\Debug\EDKB18.vbproj.CoreCompileInputs.cache
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\bin\Debug\EDKB18.exe.config
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\bin\Debug\EDKB18.exe
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\bin\Debug\EDKB18.pdb
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\bin\Debug\EDKB18.xml
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\obj\Debug\EDKB18.exe
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\obj\Debug\EDKB18.xml
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\obj\Debug\EDKB18.pdb

EDKB18/Batch/EDKB18/EDKB18/obj/Debug/EDKB18.xml

@@ -0,0 +1,26 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+EDKB18
+</name>
+</assembly>
+<members>
+<member name="T:EDKB18.My.Resources.Resources">
+<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+<member name="P:EDKB18.My.Resources.Resources.ResourceManager">
+<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member>
+<member name="P:EDKB18.My.Resources.Resources.Culture">
+<summary>
+  Overrides the current thread's CurrentUICulture property for all
+  resource lookups using this strongly typed resource class.
+</summary>
+</member>
+</members>
+</doc>

EDKB18/Batch/EDKB18/EDKB18/obj/Release/EDKB18.vbproj.CoreCompileInputs.cache

@@ -0,0 +1 @@
+ff327e975066bc497b66b0574ecd4f992965e82e

EDKB18/Batch/EDKB18/EDKB18/obj/Release/EDKB18.vbproj.FileListAbsolute.txt

@@ -0,0 +1,11 @@
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\bin\Release\EDKB18.exe.config
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\bin\Release\EDKB18.exe
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\bin\Release\EDKB18.pdb
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\bin\Release\EDKB18.xml
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\obj\Release\EDKB18.Resources.resources
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\obj\Release\EDKB18.vbproj.GenerateResource.cache
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\obj\Release\EDKB18.vbproj.CoreCompileInputs.cache
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\obj\Release\EDKB18.exe
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\obj\Release\EDKB18.xml
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\obj\Release\EDKB18.pdb
+E:\Software-Projekte\EDOKA\batch\EDKB18\Batch\EDKB18\EDKB18\obj\Release\EDKB18.vbprojAssemblyReference.cache

EDKB18/Batch/EDKB18/EDKB18/obj/Release/EDKB18.xml

@@ -0,0 +1,26 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+EDKB18
+</name>
+</assembly>
+<members>
+<member name="T:EDKB18.My.Resources.Resources">
+<summary>
+  A strongly-typed resource class, for looking up localized strings, etc.
+</summary>
+</member>
+<member name="P:EDKB18.My.Resources.Resources.ResourceManager">
+<summary>
+  Returns the cached ResourceManager instance used by this class.
+</summary>
+</member>
+<member name="P:EDKB18.My.Resources.Resources.Culture">
+<summary>
+  Overrides the current thread's CurrentUICulture property for all
+  resource lookups using this strongly typed resource class.
+</summary>
+</member>
+</members>
+</doc>