AppStd/FileFlow
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix login error because of missing client id, fix pdf file not deleted

Browse Source
This commit is contained in:
Jonathan Jenne 2020-05-07 11:43:39 +02:00
parent e621f63bb4
commit f2468be109
2 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Global_Indexer/ClassInit.vb
View File

@ -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)

3
Global_Indexer/frmIndex.vb
View File

@ -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()