Initial commit

edkb12/edkb12 V12/EDKB12WS.sln

@@ -0,0 +1,20 @@
+
+Microsoft Visual Studio Solution File, Format Version 9.00
+# Visual Studio 2005
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDKB12WS", "EDKB12WS\EDKB12WS.vbproj", "{0EBB5244-26B9-4E3D-929E-C3CF31F350AE}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{0EBB5244-26B9-4E3D-929E-C3CF31F350AE}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{0EBB5244-26B9-4E3D-929E-C3CF31F350AE}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{0EBB5244-26B9-4E3D-929E-C3CF31F350AE}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{0EBB5244-26B9-4E3D-929E-C3CF31F350AE}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+EndGlobal

edkb12/edkb12 V12/EDKB12WS.sln.vsdoc

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

edkb12/edkb12 V12/EDKB12WS/Action.vb

@@ -0,0 +1,277 @@
+Imports System.IO
+Imports System.Xml
+Imports System.Xml.Schema
+
+Public Class Action
+
+#Region "Members"
+
+    Private Shared _actionSingleton As Action
+
+    Private _actionType As ActionType
+    Private _creatorTgNr As String
+    Private _sourceApplication As String
+    Private _parameters As Parameter()
+    Private _validationSuccess As Boolean
+
+#End Region
+
+#Region "Public methods"
+
+    '''<summary>Lädt externes Xml file für automatisierte Aktionen</summary>
+    '''<param name="xmlImportFile">Das Xml File mit den entsprechenden Parametern</param>
+    Public Function Load(ByVal xmlImportFile As FileInfo) As Boolean
+        If Param.DebugMode Then
+            DivFnkt.InsertJournale("EDKB12: Start Load XML-File", clsDivFnkt.Enum_InfoTyp.Information)
+        End If
+
+
+        Try
+            'Validate source
+            If Not IsValid(xmlImportFile) Then
+                'xml file is invalid
+                DivFnkt.InsertJournale("EDKB12::Fehler:: Load XML-File::File invalid", clsDivFnkt.Enum_InfoTyp.Fehler)
+                If Param.DebugMode Then
+                    DivFnkt.InsertJournale("EDKB12::Fehler::  XML-File::File invalid", clsDivFnkt.Enum_InfoTyp.Information)
+                End If
+                Return False
+            End If
+
+            Dim doc As New XmlDocument()
+            doc.Load(xmlImportFile.FullName)
+
+            'read header elements
+            _actionType = CType(doc.SelectSingleNode("action/actionId").InnerText, ActionType)
+            _creatorTgNr = doc.SelectSingleNode("action/creatorTg").InnerText
+            _sourceApplication = doc.SelectSingleNode("action/sourceApplication").InnerText
+
+            Dim RootNode As XmlElement = doc.DocumentElement
+            Dim nodeList As XmlNodeList = RootNode.ChildNodes
+            If nodeList.Count > 0 Then
+                'set correct array size
+                ReDim _parameters(nodeList.Count - 1)
+
+                Dim value As String
+                Dim name As String
+                Dim parameterCounter As Integer = 0
+
+                Dim i As Integer
+
+                For i = 0 To nodeList.Count - 1
+                    value = nodeList.Item(i).InnerText
+                    name = nodeList.Item(i).LocalName
+                    'append new parameter
+                    _parameters(parameterCounter) = New Parameter(name, value)
+
+                    parameterCounter = parameterCounter + 1
+                Next
+            End If
+            If Param.DebugMode Then
+                DivFnkt.InsertJournale("EDKB12: Ende Load XML-File (True)", clsDivFnkt.Enum_InfoTyp.Information)
+            End If
+
+            Return True
+        Catch ex As Exception
+            DivFnkt.InsertJournale("EDKB12::Fehler:: Load XML-File::File invalid::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler)
+            If Param.DebugMode Then
+                DivFnkt.InsertJournale("EDKB12: Load XML-File::File invalid(False)", clsDivFnkt.Enum_InfoTyp.Information)
+            End If
+            Return False
+        End Try
+    End Function
+
+    '''<summary>Returns a parameter identified by his name</summary>
+    '''<param name="paramName"></param>
+    '''<returns></returns>
+    Public Function GetParameterByName(ByVal paramName As String) As Parameter
+        Try
+            Dim param As Parameter
+            For Each param In _parameters
+                If param.Name = paramName Then
+                    Return param
+                End If
+            Next
+        Catch ex As Exception
+            Throw ex
+        End Try
+    End Function
+
+    '''<summary>Zerstört die statische Instanz</summary>
+    Public Sub Destroy()
+        Try
+            _actionSingleton = Nothing
+        Catch ex As Exception
+            Throw ex
+        End Try
+    End Sub
+#End Region
+
+#Region "Private methods/subs"
+
+    '''<summary>Überprüft ob das Xml file dem angegebenen Schema entspricht</summary>
+    '''<param name="xmlImportFile"></param>
+    '''<returns></returns>
+    Private Function IsValid(ByVal xmlImportFile As FileInfo) As Boolean
+        Dim reader As New XmlTextReader(xmlImportFile.FullName)
+        'We pass the xmltextreader into the xmlvalidatingreader
+        'This will validate the xml doc with the schema file
+        'NOTE the xml file it self points to the schema file
+
+        Dim validator As New XmlValidatingReader(reader)
+        Try
+            'First we create the xmltextreader
+
+
+            ' Set the validation event handler
+            'AddHandler validator.ValidationEventHandler, _
+            'AddressOf ValidationCallback
+            _validationSuccess = True            'make sure to reset the success var
+
+            ' Read XML data
+            While (validator.Read)
+            End While
+            'Close the reader.
+            validator.Close()
+
+            reader.Close()
+
+            'The validationeventhandler is the only thing that would 
+            'set m_Success to false
+            Return _validationSuccess
+        Catch ex As Exception
+            validator.Close()
+            reader.Close()
+
+            _validationSuccess = False
+            _validationSuccess = False
+            Return _validationSuccess
+            Throw ex
+        End Try
+    End Function
+
+    Private Sub ValidationCallback(ByVal sender As Object, ByVal args As ValidationEventArgs)
+        Try
+            'Display the validation error.  This is only called on error
+            _validationSuccess = False           'Validation failed
+            Debug.Write("Validation error: " + args.Message + Environment.NewLine)
+            Throw New ActionException(1, "Fehler bei der Validierung")
+        Catch ex As Exception
+            Throw ex
+        End Try
+    End Sub
+
+#End Region
+
+#Region "Properties"
+
+    Public Shared ReadOnly Property Action() As Action
+        Get
+            If IsNothing(_actionSingleton) Then
+                _actionSingleton = New Action()
+            End If
+
+            Return _actionSingleton
+        End Get
+    End Property
+    Public ReadOnly Property valtionOK() As Boolean
+        Get
+            Return _validationSuccess
+        End Get
+    End Property
+
+    Public ReadOnly Property ActionType() As ActionType
+        Get
+            Return _actionType
+        End Get
+    End Property
+    Public ReadOnly Property CreatorTgNr() As String
+        Get
+            Return _creatorTgNr
+        End Get
+    End Property
+    Public ReadOnly Property SourceApplication() As String
+        Get
+            Return _sourceApplication
+        End Get
+    End Property
+    Public ReadOnly Property Parameters() As Parameter()
+        Get
+            Return _parameters
+        End Get
+    End Property
+
+#End Region
+
+End Class
+
+#Region "ActionException"
+
+Public Class ActionException
+    Inherits Exception
+
+    Private _number As Integer
+    Private _description As String
+
+    Public Sub New(ByVal number As Integer, ByVal description As String)
+        _number = number
+        _description = description
+    End Sub
+
+    Public Overrides ReadOnly Property Message() As String
+        Get
+            Return _description
+        End Get
+    End Property
+
+    Public ReadOnly Property Number() As Integer
+        Get
+            Return _number
+        End Get
+    End Property
+
+End Class
+
+#End Region
+
+'''<summary>Struct für einzelne Parameter</summary>
+Public Structure Parameter
+
+
+    Private _value As String
+    Private _name As String
+
+
+    Public Sub New(ByVal name As String, ByVal value As String)
+        Try
+            _value = value
+            _name = name
+
+        Catch ex As Exception
+            'TKBLib.Errorhandling.TraceHelper.Msg("EdokaLib.Common.Parameter.New", ex.Message & ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        End Try
+    End Sub
+
+
+    Public ReadOnly Property Value() As String
+        Get
+            Return _value
+        End Get
+    End Property
+    Public ReadOnly Property Name() As String
+        Get
+            Return _name
+        End Get
+    End Property
+
+End Structure
+
+Public Enum ActionType
+    AnzeigePartnerdossier = 1
+    DokumentAnzeige = 2
+    DokumentErstellung = 3
+    DokumentBearbeitung = 4
+    Statusmutation = 5
+    HostDokumentAnzeige = 6
+End Enum
+

edkb12/edkb12 V12/EDKB12WS/AvaloqDokumentWert.vb

@@ -0,0 +1,27 @@
+Public Class AvaloqDokumentWert
+    Private strName As String
+    Private strValue As String
+
+    Public Sub New(ByVal name As String, ByVal value As String)
+        Me.name = name
+        Me.value = value
+
+    End Sub
+
+    Public Property name() As String
+        Get
+            Return strName
+        End Get
+        Set(ByVal Value As String)
+            strName = Value
+        End Set
+    End Property
+    Public Property value() As String
+        Get
+            Return strValue
+        End Get
+        Set(ByVal Value As String)
+            strValue = Value
+        End Set
+    End Property
+End Class

edkb12/edkb12 V12/EDKB12WS/AvaloqDokumentWerte.vb

@@ -0,0 +1,75 @@
+Imports System.IO
+Imports System.Xml
+Imports System.Xml.Schema
+
+Public Class AvaloqDokumentWerte
+
+#Region "Members"
+    Private arrDoukmentWerte As New ArrayList()
+    Private objDokumentWert As AvaloqDokumentWert
+#End Region
+
+#Region "Public methods"
+
+    '''<summary>Lädt externes Xml file für automatisierte Aktionen</summary>
+    '''<param name="xmlImportFile">Das Xml File mit den entsprechenden Parametern</param>
+    Public Function init(ByVal xmlImportFile As FileInfo)
+        Try
+
+            Dim doc As New XmlDocument()
+
+            doc.Load(xmlImportFile.FullName)
+
+            'read all parameter nodes
+            Dim parameterNodes As XmlNodeList
+            parameterNodes = doc.SelectNodes("action/dokwerte/parameter")
+
+            If parameterNodes.Count > 0 Then
+                Dim node As XmlNode
+                Dim name, value, dataType As String
+
+                Dim parameterCounter As Integer = 0
+
+                For Each node In parameterNodes
+                    'Read all Document specified Values
+                    '20080401 RGL zusätzliches TRY wenn node <parameter> leer geliefert wird kein Absturz
+                    Try
+                        name = node.SelectSingleNode("name").InnerText
+                        value = node.SelectSingleNode("value").InnerText
+                        objDokumentWert = New AvaloqDokumentWert(name, value)
+                        arrDoukmentWerte.Add(objDokumentWert)
+                    Catch ex As Exception
+                        'xxx
+                        'TKBLib.Errorhandling.TraceHelper.Msg("EdokaLib.Common.Action.Load", ex.Message & ex.StackTrace, TraceLevel.Error)
+                    End Try
+                    parameterCounter = parameterCounter + 1
+
+                Next
+            End If
+
+        Catch ex As Exception
+            'xxx
+            '        TKBLib.Errorhandling.TraceHelper.Msg("EdokaLib.Common.Action.Load", ex.Message & ex.StackTrace, TraceLevel.Error)
+            Throw ex
+        End Try
+    End Function
+
+    Public Function getAvaloqDokumentWertByName(ByVal name As String) As AvaloqDokumentWert
+        Dim objRet As AvaloqDokumentWert = Nothing
+        Dim i As Integer
+
+        For i = 0 To arrDoukmentWerte.Count - 1
+            If arrDoukmentWerte(i).name = name Then
+                objRet = arrDoukmentWerte(i)
+            End If
+        Next
+        Return objRet
+    End Function
+
+    '20080401 RGL Funktion zum Löschen der Werte, damit nicht 2x abgefüllt (auch bei manuellem Erstellen)
+    Public Sub clearAvaloqDokumentWerte()
+        arrDoukmentWerte.Clear()
+    End Sub
+#End Region
+
+End Class

edkb12/edkb12 V12/EDKB12WS/Datenbank/clsConnectionProvider.vb

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

edkb12/edkb12 V12/EDKB12WS/Datenbank/clsDBInteractionBase.vb

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

edkb12/edkb12 V12/EDKB12WS/Datenbank/clsIdvmakro_office_vorlage.vb

@@ -0,0 +1,773 @@
+' ///////////////////////////////////////////////////////////////////////////
+' // Description: Data Access class for the table 'idvmakro_office_vorlage'
+' // Generated by LLBLGen v1.2.1045.38210 Final on: Mittwoch, 25. Dezember 2002, 19:35:23
+' // Because the Base Class already implements IDispose, this class doesn't.
+' ///////////////////////////////////////////////////////////////////////////
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokadb
+	' /// <summary>
+	' /// Purpose: Data Access class for the table 'idvmakro_office_vorlage'.
+	' /// </summary>
+	Public Class clsIdvmakro_office_vorlage
+		Inherits clsDBInteractionBase
+
+#Region " Class Member Declarations "
+
+		Private 		m_bAktiv As SqlBoolean
+		Private 		m_daErstellt_am, m_daMutiert_am As SqlDateTime
+		Private 		m_iMutierer, m_iOffice_vorlagenr, m_iOffice_vorlagenrOld, m_iIdvmakronr, m_iIdvmakronrOld, m_iMandantnr, m_iReihenfolge, m_iIdvmakroofficevorlagenr As SqlInt32
+
+#End Region
+
+
+		' /// <summary>
+		' /// Purpose: Class constructor.
+		' /// </summary>
+		Public Sub New()
+			' // Nothing for now.
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Insert method. This method will insert one new row into the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iIdvmakroofficevorlagenr</LI>
+		' ///		 <LI>iReihenfolge</LI>
+		' ///		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iMutierer</LI>
+		' ///		 <LI>iOffice_vorlagenr. May be SqlInt32.Null</LI>
+		' ///		 <LI>iIdvmakronr. May be SqlInt32.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Insert() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_idvmakro_office_vorlage_Insert]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iidvmakroofficevorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iIdvmakroofficevorlagenr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ireihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iidvmakronr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIdvmakronr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_idvmakro_office_vorlage_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsIdvmakro_office_vorlage::Insert::Error occured." + ex.Message, ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Update method. This method will Update one existing row in the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iIdvmakroofficevorlagenr</LI>
+		' ///		 <LI>iReihenfolge</LI>
+		' ///		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iMutierer</LI>
+		' ///		 <LI>iOffice_vorlagenr. May be SqlInt32.Null</LI>
+		' ///		 <LI>iIdvmakronr. May be SqlInt32.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Update() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_idvmakro_office_vorlage_Update]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iidvmakroofficevorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iIdvmakroofficevorlagenr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ireihenfolge", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iReihenfolge))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iidvmakronr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIdvmakronr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_idvmakro_office_vorlage_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsIdvmakro_office_vorlage::Update::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: Update method for updating one or more rows using the Foreign Key 'office_vorlagenr.
+        ' /// This method will Update one or more existing rows in the database. It will reset the field 'office_vorlagenr' in
+        ' /// all rows which have as value for this field the value as set in property 'iOffice_vorlagenrOld' to 
+        ' /// the value as set in property 'iOffice_vorlagenr'.
+        ' /// </summary>
+        ' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties needed for this method: 
+        ' /// <UL>
+        ' ///		 <LI>iOffice_vorlagenr. May be SqlInt32.Null</LI>
+        ' ///		 <LI>iOffice_vorlagenrOld. May be SqlInt32.Null</LI>
+        ' /// </UL>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Function UpdateAllWoffice_vorlagenrLogic() As Boolean
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_idvmakro_office_vorlage_UpdateAllWoffice_vorlagenrLogic]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@ioffice_vorlagenrOld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenrOld))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_idvmakro_office_vorlage_UpdateAllWoffice_vorlagenrLogic' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsIdvmakro_office_vorlage::UpdateAllWoffice_vorlagenrLogic::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+		' /// <summary>
+		' /// Purpose: Update method for updating one or more rows using the Foreign Key 'idvmakronr.
+		' /// This method will Update one or more existing rows in the database. It will reset the field 'idvmakronr' in
+		' /// all rows which have as value for this field the value as set in property 'iIdvmakronrOld' to 
+		' /// the value as set in property 'iIdvmakronr'.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iIdvmakronr. May be SqlInt32.Null</LI>
+		' ///		 <LI>iIdvmakronrOld. May be SqlInt32.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Public Function UpdateAllWidvmakronrLogic() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_idvmakro_office_vorlage_UpdateAllWidvmakronrLogic]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iidvmakronr", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iIdvmakronr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iidvmakronrOld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIdvmakronrOld))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_idvmakro_office_vorlage_UpdateAllWidvmakronrLogic' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsIdvmakro_office_vorlage::UpdateAllWidvmakronrLogic::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
+        ' /// </summary>
+        ' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties needed for this method: 
+        ' /// <UL>
+        ' ///		 <LI>iIdvmakroofficevorlagenr</LI>
+        ' /// </UL>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Overrides Function Delete() As Boolean
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_idvmakro_office_vorlage_Delete]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iidvmakroofficevorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iIdvmakroofficevorlagenr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_idvmakro_office_vorlage_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsIdvmakro_office_vorlage::Delete::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+		' /// <summary>
+		' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
+		' /// </summary>
+		' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iIdvmakroofficevorlagenr</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' ///		 <LI>iIdvmakroofficevorlagenr</LI>
+		' ///		 <LI>iReihenfolge</LI>
+		' ///		 <LI>iMandantnr</LI>
+		' ///		 <LI>bAktiv</LI>
+		' ///		 <LI>daErstellt_am</LI>
+		' ///		 <LI>daMutiert_am</LI>
+		' ///		 <LI>iMutierer</LI>
+		' ///		 <LI>iOffice_vorlagenr</LI>
+		' ///		 <LI>iIdvmakronr</LI>
+		' /// </UL>
+		' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
+		' /// </remarks>
+		Overrides Public Function SelectOne() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_idvmakro_office_vorlage_SelectOne]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("idvmakro_office_vorlage")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iidvmakroofficevorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iIdvmakroofficevorlagenr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_idvmakro_office_vorlage_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                If dtToReturn.Rows.Count > 0 Then
+                    m_iIdvmakroofficevorlagenr = New SqlInt32(CType(dtToReturn.Rows(0)("idvmakroofficevorlagenr"), Integer))
+                    m_iReihenfolge = New SqlInt32(CType(dtToReturn.Rows(0)("reihenfolge"), Integer))
+                    If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
+                        m_iMandantnr = SqlInt32.Null
+                    Else
+                        m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
+                        m_bAktiv = SqlBoolean.Null
+                    Else
+                        m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
+                    End If
+                    If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
+                        m_daErstellt_am = SqlDateTime.Null
+                    Else
+                        m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
+                    End If
+                    If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
+                        m_daMutiert_am = SqlDateTime.Null
+                    Else
+                        m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
+                    End If
+                    m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
+                    If dtToReturn.Rows(0)("office_vorlagenr") Is System.DBNull.Value Then
+                        m_iOffice_vorlagenr = SqlInt32.Null
+                    Else
+                        m_iOffice_vorlagenr = New SqlInt32(CType(dtToReturn.Rows(0)("office_vorlagenr"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("idvmakronr") Is System.DBNull.Value Then
+                        m_iIdvmakronr = SqlInt32.Null
+                    Else
+                        m_iIdvmakronr = New SqlInt32(CType(dtToReturn.Rows(0)("idvmakronr"), Integer))
+                    End If
+                End If
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsIdvmakro_office_vorlage::SelectOne::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: SelectAll method. This method will Select all rows from the table.
+        ' /// </summary>
+        ' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Overrides Function SelectAll() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_idvmakro_office_vorlage_SelectAll]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("idvmakro_office_vorlage")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_idvmakro_office_vorlage_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsIdvmakro_office_vorlage::SelectAll::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+		' /// <summary>
+		' /// Purpose: Select method for a foreign key. This method will Select one or more rows from the database, based on the Foreign Key 'office_vorlagenr'
+		' /// </summary>
+		' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iOffice_vorlagenr. May be SqlInt32.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Public Function SelectAllWoffice_vorlagenrLogic() As DataTable
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_idvmakro_office_vorlage_SelectAllWoffice_vorlagenrLogic]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("idvmakro_office_vorlage")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@ioffice_vorlagenr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iOffice_vorlagenr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_idvmakro_office_vorlage_SelectAllWoffice_vorlagenrLogic' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsIdvmakro_office_vorlage::SelectAllWoffice_vorlagenrLogic::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: Select method for a foreign key. This method will Select one or more rows from the database, based on the Foreign Key 'idvmakronr'
+        ' /// </summary>
+        ' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties needed for this method: 
+        ' /// <UL>
+        ' ///		 <LI>iIdvmakronr. May be SqlInt32.Null</LI>
+        ' /// </UL>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Function SelectAllWidvmakronrLogic() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_idvmakro_office_vorlage_SelectAllWidvmakronrLogic]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("idvmakro_office_vorlage")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iidvmakronr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iIdvmakronr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_idvmakro_office_vorlage_SelectAllWidvmakronrLogic' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsIdvmakro_office_vorlage::SelectAllWidvmakronrLogic::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+#Region " Class Property Declarations "
+
+		Public Property [iIdvmakroofficevorlagenr]() As SqlInt32
+			Get
+				Return m_iIdvmakroofficevorlagenr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iIdvmakroofficevorlagenrTmp As SqlInt32 = Value
+				If iIdvmakroofficevorlagenrTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iIdvmakroofficevorlagenr", "iIdvmakroofficevorlagenr can't be NULL")
+				End If
+				m_iIdvmakroofficevorlagenr = Value
+			End Set
+		End Property
+
+
+		Public Property [iReihenfolge]() As SqlInt32
+			Get
+				Return m_iReihenfolge
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iReihenfolgeTmp As SqlInt32 = Value
+				If iReihenfolgeTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iReihenfolge", "iReihenfolge can't be NULL")
+				End If
+				m_iReihenfolge = Value
+			End Set
+		End Property
+
+
+		Public Property [iMandantnr]() As SqlInt32
+			Get
+				Return m_iMandantnr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMandantnr = Value
+			End Set
+		End Property
+
+
+		Public Property [bAktiv]() As SqlBoolean
+			Get
+				Return m_bAktiv
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bAktiv = Value
+			End Set
+		End Property
+
+
+		Public Property [daErstellt_am]() As SqlDateTime
+			Get
+				Return m_daErstellt_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daErstellt_am = Value
+			End Set
+		End Property
+
+
+		Public Property [daMutiert_am]() As SqlDateTime
+			Get
+				Return m_daMutiert_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daMutiert_am = Value
+			End Set
+		End Property
+
+
+		Public Property [iMutierer]() As SqlInt32
+			Get
+				Return m_iMutierer
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iMutiererTmp As SqlInt32 = Value
+				If iMutiererTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iMutierer", "iMutierer can't be NULL")
+				End If
+				m_iMutierer = Value
+			End Set
+		End Property
+
+
+		Public Property [iOffice_vorlagenr]() As SqlInt32
+			Get
+				Return m_iOffice_vorlagenr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iOffice_vorlagenr = Value
+			End Set
+		End Property
+		Public Property [iOffice_vorlagenrOld]() As SqlInt32
+			Get
+				Return m_iOffice_vorlagenrOld
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iOffice_vorlagenrOld = Value
+			End Set
+		End Property
+
+
+		Public Property [iIdvmakronr]() As SqlInt32
+			Get
+				Return m_iIdvmakronr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iIdvmakronr = Value
+			End Set
+		End Property
+		Public Property [iIdvmakronrOld]() As SqlInt32
+			Get
+				Return m_iIdvmakronrOld
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iIdvmakronrOld = Value
+			End Set
+		End Property
+
+#End Region
+
+	End Class
+End Namespace

edkb12/edkb12 V12/EDKB12WS/Datenbank/clsJournaleintrag.vb

@@ -0,0 +1,410 @@
+' ///////////////////////////////////////////////////////////////////////////
+' // Description: Data Access class for the table 'Journaleintrag'
+' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 18. Mai 2003, 09:14:59
+' // Because the Base Class already implements IDispose, this class doesn't.
+' ///////////////////////////////////////////////////////////////////////////
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokadb
+	' /// <summary>
+	' /// Purpose: Data Access class for the table 'Journaleintrag'.
+	' /// </summary>
+	Public Class clsJournaleintrag
+		Inherits clsDBInteractionBase
+
+#Region " Class Member Declarations "
+
+		Private 		m_daDatumzeit As SqlDateTime
+		Private 		m_iJournalnr, m_iJournaleintragnr As SqlInt32
+		Private 		m_sEintrag As SqlString
+
+#End Region
+
+
+		' /// <summary>
+		' /// Purpose: Class constructor.
+		' /// </summary>
+		Public Sub New()
+			' // Nothing for now.
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Insert method. This method will insert one new row into the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iJournalnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>sEintrag. May be SqlString.Null</LI>
+		' ///		 <LI>daDatumzeit. May be SqlDateTime.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iJournaleintragnr</LI>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Insert() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_Insert]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@seintrag", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEintrag))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatumzeit", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatumzeit))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iJournaleintragnr = scmCmdToExecute.Parameters.Item("@ijournaleintragnr").Value
+                m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_Journaleintrag_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsJournaleintrag::Insert::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Update method. This method will Update one existing row in the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iJournaleintragnr</LI>
+		' ///		 <LI>iJournalnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>sEintrag. May be SqlString.Null</LI>
+		' ///		 <LI>daDatumzeit. May be SqlDateTime.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Update() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_Update]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournalnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iJournalnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@seintrag", SqlDbType.VarChar, 2048, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEintrag))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@dadatumzeit", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daDatumzeit))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_Journaleintrag_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsJournaleintrag::Update::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iJournaleintragnr</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Delete() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_Delete]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_Journaleintrag_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsJournaleintrag::Delete::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
+		' /// </summary>
+		' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iJournaleintragnr</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' ///		 <LI>iJournaleintragnr</LI>
+		' ///		 <LI>iJournalnr</LI>
+		' ///		 <LI>sEintrag</LI>
+		' ///		 <LI>daDatumzeit</LI>
+		' /// </UL>
+		' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
+		' /// </remarks>
+		Overrides Public Function SelectOne() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_SelectOne]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("Journaleintrag")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@ijournaleintragnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iJournaleintragnr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_Journaleintrag_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				If dtToReturn.Rows.Count > 0 Then
+					m_iJournaleintragnr = New SqlInt32(CType(dtToReturn.Rows(0)("journaleintragnr"), Integer))
+					If dtToReturn.Rows(0)("journalnr") Is System.DBNull.Value Then
+						m_iJournalnr = SqlInt32.Null
+					Else
+						m_iJournalnr = New SqlInt32(CType(dtToReturn.Rows(0)("journalnr"), Integer))
+					End If
+					If dtToReturn.Rows(0)("eintrag") Is System.DBNull.Value Then
+						m_sEintrag = SqlString.Null
+					Else
+						m_sEintrag = New SqlString(CType(dtToReturn.Rows(0)("eintrag"), String))
+					End If
+					If dtToReturn.Rows(0)("datumzeit") Is System.DBNull.Value Then
+						m_daDatumzeit = SqlDateTime.Null
+					Else
+						m_daDatumzeit = New SqlDateTime(CType(dtToReturn.Rows(0)("datumzeit"), Date))
+					End If
+				End If
+				Return dtToReturn
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsJournaleintrag::SelectOne::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+				sdaAdapter.Dispose()
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: SelectAll method. This method will Select all rows from the table.
+		' /// </summary>
+		' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function SelectAll() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_Journaleintrag_SelectAll]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("Journaleintrag")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = scmCmdToExecute.Parameters.Item("@iErrorCode").Value
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_Journaleintrag_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return dtToReturn
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsJournaleintrag::SelectAll::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+				sdaAdapter.Dispose()
+			End Try
+		End Function
+
+
+#Region " Class Property Declarations "
+
+		Public Property [iJournaleintragnr]() As SqlInt32
+			Get
+				Return m_iJournaleintragnr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iJournaleintragnrTmp As SqlInt32 = Value
+				If iJournaleintragnrTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iJournaleintragnr", "iJournaleintragnr can't be NULL")
+				End If
+				m_iJournaleintragnr = Value
+			End Set
+		End Property
+
+
+		Public Property [iJournalnr]() As SqlInt32
+			Get
+				Return m_iJournalnr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iJournalnr = Value
+			End Set
+		End Property
+
+
+		Public Property [sEintrag]() As SqlString
+			Get
+				Return m_sEintrag
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sEintrag = Value
+			End Set
+		End Property
+
+
+		Public Property [daDatumzeit]() As SqlDateTime
+			Get
+				Return m_daDatumzeit
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daDatumzeit = Value
+			End Set
+		End Property
+
+#End Region
+
+	End Class
+End Namespace

edkb12/edkb12 V12/EDKB12WS/Datenbank/clsKey_tabelle.vb

@@ -0,0 +1,490 @@
+' ///////////////////////////////////////////////////////////////////////////
+' // Description: Data Access class for the table 'key_tabelle'
+' // Generated by LLBLGen v1.2.1045.38210 Final on: Samstag, 7. Dezember 2002, 22:50:12
+' // Because the Base Class already implements IDispose, this class doesn't.
+' ///////////////////////////////////////////////////////////////////////////
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokadb
+	' /// <summary>
+	' /// Purpose: Data Access class for the table 'key_tabelle'.
+	' /// </summary>
+	Public Class clsKey_tabelle
+		Inherits clsDBInteractionBase
+
+#Region " Class Member Declarations "
+
+		Private 		m_bAktiv As SqlBoolean
+		Private 		m_daErstellt_am, m_daMutiert_am As SqlDateTime
+		Private 		m_iMutierer, m_iKeynr, m_iKey_wert, m_iMandantnr As SqlInt32
+		Private 		m_sBeschreibung As SqlString
+
+#End Region
+
+
+		' /// <summary>
+		' /// Purpose: Class constructor.
+		' /// </summary>
+		Public Sub New()
+			' // Nothing for now.
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Insert method. This method will insert one new row into the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iKeynr</LI>
+		' ///		 <LI>sBeschreibung</LI>
+		' ///		 <LI>iKey_wert</LI>
+		' ///		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Insert() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Insert]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_key_tabelle_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsKey_tabelle::Insert::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Update method. This method will Update one existing row in the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iKeynr</LI>
+		' ///		 <LI>sBeschreibung</LI>
+		' ///		 <LI>iKey_wert</LI>
+		' ///		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Update() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Update]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeschreibung", SqlDbType.VarChar, 255, ParameterDirection.Input, False, 0, 0, "", DataRowVersion.Proposed, m_sBeschreibung))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ikey_wert", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKey_wert))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_key_tabelle_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsKey_tabelle::Update::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
+        ' /// </summary>
+        ' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties needed for this method: 
+        ' /// <UL>
+        ' ///		 <LI>iKeynr</LI>
+        ' /// </UL>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Overrides Function Delete() As Boolean
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_Delete]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_key_tabelle_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsKey_tabelle::Delete::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+		' /// <summary>
+		' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
+		' /// </summary>
+		' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iKeynr</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' ///		 <LI>iKeynr</LI>
+		' ///		 <LI>sBeschreibung</LI>
+		' ///		 <LI>iKey_wert</LI>
+		' ///		 <LI>iMandantnr</LI>
+		' ///		 <LI>bAktiv</LI>
+		' ///		 <LI>daErstellt_am</LI>
+		' ///		 <LI>daMutiert_am</LI>
+		' ///		 <LI>iMutierer</LI>
+		' /// </UL>
+		' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
+		' /// </remarks>
+		Overrides Public Function SelectOne() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectOne]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("key_tabelle")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@ikeynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iKeynr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                If dtToReturn.Rows.Count > 0 Then
+                    m_iKeynr = New SqlInt32(CType(dtToReturn.Rows(0)("keynr"), Integer))
+                    m_sBeschreibung = New SqlString(CType(dtToReturn.Rows(0)("beschreibung"), String))
+                    m_iKey_wert = New SqlInt32(CType(dtToReturn.Rows(0)("key_wert"), Integer))
+                    If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
+                        m_iMandantnr = SqlInt32.Null
+                    Else
+                        m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
+                        m_bAktiv = SqlBoolean.Null
+                    Else
+                        m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
+                    End If
+                    If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
+                        m_daErstellt_am = SqlDateTime.Null
+                    Else
+                        m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
+                    End If
+                    If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
+                        m_daMutiert_am = SqlDateTime.Null
+                    Else
+                        m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
+                    End If
+                    If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
+                        m_iMutierer = SqlInt32.Null
+                    Else
+                        m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
+                    End If
+                End If
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsKey_tabelle::SelectOne::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: SelectAll method. This method will Select all rows from the table.
+        ' /// </summary>
+        ' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Overrides Function SelectAll() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_key_tabelle_SelectAll]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("key_tabelle")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_key_tabelle_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsKey_tabelle::SelectAll::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+#Region " Class Property Declarations "
+
+		Public Property [iKeynr]() As SqlInt32
+			Get
+				Return m_iKeynr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iKeynrTmp As SqlInt32 = Value
+				If iKeynrTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iKeynr", "iKeynr can't be NULL")
+				End If
+				m_iKeynr = Value
+			End Set
+		End Property
+
+
+		Public Property [sBeschreibung]() As SqlString
+			Get
+				Return m_sBeschreibung
+			End Get
+			Set(ByVal Value As SqlString)
+				Dim sBeschreibungTmp As SqlString = Value
+				If sBeschreibungTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("sBeschreibung", "sBeschreibung can't be NULL")
+				End If
+				m_sBeschreibung = Value
+			End Set
+		End Property
+
+
+		Public Property [iKey_wert]() As SqlInt32
+			Get
+				Return m_iKey_wert
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iKey_wertTmp As SqlInt32 = Value
+				If iKey_wertTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iKey_wert", "iKey_wert can't be NULL")
+				End If
+				m_iKey_wert = Value
+			End Set
+		End Property
+
+
+		Public Property [iMandantnr]() As SqlInt32
+			Get
+				Return m_iMandantnr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMandantnr = Value
+			End Set
+		End Property
+
+
+		Public Property [bAktiv]() As SqlBoolean
+			Get
+				Return m_bAktiv
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bAktiv = Value
+			End Set
+		End Property
+
+
+		Public Property [daErstellt_am]() As SqlDateTime
+			Get
+				Return m_daErstellt_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daErstellt_am = Value
+			End Set
+		End Property
+
+
+		Public Property [daMutiert_am]() As SqlDateTime
+			Get
+				Return m_daMutiert_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daMutiert_am = Value
+			End Set
+		End Property
+
+
+		Public Property [iMutierer]() As SqlInt32
+			Get
+				Return m_iMutierer
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMutierer = Value
+			End Set
+		End Property
+
+#End Region
+
+	End Class
+End Namespace

edkb12/edkb12 V12/EDKB12WS/Datenbank/clsMitarbeiter.vb

@@ -0,0 +1,910 @@
+' ///////////////////////////////////////////////////////////////////////////
+' // Description: Data Access class for the table 'mitarbeiter'
+' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 10. August 2003, 23:09:05
+' // Because the Base Class already implements IDispose, this class doesn't.
+' ///////////////////////////////////////////////////////////////////////////
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokadb
+	' /// <summary>
+	' /// Purpose: Data Access class for the table 'mitarbeiter'.
+	' /// </summary>
+	Public Class clsMitarbeiter
+		Inherits clsDBInteractionBase
+
+#Region " Class Member Declarations "
+
+		Private 		m_bMailempfang, m_bEdokaMesasge, m_bShowtip, m_bAktiv, m_bMailDirektVersenden, m_bEdoka_mail, m_bJournalisierung, m_bMailDokumentrueckgang As SqlBoolean
+		Private 		m_daErstellt_am, m_daMutiert_am As SqlDateTime
+		Private 		m_iPartnernr, m_iKlassifizierung, m_iMutierer, m_iMandantnr, m_iFunktionnr, m_iMitarbeiternr, m_iFuermandant, m_iSprache As SqlInt32
+		Private 		m_sRang, m_sAnrede, m_sKurzzeichen, m_sVorname, m_sName, m_sFax, m_sTelefon, m_sUnterschrift_text, m_sFunktion, m_sTgnummer, m_sEmail As SqlString
+
+#End Region
+
+
+		' /// <summary>
+		' /// Purpose: Class constructor.
+		' /// </summary>
+		Public Sub New()
+			' // Nothing for now.
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Insert method. This method will insert one new row into the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iMitarbeiternr</LI>
+		' ///		 <LI>sVorname. May be SqlString.Null</LI>
+		' ///		 <LI>sName. May be SqlString.Null</LI>
+		' ///		 <LI>sKurzzeichen. May be SqlString.Null</LI>
+		' ///		 <LI>sAnrede. May be SqlString.Null</LI>
+		' ///		 <LI>sTgnummer. May be SqlString.Null</LI>
+		' ///		 <LI>sEmail. May be SqlString.Null</LI>
+		' ///		 <LI>sFax. May be SqlString.Null</LI>
+		' ///		 <LI>sTelefon. May be SqlString.Null</LI>
+		' ///		 <LI>sUnterschrift_text. May be SqlString.Null</LI>
+		' ///		 <LI>iFunktionnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>iSprache. May be SqlInt32.Null</LI>
+		' ///		 <LI>iFuermandant</LI>
+		' ///		 <LI>bShowtip</LI>
+		' ///		 <LI>iPartnernr</LI>
+		' ///		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		' ///		 <LI>bMailempfang. May be SqlBoolean.Null</LI>
+		' ///		 <LI>bEdokaMesasge. May be SqlBoolean.Null</LI>
+		' ///		 <LI>sFunktion. May be SqlString.Null</LI>
+		' ///		 <LI>bMailDirektVersenden. May be SqlBoolean.Null</LI>
+		' ///		 <LI>sRang. May be SqlString.Null</LI>
+		' ///		 <LI>bMailDokumentrueckgang. May be SqlBoolean.Null</LI>
+		' ///		 <LI>iKlassifizierung. May be SqlInt32.Null</LI>
+		' ///		 <LI>bEdoka_mail. May be SqlBoolean.Null</LI>
+		' ///		 <LI>bJournalisierung. May be SqlBoolean.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Insert() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_Insert]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@svorname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVorname))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sName))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@skurzzeichen", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKurzzeichen))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sanrede", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sAnrede))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@stgnummer", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTgnummer))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@semail", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEmail))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sfax", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFax))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@stelefon", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTelefon))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sunterschrift_text", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUnterschrift_text))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ifunktionnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFunktionnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSprache))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ifuermandant", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFuermandant))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bshowtip", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bShowtip))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ipartnernr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPartnernr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bMailempfang", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bMailempfang))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bEdokaMesasge", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEdokaMesasge))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sfunktion", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFunktion))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bMailDirektVersenden", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bMailDirektVersenden))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sRang", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRang))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bMailDokumentrueckgang", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bMailDokumentrueckgang))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iklassifizierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKlassifizierung))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bedoka_mail", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEdoka_mail))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bjournalisierung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bJournalisierung))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_mitarbeiter_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsMitarbeiter::Insert::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Update method. This method will Update one existing row in the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iMitarbeiternr</LI>
+		' ///		 <LI>sVorname. May be SqlString.Null</LI>
+		' ///		 <LI>sName. May be SqlString.Null</LI>
+		' ///		 <LI>sKurzzeichen. May be SqlString.Null</LI>
+		' ///		 <LI>sAnrede. May be SqlString.Null</LI>
+		' ///		 <LI>sTgnummer. May be SqlString.Null</LI>
+		' ///		 <LI>sEmail. May be SqlString.Null</LI>
+		' ///		 <LI>sFax. May be SqlString.Null</LI>
+		' ///		 <LI>sTelefon. May be SqlString.Null</LI>
+		' ///		 <LI>sUnterschrift_text. May be SqlString.Null</LI>
+		' ///		 <LI>iFunktionnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>iSprache. May be SqlInt32.Null</LI>
+		' ///		 <LI>iFuermandant</LI>
+		' ///		 <LI>bShowtip</LI>
+		' ///		 <LI>iPartnernr</LI>
+		' ///		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		' ///		 <LI>bMailempfang. May be SqlBoolean.Null</LI>
+		' ///		 <LI>bEdokaMesasge. May be SqlBoolean.Null</LI>
+		' ///		 <LI>sFunktion. May be SqlString.Null</LI>
+		' ///		 <LI>bMailDirektVersenden. May be SqlBoolean.Null</LI>
+		' ///		 <LI>sRang. May be SqlString.Null</LI>
+		' ///		 <LI>bMailDokumentrueckgang. May be SqlBoolean.Null</LI>
+		' ///		 <LI>iKlassifizierung. May be SqlInt32.Null</LI>
+		' ///		 <LI>bEdoka_mail. May be SqlBoolean.Null</LI>
+		' ///		 <LI>bJournalisierung. May be SqlBoolean.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Update() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_Update]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@svorname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sVorname))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sname", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sName))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@skurzzeichen", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sKurzzeichen))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sanrede", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sAnrede))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@stgnummer", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTgnummer))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@semail", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEmail))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sfax", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFax))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@stelefon", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTelefon))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sunterschrift_text", SqlDbType.VarChar, 50, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sUnterschrift_text))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ifunktionnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iFunktionnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@isprache", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iSprache))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ifuermandant", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iFuermandant))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bshowtip", SqlDbType.Bit, 1, ParameterDirection.Input, False, 1, 0, "", DataRowVersion.Proposed, m_bShowtip))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ipartnernr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iPartnernr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bMailempfang", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bMailempfang))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bEdokaMesasge", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEdokaMesasge))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sfunktion", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFunktion))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bMailDirektVersenden", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bMailDirektVersenden))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sRang", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sRang))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bMailDokumentrueckgang", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bMailDokumentrueckgang))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iklassifizierung", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iKlassifizierung))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bedoka_mail", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEdoka_mail))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bjournalisierung", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bJournalisierung))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_mitarbeiter_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMitarbeiter::Update::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
+        ' /// </summary>
+        ' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties needed for this method: 
+        ' /// <UL>
+        ' ///		 <LI>iMitarbeiternr</LI>
+        ' /// </UL>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Overrides Function Delete() As Boolean
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_Delete]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_mitarbeiter_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMitarbeiter::Delete::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+		' /// <summary>
+		' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
+		' /// </summary>
+		' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iMitarbeiternr</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' ///		 <LI>iMitarbeiternr</LI>
+		' ///		 <LI>sVorname</LI>
+		' ///		 <LI>sName</LI>
+		' ///		 <LI>sKurzzeichen</LI>
+		' ///		 <LI>sAnrede</LI>
+		' ///		 <LI>sTgnummer</LI>
+		' ///		 <LI>sEmail</LI>
+		' ///		 <LI>sFax</LI>
+		' ///		 <LI>sTelefon</LI>
+		' ///		 <LI>sUnterschrift_text</LI>
+		' ///		 <LI>iFunktionnr</LI>
+		' ///		 <LI>iSprache</LI>
+		' ///		 <LI>iFuermandant</LI>
+		' ///		 <LI>bShowtip</LI>
+		' ///		 <LI>iPartnernr</LI>
+		' ///		 <LI>iMandantnr</LI>
+		' ///		 <LI>bAktiv</LI>
+		' ///		 <LI>daErstellt_am</LI>
+		' ///		 <LI>daMutiert_am</LI>
+		' ///		 <LI>iMutierer</LI>
+		' ///		 <LI>bMailempfang</LI>
+		' ///		 <LI>bEdokaMesasge</LI>
+		' ///		 <LI>sFunktion</LI>
+		' ///		 <LI>bMailDirektVersenden</LI>
+		' ///		 <LI>sRang</LI>
+		' ///		 <LI>bMailDokumentrueckgang</LI>
+		' ///		 <LI>iKlassifizierung</LI>
+		' ///		 <LI>bEdoka_mail</LI>
+		' ///		 <LI>bJournalisierung</LI>
+		' /// </UL>
+		' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
+		' /// </remarks>
+		Overrides Public Function SelectOne() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_SelectOne]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("mitarbeiter")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@imitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iMitarbeiternr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_mitarbeiter_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                If dtToReturn.Rows.Count > 0 Then
+                    m_iMitarbeiternr = New SqlInt32(CType(dtToReturn.Rows(0)("mitarbeiternr"), Integer))
+                    If dtToReturn.Rows(0)("vorname") Is System.DBNull.Value Then
+                        m_sVorname = SqlString.Null
+                    Else
+                        m_sVorname = New SqlString(CType(dtToReturn.Rows(0)("vorname"), String))
+                    End If
+                    If dtToReturn.Rows(0)("name") Is System.DBNull.Value Then
+                        m_sName = SqlString.Null
+                    Else
+                        m_sName = New SqlString(CType(dtToReturn.Rows(0)("name"), String))
+                    End If
+                    If dtToReturn.Rows(0)("kurzzeichen") Is System.DBNull.Value Then
+                        m_sKurzzeichen = SqlString.Null
+                    Else
+                        m_sKurzzeichen = New SqlString(CType(dtToReturn.Rows(0)("kurzzeichen"), String))
+                    End If
+                    If dtToReturn.Rows(0)("anrede") Is System.DBNull.Value Then
+                        m_sAnrede = SqlString.Null
+                    Else
+                        m_sAnrede = New SqlString(CType(dtToReturn.Rows(0)("anrede"), String))
+                    End If
+                    If dtToReturn.Rows(0)("tgnummer") Is System.DBNull.Value Then
+                        m_sTgnummer = SqlString.Null
+                    Else
+                        m_sTgnummer = New SqlString(CType(dtToReturn.Rows(0)("tgnummer"), String))
+                    End If
+                    If dtToReturn.Rows(0)("email") Is System.DBNull.Value Then
+                        m_sEmail = SqlString.Null
+                    Else
+                        m_sEmail = New SqlString(CType(dtToReturn.Rows(0)("email"), String))
+                    End If
+                    If dtToReturn.Rows(0)("fax") Is System.DBNull.Value Then
+                        m_sFax = SqlString.Null
+                    Else
+                        m_sFax = New SqlString(CType(dtToReturn.Rows(0)("fax"), String))
+                    End If
+                    If dtToReturn.Rows(0)("telefon") Is System.DBNull.Value Then
+                        m_sTelefon = SqlString.Null
+                    Else
+                        m_sTelefon = New SqlString(CType(dtToReturn.Rows(0)("telefon"), String))
+                    End If
+                    If dtToReturn.Rows(0)("unterschrift_text") Is System.DBNull.Value Then
+                        m_sUnterschrift_text = SqlString.Null
+                    Else
+                        m_sUnterschrift_text = New SqlString(CType(dtToReturn.Rows(0)("unterschrift_text"), String))
+                    End If
+                    If dtToReturn.Rows(0)("funktionnr") Is System.DBNull.Value Then
+                        m_iFunktionnr = SqlInt32.Null
+                    Else
+                        m_iFunktionnr = New SqlInt32(CType(dtToReturn.Rows(0)("funktionnr"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("sprache") Is System.DBNull.Value Then
+                        m_iSprache = SqlInt32.Null
+                    Else
+                        m_iSprache = New SqlInt32(CType(dtToReturn.Rows(0)("sprache"), Integer))
+                    End If
+                    m_iFuermandant = New SqlInt32(CType(dtToReturn.Rows(0)("fuermandant"), Integer))
+                    m_bShowtip = New SqlBoolean(CType(dtToReturn.Rows(0)("showtip"), Boolean))
+                    m_iPartnernr = New SqlInt32(CType(dtToReturn.Rows(0)("partnernr"), Integer))
+                    If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
+                        m_iMandantnr = SqlInt32.Null
+                    Else
+                        m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
+                        m_bAktiv = SqlBoolean.Null
+                    Else
+                        m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
+                    End If
+                    If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
+                        m_daErstellt_am = SqlDateTime.Null
+                    Else
+                        m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
+                    End If
+                    If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
+                        m_daMutiert_am = SqlDateTime.Null
+                    Else
+                        m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
+                    End If
+                    If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
+                        m_iMutierer = SqlInt32.Null
+                    Else
+                        m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("Mailempfang") Is System.DBNull.Value Then
+                        m_bMailempfang = SqlBoolean.Null
+                    Else
+                        m_bMailempfang = New SqlBoolean(CType(dtToReturn.Rows(0)("Mailempfang"), Boolean))
+                    End If
+                    If dtToReturn.Rows(0)("EdokaMesasge") Is System.DBNull.Value Then
+                        m_bEdokaMesasge = SqlBoolean.Null
+                    Else
+                        m_bEdokaMesasge = New SqlBoolean(CType(dtToReturn.Rows(0)("EdokaMesasge"), Boolean))
+                    End If
+                    If dtToReturn.Rows(0)("funktion") Is System.DBNull.Value Then
+                        m_sFunktion = SqlString.Null
+                    Else
+                        m_sFunktion = New SqlString(CType(dtToReturn.Rows(0)("funktion"), String))
+                    End If
+                    If dtToReturn.Rows(0)("MailDirektVersenden") Is System.DBNull.Value Then
+                        m_bMailDirektVersenden = SqlBoolean.Null
+                    Else
+                        m_bMailDirektVersenden = New SqlBoolean(CType(dtToReturn.Rows(0)("MailDirektVersenden"), Boolean))
+                    End If
+                    If dtToReturn.Rows(0)("Rang") Is System.DBNull.Value Then
+                        m_sRang = SqlString.Null
+                    Else
+                        m_sRang = New SqlString(CType(dtToReturn.Rows(0)("Rang"), String))
+                    End If
+                    If dtToReturn.Rows(0)("MailDokumentrueckgang") Is System.DBNull.Value Then
+                        m_bMailDokumentrueckgang = SqlBoolean.Null
+                    Else
+                        m_bMailDokumentrueckgang = New SqlBoolean(CType(dtToReturn.Rows(0)("MailDokumentrueckgang"), Boolean))
+                    End If
+                    If dtToReturn.Rows(0)("klassifizierung") Is System.DBNull.Value Then
+                        m_iKlassifizierung = SqlInt32.Null
+                    Else
+                        m_iKlassifizierung = New SqlInt32(CType(dtToReturn.Rows(0)("klassifizierung"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("edoka_mail") Is System.DBNull.Value Then
+                        m_bEdoka_mail = SqlBoolean.Null
+                    Else
+                        m_bEdoka_mail = New SqlBoolean(CType(dtToReturn.Rows(0)("edoka_mail"), Boolean))
+                    End If
+                    If dtToReturn.Rows(0)("journalisierung") Is System.DBNull.Value Then
+                        m_bJournalisierung = SqlBoolean.Null
+                    Else
+                        m_bJournalisierung = New SqlBoolean(CType(dtToReturn.Rows(0)("journalisierung"), Boolean))
+                    End If
+                End If
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMitarbeiter::SelectOne::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: SelectAll method. This method will Select all rows from the table.
+        ' /// </summary>
+        ' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Overrides Function SelectAll() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_mitarbeiter_SelectAll]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("mitarbeiter")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_mitarbeiter_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMitarbeiter::SelectAll::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+#Region " Class Property Declarations "
+
+		Public Property [iMitarbeiternr]() As SqlInt32
+			Get
+				Return m_iMitarbeiternr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iMitarbeiternrTmp As SqlInt32 = Value
+				If iMitarbeiternrTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iMitarbeiternr", "iMitarbeiternr can't be NULL")
+				End If
+				m_iMitarbeiternr = Value
+			End Set
+		End Property
+
+
+		Public Property [sVorname]() As SqlString
+			Get
+				Return m_sVorname
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sVorname = Value
+			End Set
+		End Property
+
+
+		Public Property [sName]() As SqlString
+			Get
+				Return m_sName
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sName = Value
+			End Set
+		End Property
+
+
+		Public Property [sKurzzeichen]() As SqlString
+			Get
+				Return m_sKurzzeichen
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sKurzzeichen = Value
+			End Set
+		End Property
+
+
+		Public Property [sAnrede]() As SqlString
+			Get
+				Return m_sAnrede
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sAnrede = Value
+			End Set
+		End Property
+
+
+		Public Property [sTgnummer]() As SqlString
+			Get
+				Return m_sTgnummer
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sTgnummer = Value
+			End Set
+		End Property
+
+
+		Public Property [sEmail]() As SqlString
+			Get
+				Return m_sEmail
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sEmail = Value
+			End Set
+		End Property
+
+
+		Public Property [sFax]() As SqlString
+			Get
+				Return m_sFax
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sFax = Value
+			End Set
+		End Property
+
+
+		Public Property [sTelefon]() As SqlString
+			Get
+				Return m_sTelefon
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sTelefon = Value
+			End Set
+		End Property
+
+
+		Public Property [sUnterschrift_text]() As SqlString
+			Get
+				Return m_sUnterschrift_text
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sUnterschrift_text = Value
+			End Set
+		End Property
+
+
+		Public Property [iFunktionnr]() As SqlInt32
+			Get
+				Return m_iFunktionnr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iFunktionnr = Value
+			End Set
+		End Property
+
+
+		Public Property [iSprache]() As SqlInt32
+			Get
+				Return m_iSprache
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iSprache = Value
+			End Set
+		End Property
+
+
+		Public Property [iFuermandant]() As SqlInt32
+			Get
+				Return m_iFuermandant
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iFuermandantTmp As SqlInt32 = Value
+				If iFuermandantTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iFuermandant", "iFuermandant can't be NULL")
+				End If
+				m_iFuermandant = Value
+			End Set
+		End Property
+
+
+		Public Property [bShowtip]() As SqlBoolean
+			Get
+				Return m_bShowtip
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				Dim bShowtipTmp As SqlBoolean = Value
+				If bShowtipTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("bShowtip", "bShowtip can't be NULL")
+				End If
+				m_bShowtip = Value
+			End Set
+		End Property
+
+
+		Public Property [iPartnernr]() As SqlInt32
+			Get
+				Return m_iPartnernr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iPartnernrTmp As SqlInt32 = Value
+				If iPartnernrTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iPartnernr", "iPartnernr can't be NULL")
+				End If
+				m_iPartnernr = Value
+			End Set
+		End Property
+
+
+		Public Property [iMandantnr]() As SqlInt32
+			Get
+				Return m_iMandantnr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMandantnr = Value
+			End Set
+		End Property
+
+
+		Public Property [bAktiv]() As SqlBoolean
+			Get
+				Return m_bAktiv
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bAktiv = Value
+			End Set
+		End Property
+
+
+		Public Property [daErstellt_am]() As SqlDateTime
+			Get
+				Return m_daErstellt_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daErstellt_am = Value
+			End Set
+		End Property
+
+
+		Public Property [daMutiert_am]() As SqlDateTime
+			Get
+				Return m_daMutiert_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daMutiert_am = Value
+			End Set
+		End Property
+
+
+		Public Property [iMutierer]() As SqlInt32
+			Get
+				Return m_iMutierer
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMutierer = Value
+			End Set
+		End Property
+
+
+		Public Property [bMailempfang]() As SqlBoolean
+			Get
+				Return m_bMailempfang
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bMailempfang = Value
+			End Set
+		End Property
+
+
+		Public Property [bEdokaMesasge]() As SqlBoolean
+			Get
+				Return m_bEdokaMesasge
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bEdokaMesasge = Value
+			End Set
+		End Property
+
+
+		Public Property [sFunktion]() As SqlString
+			Get
+				Return m_sFunktion
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sFunktion = Value
+			End Set
+		End Property
+
+
+		Public Property [bMailDirektVersenden]() As SqlBoolean
+			Get
+				Return m_bMailDirektVersenden
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bMailDirektVersenden = Value
+			End Set
+		End Property
+
+
+		Public Property [sRang]() As SqlString
+			Get
+				Return m_sRang
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sRang = Value
+			End Set
+		End Property
+
+
+		Public Property [bMailDokumentrueckgang]() As SqlBoolean
+			Get
+				Return m_bMailDokumentrueckgang
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bMailDokumentrueckgang = Value
+			End Set
+		End Property
+
+
+		Public Property [iKlassifizierung]() As SqlInt32
+			Get
+				Return m_iKlassifizierung
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iKlassifizierung = Value
+			End Set
+		End Property
+
+
+		Public Property [bEdoka_mail]() As SqlBoolean
+			Get
+				Return m_bEdoka_mail
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bEdoka_mail = Value
+			End Set
+		End Property
+
+
+		Public Property [bJournalisierung]() As SqlBoolean
+			Get
+				Return m_bJournalisierung
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bJournalisierung = Value
+			End Set
+		End Property
+
+#End Region
+
+	End Class
+End Namespace

edkb12/edkb12 V12/EDKB12WS/Datenbank/clsMyDokumentDaten.vb

@@ -0,0 +1,104 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokadb
+    Public Class clsMyDokumentDaten
+        Inherits edokadb.clsVorlagenfeld
+
+        Public Function SelectTestdata(ByVal dokumenttypnr As Long) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[temp_sp_vorlagenfeld_Select]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("vorlagenfeld")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_vorlagenfeld_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsVorlagenfeld::SelectAll::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function Select_IDVMakros(ByVal dokumenttypnr As Long) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[sp_idvmakros_Select]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("vorlagenfeld")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, dokumenttypnr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'sp_idvmakros_select' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("sp_idvmakros_select::SelectAll::Error occured." + ex.Message, ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+    End Class
+End Namespace
+

edkb12/edkb12 V12/EDKB12WS/Datenbank/clsMyKey_Tabelle.vb

@@ -0,0 +1,61 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+Namespace edokadb
+    Public Class clsMyKey_Tabelle
+        Inherits edokadb.clsKey_tabelle
+
+        Public Function get_dbkey(ByVal Tablename As String) As Long
+            Dim m_dbkey As Long
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[sp_get_dbkey]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@Tablename", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, Tablename))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@dbkey", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_dbkey))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                Try
+                    scmCmdToExecute.Connection.Open()
+                Catch ex As Exception
+                Finally
+                End Try
+
+                scmCmdToExecute.ExecuteNonQuery()
+                m_dbkey = scmCmdToExecute.Parameters.Item("@dbkey").Value
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+                scmCmdToExecute.Connection.Close()
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'sp_get_dbkey' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return m_dbkey
+            Catch ex As Exception
+                    ' // some error occured. Bubble it to caller and encapsulate Exception object
+                    Throw New Exception("clsKey_tabelle::get_dbkey::Error occured." + ex.Message, ex)
+                Finally
+                    If m_bMainConnectionIsCreatedLocal Then
+                        ' // Close connection.
+                        m_scoMainConnection.Close()
+                    End If
+                    scmCmdToExecute.Dispose()
+                End Try
+        End Function
+
+    End Class
+End Namespace

edkb12/edkb12 V12/EDKB12WS/Datenbank/clsMyMitarbeiter.vb

@@ -0,0 +1,75 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+Imports System.Security.Principal
+
+
+Namespace edokaDB
+    Public Class clsMyMitarbeiter
+        Inherits edokaDB.clsMitarbeiter
+
+#Region "Deklarationen"
+        Private m_xtgnummer As String
+
+        Property xtgnummer() As String
+            Get
+                Return m_xtgnummer
+            End Get
+            Set(ByVal Value As String)
+                m_xtgnummer = Value
+            End Set
+        End Property
+#End Region
+
+        Public Function SelectWithTGNummer() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[sp_mitarbeiter_SelectWithTGNummer]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("mitarbeiter")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+            Try
+
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@stgnummer", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_xtgnummer))
+
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_mitarbeiter_SelectAllWithTGNummer' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+                Globals.CurrentMitarbeiterdata = dtToReturn
+                Return dtToReturn
+            Catch ex As Exception
+                MsgBox(ex.Message)
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMitarbeiter::SelectWithTGNummer::Error occured." + ex.Message, ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+    End Class
+End Namespace
+

edkb12/edkb12 V12/EDKB12WS/Datenbank/clsMyPartner.vb

@@ -0,0 +1,174 @@
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokadb
+    Public Class clsMyPartner
+        Public Function search_partner(ByVal query As String, ByVal anzahl As String, ByVal fnkt As Integer) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_search]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@query", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, query))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@table", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, table))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@anz", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, anzahl))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, fnkt))
+                scmCmdToExecute.Connection.Open()
+                sdaAdapter.Fill(dtToReturn)
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex)
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function search_doppelte_partner(ByVal query As String, ByVal table As String, ByVal fnkt As Integer) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_search]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@query", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, query))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@table", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, table))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@anz", SqlDbType.VarChar, 10, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 0))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.VarChar, 1, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 4))
+                scmCmdToExecute.Connection.Open()
+                sdaAdapter.Fill(dtToReturn)
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_search::Error occured." + ex.Message, ex)
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+        Public Function Partner_Detail(ByVal nrpar00 As String) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_detail]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
+                scmCmdToExecute.Connection.Open()
+                sdaAdapter.Fill(dtToReturn)
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_detail::Error occured." + ex.Message, ex)
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function Partner_VV(ByVal nrpar00 As String) As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_vv]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
+                scmCmdToExecute.Connection.Open()
+                sdaAdapter.Fill(dtToReturn)
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function Partner_Gebdat(ByVal nrpar00 As String) As String
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_gebdat]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@gebdat", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
+                scmCmdToExecute.Connection.Open()
+                sdaAdapter.Fill(dtToReturn)
+
+                Return scmCmdToExecute.Parameters("@gebdat").Value
+            Catch ex As Exception
+                '   MsgBox(ex.Message)
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                '  Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
+                Return ""
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+        Public Function Partner_Betreuer(ByVal nrpar00 As String) As String
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim table As String = "dbo.partner"
+            scmCmdToExecute.CommandText = "dbo.[sp_partner_betreuer]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("partner")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@nrpar00", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, nrpar00))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@betreuer", SqlDbType.VarChar, 255, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, ""))
+                scmCmdToExecute.Connection.Open()
+                sdaAdapter.Fill(dtToReturn)
+                Return scmCmdToExecute.Parameters("@betreuer").Value
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsMyPartner::sp_partner_vv::Error occured." + ex.Message, ex)
+                Return ""
+            Finally
+                scmCmdToExecute.Connection.Close()
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+                dtToReturn.Dispose()
+            End Try
+
+        End Function
+
+
+    End Class
+End Namespace

edkb12/edkb12 V12/EDKB12WS/Datenbank/clsOffice_Vorlage_Datei.vb

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

edkb12/edkb12 V12/EDKB12WS/Datenbank/clsOffice_vorlage.vb

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

edkb12/edkb12 V12/EDKB12WS/Datenbank/clsStatushistory.vb

@@ -0,0 +1,510 @@
+' ///////////////////////////////////////////////////////////////////////////
+' // Description: Data Access class for the table 'statushistory'
+' // Generated by LLBLGen v1.2.1045.38210 Final on: Sonntag, 25. Mai 2003, 21:40:11
+' // Because the Base Class already implements IDispose, this class doesn't.
+' ///////////////////////////////////////////////////////////////////////////
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokadb
+	' /// <summary>
+	' /// Purpose: Data Access class for the table 'statushistory'.
+	' /// </summary>
+	Public Class clsStatushistory
+		Inherits clsDBInteractionBase
+
+#Region " Class Member Declarations "
+
+		Private 		m_bAktiv As SqlBoolean
+		Private 		m_daErstellt_am, m_daMutiert_am As SqlDateTime
+		Private 		m_iMutierer, m_iVerantwortlich, m_iStatushistorynr, m_iMandantnr, m_iStatus As SqlInt32
+		Private 		m_sDokumentid As SqlString
+
+#End Region
+
+
+		' /// <summary>
+		' /// Purpose: Class constructor.
+		' /// </summary>
+		Public Sub New()
+			' // Nothing for now.
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Insert method. This method will insert one new row into the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iStatushistorynr</LI>
+		' ///		 <LI>iStatus</LI>
+		' ///		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		' ///		 <LI>sDokumentid. May be SqlString.Null</LI>
+		' ///		 <LI>iVerantwortlich. May be SqlInt32.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Insert() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_statushistory_Insert]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@istatushistorynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatushistorynr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatus))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iverantwortlich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlich))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_statushistory_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsStatushistory::Insert::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Update method. This method will Update one existing row in the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iStatushistorynr</LI>
+		' ///		 <LI>iStatus</LI>
+		' ///		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		' ///		 <LI>sDokumentid. May be SqlString.Null</LI>
+		' ///		 <LI>iVerantwortlich. May be SqlInt32.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Update() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_statushistory_Update]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@istatushistorynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatushistorynr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@istatus", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatus))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sdokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sDokumentid))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iverantwortlich", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVerantwortlich))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_statushistory_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsStatushistory::Update::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
+        ' /// </summary>
+        ' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties needed for this method: 
+        ' /// <UL>
+        ' ///		 <LI>iStatushistorynr</LI>
+        ' /// </UL>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Overrides Function Delete() As Boolean
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_statushistory_Delete]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@istatushistorynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatushistorynr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_statushistory_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsStatushistory::Delete::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+		' /// <summary>
+		' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
+		' /// </summary>
+		' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iStatushistorynr</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' ///		 <LI>iStatushistorynr</LI>
+		' ///		 <LI>iStatus</LI>
+		' ///		 <LI>iMandantnr</LI>
+		' ///		 <LI>bAktiv</LI>
+		' ///		 <LI>daErstellt_am</LI>
+		' ///		 <LI>daMutiert_am</LI>
+		' ///		 <LI>iMutierer</LI>
+		' ///		 <LI>sDokumentid</LI>
+		' ///		 <LI>iVerantwortlich</LI>
+		' /// </UL>
+		' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
+		' /// </remarks>
+		Overrides Public Function SelectOne() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_statushistory_SelectOne]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("statushistory")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@istatushistorynr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iStatushistorynr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_statushistory_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                If dtToReturn.Rows.Count > 0 Then
+                    m_iStatushistorynr = New SqlInt32(CType(dtToReturn.Rows(0)("statushistorynr"), Integer))
+                    m_iStatus = New SqlInt32(CType(dtToReturn.Rows(0)("status"), Integer))
+                    If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
+                        m_iMandantnr = SqlInt32.Null
+                    Else
+                        m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
+                        m_bAktiv = SqlBoolean.Null
+                    Else
+                        m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
+                    End If
+                    If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
+                        m_daErstellt_am = SqlDateTime.Null
+                    Else
+                        m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
+                    End If
+                    If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
+                        m_daMutiert_am = SqlDateTime.Null
+                    Else
+                        m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
+                    End If
+                    If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
+                        m_iMutierer = SqlInt32.Null
+                    Else
+                        m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("dokumentid") Is System.DBNull.Value Then
+                        m_sDokumentid = SqlString.Null
+                    Else
+                        m_sDokumentid = New SqlString(CType(dtToReturn.Rows(0)("dokumentid"), String))
+                    End If
+                    If dtToReturn.Rows(0)("verantwortlich") Is System.DBNull.Value Then
+                        m_iVerantwortlich = SqlInt32.Null
+                    Else
+                        m_iVerantwortlich = New SqlInt32(CType(dtToReturn.Rows(0)("verantwortlich"), Integer))
+                    End If
+                End If
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsStatushistory::SelectOne::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: SelectAll method. This method will Select all rows from the table.
+        ' /// </summary>
+        ' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Overrides Function SelectAll() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_statushistory_SelectAll]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("statushistory")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_statushistory_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsStatushistory::SelectAll::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+#Region " Class Property Declarations "
+
+		Public Property [iStatushistorynr]() As SqlInt32
+			Get
+				Return m_iStatushistorynr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iStatushistorynrTmp As SqlInt32 = Value
+				If iStatushistorynrTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iStatushistorynr", "iStatushistorynr can't be NULL")
+				End If
+				m_iStatushistorynr = Value
+			End Set
+		End Property
+
+
+		Public Property [iStatus]() As SqlInt32
+			Get
+				Return m_iStatus
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iStatusTmp As SqlInt32 = Value
+				If iStatusTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iStatus", "iStatus can't be NULL")
+				End If
+				m_iStatus = Value
+			End Set
+		End Property
+
+
+		Public Property [iMandantnr]() As SqlInt32
+			Get
+				Return m_iMandantnr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMandantnr = Value
+			End Set
+		End Property
+
+
+		Public Property [bAktiv]() As SqlBoolean
+			Get
+				Return m_bAktiv
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bAktiv = Value
+			End Set
+		End Property
+
+
+		Public Property [daErstellt_am]() As SqlDateTime
+			Get
+				Return m_daErstellt_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daErstellt_am = Value
+			End Set
+		End Property
+
+
+		Public Property [daMutiert_am]() As SqlDateTime
+			Get
+				Return m_daMutiert_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daMutiert_am = Value
+			End Set
+		End Property
+
+
+		Public Property [iMutierer]() As SqlInt32
+			Get
+				Return m_iMutierer
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMutierer = Value
+			End Set
+		End Property
+
+
+		Public Property [sDokumentid]() As SqlString
+			Get
+				Return m_sDokumentid
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sDokumentid = Value
+			End Set
+		End Property
+
+
+		Public Property [iVerantwortlich]() As SqlInt32
+			Get
+				Return m_iVerantwortlich
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iVerantwortlich = Value
+			End Set
+		End Property
+
+#End Region
+
+	End Class
+End Namespace

edkb12/edkb12 V12/EDKB12WS/Datenbank/clsVorlagenfeld.vb

@@ -0,0 +1,874 @@
+' ///////////////////////////////////////////////////////////////////////////
+' // Description: Data Access class for the table 'vorlagenfeld'
+' // Generated by LLBLGen v1.2.1045.38210 Final on: Donnerstag, 9. Januar 2003, 21:07:47
+' // Because the Base Class already implements IDispose, this class doesn't.
+' ///////////////////////////////////////////////////////////////////////////
+Imports System
+Imports System.Data
+Imports System.Data.SqlTypes
+Imports System.Data.SqlClient
+
+Namespace edokadb
+	' /// <summary>
+	' /// Purpose: Data Access class for the table 'vorlagenfeld'.
+	' /// </summary>
+	Public Class clsVorlagenfeld
+		Inherits clsDBInteractionBase
+
+#Region " Class Member Declarations "
+
+		Private 		m_bEinstiegsmakro, m_bAusstiegsmakro, m_bAktiv As SqlBoolean
+		Private 		m_daErstellt_am, m_daMutiert_am As SqlDateTime
+		Private 		m_iVorlagenfeldnr, m_iMandantnr, m_iDokumenttypnr, m_iDokumenttypnrOld, m_iMutierer, m_iVorlagenfeldregelnr, m_iVorlagenfeldregelnrOld As SqlInt32
+		Private 		m_sBeginntextmarke, m_sFeldname, m_sTestdaten, m_sEndetextmarke As SqlString
+
+#End Region
+
+
+		' /// <summary>
+		' /// Purpose: Class constructor.
+		' /// </summary>
+		Public Sub New()
+			' // Nothing for now.
+		End Sub
+
+
+		' /// <summary>
+		' /// Purpose: Insert method. This method will insert one new row into the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iVorlagenfeldnr</LI>
+		' ///		 <LI>iDokumenttypnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>iVorlagenfeldregelnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>sFeldname. May be SqlString.Null</LI>
+		' ///		 <LI>sBeginntextmarke. May be SqlString.Null</LI>
+		' ///		 <LI>sEndetextmarke. May be SqlString.Null</LI>
+		' ///		 <LI>bEinstiegsmakro. May be SqlBoolean.Null</LI>
+		' ///		 <LI>bAusstiegsmakro. May be SqlBoolean.Null</LI>
+		' ///		 <LI>sTestdaten. May be SqlString.Null</LI>
+		' ///		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Insert() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_vorlagenfeld_Insert]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ivorlagenfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVorlagenfeldnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ivorlagenfeldregelnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVorlagenfeldregelnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sfeldname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFeldname))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeginntextmarke", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeginntextmarke))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sendetextmarke", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEndetextmarke))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@beinstiegsmakro", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEinstiegsmakro))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bausstiegsmakro", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAusstiegsmakro))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@stestdaten", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTestdaten))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+					' // Throw error.
+					Throw New Exception("Stored Procedure 'pr_vorlagenfeld_Insert' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				Return True
+			Catch ex As Exception
+				' // some error occured. Bubble it to caller and encapsulate Exception object
+				Throw New Exception("clsVorlagenfeld::Insert::Error occured.", ex)
+			Finally
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Close connection.
+					m_scoMainConnection.Close()
+				End If
+				scmCmdToExecute.Dispose()
+			End Try
+		End Function
+
+
+		' /// <summary>
+		' /// Purpose: Update method. This method will Update one existing row in the database.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iVorlagenfeldnr</LI>
+		' ///		 <LI>iDokumenttypnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>iVorlagenfeldregelnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>sFeldname. May be SqlString.Null</LI>
+		' ///		 <LI>sBeginntextmarke. May be SqlString.Null</LI>
+		' ///		 <LI>sEndetextmarke. May be SqlString.Null</LI>
+		' ///		 <LI>bEinstiegsmakro. May be SqlBoolean.Null</LI>
+		' ///		 <LI>bAusstiegsmakro. May be SqlBoolean.Null</LI>
+		' ///		 <LI>sTestdaten. May be SqlString.Null</LI>
+		' ///		 <LI>iMandantnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>bAktiv. May be SqlBoolean.Null</LI>
+		' ///		 <LI>daErstellt_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>daMutiert_am. May be SqlDateTime.Null</LI>
+		' ///		 <LI>iMutierer. May be SqlInt32.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Overrides Public Function Update() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_vorlagenfeld_Update]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ivorlagenfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVorlagenfeldnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ivorlagenfeldregelnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVorlagenfeldregelnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sfeldname", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sFeldname))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sbeginntextmarke", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sBeginntextmarke))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@sendetextmarke", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sEndetextmarke))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@beinstiegsmakro", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bEinstiegsmakro))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@bausstiegsmakro", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAusstiegsmakro))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@stestdaten", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 0, 0, "", DataRowVersion.Proposed, m_sTestdaten))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imandantnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMandantnr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@baktiv", SqlDbType.Bit, 1, ParameterDirection.Input, True, 1, 0, "", DataRowVersion.Proposed, m_bAktiv))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@daerstellt_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daErstellt_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@damutiert_am", SqlDbType.DateTime, 8, ParameterDirection.Input, True, 23, 3, "", DataRowVersion.Proposed, m_daMutiert_am))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@imutierer", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iMutierer))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_vorlagenfeld_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsVorlagenfeld::Update::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: Update method for updating one or more rows using the Foreign Key 'dokumenttypnr.
+        ' /// This method will Update one or more existing rows in the database. It will reset the field 'dokumenttypnr' in
+        ' /// all rows which have as value for this field the value as set in property 'iDokumenttypnrOld' to 
+        ' /// the value as set in property 'iDokumenttypnr'.
+        ' /// </summary>
+        ' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties needed for this method: 
+        ' /// <UL>
+        ' ///		 <LI>iDokumenttypnr. May be SqlInt32.Null</LI>
+        ' ///		 <LI>iDokumenttypnrOld. May be SqlInt32.Null</LI>
+        ' /// </UL>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Function UpdateAllWdokumenttypnrLogic() As Boolean
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_vorlagenfeld_UpdateAllWdokumenttypnrLogic]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@idokumenttypnrOld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnrOld))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_vorlagenfeld_UpdateAllWdokumenttypnrLogic' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsVorlagenfeld::UpdateAllWdokumenttypnrLogic::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+		' /// <summary>
+		' /// Purpose: Update method for updating one or more rows using the Foreign Key 'vorlagenfeldregelnr.
+		' /// This method will Update one or more existing rows in the database. It will reset the field 'vorlagenfeldregelnr' in
+		' /// all rows which have as value for this field the value as set in property 'iVorlagenfeldregelnrOld' to 
+		' /// the value as set in property 'iVorlagenfeldregelnr'.
+		' /// </summary>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iVorlagenfeldregelnr. May be SqlInt32.Null</LI>
+		' ///		 <LI>iVorlagenfeldregelnrOld. May be SqlInt32.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Public Function UpdateAllWvorlagenfeldregelnrLogic() As Boolean
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_vorlagenfeld_UpdateAllWvorlagenfeldregelnrLogic]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@ivorlagenfeldregelnr", SqlDbType.Int, 4, ParameterDirection.Input, false, 10, 0, "", DataRowVersion.Proposed, m_iVorlagenfeldregelnr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@ivorlagenfeldregelnrOld", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVorlagenfeldregelnrOld))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_vorlagenfeld_UpdateAllWvorlagenfeldregelnrLogic' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsVorlagenfeld::UpdateAllWvorlagenfeldregelnrLogic::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
+        ' /// </summary>
+        ' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties needed for this method: 
+        ' /// <UL>
+        ' ///		 <LI>iVorlagenfeldnr</LI>
+        ' /// </UL>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Overrides Function Delete() As Boolean
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_vorlagenfeld_Delete]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@ivorlagenfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVorlagenfeldnr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                scmCmdToExecute.ExecuteNonQuery()
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_vorlagenfeld_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return True
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsVorlagenfeld::Delete::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+            End Try
+        End Function
+
+
+		' /// <summary>
+		' /// Purpose: Select method. This method will Select one existing row from the database, based on the Primary Key.
+		' /// </summary>
+		' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iVorlagenfeldnr</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' ///		 <LI>iVorlagenfeldnr</LI>
+		' ///		 <LI>iDokumenttypnr</LI>
+		' ///		 <LI>iVorlagenfeldregelnr</LI>
+		' ///		 <LI>sFeldname</LI>
+		' ///		 <LI>sBeginntextmarke</LI>
+		' ///		 <LI>sEndetextmarke</LI>
+		' ///		 <LI>bEinstiegsmakro</LI>
+		' ///		 <LI>bAusstiegsmakro</LI>
+		' ///		 <LI>sTestdaten</LI>
+		' ///		 <LI>iMandantnr</LI>
+		' ///		 <LI>bAktiv</LI>
+		' ///		 <LI>daErstellt_am</LI>
+		' ///		 <LI>daMutiert_am</LI>
+		' ///		 <LI>iMutierer</LI>
+		' /// </UL>
+		' /// Will fill all properties corresponding with a field in the table with the value of the row selected.
+		' /// </remarks>
+		Overrides Public Function SelectOne() As DataTable
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_vorlagenfeld_SelectOne]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("vorlagenfeld")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@ivorlagenfeldnr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iVorlagenfeldnr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_vorlagenfeld_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                If dtToReturn.Rows.Count > 0 Then
+                    m_iVorlagenfeldnr = New SqlInt32(CType(dtToReturn.Rows(0)("vorlagenfeldnr"), Integer))
+                    If dtToReturn.Rows(0)("dokumenttypnr") Is System.DBNull.Value Then
+                        m_iDokumenttypnr = SqlInt32.Null
+                    Else
+                        m_iDokumenttypnr = New SqlInt32(CType(dtToReturn.Rows(0)("dokumenttypnr"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("vorlagenfeldregelnr") Is System.DBNull.Value Then
+                        m_iVorlagenfeldregelnr = SqlInt32.Null
+                    Else
+                        m_iVorlagenfeldregelnr = New SqlInt32(CType(dtToReturn.Rows(0)("vorlagenfeldregelnr"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("feldname") Is System.DBNull.Value Then
+                        m_sFeldname = SqlString.Null
+                    Else
+                        m_sFeldname = New SqlString(CType(dtToReturn.Rows(0)("feldname"), String))
+                    End If
+                    If dtToReturn.Rows(0)("beginntextmarke") Is System.DBNull.Value Then
+                        m_sBeginntextmarke = SqlString.Null
+                    Else
+                        m_sBeginntextmarke = New SqlString(CType(dtToReturn.Rows(0)("beginntextmarke"), String))
+                    End If
+                    If dtToReturn.Rows(0)("endetextmarke") Is System.DBNull.Value Then
+                        m_sEndetextmarke = SqlString.Null
+                    Else
+                        m_sEndetextmarke = New SqlString(CType(dtToReturn.Rows(0)("endetextmarke"), String))
+                    End If
+                    If dtToReturn.Rows(0)("einstiegsmakro") Is System.DBNull.Value Then
+                        m_bEinstiegsmakro = SqlBoolean.Null
+                    Else
+                        m_bEinstiegsmakro = New SqlBoolean(CType(dtToReturn.Rows(0)("einstiegsmakro"), Boolean))
+                    End If
+                    If dtToReturn.Rows(0)("ausstiegsmakro") Is System.DBNull.Value Then
+                        m_bAusstiegsmakro = SqlBoolean.Null
+                    Else
+                        m_bAusstiegsmakro = New SqlBoolean(CType(dtToReturn.Rows(0)("ausstiegsmakro"), Boolean))
+                    End If
+                    If dtToReturn.Rows(0)("testdaten") Is System.DBNull.Value Then
+                        m_sTestdaten = SqlString.Null
+                    Else
+                        m_sTestdaten = New SqlString(CType(dtToReturn.Rows(0)("testdaten"), String))
+                    End If
+                    If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
+                        m_iMandantnr = SqlInt32.Null
+                    Else
+                        m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
+                    End If
+                    If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
+                        m_bAktiv = SqlBoolean.Null
+                    Else
+                        m_bAktiv = New SqlBoolean(CType(dtToReturn.Rows(0)("aktiv"), Boolean))
+                    End If
+                    If dtToReturn.Rows(0)("erstellt_am") Is System.DBNull.Value Then
+                        m_daErstellt_am = SqlDateTime.Null
+                    Else
+                        m_daErstellt_am = New SqlDateTime(CType(dtToReturn.Rows(0)("erstellt_am"), Date))
+                    End If
+                    If dtToReturn.Rows(0)("mutiert_am") Is System.DBNull.Value Then
+                        m_daMutiert_am = SqlDateTime.Null
+                    Else
+                        m_daMutiert_am = New SqlDateTime(CType(dtToReturn.Rows(0)("mutiert_am"), Date))
+                    End If
+                    If dtToReturn.Rows(0)("mutierer") Is System.DBNull.Value Then
+                        m_iMutierer = SqlInt32.Null
+                    Else
+                        m_iMutierer = New SqlInt32(CType(dtToReturn.Rows(0)("mutierer"), Integer))
+                    End If
+                End If
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsVorlagenfeld::SelectOne::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: SelectAll method. This method will Select all rows from the table.
+        ' /// </summary>
+        ' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Overrides Function SelectAll() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_vorlagenfeld_SelectAll]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("vorlagenfeld")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_vorlagenfeld_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsVorlagenfeld::SelectAll::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+		' /// <summary>
+		' /// Purpose: Select method for a foreign key. This method will Select one or more rows from the database, based on the Foreign Key 'dokumenttypnr'
+		' /// </summary>
+		' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <remarks>
+		' /// Properties needed for this method: 
+		' /// <UL>
+		' ///		 <LI>iDokumenttypnr. May be SqlInt32.Null</LI>
+		' /// </UL>
+		' /// Properties set after a succesful call of this method: 
+		' /// <UL>
+		' ///		 <LI>iErrorCode</LI>
+		' /// </UL>
+		' /// </remarks>
+		Public Function SelectAllWdokumenttypnrLogic() As DataTable
+			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			scmCmdToExecute.CommandText = "dbo.[pr_vorlagenfeld_SelectAllWdokumenttypnrLogic]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = new DataTable("vorlagenfeld")
+			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+
+			' // Use base class' connection object
+			scmCmdToExecute.Connection = m_scoMainConnection
+
+			Try
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@idokumenttypnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iDokumenttypnr))
+				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+				If m_bMainConnectionIsCreatedLocal Then
+					' // Open connection.
+					m_scoMainConnection.Open()
+				Else
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+					End If
+				End If
+
+				' // Execute query.
+				sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_vorlagenfeld_SelectAllWdokumenttypnrLogic' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsVorlagenfeld::SelectAllWdokumenttypnrLogic::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+        ' /// <summary>
+        ' /// Purpose: Select method for a foreign key. This method will Select one or more rows from the database, based on the Foreign Key 'vorlagenfeldregelnr'
+        ' /// </summary>
+        ' /// <returns>DataTable object if succeeded, otherwise an Exception is thrown. </returns>
+        ' /// <remarks>
+        ' /// Properties needed for this method: 
+        ' /// <UL>
+        ' ///		 <LI>iVorlagenfeldregelnr. May be SqlInt32.Null</LI>
+        ' /// </UL>
+        ' /// Properties set after a succesful call of this method: 
+        ' /// <UL>
+        ' ///		 <LI>iErrorCode</LI>
+        ' /// </UL>
+        ' /// </remarks>
+        Public Function SelectAllWvorlagenfeldregelnrLogic() As DataTable
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            scmCmdToExecute.CommandText = "dbo.[pr_vorlagenfeld_SelectAllWvorlagenfeldregelnrLogic]"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            Dim dtToReturn As DataTable = New DataTable("vorlagenfeld")
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+
+            ' // Use base class' connection object
+            scmCmdToExecute.Connection = m_scoMainConnection
+
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@ivorlagenfeldregelnr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, m_iVorlagenfeldregelnr))
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Open connection.
+                    m_scoMainConnection.Open()
+                Else
+                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+                    End If
+                End If
+
+                ' // Execute query.
+                sdaAdapter.Fill(dtToReturn)
+                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+
+                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+                    ' // Throw error.
+                    Throw New Exception("Stored Procedure 'pr_vorlagenfeld_SelectAllWvorlagenfeldregelnrLogic' reported the ErrorCode: " & m_iErrorCode.ToString())
+                End If
+
+                Return dtToReturn
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("clsVorlagenfeld::SelectAllWvorlagenfeldregelnrLogic::Error occured.", ex)
+            Finally
+                If m_bMainConnectionIsCreatedLocal Then
+                    ' // Close connection.
+                    m_scoMainConnection.Close()
+                End If
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+#Region " Class Property Declarations "
+
+		Public Property [iVorlagenfeldnr]() As SqlInt32
+			Get
+				Return m_iVorlagenfeldnr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				Dim iVorlagenfeldnrTmp As SqlInt32 = Value
+				If iVorlagenfeldnrTmp.IsNull Then
+					Throw New ArgumentOutOfRangeException("iVorlagenfeldnr", "iVorlagenfeldnr can't be NULL")
+				End If
+				m_iVorlagenfeldnr = Value
+			End Set
+		End Property
+
+
+		Public Property [iDokumenttypnr]() As SqlInt32
+			Get
+				Return m_iDokumenttypnr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iDokumenttypnr = Value
+			End Set
+		End Property
+		Public Property [iDokumenttypnrOld]() As SqlInt32
+			Get
+				Return m_iDokumenttypnrOld
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iDokumenttypnrOld = Value
+			End Set
+		End Property
+
+
+		Public Property [iVorlagenfeldregelnr]() As SqlInt32
+			Get
+				Return m_iVorlagenfeldregelnr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iVorlagenfeldregelnr = Value
+			End Set
+		End Property
+		Public Property [iVorlagenfeldregelnrOld]() As SqlInt32
+			Get
+				Return m_iVorlagenfeldregelnrOld
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iVorlagenfeldregelnrOld = Value
+			End Set
+		End Property
+
+
+		Public Property [sFeldname]() As SqlString
+			Get
+				Return m_sFeldname
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sFeldname = Value
+			End Set
+		End Property
+
+
+		Public Property [sBeginntextmarke]() As SqlString
+			Get
+				Return m_sBeginntextmarke
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sBeginntextmarke = Value
+			End Set
+		End Property
+
+
+		Public Property [sEndetextmarke]() As SqlString
+			Get
+				Return m_sEndetextmarke
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sEndetextmarke = Value
+			End Set
+		End Property
+
+
+		Public Property [bEinstiegsmakro]() As SqlBoolean
+			Get
+				Return m_bEinstiegsmakro
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bEinstiegsmakro = Value
+			End Set
+		End Property
+
+
+		Public Property [bAusstiegsmakro]() As SqlBoolean
+			Get
+				Return m_bAusstiegsmakro
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bAusstiegsmakro = Value
+			End Set
+		End Property
+
+
+		Public Property [sTestdaten]() As SqlString
+			Get
+				Return m_sTestdaten
+			End Get
+			Set(ByVal Value As SqlString)
+				m_sTestdaten = Value
+			End Set
+		End Property
+
+
+		Public Property [iMandantnr]() As SqlInt32
+			Get
+				Return m_iMandantnr
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMandantnr = Value
+			End Set
+		End Property
+
+
+		Public Property [bAktiv]() As SqlBoolean
+			Get
+				Return m_bAktiv
+			End Get
+			Set(ByVal Value As SqlBoolean)
+				m_bAktiv = Value
+			End Set
+		End Property
+
+
+		Public Property [daErstellt_am]() As SqlDateTime
+			Get
+				Return m_daErstellt_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daErstellt_am = Value
+			End Set
+		End Property
+
+
+		Public Property [daMutiert_am]() As SqlDateTime
+			Get
+				Return m_daMutiert_am
+			End Get
+			Set(ByVal Value As SqlDateTime)
+				m_daMutiert_am = Value
+			End Set
+		End Property
+
+
+		Public Property [iMutierer]() As SqlInt32
+			Get
+				Return m_iMutierer
+			End Get
+			Set(ByVal Value As SqlInt32)
+				m_iMutierer = Value
+			End Set
+		End Property
+
+#End Region
+
+	End Class
+End Namespace

edkb12/edkb12 V12/EDKB12WS/EDKB12WS.sln

@@ -0,0 +1,20 @@
+
+Microsoft Visual Studio Solution File, Format Version 9.00
+# Visual Studio 2005
+Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "EDKB12WS", "EDKB12WS.vbproj", "{0EBB5244-26B9-4E3D-929E-C3CF31F350AE}"
+EndProject
+Global
+	GlobalSection(SolutionConfigurationPlatforms) = preSolution
+		Debug|Any CPU = Debug|Any CPU
+		Release|Any CPU = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(ProjectConfigurationPlatforms) = postSolution
+		{0EBB5244-26B9-4E3D-929E-C3CF31F350AE}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
+		{0EBB5244-26B9-4E3D-929E-C3CF31F350AE}.Debug|Any CPU.Build.0 = Debug|Any CPU
+		{0EBB5244-26B9-4E3D-929E-C3CF31F350AE}.Release|Any CPU.ActiveCfg = Release|Any CPU
+		{0EBB5244-26B9-4E3D-929E-C3CF31F350AE}.Release|Any CPU.Build.0 = Release|Any CPU
+	EndGlobalSection
+	GlobalSection(SolutionProperties) = preSolution
+		HideSolutionNode = FALSE
+	EndGlobalSection
+EndGlobal

edkb12/edkb12 V12/EDKB12WS/EDKB12WS.vbproj

@@ -0,0 +1,143 @@
+<?xml version="1.0" encoding="utf-8"?>
+<Project DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <ProductVersion>8.0.50727</ProductVersion>
+    <SchemaVersion>2.0</SchemaVersion>
+    <ProjectGuid>{0EBB5244-26B9-4E3D-929E-C3CF31F350AE}</ProjectGuid>
+    <OutputType>WinExe</OutputType>
+    <StartupObject>EDKB12WS.Service1</StartupObject>
+    <RootNamespace>EDKB12WS</RootNamespace>
+    <AssemblyName>EDKB12WS</AssemblyName>
+    <MyType>Console</MyType>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <DebugSymbols>true</DebugSymbols>
+    <DebugType>full</DebugType>
+    <DefineDebug>true</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <OutputPath>bin\Debug\</OutputPath>
+    <DocumentationFile>EDKB12WS.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <DebugType>pdbonly</DebugType>
+    <DefineDebug>false</DefineDebug>
+    <DefineTrace>true</DefineTrace>
+    <Optimize>true</Optimize>
+    <OutputPath>bin\Release\</OutputPath>
+    <DocumentationFile>EDKB12WS.xml</DocumentationFile>
+    <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
+  </PropertyGroup>
+  <ItemGroup>
+    <Reference Include="Interop.Microsoft.Office.Core, Version=2.3.0.0, Culture=neutral" />
+    <Reference Include="Interop.Office, Version=2.1.0.0, Culture=neutral" />
+    <Reference Include="Interop.VBIDE, Version=5.3.0.0, Culture=neutral" />
+    <Reference Include="Interop.Word, Version=8.1.0.0, Culture=neutral" />
+    <Reference Include="System" />
+    <Reference Include="System.Configuration.Install" />
+    <Reference Include="System.Data" />
+    <Reference Include="System.Deployment" />
+    <Reference Include="System.ServiceProcess" />
+    <Reference Include="System.Windows.Forms" />
+    <Reference Include="System.Xml" />
+  </ItemGroup>
+  <ItemGroup>
+    <Import Include="Microsoft.VisualBasic" />
+    <Import Include="System" />
+    <Import Include="System.Collections" />
+    <Import Include="System.Collections.Generic" />
+    <Import Include="System.Data" />
+    <Import Include="System.Diagnostics" />
+  </ItemGroup>
+  <ItemGroup>
+    <Compile Include="Action.vb" />
+    <Compile Include="AvaloqDokumentWert.vb" />
+    <Compile Include="AvaloqDokumentWerte.vb" />
+    <Compile Include="clsDivFnkt.vb" />
+    <Compile Include="Datenbank\clsApplikation.vb" />
+    <Compile Include="Datenbank\clsConnectionProvider.vb" />
+    <Compile Include="Datenbank\clsDBInteractionBase.vb" />
+    <Compile Include="Datenbank\clsDokument.vb" />
+    <Compile Include="Datenbank\clsDokumenttyp.vb" />
+    <Compile Include="Datenbank\clsIdvmakro_office_vorlage.vb" />
+    <Compile Include="Datenbank\clsJournaleintrag.vb" />
+    <Compile Include="Datenbank\clsKey_tabelle.vb" />
+    <Compile Include="Datenbank\clsMitarbeiter.vb" />
+    <Compile Include="Datenbank\clsMyDokumentDaten.vb" />
+    <Compile Include="Datenbank\clsMyKey_Tabelle.vb" />
+    <Compile Include="Datenbank\clsMyMitarbeiter.vb" />
+    <Compile Include="Datenbank\clsMyPartner.vb" />
+    <Compile Include="Datenbank\clsOffice_vorlage.vb" />
+    <Compile Include="Datenbank\clsOffice_Vorlage_Datei.vb" />
+    <Compile Include="Datenbank\clsPartner.vb" />
+    <Compile Include="Datenbank\clsStatushistory.vb" />
+    <Compile Include="Datenbank\clsVorlagenfeld.vb" />
+    <Compile Include="Globals.vb" />
+    <Compile Include="ModMain.vb" />
+    <Compile Include="My Project\Application.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Application.myapp</DependentUpon>
+    </Compile>
+    <Compile Include="Parameters.vb" />
+    <Compile Include="ProjectInstaller.Designer.vb">
+      <DependentUpon>ProjectInstaller.vb</DependentUpon>
+    </Compile>
+    <Compile Include="ProjectInstaller.vb">
+      <SubType>Component</SubType>
+    </Compile>
+    <Compile Include="Service1.vb">
+      <SubType>Component</SubType>
+    </Compile>
+    <Compile Include="Service1.Designer.vb">
+      <DependentUpon>Service1.vb</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\AssemblyInfo.vb" />
+    <Compile Include="My Project\Resources.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DesignTime>True</DesignTime>
+      <DependentUpon>Resources.resx</DependentUpon>
+    </Compile>
+    <Compile Include="My Project\Settings.Designer.vb">
+      <AutoGen>True</AutoGen>
+      <DependentUpon>Settings.settings</DependentUpon>
+      <DesignTimeSharedInput>True</DesignTimeSharedInput>
+    </Compile>
+  </ItemGroup>
+  <ItemGroup>
+    <EmbeddedResource Include="My Project\Resources.resx">
+      <Generator>VbMyResourcesResXFileCodeGenerator</Generator>
+      <LastGenOutput>Resources.Designer.vb</LastGenOutput>
+      <CustomToolNamespace>My.Resources</CustomToolNamespace>
+      <SubType>Designer</SubType>
+    </EmbeddedResource>
+    <EmbeddedResource Include="ProjectInstaller.resx">
+      <SubType>Designer</SubType>
+      <DependentUpon>ProjectInstaller.vb</DependentUpon>
+    </EmbeddedResource>
+    <EmbeddedResource Include="Service1.resx">
+      <SubType>Designer</SubType>
+      <DependentUpon>Service1.vb</DependentUpon>
+    </EmbeddedResource>
+  </ItemGroup>
+  <ItemGroup>
+    <None Include="My Project\Application.myapp">
+      <Generator>MyApplicationCodeGenerator</Generator>
+      <LastGenOutput>Application.Designer.vb</LastGenOutput>
+    </None>
+    <None Include="My Project\Settings.settings">
+      <Generator>SettingsSingleFileGenerator</Generator>
+      <CustomToolNamespace>My</CustomToolNamespace>
+      <LastGenOutput>Settings.Designer.vb</LastGenOutput>
+    </None>
+  </ItemGroup>
+  <Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
+  <!-- To modify your build process, add your task inside one of the targets below and uncomment it. 
+       Other similar extension points exist, see Microsoft.Common.targets.
+  <Target Name="BeforeBuild">
+  </Target>
+  <Target Name="AfterBuild">
+  </Target>
+  -->
+</Project>

edkb12/edkb12 V12/EDKB12WS/EDKB12WS.vbproj.user

@@ -0,0 +1,24 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <RemoteDebugEnabled>false</RemoteDebugEnabled>
+    <EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <RemoteDebugEnabled>false</RemoteDebugEnabled>
+    <EnableUnmanagedDebugging>false</EnableUnmanagedDebugging>
+  </PropertyGroup>
+  <PropertyGroup>
+    <PublishUrlHistory>publish\</PublishUrlHistory>
+    <InstallUrlHistory>
+    </InstallUrlHistory>
+    <SupportUrlHistory>
+    </SupportUrlHistory>
+    <UpdateUrlHistory>
+    </UpdateUrlHistory>
+    <BootstrapperUrlHistory>
+    </BootstrapperUrlHistory>
+    <ApplicationRevision>0</ApplicationRevision>
+    <FallbackCulture>de-DE</FallbackCulture>
+    <VerifyUploadedFiles>false</VerifyUploadedFiles>
+  </PropertyGroup>
+</Project>

edkb12/edkb12 V12/EDKB12WS/EDKB12WS.vsdoc

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

edkb12/edkb12 V12/EDKB12WS/Globals.vb

@@ -0,0 +1,41 @@
+Module Globals
+
+
+#Region "Deklarationen"
+    Public Param As Parameters
+    Public DivFnkt As New clsDivFnkt
+
+    Public Applikationsdaten As DataTable
+    Public AppldataRow As Integer
+
+
+    Public sConnectionString As String
+    Public conn As New edokadb.clsConnectionProvider()
+    Public connJournale As New edokadb.clsConnectionProvider
+
+    Public Mitarbeiter As New edokadb.clsMyMitarbeiter()
+    Public CurrentMitarbeiterdata As New DataTable()
+    Public profilnr As Integer
+    Public TGNummer As String
+
+    Public objAvaloqDokumentWerte As New AvaloqDokumentWerte()
+
+
+#End Region
+#Region "Syslog"
+
+    Dim EVLog As New EventLog("Log_EDKB07")
+
+    Public PrintLogType As EventLogEntryType
+
+    Public Sub PrintLog(ByVal message As String, Optional ByVal eventmessage As EventLogEntryType = EventLogEntryType.Information)
+        If Not EventLog.SourceExists("EDKB12") Then
+            EventLog.CreateEventSource("EDKB12", "EDKB12 Log")
+        End If
+        EVLog.Source = "EDKB12 Log"
+        EventLog.WriteEntry(EVLog.Source, message, eventmessage)
+    End Sub
+
+#End Region
+
+End Module

edkb12/edkb12 V12/EDKB12WS/My Project/Application.Designer.vb

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

edkb12/edkb12 V12/EDKB12WS/My Project/Application.myapp

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

edkb12/edkb12 V12/EDKB12WS/My Project/AssemblyInfo.vb

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

edkb12/edkb12 V12/EDKB12WS/My Project/Resources.Designer.vb

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

edkb12/edkb12 V12/EDKB12WS/My Project/Resources.resx

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

edkb12/edkb12 V12/EDKB12WS/My Project/Settings.Designer.vb

@@ -0,0 +1,73 @@
+'------------------------------------------------------------------------------
+' <auto-generated>
+'     This code was generated by a tool.
+'     Runtime Version:2.0.50727.1433
+'
+'     Changes to this file may cause incorrect behavior and will be lost if
+'     the code is regenerated.
+' </auto-generated>
+'------------------------------------------------------------------------------
+
+Option Strict On
+Option Explicit On
+
+
+Namespace My
+
+    <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(),  _
+     Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "8.0.0.0"),  _
+     Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)>  _
+    Partial Friend NotInheritable Class MySettings
+        Inherits Global.System.Configuration.ApplicationSettingsBase
+        
+        Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings)
+        
+#Region "My.Settings Auto-Save Functionality"
+#If _MyType = "WindowsForms" Then
+        Private Shared addedHandler As Boolean
+
+        Private Shared addedHandlerLockObject As New Object
+
+        <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
+        Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs)
+            If My.Application.SaveMySettingsOnExit Then
+                My.Settings.Save()
+            End If
+        End Sub
+#End If
+#End Region
+        
+        Public Shared ReadOnly Property [Default]() As MySettings
+            Get
+                
+#If _MyType = "WindowsForms" Then
+                   If Not addedHandler Then
+                        SyncLock addedHandlerLockObject
+                            If Not addedHandler Then
+                                AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
+                                addedHandler = True
+                            End If
+                        End SyncLock
+                    End If
+#End If
+                Return defaultInstance
+            End Get
+        End Property
+    End Class
+End Namespace
+
+Namespace My
+    
+    <Global.Microsoft.VisualBasic.HideModuleNameAttribute(),  _
+     Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _
+     Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()>  _
+    Friend Module MySettingsProperty
+        
+        <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")>  _
+        Friend ReadOnly Property Settings() As Global.EDKB12WS.My.MySettings
+            Get
+                Return Global.EDKB12WS.My.MySettings.Default
+            End Get
+        End Property
+    End Module
+End Namespace

edkb12/edkb12 V12/EDKB12WS/My Project/Settings.settings

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

edkb12/edkb12 V12/EDKB12WS/Parameters.vb

@@ -0,0 +1,155 @@
+Imports System.Xml
+Imports System.IO
+Imports System.Reflection
+
+Public Class Parameters
+    Dim sconnectionstring As String
+    Property connectionstring() As String
+        Get
+            Return sconnectionstring
+        End Get
+        Set(ByVal value As String)
+            sconnectionstring = value
+        End Set
+    End Property
+
+    Dim sconnectionstring_Journale As String
+    Property connectionstring_Journale() As String
+        Get
+            Return sconnectionstring_Journale
+        End Get
+        Set(ByVal value As String)
+            sconnectionstring_Journale = value
+        End Set
+    End Property
+
+    Dim sworkdir As String
+    Property WorkDir() As String
+        Get
+            Return sworkdir
+        End Get
+        Set(ByVal value As String)
+            sworkdir = value
+        End Set
+    End Property
+
+    Dim bDebugmode As Boolean
+    Property DebugMode() As Boolean
+        Get
+            Return bDebugmode
+        End Get
+        Set(ByVal value As Boolean)
+            bDebugmode = value
+        End Set
+    End Property
+
+
+    Dim sOKMeldungBetreff As String
+    Property OKMeldungBetreff() As String
+        Get
+            Return sOKMeldungBetreff
+        End Get
+        Set(ByVal value As String)
+            sOKMeldungBetreff = value
+        End Set
+    End Property
+
+    Dim sOKMeldung As String
+    Property OKMeldung() As String
+        Get
+            Return sOKMeldung
+        End Get
+        Set(ByVal value As String)
+            sOKMeldung = value
+        End Set
+    End Property
+
+    Dim sNOKMeldungBetreff As String
+    Property NOKMeldungBetreff() As String
+        Get
+            Return sNOKMeldungBetreff
+        End Get
+        Set(ByVal value As String)
+            sNOKMeldungBetreff = value
+        End Set
+    End Property
+
+    Dim sNOKMeldung As String
+    Property NOKMeldung() As String
+        Get
+            Return sNOKMeldung
+        End Get
+        Set(ByVal value As String)
+            sNOKMeldung = value
+        End Set
+    End Property
+
+    Dim iInterval As Integer
+    Property TimerInterval() As Integer
+        Get
+            Return iInterval
+        End Get
+        Set(ByVal value As Integer)
+            iInterval = value
+        End Set
+    End Property
+    Dim iMaNrFehlerMeldung As Integer
+    Property MaNrFehlermeldung() As Integer
+        Get
+            Return iMaNrFehlerMeldung
+        End Get
+        Set(ByVal value As Integer)
+            iMaNrFehlerMeldung = value
+        End Set
+    End Property
+    Dim sFehlermeldungBetreff As String
+    Property FehlermeldungBetreff() As String
+        Get
+            Return sFehlermeldungBetreff
+        End Get
+        Set(ByVal value As String)
+            sFehlermeldungBetreff = value
+        End Set
+    End Property
+    Dim sFehlerMeldungMeldung As String
+    Property FehlerMeldungMeldung() As String
+        Get
+            Return sFehlerMeldungMeldung
+        End Get
+        Set(ByVal value As String)
+            sFehlerMeldungMeldung = value
+        End Set
+    End Property
+    Dim xmldoc As New XmlDocument
+
+    Public Sub New()
+        xmldoc.Load(Me.ApplicationPath + "Parameters.xml")
+        Me.connectionstring = xmldoc.SelectSingleNode("/Configuration/SQLConnectionString").InnerText
+        Me.connectionstring_Journale = xmldoc.SelectSingleNode("/Configuration/SQLConnectionStringJournale").InnerText
+        Me.WorkDir = xmldoc.SelectSingleNode("/Configuration/WorkDir").InnerText
+        Me.DebugMode = UCase(xmldoc.SelectSingleNode("/Configuration/DebugMode").InnerText) = "TRUE"
+        Me.OKMeldungBetreff = xmldoc.SelectSingleNode("/Configuration/OKMeldungBetreff").InnerText
+        Me.OKMeldung = xmldoc.SelectSingleNode("/Configuration/OKMeldung").InnerText
+        Me.NOKMeldungBetreff = xmldoc.SelectSingleNode("/Configuration/NOKMeldungBetreff").InnerText
+        Me.NOKMeldung = xmldoc.SelectSingleNode("/Configuration/NOKMeldung").InnerText
+        Me.TimerInterval = xmldoc.SelectSingleNode("/Configuration/TimerInterval").InnerText
+        Me.MaNrFehlermeldung = xmldoc.SelectSingleNode("/Configuration/MaNrFehlerMeldung").InnerText
+        Me.FehlermeldungBetreff = xmldoc.SelectSingleNode("/Configuration/FehlerMeldungBetreff").InnerText
+        Me.FehlerMeldungMeldung = xmldoc.SelectSingleNode("/Configuration/FehlerMeldungMeldung").InnerText
+        Me.MaNrFehlermeldung = xmldoc.SelectSingleNode("/Configuration/MaNrFehlerMeldung").InnerText
+        Globals.conn.sConnectionString = Me.connectionstring
+        Globals.connJournale.sConnectionString = Me.connectionstring_Journale
+        Globals.PrintLog("EDKB12 gestartet", EventLogEntryType.Information)
+        Globals.PrintLog("Connectionstring EDOKA:" & Me.connectionstring, EventLogEntryType.Information)
+        Globals.PrintLog("Connectionstring Journale:" & Me.connectionstring_Journale, EventLogEntryType.Information)
+        Globals.PrintLog("WorkDir:" & Me.WorkDir, EventLogEntryType.Information)
+        Globals.PrintLog("DebugMode:" & Me.DebugMode, EventLogEntryType.Information)
+        Globals.PrintLog("TimerInterval:" & Me.TimerInterval, EventLogEntryType.Information)
+        Globals.PrintLog("Ma-Nr Fehlermeldung:" & Me.MaNrFehlermeldung, EventLogEntryType.Information)
+    End Sub
+
+    Public Function ApplicationPath() As String
+        Return Path.GetDirectoryName([Assembly].GetEntryAssembly().Location) + "\"
+    End Function
+
+End Class

edkb12/edkb12 V12/EDKB12WS/ProjectInstaller.Designer.vb

@@ -0,0 +1,43 @@
+<System.ComponentModel.RunInstaller(True)> Partial Class ProjectInstaller
+    Inherits System.Configuration.Install.Installer
+
+    'Installer überschreibt den Löschvorgang zum Bereinigen der Komponentenliste.
+    <System.Diagnostics.DebuggerNonUserCode()> _
+    Protected Overrides Sub Dispose(ByVal disposing As Boolean)
+        If disposing AndAlso components IsNot Nothing Then
+            components.Dispose()
+        End If
+        MyBase.Dispose(disposing)
+    End Sub
+
+    'Wird vom Komponenten-Designer benötigt.
+    Private components As System.ComponentModel.IContainer
+
+    'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich.
+    'Das Bearbeiten ist mit dem Komponenten-Designer möglich.  
+    'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
+    <System.Diagnostics.DebuggerStepThrough()> _
+    Private Sub InitializeComponent()
+        Me.ServiceProcessInstaller1 = New System.ServiceProcess.ServiceProcessInstaller
+        Me.ServiceInstaller1 = New System.ServiceProcess.ServiceInstaller
+        '
+        'ServiceProcessInstaller1
+        '
+        Me.ServiceProcessInstaller1.Account = System.ServiceProcess.ServiceAccount.LocalSystem
+        Me.ServiceProcessInstaller1.Password = Nothing
+        Me.ServiceProcessInstaller1.Username = Nothing
+        '
+        'ServiceInstaller1
+        '
+        Me.ServiceInstaller1.DisplayName = "EDKB12WS"
+        Me.ServiceInstaller1.ServiceName = "EDKB12WS"
+        '
+        'ProjectInstaller
+        '
+        Me.Installers.AddRange(New System.Configuration.Install.Installer() {Me.ServiceProcessInstaller1, Me.ServiceInstaller1})
+
+    End Sub
+    Friend WithEvents ServiceProcessInstaller1 As System.ServiceProcess.ServiceProcessInstaller
+    Friend WithEvents ServiceInstaller1 As System.ServiceProcess.ServiceInstaller
+
+End Class

edkb12/edkb12 V12/EDKB12WS/ProjectInstaller.resx

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

edkb12/edkb12 V12/EDKB12WS/ProjectInstaller.vb

@@ -0,0 +1,16 @@
+Imports System.ComponentModel
+Imports System.Configuration.Install
+
+Public Class ProjectInstaller
+
+    Public Sub New()
+        MyBase.New()
+
+        'Dieser Aufruf ist für den Komponenten-Designer erforderlich.
+        InitializeComponent()
+
+        'Initialisierungscode nach dem Aufruf von InitializeComponent hinzufügen
+
+    End Sub
+
+End Class

edkb12/edkb12 V12/EDKB12WS/Service1.Designer.vb

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

edkb12/edkb12 V12/EDKB12WS/Service1.resx

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

edkb12/edkb12 V12/EDKB12WS/Service1.vb

@@ -0,0 +1,34 @@
+Public Class Service1
+#Region "Deklarationen"
+    Dim RowId As Integer
+    Dim Working As Boolean = False
+
+    Dim WithEvents CheckTimer As New Timers.Timer()
+
+#End Region
+
+    Protected Overrides Sub OnStart(ByVal args() As String)
+        Globals.Param = New Parameters
+        CheckTimer.Interval = Globals.Param.TimerInterval
+        CheckTimer.Start()
+        CheckTimer.Enabled = True
+
+    End Sub
+
+    Public Sub CheckTimer_Elapsed(ByVal sender As Object, ByVal e As System.Timers.ElapsedEventArgs) Handles CheckTimer.Elapsed
+        CheckTimer.Enabled = False
+        rowid = ModMain.Check_pendente_Dokumente()
+        While RowId > 0
+            If RowId > 0 Then
+                ModMain.Generate_Dokument(RowId)
+                RowId = ModMain.Check_pendente_Dokumente()
+            End If
+        End While
+        CheckTimer.Enabled = True
+    End Sub
+
+    Protected Overrides Sub OnStop()
+        CheckTimer.Stop()
+    End Sub
+
+End Class

edkb12/edkb12 V12/EDKB12WS/bin/Debug/EDKB12WS.xml

@@ -0,0 +1,34 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+EDKB12WS
+</name>
+</assembly>
+<members>
+<member name="M:EDKB12WS.Action.Load(System.IO.FileInfo)">
+	<summary>Lädt externes Xml file für automatisierte Aktionen</summary>
+	<param name="xmlImportFile">Das Xml File mit den entsprechenden Parametern</param>
+</member><member name="M:EDKB12WS.Action.GetParameterByName(System.String)">
+	<summary>Returns a parameter identified by his name</summary>
+	<param name="paramName"></param>
+	<returns></returns>
+</member><member name="M:EDKB12WS.Action.Destroy">
+	<summary>Zerstört die statische Instanz</summary>
+</member><member name="M:EDKB12WS.Action.IsValid(System.IO.FileInfo)">
+	<summary>Überprüft ob das Xml file dem angegebenen Schema entspricht</summary>
+	<param name="xmlImportFile"></param>
+	<returns></returns>
+</member><member name="T:EDKB12WS.Parameter">
+	<summary>Struct für einzelne Parameter</summary>
+</member><member name="M:EDKB12WS.AvaloqDokumentWerte.init(System.IO.FileInfo)">
+	<summary>Lädt externes Xml file für automatisierte Aktionen</summary>
+	<param name="xmlImportFile">Das Xml File mit den entsprechenden Parametern</param>
+</member><member name="M:EDKB12WS.clsDivFnkt.Pruefziffer(System.String)">
+	<summary>Berechnung der Prüfziffer nach Modulo9/Rekursiv</summary>
+	<param name="zahl">Dokumentid ohne Präfix</param>
+	<returns>DokumentID ohne Präfix (OFFEDK) inkl. Prüfziffer</returns>
+	<seealso cref="M:EDKB12WS.clsDivFnkt.Generate_Key">EDKB12.clsDivFnkt</seealso>
+</member>
+</members>
+</doc>

edkb12/edkb12 V12/EDKB12WS/bin/Release/EDKB12WS.xml

@@ -0,0 +1,34 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+EDKB12WS
+</name>
+</assembly>
+<members>
+<member name="M:EDKB12WS.clsDivFnkt.Pruefziffer(System.String)">
+	<summary>Berechnung der Prüfziffer nach Modulo9/Rekursiv</summary>
+	<param name="zahl">Dokumentid ohne Präfix</param>
+	<returns>DokumentID ohne Präfix (OFFEDK) inkl. Prüfziffer</returns>
+	<seealso cref="clsDivFnkt.Generate_Key">EDKB12.clsDivFnkt</seealso>
+</member><member name="M:EDKB12WS.AvaloqDokumentWerte.init(System.IO.FileInfo)">
+	<summary>Lädt externes Xml file für automatisierte Aktionen</summary>
+	<param name="xmlImportFile">Das Xml File mit den entsprechenden Parametern</param>
+</member><member name="M:EDKB12WS.Action.Load(System.IO.FileInfo)">
+	<summary>Lädt externes Xml file für automatisierte Aktionen</summary>
+	<param name="xmlImportFile">Das Xml File mit den entsprechenden Parametern</param>
+</member><member name="M:EDKB12WS.Action.GetParameterByName(System.String)">
+	<summary>Returns a parameter identified by his name</summary>
+	<param name="paramName"></param>
+	<returns></returns>
+</member><member name="M:EDKB12WS.Action.Destroy">
+	<summary>Zerstört die statische Instanz</summary>
+</member><member name="M:EDKB12WS.Action.IsValid(System.IO.FileInfo)">
+	<summary>Überprüft ob das Xml file dem angegebenen Schema entspricht</summary>
+	<param name="xmlImportFile"></param>
+	<returns></returns>
+</member><member name="T:EDKB12WS.Parameter">
+	<summary>Struct für einzelne Parameter</summary>
+</member>
+</members>
+</doc>

edkb12/edkb12 V12/EDKB12WS/bin/Release/InstallUtil.InstallLog

@@ -0,0 +1,241 @@
+
+Eine transaktive Installation wird ausgeführt.
+
+Die Installationsphase wird gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Installationsphase ist abgeschlossen, und die Commitphase beginnt.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Commitphase wurde erfolgreich abgeschlossen.
+
+Die transaktive Installation ist abgeschlossen.
+
+
+Die Deinstallation wurde gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Deinstallation ist abgeschlossen.
+
+Eine transaktive Installation wird ausgeführt.
+
+Die Installationsphase wird gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Installationsphase ist abgeschlossen, und die Commitphase beginnt.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Commitphase wurde erfolgreich abgeschlossen.
+
+Die transaktive Installation ist abgeschlossen.
+
+
+Die Deinstallation wurde gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Deinstallation ist abgeschlossen.
+
+Eine transaktive Installation wird ausgeführt.
+
+Die Installationsphase wird gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Installationsphase ist abgeschlossen, und die Commitphase beginnt.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Commitphase wurde erfolgreich abgeschlossen.
+
+Die transaktive Installation ist abgeschlossen.
+
+
+Die Deinstallation wurde gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Deinstallation ist abgeschlossen.
+
+Eine transaktive Installation wird ausgeführt.
+
+Die Installationsphase wird gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Installationsphase ist abgeschlossen, und die Commitphase beginnt.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Commitphase wurde erfolgreich abgeschlossen.
+
+Die transaktive Installation ist abgeschlossen.
+
+
+Die Deinstallation wurde gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Deinstallation ist abgeschlossen.
+
+Eine transaktive Installation wird ausgeführt.
+
+Die Installationsphase wird gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Installationsphase ist abgeschlossen, und die Commitphase beginnt.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Commitphase wurde erfolgreich abgeschlossen.
+
+Die transaktive Installation ist abgeschlossen.
+
+
+Die Deinstallation wurde gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Deinstallation ist abgeschlossen.
+
+Eine transaktive Installation wird ausgeführt.
+
+Die Installationsphase wird gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Installationsphase ist abgeschlossen, und die Commitphase beginnt.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Commitphase wurde erfolgreich abgeschlossen.
+
+Die transaktive Installation ist abgeschlossen.
+
+
+Die Deinstallation wurde gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Deinstallation ist abgeschlossen.
+
+Eine transaktive Installation wird ausgeführt.
+
+Die Installationsphase wird gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Installationsphase ist abgeschlossen, und die Commitphase beginnt.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Commitphase wurde erfolgreich abgeschlossen.
+
+Die transaktive Installation ist abgeschlossen.
+
+
+Die Deinstallation wurde gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Deinstallation ist abgeschlossen.
+
+Eine transaktive Installation wird ausgeführt.
+
+Die Installationsphase wird gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Installationsphase ist abgeschlossen, und die Commitphase beginnt.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Commitphase wurde erfolgreich abgeschlossen.
+
+Die transaktive Installation ist abgeschlossen.
+
+
+Die Deinstallation wurde gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Deinstallation ist abgeschlossen.
+
+Eine transaktive Installation wird ausgeführt.
+
+Die Installationsphase wird gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Während der Installationsphase ist eine Ausnahme aufgetreten.
+System.ComponentModel.Win32Exception: Der angegebene Dienst wurde zum Löschen markiert
+
+Die Rollbackphase der Installation wird gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Rollbackphase wurde erfolgreich abgeschlossen.
+
+Die transaktive Installation ist abgeschlossen.
+
+
+Die Deinstallation wurde gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Deinstallation ist abgeschlossen.
+
+Eine transaktive Installation wird ausgeführt.
+
+Die Installationsphase wird gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Installationsphase ist abgeschlossen, und die Commitphase beginnt.
+Die Protokolldatei enthält den Fortschritt der Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Commitphase wurde erfolgreich abgeschlossen.
+
+Die transaktive Installation ist abgeschlossen.
+
+Eine transaktive Installation wird ausgeführt.
+
+Die Installationsphase wird gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Installationsphase ist abgeschlossen, und die Commitphase beginnt.
+Die Protokolldatei enthält den Fortschritt der Assembly C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Commitphase wurde erfolgreich abgeschlossen.
+
+Die transaktive Installation ist abgeschlossen.
+
+
+Die Deinstallation wurde gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Deinstallation ist abgeschlossen.
+
+Eine transaktive Installation wird ausgeführt.
+
+Die Installationsphase wird gestartet.
+Die Protokolldatei enthält den Fortschritt der Assembly C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Installationsphase ist abgeschlossen, und die Commitphase beginnt.
+Die Protokolldatei enthält den Fortschritt der Assembly C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.exe.
+Die Datei befindet sich in C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.InstallLog.
+
+Die Commitphase wurde erfolgreich abgeschlossen.
+
+Die transaktive Installation ist abgeschlossen.

edkb12/edkb12 V12/EDKB12WS/bin/Release/edkb12ws.InstallLog

@@ -0,0 +1,237 @@
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird installiert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Dienst EDKB12WS wird installiert...
+Dienst EDKB12WS wurde installiert.
+Die EventLog-Quelle EDKB12WS im Protokoll Application wird erstellt...
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird ausgeführt.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird deinstalliert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Die EventLog-Quelle EDKB12WS wird entfernt.
+Der Dienst EDKB12WS wird vom System entfernt...
+Dienst EDKB12WS wurde vom System entfernt.
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird installiert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Dienst EDKB12WS wird installiert...
+Dienst EDKB12WS wurde installiert.
+Die EventLog-Quelle EDKB12WS im Protokoll Application wird erstellt...
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird ausgeführt.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird deinstalliert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Die EventLog-Quelle EDKB12WS wird entfernt.
+Der Dienst EDKB12WS wird vom System entfernt...
+Dienst EDKB12WS wurde vom System entfernt.
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird installiert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Dienst EDKB12WS wird installiert...
+Dienst EDKB12WS wurde installiert.
+Die EventLog-Quelle EDKB12WS im Protokoll Application wird erstellt...
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird ausgeführt.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird deinstalliert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Die EventLog-Quelle EDKB12WS wird entfernt.
+Der Dienst EDKB12WS wird vom System entfernt...
+Dienst EDKB12WS wurde vom System entfernt.
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird installiert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Dienst EDKB12WS wird installiert...
+Dienst EDKB12WS wurde installiert.
+Die EventLog-Quelle EDKB12WS im Protokoll Application wird erstellt...
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird ausgeführt.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird deinstalliert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Die EventLog-Quelle EDKB12WS wird entfernt.
+Der Dienst EDKB12WS wird vom System entfernt...
+Dienst EDKB12WS wurde vom System entfernt.
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird installiert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Dienst EDKB12WS wird installiert...
+Dienst EDKB12WS wurde installiert.
+Die EventLog-Quelle EDKB12WS im Protokoll Application wird erstellt...
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird ausgeführt.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird deinstalliert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Die EventLog-Quelle EDKB12WS wird entfernt.
+Der Dienst EDKB12WS wird vom System entfernt...
+Dienst EDKB12WS wurde vom System entfernt.
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird installiert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Dienst EDKB12WS wird installiert...
+Dienst EDKB12WS wurde installiert.
+Die EventLog-Quelle EDKB12WS im Protokoll Application wird erstellt...
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird ausgeführt.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird deinstalliert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Die EventLog-Quelle EDKB12WS wird entfernt.
+Der Dienst EDKB12WS wird vom System entfernt...
+Dienst EDKB12WS wurde vom System entfernt.
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird installiert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Dienst EDKB12WS wird installiert...
+Dienst EDKB12WS wurde installiert.
+Die EventLog-Quelle EDKB12WS im Protokoll Application wird erstellt...
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird ausgeführt.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird deinstalliert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Die EventLog-Quelle EDKB12WS wird entfernt.
+Der Dienst EDKB12WS wird vom System entfernt...
+Dienst EDKB12WS wurde vom System entfernt.
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird installiert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Dienst EDKB12WS wird installiert...
+Dienst EDKB12WS wurde installiert.
+Die EventLog-Quelle EDKB12WS im Protokoll Application wird erstellt...
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird ausgeführt.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird deinstalliert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Die EventLog-Quelle EDKB12WS wird entfernt.
+Der Dienst EDKB12WS wird vom System entfernt...
+Dienst EDKB12WS wurde vom System entfernt.
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird installiert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Dienst EDKB12WS wird installiert...
+Die EventLog-Quelle EDKB12WS im Protokoll Application wird erstellt...
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird zurückgesetzt.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Der vorherige Zustand des Ereignisprotokolls für die Quelle EDKB12WS wird wiederhergestellt.
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird deinstalliert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Die EventLog-Quelle EDKB12WS wird entfernt.
+Warnung: Die Quelle EDKB12WS ist nicht auf dem lokalen Computer registriert.
+Der Dienst EDKB12WS wird vom System entfernt...
+Dienst EDKB12WS wurde vom System entfernt.
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird installiert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Dienst EDKB12WS wird installiert...
+Dienst EDKB12WS wurde installiert.
+Die EventLog-Quelle EDKB12WS im Protokoll Application wird erstellt...
+Assembly E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe wird ausgeführt.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Assembly C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.exe wird installiert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Dienst EDKB12WS wird installiert...
+Dienst EDKB12WS wurde installiert.
+Die EventLog-Quelle EDKB12WS im Protokoll Application wird erstellt...
+Assembly C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.exe wird ausgeführt.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Assembly C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.exe wird deinstalliert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Die EventLog-Quelle EDKB12WS wird entfernt.
+Der Dienst EDKB12WS wird vom System entfernt...
+Dienst EDKB12WS wurde vom System entfernt.
+Assembly C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.exe wird installiert.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.InstallLog
+Dienst EDKB12WS wird installiert...
+Dienst EDKB12WS wurde installiert.
+Die EventLog-Quelle EDKB12WS im Protokoll Application wird erstellt...
+Assembly C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.exe wird ausgeführt.
+Betroffene Parameter:
+   logtoconsole = 
+   assemblypath = C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.exe
+   logfile = C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.InstallLog

edkb12/edkb12 V12/EDKB12WS/bin/Release/edkb12ws.InstallState

@@ -0,0 +1,113 @@
+<SOAP-ENV:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:SOAP-ENC="http://schemas.xmlsoap.org/soap/encoding/" xmlns:SOAP-ENV="http://schemas.xmlsoap.org/soap/envelope/" xmlns:clr="http://schemas.microsoft.com/soap/encoding/clr/1.0" SOAP-ENV:encodingStyle="http://schemas.xmlsoap.org/soap/encoding/">
+<SOAP-ENV:Body>
+<a1:Hashtable id="ref-1" xmlns:a1="http://schemas.microsoft.com/clr/ns/System.Collections">
+<LoadFactor>0.72</LoadFactor>
+<Version>2</Version>
+<Comparer xsi:null="1"/>
+<HashCodeProvider xsi:null="1"/>
+<HashSize>11</HashSize>
+<Keys href="#ref-2"/>
+<Values href="#ref-3"/>
+</a1:Hashtable>
+<SOAP-ENC:Array id="ref-2" SOAP-ENC:arrayType="xsd:anyType[2]">
+<item id="ref-4" xsi:type="SOAP-ENC:string">_reserved_nestedSavedStates</item>
+<item id="ref-5" xsi:type="SOAP-ENC:string">_reserved_lastInstallerAttempted</item>
+</SOAP-ENC:Array>
+<SOAP-ENC:Array id="ref-3" SOAP-ENC:arrayType="xsd:anyType[2]">
+<item href="#ref-6"/>
+<item xsi:type="xsd:int">0</item>
+</SOAP-ENC:Array>
+<SOAP-ENC:Array id="ref-6" SOAP-ENC:arrayType="a1:IDictionary[1]" xmlns:a1="http://schemas.microsoft.com/clr/ns/System.Collections">
+<item href="#ref-7"/>
+</SOAP-ENC:Array>
+<a1:Hashtable id="ref-7" xmlns:a1="http://schemas.microsoft.com/clr/ns/System.Collections">
+<LoadFactor>0.72</LoadFactor>
+<Version>2</Version>
+<Comparer xsi:null="1"/>
+<HashCodeProvider xsi:null="1"/>
+<HashSize>11</HashSize>
+<Keys href="#ref-8"/>
+<Values href="#ref-9"/>
+</a1:Hashtable>
+<SOAP-ENC:Array id="ref-8" SOAP-ENC:arrayType="xsd:anyType[2]">
+<item href="#ref-4"/>
+<item href="#ref-5"/>
+</SOAP-ENC:Array>
+<SOAP-ENC:Array id="ref-9" SOAP-ENC:arrayType="xsd:anyType[2]">
+<item href="#ref-10"/>
+<item xsi:type="xsd:int">1</item>
+</SOAP-ENC:Array>
+<SOAP-ENC:Array id="ref-10" SOAP-ENC:arrayType="a1:IDictionary[2]" xmlns:a1="http://schemas.microsoft.com/clr/ns/System.Collections">
+<item href="#ref-11"/>
+<item href="#ref-12"/>
+</SOAP-ENC:Array>
+<a1:Hashtable id="ref-11" xmlns:a1="http://schemas.microsoft.com/clr/ns/System.Collections">
+<LoadFactor>0.72</LoadFactor>
+<Version>3</Version>
+<Comparer xsi:null="1"/>
+<HashCodeProvider xsi:null="1"/>
+<HashSize>11</HashSize>
+<Keys href="#ref-13"/>
+<Values href="#ref-14"/>
+</a1:Hashtable>
+<a1:Hashtable id="ref-12" xmlns:a1="http://schemas.microsoft.com/clr/ns/System.Collections">
+<LoadFactor>0.72</LoadFactor>
+<Version>3</Version>
+<Comparer xsi:null="1"/>
+<HashCodeProvider xsi:null="1"/>
+<HashSize>11</HashSize>
+<Keys href="#ref-15"/>
+<Values href="#ref-16"/>
+</a1:Hashtable>
+<SOAP-ENC:Array id="ref-13" SOAP-ENC:arrayType="xsd:anyType[3]">
+<item href="#ref-4"/>
+<item id="ref-17" xsi:type="SOAP-ENC:string">Account</item>
+<item href="#ref-5"/>
+</SOAP-ENC:Array>
+<SOAP-ENC:Array id="ref-14" SOAP-ENC:arrayType="xsd:anyType[3]">
+<item href="#ref-18"/>
+<item xsi:type="a3:ServiceAccount" xmlns:a3="http://schemas.microsoft.com/clr/nsassem/System.ServiceProcess/System.ServiceProcess%2C%20Version%3D2.0.0.0%2C%20Culture%3Dneutral%2C%20PublicKeyToken%3Db03f5f7f11d50a3a">LocalSystem</item>
+<item xsi:type="xsd:int">-1</item>
+</SOAP-ENC:Array>
+<SOAP-ENC:Array id="ref-15" SOAP-ENC:arrayType="xsd:anyType[3]">
+<item href="#ref-4"/>
+<item id="ref-20" xsi:type="SOAP-ENC:string">installed</item>
+<item href="#ref-5"/>
+</SOAP-ENC:Array>
+<SOAP-ENC:Array id="ref-16" SOAP-ENC:arrayType="xsd:anyType[3]">
+<item href="#ref-21"/>
+<item xsi:type="xsd:boolean">true</item>
+<item xsi:type="xsd:int">0</item>
+</SOAP-ENC:Array>
+<SOAP-ENC:Array id="ref-18" SOAP-ENC:arrayType="a1:IDictionary[0]" xmlns:a1="http://schemas.microsoft.com/clr/ns/System.Collections">
+</SOAP-ENC:Array>
+<SOAP-ENC:Array id="ref-21" SOAP-ENC:arrayType="a1:IDictionary[1]" xmlns:a1="http://schemas.microsoft.com/clr/ns/System.Collections">
+<item href="#ref-22"/>
+</SOAP-ENC:Array>
+<a1:Hashtable id="ref-22" xmlns:a1="http://schemas.microsoft.com/clr/ns/System.Collections">
+<LoadFactor>0.72</LoadFactor>
+<Version>5</Version>
+<Comparer xsi:null="1"/>
+<HashCodeProvider xsi:null="1"/>
+<HashSize>11</HashSize>
+<Keys href="#ref-23"/>
+<Values href="#ref-24"/>
+</a1:Hashtable>
+<SOAP-ENC:Array id="ref-23" SOAP-ENC:arrayType="xsd:anyType[5]">
+<item id="ref-25" xsi:type="SOAP-ENC:string">logExists</item>
+<item href="#ref-4"/>
+<item id="ref-26" xsi:type="SOAP-ENC:string">alreadyRegistered</item>
+<item id="ref-27" xsi:type="SOAP-ENC:string">baseInstalledAndPlatformOK</item>
+<item href="#ref-5"/>
+</SOAP-ENC:Array>
+<SOAP-ENC:Array id="ref-24" SOAP-ENC:arrayType="xsd:anyType[5]">
+<item xsi:type="xsd:boolean">true</item>
+<item href="#ref-28"/>
+<item xsi:type="xsd:boolean">false</item>
+<item xsi:type="xsd:boolean">true</item>
+<item xsi:type="xsd:int">-1</item>
+</SOAP-ENC:Array>
+<SOAP-ENC:Array id="ref-28" SOAP-ENC:arrayType="a1:IDictionary[0]" xmlns:a1="http://schemas.microsoft.com/clr/ns/System.Collections">
+</SOAP-ENC:Array>
+</SOAP-ENV:Body>
+</SOAP-ENV:Envelope>

edkb12/edkb12 V12/EDKB12WS/bin/Release/parameters.xml

@@ -0,0 +1,30 @@
+<?xml version="1.0" standalone="yes"?>
+<Configuration>
+  <SQLConnectionString>data source=server02;initial catalog=edoka;persist security info=False;workstation id=;packet size=4096;user id=tgedoka;password=$tgedoka11</SQLConnectionString>
+  <SQLConnectionStringJournale>data source=server02;initial catalog=edoka_journale;persist security info=False;workstation id=;packet size=4096;user id=tgedoka;password=$tgedoka11</SQLConnectionStringJournale>
+  <DebugMode>False</DebugMode>
+  <WorkDir>C:\TEMP</WorkDir>
+  <TimerInterval>10000</TimerInterval>
+  <OKMeldungBetreff>Dokumenterstellung abgeschlossen: #Partnernr#</OKMeldungBetreff>
+  <OKMeldung>Guten Tag
+  Das Dokument #Dokumenttyp# fuer den Partner #Partnernr# wurde erstellt und kann im EDOKA angezeigt werden.
+
+  Mit freundlichen Gruessen
+  Ihr EDOKA
+  </OKMeldung>
+  <NOKMeldungBetreff>Dokumenterstellung fehlerhaft: #Partnernr#</NOKMeldungBetreff>
+  <NOKMeldung>Guten Tag
+  Das Dokument #Dokumenttyp# fuer den Partner #Partnernr# konnte nicht erfolgreich erstellt werden.
+  
+  Eine entsprechende Meldung wurde dem EDOKA-Systemadministrator zugestellt. Er wird das Dokument erstellen
+  und Sie entsprechend informieren.
+
+  Mit freundlichen Gruessen
+  Ihr EDOKA
+  </NOKMeldung>
+  <MaNrFehlerMeldung>1</MaNrFehlerMeldung>
+  <FehlerMeldungBetreff>EDKB12-Fehler</FehlerMeldungBetreff>
+  <FehlerMeldungMeldung>EDKB12-Fehler: 
+  #Message#
+  </FehlerMeldungMeldung>
+</Configuration>

edkb12/edkb12 V12/EDKB12WS/bin/Release/parameters.xml.bak

@@ -0,0 +1,30 @@
+<?xml version="1.0" standalone="yes"?>
+<Configuration>
+  <SQLConnectionString>data source=server02;initial catalog=edoka;persist security info=False;workstation id=;packet size=4096;user id=tgedoka;password=$tgedoka11</SQLConnectionString>
+  <SQLConnectionStringJournale>data source=server02;initial catalog=edoka_journale;persist security info=False;workstation id=;packet size=4096;user id=tgedoka;password=$tgedoka11</SQLConnectionStringJournale>
+  <DebugMode>True</DebugMode>
+  <WorkDir>C:\TEMP</WorkDir>
+  <TimerInterval>10000</TimerInterval>
+  <OKMeldungBetreff>Dokumenterstellung abgeschlossen: #Partnernr#</OKMeldungBetreff>
+  <OKMeldung>Guten Tag
+  Das Dokument #Dokumenttyp# fuer den Partner #Partnernr# wurde erstellt und kann im EDOKA angezeigt werden.
+
+  Mit freundlichen Gruessen
+  Ihr EDOKA
+  </OKMeldung>
+  <NOKMeldungBetreff>Dokumenterstellung fehlerhaft: #Partnernr#</NOKMeldungBetreff>
+  <NOKMeldung>Guten Tag
+  Das Dokument #Dokumenttyp# fuer den Partner #Partnernr# konnte nicht erfolgreich erstellt werden.
+  
+  Eine entsprechende Meldung wurde dem EDOKA-Systemadministrator zugestellt. Er wird das Dokument erstellen
+  und Sie entsprechend informieren.
+
+  Mit freundlichen Gruessen
+  Ihr EDOKA
+  </NOKMeldung>
+  <MaNrFehlerMeldung>1</MaNrFehlerMeldung>
+  <FehlerMeldungBetreff>EDKB12-Fehler</FehlerMeldungBetreff>
+  <FehlerMeldungMeldung>EDKB12-Fehler: 
+  #Message#
+  </FehlerMeldungMeldung>
+</Configuration>

edkb12/edkb12 V12/EDKB12WS/bin/Release/parameters.xml.bak.bak

@@ -0,0 +1,24 @@
+<?xml version="1.0" standalone="yes"?>
+<Configuration>
+  <SQLConnectionString>data source=shu00;initial catalog=edoka;persist security info=False;workstation id=;packet size=4096;user id=sa;password=it</SQLConnectionString>
+  <SQLConnectionStringJournale>data source=shu00;initial catalog=edoka_journale;persist security info=False;workstation id=;packet size=4096;user id=sa;password=it</SQLConnectionStringJournale>
+  <DebugMode>True</DebugMode>
+  <WorkDir>H:\TSSETTINGS\Edoka\edkb12</WorkDir>
+  <OKMeldungBetreff>Dokumenterstellung abgeschlossen: #Partnernr#</OKMeldungBetreff>
+  <OKMeldung>Guten Tag
+  Das Dokument #Dokumenttyp# fuer den Partner #Partnernr# wurde erstellt und kann im EDOKA angezeigt werden.
+
+  Mit freundlichen Gruessen
+  Ihr EDOKA
+  </OKMeldung>
+  <NOKMeldungBetreff>Dokumenterstellung fehlerhaft: #Partnernr#</NOKMeldungBetreff>
+  <NOKMeldung>Guten Tag
+  Das Dokument #Dokumenttyp# fuer den Partner #Partnernr# konnte nicht erfolgreich erstellt werden.
+  
+  Eine entsprechende Meldung wurde dem EDOKA-Systemadministrator zugestellt. Er wird das Dokument erstellen
+  und Sie entsprechend informieren.
+
+  Mit freundlichen Gruessen
+  Ihr EDOKA
+  </NOKMeldung>
+</Configuration>

edkb12/edkb12 V12/EDKB12WS/bin/Release/service_Uninstall.cmd

@@ -0,0 +1,2 @@
+C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\installutil.exe C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.exe /u
+pause

edkb12/edkb12 V12/EDKB12WS/bin/Release/service_Uninstall.cmd.bak

@@ -0,0 +1,2 @@
+C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\installutil.exe E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe /u
+pause

edkb12/edkb12 V12/EDKB12WS/bin/Release/service_install.cmd

@@ -0,0 +1,2 @@
+C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\installutil.exe "C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\edkb12ws.exe"
+pause

edkb12/edkb12 V12/EDKB12WS/bin/Release/service_install.cmd.bak

@@ -0,0 +1,2 @@
+C:\WINDOWS\Microsoft.NET\Framework\v2.0.50727\installutil.exe "E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\edkb12ws.exe"
+pause

edkb12/edkb12 V12/EDKB12WS/clsDivFnkt.vb

@@ -0,0 +1,148 @@
+Imports System.IO
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+Imports System.Reflection
+
+Public Class clsDivFnkt
+
+#Region "Deklarationen"
+    Dim clsjournaleintrag As New edokaDB.clsJournaleintrag
+
+    Public Enum Enum_InfoTyp
+        Keine = 0
+        Information = 1
+        Warnung = 2
+        Fehler = 3
+    End Enum
+
+#End Region
+    Public Function Generate_Key() As String
+        Dim dbkey As New edokadb.clsMyKey_Tabelle()
+        Dim key As Long
+        Dim skey As String
+        Dim s As String
+
+        dbkey.cpMainConnectionProvider = Globals.conn
+        conn.OpenConnection()
+        key = dbkey.get_dbkey("dokument")
+        conn.CloseConnection(True)
+        skey = "OFFEDK000"
+
+        s = Str(Year(Now))
+        While Microsoft.VisualBasic.Left(s, 1) = " "
+            s = Microsoft.VisualBasic.Right(s, Len(s) - 1)
+        End While
+        skey = skey + s
+
+        s = Str(key)
+        While Microsoft.VisualBasic.Left(s, 1) = " "
+            s = Microsoft.VisualBasic.Right(s, Len(s) - 1)
+        End While
+
+        While Len(s) < 8
+            s = "0" + s
+        End While
+        skey = skey + s
+
+        s = Pruefziffer(Microsoft.VisualBasic.Right(skey, 15))
+        While Microsoft.VisualBasic.Left(s, 1) = " "
+            s = Microsoft.VisualBasic.Right(s, Len(s) - 1)
+        End While
+        skey = skey + s
+        Generate_Key = skey
+    End Function
+
+    '''<summary>Berechnung der Prüfziffer nach Modulo9/Rekursiv</summary>
+    '''<param name="zahl">Dokumentid ohne Präfix</param>
+    '''<returns>DokumentID ohne Präfix (OFFEDK) inkl. Prüfziffer</returns>
+    '''<seealso cref="clsDivFnkt.Generate_Key">EDKB12.clsDivFnkt</seealso>
+    Public Function Pruefziffer(ByVal zahl As String) As String
+        Dim ptab(9, 9) As Integer
+        Dim pz(9) As Integer
+        Dim s1, s2, s3 As String
+
+        Dim i1, i2 As Long
+
+        s1 = "0,9,4,6,8,2,7,1,3,5"
+        s2 = s1
+        For i1 = 0 To 9
+            For i2 = 0 To 9
+                ptab(i1, i2) = Mid(s2, (i2 * 2) + 1, 1)
+            Next
+            s3 = Microsoft.VisualBasic.Left(s1, 1)
+            s1 = Microsoft.VisualBasic.Right(s1, Len(s1) - 2)
+            s1 = s1 + "," + s3
+            s2 = s1
+        Next
+        pz(0) = 0
+        pz(1) = 9
+        pz(2) = 8
+        pz(3) = 7
+        pz(4) = 6
+        pz(5) = 5
+        pz(6) = 4
+        pz(7) = 3
+        pz(8) = 2
+        pz(9) = 1
+
+        Dim i, x, y As Integer
+        y = 0
+        For i = 1 To Len(zahl)
+            x = Val(Mid(zahl, i, 1))
+            y = ptab(x, y)
+        Next
+        Pruefziffer = Str(pz(y))
+    End Function
+
+    Public Sub InsertJournale(ByVal Message As String, ByVal sTyp As Enum_InfoTyp)
+        If sTyp <> Enum_InfoTyp.Keine Then
+        End If
+        clsjournaleintrag.iJournalnr = New SqlInt32(CType(-2, Int32))
+        clsjournaleintrag.daDatumzeit = New SqlDateTime(CType(Now, DateTime))
+        clsjournaleintrag.sEintrag = New SqlString(CType(Message, String))
+        clsjournaleintrag.cpMainConnectionProvider = Globals.connJournale
+        Console.WriteLine(Message)
+        Globals.connJournale.OpenConnection()
+        clsjournaleintrag.Insert()
+        Globals.connJournale.CloseConnection(True)
+        If sTyp = Enum_InfoTyp.Fehler Then
+            Send_Message(Message)
+        End If
+    End Sub
+
+    Private Sub Send_Message(ByVal message As String)
+        Dim betreff As String
+        Dim meldung As String
+        betreff = Param.FehlermeldungBetreff
+        meldung = Param.FehlerMeldungMeldung
+        meldung = meldung.Replace("#Message#", message)
+
+        Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+        scmCmdToExecute.CommandText = "sp_edkb12_meldung"
+        scmCmdToExecute.CommandType = CommandType.StoredProcedure
+        Dim dtToReturn As DataTable = New DataTable()
+        Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+        Try
+            scmCmdToExecute.Connection = Globals.conn.scoDBConnection
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@status", SqlDbType.Int, 225, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, -1))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiter", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Param.MaNrFehlermeldung))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@betreff", SqlDbType.VarChar, 255, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, betreff))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@meldung", SqlDbType.VarChar, 1024, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, meldung))
+            scmCmdToExecute.Parameters.Add(New SqlParameter("@dokumentid", SqlDbType.VarChar, 22, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, ""))
+            sdaAdapter.Fill(dtToReturn)
+            Return
+        Catch ex As Exception
+            DivFnkt.InsertJournale("EDKB12::Fehler:: Send_Message::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler)
+            If Param.DebugMode Then
+                DivFnkt.InsertJournale("EDKB12: Ende Send_Message (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information)
+            End If
+        Finally
+            scmCmdToExecute.Dispose()
+            sdaAdapter.Dispose()
+        End Try
+
+    End Sub
+
+End Class
+
+

edkb12/edkb12 V12/EDKB12WS/obj/Debug/EDKB12WS.xml

@@ -0,0 +1,34 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+EDKB12WS
+</name>
+</assembly>
+<members>
+<member name="M:EDKB12WS.Action.Load(System.IO.FileInfo)">
+	<summary>Lädt externes Xml file für automatisierte Aktionen</summary>
+	<param name="xmlImportFile">Das Xml File mit den entsprechenden Parametern</param>
+</member><member name="M:EDKB12WS.Action.GetParameterByName(System.String)">
+	<summary>Returns a parameter identified by his name</summary>
+	<param name="paramName"></param>
+	<returns></returns>
+</member><member name="M:EDKB12WS.Action.Destroy">
+	<summary>Zerstört die statische Instanz</summary>
+</member><member name="M:EDKB12WS.Action.IsValid(System.IO.FileInfo)">
+	<summary>Überprüft ob das Xml file dem angegebenen Schema entspricht</summary>
+	<param name="xmlImportFile"></param>
+	<returns></returns>
+</member><member name="T:EDKB12WS.Parameter">
+	<summary>Struct für einzelne Parameter</summary>
+</member><member name="M:EDKB12WS.AvaloqDokumentWerte.init(System.IO.FileInfo)">
+	<summary>Lädt externes Xml file für automatisierte Aktionen</summary>
+	<param name="xmlImportFile">Das Xml File mit den entsprechenden Parametern</param>
+</member><member name="M:EDKB12WS.clsDivFnkt.Pruefziffer(System.String)">
+	<summary>Berechnung der Prüfziffer nach Modulo9/Rekursiv</summary>
+	<param name="zahl">Dokumentid ohne Präfix</param>
+	<returns>DokumentID ohne Präfix (OFFEDK) inkl. Prüfziffer</returns>
+	<seealso cref="M:EDKB12WS.clsDivFnkt.Generate_Key">EDKB12.clsDivFnkt</seealso>
+</member>
+</members>
+</doc>

edkb12/edkb12 V12/EDKB12WS/obj/EDKB12WS.vbproj.FileList.txt

@@ -0,0 +1,11 @@
+obj\Release\EDKB12WS.exe
+obj\Release\EDKB12WS.xml
+obj\Release\EDKB12WS.pdb
+bin\Release\EDKB12WS.exe
+bin\Release\EDKB12WS.pdb
+bin\Release\EDKB12WS.xml
+obj\Release\ResolveAssemblyReference.cache
+obj\Release\EDKB12WS.Resources.resources
+obj\Release\EDKB12WS.ProjectInstaller.resources
+obj\Release\EDKB12WS.Service1.resources
+obj\Release\EDKB12WS.vbproj.GenerateResource.Cache

edkb12/edkb12 V12/EDKB12WS/obj/EDKB12WS.vbproj.FileListAbsolute.txt

@@ -0,0 +1,88 @@
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\obj\Release\EDKB12WS.exe
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\obj\Release\EDKB12WS.xml
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\obj\Release\EDKB12WS.pdb
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\EDKB12WS.exe
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\EDKB12WS.pdb
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\EDKB12WS.xml
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\obj\Release\ResolveAssemblyReference.cache
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\obj\Release\EDKB12WS.Resources.resources
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\obj\Release\EDKB12WS.ProjectInstaller.resources
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\obj\Release\EDKB12WS.Service1.resources
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\obj\Release\EDKB12WS.vbproj.GenerateResource.Cache
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Release\Interop.VBIDE.dll
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\obj\Release\Interop.VBIDE.dll
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\obj\Release\EDKB12WS.vbproj.ResolveComReference.cache
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Debug\EDKB12WS.exe
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Debug\EDKB12WS.pdb
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Debug\EDKB12WS.xml
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\bin\Debug\Interop.VBIDE.dll
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\obj\Debug\ResolveAssemblyReference.cache
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\obj\Debug\Interop.VBIDE.dll
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\obj\Debug\EDKB12WS.vbproj.ResolveComReference.cache
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\obj\Debug\EDKB12WS.Resources.resources
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\obj\Debug\EDKB12WS.ProjectInstaller.resources
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\obj\Debug\EDKB12WS.Service1.resources
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\obj\Debug\EDKB12WS.vbproj.GenerateResource.Cache
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\obj\Debug\EDKB12WS.exe
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\obj\Debug\EDKB12WS.xml
+E:\Software-Projekte\EDOKA\Batches\EDKB12WS\EDKB12WS\obj\Debug\EDKB12WS.pdb
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\obj\Debug\EDKB12WS.exe
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\obj\Debug\EDKB12WS.xml
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\obj\Debug\EDKB12WS.pdb
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\obj\Release\ResolveAssemblyReference.cache
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\obj\Release\EDKB12WS.vbproj.ResolveComReference.cache
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\obj\Release\EDKB12WS.Resources.resources
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\obj\Release\EDKB12WS.ProjectInstaller.resources
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\obj\Release\EDKB12WS.Service1.resources
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\obj\Release\EDKB12WS.vbproj.GenerateResource.Cache
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\obj\Release\EDKB12WS.exe
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\obj\Release\EDKB12WS.xml
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\obj\Release\EDKB12WS.pdb
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\obj\Release\Interop.Microsoft.Office.Core.dll
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\obj\Release\Interop.VBIDE.dll
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\obj\Release\Interop.Word.dll
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\EDKB12WS.exe
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\EDKB12WS.pdb
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\EDKB12WS.xml
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\Interop.Microsoft.Office.Core.dll
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\Interop.VBIDE.dll
+C:\Data\EDOKA_4.02\edkb12\EDKB12WS\bin\Release\Interop.Word.dll
+C:\Data\EDOKA_4.02\edkb12 V11\EDKB12WS\obj\Debug\EDKB12WS.exe
+C:\Data\EDOKA_4.02\edkb12 V11\EDKB12WS\obj\Debug\EDKB12WS.xml
+C:\Data\EDOKA_4.02\edkb12 V11\EDKB12WS\obj\Debug\EDKB12WS.pdb
+C:\Data\EDOKA_4.02\edkb12 V11\EDKB12WS\obj\Release\ResolveAssemblyReference.cache
+C:\Data\EDOKA_4.02\edkb12 V11\EDKB12WS\obj\Release\EDKB12WS.Resources.resources
+C:\Data\EDOKA_4.02\edkb12 V11\EDKB12WS\obj\Release\EDKB12WS.ProjectInstaller.resources
+C:\Data\EDOKA_4.02\edkb12 V11\EDKB12WS\obj\Release\EDKB12WS.Service1.resources
+C:\Data\EDOKA_4.02\edkb12 V11\EDKB12WS\obj\Release\EDKB12WS.vbproj.GenerateResource.Cache
+C:\Data\EDOKA_4.02\edkb12 V11\EDKB12WS\obj\Release\EDKB12WS.exe
+C:\Data\EDOKA_4.02\edkb12 V11\EDKB12WS\obj\Release\EDKB12WS.xml
+C:\Data\EDOKA_4.02\edkb12 V11\EDKB12WS\obj\Release\EDKB12WS.pdb
+C:\Data\EDOKA_4.02\edkb12 V11\EDKB12WS\bin\Release\EDKB12WS.exe
+C:\Data\EDOKA_4.02\edkb12 V11\EDKB12WS\bin\Release\EDKB12WS.pdb
+C:\Data\EDOKA_4.02\edkb12 V11\EDKB12WS\bin\Release\EDKB12WS.xml
+C:\Data\EDOKA_4.02\edkb12 V12\EDKB12WS\obj\Release\EDKB12WS.exe
+C:\Data\EDOKA_4.02\edkb12 V12\EDKB12WS\obj\Release\EDKB12WS.xml
+C:\Data\EDOKA_4.02\edkb12 V12\EDKB12WS\obj\Release\EDKB12WS.pdb
+C:\Data\EDOKA_4.02\edkb12 V12\EDKB12WS\bin\Release\EDKB12WS.exe
+C:\Data\EDOKA_4.02\edkb12 V12\EDKB12WS\bin\Release\EDKB12WS.pdb
+C:\Data\EDOKA_4.02\edkb12 V12\EDKB12WS\bin\Release\EDKB12WS.xml
+C:\Data\EDOKA_4.02\edkb12 V12\EDKB12WS\obj\Release\ResolveAssemblyReference.cache
+C:\Data\EDOKA_4.02\edkb12 V12\EDKB12WS\obj\Release\EDKB12WS.Resources.resources
+C:\Data\EDOKA_4.02\edkb12 V12\EDKB12WS\obj\Release\EDKB12WS.ProjectInstaller.resources
+C:\Data\EDOKA_4.02\edkb12 V12\EDKB12WS\obj\Release\EDKB12WS.Service1.resources
+C:\Data\EDOKA_4.02\edkb12 V12\EDKB12WS\obj\Release\EDKB12WS.vbproj.GenerateResource.Cache
+E:\Software-Projekte\EDOKA\Batches\edkb12\edkb12 V12\EDKB12WS\obj\Release\EDKB12WS.exe
+E:\Software-Projekte\EDOKA\Batches\edkb12\edkb12 V12\EDKB12WS\obj\Release\EDKB12WS.xml
+E:\Software-Projekte\EDOKA\Batches\edkb12\edkb12 V12\EDKB12WS\obj\Release\EDKB12WS.pdb
+E:\Software-Projekte\EDOKA\Batches\edkb12\edkb12 V12\EDKB12WS\bin\Release\EDKB12WS.exe
+E:\Software-Projekte\EDOKA\Batches\edkb12\edkb12 V12\EDKB12WS\bin\Release\EDKB12WS.pdb
+E:\Software-Projekte\EDOKA\Batches\edkb12\edkb12 V12\EDKB12WS\bin\Release\EDKB12WS.xml
+E:\Software-Projekte\EDOKA\Batches\edkb12\edkb12 V12\EDKB12WS\obj\Release\ResolveAssemblyReference.cache
+E:\Software-Projekte\EDOKA\Batches\edkb12\edkb12 V12\EDKB12WS\obj\Release\EDKB12WS.Resources.resources
+E:\Software-Projekte\EDOKA\Batches\edkb12\edkb12 V12\EDKB12WS\obj\Release\EDKB12WS.ProjectInstaller.resources
+E:\Software-Projekte\EDOKA\Batches\edkb12\edkb12 V12\EDKB12WS\obj\Release\EDKB12WS.Service1.resources
+E:\Software-Projekte\EDOKA\Batches\edkb12\edkb12 V12\EDKB12WS\obj\Release\EDKB12WS.vbproj.GenerateResource.Cache
+E:\Software-Projekte\EDOKA\Batches\Office_2010\edkb12\edkb12 V12\EDKB12WS\obj\Release\EDKB12WS.exe
+E:\Software-Projekte\EDOKA\Batches\Office_2010\edkb12\edkb12 V12\EDKB12WS\obj\Release\EDKB12WS.xml
+E:\Software-Projekte\EDOKA\Batches\Office_2010\edkb12\edkb12 V12\EDKB12WS\obj\Release\EDKB12WS.pdb

edkb12/edkb12 V12/EDKB12WS/obj/Release/EDKB12WS.xml

@@ -0,0 +1,34 @@
+<?xml version="1.0"?>
+<doc>
+<assembly>
+<name>
+EDKB12WS
+</name>
+</assembly>
+<members>
+<member name="M:EDKB12WS.clsDivFnkt.Pruefziffer(System.String)">
+	<summary>Berechnung der Prüfziffer nach Modulo9/Rekursiv</summary>
+	<param name="zahl">Dokumentid ohne Präfix</param>
+	<returns>DokumentID ohne Präfix (OFFEDK) inkl. Prüfziffer</returns>
+	<seealso cref="clsDivFnkt.Generate_Key">EDKB12.clsDivFnkt</seealso>
+</member><member name="M:EDKB12WS.AvaloqDokumentWerte.init(System.IO.FileInfo)">
+	<summary>Lädt externes Xml file für automatisierte Aktionen</summary>
+	<param name="xmlImportFile">Das Xml File mit den entsprechenden Parametern</param>
+</member><member name="M:EDKB12WS.Action.Load(System.IO.FileInfo)">
+	<summary>Lädt externes Xml file für automatisierte Aktionen</summary>
+	<param name="xmlImportFile">Das Xml File mit den entsprechenden Parametern</param>
+</member><member name="M:EDKB12WS.Action.GetParameterByName(System.String)">
+	<summary>Returns a parameter identified by his name</summary>
+	<param name="paramName"></param>
+	<returns></returns>
+</member><member name="M:EDKB12WS.Action.Destroy">
+	<summary>Zerstört die statische Instanz</summary>
+</member><member name="M:EDKB12WS.Action.IsValid(System.IO.FileInfo)">
+	<summary>Überprüft ob das Xml file dem angegebenen Schema entspricht</summary>
+	<param name="xmlImportFile"></param>
+	<returns></returns>
+</member><member name="T:EDKB12WS.Parameter">
+	<summary>Struct für einzelne Parameter</summary>
+</member>
+</members>
+</doc>