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

MS Service aktualisert

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-01-17 17:17:38 +01:00
parent ea2554aa10
commit 1d4d48cd01
23 changed files with 1037 additions and 1014 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
app/ResultHandler_Konfig/frmMain.vb
View File

@@ -588,7 +588,7 @@ Public Class frmMain
clsLogger.Add("", False)
'windream initialisieren
If _windream.Init() = True Then
clsLogger.AddDetailLog("windream vollumfänglich initialisiert!")
clsLogger.AddDetailLog("windream vollumfänglich initialisiert!")
'Zur sicherheit die DB nochmal initialiseren
If clsDatatabase.Init() = True Then
Dim DT As DataTable = clsDatatabase.Return_Datatable("SELECT GUID FROM TBWMRH_PROFIL WHERE AKTIV = 1 order by REIHENFOLGE")
@@ -619,12 +619,12 @@ Public Class frmMain
clsDatatabase.Execute_non_Query("UPDATE TBWMRH_KONFIGURATION SET LAST_TICK = GETDATE() WHERE GUID = 1")
Else
clsLogger.Add("- clsSQLLite konnte nicht initialisiert werden!", False)
notcompleted = True
End If
Else
clsLogger.Add("# Achtung: Windream-Init mit Fehlern beendet", False)
notcompleted = True
End If
Else
clsLogger.Add("# Achtung: Windream-Init mit Fehlern beendet", False)
notcompleted = True
End If
If notcompleted = True Then
clsLogger.WriteLog()
End If