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

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-02-14 17:32:10 +01:00
parent 44f376d208
commit e34d016607
3 changed files with 23 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitignore vendored
View File

@ -154,3 +154,4 @@ $RECYCLE.BIN/
# Mac desktop service store files # Mac desktop service store files
.DS_Store .DS_Store
/app/.vs/DD_PM_Server/v15/Server/sqlite3

30
app/DD_PM_Server/Modul_Main.vb
View File

@ -202,13 +202,12 @@ Module Modul_Main
windreamSucheErgebnisse = _windreamPM.GetSearchDocuments(WD_Search) windreamSucheErgebnisse = _windreamPM.GetSearchDocuments(WD_Search)
stp = "d" stp = "d"
Dim Anzahl_Doks As Integer = 0 Dim Anzahl_Doks As Integer = 0
If windreamSucheErgebnisse Is Nothing = False Then
If windreamSucheErgebnisse.Count > 0 Then
stp = "e"
'Die aktuellen Files auf refreshed = 0 setzten 'Die aktuellen Files auf refreshed = 0 setzten
Dim upd As String = "UPDATE TBPM_PROFILE_FILES SET REFRESHED = 0 WHERE PROFIL_ID = " & ID Dim upd As String = "UPDATE TBPM_PROFILE_FILES SET REFRESHED = 0 WHERE PROFIL_ID = " & ID
If ClassDatabase.Execute_MSSQL(upd) = True Then If ClassDatabase.Execute_MSSQL(upd) = True Then
stp = "e-1" If windreamSucheErgebnisse Is Nothing = False Then
If windreamSucheErgebnisse.Count > 0 Then
stp = "e"
'Ein Array mit Dateiinformationen anlegen 'Ein Array mit Dateiinformationen anlegen
Dim Profil_Docs(windreamSucheErgebnisse.Count - 1, 2) As String Dim Profil_Docs(windreamSucheErgebnisse.Count - 1, 2) As String
For Each dok As WMObject In windreamSucheErgebnisse For Each dok As WMObject In windreamSucheErgebnisse
@ -258,17 +257,9 @@ Module Modul_Main
Anzahl_Doks += 1 Anzahl_Doks += 1
Next Next
stp = "f - vor Delete Refreshed = 0"
Dim Del As String = "DELETE FROM TBPM_PROFILE_FILES WHERE PROFIL_ID = " & ID & " AND REFRESHED = 0"
ClassDatabase.Execute_MSSQL(Del)
'---------------------- Aktuelle Anzahl in Profiltabelle updaten ------------------------
Dim update As String = "UPDATE TBPM_PROFILE SET NO_OF_DOCUMENTS = " & Anzahl_Doks & " WHERE GUID = " & ID
stp = "g - " & Anzahl_Doks.ToString
ClassDatabase.Execute_MSSQL(update)
ClassLogger.Add(">> Profil '" & Profile_Row.Item("NAME") & "' aktualisiert - Anzahl Dateien: " & Anzahl_Doks.ToString, False) ClassLogger.Add(">> Profil '" & Profile_Row.Item("NAME") & "' aktualisiert - Anzahl Dateien: " & Anzahl_Doks.ToString, False)
Else
ClassLogger.Add(">> ACHTUNG: Refresh konnte nicht ausgeführt werden: " & upd, False)
End If
Else Else
stp = "g" stp = "g"
ClassLogger.Add(">> KEINE DATEIEN FÜR PROFIL VORHANDEN.", False) ClassLogger.Add(">> KEINE DATEIEN FÜR PROFIL VORHANDEN.", False)
@ -276,6 +267,17 @@ Module Modul_Main
Else Else
ClassLogger.Add(">> ACHTUNG: WINDREAM-SUCHE ist NOTHING.", False) ClassLogger.Add(">> ACHTUNG: WINDREAM-SUCHE ist NOTHING.", False)
End If End If
stp = "Step: vor Delete Refreshed = 0"
Dim Del As String = "DELETE FROM TBPM_PROFILE_FILES WHERE PROFIL_ID = " & ID & " AND REFRESHED = 0"
ClassDatabase.Execute_MSSQL(Del)
'---------------------- Aktuelle Anzahl in Profiltabelle updaten ------------------------
Dim update As String = "UPDATE TBPM_PROFILE SET NO_OF_DOCUMENTS = " & Anzahl_Doks & " WHERE GUID = " & ID
stp = "Step h AnzahlDocs: - " & Anzahl_Doks.ToString
ClassDatabase.Execute_MSSQL(update)
Else
ClassLogger.Add(">> ACHTUNG: Refresh konnte nicht ausgeführt werden: " & upd, False)
End If
End If End If
Next Next
stp = "h" stp = "h"

2
app/DD_PM_Server/My Project/AssemblyInfo.vb
View File

@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.3.0.1")> <Assembly: AssemblyVersion("1.4.0.0")>
<Assembly: AssemblyFileVersion("1.1.0.0")> <Assembly: AssemblyFileVersion("1.1.0.0")>