From e9a7c5376c9f06c2150eaf23e6acefb8bbe8571d Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Wed, 6 Oct 2021 13:41:11 +0200 Subject: [PATCH] MS SetBack CurrentDocID --- app/DD_PM_WINDREAM/frmValidator.vb | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index 41c83a6..74f087d 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -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