Update anpassungen Barcode-Kleber-Generierung

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