From f2468be10943c346f11ba101540f478ca242155b Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Thu, 7 May 2020 11:43:39 +0200 Subject: [PATCH] fix login error because of missing client id, fix pdf file not deleted --- Global_Indexer/ClassInit.vb | 2 +- Global_Indexer/frmIndex.vb | 3 +++ 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/Global_Indexer/ClassInit.vb b/Global_Indexer/ClassInit.vb index 8d22ad7..9146f32 100644 --- a/Global_Indexer/ClassInit.vb +++ b/Global_Indexer/ClassInit.vb @@ -275,7 +275,7 @@ Public Class ClassInit oSql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_ID & " AND UPPER(MODULE) = UPPER('Global-Indexer')" ClassDatabase.Execute_non_Query(oSql, True) - oSql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & USER_ID & ",'Global-Indexer')" + oSql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE, CLIENT_ID) VALUES (" & USER_ID & ",'Global-Indexer', 1)" ClassDatabase.Execute_non_Query(oSql) oSql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE Upper(MODULE) = UPPER('Global-Indexer')" ' Dim anzahl = ClassDatabase.Execute_Scalar(sql, MyConnectionString, True) diff --git a/Global_Indexer/frmIndex.vb b/Global_Indexer/frmIndex.vb index bc75844..917c168 100644 --- a/Global_Indexer/frmIndex.vb +++ b/Global_Indexer/frmIndex.vb @@ -2084,6 +2084,8 @@ Public Class frmIndex If Name_Generieren() = True Then 'Dokumentenviewer ausblenden um keinen Zugriffsfehler zu produzieren DocumentViewer1.Done() + DocumentViewer1.CloseDocument() + LOGGER.Debug(" ...Viewer geschlossen") 'Die Datei verschieben If Move_File2_Target() = True Then @@ -2098,6 +2100,7 @@ Public Class frmIndex 'Die temporäre Datei löschen If CURRENT_WORKFILE.EndsWith("pdf") Then DocumentViewer1.Done() + DocumentViewer1.CloseDocument() End If DeleteFile()