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

DLL windream resultHandler Version 2.5

Browse Source 
Service.exe 2.1
This commit is contained in:
SchreiberM
2021-09-16 12:55:02 +02:00
parent 24a67e0778
commit b2e60a19ac
43 changed files with 287293 additions and 117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
app/DDWDResultHandler/DDWDResultHandler.vb
View File

@@ -48,11 +48,10 @@ Public Class DDWDResultHandler
' Logger.Warn("Achtung: Es konnte keine Verbindung zur Datenbank '" & My.Settings.SQLSERVER_CS_RH & "' hergestellt werden!")
' Else
If clsCURRENT.LOG_ERRORS_ONLY = False Then
MyLogger.Debug = True
Else
MyLogger.Debug = False
End If
MyLogger.Debug = clsCURRENT.DEBUG
oFirstRun = True
' '#Thread für Durchlauf generieren
DDWDResultHandler.threadResultHandler = New BackgroundWorker()
@@ -135,7 +134,7 @@ Public Class DDWDResultHandler
_database = New clsDatabase(MyLogger)
If My.Settings.SQLSERVER_CS_RH = "" Then
Logger.Debug("RESULT HANDLER ConString not configured... No Run")
Logger.Warn("RESULT HANDLER ConString not configured... No Run")
Exit Sub
End If
@@ -154,10 +153,10 @@ Public Class DDWDResultHandler
If DT.Rows.Count = 1 Then
clsCURRENT.DT_TBWMRH_KONFIGURATION = DT
clsCURRENT.WDLAUFWERK = clsCURRENT.DT_TBWMRH_KONFIGURATION.Rows(0).Item("WD_LAUFWERK")
DD_WMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = DT.Rows(0).Item("LOG_ERRORS_ONLY")
MyLogger.Debug = DT.Rows(0).Item("LOG_ERRORS_ONLY")
If DD_WMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = False Then
Logger.Debug("Detaillog is ON!")
DD_WMResulthandler.clsCURRENT.DEBUG = Not (DT.Rows(0).Item("LOG_ERRORS_ONLY"))
MyLogger.Debug = Not (DT.Rows(0).Item("LOG_ERRORS_ONLY"))
If DD_WMResulthandler.clsCURRENT.DEBUG = True Then
Logger.Info("Detaillog is ON!")
End If
DD_WMResulthandler.clsCURRENT.WDLAUFWERK = DT.Rows(0).Item("WD_LAUFWERK")
End If
@@ -184,7 +183,7 @@ Public Class DDWDResultHandler
End If
Next
Else
Logger.Info("Keine aktiven Profile für WMResulthandler vorhanden")
Logger.Warn("Keine aktiven Profile für WMResulthandler vorhanden")
notcompleted = True
End If
'Try

4
app/DDWDResultHandler/My Project/AssemblyInfo.vb
View File

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

2
app/DDWDResultHandler/ServiceDDWDResultHandler.vbproj
View File

@@ -69,7 +69,7 @@
<HintPath>..\packages\Newtonsoft.Json.11.0.2\lib\net45\Newtonsoft.Json.dll</HintPath>
</Reference>
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
<HintPath>..\packages\NLog.4.5.8\lib\net45\NLog.dll</HintPath>
<HintPath>..\packages\NLog.4.7.10\lib\net45\NLog.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.ComponentModel.DataAnnotations" />

6
app/DDWDResultHandler/clsPMRefresh.vb
View File

@@ -10,7 +10,7 @@ Public Class clsPMRefresh
Private oConfigIDXName_DocID
Private oConfigIDXName_Created
'Private oConfigWMDrive
Private oConfigLOGERRONLY As Boolean
Private oConfigLOG_DEBUG As Boolean
Sub New(theLogger As LogConfig)
MyLogger = theLogger
Logger = MyLogger.GetLogger()
@@ -32,12 +32,12 @@ Public Class clsPMRefresh
oConfigIDXName_DocID = oDTPM_CONFIG.Rows(0).Item("SERVICE_IDXNAME_DOCID").ToString
oConfigIDXName_Created = oDTPM_CONFIG.Rows(0).Item("SERVICE_IDXNAME_CREATED").ToString
'oConfigWMDrive = oDTPM_CONFIG.Rows(0).Item("SERVICE_WMDRIVE_LETTER").ToString
oConfigLOGERRONLY = oDTPM_CONFIG.Rows(0).Item("SERVICE_LOG_ERRORS_ONLY")
oConfigLOG_DEBUG = Not (oDTPM_CONFIG.Rows(0).Item("SERVICE_LOG_ERRORS_ONLY"))
Dim oSplit As String()
oSplit = oConfigschedule.Split(";")
Dim oTimespan = oSplit(0)
Dim oDays = oSplit(1)
If oConfigLOGERRONLY = False Then
If oConfigLOG_DEBUG = True Then
MyLogger.Debug = True
Logger.Info("Detaillog Service PMRefresh is ON!")
Else

2
app/DDWDResultHandler/packages.config
View File

@@ -2,5 +2,5 @@
<packages>
<package id="EntityFramework" version="6.2.0" targetFramework="net461" />
<package id="Newtonsoft.Json" version="11.0.2" targetFramework="net461" />
<package id="NLog" version="4.5.8" targetFramework="net461" />
<package id="NLog" version="4.7.10" targetFramework="net461" />
</packages>