Update anpassungen Barcode-Kleber-Generierung

EDOKA/DB/Generierte DB Objekte/clsBarcodeetikette.vb

@@ -19,8 +19,8 @@ Namespace edokadb
 
 		Private 		m_bAktiv As SqlBoolean
 		Private 		m_daErstellt_am, m_daMutiert_am As SqlDateTime
-		Private 		m_iMutierer, m_iMandantnr, m_iBarcodenr As SqlInt32
+		Private m_iMutierer, m_iMandantnr, m_iBarcodenr As SqlInt32
-		Private 		m_sDokumentid As SqlString
+		Private m_sDokumentid As SqlString
 
 #End Region
 
@@ -53,8 +53,8 @@ Namespace edokadb
 		' ///		 <LI>iErrorCode</LI>
 		' /// </UL>
 		' /// </remarks>
-		Overrides Public Function Insert() As Boolean
+		Public Overrides Function Insert() As Boolean
-			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
 			scmCmdToExecute.CommandText = "dbo.[pr_barcodeetikette_Insert]"
 			scmCmdToExecute.CommandType = CommandType.StoredProcedure
 
@@ -69,7 +69,7 @@ Namespace edokadb
 				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))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
 
 				If m_bMainConnectionIsCreatedLocal Then
 					' // Open connection.
@@ -82,7 +82,7 @@ Namespace edokadb
 
 				' // Execute query.
 				scmCmdToExecute.ExecuteNonQuery()
-                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
 
 				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
 					' // Throw error.
@@ -92,7 +92,7 @@ Namespace edokadb
 				Return True
 			Catch ex As Exception
 				' // some error occured. Bubble it to caller and encapsulate Exception object
-                Throw New Exception("clsBarcodeetikette::Insert::Error occured." + ex.Message, ex)
+				Throw New Exception("clsBarcodeetikette::Insert::Error occured." + ex.Message, ex)
 			Finally
 				If m_bMainConnectionIsCreatedLocal Then
 					' // Close connection.
@@ -123,8 +123,8 @@ Namespace edokadb
 		' ///		 <LI>iErrorCode</LI>
 		' /// </UL>
 		' /// </remarks>
-		Overrides Public Function Update() As Boolean
+		Public Overrides Function Update() As Boolean
-			Dim scmCmdToExecute As SqlCommand	= New SqlCommand()
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
 			scmCmdToExecute.CommandText = "dbo.[pr_barcodeetikette_Update]"
 			scmCmdToExecute.CommandType = CommandType.StoredProcedure
 
@@ -139,7 +139,7 @@ Namespace edokadb
 				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))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
 
 				If m_bMainConnectionIsCreatedLocal Then
 					' // Open connection.
@@ -152,83 +152,83 @@ Namespace edokadb
 
 				' // Execute query.
 				scmCmdToExecute.ExecuteNonQuery()
-                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
-
+
-                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
-                    ' // Throw error.
+					' // Throw error.
-                    Throw New Exception("Stored Procedure 'pr_barcodeetikette_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
+					Throw New Exception("Stored Procedure 'pr_barcodeetikette_Update' reported the ErrorCode: " & m_iErrorCode.ToString())
-                End If
+				End If
-
+
-                Return True
+				Return True
-            Catch ex As Exception
+			Catch ex As Exception
-                ' // some error occured. Bubble it to caller and encapsulate Exception object
+				' // some error occured. Bubble it to caller and encapsulate Exception object
-                Throw New Exception("clsBarcodeetikette::Update::Error occured.", ex)
+				Throw New Exception("clsBarcodeetikette::Update::Error occured.", ex)
-            Finally
+			Finally
-                If m_bMainConnectionIsCreatedLocal Then
+				If m_bMainConnectionIsCreatedLocal Then
-                    ' // Close connection.
+					' // Close connection.
-                    m_scoMainConnection.Close()
+					m_scoMainConnection.Close()
-                End If
+				End If
-                scmCmdToExecute.Dispose()
+				scmCmdToExecute.Dispose()
-            End Try
+			End Try
-        End Function
+		End Function
-
+
-
+
-        ' /// <summary>
+		' /// <summary>
-        ' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
+		' /// Purpose: Delete method. This method will Delete one existing row in the database, based on the Primary Key.
-        ' /// </summary>
+		' /// </summary>
-        ' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
+		' /// <returns>True if succeeded, otherwise an Exception is thrown. </returns>
-        ' /// <remarks>
+		' /// <remarks>
-        ' /// Properties needed for this method: 
+		' /// Properties needed for this method: 
-        ' /// <UL>
+		' /// <UL>
-        ' ///		 <LI>iBarcodenr</LI>
+		' ///		 <LI>iBarcodenr</LI>
-        ' /// </UL>
+		' /// </UL>
-        ' /// Properties set after a succesful call of this method: 
+		' /// Properties set after a succesful call of this method: 
-        ' /// <UL>
+		' /// <UL>
-        ' ///		 <LI>iErrorCode</LI>
+		' ///		 <LI>iErrorCode</LI>
-        ' /// </UL>
+		' /// </UL>
-        ' /// </remarks>
+		' /// </remarks>
-        Public Overrides Function Delete() As Boolean
+		Public Overrides Function Delete() As Boolean
-            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
-            scmCmdToExecute.CommandText = "dbo.[pr_barcodeetikette_Delete]"
+			scmCmdToExecute.CommandText = "dbo.[pr_barcodeetikette_Delete]"
-            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
-
+
-            ' // Use base class' connection object
+			' // Use base class' connection object
-            scmCmdToExecute.Connection = m_scoMainConnection
+			scmCmdToExecute.Connection = m_scoMainConnection
-
+
-            Try
+			Try
-                scmCmdToExecute.Parameters.Add(New SqlParameter("@ibarcodenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iBarcodenr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ibarcodenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iBarcodenr))
-                scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
-
+
-                If m_bMainConnectionIsCreatedLocal Then
+				If m_bMainConnectionIsCreatedLocal Then
-                    ' // Open connection.
+					' // Open connection.
-                    m_scoMainConnection.Open()
+					m_scoMainConnection.Open()
-                Else
+				Else
-                    If m_cpMainConnectionProvider.bIsTransactionPending Then
+					If m_cpMainConnectionProvider.bIsTransactionPending Then
-                        scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
+						scmCmdToExecute.Transaction = m_cpMainConnectionProvider.stCurrentTransaction
-                    End If
+					End If
-                End If
+				End If
-
+
-                ' // Execute query.
+				' // Execute query.
-                scmCmdToExecute.ExecuteNonQuery()
+				scmCmdToExecute.ExecuteNonQuery()
-                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
-
+
-                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
-                    ' // Throw error.
+					' // Throw error.
-                    Throw New Exception("Stored Procedure 'pr_barcodeetikette_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
+					Throw New Exception("Stored Procedure 'pr_barcodeetikette_Delete' reported the ErrorCode: " & m_iErrorCode.ToString())
-                End If
+				End If
-
+
-                Return True
+				Return True
-            Catch ex As Exception
+			Catch ex As Exception
-                ' // some error occured. Bubble it to caller and encapsulate Exception object
+				' // some error occured. Bubble it to caller and encapsulate Exception object
-                Throw New Exception("clsBarcodeetikette::Delete::Error occured.", ex)
+				Throw New Exception("clsBarcodeetikette::Delete::Error occured.", ex)
-            Finally
+			Finally
-                If m_bMainConnectionIsCreatedLocal Then
+				If m_bMainConnectionIsCreatedLocal Then
-                    ' // Close connection.
+					' // Close connection.
-                    m_scoMainConnection.Close()
+					m_scoMainConnection.Close()
-                End If
+				End If
-                scmCmdToExecute.Dispose()
+				scmCmdToExecute.Dispose()
-            End Try
+			End Try
-        End Function
+		End Function
 
 
 		' /// <summary>
@@ -253,19 +253,108 @@ Namespace edokadb
 		' /// </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
+		Public Overrides Function SelectOne() As DataTable
 			Dim scmCmdToExecute As SqlCommand = New SqlCommand()
 			scmCmdToExecute.CommandText = "dbo.[pr_barcodeetikette_SelectOne]"
 			scmCmdToExecute.CommandType = CommandType.StoredProcedure
-			Dim dtToReturn As DataTable = new DataTable("barcodeetikette")
+			Dim dtToReturn As DataTable = New DataTable("barcodeetikette")
-			Dim sdaAdapter As SqlDataAdapter = new SqlDataAdapter(scmCmdToExecute)
+			Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
 
 			' // Use base class' connection object
 			scmCmdToExecute.Connection = m_scoMainConnection
 
 			Try
-				scmCmdToExecute.Parameters.Add(new SqlParameter("@ibarcodenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iBarcodenr))
+				scmCmdToExecute.Parameters.Add(New SqlParameter("@ibarcodenr", SqlDbType.Int, 4, ParameterDirection.Input, False, 10, 0, "", DataRowVersion.Proposed, m_iBarcodenr))
-				scmCmdToExecute.Parameters.Add(new SqlParameter("@iErrorCode", SqlDbType.Int, 4, ParameterDirection.Output, True, 10, 0, "", DataRowVersion.Proposed, m_iErrorCode))
+				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_barcodeetikette_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
+				End If
+
+				If dtToReturn.Rows.Count > 0 Then
+					m_iBarcodenr = New SqlInt32(CType(dtToReturn.Rows(0)("barcodenr"), Integer))
+					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)("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("clsBarcodeetikette::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_barcodeetikette_SelectAll]"
+			scmCmdToExecute.CommandType = CommandType.StoredProcedure
+			Dim dtToReturn As DataTable = New DataTable("barcodeetikette")
+			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.
@@ -278,115 +367,26 @@ Namespace edokadb
 
 				' // Execute query.
 				sdaAdapter.Fill(dtToReturn)
-                m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
+				m_iErrorCode = New SqlInt32(CType(scmCmdToExecute.Parameters.Item("@iErrorCode").Value, SqlInt32))
-
+
-                If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
+				If Not m_iErrorCode.Equals(New SqlInt32(LLBLError.AllOk)) Then
-                    ' // Throw error.
+					' // Throw error.
-                    Throw New Exception("Stored Procedure 'pr_barcodeetikette_SelectOne' reported the ErrorCode: " & m_iErrorCode.ToString())
+					Throw New Exception("Stored Procedure 'pr_barcodeetikette_SelectAll' reported the ErrorCode: " & m_iErrorCode.ToString())
-                End If
+				End If
-
+
-                If dtToReturn.Rows.Count > 0 Then
+				Return dtToReturn
-                    m_iBarcodenr = New SqlInt32(CType(dtToReturn.Rows(0)("barcodenr"), Integer))
+			Catch ex As Exception
-                    If dtToReturn.Rows(0)("dokumentid") Is System.DBNull.Value Then
+				' // some error occured. Bubble it to caller and encapsulate Exception object
-                        m_sDokumentid = SqlString.Null
+				Throw New Exception("clsBarcodeetikette::SelectAll::Error occured.", ex)
-                    Else
+			Finally
-                        m_sDokumentid = New SqlString(CType(dtToReturn.Rows(0)("dokumentid"), String))
+				If m_bMainConnectionIsCreatedLocal Then
-                    End If
+					' // Close connection.
-                    If dtToReturn.Rows(0)("mandantnr") Is System.DBNull.Value Then
+					m_scoMainConnection.Close()
-                        m_iMandantnr = SqlInt32.Null
+				End If
-                    Else
+				scmCmdToExecute.Dispose()
-                        m_iMandantnr = New SqlInt32(CType(dtToReturn.Rows(0)("mandantnr"), Integer))
+				sdaAdapter.Dispose()
-                    End If
+			End Try
-                    If dtToReturn.Rows(0)("aktiv") Is System.DBNull.Value Then
+		End Function
-                        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("clsBarcodeetikette::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_barcodeetikette_SelectAll]"
-            scmCmdToExecute.CommandType = CommandType.StoredProcedure
-            Dim dtToReturn As DataTable = New DataTable("barcodeetikette")
-            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_barcodeetikette_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("clsBarcodeetikette::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 "

EDOKA/EDEX/Banklagernd/frmBLDruck.resx

@@ -125,7 +125,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAADK
-        DwAAAk1TRnQBSQFMAgEBCQEAARwBAQEcAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        DwAAAk1TRnQBSQFMAgEBCQEAASQBAQEkAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAATADAAEBAQABCAYAAQwYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@@ -262,7 +262,7 @@
 </value>
   </data>
   <data name="drpMiatarbeiter.PropBag" xml:space="preserve">
-    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;Style6{}EvenRow{BackColor:White;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style13{}Style9{}OddRow{BackColor:224, 224, 224;}Style1{}Style5{}FilterBar{}Normal{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style2{}Editor{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}RecordSelector{AlignImage:Center;}Footer{}Style10{AlignHorz:Near;}Style12{}Style3{}Style7{}Style4{}Caption{AlignHorz:Center;}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style11{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;76&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 36, 76&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 38, 78&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
+    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;Style6{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}EvenRow{BackColor:White;}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style13{}Style9{}OddRow{BackColor:224, 224, 224;}Style1{}Style5{}FilterBar{}Normal{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Editor{}HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}RecordSelector{AlignImage:Center;}Footer{}Style12{}Style3{}Style7{}Style4{}Caption{AlignHorz:Center;}Style11{}Heading{Wrap:True;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style10{AlignHorz:Near;}Style2{}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.DropdownView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" RecordSelectors="False" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;76&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 36, 76&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.DropdownView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 38, 78&lt;/ClientArea&gt;&lt;/Blob&gt;</value>
   </data>
   <metadata name="ContextMenu1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>504, 141</value>
@@ -304,7 +304,7 @@
 </value>
   </data>
   <data name="Notizlist.PropBag" xml:space="preserve">
-    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}OddRow{BackColor:224, 224, 224;}Style14{}Footer{}FilterBar{BackColor:255, 255, 192;}Heading{AlignVert:Center;Border:Raised,,1, 1, 1, 1;ForeColor:ControlText;BackColor:Control;Wrap:True;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style6{}Style1{}Caption{AlignHorz:Center;}Style2{}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;257&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 422, 257&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 424, 259&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
+    <value>&lt;?xml version="1.0"?&gt;&lt;Blob&gt;&lt;Styles type="C1.Win.C1TrueDBGrid.Design.ContextWrapper"&gt;&lt;Data&gt;HighlightRow{ForeColor:HighlightText;BackColor:Highlight;}Style8{}Style7{}Style2{}EvenRow{BackColor:White;}Normal{}RecordSelector{AlignImage:Center;}Inactive{ForeColor:InactiveCaptionText;BackColor:InactiveCaption;}OddRow{BackColor:224, 224, 224;}Style14{}Footer{}Heading{Wrap:True;Border:Raised,,1, 1, 1, 1;AlignVert:Center;BackColor:Control;ForeColor:ControlText;}Style5{}Editor{}Style10{AlignHorz:Near;}Style3{}Selected{ForeColor:HighlightText;BackColor:Highlight;}Style15{}Style13{}Style12{}Style11{}Style4{}Style9{}Group{Border:None,,0, 0, 0, 0;AlignVert:Center;BackColor:ControlDark;}Style1{}Caption{AlignHorz:Center;}Style6{}FilterBar{BackColor:255, 255, 192;}&lt;/Data&gt;&lt;/Styles&gt;&lt;Splits&gt;&lt;C1.Win.C1TrueDBGrid.MergeView Name="" AlternatingRowStyle="True" CaptionHeight="17" ColumnCaptionHeight="17" ColumnFooterHeight="17" MarqueeStyle="DottedCellBorder" RecordSelectorWidth="17" DefRecSelWidth="17" VerticalScrollGroup="1" HorizontalScrollGroup="1"&gt;&lt;Height&gt;257&lt;/Height&gt;&lt;CaptionStyle parent="Style2" me="Style10" /&gt;&lt;EditorStyle parent="Editor" me="Style5" /&gt;&lt;EvenRowStyle parent="EvenRow" me="Style8" /&gt;&lt;FilterBarStyle parent="FilterBar" me="Style13" /&gt;&lt;FooterStyle parent="Footer" me="Style3" /&gt;&lt;GroupStyle parent="Group" me="Style12" /&gt;&lt;HeadingStyle parent="Heading" me="Style2" /&gt;&lt;HighLightRowStyle parent="HighlightRow" me="Style7" /&gt;&lt;InactiveStyle parent="Inactive" me="Style4" /&gt;&lt;OddRowStyle parent="OddRow" me="Style9" /&gt;&lt;RecordSelectorStyle parent="RecordSelector" me="Style11" /&gt;&lt;SelectedStyle parent="Selected" me="Style6" /&gt;&lt;Style parent="Normal" me="Style1" /&gt;&lt;ClientRect&gt;0, 0, 422, 257&lt;/ClientRect&gt;&lt;BorderSide&gt;0&lt;/BorderSide&gt;&lt;/C1.Win.C1TrueDBGrid.MergeView&gt;&lt;/Splits&gt;&lt;NamedStyles&gt;&lt;Style parent="" me="Normal" /&gt;&lt;Style parent="Normal" me="Heading" /&gt;&lt;Style parent="Heading" me="Footer" /&gt;&lt;Style parent="Heading" me="Caption" /&gt;&lt;Style parent="Heading" me="Inactive" /&gt;&lt;Style parent="Normal" me="Selected" /&gt;&lt;Style parent="Normal" me="Editor" /&gt;&lt;Style parent="Normal" me="HighlightRow" /&gt;&lt;Style parent="Normal" me="EvenRow" /&gt;&lt;Style parent="Normal" me="OddRow" /&gt;&lt;Style parent="Heading" me="RecordSelector" /&gt;&lt;Style parent="Normal" me="FilterBar" /&gt;&lt;Style parent="Caption" me="Group" /&gt;&lt;/NamedStyles&gt;&lt;vertSplits&gt;1&lt;/vertSplits&gt;&lt;horzSplits&gt;1&lt;/horzSplits&gt;&lt;Layout&gt;None&lt;/Layout&gt;&lt;DefaultRecSelWidth&gt;17&lt;/DefaultRecSelWidth&gt;&lt;ClientArea&gt;0, 0, 424, 259&lt;/ClientArea&gt;&lt;PrintPageHeaderStyle parent="" me="Style14" /&gt;&lt;PrintPageFooterStyle parent="" me="Style15" /&gt;&lt;/Blob&gt;</value>
   </data>
   <data name="BtnHelp.Image" type="System.Drawing.Bitmap, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
     <value>

EDOKA/Office/WordLib.vb

@@ -5466,15 +5466,15 @@ eh:
             keys.cpMainConnectionProvider = conn
             key = keys.get_dbkey("barcodeetikette")
             defkey = LTrim(key)
-            While Len(defkey) < 7
+            While Len(defkey) < 5
                 defkey = "0" + defkey
             End While
             yy = LTrim(Str(Year(Now)))
-            yy = Right(yy, 2)
+            'yy = Right(yy, 2)
 
             defkey = yy + defkey
             defkey = defkey + LTrim(Pruefziffer(defkey))
-            bc.iBarcodenr = New SqlInt32(CType(defkey, Int32))
+            bc.iBarcodenr = New SqlInt32(CType(defkey, Long))
             bc.sDokumentid = New SqlString(CType("", String))
             bc.bAktiv = New SqlBoolean(CType(True, Boolean))
             bc.daErstellt_am = New SqlDateTime(CType(Now, DateTime))

EDOKA/Utils/DivFnkt.vb

@@ -109,6 +109,27 @@ Namespace EDOKA
 
 #Region " Div"
 
+        Public Function delDokInUse(ByVal Mitarbeiternr As Integer)
+            Dim scmCmdToExecute As SqlCommand = New SqlCommand()
+            Dim dtToReturn As DataTable = New DataTable()
+            Dim sdaAdapter As SqlDataAdapter = New SqlDataAdapter(scmCmdToExecute)
+            scmCmdToExecute.CommandText = "dbo.sp_deldokinuse"
+            scmCmdToExecute.CommandType = CommandType.StoredProcedure
+            scmCmdToExecute.Connection = conn.scoDBConnection
+            Try
+                scmCmdToExecute.Parameters.Add(New SqlParameter("@mitarbeiternr", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Mitarbeiternr))
+                sdaAdapter.Fill(dtToReturn)
+            Catch ex As Exception
+                ' // some error occured. Bubble it to caller and encapsulate Exception object
+                Throw New Exception("DivFnkt:DelDokInUse::" & scmCmdToExecute.CommandText & "::Error occured." & ex.Message, ex)
+            Finally
+                scmCmdToExecute.Dispose()
+                sdaAdapter.Dispose()
+            End Try
+        End Function
+
+
+
         Public Function GetHostValutaDAtum(ByVal sDokId As String, ByVal sPartnerNr As String) As String
             Dim scmCmdToExecute As SqlCommand = New SqlCommand()
             Dim dtToReturn As DataTable = New DataTable()

EDOKA/Utils/Globals.vb

@@ -17,7 +17,7 @@ Module Globals
     Public WithEvents Generic_Event_Handler As New Generic_Event_Handler
     'EDOKA-Version
     Public Version As String = "5.6"
-    Public Versionsdatum As String = "03.08.2021"
+    Public Versionsdatum As String = "26.09.2021"
     Public Force_Exit As Boolean = False
     'Datenbankvariablen
     Public sConnectionString As String

EDOKA/frmEdokaMain.resx

@@ -123,7 +123,7 @@
   </data>
   <assembly alias="System.Drawing" name="System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
   <data name="StatusBar1.Location" type="System.Drawing.Point, System.Drawing">
-    <value>0, 295</value>
+    <value>0, 275</value>
   </data>
   <metadata name="HelpProvider1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
     <value>890, 17</value>
@@ -538,7 +538,7 @@
     <value>5, 13</value>
   </data>
   <data name="$this.ClientSize" type="System.Drawing.Size, System.Drawing">
-    <value>1020, 317</value>
+    <value>1020, 297</value>
   </data>
   <data name="Label1.Dock" type="System.Windows.Forms.DockStyle, System.Windows.Forms">
     <value>Fill</value>
@@ -1720,7 +1720,7 @@
         AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj0yLjAuMC4w
         LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
         ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABK
-        DAAAAk1TRnQBSQFMAgEBBwEAAVgBAQFYAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
+        DAAAAk1TRnQBSQFMAgEBBwEAAWABAQFgAQEBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
         AwABQAMAASADAAEBAQABCAYAAQgYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
         AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
         AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

EDOKA/frmEdokaMain.vb

@@ -1561,6 +1561,7 @@ Public Class EDOKAMain
             End If
         End If
         If bExit = True Then
+            DivFnkt.deldokinuse(Globals.MitarbeiterNr)
             Office_Freigeben()
             Application.Exit()
         Else

EDOKA/obj/Debug/EDOKAApp.vbproj.CoreCompileInputs.cache

@@ -1 +1 @@
-d3adf2a1a4591bccec27d61069fbfb144d335bbf
+29c8571abf91ec6ecdd735e42df52b191b4b68ce