MS SetBack CurrentDocID

This commit is contained in:
SchreiberM 2021-10-06 13:41:11 +02:00
parent f8cbd410d7
commit e9a7c5376c

View File

@ -437,6 +437,7 @@ Public Class frmValidator
Try
Dim oDel = $"DELETE FROM TBPM_DOCWALKOVER WHERE UserID = {USER_ID}"
Database_ECM.ExecuteNonQuery(oDel)
Catch ex As Exception
LOGGER.Error(ex)
@ -452,6 +453,8 @@ Public Class frmValidator
LOGGER.Error(ex)
End Try
End If
CURRENT_DOC_ID = 0
CURRENT_DOC_GUID = 0
Try
DocumentViewerValidator.CloseDocument()
DocumentViewerValidator.Done()
@ -1093,7 +1096,7 @@ Public Class frmValidator
End If
Dim oTextBox As TextBox = sender
If oTextBox.Text <> String.Empty And me_closing = False And _Indexe_Loaded = True And oTextBox.Height < 25 Then
If oTextBox.Text <> String.Empty And me_closing = False And _Indexe_Loaded = True And oTextBox.Height <25 Then
If (e.KeyCode = Keys.Return) Or (e.KeyCode = Keys.Tab) Or (e.KeyCode = Keys.Enter) Then
Try