Initial

Backup/DataAccess/Anwendung.vb

@@ -0,0 +1,193 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+'''<summary>DataAccess Klasse von der Tabelle Anwendung</summary>
+Public Class Anwendung
+    '''<summary>gibt eine anwendung zurück</summary>
+    '''<param name="ds">für datenrückgabe</param>
+    '''<param name="anwendungsNr"></param>
+    Public Shared Sub GetAnwendung(ByRef ds As DataSet, ByVal anwendungsNr As Integer)
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+        Dim da As New SqlDataAdapter()
+
+        Try
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+            sqlCmd.CommandText = "sp_GetAnwendung"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@DokumentartNr", anwendungsNr))
+            da.SelectCommand = sqlCmd
+            da.Fill(ds, "Anwendung")
+
+        Catch ex As Exception
+            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Dokumentart.GetAnwendung", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        Finally
+            sqlConn.Dispose()
+            sqlCmd.Dispose()
+            da.Dispose()
+        End Try
+    End Sub
+
+    '''<summary>gibt eine liste aller anwendungen zurück</summary>
+    '''<param name="ds">für datenrückgabe</param>
+    '''<param name="aktiv">1 nur aktive; 0 nur inaktive; -1 alle</param>
+    Public Shared Sub List(ByRef ds As DataSet, ByVal aktiv As Integer)
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+        Dim da As New SqlDataAdapter()
+
+        Try
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+            sqlCmd.CommandText = "sp_ListAnwendung"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            If aktiv <> -1 Then
+                sqlCmd.Parameters.Add(New SqlParameter("@Aktiv", aktiv))
+            End If
+
+            da.SelectCommand = sqlCmd
+            da.Fill(ds, "Anwendungen")
+
+        Catch ex As Exception
+            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Anwendung.List", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        Finally
+            sqlConn.Dispose()
+            sqlCmd.Dispose()
+            da.Dispose()
+        End Try
+    End Sub
+
+
+    '''<summary>erstellt eine anwendung</summary>
+    '''<param name="anwendungNr"></param>
+    '''<param name="bezeichnung"></param>
+    '''<param name="beschreibung"></param>
+    '''<param name="mandantnr"></param>
+    '''<param name="aktiv"></param>
+    '''<param name="mutierer"></param>
+    '''<returns>error</returns>
+    Public Shared Function Add(ByRef anwendungNr As Integer, ByVal bezeichnung As String, _
+        ByVal beschreibung As String, ByVal mandantnr As Integer, ByVal aktiv As Boolean, _
+        ByVal mutierer As Integer) As Integer
+
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+
+        Try
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+            sqlCmd.CommandText = "sp_InsAnwendung"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@bezeichnung", NullHandler.CToSqlString(bezeichnung)))
+            sqlCmd.Parameters.Add(New SqlParameter("@beschreibung", NullHandler.CToSqlString(beschreibung)))
+            sqlCmd.Parameters.Add(New SqlParameter("@mandantnr", NullHandler.CToSqlInt(mandantnr)))
+            sqlCmd.Parameters.Add(New SqlParameter("@Aktiv", aktiv))
+            sqlCmd.Parameters.Add(New SqlParameter("@mutierer", mutierer))
+
+            sqlCmd.Parameters.Add(New SqlParameter("@AnwendungNr", 0))
+            sqlCmd.Parameters.Add(New SqlParameter("@Return", DBNull.Value))
+            sqlCmd.Parameters("@AnwendungNr").Direction = ParameterDirection.Output
+            sqlCmd.Parameters("@Return").Direction = ParameterDirection.ReturnValue
+
+            sqlConn.Open()
+            sqlCmd.ExecuteNonQuery()
+
+            If CInt(sqlCmd.Parameters("@Return").Value) = 0 Then
+                anwendungnr = CInt(sqlCmd.Parameters("@AnwendungNr").Value)
+            End If
+
+            Return CInt(sqlCmd.Parameters("@Return").Value)
+
+        Catch ex As Exception
+            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Anwendung.Add", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        Finally
+            sqlConn.Dispose()
+            sqlCmd.Dispose()
+        End Try
+    End Function
+
+
+    '''<summary>Löscht eine bestehende anwendung</summary>
+    '''<param name="anwendungNr"></param>
+    '''<returns>error</returns>
+    Public Shared Function Delete(ByVal anwendungNr As Integer) As Integer
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+
+        Try
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+            sqlCmd.CommandText = "sp_DelAnwendung"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@@anwendungnr", anwendungNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@Return", DBNull.Value))
+            sqlCmd.Parameters("@Return").Direction = ParameterDirection.ReturnValue
+
+            sqlConn.Open()
+            sqlCmd.ExecuteNonQuery()
+
+            Return CInt(sqlCmd.Parameters("@Return").Value)
+
+        Catch ex As Exception
+            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Anwendung.Delete", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        Finally
+            sqlConn.Dispose()
+            sqlCmd.Dispose()
+        End Try
+    End Function
+
+
+    '''<summary>aktualisiert eine anwendung</summary>
+    '''<param name="anwendungNr">kritetrium (wird nicht aktualisiert)</param>
+    '''<param name="bezeichnung"></param>
+    '''<param name="beschreibung"></param>
+    '''<param name="mandantnr"></param>
+    '''<param name="aktiv"></param>
+    '''<param name="mutierer"></param>
+    '''<returns>error</returns>
+    Public Shared Function Update(ByVal anwendungNr As Integer, ByVal bezeichnung As String, _
+            ByVal beschreibung As String, ByVal mandantnr As Integer, ByVal aktiv As Boolean, _
+            ByVal mutierer As Integer) As Integer
+
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+
+        Try
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+            sqlCmd.CommandText = "sp_SetAnwendung"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@AnwendungNr", anwendungNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@bezeichnung", NullHandler.CToSqlString(bezeichnung)))
+            sqlCmd.Parameters.Add(New SqlParameter("@beschreibung", NullHandler.CToSqlString(beschreibung)))
+            sqlCmd.Parameters.Add(New SqlParameter("@mandantnr", NullHandler.CToSqlInt(mandantnr)))
+            sqlCmd.Parameters.Add(New SqlParameter("@Aktiv", aktiv))
+            sqlCmd.Parameters.Add(New SqlParameter("@mutierer", mutierer))
+
+            sqlCmd.Parameters.Add(New SqlParameter("@Return", DBNull.Value))
+            sqlCmd.Parameters("@Return").Direction = ParameterDirection.ReturnValue
+
+            sqlConn.Open()
+            sqlCmd.ExecuteNonQuery()
+
+            Return CInt(sqlCmd.Parameters("@Return").Value)
+
+        Catch ex As Exception
+            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Anwendung.Update", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        Finally
+            sqlConn.Dispose()
+            sqlCmd.Dispose()
+        End Try
+    End Function
+End Class

Backup/DataAccess/AssemblyInfo.vb

@@ -0,0 +1,31 @@
+Imports System.Reflection
+Imports System.Runtime.InteropServices
+
+' Allgemeine Informationen über eine Assembly werden über die folgende 
+' Attributgruppe gesteuert. Ändern Sie diese Attributwerte, um Informationen,
+' die mit einer Assembly verknüpft sind, zu bearbeiten.
+
+' Die Werte der Assemblyattribute überprüfen
+
+<Assembly: AssemblyTitle("")> 
+<Assembly: AssemblyDescription("")> 
+<Assembly: AssemblyCompany("")> 
+<Assembly: AssemblyProduct("")> 
+<Assembly: AssemblyCopyright("")> 
+<Assembly: AssemblyTrademark("")> 
+<Assembly: CLSCompliant(True)> 
+
+'Die folgende GUID ist für die ID der Typbibliothek, wenn dieses Projekt in COM angezeigt wird
+<Assembly: Guid("8274B598-13D0-4738-9B6A-3BD24F105C9D")> 
+
+' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
+'
+'      Haupversion
+'      Nebenversion 
+'      Buildnummer
+'      Revisionsnummer
+'
+' Sie können alle Werte angeben oder auf die standardmäßigen Build- und Revisionsnummern 
+' zurückgreifen, indem Sie '*' wie unten angezeigt verwenden:
+
+<Assembly: AssemblyVersion("1.0.*")> 

Backup/DataAccess/Config.vb

@@ -0,0 +1,25 @@
+Public Class Config
+    Private Shared _nullReplacer As Integer
+    Private Shared _firstTime As Boolean = True
+
+    Public Shared ReadOnly Property NullReplacer() As Integer
+        Get
+            Try
+                If _firstTime Then 'load from db
+                    Dim ds As New DataSet()
+                    Parameter.GetParameter(ds, 0, "NullReplaceValue")
+                    If ds.Tables.Count > 0 Then
+                        If ds.Tables(0).Rows.Count > 0 Then
+                            _nullReplacer = CInt(ds.Tables(0).Rows(0)("Wert"))
+                        End If
+                    End If
+                End If
+                Return _nullReplacer
+            Catch ex As Exception
+                TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Config.NullReplacer", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+                Throw ex
+            End Try
+        End Get
+    End Property
+
+End Class

Backup/DataAccess/DataAccess.vbproj

@@ -0,0 +1,197 @@
+<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003" ToolsVersion="3.5">
+  <PropertyGroup>
+    <ProjectType>Local</ProjectType>
+    <ProductVersion>9.0.30729</ProductVersion>
+    <SchemaVersion>2.0</SchemaVersion>
+    <ProjectGuid>{6D3A9C4A-7025-4FD6-9BB3-B70874F0527C}</ProjectGuid>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ApplicationIcon>
+    </ApplicationIcon>
+    <AssemblyKeyContainerName>
+    </AssemblyKeyContainerName>
+    <AssemblyName>EDOKALib.DataAccess</AssemblyName>
+    <AssemblyOriginatorKeyFile>
+    </AssemblyOriginatorKeyFile>
+    <AssemblyOriginatorKeyMode>None</AssemblyOriginatorKeyMode>
+    <DefaultClientScript>JScript</DefaultClientScript>
+    <DefaultHTMLPageLayout>Grid</DefaultHTMLPageLayout>
+    <DefaultTargetSchema>IE50</DefaultTargetSchema>
+    <DelaySign>false</DelaySign>
+    <OutputType>Library</OutputType>
+    <OptionCompare>Binary</OptionCompare>
+    <OptionExplicit>On</OptionExplicit>
+    <OptionStrict>Off</OptionStrict>
+    <RootNamespace>EDOKALib.DataAccess</RootNamespace>
+    <StartupObject>EDOKALib.DataAccess.%28Keine%29</StartupObject>
+    <FileUpgradeFlags>
+    </FileUpgradeFlags>
+    <MyType>Windows</MyType>
+    <UpgradeBackupLocation>
+    </UpgradeBackupLocation>
+    <SccProjectName>
+    </SccProjectName>
+    <SccLocalPath>
+    </SccLocalPath>
+    <SccAuxPath>
+    </SccAuxPath>
+    <SccProvider>
+    </SccProvider>
+    <OldToolsVersion>2.0</OldToolsVersion>
+    <TargetFrameworkVersion>v3.5</TargetFrameworkVersion>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <OutputPath>bin\</OutputPath>
+    <DocumentationFile>EDOKALib.DataAccess.xml</DocumentationFile>
+    <BaseAddress>285212672</BaseAddress>
+    <ConfigurationOverrideFile>
+    </ConfigurationOverrideFile>
+    <DefineConstants>
+    </DefineConstants>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <DebugSymbols>true</DebugSymbols>
+    <Optimize>false</Optimize>
+    <RegisterForComInterop>false</RegisterForComInterop>
+    <RemoveIntegerChecks>false</RemoveIntegerChecks>
+    <TreatWarningsAsErrors>false</TreatWarningsAsErrors>
+    <WarningLevel>1</WarningLevel>
+    <NoWarn>42016,42017,42018,42019,42032</NoWarn>
+    <DebugType>full</DebugType>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <OutputPath>bin\</OutputPath>
+    <DocumentationFile>EDOKALib.DataAccess.xml</DocumentationFile>
+    <BaseAddress>285212672</BaseAddress>
+    <ConfigurationOverrideFile>
+    </ConfigurationOverrideFile>
+    <DefineConstants>
+    </DefineConstants>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <DebugSymbols>false</DebugSymbols>
+    <Optimize>true</Optimize>
+    <RegisterForComInterop>false</RegisterForComInterop>
+    <RemoveIntegerChecks>false</RemoveIntegerChecks>
+    <TreatWarningsAsErrors>false</TreatWarningsAsErrors>
+    <WarningLevel>1</WarningLevel>
+    <NoWarn>42016,42017,42018,42019,42032</NoWarn>
+    <DebugType>none</DebugType>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'EDOKA_DLLs|AnyCPU' ">
+    <OutputPath>bin\</OutputPath>
+    <DocumentationFile>EDOKALib.DataAccess.xml</DocumentationFile>
+    <BaseAddress>285212672</BaseAddress>
+    <ConfigurationOverrideFile>
+    </ConfigurationOverrideFile>
+    <DefineConstants>
+    </DefineConstants>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <DebugSymbols>true</DebugSymbols>
+    <Optimize>false</Optimize>
+    <RegisterForComInterop>false</RegisterForComInterop>
+    <RemoveIntegerChecks>false</RemoveIntegerChecks>
+    <TreatWarningsAsErrors>false</TreatWarningsAsErrors>
+    <WarningLevel>1</WarningLevel>
+    <NoWarn>42016,42017,42018,42019,42032</NoWarn>
+    <DebugType>full</DebugType>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="System">
+      <Name>System</Name>
+    </Reference>
+    <Reference Include="System.Core">
+      <RequiredTargetFramework>3.5</RequiredTargetFramework>
+    </Reference>
+    <Reference Include="System.Data">
+      <Name>System.Data</Name>
+    </Reference>
+    <Reference Include="System.Xml">
+      <Name>System.XML</Name>
+    </Reference>
+    <Reference Include="TKBLib.Errorhandling.v1">
+      <Name>TKBLib.Errorhandling.v1</Name>
+      <HintPath>..\..\..\proj\TKBLib\aktuellDebug\TKBLib.Errorhandling.v1.dll</HintPath>
+    </Reference>
+    <ProjectReference Include="..\Common\Common.vbproj">
+      <Name>Common</Name>
+      <Project>{67E15143-9CF6-4595-8A52-A01A16370E51}</Project>
+      <Package>{F184B08F-C81C-45F6-A57F-5ABD9991F28F}</Package>
+    </ProjectReference>
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Data" />
+    <Import Include="System.Diagnostics" />
+    <Import Include="System.Linq" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="Anwendung.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="AssemblyInfo.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="Config.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="Dokument.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="Dokumentart.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="Dokumenttyp.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="Funktionsgruppe.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="Klassifizierung.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="Meldungstext.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="Mitarbeiter.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="MitarbeiterFunktionsgruppe.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="NullHandler.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="OfficeVorlage.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="Parameter.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="Profil.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="Spalten.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="Team.vb">
+      <SubType>Code</SubType>
+    </Compile>
+    <Compile Include="TeamMitarbeiter.vb">
+      <SubType>Code</SubType>
+    </Compile>
+  </ItemGroup>
+  <ItemGroup>
+    <Folder Include="My Project\" />
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
+  <PropertyGroup>
+    <PreBuildEvent>
+    </PreBuildEvent>
+    <PostBuildEvent>
+    </PostBuildEvent>
+  </PropertyGroup>
+</Project>

Backup/DataAccess/DataAccess.vbproj.user

@@ -0,0 +1,78 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <LastOpenVersion>7.10.3077</LastOpenVersion>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ReferencePath>C:\proj\TKBLib\aktuellDebug\</ReferencePath>
+    <CopyProjectDestinationFolder>
+    </CopyProjectDestinationFolder>
+    <CopyProjectUncPath>
+    </CopyProjectUncPath>
+    <CopyProjectOption>0</CopyProjectOption>
+    <ProjectView>ProjectFiles</ProjectView>
+    <ProjectTrust>0</ProjectTrust>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <EnableASPDebugging>false</EnableASPDebugging>
+    <EnableASPXDebugging>false</EnableASPXDebugging>
+    <EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
+    <EnableSQLServerDebugging>false</EnableSQLServerDebugging>
+    <RemoteDebugEnabled>false</RemoteDebugEnabled>
+    <RemoteDebugMachine>
+    </RemoteDebugMachine>
+    <StartAction>Project</StartAction>
+    <StartArguments>
+    </StartArguments>
+    <StartPage>
+    </StartPage>
+    <StartProgram>
+    </StartProgram>
+    <StartURL>
+    </StartURL>
+    <StartWorkingDirectory>
+    </StartWorkingDirectory>
+    <StartWithIE>false</StartWithIE>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <EnableASPDebugging>false</EnableASPDebugging>
+    <EnableASPXDebugging>false</EnableASPXDebugging>
+    <EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
+    <EnableSQLServerDebugging>false</EnableSQLServerDebugging>
+    <RemoteDebugEnabled>false</RemoteDebugEnabled>
+    <RemoteDebugMachine>
+    </RemoteDebugMachine>
+    <StartAction>Project</StartAction>
+    <StartArguments>
+    </StartArguments>
+    <StartPage>
+    </StartPage>
+    <StartProgram>
+    </StartProgram>
+    <StartURL>
+    </StartURL>
+    <StartWorkingDirectory>
+    </StartWorkingDirectory>
+    <StartWithIE>false</StartWithIE>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'EDOKA_DLLs|AnyCPU' ">
+    <EnableASPDebugging>false</EnableASPDebugging>
+    <EnableASPXDebugging>false</EnableASPXDebugging>
+    <EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
+    <EnableSQLServerDebugging>false</EnableSQLServerDebugging>
+    <RemoteDebugEnabled>false</RemoteDebugEnabled>
+    <RemoteDebugMachine>
+    </RemoteDebugMachine>
+    <StartAction>Project</StartAction>
+    <StartArguments>
+    </StartArguments>
+    <StartPage>
+    </StartPage>
+    <StartProgram>
+    </StartProgram>
+    <StartURL>
+    </StartURL>
+    <StartWorkingDirectory>
+    </StartWorkingDirectory>
+    <StartWithIE>true</StartWithIE>
+  </PropertyGroup>
+</Project>

Backup/DataAccess/Dokument.vb

@@ -0,0 +1,51 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+'''<summary>Datenzugriff auf Dokumente</summary>
+Public Class Dokument
+
+#Region "Public methods"
+
+	'''<summary>Setz den Status eines Dokuments</summary>
+
+	Overloads Shared Function SetStatus(ByVal sourceApplication As String, ByVal parameterName As String, ByVal value As String, ByVal mutiererMitarbeiterNr As Integer) As Integer
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+
+		Try
+			sqlCmd.CommandText = "sp_SetDokumentStatus"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlCmd.Parameters.Add(New SqlParameter("@SourceApplication", sourceApplication))
+			sqlCmd.Parameters.Add(New SqlParameter("@ParameterName", parameterName))
+			sqlCmd.Parameters.Add(New SqlParameter("@Value", value))
+			sqlCmd.Parameters.Add(New SqlParameter("@MutiererMitarbeiterNr", mutiererMitarbeiterNr))
+
+			sqlConn.Open()
+
+			If sqlCmd.ExecuteNonQuery() = 0 Then
+				'no rows have been affected
+				Return 1
+			Else
+				'all right
+				Return 0
+			End If
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+		End Try
+	End Function
+
+#End Region
+
+End Class

Backup/DataAccess/Dokumentart.vb

@@ -0,0 +1,223 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+
+'''<summary>Datenzugriff auf Tabelle dokumentart</summary>
+Public Class Dokumentart
+    '''<summary>gibt eine dokumentart zurück</summary>
+    '''<param name="ds">für datenrückgabe</param>
+    '''<param name="dokumentartNr"></param>
+
+    Public Shared Sub GetDokumentart(ByRef ds As DataSet, ByVal dokumentartNr As Integer)
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+        Dim da As New SqlDataAdapter()
+
+        Try
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+            sqlCmd.CommandText = "sp_GetDokumentart"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@DokumentartNr", dokumentartNr))
+            da.SelectCommand = sqlCmd
+            da.Fill(ds, "Dokumentart")
+
+        Catch ex As Exception
+            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Dokumentart.GetDokumentart", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        Finally
+            sqlConn.Dispose()
+            sqlCmd.Dispose()
+            da.Dispose()
+        End Try
+    End Sub
+
+    '''<summary>gibt eine liste aller dokumentarten zurück</summary>
+    '''<param name="ds">für datenrückgabe</param>
+    '''<param name="aktiv">1 nur aktive; 0 nur inaktive; -1 alle</param>
+
+    Public Shared Sub List(ByRef ds As DataSet, ByVal aktiv As Integer)
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+        Dim da As New SqlDataAdapter()
+
+        Try
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+            sqlCmd.CommandText = "sp_ListDokumentart"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            If aktiv <> -1 Then
+                sqlCmd.Parameters.Add(New SqlParameter("@Aktiv", aktiv))
+            End If
+
+            da.SelectCommand = sqlCmd
+            da.Fill(ds, "Dokumentarten")
+
+        Catch ex As Exception
+            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Dokumentart.List", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        Finally
+            sqlConn.Dispose()
+            sqlCmd.Dispose()
+            da.Dispose()
+        End Try
+    End Sub
+
+
+    '''<summary>erstellt eine neue dokumentart</summary>
+    '''<param name="dokumentartNr">gibt den neuen primarykey zurück</param>
+    '''<param name="bezeichnung"></param>
+    '''<param name="parentId"></param>
+    '''<param name="sort"></param>
+    '''<param name="imageIndex"></param>
+    '''<param name="imageIndexOpen"></param>
+    '''<param name="beschreibung"></param>
+    '''<param name="mandantNr"></param>
+    '''<param name="sprache"></param>
+    '''<param name="aktiv"></param>
+    '''<param name="mutierer"></param>
+    '''<param name="coldApplication"></param>
+    '''<param name="coldBezeichnung"></param>
+    '''<returns>error</returns>
+    Public Shared Function Add(ByRef dokumentartNr As Integer, ByVal bezeichnung As String, ByVal parentId As Integer, ByVal sort As Integer, _
+        ByVal imageIndex As Integer, ByVal imageIndexOpen As Integer, ByVal beschreibung As String, ByVal mandantNr As Integer, ByVal sprache As Integer, _
+        ByVal aktiv As Boolean, ByVal mutierer As Integer, ByVal coldApplication As String, ByVal coldBezeichnung As String) As Integer
+
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+
+        Try
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+            sqlCmd.CommandText = "sp_InsDokumentart"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@Bezeichnung", NullHandler.CToSqlString(bezeichnung)))
+            sqlCmd.Parameters.Add(New SqlParameter("@ParentId", NullHandler.CToSqlInt(parentId)))
+            sqlCmd.Parameters.Add(New SqlParameter("@Sort", NullHandler.CToSqlInt(sort)))
+            sqlCmd.Parameters.Add(New SqlParameter("@ImageIndex", NullHandler.CToSqlInt(imageIndex)))
+            sqlCmd.Parameters.Add(New SqlParameter("@ImageIndexOpen", NullHandler.CToSqlInt(imageIndexOpen)))
+            sqlCmd.Parameters.Add(New SqlParameter("@Beschreibung", NullHandler.CToSqlString(beschreibung)))
+            sqlCmd.Parameters.Add(New SqlParameter("@MandantNr", mandantNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@Sprache", sprache))
+            sqlCmd.Parameters.Add(New SqlParameter("@Aktiv", aktiv))
+            sqlCmd.Parameters.Add(New SqlParameter("@Mutierer", NullHandler.CToSqlInt(mutierer)))
+            sqlCmd.Parameters.Add(New SqlParameter("@ColdApplication", NullHandler.CToSqlString(coldApplication)))
+            sqlCmd.Parameters.Add(New SqlParameter("@ColdBezeichnung", NullHandler.CToSqlString(coldBezeichnung)))
+            sqlCmd.Parameters.Add(New SqlParameter("@DokumentartNr", 0))
+            sqlCmd.Parameters.Add(New SqlParameter("@Return", DBNull.Value))
+            sqlCmd.Parameters("@DokumentartNr").Direction = ParameterDirection.Output
+            sqlCmd.Parameters("@Return").Direction = ParameterDirection.ReturnValue
+
+            sqlConn.Open()
+            sqlCmd.ExecuteNonQuery()
+
+            If CInt(sqlCmd.Parameters("@Return").Value) = 0 Then
+                dokumentartNr = CInt(sqlCmd.Parameters("@DokumentartNr").Value)
+            End If
+
+            Return CInt(sqlCmd.Parameters("@Return").Value)
+
+        Catch ex As Exception
+            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Dokumentart.Add", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        Finally
+            sqlConn.Dispose()
+            sqlCmd.Dispose()
+        End Try
+    End Function
+
+
+    '''<summary>Löscht eine bestehende dokumentenArt</summary>
+    '''<param name="dokumentartNr"></param>
+    '''<returns>error</returns>
+    Public Shared Function Delete(ByVal dokumentartNr As Integer) As Integer
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+
+        Try
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+            sqlCmd.CommandText = "sp_DelDokumentart"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@DokumentartNr", dokumentartNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@Return", DBNull.Value))
+            sqlCmd.Parameters("@Return").Direction = ParameterDirection.ReturnValue
+
+            sqlConn.Open()
+            sqlCmd.ExecuteNonQuery()
+
+            Return CInt(sqlCmd.Parameters("@Return").Value)
+
+        Catch ex As Exception
+            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Dokumentart.Delete", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        Finally
+            sqlConn.Dispose()
+            sqlCmd.Dispose()
+        End Try
+    End Function
+
+
+    '''<summary>updatet eine dokumentenart</summary>
+    '''<param name="dokumentartNr">criterium (keine aktualisierung für diesen param)</param>
+    '''<param name="bezeichnung"></param>
+    '''<param name="parentId"></param>
+    '''<param name="sort"></param>
+    '''<param name="imageIndex"></param>
+    '''<param name="imageIndexOpen"></param>
+    '''<param name="beschreibung"></param>
+    '''<param name="mandantNr"></param>
+    '''<param name="sprache"></param>
+    '''<param name="aktiv"></param>
+    '''<param name="mutierer"></param>
+    '''<param name="coldApplication"></param>
+    '''<param name="coldBezeichnung"></param>
+    '''<returns>error</returns>
+    Public Shared Function Update(ByVal dokumentartNr As Integer, ByVal bezeichnung As String, ByVal parentId As Integer, ByVal sort As Integer, _
+        ByVal imageIndex As Integer, ByVal imageIndexOpen As Integer, ByVal beschreibung As String, ByVal mandantNr As Integer, ByVal sprache As Integer, _
+        ByVal aktiv As Boolean, ByVal mutierer As Integer, ByVal coldApplication As String, ByVal coldBezeichnung As String) As Integer
+
+
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+
+        Try
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+            sqlCmd.CommandText = "sp_SetDokumentart"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@DokumentartNr", dokumentartNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@Bezeichnung", NullHandler.CToSqlString(bezeichnung)))
+            sqlCmd.Parameters.Add(New SqlParameter("@ParentId", NullHandler.CToSqlInt(parentId)))
+            sqlCmd.Parameters.Add(New SqlParameter("@Sort", NullHandler.CToSqlInt(sort)))
+            sqlCmd.Parameters.Add(New SqlParameter("@ImageIndex", NullHandler.CToSqlInt(imageIndex)))
+            sqlCmd.Parameters.Add(New SqlParameter("@ImageIndexOpen", NullHandler.CToSqlInt(imageIndexOpen)))
+            sqlCmd.Parameters.Add(New SqlParameter("@Beschreibung", NullHandler.CToSqlString(beschreibung)))
+            sqlCmd.Parameters.Add(New SqlParameter("@MandantNr", mandantNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@Sprache", sprache))
+            sqlCmd.Parameters.Add(New SqlParameter("@Aktiv", aktiv))
+            sqlCmd.Parameters.Add(New SqlParameter("@Mutierer", NullHandler.CToSqlInt(mutierer)))
+            sqlCmd.Parameters.Add(New SqlParameter("@ColdApplication", NullHandler.CToSqlString(coldApplication)))
+            sqlCmd.Parameters.Add(New SqlParameter("@ColdBezeichnung", NullHandler.CToSqlString(coldBezeichnung)))
+            sqlCmd.Parameters.Add(New SqlParameter("@Return", DBNull.Value))
+            sqlCmd.Parameters("@Return").Direction = ParameterDirection.ReturnValue
+
+            sqlConn.Open()
+            sqlCmd.ExecuteNonQuery()
+
+            Return CInt(sqlCmd.Parameters("@Return").Value)
+
+        Catch ex As Exception
+            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Dokumentart.Update", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        Finally
+            sqlConn.Dispose()
+            sqlCmd.Dispose()
+        End Try
+    End Function
+End Class

Backup/DataAccess/Dokumenttyp.vb

@@ -0,0 +1,492 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+
+'''<summary>Datenzugriff auf Tabelle dokumenttyp</summary>
+Public Class Dokumenttyp
+
+    
+    '''<summary>gibt einen dokumenttyp zurück</summary>
+    '''<param name="ds">für datenrückgabe</param>
+    '''<param name="DokumenttypNr"></param>
+
+    Public Shared Sub GetDokumenttyp(ByRef ds As DataSet, ByVal DokumenttypNr As Integer)
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+        Dim da As New SqlDataAdapter()
+
+        Try
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+            sqlCmd.CommandText = "sp_GetDokumenttyp"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@DokumenttypNr", DokumenttypNr))
+            da.SelectCommand = sqlCmd
+            da.Fill(ds, "Dokumenttyp")
+
+        Catch ex As Exception
+            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Dokumenttyp.GetDokumenttyp", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        Finally
+            sqlConn.Dispose()
+            sqlCmd.Dispose()
+            da.Dispose()
+        End Try
+    End Sub
+
+    '''<summary>gibt eine liste aller Dokumenttypen zurück</summary>
+    '''<param name="ds">für datenrückgabe</param>
+    '''<param name="aktiv">1 nur aktive; 0 nur inaktive; -1 alle</param>
+
+    Public Shared Sub List(ByRef ds As DataSet, ByVal aktiv As Integer)
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+        Dim da As New SqlDataAdapter()
+
+        Try
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+            sqlCmd.CommandText = "sp_ListDokumenttyp"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            If aktiv <> -1 Then
+                sqlCmd.Parameters.Add(New SqlParameter("@Aktiv", aktiv))
+            End If
+
+            da.SelectCommand = sqlCmd
+            da.Fill(ds, "Dokumenttypen")
+
+        Catch ex As Exception
+            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Dokumenttyp.List", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        Finally
+            sqlConn.Dispose()
+            sqlCmd.Dispose()
+            da.Dispose()
+        End Try
+    End Sub
+
+	'''<summary>Überprüft ob eim Mitarbeiter berechtigt ist ein Dokument aus DokTyp zu erstellen</summary>
+	'''<param name="dokumentTypNr">DokumentTyp von zu erstellendem Dokument</param>
+	'''<param name="nrPar00">Partner Nummer</param>
+	'''<param name="mitarbeiterNr">Mitarbeiter welcher Dokument erstellen will</param>
+	'''<returns>True wenn Mitarbeiter berechtigt ist</returns>
+	Public Shared Function IsMitarbeiterBerechtigt(ByVal dokumentTypNr As Integer, ByVal nrPar00 As Integer, ByVal mitarbeiterNr As Integer)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+		Try
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+			sqlCmd.CommandText = "sp_HasEmployeePermissionToCreateDocument"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, mitarbeiterNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumentTypNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@berechtigt", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, 0))
+
+			sqlConn.Open()
+
+			sqlCmd.ExecuteNonQuery()
+
+			If Convert.ToBoolean(sqlCmd.Parameters("@berechtigt").Value) Then
+				'hat permission
+				Return True
+			Else
+				'keine permission
+				Return False
+			End If
+		Catch ex As Exception
+			Throw ex
+		Finally
+			sqlCmd.Dispose()
+			sqlConn.Dispose()
+		End Try
+	End Function
+
+	'''<summary>erstellt einen datentyp</summary>
+	'''<param name="DokumenttypNr">return neuer primary key</param>
+	'''<param name="bezeichnung"></param>
+	'''<param name="beschreibung"></param>
+	'''<param name="zu_vercolden"></param>
+	'''<param name="zu_retournieren"></param>
+	'''<param name="eingang_ersetzt_ausgang"></param>
+	'''<param name="wird_importiert"></param>
+	'''<param name="anzahl_tage"></param>
+	'''<param name="dbearbeitungszeit"></param>
+	'''<param name="tage_mutation"></param>
+	'''<param name="partnersaldierung_statusalt"></param>
+	'''<param name="wird_nicht_geloescht"></param>
+	'''<param name="vertrauliches_dokument"></param>
+	'''<param name="unterschrift_links"></param>
+	'''<param name="unterschrift_rechts"></param>
+	'''<param name="monate_bis_zur_archivierung"></param>
+	'''<param name="aufbewahrungsfrist_elektronisch"></param>
+	'''<param name="aufbewahrungsfrist_physisch"></param>
+	'''<param name="mandantnr"></param>
+	'''<param name="aktiv"></param>
+	'''<param name="erstellt_am"></param>
+	'''<param name="mutiert_am"></param>
+	'''<param name="mutierer"></param>
+	'''<param name="office_vorlagenr"></param>
+	'''<param name="dokumentart_kundendossier"></param>
+	'''<param name="dokumentart_neuerstellung"></param>
+	'''<param name="dokumentart_retournierung"></param>
+	'''<param name="dokumentart_coldausgang"></param>
+	'''<param name="dokumentart_coldeingang"></param>
+	'''<param name="dokumentart_host"></param>
+	'''<param name="dokumentart_weitere"></param>
+	'''<param name="dokumentart_nativ"></param>
+	'''<param name="prozessnr"></param>
+	'''<param name="prozessnr1"></param>
+	'''<param name="amsdokument"></param>
+	'''<param name="hostdokument"></param>
+	'''<param name="hostdokumenttyp"></param>
+	'''<param name="cold_folder"></param>
+	'''<param name="physisches_archiv"></param>
+	'''<param name="dokumentstatus"></param>
+	'''<param name="Dokument_wird_erstellt"></param>
+	'''<param name="Dokument_wird_retourniert"></param>
+	'''<param name="cold_ersetzen"></param>
+	'''<param name="email_versand"></param>
+	'''<param name="funktionen_zuweisen"></param>
+	'''<param name="dokumentstatus_barcode"></param>
+	'''<param name="nurnative"></param>
+	'''<param name="Owner"></param>
+	'''<param name="vertrag"></param>
+	'''<param name="objektbezeichnungnr"></param>
+	'''<param name="bedingtretournierbar"></param>
+	'''<param name="doktypbedingteretournierung"></param>
+	'''<param name="tagebisvernichtungbedingteretournierung"></param>
+	'''<param name="AnzeigeZurDokumenterstellung"></param>
+	'''<param name="KundenDokument"></param>
+	'''<param name="sb"></param>
+	'''<param name="sbimport"></param>
+	'''<param name="sbedituser"></param>
+	'''<param name="sbnur"></param>
+	'''<param name="bezeichnungmut"></param>
+	'''<param name="istFarbigArchiviert"></param>
+	'''<returns>error</returns>
+	Public Shared Function Add(ByRef DokumenttypNr As Integer, ByVal bezeichnung As String, ByVal beschreibung As String, _
+	 ByVal zu_vercolden As Boolean, ByVal zu_retournieren As Boolean, ByVal eingang_ersetzt_ausgang As Boolean, _
+	 ByVal wird_importiert As Boolean, ByVal anzahl_tage As Integer, ByVal dbearbeitungszeit As Integer, _
+	 ByVal tage_mutation As Integer, ByVal partnersaldierung_statusalt As Boolean, ByVal wird_nicht_geloescht As Boolean, _
+	 ByVal vertrauliches_dokument As Boolean, ByVal unterschrift_links As Boolean, ByVal unterschrift_rechts As Boolean, _
+	 ByVal monate_bis_zur_archivierung As Integer, ByVal aufbewahrungsfrist_elektronisch As Integer, _
+	 ByVal aufbewahrungsfrist_physisch As Integer, ByVal mandantnr As Integer, ByVal aktiv As Boolean, _
+	 ByVal erstellt_am As DateTime, ByVal mutiert_am As DateTime, ByVal mutierer As Integer, _
+	 ByVal office_vorlagenr As Integer, ByVal dokumentart_kundendossier As Integer, ByVal dokumentart_neuerstellung As Integer, _
+	 ByVal dokumentart_retournierung As Integer, ByVal dokumentart_coldausgang As Integer, _
+	 ByVal dokumentart_coldeingang As Integer, ByVal dokumentart_host As Integer, ByVal dokumentart_weitere As Integer, _
+	 ByVal dokumentart_nativ As Integer, ByVal prozessnr As Integer, ByVal prozessnr1 As Integer, _
+	 ByVal amsdokument As Boolean, ByVal hostdokument As Boolean, ByVal hostdokumenttyp As String, _
+	 ByVal cold_folder As Integer, ByVal physisches_archiv As Integer, ByVal dokumentstatus As Integer, _
+	 ByVal Dokument_wird_erstellt As Boolean, ByVal Dokument_wird_retourniert As Boolean, ByVal cold_ersetzen As Boolean, _
+	 ByVal email_versand As Boolean, ByVal funktionen_zuweisen As Boolean, ByVal dokumentstatus_barcode As Integer, _
+	 ByVal nurnative As Boolean, ByVal Owner As Integer, ByVal vertrag As Boolean, ByVal objektbezeichnungnr As Integer, _
+	 ByVal bedingtretournierbar As Boolean, ByVal doktypbedingteretournierung As Integer, _
+	 ByVal tagebisvernichtungbedingteretournierung As Integer, ByVal AnzeigeZurDokumenterstellung As Boolean, _
+	 ByVal KundenDokument As Boolean, ByVal sb As Boolean, ByVal sbimport As Boolean, ByVal sbedituser As Boolean, _
+	 ByVal sbnur As Boolean, ByVal bezeichnungmut As Boolean, ByVal istFarbigArchiviert As Boolean) As Integer
+
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+
+		Try
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+			sqlCmd.CommandText = "sp_InsDokumenttyp"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@bezeichnung", NullHandler.CToSqlString(bezeichnung)))
+			sqlCmd.Parameters.Add(New SqlParameter("@beschreibung", NullHandler.CToSqlString(beschreibung)))
+			sqlCmd.Parameters.Add(New SqlParameter("@zu_vercolden", zu_vercolden))
+			sqlCmd.Parameters.Add(New SqlParameter("@zu_retournieren", zu_retournieren))
+			sqlCmd.Parameters.Add(New SqlParameter("@eingang_ersetzt_ausgang", eingang_ersetzt_ausgang))
+			sqlCmd.Parameters.Add(New SqlParameter("@wird_importiert", wird_importiert))
+			sqlCmd.Parameters.Add(New SqlParameter("@anzahl_tage", anzahl_tage))
+			sqlCmd.Parameters.Add(New SqlParameter("@dbearbeitungszeit", dbearbeitungszeit))
+			sqlCmd.Parameters.Add(New SqlParameter("@tage_mutation", tage_mutation))
+			sqlCmd.Parameters.Add(New SqlParameter("@partnersaldierung_statusalt", partnersaldierung_statusalt))
+			sqlCmd.Parameters.Add(New SqlParameter("@wird_nicht_geloescht", wird_nicht_geloescht))
+			sqlCmd.Parameters.Add(New SqlParameter("@vertrauliches_dokument", vertrauliches_dokument))
+			sqlCmd.Parameters.Add(New SqlParameter("@unterschrift_links", unterschrift_links))
+			sqlCmd.Parameters.Add(New SqlParameter("@unterschrift_rechts", unterschrift_rechts))
+			sqlCmd.Parameters.Add(New SqlParameter("@monate_bis_zur_archivierung", monate_bis_zur_archivierung))
+			sqlCmd.Parameters.Add(New SqlParameter("@aufbewahrungsfrist_elektronisch", aufbewahrungsfrist_elektronisch))
+			sqlCmd.Parameters.Add(New SqlParameter("@aufbewahrungsfrist_physisch", aufbewahrungsfrist_physisch))
+			sqlCmd.Parameters.Add(New SqlParameter("@mandantnr", NullHandler.CToSqlInt(mandantnr)))
+			sqlCmd.Parameters.Add(New SqlParameter("@aktiv", aktiv))
+			sqlCmd.Parameters.Add(New SqlParameter("@erstellt_am", NullHandler.CToSqlDateTime(erstellt_am)))
+			sqlCmd.Parameters.Add(New SqlParameter("@mutiert_am", NullHandler.CToSqlDateTime(mutiert_am)))
+			sqlCmd.Parameters.Add(New SqlParameter("@mutierer", NullHandler.CToSqlInt(mutierer)))
+			sqlCmd.Parameters.Add(New SqlParameter("@office_vorlagenr", NullHandler.CToSqlInt(office_vorlagenr)))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_kundendossier", NullHandler.CToSqlInt(dokumentart_kundendossier)))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_neuerstellung", NullHandler.CToSqlInt(dokumentart_neuerstellung)))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_retournierung", NullHandler.CToSqlInt(dokumentart_retournierung)))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_coldausgang", dokumentart_coldausgang))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_coldeingang", dokumentart_coldeingang))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_host", NullHandler.CToSqlInt(dokumentart_host)))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_weitere", NullHandler.CToSqlInt(dokumentart_weitere)))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_nativ", NullHandler.CToSqlInt(dokumentart_nativ)))
+			sqlCmd.Parameters.Add(New SqlParameter("@prozessnr", NullHandler.CToSqlInt(prozessnr)))
+			sqlCmd.Parameters.Add(New SqlParameter("@prozessnr1", NullHandler.CToSqlInt(prozessnr1)))
+			sqlCmd.Parameters.Add(New SqlParameter("@amsdokument", amsdokument))
+			sqlCmd.Parameters.Add(New SqlParameter("@hostdokument", hostdokument))
+			sqlCmd.Parameters.Add(New SqlParameter("@hostdokumenttyp", NullHandler.CToSqlString(hostdokumenttyp)))
+			sqlCmd.Parameters.Add(New SqlParameter("@cold_folder", NullHandler.CToSqlInt(cold_folder)))
+			sqlCmd.Parameters.Add(New SqlParameter("@physisches_archiv", NullHandler.CToSqlInt(physisches_archiv)))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumentstatus", NullHandler.CToSqlInt(dokumentstatus)))
+			sqlCmd.Parameters.Add(New SqlParameter("@Dokument_wird_erstellt", Dokument_wird_erstellt))
+			sqlCmd.Parameters.Add(New SqlParameter("@Dokument_wird_retourniert", Dokument_wird_retourniert))
+			sqlCmd.Parameters.Add(New SqlParameter("@cold_ersetzen", cold_ersetzen))
+			sqlCmd.Parameters.Add(New SqlParameter("@email_versand", email_versand))
+			sqlCmd.Parameters.Add(New SqlParameter("@funktionen_zuweisen", funktionen_zuweisen))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumentstatus_barcode", NullHandler.CToSqlInt(dokumentstatus_barcode)))
+			sqlCmd.Parameters.Add(New SqlParameter("@nurnative", nurnative))
+			sqlCmd.Parameters.Add(New SqlParameter("@Owner", NullHandler.CToSqlInt(Owner)))
+			sqlCmd.Parameters.Add(New SqlParameter("@vertrag", vertrag))
+			sqlCmd.Parameters.Add(New SqlParameter("@objektbezeichnungnr", NullHandler.CToSqlInt(objektbezeichnungnr)))
+			sqlCmd.Parameters.Add(New SqlParameter("@bedingtretournierbar", bedingtretournierbar))
+			sqlCmd.Parameters.Add(New SqlParameter("@doktypbedingteretournierung", NullHandler.CToSqlInt(doktypbedingteretournierung)))
+			sqlCmd.Parameters.Add(New SqlParameter("@tagebisvernichtungbedingteretournierung", NullHandler.CToSqlInt(tagebisvernichtungbedingteretournierung)))
+			sqlCmd.Parameters.Add(New SqlParameter("@AnzeigeZurDokumenterstellung", AnzeigeZurDokumenterstellung))
+			sqlCmd.Parameters.Add(New SqlParameter("@KundenDokument", KundenDokument))
+			sqlCmd.Parameters.Add(New SqlParameter("@sb", sb))
+			sqlCmd.Parameters.Add(New SqlParameter("@sbimport", sbimport))
+			sqlCmd.Parameters.Add(New SqlParameter("@sbedituser", sbedituser))
+			sqlCmd.Parameters.Add(New SqlParameter("@sbnur", sbnur))
+			sqlCmd.Parameters.Add(New SqlParameter("@bezeichnungmut", bezeichnungmut))
+			sqlCmd.Parameters.Add(New SqlParameter("@istFarbigArchiviert", istFarbigArchiviert))
+			sqlCmd.Parameters.Add(New SqlParameter("@DokumenttypNr", 0))
+			sqlCmd.Parameters.Add(New SqlParameter("@Return", DBNull.Value))
+			sqlCmd.Parameters("@DokumenttypNr").Direction = ParameterDirection.Output
+			sqlCmd.Parameters("@Return").Direction = ParameterDirection.ReturnValue
+
+			sqlConn.Open()
+			sqlCmd.ExecuteNonQuery()
+
+			If CInt(sqlCmd.Parameters("@Return").Value) = 0 Then
+				DokumenttypNr = CInt(sqlCmd.Parameters("@DokumenttypNr").Value)
+			End If
+
+			Return CInt(sqlCmd.Parameters("@Return").Value)
+
+		Catch ex As Exception
+			TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Dokumenttyp.Add", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+			Throw ex
+		Finally
+			sqlConn.Dispose()
+			sqlCmd.Dispose()
+		End Try
+	End Function
+
+
+	'''<summary>Löscht ein bestehender dokumententyp</summary>
+	'''<param name="DokumenttypNr"></param>
+	'''<returns>error</returns>
+	Public Shared Function Delete(ByVal DokumenttypNr As Integer) As Integer
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+
+		Try
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+			sqlCmd.CommandText = "sp_DelDokumenttyp"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@DokumenttypNr", DokumenttypNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@Return", DBNull.Value))
+			sqlCmd.Parameters("@Return").Direction = ParameterDirection.ReturnValue
+
+			sqlConn.Open()
+			sqlCmd.ExecuteNonQuery()
+
+			Return CInt(sqlCmd.Parameters("@Return").Value)
+
+		Catch ex As Exception
+			TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Dokumenttyp.Delete", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+			Throw ex
+		Finally
+			sqlConn.Dispose()
+			sqlCmd.Dispose()
+		End Try
+	End Function
+
+
+
+	'''<summary>aktualisiert einen datentyp</summary>
+	'''<param name="DokumenttypNr">kriterium (kein update auf diesem feld)</param>
+	'''<param name="bezeichnung"></param>
+	'''<param name="beschreibung"></param>
+	'''<param name="zu_vercolden"></param>
+	'''<param name="zu_retournieren"></param>
+	'''<param name="eingang_ersetzt_ausgang"></param>
+	'''<param name="wird_importiert"></param>
+	'''<param name="anzahl_tage"></param>
+	'''<param name="dbearbeitungszeit"></param>
+	'''<param name="tage_mutation"></param>
+	'''<param name="partnersaldierung_statusalt"></param>
+	'''<param name="wird_nicht_geloescht"></param>
+	'''<param name="vertrauliches_dokument"></param>
+	'''<param name="unterschrift_links"></param>
+	'''<param name="unterschrift_rechts"></param>
+	'''<param name="monate_bis_zur_archivierung"></param>
+	'''<param name="aufbewahrungsfrist_elektronisch"></param>
+	'''<param name="aufbewahrungsfrist_physisch"></param>
+	'''<param name="mandantnr"></param>
+	'''<param name="aktiv"></param>
+	'''<param name="erstellt_am"></param>
+	'''<param name="mutiert_am"></param>
+	'''<param name="mutierer"></param>
+	'''<param name="office_vorlagenr"></param>
+	'''<param name="dokumentart_kundendossier"></param>
+	'''<param name="dokumentart_neuerstellung"></param>
+	'''<param name="dokumentart_retournierung"></param>
+	'''<param name="dokumentart_coldausgang"></param>
+	'''<param name="dokumentart_coldeingang"></param>
+	'''<param name="dokumentart_host"></param>
+	'''<param name="dokumentart_weitere"></param>
+	'''<param name="dokumentart_nativ"></param>
+	'''<param name="prozessnr"></param>
+	'''<param name="prozessnr1"></param>
+	'''<param name="amsdokument"></param>
+	'''<param name="hostdokument"></param>
+	'''<param name="hostdokumenttyp"></param>
+	'''<param name="cold_folder"></param>
+	'''<param name="physisches_archiv"></param>
+	'''<param name="dokumentstatus"></param>
+	'''<param name="Dokument_wird_erstellt"></param>
+	'''<param name="Dokument_wird_retourniert"></param>
+	'''<param name="cold_ersetzen"></param>
+	'''<param name="email_versand"></param>
+	'''<param name="funktionen_zuweisen"></param>
+	'''<param name="dokumentstatus_barcode"></param>
+	'''<param name="nurnative"></param>
+	'''<param name="Owner"></param>
+	'''<param name="vertrag"></param>
+	'''<param name="objektbezeichnungnr"></param>
+	'''<param name="bedingtretournierbar"></param>
+	'''<param name="doktypbedingteretournierung"></param>
+	'''<param name="tagebisvernichtungbedingteretournierung"></param>
+	'''<param name="AnzeigeZurDokumenterstellung"></param>
+	'''<param name="KundenDokument"></param>
+	'''<param name="sb"></param>
+	'''<param name="sbimport"></param>
+	'''<param name="sbedituser"></param>
+	'''<param name="sbnur"></param>
+	'''<param name="bezeichnungmut"></param>
+	'''<param name="istFarbigArchiviert"></param>
+	'''<returns>error</returns>
+	Public Shared Function Update(ByVal DokumenttypNr As Integer, ByVal bezeichnung As String, ByVal beschreibung As String, _
+	 ByVal zu_vercolden As Boolean, ByVal zu_retournieren As Boolean, ByVal eingang_ersetzt_ausgang As Boolean, _
+	 ByVal wird_importiert As Boolean, ByVal anzahl_tage As Integer, ByVal dbearbeitungszeit As Integer, _
+	 ByVal tage_mutation As Integer, ByVal partnersaldierung_statusalt As Boolean, ByVal wird_nicht_geloescht As Boolean, _
+	 ByVal vertrauliches_dokument As Boolean, ByVal unterschrift_links As Boolean, ByVal unterschrift_rechts As Boolean, _
+	 ByVal monate_bis_zur_archivierung As Integer, ByVal aufbewahrungsfrist_elektronisch As Integer, _
+	 ByVal aufbewahrungsfrist_physisch As Integer, ByVal mandantnr As Integer, ByVal aktiv As Boolean, _
+	 ByVal erstellt_am As DateTime, ByVal mutiert_am As DateTime, ByVal mutierer As Integer, _
+	 ByVal office_vorlagenr As Integer, ByVal dokumentart_kundendossier As Integer, ByVal dokumentart_neuerstellung As Integer, _
+	 ByVal dokumentart_retournierung As Integer, ByVal dokumentart_coldausgang As Integer, _
+	 ByVal dokumentart_coldeingang As Integer, ByVal dokumentart_host As Integer, ByVal dokumentart_weitere As Integer, _
+	 ByVal dokumentart_nativ As Integer, ByVal prozessnr As Integer, ByVal prozessnr1 As Integer, _
+	 ByVal amsdokument As Boolean, ByVal hostdokument As Boolean, ByVal hostdokumenttyp As String, _
+	 ByVal cold_folder As Integer, ByVal physisches_archiv As Integer, ByVal dokumentstatus As Integer, _
+	 ByVal Dokument_wird_erstellt As Boolean, ByVal Dokument_wird_retourniert As Boolean, ByVal cold_ersetzen As Boolean, _
+	 ByVal email_versand As Boolean, ByVal funktionen_zuweisen As Boolean, ByVal dokumentstatus_barcode As Integer, _
+	 ByVal nurnative As Boolean, ByVal Owner As Integer, ByVal vertrag As Boolean, ByVal objektbezeichnungnr As Integer, _
+	 ByVal bedingtretournierbar As Boolean, ByVal doktypbedingteretournierung As Integer, _
+	 ByVal tagebisvernichtungbedingteretournierung As Integer, ByVal AnzeigeZurDokumenterstellung As Boolean, _
+	 ByVal KundenDokument As Boolean, ByVal sb As Boolean, ByVal sbimport As Boolean, ByVal sbedituser As Boolean, _
+	 ByVal sbnur As Boolean, ByVal bezeichnungmut As Boolean, ByVal istFarbigArchiviert As Boolean) As Integer
+
+
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+
+		Try
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+			sqlCmd.CommandText = "sp_SetParameter"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@DokumenttypNr", DokumenttypNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@bezeichnung", NullHandler.CToSqlString(bezeichnung)))
+			sqlCmd.Parameters.Add(New SqlParameter("@beschreibung", NullHandler.CToSqlString(beschreibung)))
+			sqlCmd.Parameters.Add(New SqlParameter("@zu_vercolden", zu_vercolden))
+			sqlCmd.Parameters.Add(New SqlParameter("@zu_retournieren", zu_retournieren))
+			sqlCmd.Parameters.Add(New SqlParameter("@eingang_ersetzt_ausgang", eingang_ersetzt_ausgang))
+			sqlCmd.Parameters.Add(New SqlParameter("@wird_importiert", wird_importiert))
+			sqlCmd.Parameters.Add(New SqlParameter("@anzahl_tage", anzahl_tage))
+			sqlCmd.Parameters.Add(New SqlParameter("@dbearbeitungszeit", dbearbeitungszeit))
+			sqlCmd.Parameters.Add(New SqlParameter("@tage_mutation", tage_mutation))
+			sqlCmd.Parameters.Add(New SqlParameter("@partnersaldierung_statusalt", partnersaldierung_statusalt))
+			sqlCmd.Parameters.Add(New SqlParameter("@wird_nicht_geloescht", wird_nicht_geloescht))
+			sqlCmd.Parameters.Add(New SqlParameter("@vertrauliches_dokument", vertrauliches_dokument))
+			sqlCmd.Parameters.Add(New SqlParameter("@unterschrift_links", unterschrift_links))
+			sqlCmd.Parameters.Add(New SqlParameter("@unterschrift_rechts", unterschrift_rechts))
+			sqlCmd.Parameters.Add(New SqlParameter("@monate_bis_zur_archivierung", monate_bis_zur_archivierung))
+			sqlCmd.Parameters.Add(New SqlParameter("@aufbewahrungsfrist_elektronisch", aufbewahrungsfrist_elektronisch))
+			sqlCmd.Parameters.Add(New SqlParameter("@aufbewahrungsfrist_physisch", aufbewahrungsfrist_physisch))
+			sqlCmd.Parameters.Add(New SqlParameter("@mandantnr", NullHandler.CToSqlInt(mandantnr)))
+			sqlCmd.Parameters.Add(New SqlParameter("@aktiv", aktiv))
+			sqlCmd.Parameters.Add(New SqlParameter("@erstellt_am", NullHandler.CToSqlDateTime(erstellt_am)))
+			sqlCmd.Parameters.Add(New SqlParameter("@mutiert_am", NullHandler.CToSqlDateTime(mutiert_am)))
+			sqlCmd.Parameters.Add(New SqlParameter("@mutierer", NullHandler.CToSqlInt(mutierer)))
+			sqlCmd.Parameters.Add(New SqlParameter("@office_vorlagenr", NullHandler.CToSqlInt(office_vorlagenr)))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_kundendossier", NullHandler.CToSqlInt(dokumentart_kundendossier)))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_neuerstellung", NullHandler.CToSqlInt(dokumentart_neuerstellung)))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_retournierung", NullHandler.CToSqlInt(dokumentart_retournierung)))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_coldausgang", dokumentart_coldausgang))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_coldeingang", dokumentart_coldeingang))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_host", NullHandler.CToSqlInt(dokumentart_host)))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_weitere", NullHandler.CToSqlInt(dokumentart_weitere)))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumentart_nativ", NullHandler.CToSqlInt(dokumentart_nativ)))
+			sqlCmd.Parameters.Add(New SqlParameter("@prozessnr", NullHandler.CToSqlInt(prozessnr)))
+			sqlCmd.Parameters.Add(New SqlParameter("@prozessnr1", NullHandler.CToSqlInt(prozessnr1)))
+			sqlCmd.Parameters.Add(New SqlParameter("@amsdokument", amsdokument))
+			sqlCmd.Parameters.Add(New SqlParameter("@hostdokument", hostdokument))
+			sqlCmd.Parameters.Add(New SqlParameter("@hostdokumenttyp", NullHandler.CToSqlString(hostdokumenttyp)))
+			sqlCmd.Parameters.Add(New SqlParameter("@cold_folder", NullHandler.CToSqlInt(cold_folder)))
+			sqlCmd.Parameters.Add(New SqlParameter("@physisches_archiv", NullHandler.CToSqlInt(physisches_archiv)))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumentstatus", NullHandler.CToSqlInt(dokumentstatus)))
+			sqlCmd.Parameters.Add(New SqlParameter("@Dokument_wird_erstellt", Dokument_wird_erstellt))
+			sqlCmd.Parameters.Add(New SqlParameter("@Dokument_wird_retourniert", Dokument_wird_retourniert))
+			sqlCmd.Parameters.Add(New SqlParameter("@cold_ersetzen", cold_ersetzen))
+			sqlCmd.Parameters.Add(New SqlParameter("@email_versand", email_versand))
+			sqlCmd.Parameters.Add(New SqlParameter("@funktionen_zuweisen", funktionen_zuweisen))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokumentstatus_barcode", NullHandler.CToSqlInt(dokumentstatus_barcode)))
+			sqlCmd.Parameters.Add(New SqlParameter("@nurnative", nurnative))
+			sqlCmd.Parameters.Add(New SqlParameter("@Owner", NullHandler.CToSqlInt(Owner)))
+			sqlCmd.Parameters.Add(New SqlParameter("@vertrag", vertrag))
+			sqlCmd.Parameters.Add(New SqlParameter("@objektbezeichnungnr", NullHandler.CToSqlInt(objektbezeichnungnr)))
+			sqlCmd.Parameters.Add(New SqlParameter("@bedingtretournierbar", bedingtretournierbar))
+			sqlCmd.Parameters.Add(New SqlParameter("@doktypbedingteretournierung", NullHandler.CToSqlInt(doktypbedingteretournierung)))
+			sqlCmd.Parameters.Add(New SqlParameter("@tagebisvernichtungbedingteretournierung", NullHandler.CToSqlInt(tagebisvernichtungbedingteretournierung)))
+			sqlCmd.Parameters.Add(New SqlParameter("@AnzeigeZurDokumenterstellung", AnzeigeZurDokumenterstellung))
+			sqlCmd.Parameters.Add(New SqlParameter("@KundenDokument", KundenDokument))
+			sqlCmd.Parameters.Add(New SqlParameter("@sb", sb))
+			sqlCmd.Parameters.Add(New SqlParameter("@sbimport", sbimport))
+			sqlCmd.Parameters.Add(New SqlParameter("@sbedituser", sbedituser))
+			sqlCmd.Parameters.Add(New SqlParameter("@sbnur", sbnur))
+			sqlCmd.Parameters.Add(New SqlParameter("@bezeichnungmut", bezeichnungmut))
+			sqlCmd.Parameters.Add(New SqlParameter("@istFarbigArchiviert", istFarbigArchiviert))
+			sqlCmd.Parameters.Add(New SqlParameter("@Return", DBNull.Value))
+			sqlCmd.Parameters("@Return").Direction = ParameterDirection.ReturnValue
+
+			sqlConn.Open()
+			sqlCmd.ExecuteNonQuery()
+
+			Return CInt(sqlCmd.Parameters("@Return").Value)
+
+		Catch ex As Exception
+			TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Dokumenttyp.Update", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+			Throw ex
+		Finally
+			sqlConn.Dispose()
+			sqlCmd.Dispose()
+		End Try
+	End Function
+
+
+End Class

Backup/DataAccess/Funktionsgruppe.vb

@@ -0,0 +1,46 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+'''<summary>Datenzugriff auf Tabelle Funktionsgruppe</summary>
+Public Class Funktionsgruppe
+
+#Region "Public methods"
+
+	'''<summary>Gibt eine Liste mit allen Funktionsgrupppen zurück</summary>
+	'''<param name="ds">Das DataSet welches gefüllt werden soll</param>
+
+	Overloads Shared Sub GetListe(ByRef ds As DataSet)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+		Dim da As New SqlDataAdapter()
+
+		Try
+			sqlCmd.CommandText = "sp_ListFunktionsgruppen"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlConn.Open()
+
+			da.SelectCommand = sqlCmd
+			da.Fill(ds, "FunktionsgruppenListe")
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+			If da Is Nothing Then
+				da.Dispose()
+			End If
+		End Try
+	End Sub
+
+#End Region
+
+End Class

Backup/DataAccess/Klassifizierung.vb

@@ -0,0 +1,84 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+'''<summary>Datenzugriff auf Tabelle Klassifizierung</summary>
+Public Class Klassifizierung
+
+#Region "Public methods"
+
+	'''<summary>Gibt eine Liste mit allen Funktionsgrupppen zurück</summary>
+	'''<param name="ds">Das DataSet welches gefüllt werden soll</param>
+
+    Overloads Shared Sub GetListe(ByRef ds As DataSet)
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+        Dim da As New SqlDataAdapter()
+
+        Try
+            sqlCmd.CommandText = "sp_ListKlassifizierung"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+            sqlConn.Open()
+
+            da.SelectCommand = sqlCmd
+            da.Fill(ds, "KlassifizierungListe")
+
+        Catch ex As Exception
+            Throw ex
+        Finally
+            If sqlCmd Is Nothing Then
+                sqlCmd.Dispose()
+            End If
+            If sqlConn Is Nothing Then
+                sqlConn.Dispose()
+            End If
+            If da Is Nothing Then
+                da.Dispose()
+            End If
+        End Try
+    End Sub
+
+    '''<summary>Gibt alle Details zur einer Klassifizierung zurück</summary>
+    '''<param name="klassifizierungNr">Die Datenbank Nummer der Klassifizierung (ID)</param>
+    '''<param name="ds">Das zu füllende DataSet</param>
+
+	Overloads Shared Sub GetById(ByVal klassifizierungNr As Integer, ByRef ds As DataSet)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+		Dim da As New SqlDataAdapter()
+
+		Try
+			sqlCmd.CommandText = "sp_GetKlassifizierungById"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@KlassifizierungNr", klassifizierungNr))
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlConn.Open()
+
+			da.SelectCommand = sqlCmd
+			da.Fill(ds, "Klassifizierung")
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+			If da Is Nothing Then
+				da.Dispose()
+			End If
+		End Try
+	End Sub
+
+#End Region
+
+End Class

Backup/DataAccess/Meldungstext.vb

@@ -0,0 +1,48 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+'''<summary>Datenzugriff auf Tabelle Meldungstext</summary>
+Public Class Meldungstext
+
+#Region "Public methods"
+
+	'''<summary>Gibt eine Liste mit allen Spalten in einem DataSet zurück</summary>
+	'''<param name="tableName">Name der Tabelle, von welcher die Spalten zurück gegeben werden sollen</param>
+
+	Public Overloads Shared Sub GetById(ByVal meldungsTextNr As Integer, ByRef dsMeldungstext As DataSet)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+		Dim da As New SqlDataAdapter()
+
+		Try
+			sqlCmd.CommandText = "sp_GetMeldungstextById"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@MeldungstextNr", meldungsTextNr))
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlConn.Open()
+
+			da.SelectCommand = sqlCmd
+			da.Fill(dsMeldungstext, "Meldungstext")
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+			If da Is Nothing Then
+				da.Dispose()
+			End If
+		End Try
+	End Sub
+
+#End Region
+
+End Class

Backup/DataAccess/Mitarbeiter.vb

@@ -0,0 +1,322 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+'''<summary>Datenzugriff auf Tabelle Mitarbeiter</summary>
+Public Class Mitarbeiter
+
+#Region "Constructor"
+
+	Public Sub New(ByVal mitarbeiterId As Integer)
+	End Sub
+
+#End Region
+
+#Region "Public methods"
+
+	'''<summary>Gibt eine Liste mit allen Mitarbeitern zurück</summary>
+	'''<param name="teamNr">Nur Mitarbeiter von diesem Team</param>
+	'''<param name="funktionsGruppeNr">Nur Mitarbeiter von dieser Funktionsgruppe</param>
+	'''<param name="dsMitarbeiter">Das DataSet welches gefüllt werden soll</param>
+
+    Overloads Shared Sub GetListe(ByVal teamNr As Integer, ByVal funktionsGruppeNr As Integer, ByRef dsMitarbeiter As DataSet)
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+        Dim da As New SqlDataAdapter()
+
+        Try
+            sqlCmd.CommandText = "sp_ListMitarbeiter"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+            If teamNr = 0 Then
+                sqlCmd.Parameters.Add(New SqlParameter("@TeamNr", DBNull.Value))
+            Else
+                sqlCmd.Parameters.Add(New SqlParameter("@TeamNr", teamNr))
+            End If
+
+            If funktionsGruppeNr = 0 Then
+                sqlCmd.Parameters.Add(New SqlParameter("@FunktionsGruppeNr", DBNull.Value))
+            Else
+                sqlCmd.Parameters.Add(New SqlParameter("@FunktionsGruppeNr", funktionsGruppeNr))
+            End If
+
+            sqlConn.Open()
+
+            da.SelectCommand = sqlCmd
+            da.Fill(dsMitarbeiter, "MitarbeiterListe")
+
+        Catch ex As Exception
+            Throw ex
+        Finally
+            If sqlCmd Is Nothing Then
+                sqlCmd.Dispose()
+            End If
+            If sqlConn Is Nothing Then
+                sqlConn.Dispose()
+            End If
+            If da Is Nothing Then
+                da.Dispose()
+            End If
+        End Try
+    End Sub
+
+    '''<summary>Gibt alle Details zur einem Mitarbeiter zurück</summary>
+    '''<param name="mitarbeiterNr">Die datenbank Nummer des Mitarbeiters (ID)</param>
+    '''<param name="dsMitarbeiter">Das zu füllende DataSet</param>
+
+	Overloads Shared Sub GetById(ByVal mitarbeiterNr As Integer, ByRef dsMitarbeiter As DataSet)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+		Dim da As New SqlDataAdapter()
+
+		Try
+			sqlCmd.CommandText = "sp_GetMitarbeiterById"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterNr", mitarbeiterNr))
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlConn.Open()
+
+			da.SelectCommand = sqlCmd
+			da.Fill(dsMitarbeiter, "Mitarbeiter")
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+			If da Is Nothing Then
+				da.Dispose()
+			End If
+		End Try
+	End Sub
+
+	'''<summary>Gibt alle Details zur einem Mitarbeiter zurück</summary>
+	'''<param name="tgNummer">Die NT TG Nummer des Mitarbeiters (NTG, NtAccount)</param>
+	'''<param name="dsMitarbeiter">Das zu füllende DataSet</param>
+
+    Overloads Shared Sub GetByTgNummer(ByVal tgNummer As String, ByRef dsMitarbeiter As DataSet)
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+        Dim da As New SqlDataAdapter()
+
+        Try
+            sqlCmd.CommandText = "sp_GetMitarbeiterByTgNummer"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@TgNummer", tgNummer))
+
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+            sqlConn.Open()
+
+            da.SelectCommand = sqlCmd
+            da.Fill(dsMitarbeiter, "Mitarbeiter")
+
+        Catch ex As Exception
+            Throw ex
+        Finally
+            If sqlCmd Is Nothing Then
+                sqlCmd.Dispose()
+            End If
+            If sqlConn Is Nothing Then
+                sqlConn.Dispose()
+            End If
+            If da Is Nothing Then
+                da.Dispose()
+            End If
+        End Try
+    End Sub
+
+    '''<summary>Erstellt ein neues Standard Profil für den angegebenen Mitarbeiter</summary>
+    '''<param name="mitarbeiterNr">Die datenbank Nummer des Mitarbeiters (ID)</param>
+    '''<param name="mutiererMitarbeiterNr">Die datenbank Nummer des Mutierers (ID)</param>
+
+	Overloads Shared Sub CreateNewStandardProfil(ByVal mitarbeiterNr As Integer, ByVal mutiererMitarbeiterNr As Integer)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+
+		Try
+			sqlCmd.CommandText = "sp_InsMitarbeiterProfil"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterNr", mitarbeiterNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@MutiererMitarbeiterNr", mutiererMitarbeiterNr))
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlConn.Open()
+
+			sqlCmd.ExecuteNonQuery()
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+		End Try
+	End Sub
+
+	'''<summary>Gibt alle Details zur einem Mitarbeiter zurück</summary>
+    Overloads Shared Function Insert(ByVal vorname As String, ByVal name As String, ByVal kurzzeichen As String, ByVal anrede As String, _
+ ByVal tgNummer As String, ByVal eMail As String, ByVal fax As String, ByVal telefon As String, _
+ ByVal unterschriftText As String, ByVal spracheNr As Integer, ByVal fuerMandant As Integer, _
+ ByVal showTipp As Boolean, ByVal partnerNr As Integer, ByVal mandantNr As Integer, _
+ ByVal isAktiv As Boolean, ByVal mailEmpfang As Boolean, ByVal edokaMessage As Boolean, _
+ ByVal funktion As String, ByVal mailDirektVersenden As Boolean, ByVal rang As String, _
+ ByVal mailDokumentrueckgang As Boolean, ByVal klassifizierungNr As Integer, _
+ ByVal edokaMail As Boolean, ByVal journalisierung As Boolean, ByVal getMeldung As Boolean, _
+ ByVal mail1 As String, ByVal mutiererMitarbeiterNr As Integer) As Integer
+
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+
+        Try
+            sqlCmd.CommandText = "sp_InsertMitarbeiter"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@Vorname", vorname))
+            sqlCmd.Parameters.Add(New SqlParameter("@Name", name))
+            sqlCmd.Parameters.Add(New SqlParameter("@KurzZeichen", kurzzeichen))
+            sqlCmd.Parameters.Add(New SqlParameter("@Anrede", anrede))
+            sqlCmd.Parameters.Add(New SqlParameter("@TgNummer", tgNummer))
+            sqlCmd.Parameters.Add(New SqlParameter("@eMail", eMail))
+            sqlCmd.Parameters.Add(New SqlParameter("@Fax", fax))
+            sqlCmd.Parameters.Add(New SqlParameter("@Telefon", telefon))
+            sqlCmd.Parameters.Add(New SqlParameter("@UnterschriftText", unterschriftText))
+            sqlCmd.Parameters.Add(New SqlParameter("@SpracheNr", spracheNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@FuerMandantNr", fuerMandant))
+            sqlCmd.Parameters.Add(New SqlParameter("@ShowTipp", showTipp))
+            sqlCmd.Parameters.Add(New SqlParameter("@PartnerNr", partnerNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@MandantNr", mandantNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@Aktiv", isAktiv))
+            sqlCmd.Parameters.Add(New SqlParameter("@MutiererMitarbeiterNr", mutiererMitarbeiterNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@MailEmpfang", mailEmpfang))
+            sqlCmd.Parameters.Add(New SqlParameter("@EdokaMessage", edokaMessage))
+            sqlCmd.Parameters.Add(New SqlParameter("@Funktion", funktion))
+            sqlCmd.Parameters.Add(New SqlParameter("@MailDirektVersenden", mailDirektVersenden))
+            sqlCmd.Parameters.Add(New SqlParameter("@Rang", rang))
+            sqlCmd.Parameters.Add(New SqlParameter("@MailDokumentRueckgang", mailDokumentrueckgang))
+            sqlCmd.Parameters.Add(New SqlParameter("@KlassifizierungNr", klassifizierungNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@EdokaMail", edokaMail))
+            sqlCmd.Parameters.Add(New SqlParameter("@Journalisierung", journalisierung))
+            sqlCmd.Parameters.Add(New SqlParameter("@GebMeldung", getMeldung))
+            sqlCmd.Parameters.Add(New SqlParameter("@Mail1", mail1))
+
+            sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterNr", -1))
+            sqlCmd.Parameters("@MitarbeiterNr").Direction = ParameterDirection.InputOutput
+
+            sqlCmd.Parameters.Add(New SqlParameter("@Return", SqlDbType.Int))
+            sqlCmd.Parameters("@Return").Direction = ParameterDirection.ReturnValue
+
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+            sqlConn.Open()
+
+            If sqlCmd.ExecuteNonQuery() = 0 Then
+                Return -1
+            Else
+                If Convert.ToInt32(sqlCmd.Parameters("@Return").Value) <> 0 Then
+                    Throw New Exception("DA.Mitarbeiter.Insert(): Return value was " + sqlCmd.Parameters("@Return").Value)
+                Else
+                    Return Convert.ToInt32(sqlCmd.Parameters("@MitarbeiterNr").Value)
+                End If
+            End If
+
+        Catch ex As Exception
+            Throw ex
+        Finally
+            If sqlCmd Is Nothing Then
+                sqlCmd.Dispose()
+            End If
+            If sqlConn Is Nothing Then
+                sqlConn.Dispose()
+            End If
+        End Try
+    End Function
+
+	'''<summary>Aktualisiert alle Details von einem Mitarbeiter</summary>
+	Overloads Shared Function Update(ByVal mitarbeiterNr As Integer, ByVal vorname As String, ByVal name As String, ByVal kurzzeichen As String, ByVal anrede As String, _
+	ByVal tgNummer As String, ByVal eMail As String, ByVal fax As String, ByVal telefon As String, _
+	ByVal unterschriftText As String, ByVal spracheNr As Integer, ByVal fuerMandant As Integer, _
+	ByVal showTipp As Boolean, ByVal partnerNr As Integer, ByVal mandantNr As Integer, _
+	ByVal isAktiv As Boolean, ByVal mailEmpfang As Boolean, ByVal edokaMessage As Boolean, _
+	ByVal funktion As String, ByVal mailDirektVersenden As Boolean, ByVal rang As String, _
+	ByVal mailDokumentrueckgang As Boolean, ByVal klassifizierungNr As Integer, _
+	ByVal edokaMail As Boolean, ByVal journalisierung As Boolean, ByVal getMeldung As Boolean, _
+	ByVal mail1 As String, ByVal mutiererMitarbeiterNr As Integer)
+
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+
+		Try
+			sqlCmd.CommandText = "sp_UpdateMitarbeiter"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterNr", mitarbeiterNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@Vorname", vorname))
+			sqlCmd.Parameters.Add(New SqlParameter("@Name", name))
+			sqlCmd.Parameters.Add(New SqlParameter("@KurzZeichen", kurzzeichen))
+			sqlCmd.Parameters.Add(New SqlParameter("@Anrede", anrede))
+			sqlCmd.Parameters.Add(New SqlParameter("@TgNummer", tgNummer))
+			sqlCmd.Parameters.Add(New SqlParameter("@eMail", eMail))
+			sqlCmd.Parameters.Add(New SqlParameter("@Fax", fax))
+			sqlCmd.Parameters.Add(New SqlParameter("@Telefon", telefon))
+			sqlCmd.Parameters.Add(New SqlParameter("@UnterschriftText", unterschriftText))
+			sqlCmd.Parameters.Add(New SqlParameter("@SpracheNr", spracheNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@FuerMandantNr", fuerMandant))
+			sqlCmd.Parameters.Add(New SqlParameter("@ShowTipp", showTipp))
+			sqlCmd.Parameters.Add(New SqlParameter("@PartnerNr", partnerNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@MandantNr", mandantNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@Aktiv", isAktiv))
+			sqlCmd.Parameters.Add(New SqlParameter("@MutiererMitarbeiterNr", mutiererMitarbeiterNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@MailEmpfang", mailEmpfang))
+			sqlCmd.Parameters.Add(New SqlParameter("@EdokaMessage", edokaMessage))
+			sqlCmd.Parameters.Add(New SqlParameter("@Funktion", funktion))
+			sqlCmd.Parameters.Add(New SqlParameter("@MailDirektVersenden", mailDirektVersenden))
+			sqlCmd.Parameters.Add(New SqlParameter("@Rang", rang))
+			sqlCmd.Parameters.Add(New SqlParameter("@MailDokumentRueckgang", mailDokumentrueckgang))
+			sqlCmd.Parameters.Add(New SqlParameter("@KlassifizierungNr", klassifizierungNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@EdokaMail", edokaMail))
+			sqlCmd.Parameters.Add(New SqlParameter("@Journalisierung", journalisierung))
+			sqlCmd.Parameters.Add(New SqlParameter("@GebMeldung", getMeldung))
+			sqlCmd.Parameters.Add(New SqlParameter("@Mail1", mail1))
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlConn.Open()
+
+			sqlCmd.ExecuteNonQuery()
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+		End Try
+	End Function
+
+#End Region
+
+End Class

Backup/DataAccess/MitarbeiterFunktionsgruppe.vb

@@ -0,0 +1,154 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+'''<summary>Datenzugriff auf Tabelle mitarbeiter_funktionsgruppe</summary>
+Public Class MitarbeiterFunktionsgruppe
+
+#Region "Public methods"
+
+	'''<summary>Gibt eine Liste mit allen Funktionsgrupppen denen ein Mitarbeiter zugewiesen ist zurück</summary>
+	'''<param name="ds">Das DataSet welches gefüllt werden soll</param>
+
+    Overloads Shared Sub GetListeByMitarbeiterNr(ByVal mitarbeiterNr As Integer, ByRef ds As DataSet)
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+        Dim da As New SqlDataAdapter()
+
+        Try
+            sqlCmd.CommandText = "sp_GetMitarbeiterFunktionsgruppen"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterNr", mitarbeiterNr))
+
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+            sqlConn.Open()
+
+            da.SelectCommand = sqlCmd
+            da.Fill(ds, "FunktionsgruppenListe")
+
+        Catch ex As Exception
+            Throw ex
+        Finally
+            If sqlCmd Is Nothing Then
+                sqlCmd.Dispose()
+            End If
+            If sqlConn Is Nothing Then
+                sqlConn.Dispose()
+            End If
+            If da Is Nothing Then
+                da.Dispose()
+            End If
+        End Try
+    End Sub
+
+    '''<summary>Fügt einen Mitarbeiter zu einer Funktionsgruppe hinzu</summary>
+    '''<param name="mitarbeiterNr">Mitarbeiter ID welche hinzugefügt werden soll</param>
+    '''<param name="funktionsGruppeNr">Ziel-Funktionsgruppe</param>
+    '''<param name="mutiererMitarbeiterNr">Mitarbeiter welcher die Änderung vornimmt</param>
+
+	Public Overloads Shared Sub Insert(ByVal mitarbeiterNr As Integer, ByVal funktionsGruppeNr As Integer, ByVal mutiererMitarbeiterNr As Integer)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+
+		Try
+			sqlCmd.CommandText = "sp_InsertMitarbeiterFunktionsGruppe"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterNr", mitarbeiterNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@FunktionsGruppeNr", funktionsGruppeNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@MutiererMANr", mutiererMitarbeiterNr))
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlConn.Open()
+
+			sqlCmd.ExecuteNonQuery()
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+		End Try
+	End Sub
+
+	'''<summary>Fügt einen Mitarbeiter zu einer Funktionsgruppe hinzu</summary>
+	'''<param name="mitarbeiterNr">Mitarbeiter ID welche hinzugefügt werden soll</param>
+	'''<param name="funktionsGruppeNr">Ziel-Funktionsgruppe</param>
+	'''<param name="mutiererMitarbeiterNr">Mitarbeiter welcher die Änderung vornimmt</param>
+
+    Public Overloads Shared Function Delete(ByVal mitarbeiter_funktionsGruppeNr As Integer, ByVal mutiererMitarbeiterNr As Integer)
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+
+        Try
+            sqlCmd.CommandText = "sp_DeleteMitarbeiterFunktionsGruppe"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@Mitarbeiter_FunktionsGruppeNr", mitarbeiter_funktionsGruppeNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@MutiererMANr", mutiererMitarbeiterNr))
+
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+            sqlConn.Open()
+
+            sqlCmd.ExecuteNonQuery()
+
+        Catch ex As Exception
+            Throw ex
+        Finally
+            If sqlCmd Is Nothing Then
+                sqlCmd.Dispose()
+            End If
+            If sqlConn Is Nothing Then
+                sqlConn.Dispose()
+            End If
+        End Try
+    End Function
+
+    '''<summary>Set den Aktiv Status einer Mitarbeiter Funktionsgruppen Zuordnung</summary>
+    '''<param name="mitarbeiterFunktionsgruppeNr">Das DataSet welches gefüllt werden soll</param>
+    '''<param name="isAktiv">Das DataSet welches gefüllt werden soll</param>
+
+	Overloads Shared Sub SetAktiv(ByVal mitarbeiterFunktionsgruppeNr As Integer, ByVal isAktiv As Boolean, ByVal mutiererMitarbeiterNr As Integer)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+
+		Try
+			sqlCmd.CommandText = "sp_SetMitarbeiterFunktionsgruppen"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterFunktionsgruppeNr", mitarbeiterFunktionsgruppeNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@IsAktiv", isAktiv))
+			sqlCmd.Parameters.Add(New SqlParameter("@MutiererMitarbeiterNr", mutiererMitarbeiterNr))
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlConn.Open()
+
+			sqlCmd.ExecuteNonQuery()
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+		End Try
+	End Sub
+
+#End Region
+
+End Class

Backup/DataAccess/NullHandler.vb

@@ -0,0 +1,23 @@
+Public Class NullHandler
+    Public Shared Function CToSqlInt(ByVal value As Integer) As SqlTypes.SqlInt32
+        If value = Config.NullReplacer Then
+            Return SqlTypes.SqlInt32.Null
+        Else
+            Return SqlTypes.SqlInt32.Parse(value.ToString())
+        End If
+    End Function
+    Public Shared Function CToSqlString(ByVal value As String) As SqlTypes.SqlString
+        If value = Config.NullReplacer.ToString() Then
+            Return SqlTypes.SqlString.Null
+        Else
+            Return New SqlTypes.SqlString(value)
+        End If
+    End Function
+    Public Shared Function CToSqlDateTime(ByVal value As DateTime) As SqlTypes.SqlDateTime
+        If value = DateTime.MinValue Then
+            Return SqlTypes.SqlDateTime.Null
+        Else
+            Return New SqlTypes.SqlDateTime(value)
+        End If
+    End Function
+End Class

Backup/DataAccess/OfficeVorlage.vb

@@ -0,0 +1,275 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+
+'''<summary>Datenzugriff auf Tabelle office_vorlage</summary>
+Public Class OfficeVorlage
+
+	Public Shared Sub GetByNr(ByRef ds As DataSet, ByVal officeVorlageNr As Integer)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+		Dim da As New SqlDataAdapter()
+
+		Try
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+			sqlCmd.CommandText = "sp_GetOfficeVorlageByNr"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@OfficeVorlageNr", officeVorlageNr))
+			da.SelectCommand = sqlCmd
+			da.Fill(ds, "OfficeVorlage")
+
+		Catch ex As Exception
+			TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.OfficeVorlage.GetOfficeVorlageByNr", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+			Throw ex
+		Finally
+			sqlConn.Dispose()
+			sqlCmd.Dispose()
+			da.Dispose()
+		End Try
+	End Sub
+
+	'''<summary>gibt eine liste aller office vorlagen zurück</summary>
+	'''<param name="ds">für datenrückgabe</param>
+	'''<param name="aktiv">1 nur aktive; 0 nur inaktive; -1 alle</param>
+
+    Public Shared Sub List(ByRef ds As DataSet, ByVal aktiv As Integer)
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+        Dim da As New SqlDataAdapter()
+
+        Try
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+            sqlCmd.CommandText = "sp_ListOfficeVorlage"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@Aktiv", aktiv))
+
+            da.SelectCommand = sqlCmd
+            da.Fill(ds, "OfficeVorlagen")
+
+        Catch ex As Exception
+            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.OfficeVorlage.List", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        Finally
+            sqlConn.Dispose()
+            sqlCmd.Dispose()
+            da.Dispose()
+        End Try
+    End Sub
+
+
+    '''<summary>Fügt eine neue OffiecVorlage in die DB ein</summary>
+    '''<param name="officeVorlageNr"></param>
+    '''<param name="bezeichnung"></param>
+    '''<param name="beschreibung"></param>
+    '''<param name="vorlageId"></param>
+    '''<param name="vorlageName"></param>
+    '''<param name="prefixDokumentName"></param>
+    '''<param name="idvVorlage"></param>
+    '''<param name="idvId"></param>
+    '''<param name="officeVorlage"></param>
+    '''<param name="absenderErsteller"></param>
+    '''<param name="idvNativ"></param>
+    '''<param name="dokumentGeschuetzt"></param>
+    '''<param name="kopfzeileGenerieren"></param>
+    '''<param name="klassifizierung"></param>
+    '''<param name="bcpt"></param>
+    '''<param name="bcpl"></param>
+    '''<param name="bcw"></param>
+    '''<param name="bch"></param>
+    '''<param name="bchorizontal"></param>
+    '''<param name="mandantNr"></param>
+    '''<param name="aktiv"></param>
+    '''<param name="erstelltAm"></param>
+    '''<param name="mutiertAm"></param>
+    '''<param name="anwendungNr"></param>
+    '''<param name="owner"></param>
+    '''<returns>error</returns>
+    Public Shared Function Add(ByRef officeVorlageNr As Integer, ByVal bezeichnung As String, ByVal beschreibung As String, _
+     ByVal vorlageId As Integer, ByVal vorlageName As String, ByVal prefixDokumentName As String, ByVal idvVorlage As Boolean, ByVal idvId As String, _
+     ByVal officeVorlage As String, ByVal absenderErsteller As Boolean, ByVal idvNativ As Boolean, ByVal dokumentGeschuetzt As Boolean, _
+     ByVal kopfzeileGenerieren As Boolean, ByVal klassifizierung As Integer, ByVal bcpt As Integer, ByVal bcpl As Integer, ByVal bcw As Integer, _
+     ByVal bch As Integer, ByVal bchorizontal As Boolean, ByVal mandantNr As Integer, ByVal aktiv As Boolean, ByVal erstelltAm As DateTime, _
+     ByVal mutiertAm As DateTime, ByVal mutierer As Integer, ByVal anwendungNr As Integer, ByVal owner As Integer) As Integer
+
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+
+        Try
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+            sqlCmd.CommandText = "sp_InsOfficeVorlage"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@bezeichnung", NullHandler.CToSqlString(bezeichnung)))
+            sqlCmd.Parameters.Add(New SqlParameter("@beschreibung", NullHandler.CToSqlString(beschreibung)))
+            sqlCmd.Parameters.Add(New SqlParameter("@vorlageid", NullHandler.CToSqlInt(vorlageId)))
+            sqlCmd.Parameters.Add(New SqlParameter("@vorlagename", NullHandler.CToSqlString(vorlageName)))
+            sqlCmd.Parameters.Add(New SqlParameter("@prefix_dokumentname", NullHandler.CToSqlString(prefixDokumentName)))
+            sqlCmd.Parameters.Add(New SqlParameter("@idv_vorlage", idvVorlage))
+            sqlCmd.Parameters.Add(New SqlParameter("@idv_id", NullHandler.CToSqlString(idvId)))
+            sqlCmd.Parameters.Add(New SqlParameter("@Office_Vorlage", NullHandler.CToSqlString(officeVorlage)))
+            sqlCmd.Parameters.Add(New SqlParameter("@absender_ersteller", NullHandler.CToSqlString(absenderErsteller)))
+            sqlCmd.Parameters.Add(New SqlParameter("@idv_nativ", idvNativ))
+            sqlCmd.Parameters.Add(New SqlParameter("@dokument_geschuetzt", dokumentGeschuetzt))
+            sqlCmd.Parameters.Add(New SqlParameter("@kopfzeile_generieren", kopfzeileGenerieren))
+            sqlCmd.Parameters.Add(New SqlParameter("@klassifizierung", NullHandler.CToSqlInt(klassifizierung)))
+            sqlCmd.Parameters.Add(New SqlParameter("@bcpt", bcpt))
+            sqlCmd.Parameters.Add(New SqlParameter("@bcpl", NullHandler.CToSqlInt(bcpl)))
+            sqlCmd.Parameters.Add(New SqlParameter("@bcw", bcw))
+            sqlCmd.Parameters.Add(New SqlParameter("@bch", bch))
+            sqlCmd.Parameters.Add(New SqlParameter("@bchorizontal", bchorizontal))
+            sqlCmd.Parameters.Add(New SqlParameter("@mandantnr", NullHandler.CToSqlInt(mandantNr)))
+            sqlCmd.Parameters.Add(New SqlParameter("@aktiv", aktiv))
+            sqlCmd.Parameters.Add(New SqlParameter("@erstellt_am", NullHandler.CToSqlDateTime(erstelltAm)))
+            sqlCmd.Parameters.Add(New SqlParameter("@mutiert_am", NullHandler.CToSqlDateTime(mutiertAm)))
+            sqlCmd.Parameters.Add(New SqlParameter("@mutierer", NullHandler.CToSqlInt(mutierer)))
+            sqlCmd.Parameters.Add(New SqlParameter("@anwendungnr", NullHandler.CToSqlInt(anwendungNr)))
+            sqlCmd.Parameters.Add(New SqlParameter("@OWNER", NullHandler.CToSqlInt(owner)))
+
+            sqlCmd.Parameters.Add(New SqlParameter("@OfficeVorlageNr", DBNull.Value))
+            sqlCmd.Parameters.Add(New SqlParameter("@Return", DBNull.Value))
+            sqlCmd.Parameters("@OfficeVorlageNr").Direction = ParameterDirection.Output
+            sqlCmd.Parameters("@Return").Direction = ParameterDirection.ReturnValue
+
+            sqlConn.Open()
+            sqlCmd.ExecuteNonQuery()
+
+            If CInt(sqlCmd.Parameters("@Return").Value) <> 0 Then
+                officeVorlageNr = CInt(sqlCmd.Parameters("@OfficeVorlageNr").Value)
+            End If
+
+            Return CInt(sqlCmd.Parameters("@Return").Value)
+
+        Catch ex As Exception
+            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.OfficeVorlage.Add", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        Finally
+            sqlConn.Dispose()
+            sqlCmd.Dispose()
+        End Try
+    End Function
+
+
+    '''<summary>Löscht eine bestehende officeVorlage</summary>
+    '''<param name="officeVorlageNr"></param>
+    '''<returns>error</returns>
+    Public Shared Function Delete(ByVal officeVorlageNr As Integer) As Integer
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+
+        Try
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+            sqlCmd.CommandText = "sp_DelOfficeVorlage"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@OfficeVorlageNr", officeVorlageNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@Return", DBNull.Value))
+            sqlCmd.Parameters("@Return").Direction = ParameterDirection.ReturnValue
+
+            sqlConn.Open()
+            sqlCmd.ExecuteNonQuery()
+
+            Return CInt(sqlCmd.Parameters("@Return").Value)
+
+        Catch ex As Exception
+            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.OfficeVorlage.Delete", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        Finally
+            sqlConn.Dispose()
+            sqlCmd.Dispose()
+        End Try
+    End Function
+
+    '''<summary>Aktualisiert eine OfficeVorlage in der Datenbank</summary>
+    '''<param name="officeVorlageNr"></param>
+    '''<param name="bezeichnung"></param>
+    '''<param name="beschreibung"></param>
+    '''<param name="vorlageId"></param>
+    '''<param name="vorlageName"></param>
+    '''<param name="prefixDokumentName"></param>
+    '''<param name="idvVorlage"></param>
+    '''<param name="idvId"></param>
+    '''<param name="officeVorlage"></param>
+    '''<param name="absenderErsteller"></param>
+    '''<param name="idvNativ"></param>
+    '''<param name="dokumentGeschuetzt"></param>
+    '''<param name="kopfzeileGenerieren"></param>
+    '''<param name="klassifizierung"></param>
+    '''<param name="bcpt"></param>
+    '''<param name="bcpl"></param>
+    '''<param name="bcw"></param>
+    '''<param name="bch"></param>
+    '''<param name="bchorizontal"></param>
+    '''<param name="mandantNr"></param>
+    '''<param name="aktiv"></param>
+    '''<param name="erstelltAm"></param>
+    '''<param name="mutiertAm"></param>
+    '''<param name="mutierer"></param>
+    '''<param name="anwendungNr"></param>
+    '''<param name="owner"></param>
+
+	Public Shared Function Update(ByVal officeVorlageNr As Integer, ByVal bezeichnung As String, ByVal beschreibung As String, _
+	  ByVal vorlageId As Integer, ByVal vorlageName As String, ByVal prefixDokumentName As String, ByVal idvVorlage As Boolean, ByVal idvId As String, _
+	  ByVal officeVorlage As String, ByVal absenderErsteller As Boolean, ByVal idvNativ As Boolean, ByVal dokumentGeschuetzt As Boolean, _
+	  ByVal kopfzeileGenerieren As Boolean, ByVal klassifizierung As Integer, ByVal bcpt As Integer, ByVal bcpl As Integer, ByVal bcw As Integer, _
+	  ByVal bch As Integer, ByVal bchorizontal As Boolean, ByVal mandantNr As Integer, ByVal aktiv As Boolean, ByVal erstelltAm As DateTime, _
+	  ByVal mutiertAm As DateTime, ByVal mutierer As Integer, ByVal anwendungNr As Integer, ByVal owner As Integer) As Integer
+
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+
+		Try
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+			sqlCmd.CommandText = "sp_SetOfficeVorlage"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@bezeichnung", bezeichnung))
+			sqlCmd.Parameters.Add(New SqlParameter("@beschreibung", beschreibung))
+			sqlCmd.Parameters.Add(New SqlParameter("@vorlageid", vorlageId))
+			sqlCmd.Parameters.Add(New SqlParameter("@vorlagename", vorlageName))
+			sqlCmd.Parameters.Add(New SqlParameter("@prefix_dokumentname", prefixDokumentName))
+			sqlCmd.Parameters.Add(New SqlParameter("@idv_vorlage", idvVorlage))
+			sqlCmd.Parameters.Add(New SqlParameter("@idv_id", idvId))
+			sqlCmd.Parameters.Add(New SqlParameter("@Office_Vorlage", NullHandler.CToSqlString(officeVorlage)))
+			sqlCmd.Parameters.Add(New SqlParameter("@absender_ersteller", absenderErsteller))
+			sqlCmd.Parameters.Add(New SqlParameter("@idv_nativ", idvNativ))
+			sqlCmd.Parameters.Add(New SqlParameter("@dokument_geschuetzt", dokumentGeschuetzt))
+			sqlCmd.Parameters.Add(New SqlParameter("@kopfzeile_generieren", kopfzeileGenerieren))
+			sqlCmd.Parameters.Add(New SqlParameter("@klassifizierung", klassifizierung))
+			sqlCmd.Parameters.Add(New SqlParameter("@bcpt", bcpt))
+			sqlCmd.Parameters.Add(New SqlParameter("@bcpl", bcpl))
+			sqlCmd.Parameters.Add(New SqlParameter("@bcw", bcw))
+			sqlCmd.Parameters.Add(New SqlParameter("@bch", bch))
+			sqlCmd.Parameters.Add(New SqlParameter("@bchorizontal", bchorizontal))
+			sqlCmd.Parameters.Add(New SqlParameter("@mandantnr", mandantNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@aktiv", aktiv))
+			sqlCmd.Parameters.Add(New SqlParameter("@erstellt_am", erstelltAm))
+			sqlCmd.Parameters.Add(New SqlParameter("@mutiert_am", mutiertAm))
+			sqlCmd.Parameters.Add(New SqlParameter("@mutierer", mutierer))
+			sqlCmd.Parameters.Add(New SqlParameter("@anwendungnr", anwendungNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@OWNER", owner))
+
+			sqlCmd.Parameters.Add(New SqlParameter("@Return", DBNull.Value))
+			sqlCmd.Parameters("@Return").Direction = ParameterDirection.ReturnValue
+
+			sqlConn.Open()
+			sqlCmd.ExecuteNonQuery()
+
+			Return CInt(sqlCmd.Parameters("@Return").Value)
+
+		Catch ex As Exception
+			TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.OfficeVorlage.Update", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+			Throw ex
+		Finally
+			sqlConn.Dispose()
+			sqlCmd.Dispose()
+		End Try
+	End Function
+
+End Class

Backup/DataAccess/Parameter.vb

@@ -0,0 +1,206 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+
+'''<summary>Datenzugriff auf die Tabelle Parameter</summary>
+Public Class Parameter
+
+    '''<summary>gibt einen einzelnen paramter zurück</summary>
+    '''<param name="ds">speicher für datenrückgabe</param>
+    '''<param name="benutzerNr"></param>
+    '''<param name="name"></param>
+
+    Public Shared Sub GetParameter(ByRef ds As DataSet, ByVal benutzerNr As Integer, ByVal name As String)
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+        Dim da As New SqlDataAdapter()
+
+        Try
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+            sqlCmd.CommandText = "sp_GetParameter"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@BenutzerNr", benutzerNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@Name", name))
+            da.SelectCommand = sqlCmd
+            da.Fill(ds, "Parameter")
+
+        Catch ex As Exception
+            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Parameter.GetParameter", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        Finally
+            sqlConn.Dispose()
+            sqlCmd.Dispose()
+            da.Dispose()
+        End Try
+    End Sub
+
+
+    '''<summary>gibt eine liste aller paramter zurück</summary>
+    '''<param name="ds">speicher für datenrückgabe</param>
+    '''<param name="aktiv">1 nur aktive; 0 nur inaktive; -1 alle</param>
+
+    Public Shared Sub List(ByRef ds As DataSet, ByVal aktiv As Integer)
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+        Dim da As New SqlDataAdapter()
+
+        Try
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+            sqlCmd.CommandText = "sp_ListParameter"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            If aktiv <> -1 Then
+                sqlCmd.Parameters.Add(New SqlParameter("@Aktiv", aktiv))
+            End If
+
+            da.SelectCommand = sqlCmd
+            da.Fill(ds, "Parameters")
+
+        Catch ex As Exception
+            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Parameter.List", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        Finally
+            sqlConn.Dispose()
+            sqlCmd.Dispose()
+            da.Dispose()
+        End Try
+    End Sub
+
+
+    '''<summary>erstellt einen neuen parameter</summary>
+    '''<param name="parameterId">gibt den neuen primary key zurück</param>
+    '''<param name="benutzerNr"></param>
+    '''<param name="name"></param>
+    '''<param name="wert"></param>
+    '''<param name="datentyp"></param>
+    '''<param name="beschreibung"></param>
+    '''<param name="aktiv"></param>
+    '''<param name="mutiererId"></param>
+    '''<returns>error</returns>
+    Public Shared Function Add(ByRef parameterId As Integer, ByVal benutzerNr As Integer, ByVal name As String, ByVal wert As String, _
+            ByVal datentyp As Integer, ByVal beschreibung As String, ByVal aktiv As Boolean, ByVal mutiererId As Integer) As Integer
+
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+
+        Try
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+            sqlCmd.CommandText = "sp_InsParameter"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@BenutzerNr", benutzerNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@Name", name))
+            sqlCmd.Parameters.Add(New SqlParameter("@Wert", wert))
+            sqlCmd.Parameters.Add(New SqlParameter("@Datentyp", datentyp))
+            sqlCmd.Parameters.Add(New SqlParameter("@Beschreibung", beschreibung))
+            sqlCmd.Parameters.Add(New SqlParameter("@Aktiv", aktiv))
+            sqlCmd.Parameters.Add(New SqlParameter("@MutiererId", mutiererId))
+            sqlCmd.Parameters.Add(New SqlParameter("@ParameterId", 0))
+            sqlCmd.Parameters.Add(New SqlParameter("@Return", DBNull.Value))
+            sqlCmd.Parameters("@ParameterId").Direction = ParameterDirection.Output
+            sqlCmd.Parameters("@Return").Direction = ParameterDirection.ReturnValue
+
+            sqlConn.Open()
+            sqlCmd.ExecuteNonQuery()
+
+            If CInt(sqlCmd.Parameters("@Return").Value) <> 0 Then
+                parameterId = CInt(sqlCmd.Parameters("@ParameterId").Value)
+            End If
+
+            Return CInt(sqlCmd.Parameters("@Return").Value)
+
+        Catch ex As Exception
+            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Parameter.Add", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        Finally
+            sqlConn.Dispose()
+            sqlCmd.Dispose()
+        End Try
+    End Function
+
+
+    '''<summary>löscht einen parameter</summary>
+    '''<param name="benutzerNr"></param>
+    '''<param name="name"></param>
+    '''<returns>error</returns>
+    Public Shared Function Delete(ByVal benutzerNr As Integer, ByVal name As String) As Integer
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+
+        Try
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+            sqlCmd.CommandText = "sp_DelParameter"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@BenutzerNr", benutzerNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@Name", name))
+            sqlCmd.Parameters.Add(New SqlParameter("@Return", DBNull.Value))
+            sqlCmd.Parameters("@Return").Direction = ParameterDirection.ReturnValue
+
+            sqlConn.Open()
+            sqlCmd.ExecuteNonQuery()
+
+            Return CInt(sqlCmd.Parameters("@Return").Value)
+
+        Catch ex As Exception
+            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Parameter.Delete", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        Finally
+            sqlConn.Dispose()
+            sqlCmd.Dispose()
+        End Try
+    End Function
+
+
+    '''<summary>aktualisiert einen paramter</summary>
+    '''<param name="benutzerNr">criterium (keine aktualisierung)</param>
+    '''<param name="name">criterium (keine aktualisierung)</param>
+    '''<param name="wert"></param>
+    '''<param name="datentyp"></param>
+    '''<param name="beschreibung"></param>
+    '''<param name="aktiv"></param>
+    '''<param name="mutiererId"></param>
+    '''<returns>error</returns>
+    Public Shared Function Update(ByVal benutzerNr As Integer, ByVal name As String, ByVal wert As String, ByVal datentyp As Integer, _
+            ByVal beschreibung As String, ByVal aktiv As Boolean, ByVal mutiererId As Integer) As Integer
+
+
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+
+        Try
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+            sqlCmd.CommandText = "sp_SetParameter"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@BenutzerNr", benutzerNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@Name", name))
+            sqlCmd.Parameters.Add(New SqlParameter("@Wert", wert))
+            sqlCmd.Parameters.Add(New SqlParameter("@Datentyp", datentyp))
+            sqlCmd.Parameters.Add(New SqlParameter("@Beschreibung", beschreibung))
+            sqlCmd.Parameters.Add(New SqlParameter("@Aktiv", aktiv))
+            sqlCmd.Parameters.Add(New SqlParameter("@MutiererId", mutiererId))
+            sqlCmd.Parameters.Add(New SqlParameter("@Return", DBNull.Value))
+            sqlCmd.Parameters("@Return").Direction = ParameterDirection.ReturnValue
+
+            sqlConn.Open()
+            sqlCmd.ExecuteNonQuery()
+
+            Return CInt(sqlCmd.Parameters("@Return").Value)
+
+        Catch ex As Exception
+            TKBLib.Errorhandling.TraceHelper.Msg("EDOKALib.DA.Parameter.Update", ex.Message + " " + ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        Finally
+            sqlConn.Dispose()
+            sqlCmd.Dispose()
+        End Try
+    End Function
+
+End Class

Backup/DataAccess/Profil.vb

@@ -0,0 +1,49 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+'''<summary>Datenzugriff auf Profile</summary>
+Public Class Profil
+
+#Region "Public methods"
+
+	'''<summary>Gibt eine Liste mit allen Profilen für einen Mitarbeitern zurück</summary>
+	'''<param name="mitarbeiterNr">Profile von diesem Mitarbeiter</param>
+	'''<param name="ds"></param>
+	Overloads Shared Sub GetListeByMitarbeiterNr(ByVal mitarbeiterNr As Integer, ByRef ds As DataSet)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+		Dim da As New SqlDataAdapter()
+
+		Try
+			sqlCmd.CommandText = "dbo.pv_profil_select"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlCmd.Parameters.Add(New SqlParameter("@mitarbeiternr", mitarbeiterNr))
+			'DANGER: mandantNr is hardcoded here
+			sqlCmd.Parameters.Add(New SqlParameter("@mandantnr", 1))
+
+			sqlConn.Open()
+
+			da.SelectCommand = sqlCmd
+			da.Fill(ds, "ProfilListe")
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+			If da Is Nothing Then
+				da.Dispose()
+			End If
+		End Try
+	End Sub
+
+#End Region
+End Class

Backup/DataAccess/Spalten.vb

@@ -0,0 +1,48 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+'''<summary>Datenzugriff auf Tabelle spalten</summary>
+Public Class Spalten
+
+#Region "Public methods"
+
+	'''<summary>Gibt eine Liste mit allen Spalten in einem DataSet zurück</summary>
+	'''<param name="tableName">Name der Tabelle, von welcher die Spalten zurück gegeben werden sollen</param>
+
+	Public Overloads Shared Sub GetListe(ByVal tableName As String, ByRef dsSpalten As DataSet)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+		Dim da As New SqlDataAdapter()
+
+		Try
+			sqlCmd.CommandText = "sp_GetSpalten"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@TableName", tableName))
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlConn.Open()
+
+			da.SelectCommand = sqlCmd
+			da.Fill(dsSpalten, "SpaltenListe")
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+			If da Is Nothing Then
+				da.Dispose()
+			End If
+		End Try
+	End Sub
+
+#End Region
+
+End Class

Backup/DataAccess/Team.vb

@@ -0,0 +1,121 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+'''<summary>Datenzugriff auf Tabelle team</summary>
+Public Class Team
+
+#Region "Public methods"
+
+	'''<summary>Gibt eine Liste mit allen Teams zurück</summary>
+	'''<param name="ds">Das DataSet welches gefüllt werden soll</param>
+
+    Overloads Shared Sub GetListe(ByRef ds As DataSet)
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+        Dim da As New SqlDataAdapter()
+
+        Try
+            sqlCmd.CommandText = "sp_ListTeams"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+            sqlConn.Open()
+
+            da.SelectCommand = sqlCmd
+            da.Fill(ds, "TeamListe")
+
+        Catch ex As Exception
+            Throw ex
+        Finally
+            If sqlCmd Is Nothing Then
+                sqlCmd.Dispose()
+            End If
+            If sqlConn Is Nothing Then
+                sqlConn.Dispose()
+            End If
+            If da Is Nothing Then
+                da.Dispose()
+            End If
+        End Try
+    End Sub
+
+    '''<summary>Gibt eine Liste mit allen Teams denen ein Mitarbeiter zugewiesen ist zurück</summary>
+    '''<param name="ds">Das DataSet welches gefüllt werden soll</param>
+
+	Overloads Shared Sub GetListeByMitarbeiterNr(ByVal mitarbeiterNr As Integer, ByRef ds As DataSet)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+		Dim da As New SqlDataAdapter()
+
+		Try
+			sqlCmd.CommandText = "sp_GetTeamsByMitarbeiterNr"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterNr", mitarbeiterNr))
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlConn.Open()
+
+			da.SelectCommand = sqlCmd
+			da.Fill(ds, "FunktionsgruppenListe")
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+			If da Is Nothing Then
+				da.Dispose()
+			End If
+		End Try
+	End Sub
+
+	'''<summary>Gibt alle Details zur einem TeamMitarbeiter Verhältnis zurück</summary>
+    '''<param name="teamNr">Die datenbank Nummer des TeamMitarbeiters (ID)</param>
+	'''<param name="ds">Das zu füllende DataSet</param>
+
+	Overloads Shared Sub GetById(ByVal teamNr As Integer, ByRef ds As DataSet)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+		Dim da As New SqlDataAdapter()
+
+		Try
+			sqlCmd.CommandText = "sp_GetTeamById"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@TeamNr", teamNr))
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlConn.Open()
+
+			da.SelectCommand = sqlCmd
+			da.Fill(ds, "Team")
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+			If da Is Nothing Then
+				da.Dispose()
+			End If
+		End Try
+	End Sub
+
+#End Region
+
+End Class

Backup/DataAccess/TeamMitarbeiter.vb

@@ -0,0 +1,204 @@
+Imports System.Data
+Imports System.Data.SqlClient
+
+'''<summary>Datenzugriff auf Tabelle team_mitarbeiter</summary>
+Public Class TeamMitarbeiter
+
+#Region "Public methods"
+
+	'''<summary>Gibt eine Liste mit allen TeamMitarbeitern zurück</summary>
+	'''<param name="ds">Das DataSet welches gefüllt werden soll</param>
+
+	Overloads Shared Sub GetListByMitarbeiterNr(ByVal mitarbeiterNr As Integer, ByRef ds As DataSet)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+		Dim da As New SqlDataAdapter()
+
+		Try
+			sqlCmd.CommandText = "sp_GetTeamsByMitarbeiterNr"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterNr", mitarbeiterNr))
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlConn.Open()
+
+			da.SelectCommand = sqlCmd
+			da.Fill(ds, "TeamMitarbeiter")
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+			If da Is Nothing Then
+				da.Dispose()
+			End If
+		End Try
+	End Sub
+
+	'''<summary>Gibt alle Details zur einem TeamMitarbeiter Verhältnis zurück</summary>
+	'''<param name="mitarbeiterTeamNr">Die datenbank Nummer des TeamMitarbeiters (ID)</param>
+	'''<param name="ds">Das zu füllende DataSet</param>
+
+	Overloads Shared Sub GetById(ByVal mitarbeiterTeamNr As Integer, ByRef ds As DataSet)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+		Dim da As New SqlDataAdapter()
+
+		Try
+			sqlCmd.CommandText = "sp_GetTeamMitarbeiterById"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@TeamMitarbeiterNr", mitarbeiterTeamNr))
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlConn.Open()
+
+			da.SelectCommand = sqlCmd
+			da.Fill(ds, "TeamMitarbeiter")
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+			If da Is Nothing Then
+				da.Dispose()
+			End If
+		End Try
+	End Sub
+
+	'''<summary>Löscht eine Team-Mitarbeiter Zuordnung aus der Datenbank</summary>
+	'''<param name="teamMitarbeiterNr">Zu löschende Verbindung</param>
+	'''<param name="mutiererMitarbeiterNr">Die Id des Benutzers, welcher die Änderungen vornimmt</param>
+	Public Overloads Shared Function Delete(ByVal teamMitarbeiterNr As Integer, ByVal mutiererMitarbeiterNr As Integer)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+
+		Try
+			sqlCmd.CommandText = "sp_DeleteTeamMitarbeiter"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@TeamMitarbeiterNr", teamMitarbeiterNr))
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlConn.Open()
+
+			sqlCmd.ExecuteNonQuery()
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+		End Try
+	End Function
+
+	'''<summary>Aktualisiert eine bestehede Team-Mitarbeiter Zuordnung</summary>
+	'''<param name="teamMitarbeiterNr"></param>
+	'''<param name="teamNr"></param>
+	'''<param name="mitarbeiterNr"></param>
+	'''<param name="anteil"></param>
+	'''<param name="mandantNr"></param>
+	'''<param name="isAktiv"></param>
+	'''<param name="mutiererMitarbeiterNr"></param>
+
+    Overloads Shared Sub Update(ByVal teamMitarbeiterNr As Integer, ByVal teamNr As Integer, ByVal mitarbeiterNr As Integer, ByVal anteil As Integer, ByVal mandantNr As Integer, ByVal isAktiv As Boolean, ByVal mutiererMitarbeiterNr As Integer)
+        Dim sqlConn As New SqlConnection()
+        Dim sqlCmd As New SqlCommand()
+
+        Try
+            sqlCmd.CommandText = "sp_UpdateTeamMitarbeiter"
+            sqlCmd.CommandType = CommandType.StoredProcedure
+            sqlCmd.Connection = sqlConn
+
+            sqlCmd.Parameters.Add(New SqlParameter("@TeamMitarbeiterNr", teamMitarbeiterNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@TeamNr", teamNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterNr", mitarbeiterNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@Anteil", anteil))
+            sqlCmd.Parameters.Add(New SqlParameter("@MandantNr", mandantNr))
+            sqlCmd.Parameters.Add(New SqlParameter("@aktiv", isAktiv))
+            sqlCmd.Parameters.Add(New SqlParameter("@MutiererMitarbeiterNr", mutiererMitarbeiterNr))
+
+            sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+            sqlConn.Open()
+
+            sqlCmd.ExecuteNonQuery()
+
+        Catch ex As Exception
+            Throw ex
+        Finally
+            If sqlCmd Is Nothing Then
+                sqlCmd.Dispose()
+            End If
+            If sqlConn Is Nothing Then
+                sqlConn.Dispose()
+            End If
+        End Try
+    End Sub
+
+    '''<summary>Fügt eine neue Team-Mitarbeiter Verbindung in die Datenbank ein</summary>
+    '''<param name="teamNr"></param>
+    '''<param name="mitarbeiterNr"></param>
+    '''<param name="anteil"></param>
+    '''<param name="mandantNr"></param>
+    '''<param name="isAktiv"></param>
+    '''<param name="mutiererMitarbeiterNr"></param>
+
+	Overloads Shared Sub Insert(ByVal teamNr As Integer, ByVal mitarbeiterNr As Integer, ByVal anteil As Integer, ByVal mandantNr As Integer, ByVal isAktiv As Boolean, ByVal mutiererMitarbeiterNr As Integer)
+		Dim sqlConn As New SqlConnection()
+		Dim sqlCmd As New SqlCommand()
+
+		Try
+			sqlCmd.CommandText = "sp_InsertTeamMitarbeiter"
+			sqlCmd.CommandType = CommandType.StoredProcedure
+			sqlCmd.Connection = sqlConn
+
+			sqlCmd.Parameters.Add(New SqlParameter("@TeamNr", teamNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@MitarbeiterNr", mitarbeiterNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@Anteil", anteil))
+			sqlCmd.Parameters.Add(New SqlParameter("@MandantNr", mandantNr))
+			sqlCmd.Parameters.Add(New SqlParameter("@aktiv", isAktiv))
+			sqlCmd.Parameters.Add(New SqlParameter("@MutiererMitarbeiterNr", mutiererMitarbeiterNr))
+
+			sqlConn.ConnectionString = Common.Datenbank.GetDSN()
+
+			sqlConn.Open()
+
+			sqlCmd.ExecuteNonQuery()
+
+		Catch ex As Exception
+			Throw ex
+		Finally
+			If sqlCmd Is Nothing Then
+				sqlCmd.Dispose()
+			End If
+			If sqlConn Is Nothing Then
+				sqlConn.Dispose()
+			End If
+		End Try
+	End Sub
+
+#End Region
+
+End Class