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')" 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) 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) ClassDatabase.Execute_non_Query(oSql)
oSql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE Upper(MODULE) = UPPER('Global-Indexer')" 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) ' 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 If Name_Generieren() = True Then
'Dokumentenviewer ausblenden um keinen Zugriffsfehler zu produzieren 'Dokumentenviewer ausblenden um keinen Zugriffsfehler zu produzieren
DocumentViewer1.Done() DocumentViewer1.Done()
DocumentViewer1.CloseDocument()
LOGGER.Debug(" ...Viewer geschlossen") LOGGER.Debug(" ...Viewer geschlossen")
'Die Datei verschieben 'Die Datei verschieben
If Move_File2_Target() = True Then If Move_File2_Target() = True Then
@ -2098,6 +2100,7 @@ Public Class frmIndex
'Die temporäre Datei löschen 'Die temporäre Datei löschen
If CURRENT_WORKFILE.EndsWith("pdf") Then If CURRENT_WORKFILE.EndsWith("pdf") Then
DocumentViewer1.Done() DocumentViewer1.Done()
DocumentViewer1.CloseDocument()
End If End If
DeleteFile() DeleteFile()