AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MS SetBack CurrentDocID

Browse Source
This commit is contained in:
SchreiberM 2021-10-06 13:41:11 +02:00
parent f8cbd410d7
commit e9a7c5376c
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
app/DD_PM_WINDREAM/frmValidator.vb
View File

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