This commit is contained in:
Jonathan Jenne
2021-10-13 09:41:22 +02:00
2 changed files with 23 additions and 7 deletions

View File

@@ -438,6 +438,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)
@@ -453,6 +454,8 @@ Public Class frmValidator
LOGGER.Error(ex)
End Try
End If
CURRENT_DOC_ID = 0
CURRENT_DOC_GUID = 0
Try
DocumentViewerValidator.CloseDocument()
DocumentViewerValidator.Done()
@@ -1088,7 +1091,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