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

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2018-11-07 15:11:52 +01:00
parent 844a423f7d
commit 24f052f5b5
88 changed files with 2833 additions and 159059 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
app/ClassWMResulthandler/DD_WMResulthandler.vbproj
View File

@ -43,6 +43,9 @@
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="DigitalData.Modules.Logging">
<HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="Independentsoft.Email">
<HintPath>P:\Projekte DIGITAL DATA\DIGITAL DATA - Entwicklung\DLL_Bibliotheken\Email .NET\Bin\Independentsoft.Email.dll</HintPath>
</Reference>
@ -102,6 +105,8 @@
<Compile Include="clsDateiverarbeitung.vb" />
<Compile Include="clsEmail.vb" />
<Compile Include="clsEncryption.vb" />
<Compile Include="clsFileWork.vb" />
<Compile Include="clsJob_Work.vb" />
<Compile Include="clsProfil.vb" />
<Compile Include="clsWindream_Allgemein.vb" />
<Compile Include="clsWindream_Index.vb" />

36
app/ClassWMResulthandler/clsDatabase.vb
View File

@ -1,9 +1,14 @@
Imports System.Data.SqlClient
Imports Oracle.ManagedDataAccess.Client
Public Class clsDatatabase
Imports DigitalData.Modules.Logging
Public Class clsDatabase
Private Shared MSSQL_inited As Boolean = False
Private Shared Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger
Public Shared Function Init(CONSTRING As String)
Dim Logger As Logger
Sub New(MyLogger As LogConfig, ConStr As String)
Logger = MyLogger.GetLogger()
Init(ConStr)
End Sub
Public Function Init(CONSTRING As String)
Try
Dim SQLconnect As New SqlClient.SqlConnection
SQLconnect.ConnectionString = CONSTRING
@ -11,11 +16,6 @@ Public Class clsDatatabase
SQLconnect.Close()
clsCURRENT.SQLSERVER_CS = CONSTRING
MSSQL_inited = True
clsCURRENT.DT_TBWMRH_KONFIGURATION = clsDatatabase.Return_Datatable("SELECT * FROM TBWMRH_KONFIGURATION WHERE GUID = 1")
If clsCURRENT.DT_TBWMRH_KONFIGURATION.Rows.Count = 1 Then
clsCURRENT.LOG_ERRORS_ONLY = CBool(clsCURRENT.DT_TBWMRH_KONFIGURATION.Rows(0).Item("LOG_ERRORS_ONLY"))
clsCURRENT.WDLAUFWERK = clsCURRENT.DT_TBWMRH_KONFIGURATION.Rows(0).Item("WD_LAUFWERK")
End If
Return True
Catch ex As Exception
@ -26,7 +26,7 @@ Public Class clsDatatabase
End Function
Public Shared Function ExecuteonOracleDb(CONSTRING As String, ByVal plsqlcommand As String)
Public Function ExecuteonOracleDb(CONSTRING As String, ByVal plsqlcommand As String)
Try
Logger.Debug("plsqlcommand: " & plsqlcommand)
' die nötigen Variablen definieren
@ -94,7 +94,7 @@ Public Class clsDatatabase
End Try
End Function
Public Shared Function Oracle_CS_Test(CONSTRING As String)
Public Function Oracle_CS_Test(CONSTRING As String)
Try
Dim conn As New OracleConnectionStringBuilder
@ -119,7 +119,7 @@ Public Class clsDatatabase
End Try
End Function
Public Shared Function MSSQL_CS_Test(CONSTRING As String)
Public Function MSSQL_CS_Test(CONSTRING As String)
Try
' die nötigen Variablen definieren
@ -146,7 +146,7 @@ Public Class clsDatatabase
End Try
End Function
Public Shared Function ExecuteonMSSQL(ConString As String, ByVal sqlcommand As String)
Public Function ExecuteonMSSQL(ConString As String, ByVal sqlcommand As String)
Try
Logger.Debug("sqlcommand: " & sqlcommand)
If MSSQL_inited = False Then Return False
@ -219,7 +219,7 @@ Public Class clsDatatabase
End Function
Public Shared Function Return_Datatable(Select_anweisung As String)
Public Function Return_Datatable(Select_anweisung As String)
Try
Logger.Debug("Select_anweisung: " & Select_anweisung)
If MSSQL_inited = False Then Return Nothing
@ -247,7 +247,7 @@ Public Class clsDatatabase
Return Nothing
End Try
End Function
Public Shared Function Execute_non_Query(ExecuteCMD As String)
Public Function Execute_non_Query(ExecuteCMD As String)
If MSSQL_inited = False Then Return False
Try
Logger.Debug("ExecuteCMD: " & ExecuteCMD)
@ -276,7 +276,7 @@ Public Class clsDatatabase
End Try
End Function
Public Shared Function Execute_Scalar(cmdscalar As String)
Public Function Execute_Scalar(cmdscalar As String)
If MSSQL_inited = False Then Return Nothing
Dim result
Try
@ -306,7 +306,7 @@ Public Class clsDatatabase
Return Nothing
End Try
End Function
Public Shared Function OracleExecute_Scalar(cmdscalar As String, OracleConnection As String)
Public Function OracleExecute_Scalar(cmdscalar As String, OracleConnection As String)
Dim result
Try
Logger.Debug("cmdscalar: " & cmdscalar)
@ -328,7 +328,7 @@ Public Class clsDatatabase
Return Nothing
End Try
End Function
Public Shared Function OracleExecute_non_Query(ExecuteCMD As String, OracleConnection As String, Optional userInput As Boolean = False)
Public Function OracleExecute_non_Query(ExecuteCMD As String, OracleConnection As String, Optional userInput As Boolean = False)
Try
Logger.Debug("ExecuteCMD: " & ExecuteCMD)
Dim SQLconnect As New OracleConnection
@ -351,7 +351,7 @@ Public Class clsDatatabase
End Try
End Function
Public Shared Function Oracle_Return_Datatable(Select_anweisung As String, OracleConnection As String, Optional userInput As Boolean = False)
Public Function Oracle_Return_Datatable(Select_anweisung As String, OracleConnection As String, Optional userInput As Boolean = False)
Try
Logger.Debug("Select_anweisung: " & Select_anweisung)
Dim SQLconnect As New OracleConnection

288
app/ClassWMResulthandler/clsDateiverarbeitung.vb
View File

@ -3,12 +3,15 @@ Imports System.IO
Imports System.Net
Imports Newtonsoft.Json
Imports System.Text
Imports DigitalData.Modules.Logging
Public Class clsDateiverarbeitung
Private Shared Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger
#Region "***** Variablen und Konstanten*****"
Public Shared _windream As New clsWindream_allgemein
Dim Logger As Logger
Private MyLoggerConf As LogConfig
#Region "***** Variablen und Konstanten*****"
Dim _windream As clsWindream_allgemein
Dim _database As clsDatabase
Public Shared pr_DTPROFIL_REGELN As DataTable
Public Shared aktfile_Exportresult
@ -26,11 +29,17 @@ Public Class clsDateiverarbeitung
Const WMObjectStreamOpenModeReadWrite = 2
Const WMObjectEditModeFileSystem = &H15
#End Region
Public Shared Function InitProfilData()
Public Sub New(MyLogger As LogConfig)
MyLoggerConf = MyLogger
Logger = MyLogger.GetLogger()
_windream = New clsWindream_allgemein(MyLogger)
_database = New clsDatabase(MyLogger, clsCURRENT.SQLSERVER_CS)
End Sub
Public Function InitProfilData()
Try
pr_DTPROFIL_REGELN = Nothing
' Profildaten der Klasse mitteilen
Logger.Info("InitProfilData Profildaten zugewiesen....")
Logger.Debug("InitProfilData Profildaten zugewiesen....")
Return True
Catch ex As Exception
Logger.Error(ex)
@ -38,8 +47,83 @@ Public Class clsDateiverarbeitung
Return False
End Try
End Function
Public Function Check_File_job(WMdok As WMObject, FileJobType As String, String1 As String, String2 As String, WMObjekttyp As String, windream_index As clsWindream_Index)
Try
Select Case FileJobType.ToLower
Case "Set Index".ToLower
Try
'Überprüfen ob Value bereits gesetzt wurde?
Dim oidxName As String = String1
Dim oidxvalue As String = String2
If oidxvalue.Contains("[%DATETIME]") Then
oidxvalue = oidxvalue.Replace("[%DATETIME]", Now.ToString)
End If
oidxvalue = REGEX_REPLACE(WMdok, oidxvalue)
Logger.Debug($"Index '{oidxName}' shall be set with value '{oidxvalue}'")
Dim oarrIndex() As String
ReDim Preserve oarrIndex(0)
oarrIndex(0) = oidxName
Logger.Debug("...nach arrIndex")
Dim oArrValue() As String
Dim oAktvalue As Object
oAktvalue = WMdok.GetVariableValue(oidxName)
Logger.Debug("...nach aktValue zuweisen..")
Dim oWmtype = clsWindream_allgemein.GetTypeOfIndexAsIntByName(oidxName)
Dim oIsVektor As Boolean = False
Select Case oWmtype
Case 4097
oIsVektor = True
Case 4098
oIsVektor = True
Case 4099
oIsVektor = True
Case 4101
oIsVektor = True
Case 4103
oIsVektor = True
Case 4107
oIsVektor = True
Case 36865
oIsVektor = True
End Select
If oIsVektor = False Then
ReDim Preserve oArrValue(0)
oArrValue(0) = oidxvalue
Else
Dim oMyArray()
ReDim oMyArray(0)
oMyArray(0) = oidxvalue
Dim oVektorArray()
oVektorArray = Return_VektorArray(WMdok, oidxName, oMyArray, True)
If oVektorArray Is Nothing = False Then
ReDim oArrValue(oVektorArray.Length - 1)
Array.Copy(oVektorArray, oArrValue, oVektorArray.Length)
End If
End If
If oArrValue Is Nothing = False Then
' MsgBox("now indexing with: " & idxvalue)
windream_index.RunIndexing(WMdok, oarrIndex, oArrValue, WMObjekttyp)
Else
Logger.Warn("arrValue is nothing - keine Indexierung")
End If
Catch ex As Exception
Logger.Error(ex)
'clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(SetIndex)")
End Try
End Select
Catch ex As Exception
Logger.Error(ex)
Return False
End Try
End Function
'Kopiert die übergebene Datei in den Zielpfad
Public Shared Function Export_File(WDDatei As WMObject, Zielpfad As String)
Public Function Export_File(WDDatei As WMObject, Zielpfad As String)
Try
If Not Zielpfad.EndsWith("\") Then
Zielpfad = Zielpfad & "\"
@ -47,11 +131,11 @@ Public Class clsDateiverarbeitung
Logger.Info("Verarbeitung von Datei: " & WDDatei.aName)
'Die Quelle zusammensetzen
Logger.Info("PFAD: " & clsCURRENT.WDLAUFWERK & ":" & WDDatei.aPath & "\" & WDDatei.aName)
Logger.Debug("PFAD: " & clsCURRENT.WDLAUFWERK & ":" & WDDatei.aPath & "\" & WDDatei.aName)
'Dim Quelle As String = IO.Path.GetDirectoryName(WDLaufwerk & ":" & WDDatei.aPath & "\" & WDDatei.aName)
Dim ExportFileIO = New WMOTOOLLib.WMFileIO ' CreateObject("WMOTOOLLib.WMFileIO") ' New WMOTOOLLib.WMFileIO
Logger.Info("ExportFileIO erzeugt.....")
Logger.Debug("ExportFileIO erzeugt.....")
' Stream Interface bereitstellen
WDDatei.LockFor(WMObjectEditModeFileSystem)
Try
@ -75,7 +159,7 @@ Public Class clsDateiverarbeitung
tempFilename = Zielpfad & Filename & "_" & version & Extension
version = version + 1
Loop
Logger.Info("Zieldateiname: " & tempFilename)
Logger.Debug("Zieldateiname: " & tempFilename)
' den Dateiinhalt der neuen Datei zuweisen
ExportFileIO.aWMStream = oWMStream
ExportFileIO.bstrOriginalFileName = tempFilename
@ -96,9 +180,9 @@ Public Class clsDateiverarbeitung
Return False
End Try
End Function
Public Shared Function Rename_File(WMFile As WMObject, konvention As String)
Public Function Rename_File(WMFile As WMObject, konvention As String)
Try
Logger.Info("Konvention: '" & konvention & "'")
Logger.Debug("Konvention: '" & konvention & "'")
'Regulären Ausdruck zum Auslesen der windream-Indexe definieren
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
@ -112,16 +196,16 @@ Public Class clsDateiverarbeitung
'die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index)
Dim reg_element_Ohne_SZ As String = reg_element.Value.Replace("[%", "")
reg_element_Ohne_SZ = reg_element_Ohne_SZ.Replace("]", "")
Logger.Info("Indexwert aus Index '" & reg_element_Ohne_SZ & "' auslesen....")
Logger.Debug("Indexwert aus Index '" & reg_element_Ohne_SZ & "' auslesen....")
Dim wdIndexwert
'den Wert des Indexes für das aktuelle Dokument auslesen
wdIndexwert = WMFile.GetVariableValue(reg_element_Ohne_SZ)
If wdIndexwert Is Nothing = False Then
If Not wdIndexwert.GetType.ToString.Contains("System.Object") Then
Logger.Info("Namenkonvention (" & i & ") " & konvention)
Logger.Debug("Namenkonvention (" & i & ") " & konvention)
wdIndexwert = wdIndexwert.ToString.TrimEnd
wdIndexwert = wdIndexwert.ToString.TrimStart
Logger.Info("Ausgelesener Indexwert = '" & wdIndexwert & "'")
Logger.Debug("Ausgelesener Indexwert = '" & wdIndexwert & "'")
konvention = konvention.Replace(reg_element.Value, wdIndexwert.ToString)
i += 1
Else
@ -131,18 +215,18 @@ Public Class clsDateiverarbeitung
Next
Dim version As Integer = 2
Dim ZielPfad As String = Path.GetDirectoryName(aktfile_Exportresult)
Logger.Info("ZielPfad: " & ZielPfad)
Logger.Debug("ZielPfad: " & ZielPfad)
Dim Filename = konvention
Dim Extension = Path.GetExtension(aktfile_Exportresult)
Logger.Info("Extension: " & Extension)
Logger.Debug("Extension: " & Extension)
Dim tempFilename As String = ZielPfad & "\" & Filename & Extension
Logger.Info("tempFilename: " & tempFilename)
Logger.Debug("tempFilename: " & tempFilename)
'Überprüfen ob File existiert
Do While IO.File.Exists(tempFilename) = True
tempFilename = ZielPfad & "\" & Filename & "~" & version & Extension
version += 1
Loop
Logger.Info("RenameFile - OLDFilename: " & aktfile_Exportresult & " - NEWFilename: " & Path.GetFileName(tempFilename))
Logger.Debug("RenameFile - OLDFilename: " & aktfile_Exportresult & " - NEWFilename: " & Path.GetFileName(tempFilename))
My.Computer.FileSystem.RenameFile(aktfile_Exportresult, Path.GetFileName(tempFilename))
Logger.Info("Datei wurde erfolgreich umbenannt.")
Return True
@ -152,13 +236,13 @@ Public Class clsDateiverarbeitung
Return False
End Try
End Function
Public Shared Function Rename_File_Vektor(WMFile As WMObject, WMINDEX_NAME As String)
Public Function Rename_File_Vektor(WMFile As WMObject, WMINDEX_NAME As String)
Try
Dim WMIndexwert
Dim ZielPfad As String = Path.GetDirectoryName(aktfile_Exportresult)
Logger.Info("ZielPfad: " & ZielPfad)
Logger.Debug("ZielPfad: " & ZielPfad)
Dim Extension = Path.GetExtension(aktfile_Exportresult)
Logger.Info("Extension: " & Extension)
Logger.Debug("Extension: " & Extension)
If WMINDEX_NAME.StartsWith("[%") Then
WMINDEX_NAME = WMINDEX_NAME.Replace("[%", "")
@ -167,7 +251,7 @@ Public Class clsDateiverarbeitung
'den Wert des Indexes für das aktuelle Dokument auslesen
WMIndexwert = WMFile.GetVariableValue(WMINDEX_NAME)
If WMIndexwert.GetType.ToString.Contains("System.Object") Then
Logger.Info("Rename_File_Vektor in Progress for index " & WMINDEX_NAME)
Logger.Debug("Rename_File_Vektor in Progress for index " & WMINDEX_NAME)
Dim anz As Integer = 1
Dim copybasefile As String
For Each WMvalue As Object In WMIndexwert
@ -175,9 +259,9 @@ Public Class clsDateiverarbeitung
Try
If WMvalue.ToString <> String.Empty Then
Dim tempFilename As String = ZielPfad & "\" & WMvalue & Extension
Logger.Info("tempFilename: " & tempFilename)
Logger.Debug("tempFilename: " & tempFilename)
If anz = 1 Then
Logger.Info("RenameFile - OLDFilename: " & aktfile_Exportresult & " - NEWFilename: " & Path.GetFileName(tempFilename))
Logger.Debug("RenameFile - OLDFilename: " & aktfile_Exportresult & " - NEWFilename: " & Path.GetFileName(tempFilename))
My.Computer.FileSystem.RenameFile(aktfile_Exportresult, Path.GetFileName(tempFilename))
copybasefile = tempFilename
Else
@ -210,14 +294,14 @@ Public Class clsDateiverarbeitung
End Try
End Function
Private Shared Function GetWMAPILink(docId As String, userId As String)
Private Function GetWMAPILink(docId As String, userId As String)
Dim hostname = "http://documents.mylogitservices.syncreon.com:8100"
Dim link As String = $"{hostname}/WMWebApi/windream.web.api/DigitalData/BNSDownload?docId={docId}&userId={userId}"
Return link
End Function
Private Shared Function GetDocTypeCategory(docType As String)
Private Function GetDocTypeCategory(docType As String)
Select Case docType
Case "Abliefernachweis"
Return 5
@ -234,8 +318,9 @@ Public Class clsDateiverarbeitung
''' </summary>
''' <param name="WMFile">Das WMObject, dass das aktuelle Dokument repräsentiert</param>
''' <param name="userId">Die eindeutige Benutzer Kennung für die Authentifizierung in Windream</param>
Public Shared Function BNSjsonDownload(WMFile As WMObject, userId As String, apiAddress As String)
Public Function BNSjsonDownload(WMFile As WMObject, userId As String, apiAddress As String)
Try
Logger.Info("handling BNSjsonDownload.....")
' Indizes für das aktuelle Dokument auslesen
Dim SENDUNGNR = WMFile.GetVariableValue("Sendungnr")
Dim DOKID = WMFile.GetVariableValue("Dokument-ID")
@ -246,7 +331,7 @@ Public Class clsDateiverarbeitung
Dim link As String = GetWMAPILink(DOKID, userId)
' JSON Payload erstellen und serialisieren
Dim doc As New BNSDocument()
Dim doc As New BNSDocument(MyLoggerConf)
doc.Bemerkung = DOKART
'Dokumente sollen unbegrenzt gültig sein
'doc.Ivalidfrom = now
@ -269,8 +354,8 @@ Public Class clsDateiverarbeitung
Dim geschaeftsId = SENDUNGNR
Dim url As String = $"http://{apiAddress}/onwebui/api/Customer/{mandatenId}/{geschaeftsObjekt}/{geschaeftsId}/dokument"
Logger.Info($">> Generiertes JSON: {json}")
Logger.Info($">> Creating WebRequest for {url}")
' Logger.Debug($">> Generiertes JSON: {json}")
Logger.Debug($">> Creating WebRequest for {url}")
Dim req As HttpWebRequest = WebRequest.CreateHttp(url)
@ -284,8 +369,8 @@ Public Class clsDateiverarbeitung
reqStream.Write(bytes, 0, bytes.Length)
reqStream.Close()
Logger.Info($">> Datei wird hochgeladen... docId: {DOKID}, dokart: {DOKART}, userId: {userId}")
Logger.Info($">> Upload URL: {url}")
'Logger.Debug($">> Datei wird hochgeladen... docId: {DOKID}, dokart: {DOKART}, userId: {userId}")
'Logger.Debug($">> Upload URL: {url}")
Using res As HttpWebResponse = req.GetResponse()
Dim code As HttpStatusCode = res.StatusCode
@ -293,19 +378,19 @@ Public Class clsDateiverarbeitung
' Status 201 Created bedeutet: Alles okay!
If code = HttpStatusCode.Created Then
Logger.Info($">> Datei geschrieben! docId: {DOKID}, dokart: {DOKART}, userId: {userId}")
Logger.Info($"File has been uploaded: docId: {DOKID}, dokart: {DOKART}, userId: {userId}")
Else
Throw New Exception($"Server Error (HTTP {code}: {text})")
Logger.Warn($"Server Error (HTTP {code}: {text})")
End If
End Using
Return True
Catch ex As Exception
Logger.Warn($"Unhandled Exception in BNSjsonDownload - Profile ({clsCURRENT._Profilname}) {ex.Message}")
Logger.Error(ex)
Return True
End Try
End Function
Public Shared Function RUN_ORACLE_COMMAND(WMFile As WMObject, OracleCS As String, OracleCommandRAW As String)
Public Function RUN_ORACLE_COMMAND(WMFile As WMObject, OracleCS As String, OracleCommandRAW As String)
Try
Dim result = REGEX_REPLACE(WMFile, OracleCommandRAW)
If result = Nothing Then
@ -313,7 +398,7 @@ Public Class clsDateiverarbeitung
End If
If clsDatatabase.ExecuteonOracleDb(OracleCS, result) = True Then
If _database.ExecuteonOracleDb(OracleCS, result) = True Then
Return True
Else
Return False
@ -325,7 +410,7 @@ Public Class clsDateiverarbeitung
Return False
End Try
End Function
Public Shared Function RUN_MSSQL_COMMAND(WMFile As WMObject, MSSQLCS As String, SQLCommandRAW As String)
Public Function RUN_MSSQL_COMMAND(WMFile As WMObject, MSSQLCS As String, SQLCommandRAW As String)
Try
Dim result = REGEX_REPLACE(WMFile, SQLCommandRAW)
If result = Nothing Then
@ -333,7 +418,7 @@ Public Class clsDateiverarbeitung
End If
If clsDatatabase.ExecuteonMSSQL(MSSQLCS, result) = True Then
If _database.ExecuteonMSSQL(MSSQLCS, result) = True Then
Return True
Else
Return False
@ -345,10 +430,112 @@ Public Class clsDateiverarbeitung
Return False
End Try
End Function
Public Shared Function REGEX_REPLACE(WMFile As WMObject, _STRING As String)
Private Function Return_VektorArray(ByVal oDocument As WMObject, vktIndexName As String, NIIndexe As Object, CheckDuplikat As Boolean)
Try
Logger.Info("REGEX_String before replacing: '" & _STRING & "'")
Dim missing As Boolean = False
Dim Anzahl As Integer = 0
Dim ValueArray()
'Jeden Wert des Vektorfeldes durchlaufen
Dim wertWD = oDocument.GetVariableValue(vktIndexName)
If wertWD Is Nothing = False Then
'Nochmals prüfen ob wirklich Array
If wertWD.GetType.ToString.Contains("System.Object") Then
'Keine Duplikatprüfung also einfach neues Array füllen
If CheckDuplikat = False Then
For Each value As Object In wertWD
'Das Array anpassen
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern
ValueArray(Anzahl) = value.ToString
Anzahl += 1
Next
'Und jetzt den/die Neuen Wert(e) anfügen
For Each NewValue As Object In NIIndexe
If NewValue Is Nothing = False Then
'Das Array anpassen
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern
ValueArray(Anzahl) = NewValue.ToString
Anzahl += 1
End If
Next
Else
Logger.Debug("Duplikatprüfung soll durchgeführt werden.")
'Duplikat Prüfung an, also nur anhängen wenn Wert <>
For Each WDValue As Object In wertWD
If WDValue Is Nothing = False Then
'Erst einmal die ALten Werte schreiben
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern
ValueArray(Anzahl) = WDValue.ToString
Logger.Debug("Value (" & Anzahl & ") " & WDValue.ToString)
Anzahl += 1
End If
Next
'Jetzt die Neuen Werte auf Duplikate überprüfen
For Each NewValue As Object In NIIndexe
If NewValue Is Nothing = False Then
If ValueArray.Contains(NewValue) = False Then
Logger.Debug("New Value (" & Anzahl & ") " & NewValue.ToString)
'Das Array anpassen
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern
ValueArray(Anzahl) = NewValue.ToString
Anzahl += 1
Else
Logger.Debug("Value '" & NewValue.ToString & "' bereits in Vektorfeld enthalten")
End If
End If
Next
End If
End If
Else
Logger.Debug("Vektorfeld ist noch leer....")
'Den/die Neuen Wert(e) anfügen
For Each NewValue As Object In NIIndexe
If NewValue Is Nothing = False Then
If CheckDuplikat = True Then
If ValueArray Is Nothing = False Then
If ValueArray.Contains(NewValue) = False Then
'Das Array anpassen
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern
ValueArray(Anzahl) = NewValue.ToString
Anzahl += 1
Else
Logger.Debug("Value '" & NewValue.ToString & "' bereits in Array enthalten")
End If
Else 'Dererste Wert, also hinzufügen
'Das Array anpassen
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern
ValueArray(Anzahl) = NewValue.ToString
Anzahl += 1
End If
Else
'Das Array anpassen
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern
ValueArray(Anzahl) = NewValue.ToString
Anzahl += 1
End If
End If
Next
End If
Logger.Debug("Return ValueArray: length " & ValueArray.Length)
Return ValueArray
Catch ex As Exception
Logger.Error(ex)
Return Nothing
End Try
End Function
Public Function REGEX_REPLACE(WMFile As WMObject, _STRING As String)
Try
Logger.Debug("REGEX_String before replacing: '" & _STRING & "'")
' Regulären Ausdruck zum Auslesen der windream-Indexe definieren
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
' einen Regulären Ausdruck laden
@ -361,7 +548,7 @@ Public Class clsDateiverarbeitung
' die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index)
Dim reg_element_Ohne_SZ As String = reg_element.Value.Replace("[%", "")
reg_element_Ohne_SZ = reg_element_Ohne_SZ.Replace("]", "")
Logger.Info("read indexvalue from index '" & reg_element_Ohne_SZ & "'....")
Logger.Debug("read indexvalue from index '" & reg_element_Ohne_SZ & "'....")
If reg_element_Ohne_SZ = "EXPORTED_FILENAME" Then
If clsCURRENT.EXPORTED_FILENAME <> "" Then
_STRING = _STRING.Replace(reg_element.Value, clsCURRENT.EXPORTED_FILENAME)
@ -377,14 +564,14 @@ Public Class clsDateiverarbeitung
If Not wdIndexwert.GetType.ToString.Contains("System.Object") Then
wdIndexwert = wdIndexwert.ToString.TrimEnd
wdIndexwert = wdIndexwert.ToString.TrimStart
Logger.Info("indexvalue read is: '" & wdIndexwert & "'")
Logger.Debug("indexvalue read is: '" & wdIndexwert & "'")
_STRING = _STRING.Replace(reg_element.Value, wdIndexwert.ToString)
Logger.Info("REGEX_String (" & i & ") " & _STRING)
Logger.Debug("REGEX_String (" & i & ") " & _STRING)
i += 1
Else
Logger.Warn("Attention: WMIndex is an vectorfield - seperation of values via ;")
Logger.Info("wdIndexValue is System.Object....")
Logger.Info("trying to seperate via ,....")
Logger.Debug("wdIndexValue is System.Object....")
Logger.Debug("trying to seperate via ,....")
Dim vector_result As String = ""
For Each WMvalue As Object In wdIndexwert
Dim x As Integer = 0
@ -400,7 +587,7 @@ Public Class clsDateiverarbeitung
End If
Next
_STRING = _STRING.Replace(reg_element.Value, vector_result.ToString)
Logger.Info("REGEX_String after vector-for-each (" & i & ") " & _STRING)
Logger.Debug("REGEX_String after vector-for-each (" & i & ") " & _STRING)
End If
Else
Logger.Warn("Attention: Indexvalue is NOTHING, standardvalue '0' will be used", False, "clsDateiverarbeitung.REGEX_REPLACE")
@ -419,6 +606,7 @@ Public Class clsDateiverarbeitung
End Function
Public Class BNSDocument
Dim Logger As Logger
Public Doksourcetype As Integer = 3
Public Pfad As String
'Dokumente sollen unbegrenzt gültig sein
@ -429,8 +617,10 @@ Public Class clsDateiverarbeitung
Public Fremsysid As Integer = 1
Public Kategorien As List(Of BNSDocumentCategory)
Public Dateiname As String
Public Sub New(MyLogger As LogConfig)
Logger = MyLogger.GetLogger()
End Sub
End Class
Public Class BNSDocumentCategory
Public Id As Integer
End Class

169
app/ClassWMResulthandler/clsEmail.vb
View File

@ -3,96 +3,21 @@ Imports System
Imports Independentsoft.Email
Imports Independentsoft.Email.Smtp
Imports Independentsoft.Email.Mime
Imports DigitalData.Modules.Logging
Public Class clsEmail
Private Shared Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger
Dim Logger As DigitalData.Modules.Logging.Logger
Private Shared MailAktiv As Boolean = False
'Public Shared Function Init()
' Try
' Dim DT As DataTable = clsDatatabase.Return_Datatable("select * from TBDD_EMAIL_ACCOUNT where ACTIVE = 1")
' If DT.Rows.Count = 1 Then
' For Each row As DataRow In DT.Rows
' MailFrom = row.Item("EMAIL_ABS")
' MAilSMTP = row.Item("EMAIL_SMTP")
' MailSSL = row.Item("EMAIL_SSL")
' MailUser = row.Item("EMAIL_USER")
' MailUser_PW = row.Item("EMAIL_USER_PW")
' MailAktiv = True
' Exit For
' Next
' Else
' MailAktiv = False
' End If
' Return True
' Catch ex As Exception
' clsLogger.Add(ex.Message, True, "clsEmail.Init")
' Return False
' End Try
' End Function
'Public Shared Function Send_EMail(ByVal MailBetreff As String, ByVal vBody As String, MailEmpfaenger As String, MailFrom As String, MAilSMTP As String, MailUser As String, MailUser_PW As String, SSL As Boolean,
' Optional attment As String = "", Optional test As Boolean = False)
' '#### E-MAIL NACHRICHT VERSENDEN
' Try
' Dim empfaenger As String()
' If MailEmpfaenger.Contains(";") Then
' empfaenger = MailEmpfaenger.Split(";")
' Else
' ReDim Preserve empfaenger(0)
' empfaenger(0) = MailEmpfaenger
' End If
' 'Für jeden Empfänger eine Neue Mail erzeugen
' For Each _mailempfaenger As String In empfaenger
' 'Neue Nachricht erzeugen:
' Dim message As New MailMessage(MailFrom, _mailempfaenger, MailBetreff,
' "<font face=""Arial"">" & vBody & "</font>") '& "<br>" &
' '"<br>Domain: " & Environment.UserDomainName &
' '"<br>Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & "-" &
' 'My.Computer.Clock.LocalTime.ToLongTimeString &
' ' create and add the attachment(s) */
' If attment <> String.Empty Then
' If System.IO.File.Exists(attment) Then
' Dim Attachment As Attachment = New Attachment(attment)
' message.Attachments.Add(Attachment)
' End If
' End If
' With message
' .IsBodyHtml = True
' End With
' 'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen
' Dim emailClient As New SmtpClient(MAilSMTP)
' emailClient.EnableSsl = SSL
' 'Email mit Authentifizierung
' Dim SMTPUserInfo As New System.Net.NetworkCredential(MailUser, MailUser_PW) ', My.Settings.vDomain)
' emailClient.UseDefaultCredentials = False
' emailClient.Credentials = SMTPUserInfo
' emailClient.Port = 25
' clsLogger.Add("==> Email erfolgreich an " & _mailempfaenger & " versendet!", False)
' clsLogger.Add("==> Text: " & vBody, False)
' clsLogger.Add("", False)
' '*Send the message */
' emailClient.Send(message)
' If test = True Then
' MsgBox("The testmail was send successfully", MsgBoxStyle.Information)
' End If
' Next
' Return True
' Catch ex As Exception
' clsLogger.Add(ex.Message, True, "cls.SendEmail")
' If test = True Then
' MsgBox("Unexpected error in Send Testmail: " & ex.Message, MsgBoxStyle.Critical)
' End If
' Return False
' End Try
'End Function
Public Shared Function Email_Send_Independentsoft(ByVal mailSubject As String, ByVal mailBody As String, mailto As String,
Sub New(MyLogger As LogConfig)
Logger = MyLogger.GetLogger()
End Sub
Public Function Email_Send_Independentsoft(ByVal mailSubject As String, ByVal mailBody As String, mailto As String,
mailfrom As String, mailsmtp As String, mailport As Integer, mailUser As String, mailPW As String,
SSL As Boolean, Optional attment As String = "")
AUTH_TYPE As String, Optional attment As String = "")
Try
Logger.Debug($"in Email_Send_Independentsoft..")
Dim empfaenger As String()
If mailto.Contains(";") Then
empfaenger = mailto.Split(";")
@ -103,15 +28,15 @@ Public Class clsEmail
Dim _error As Boolean = False
'Für jeden Empfänger eine Neue Mail erzeugen
For Each _mailempfaenger As String In empfaenger
Logger.Debug($"Working on email for {_mailempfaenger}..")
Try
Dim message As New Message()
message.From = New Mailbox(mailfrom, mailfrom)
message.[To].Add(New Mailbox(_mailempfaenger))
message.Subject = mailSubject
Logger.Debug($"Message created..")
Dim textBodyPart As New BodyPart()
textBodyPart.ContentType = New ContentType("text", "plain", "utf-8")
textBodyPart.ContentType = New ContentType("text", "html", "utf-8")
textBodyPart.ContentTransferEncoding = ContentTransferEncoding.QuotedPrintable
textBodyPart.Body = mailBody
message.BodyParts.Add(textBodyPart)
@ -126,39 +51,80 @@ Public Class clsEmail
attachment1.ContentType = New ContentType("application", "MS-word")
End If
message.BodyParts.Add(attachment1)
Else
Logger.Warn($"Attachment {attment.ToString} is not existing!")
End If
End If
Dim client As SmtpClient
Try
client = New SmtpClient(mailsmtp, mailport)
Catch ex As Exception
Logger.Warn("clsEmail.SendMail(Create Client): " & ex.Message)
Logger.Warn("clsEmail.Create Client: " & ex.Message)
_error = True
Continue For
End Try
Try
client.Connect()
Catch ex As Exception
Logger.Warn("clsEmail.SendMail(Client.Connect): " & ex.Message)
Logger.Warn("clsEmail.Client.Connect: " & ex.Message)
_error = True
Continue For
' Continue For
End Try
Logger.Info("Connected to Client!")
If AUTH_TYPE = "SSL" Then
client.EnableSsl = True
'client.ValidateRemoteCertificate = True
Logger.Info("Authentification via SSL.")
ElseIf AUTH_TYPE = "TLS" Then
' client.ValidateRemoteCertificate = False
client.StartTls()
client.EnableSsl = False
Logger.Info("Authentification via TLS. SSL disabled")
Else
client.EnableSsl = False
Logger.Info("Authentification NONE. SSL disabled")
End If
Try
client.Login(mailUser, mailPW)
client.Connect()
Catch ex As Exception
Logger.Warn("clsEmail.SendMail(Client.Login): " & ex.Message)
Logger.Warn("clsEmail.Client.Connect: " & ex.Message)
_error = True
' Continue For
End Try
Try
If mailsmtp.Contains("office365.com") Then
client.Login(mailUser, mailPW, AuthenticationType.None)
Else
client.Login(mailUser, mailPW)
End If
Logger.Info("Logged in!")
Catch ex As Exception
Try
If mailsmtp.Contains("office365.com") Then
client.Login(mailUser, mailPW, AuthenticationType.Login)
Else
client.Login(mailUser, mailPW, AuthenticationType.Anonymous)
End If
Catch ex1 As Exception
Try
client.Login(mailUser, mailPW, AuthenticationType.Login)
Catch ex2 As Exception
Logger.Warn("clsEmail.Client.Login: " & ex.Message)
_error = True
client.Disconnect()
Continue For
End Try
End Try
End Try
Try
client.Send(message)
Logger.Info("Message to " & _mailempfaenger & " has been send.")
_error = False
Catch ex As Exception
Logger.Warn("clsEmail.SendMail(Client.Send): " & ex.Message)
Logger.Warn("clsEmail.Client.Send: " & ex.Message)
_error = True
client.Disconnect()
Continue For
@ -167,7 +133,6 @@ Public Class clsEmail
Catch ex As Exception
Logger.Error(ex)
_error = True
End Try
Next
@ -177,6 +142,10 @@ Public Class clsEmail
Else
Return True
End If
Catch ex As Exception
Logger.Error(ex)
Return False
End Try
End Function
End Class

3
app/ClassWMResulthandler/clsFileWork.vb Normal file
View File

@ -0,0 +1,3 @@
Public Class clsFileWork
End Class

63
app/ClassWMResulthandler/clsJob_Work.vb Normal file
View File

@ -0,0 +1,63 @@
Imports DigitalData.Modules.Logging
Public Class clsJob_Work
Dim Logger As Logger
Private MyLogger As LogConfig
Private _mail As clsEmail
Public Sub New(MyLoggerConf As LogConfig, _email As clsEmail)
Logger = MyLoggerConf.GetLogger()
MyLogger = MyLoggerConf
_mail = _email
End Sub
Public Function New_Mail_with_attachment(Email_receipiants As String, Email_subject As String, Email_Body As String, EmailProfil As Integer, DTTBDD_EMAIL As DataTable, Attachment_Filename As String)
Try
Logger.Debug("Email_Empfänger: " & Email_receipiants)
Logger.Debug("Email_Betreff: " & Email_subject)
Logger.Debug("Email_Body: " & Email_Body)
Logger.Debug("EMAIL_PROFIL: " & EmailProfil)
Dim oMAILFROM As String = ""
Dim oMAILSMTP As String = ""
Dim oMAIL_USER As String = ""
Dim oMAIL_USER_PW As String = ""
Dim oMAIL_AUTH_TYPE As String = "SSL"
Dim oMAIL_PORT As String = "25"
If IsNothing(DTTBDD_EMAIL) And DTTBDD_EMAIL.Rows.Count >= 1 Then
Logger.Warn("DT_TBDD_EMAIL is nothing or contains no rows")
Return False
End If
For Each emailrow As DataRow In clsCURRENT.DT_TBDD_EMAIL.Rows
If emailrow.Item("GUID") = CInt(EmailProfil) Then
oMAILFROM = emailrow.Item("EMAIL_FROM")
oMAILSMTP = emailrow.Item("EMAIL_SMTP")
oMAIL_USER = emailrow.Item("EMAIL_USER")
oMAIL_USER_PW = emailrow.Item("EMAIL_PW")
oMAIL_AUTH_TYPE = emailrow.Item("AUTH_TYPE")
oMAIL_PORT = emailrow.Item("PORT")
End If
Next
Dim owrapper As New clsEncryption("!35452didalog=")
Dim oPWPlain = owrapper.DecryptData(oMAIL_USER_PW)
If Not IsNothing(oPWPlain) Then
If oPWPlain <> "" Then
oMAIL_USER_PW = oPWPlain
Else
Logger.Warn("PWPlain is string.empty - Could not decrypt passwort 42")
Return False
End If
Else
Logger.Warn("PWPlain is string.empty - Could not decrypt passwort 46")
Return False
End If
If _mail.Email_Send_Independentsoft(Email_subject, Email_Body, Email_receipiants, oMAILFROM, oMAILSMTP, oMAIL_PORT, oMAIL_USER, oMAIL_USER_PW, oMAIL_AUTH_TYPE, Attachment_Filename) = True Then
Return True
Else
Logger.Warn("Email_Send_Independentsoft was not successfull!")
Return False
End If
Catch ex As Exception
Logger.Error(ex)
Return False
End Try
End Function
End Class

440
app/ClassWMResulthandler/clsProfil.vb
View File

@ -2,33 +2,40 @@
Imports System.IO
Imports System.Text
Imports Newtonsoft.Json
Imports DigitalData.Modules.Logging
Public Class clsProfil
Inherits clsCURRENT
Private Shared Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger
Dim Logger As Logger
#Region "***** Variablen *****"
Private Shared CriticalError As Boolean = False
Private windream As clsWindream_allgemein
Private windream_index As clsWindream_Index
Private _database As clsDatabase
Private _dateiverarbeitung As clsDateiverarbeitung
Private _JobWork As clsJob_Work
Private _email As clsEmail
Private Shared WD_aktivesDokument As WMObject
#End Region
Sub New(PROFIL_ID As Integer, LogSpeicherort As String, praefix As String)
Init(PROFIL_ID)
Sub New(MyLogger As LogConfig, PROFIL_ID As Integer)
Logger = MyLogger.GetLogger()
windream = New clsWindream_allgemein(MyLogger)
windream_index = New clsWindream_Index(MyLogger)
_database = New clsDatabase(MyLogger, clsCURRENT.SQLSERVER_CS)
_dateiverarbeitung = New clsDateiverarbeitung(MyLogger)
_email = New clsEmail(MyLogger)
_JobWork = New clsJob_Work(MyLogger, _email)
End Sub
Public Shared Function Init(PROFIL_ID As Integer)
Public Function Init(PROFIL_ID As Integer)
Try
Logger.Info("Start Initialisierung Profil für GUID: " & PROFIL_ID.ToString)
Dim DT As DataTable = clsDatatabase.Return_Datatable("Select * from TBWMRH_PROFIL where GUID = " & PROFIL_ID)
Logger.Debug("Start Initialisierung Profil für GUID: " & PROFIL_ID.ToString)
Dim DT As DataTable = _database.Return_Datatable("Select * from TBWMRH_PROFIL where GUID = " & PROFIL_ID)
If DT.Rows.Count > 0 Then
For Each DR As DataRow In DT.Rows
_profGUID = PROFIL_ID
_Profilname = CStr(DR.Item("Profilname"))
Logger.Info("Check Profilname '" & _Profilname & "', GUID: " & _profGUID & " geladen")
Logger.Debug("Check Profilname '" & _Profilname & "', GUID: " & _profGUID & " geladen")
' Überprüfen ob Profil aktiv oder inaktiv
If CBool(DR.Item("Aktiv")) = False Then
Logger.Info("## Profil '" & _Profilname & "' ist inaktiv geschaltet")
@ -39,7 +46,7 @@ Public Class clsProfil
_profDay = CStr(DR.Item("Day"))
_profRunType = CStr(DR.Item("Run"))
_proflastRun = DR.Item("Letzter_Durchlauf")
Logger.Info("Raw-Daten für Profil '" & _Profilname & "', GUID: " & _profGUID & " geladen")
Logger.Debug("Raw-Daten für Profil '" & _Profilname & "', GUID: " & _profGUID & " geladen")
Return True
End If
Next
@ -55,27 +62,36 @@ Public Class clsProfil
End Function
'Durchlauf des Profils wird aus dem Service gestartet wenn Init = True war
Public Shared Function Profil_Durchlauf()
Public Function Profil_Durchlauf(manually As Boolean) As Boolean
Dim _error As Boolean = False
'Try
Try
Dim Run_Profile As Boolean = False
'Soll die Verarbeitung heute durchgeführt werden??
Dim Dayofweek As Integer = My.Computer.Clock.LocalTime.DayOfWeek
Dim SUBS As Integer = 0
Dim RUNTODAY As Integer = 0
If Dayofweek = 0 Then
SUBS = 6
Else
End If
RUNTODAY = _profDay.Substring(Dayofweek - 1, 1)
If _profDay.Substring(Dayofweek - 1, 1) = 1 Then
'Verarbeitung soll heute durchgeführt werden
Logger.Info("Verarbeitung soll heute durchgeführt werden!")
Logger.Info("_RunType: " & _profRunType)
Logger.Debug("Verarbeitung soll heute durchgeführt werden!")
Logger.Debug("_RunType: " & _profRunType)
Dim arr As String()
arr = _profRunType.Split(";")
Logger.Info("arr(1): " & arr(1).ToString)
Logger.Debug("arr(1): " & arr(1).ToString)
Select Case arr(0)
Case "TIME"
' Dim intervall As Integer = clsSQLITE.konf_intervall / 60
Logger.Info("Intervall: 1 Minute")
Dim Time_next As DateTime = _proflastRun.AddMinutes(1)
Dim _RunTime As Date = CDate(arr(1))
Logger.Info("ProfilTime: " & _RunTime)
Logger.Info("_RunTime.ToShortTimeString: " & _RunTime.ToShortTimeString & " # " & "Now.ToShortTimeString: " & Now.ToShortTimeString)
Logger.Debug("ProfilTime: " & _RunTime)
Logger.Debug("_RunTime.ToShortTimeString: " & _RunTime.ToShortTimeString & " # " & "Now.ToShortTimeString: " & Now.ToShortTimeString)
If Time_next.ToString.StartsWith("11.11.1911") Then
Logger.Info("Manueller Durchlauf des Profils - 11.11.1911")
Run_Profile = True
@ -83,58 +99,63 @@ Public Class clsProfil
'Ist die Uhrzeit in der Range
If _RunTime.ToShortTimeString = Now.ToShortTimeString Then
Run_Profile = True
Else
Logger.Debug("No run as " & _RunTime.ToShortTimeString & "<>" & Now.ToShortTimeString)
End If
End If
Case "INTV"
'Die Differenz berechnen
Dim DiffMin As Integer = DateDiff(DateInterval.Minute, _proflastRun, Date.Now)
Dim msg As String
msg = "Minutenangaben: " & vbNewLine
msg = msg & "DiffMin: " & DiffMin & vbNewLine
msg = msg & "Intervall: " & arr(1)
Logger.Info(msg)
'Logger.Info("DiffMin: " & DiffMin)
'Logger.Info("Intervall: " & arr(1))
If DiffMin >= CInt(arr(1)) Then
'Den Durchlauf erlauben
Run_Profile = True
Else
Logger.Info("No run as DiffMin (" & DiffMin & ") <= Intervall(" & arr(1) & ")")
End If
Case Else
Logger.Warn("_profRunType konnte nicht ausgewertet werden - " & arr(0))
End Select
If Run_Profile = False And manually = True Then
Logger.Info("This is a manual run of profile!")
Run_Profile = True
End If
If Run_Profile = True Then
clsCURRENT.DT_TBDD_EMAIL = clsDatatabase.Return_Datatable("SELECT * FROM TBDD_EMAIL_ACCOUNT WHERE ACTIVE = 1")
Logger.Info($"Working on profile '{_Profilname}'")
clsCURRENT.DT_TBDD_EMAIL = _database.Return_Datatable("SELECT * FROM TBDD_EMAIL_ACCOUNT WHERE ACTIVE = 1")
clsCURRENT.PROFILE_HandledFiles = Nothing
Logger.Info("Start des Durchlaufes für Profil '" & _Profilname & "'")
Logger.Debug("Start RUN of profile '" & _Profilname & "'")
'den Durchlaufszeitpunkt speichern
clsDatatabase.Execute_non_Query("Update TBWMRH_PROFIL SET Running = 1 WHERE GUID = " & _profGUID)
Logger.Info("Prüfen der windream-Suche.......")
If File.Exists(_profwdSuche) = False Then
Logger.Warn("Die Windream-Suche '" & _profwdSuche & "' existiert nicht!", True, "clsProfil.Profil_Durchlauf")
'wenn die gesuchte File eine Suche ist: per MAil informierne und Indexierung abbrechen
clsDatatabase.Execute_non_Query("Update TBWMRH_PROFIL SET Running = 0 WHERE GUID = " & _profGUID)
Return False
Else
' windream-Suche für Profil starten
Logger.Info("GetSearchDocuments für Suche '" & _profwdSuche & "' starten: ")
Dim windreamSucheErgebnisse As WMObjects = clsWindream_allgemein.GetSearchDocuments(_profwdSuche)
Logger.Debug("GetSearchDocuments für Suche '" & _profwdSuche & "' starten: ")
Dim windreamSucheErgebnisse As WMObjects = windream.GetSearchDocuments(_profwdSuche)
If windreamSucheErgebnisse Is Nothing Then
Logger.Warn("windreamSucheErgebnisse is nothing!", True, "clsProfil.Profil_Durchlauf")
Return False
End If
If windreamSucheErgebnisse.Count > 0 Then
Logger.Info("- Insgesamt sollen '" & windreamSucheErgebnisse.Count & "' Dateien bearbeitet werden")
Logger.Info("SELECT * FROM TBWMRH_PROFIL_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE")
Dim DT_PROFIL_JOB As DataTable = clsDatatabase.Return_Datatable("SELECT * FROM TBWMRH_PROFIL_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE")
Dim DT_PROFIL_FILE_JOB As DataTable = clsDatatabase.Return_Datatable("SELECT * FROM TBWMRH_PROFIL_FILE_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE")
Logger.Info("DT_PROFIL_JOB und DT_PROFIL_FILE_JOB generiert ")
Logger.Info("DT_PROFIL_JOB.Rows.Count = " & DT_PROFIL_JOB.Rows.Count)
Logger.Info("DT_PROFIL_FILE_JOB.Rows.Count = " & DT_PROFIL_FILE_JOB.Rows.Count)
Logger.Info(windreamSucheErgebnisse.Count & " files shall be worked!")
Logger.Debug("SELECT * FROM TBWMRH_PROFIL_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE")
Dim DT_PROFIL_JOB As DataTable = _database.Return_Datatable("SELECT * FROM TBWMRH_PROFIL_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE")
Dim DT_PROFIL_FILE_JOB As DataTable = _database.Return_Datatable("SELECT * FROM TBWMRH_PROFIL_FILE_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE")
Logger.Debug($"DT_PROFIL_JOB ({DT_PROFIL_JOB.Rows.Count})and DT_PROFIL_FILE_JOB ({DT_PROFIL_FILE_JOB.Rows.Count}) generiert ")
If DT_PROFIL_JOB.Rows.Count > 0 Then
If clsDateiverarbeitung.InitProfilData = True Then
Logger.Info("clsDateiverarbeitung.InitProfilData = True")
If _dateiverarbeitung.InitProfilData = True Then
_database.Execute_non_Query("UPDATE TBWMRH_PROFIL SET Running = 1, LETZTER_DURCHLAUF = GETDATE() WHERE GUID = " & _profGUID)
Logger.Debug("_dateiverarbeitung.InitProfilData = True")
For Each _JOBROW As DataRow In DT_PROFIL_JOB.Rows
Logger.Info("JOB_TYP: " & _JOBROW.Item("JOB_TYP").ToString.ToUpper & " GUID: " & _JOBROW.Item("GUID").ToString)
Logger.Debug("JOB_TYP: " & _JOBROW.Item("JOB_TYP").ToString.ToUpper & " GUID: " & _JOBROW.Item("GUID").ToString)
Next
Dim FileJobSuccessful As Boolean = False
Dim CountExportedDoc As Integer = 0
@ -143,21 +164,26 @@ Public Class clsProfil
For Each DR_PR_JB As DataRow In DT_PROFIL_JOB.Rows
Select Case DR_PR_JB.Item("JOB_TYP").ToString.ToUpper
Case "Create Mail Attachment".ToUpper
Logger.Info("JobType: Create Mail Attachment")
'XX
Dim Email_Empfänger = DR_PR_JB.Item("STRING1")
Logger.Info("Email_Empfänger: " & Email_Empfänger)
Logger.Debug("Email_Empfänger: " & Email_Empfänger)
Dim Email_Betreff = DR_PR_JB.Item("STRING2")
Logger.Info("Email_Betreff: " & Email_Betreff)
Logger.Debug("Email_Betreff: " & Email_Betreff)
Dim Email_Body = DR_PR_JB.Item("STRING3")
Logger.Info("Email_Body: " & Email_Body)
Logger.Debug("Email_Body: " & Email_Body)
Dim EMAIL_PROFIL = DR_PR_JB.Item("STRING4")
Logger.Info("EMAIL_PROFIL: " & EMAIL_PROFIL)
Logger.Debug("EMAIL_PROFIL: " & EMAIL_PROFIL)
If Not IsNothing(clsCURRENT.DT_TBDD_EMAIL) And clsCURRENT.DT_TBDD_EMAIL.Rows.Count >= 1 Then
Dim oAttachment = clsCURRENT.WDLAUFWERK & ":" & WMdok.aPath
Dim MAILFROM As String = ""
Dim MAILSMTP As String = ""
Dim MAIL_USER As String = ""
Dim MAIL_USER_PW As String = ""
Dim MAIL_SSL As Boolean = False
Dim MAIL_AUTH_TYPE As String = "SSL"
Dim MAIL_PORT As String = "25"
For Each emailrow As DataRow In clsCURRENT.DT_TBDD_EMAIL.Rows
@ -166,7 +192,7 @@ Public Class clsProfil
MAILSMTP = emailrow.Item("EMAIL_SMTP")
MAIL_USER = emailrow.Item("EMAIL_USER")
MAIL_USER_PW = emailrow.Item("EMAIL_PW")
MAIL_SSL = emailrow.Item("SSL_AUTH")
MAIL_AUTH_TYPE = emailrow.Item("AUTH_TYPE")
MAIL_PORT = emailrow.Item("PORT")
End If
Next
@ -189,94 +215,88 @@ Public Class clsProfil
Return False
End If
If Email_Empfänger.ToString.Contains("[%") Then
Email_Empfänger = clsDateiverarbeitung.REGEX_REPLACE(WMdok, Email_Empfänger)
Logger.Info("Email_Empfänger: " & Email_Empfänger)
Email_Empfänger = _dateiverarbeitung.REGEX_REPLACE(WMdok, Email_Empfänger)
Logger.Debug("Email_Empfänger: " & Email_Empfänger)
End If
Email_Betreff = clsDateiverarbeitung.REGEX_REPLACE(WMdok, Email_Betreff)
Email_Body = clsDateiverarbeitung.REGEX_REPLACE(WMdok, Email_Body)
Dim FILENAME = clsCURRENT.WDLAUFWERK & ":" & WMdok.aPath
clsEmail.Email_Send_Independentsoft(Email_Betreff, Email_Body, Email_Empfänger, MAILFROM, MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_SSL, FILENAME)
Email_Betreff = _dateiverarbeitung.REGEX_REPLACE(WMdok, Email_Betreff)
Email_Body = _dateiverarbeitung.REGEX_REPLACE(WMdok, Email_Body)
If _email.Email_Send_Independentsoft(Email_Betreff, Email_Body, Email_Empfänger, MAILFROM, MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE, oAttachment) = True Then
FileJobSuccessful = True
Else
Logger.Warn("Email_Send_Independentsoft was not successfull!")
End If
Else
Logger.Warn("DT_TBDD_EMAIL is nothing or contains no rows")
Return False
End If
Case "Export HDD".ToUpper
Logger.Info("Case Export HDD")
Logger.Info("JobType: Case Export HDD")
'Für jedes Dokument in der Windream-Ergebnisliste
'For Each dok As WMObject In windreamSucheErgebnisse
' aktuelles Dokument zum Export bereitstellen
clsCURRENT.EXPORTED_FILENAME = ""
If clsDateiverarbeitung.Export_File(WMdok, DR_PR_JB.Item("STRING1")) = True Then
If _dateiverarbeitung.Export_File(WMdok, DR_PR_JB.Item("STRING1")) = True Then
ReDim Preserve clsCURRENT.PROFILE_HandledFiles(CountExportedDoc)
clsCURRENT.PROFILE_HandledFiles(CountExportedDoc) = clsCURRENT.EXPORTED_FILENAME
CountExportedDoc += 1
FileJobSuccessful = True
Else
clsDatatabase.Execute_non_Query("UPDATE TBWMRH_PROFIL SET Running = 0, LETZTER_DURCHLAUF = Getdate() WHERE GUID = " & _profGUID)
End If
'Next
Case "BNS json Download".ToUpper
FileJobSuccessful = clsDateiverarbeitung.BNSjsonDownload(WMdok, DR_PR_JB.Item("STRING1"), DR_PR_JB.Item("STRING2"))
Case "Send to printer".ToUpper
Try
Dim pdfxchange = clsCURRENT.DT_TBWMRH_KONFIGURATION.Rows(0).Item("PDF_XCHANGE_LOCATION")
Dim printername = DR_PR_JB.Item("STRING1")
Dim filename = clsCURRENT.WDLAUFWERK & ":" & WMdok.aPath '& "\" & WMdok.aName
If File.Exists(pdfxchange) = False Then
Logger.Warn("PDFXChange existiert nicht am Ort...")
Continue For
End If
Dim myProcess As New Process
myProcess.StartInfo.FileName = pdfxchange
myProcess.StartInfo.CreateNoWindow = False
'PDFXCView.exe / Print(): showui = yes c:\mydocument.pdf
Dim _argument As String = "/printto: """ & printername & """ """ & filename & """"
Logger.Info("JobType: BNS json Download")
FileJobSuccessful = _dateiverarbeitung.BNSjsonDownload(WMdok, DR_PR_JB.Item("STRING1"), DR_PR_JB.Item("STRING2"))
'Case "Send to printer".ToUpper
' Logger.Info("JobType: Send to printer")
' Dim pdfxchange = clsCURRENT.DT_TBWMRH_KONFIGURATION.Rows(0).Item("PDF_XCHANGE_LOCATION")
' Dim printername = DR_PR_JB.Item("STRING1")
' Dim filename = clsCURRENT.WDLAUFWERK & ":" & WMdok.aPath
' Try
myProcess.StartInfo.Arguments = _argument
Logger.Info("Arguments: " & _argument)
Try
myProcess.Start()
Dim p As Process
p = Process.GetProcessById(myProcess.Id)
' If File.Exists(pdfxchange) = False Then
' Logger.Warn("PDFXChange existiert nicht am Ort...")
' Continue For
' End If
' Dim myProcess As New Process
' myProcess.StartInfo.FileName = pdfxchange
' myProcess.StartInfo.UseShellExecute = True
' myProcess.StartInfo.CreateNoWindow = False
' 'PDFXCView.exe / Print(): showui = yes c:\mydocument.pdf
' Dim _argument As String = "/printto: """ & printername & """ """ & filename & """"
Dim sw As Stopwatch = New Stopwatch()
sw.Start()
' myProcess.StartInfo.Arguments = _argument
' Logger.Debug("Arguments: " & _argument)
' Try
' myProcess.Start()
' Dim p As Process
' p = Process.GetProcessById(myProcess.Id)
' Dim sw As Stopwatch = New Stopwatch()
' sw.Start()
' Do While p.HasExited = False
' If sw.Elapsed.TotalSeconds = 30 Then
' Logger.Info("Still waiting (30 sec) for ending of process-id: " & myProcess.Id.ToString)
' ElseIf sw.Elapsed.TotalMinutes = 1 Then
' Logger.Info("Still waiting (60 sec) for ending of process-id: " & myProcess.Id.ToString & " - Exit now")
' Exit Do
' End If
' Loop
' Logger.Debug("...process has exited: ")
' FileJobSuccessful = True
' sw.Stop()
' Catch ex As Exception
' Logger.Warn("Could not print (pdfxcv) file: " & filename)
' Logger.Error(ex)
' End Try
' Catch ex As Exception
' Logger.Error(ex)
' End Try
Do While p.HasExited = False
If sw.Elapsed.TotalSeconds = 30 Then
Logger.Info("Still waiting (30 sec) for ending of process-id: " & myProcess.Id.ToString)
ElseIf sw.Elapsed.TotalMinutes = 1 Then
Logger.Info("Still waiting (60 sec) for ending of process-id: " & myProcess.Id.ToString & " - Exit now")
Exit Do
End If
Loop
Logger.Info("...process has exited: ")
FileJobSuccessful = True
sw.Stop()
Catch ex As Exception
Logger.Error(ex)
End Try
Catch ex As Exception
Logger.Error(ex)
End Try
Case "Send InfoMail with WM-Search".ToUpper
If clsCURRENT.PROFILE_HandledFiles.Length - 1 <> CountExportedDoc Then
ReDim Preserve clsCURRENT.PROFILE_HandledFiles(CountExportedDoc)
clsCURRENT.PROFILE_HandledFiles(CountExportedDoc) = clsCURRENT.EXPORTED_FILENAME
CountExportedDoc += 1
End If
End Select
Next
'##################################
'JETZT DER DURCHLAUF DER DATEI-JOBS
@ -285,52 +305,69 @@ Public Class clsProfil
'Für jeden File-Job
For Each DR_PR_FILE_JOB As DataRow In DT_PROFIL_FILE_JOB.Rows
If FileJobSuccessful = False Then
Logger.Warn("AUSSTIEG FOR SCHLEIFE...")
Logger.Info("AUSSTIEG FOR SCHLEIFE...")
Exit For
End If
Select Case DR_PR_FILE_JOB.Item("TYP").ToString.ToLower
Case "Set Index".ToLower
Try
'Überprüfen ob Value bereits gesetzt wurde?
Dim idxName As String = DR_PR_FILE_JOB.Item("STRING1").ToString
Dim idxvalue As String = DR_PR_FILE_JOB.Item("STRING2").ToString
If idxvalue.Contains("[%DATETIME]") Then
idxvalue = idxvalue.Replace("[%DATETIME]", Now.ToString)
End If
Logger.Info("Datei soll mit Index '" & idxName & "'indexiert werden...")
idxvalue = _dateiverarbeitung.REGEX_REPLACE(WMdok, idxvalue)
Logger.Debug($"Index '{idxName}' shall be set with value '{idxvalue}'")
Dim arrIndex() As String
ReDim Preserve arrIndex(0)
arrIndex(0) = idxName
Logger.Info("...nach arrIndex")
Logger.Debug("...nach arrIndex")
Dim arrValue() As String
Dim aktvalue As Object
aktvalue = WMdok.GetVariableValue(idxName)
Logger.Info("...nach aktValue zuweisen..")
If aktvalue Is Nothing Then
Logger.Info("Index '" & idxName & "' ist noch leer.")
Logger.Debug("...nach aktValue zuweisen..")
Dim wmtype = clsWindream_allgemein.GetTypeOfIndexAsIntByName(idxName)
Dim is_vektor As Boolean = False
Select Case wmtype
Case 4097
is_vektor = True
Case 4098
is_vektor = True
Case 4099
is_vektor = True
Case 4101
is_vektor = True
Case 4103
is_vektor = True
Case 4107
is_vektor = True
Case 36865
is_vektor = True
End Select
If is_vektor = False Then
ReDim Preserve arrValue(0)
arrValue(0) = idxvalue
Else
Logger.Info("Index '" & idxName & "' ist bereits gefüllt.")
Dim myArray()
ReDim myArray(0)
myArray(0) = idxvalue
Dim VektorArray()
VektorArray = Return_VektorArray(WMdok, idxName, myArray, True)
If VektorArray Is Nothing = False Then
ReDim arrValue(VektorArray.Length - 1)
Array.Copy(VektorArray, arrValue, VektorArray.Length)
End If
End If
If arrValue Is Nothing = False Then
clsWindream_Index.RunIndexing(WMdok, arrIndex, arrValue, _profObjekttyp)
' MsgBox("now indexing with: " & idxvalue)
windream_index.RunIndexing(WMdok, arrIndex, arrValue, _profObjekttyp)
Else
Logger.Warn("arrValue is nothing - keine Indexierung")
End If
@ -340,17 +377,17 @@ Public Class clsProfil
'clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(SetIndex)")
End Try
Case "Rename File with windream Index".ToLower
Logger.Info("Exportierte Datei soll nach Indexvorgaben umbenannt werden...")
clsDateiverarbeitung.Rename_File(WMdok, DR_PR_FILE_JOB.Item("STRING1").ToString)
Logger.Debug("Exportierte Datei soll nach Indexvorgaben umbenannt werden...")
_dateiverarbeitung.Rename_File(WMdok, DR_PR_FILE_JOB.Item("STRING1").ToString)
Case "Rename File with WMVector (only one)".ToLower
Logger.Info("Exportierte Datei soll nach VektorIndexvorgaben umbenannt werden...")
clsDateiverarbeitung.Rename_File_Vektor(WMdok, DR_PR_FILE_JOB.Item("STRING1").ToString)
Logger.Debug("Exportierte Datei soll nach VektorIndexvorgaben umbenannt werden...")
_dateiverarbeitung.Rename_File_Vektor(WMdok, DR_PR_FILE_JOB.Item("STRING1").ToString)
Case "Execute Oracle Command".ToLower
Try
Logger.Info("Execute Oracle Command.......")
Logger.Debug("Execute Oracle Command.......")
Dim oracleconnectionstring = DR_PR_FILE_JOB.Item("STRING1").ToString
Dim oracleCommandRAW = DR_PR_FILE_JOB.Item("STRING2").ToString
FileJobSuccessful = clsDateiverarbeitung.RUN_ORACLE_COMMAND(WMdok, oracleconnectionstring, oracleCommandRAW)
FileJobSuccessful = _dateiverarbeitung.RUN_ORACLE_COMMAND(WMdok, oracleconnectionstring, oracleCommandRAW)
Catch ex As Exception
Logger.Error(ex)
'clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(ExecuteOracleCommand)")
@ -359,8 +396,8 @@ Public Class clsProfil
Try
Dim MSSQLconnectionstring = DR_PR_FILE_JOB.Item("STRING1").ToString
Dim MSSQLCommandRAW = DR_PR_FILE_JOB.Item("STRING2").ToString
Logger.Info("Execute MSSQL Command.......")
FileJobSuccessful = clsDateiverarbeitung.RUN_MSSQL_COMMAND(WMdok, MSSQLconnectionstring, MSSQLCommandRAW)
Logger.Debug("Execute MSSQL Command.......")
FileJobSuccessful = _dateiverarbeitung.RUN_MSSQL_COMMAND(WMdok, MSSQLconnectionstring, MSSQLCommandRAW)
Catch ex As Exception
Logger.Error(ex)
'clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(ExecuteMSSQLCommand)")
@ -376,16 +413,16 @@ Public Class clsProfil
'Jetzt nochmal ein Durchlauf für Profiljobs wo alle Dateien abgearbeitet wurden.
For Each DR_PR_JB As DataRow In DT_PROFIL_JOB.Rows
Logger.Info("Now again working on profile-type: " & DR_PR_JB.Item("JOB_TYP") & " - ID: " & DR_PR_JB.Item("GUID"))
Logger.Info("New run for " & DR_PR_JB.Item("JOB_TYP").ToString.ToUpper)
Select Case DR_PR_JB.Item("JOB_TYP").ToString.ToUpper
Case "Concat Files to one pdf".ToUpper
Logger.Info("Case Concat Files to one pdf....")
Logger.Info("Again working on Case Concat Files to one pdf....")
Dim pdftk = clsCURRENT.DT_TBWMRH_KONFIGURATION.Rows(0).Item("PDF_TK_LOCATION")
Logger.Info("pdftk location: " & pdftk)
Logger.Debug("pdftk location: " & pdftk)
clsCURRENT.CONCATTED_FILE = DR_PR_JB.Item("STRING1")
Logger.Info("CONCATTED_FILE location: " & clsCURRENT.CONCATTED_FILE)
Logger.Debug("CONCATTED_FILE location: " & clsCURRENT.CONCATTED_FILE)
Dim deleteJaNein = DR_PR_JB.Item("STRING2").ToString.ToUpper
Logger.Info("deleteJaNein: " & deleteJaNein.ToString)
Logger.Debug("deleteJaNein: " & deleteJaNein.ToString)
If File.Exists(pdftk) Then
If File.Exists(clsCURRENT.CONCATTED_FILE) Then
Try
@ -420,7 +457,7 @@ Public Class clsProfil
End If
myProcess.StartInfo.Arguments = _argument & " cat output " & clsCURRENT.CONCATTED_FILE
Logger.Info("Arguments: " & _argument & " cat output " & clsCURRENT.CONCATTED_FILE)
Logger.Debug("Arguments: " & _argument & " cat output " & clsCURRENT.CONCATTED_FILE)
myProcess.Start()
ProcID = myProcess.Id
@ -439,12 +476,21 @@ Public Class clsProfil
Exit Do
End If
Loop
Logger.Info("...process has exited: ")
Logger.Debug("...process has exited: ")
sw.Stop()
Logger.Info("Waiting for file: " & clsCURRENT.CONCATTED_FILE)
Logger.Debug("Waiting for file: " & clsCURRENT.CONCATTED_FILE)
sw.Start()
Do While File.Exists(clsCURRENT.CONCATTED_FILE) = False
Console.WriteLine("...not existing!")
If sw.Elapsed.TotalSeconds = 30 Then
Logger.Info("ATTENTION: Still waiting (30 sec) for file: " & clsCURRENT.CONCATTED_FILE)
ElseIf sw.Elapsed.TotalMinutes = 1 Then
Logger.Info("ATTENTION: Still waiting (60 sec) for file: " & clsCURRENT.CONCATTED_FILE)
FileJobSuccessful = False
Exit Do
End If
Loop
sw.Stop()
If deleteJaNein = "JA" Then
For Each str As String In clsCURRENT.PROFILE_HandledFiles
Try
@ -465,23 +511,23 @@ Public Class clsProfil
Logger.Warn("pdftk is not existing")
End If
Case "Send concatted file via mail".ToUpper
Logger.Info("CASE Send concatted file via mail.... ")
Logger.Info("Working on CASE Send concatted file via mail.... ")
If File.Exists(clsCURRENT.CONCATTED_FILE) = True Then
Dim Email_Empfänger = DR_PR_JB.Item("STRING1")
Logger.Info("Email_Empfänger: " & Email_Empfänger)
Logger.Debug("Email_Empfänger: " & Email_Empfänger)
Dim Email_Betreff = DR_PR_JB.Item("STRING2")
Logger.Info("Email_Betreff: " & Email_Betreff)
Logger.Debug("Email_Betreff: " & Email_Betreff)
Dim Email_Body = DR_PR_JB.Item("STRING3")
Logger.Info("Email_Body: " & Email_Body)
Logger.Debug("Email_Body: " & Email_Body)
Dim EMAIL_PROFIL = DR_PR_JB.Item("STRING4")
Logger.Info("EMAIL_PROFIL: " & EMAIL_PROFIL)
Logger.Debug("EMAIL_PROFIL: " & EMAIL_PROFIL)
If Not IsNothing(clsCURRENT.DT_TBDD_EMAIL) And clsCURRENT.DT_TBDD_EMAIL.Rows.Count >= 1 Then
Dim MAILFROM As String = ""
Dim MAILSMTP As String = ""
Dim MAIL_USER As String = ""
Dim MAIL_USER_PW As String = ""
Dim MAIL_SSL As Boolean = False
Dim MAIL_AUTH_TYPE As String = "SSL"
Dim MAIL_PORT As Integer
For Each emailrow As DataRow In clsCURRENT.DT_TBDD_EMAIL.Rows
@ -490,11 +536,11 @@ Public Class clsProfil
MAILSMTP = emailrow.Item("EMAIL_SMTP")
MAIL_USER = emailrow.Item("EMAIL_USER")
MAIL_USER_PW = emailrow.Item("EMAIL_PW")
MAIL_SSL = emailrow.Item("SSL_AUTH")
MAIL_AUTH_TYPE = emailrow.Item("AUTH_TYPE")
MAIL_PORT = emailrow.Item("PORT")
End If
Next
Logger.Debug($"MailCredentials: {MAILFROM}-{MAIL_USER}-{MAIL_USER_PW}")
Dim wrapper As New clsEncryption("!35452didalog=")
Dim PWPlain = wrapper.DecryptData(MAIL_USER_PW)
@ -502,9 +548,7 @@ Public Class clsProfil
If PWPlain <> "" Then
MAIL_USER_PW = PWPlain
Else
Logger.Warn("PWPlain is string.empty - Could not decrypt passwort")
Return False
Logger.Info("PWPlain is string.empty!!")
End If
Else
@ -513,7 +557,11 @@ Public Class clsProfil
Return False
End If
clsEmail.Email_Send_Independentsoft(Email_Betreff, Email_Body, Email_Empfänger, MAILFROM, MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_SSL, clsCURRENT.CONCATTED_FILE)
If _email.Email_Send_Independentsoft(Email_Betreff, Email_Body, Email_Empfänger, MAILFROM, MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_AUTH_TYPE, clsCURRENT.CONCATTED_FILE) = True Then
FileJobSuccessful = True
Else
Logger.Warn("Email_Send_Independentsoft was not successfull!")
End If
Else
@ -525,9 +573,64 @@ Public Class clsProfil
Logger.Warn("File not existing: " & clsCURRENT.CONCATTED_FILE)
End If
Case "Send to printer".ToUpper
Logger.Info("Working on CASE Send to printer.... ")
Dim printername = DR_PR_JB.Item("STRING1")
For Each str As String In clsCURRENT.PROFILE_HandledFiles
Try
Dim myproc As Process = New Process()
myproc.StartInfo.FileName = """" & str & """"
myproc.StartInfo.Verb = "printto"
myproc.StartInfo.Arguments = printername
myproc.StartInfo.UseShellExecute = True
myproc.Start()
Dim p As Process
p = Process.GetProcessById(myproc.Id)
Dim sw As Stopwatch = New Stopwatch()
sw.Start()
Do While p.HasExited = False
If sw.Elapsed.TotalSeconds = 30 Then
Logger.Info("Still waiting (30 sec) for ending of process-id: " & myproc.Id.ToString)
ElseIf sw.Elapsed.TotalMinutes = 1 Then
Logger.Info("Still waiting (60 sec) for ending of process-id: " & myproc.Id.ToString & " - Exit now")
Exit Do
End If
Loop
Logger.Debug("...process has exited: ")
FileJobSuccessful = True
sw.Stop()
' myproc.Kill()
File.Delete(str)
Catch ex As Exception
Logger.Warn("Could not print (printto) file: " & str)
Logger.Error(ex)
End Try
Next
Case "Send InfoMail with WM-Search".ToUpper
Dim oWMResults As WMObjects = windream.GetSearchDocuments(_profwdSuche)
If oWMResults Is Nothing Then
Logger.Warn("windreamSucheErgebnisse is nothing ( Send InfoMail with WM-Search)!", True, "clsProfil.Profil_Durchlauf")
Return False
End If
If oWMResults.Count > 0 Then
If _JobWork.New_Mail_with_attachment(DR_PR_JB.Item("STRING1"), DR_PR_JB.Item("STRING2"), DR_PR_JB.Item("STRING3"), DR_PR_JB.Item("STRING4"), clsCURRENT.DT_TBDD_EMAIL, DR_PR_JB.Item("STRING5")) = True Then
FileJobSuccessful = True
If DT_PROFIL_FILE_JOB.Rows.Count > 0 Then
For Each DR_PR_FILE_JOB As DataRow In DT_PROFIL_FILE_JOB.Rows
For Each oWMDoc As WMObject In oWMResults
_dateiverarbeitung.Check_File_job(oWMDoc, DR_PR_FILE_JOB.Item("TYP").ToString.ToLower, DR_PR_FILE_JOB.Item("STRING1").ToString, DR_PR_FILE_JOB.Item("STRING2").ToString, _profObjekttyp, windream_index)
Next
Next
End If
End If
End If
End Select
If FileJobSuccessful = True Then
End If
Next
Else
Logger.Warn("Initialisierung Profil nicht erfolgreich")
@ -537,7 +640,7 @@ Public Class clsProfil
End If
Else
' keine Dateien zum Importieren
Logger.Warn("Keine windream-Dokumente für Profil '" & _Profilname & "' vorhanden/gefunden.")
Logger.Info("Keine windream-Dokumente für Profil '" & _Profilname & "' vorhanden/gefunden.")
End If
End If
@ -546,19 +649,16 @@ Public Class clsProfil
Logger.Info("Verarbeitung für heute NICHT konfiguriert")
End If
'Abschluss des Profiles
clsDatatabase.Execute_non_Query("UPDATE TBWMRH_PROFIL SET Running = 0, LETZTER_DURCHLAUF = GETDATE() WHERE GUID = " & _profGUID)
Logger.Info("'UPDATE TBWMRH_PROFIL SET Running = 0' ausgeführt")
_database.Execute_non_Query("UPDATE TBWMRH_PROFIL SET Running = 0 WHERE GUID = " & _profGUID)
Return True
'Catch ex As Exception
' clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf")
' clsDatatabase.Execute_non_Query("Update TBWMRH_PROFIL SET Running = 0 WHERE GUID = " & _profGUID)
' CriticalError = False
' Return False
'End Try
Catch ex As Exception
Logger.Error(ex)
_database.Execute_non_Query("Update TBWMRH_PROFIL SET Running = 0 WHERE GUID = " & _profGUID)
CriticalError = True
Return False
End Try
End Function
Private Shared Function Return_VektorArray(ByVal oDocument As WMObject, vktIndexName As String, NIIndexe As Object, CheckDuplikat As Boolean)
Private Function Return_VektorArray(ByVal oDocument As WMObject, vktIndexName As String, NIIndexe As Object, CheckDuplikat As Boolean)
Try
Dim missing As Boolean = False
Dim Anzahl As Integer = 0
@ -589,7 +689,7 @@ Public Class clsProfil
End If
Next
Else
Logger.Info("Duplikatprüfung soll durchgeführt werden.")
Logger.Debug("Duplikatprüfung soll durchgeführt werden.")
'Duplikat Prüfung an, also nur anhängen wenn Wert <>
For Each WDValue As Object In wertWD
If WDValue Is Nothing = False Then
@ -597,7 +697,7 @@ Public Class clsProfil
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern
ValueArray(Anzahl) = WDValue.ToString
Logger.Info("Value (" & Anzahl & ") " & WDValue.ToString)
Logger.Debug("Value (" & Anzahl & ") " & WDValue.ToString)
Anzahl += 1
End If
Next
@ -605,21 +705,21 @@ Public Class clsProfil
For Each NewValue As Object In NIIndexe
If NewValue Is Nothing = False Then
If ValueArray.Contains(NewValue) = False Then
Logger.Info("New Value (" & Anzahl & ") " & NewValue.ToString)
Logger.Debug("New Value (" & Anzahl & ") " & NewValue.ToString)
'Das Array anpassen
ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern
ValueArray(Anzahl) = NewValue.ToString
Anzahl += 1
Else
Logger.Info("Value '" & NewValue.ToString & "' bereits in Vektorfeld enthalten")
Logger.Debug("Value '" & NewValue.ToString & "' bereits in Vektorfeld enthalten")
End If
End If
Next
End If
End If
Else
Logger.Info("Vektorfeld ist noch leer....")
Logger.Debug("Vektorfeld ist noch leer....")
'Den/die Neuen Wert(e) anfügen
For Each NewValue As Object In NIIndexe
If NewValue Is Nothing = False Then
@ -632,7 +732,7 @@ Public Class clsProfil
ValueArray(Anzahl) = NewValue.ToString
Anzahl += 1
Else
Logger.Info("Value '" & NewValue.ToString & "' bereits in Array enthalten")
Logger.Debug("Value '" & NewValue.ToString & "' bereits in Array enthalten")
End If
Else 'Dererste Wert, also hinzufügen
'Das Array anpassen
@ -654,7 +754,7 @@ Public Class clsProfil
Next
End If
Logger.Info("Return ValueArray: length " & ValueArray.Length)
Logger.Debug("Return ValueArray: length " & ValueArray.Length)
Return ValueArray
Catch ex As Exception
Logger.Error(ex)

145
app/ClassWMResulthandler/clsWindream_Allgemein.vb
View File

@ -8,9 +8,10 @@ Imports WINDREAMLib.WMSearchRelation
Imports WMOBRWSLib
Imports WMOSRCHLib
Imports System.IO
Imports DigitalData.Modules.Logging
Public Class clsWindream_allgemein
Private Shared Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger
Dim Logger As Logger
#Region "+++++ Konstanten +++++"
Const DEBUG = AUS
Const AUS = 0
@ -32,7 +33,8 @@ Public Class clsWindream_allgemein
''' Konstruktor für die windream-Klasse
''' </summary>
''' <remarks></remarks>
Sub New()
Sub New(MyLogger As LogConfig)
Logger = MyLogger.GetLogger()
' wenn ein Fehler bei der Initialisierung auftrat
If Not Init() Then
' Nachricht ausgeben
@ -71,7 +73,7 @@ Public Class clsWindream_allgemein
' setzt die minimal erwartete windream-Version
oConnect.MinReqVersion = "3"
' Logger.Info("Personifizierung'")
' Logger.Debug("Personifizierung'")
' -- Impersonifizierung nur möglich mit registry-eintrag --
'oConnect.UserName = "\digitaldata\SchreiberM"
@ -79,8 +81,8 @@ Public Class clsWindream_allgemein
' Verbindung mit Session-Objekt (und dem ausgewählten Server) aufbauen
oConnect.LoginSession(oSession)
Logger.Info("windream-Server: '" & GetCurrentServer() & "'")
Logger.Info("windream-UserName: '" & oConnect.UserName & "'")
Logger.Debug("windream-Server: '" & GetCurrentServer() & "'")
Logger.Debug("windream-UserName: '" & oConnect.UserName & "'")
If oSession.aLoggedin = False Then
Logger.Warn("Es konnte keine Verbindung mit dem windream-Server hergestellt werden")
@ -114,7 +116,7 @@ Public Class clsWindream_allgemein
End Try
End If
Logger.Info("Alles OK - Erfolgreich angemeldet und Session aufgebaut")
Logger.Debug("Alles OK - Erfolgreich angemeldet und Session aufgebaut")
Return True
Catch ex As Exception
@ -299,9 +301,9 @@ Public Class clsWindream_allgemein
''' </summary>
''' <returns>Servername als String</returns>
''' <remarks></remarks>
Public Shared Function GetCurrentServer() As String
Public Function GetCurrentServer() As String
Try
Logger.Info(oBrowser.GetCurrentServer.ToString)
Logger.Debug(oBrowser.GetCurrentServer.ToString)
Return oBrowser.GetCurrentServer 'ClassWindream.oBrowser.GetCurrentServer
Catch ex As Exception
Logger.Error(ex)
@ -349,7 +351,7 @@ Public Class clsWindream_allgemein
''' <param name="indexname">Name des zu überprüfenden Indexfeldes</param>
''' <returns>Liefert eine Zahl, die einen Typen beschreibt</returns>
''' <remarks></remarks>
Public Function GetTypeOfIndexAsIntByName(ByVal indexname As String) As Integer
Public Shared Function GetTypeOfIndexAsIntByName(ByVal indexname As String) As Integer
Try
Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
Dim vType = oAttribute.getVariableValue("dwAttrType")
@ -393,14 +395,14 @@ Public Class clsWindream_allgemein
Return Nothing
End Try
End Function
Public Shared Function WDObject_exists(wdobj_location As String)
Public Function WDObject_exists(wdobj_location As String)
Dim WDObject As WMObject
Try
WDObject = oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, wdobj_location.Substring(2))
If WDObject Is Nothing Then
Return False
Else
Logger.Info("WDObject exists")
Logger.Debug("WDObject exists")
Return True
End If
@ -410,17 +412,17 @@ Public Class clsWindream_allgemein
Return False
End Try
End Function
Public Shared Function GetSearchDocuments(ByVal wdfLocation As String)
Public Function GetSearchDocuments(ByVal wdfLocation As String)
'wdfLocation = 'W:\System\Suchen\WDRH\TestPDF.wdf'
Try
Dim SearchName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1)
Dim SearchPath = wdfLocation.Substring(0, wdfLocation.Length - SearchName.Length)
Logger.Warn("WMSearch: " & wdfLocation.ToLower)
Logger.Debug("WMSearch: " & wdfLocation.ToLower)
If System.IO.File.Exists(wdfLocation.ToLower) Then
Logger.Info("Search exists")
Logger.Debug("Search exists")
End If
oController.CheckSearchProfile(wdfLocation.ToLower) 'wdfLocation.ToLower)
Logger.Info("oController erzeugt")
Logger.Debug("oController erzeugt")
Dim suchTyp = oController.SearchProfileTargetProgID
Dim ExSettings As Object
Dim oSearch As Object
@ -430,8 +432,8 @@ Public Class clsWindream_allgemein
Dim srchQuick As WMOSRCHLib.WMQuickSearch = CreateObject("WMOSrch.WMQuickSearch")
Dim srchIndex As WMOSRCHLib.WMIndexSearch = CreateObject("WMOSrch.WMIndexSearch")
Dim srchObjectType As WMOSRCHLib.WMObjectTypeSearch = CreateObject("WMOSrch.WMObjectTypeSearch")
Logger.Info("WD Objekte in GetSearchDocuments erzeugt")
Logger.Info(suchTyp.ToString.ToUpper)
Logger.Debug("WD Objekte in GetSearchDocuments erzeugt")
Logger.Debug(suchTyp.ToString.ToUpper)
'' Der öffentliche Member CheckSearchProfile für den Typ IWMQuickSearch7 wurde nicht gefunden. [Microsoft.VisualBasic] => GetSearchDocuments()
Select Case suchTyp.ToString.ToUpper
Case "WMOSRCH.WMQUICKSEARCH"
@ -444,15 +446,15 @@ Public Class clsWindream_allgemein
Case "WMOSRCH.WMINDEXSEARCH"
srchIndex.WMSession = CreateObject("Windream.WMSession", GetCurrentServer)
Logger.Info("Session created...")
Logger.Debug("Session created...")
oConnect.LoginSession(srchIndex.WMSession)
Logger.Info("LoginSession...")
Logger.Debug("LoginSession...")
srchIndex.SearchProfilePath = SearchPath
Logger.Info("SearchPath...")
Logger.Debug("SearchPath...")
srchIndex.LoadSearchProfile(SearchName)
Logger.Info("LoadSearchProfile...")
Logger.Debug("LoadSearchProfile...")
oSearch = srchIndex.GetSearch()
Logger.Info("GetSearch...")
Logger.Debug("GetSearch...")
Case "WMOSRCH.WMOBJECTTYPESEARCH"
srchObjectType.WMSession = CreateObject("Windream.WMSession", GetCurrentServer)
oConnect.LoginSession(srchObjectType.WMSession)
@ -468,15 +470,110 @@ Public Class clsWindream_allgemein
End Select
Dim WMObjects As Object
WMObjects = oSearch.Execute
Logger.Info("WD Objekte werden zurückgegeben")
Logger.Debug("WD Objekte werden zurückgegeben")
Return oSearch.execute
Catch ex As Exception
Logger.Error(ex)
Return Nothing
End Try
End Function
Public Function GetSearchDocumentsDT(ByVal wdfLocation As String, NameIndexDocID As String, NameIndexCreated As String) As DataTable
Dim dtresult As New DataTable
dtresult.Columns.Add("DOC_ID", GetType(Integer))
dtresult.Columns.Add("PATH", GetType(String))
dtresult.Columns.Add("CREATED", GetType(DateAndTime))
Logger.Debug($"Executing WMSearch: {wdfLocation}...")
Try
Dim SearchName = wdfLocation.Substring(wdfLocation.LastIndexOf("\") + 1)
Dim SearchPath = wdfLocation.Substring(0, wdfLocation.Length - SearchName.Length)
Dim oWMSZPath = wdfLocation.Substring(2).ToLower
Logger.Debug("oWMSZPath: " & oWMSZPath)
Try
oController.CheckSearchProfile(oWMSZPath) 'wdfLocation.ToLower)
Catch ex As Exception
Dim msg As String = ex.Message
Try
Logger.Debug("Unexpected Error in Creating oController: " & msg)
Logger.Debug("...NOW trying to implement \\windream\Objects ...")
Dim WmSearch_wmobject = "\\windream\Objects" & oWMSZPath
WmSearch_wmobject = WmSearch_wmobject.ToLower
oController.CheckSearchProfile(WmSearch_wmobject) 'wdfLocation.ToLower)
Catch ex1 As Exception
Logger.Warn("UnexpectedError im CreateController: " & msg)
Logger.Error(ex1)
Return dtresult
End Try
End Try
Logger.Debug("oController erzeugt")
Dim suchTyp = oController.SearchProfileTargetProgID
Dim ExSettings As Object
Dim oSearch As Object
ExSettings = oController.SearchProfileExSettings
If ExSettings = 0 Then ExSettings = 7
Dim srchQuick As WMOSRCHLib.WMQuickSearch = CreateObject("WMOSrch.WMQuickSearch")
Dim srchIndex As WMOSRCHLib.WMIndexSearch = CreateObject("WMOSrch.WMIndexSearch")
Dim srchObjectType As WMOSRCHLib.WMObjectTypeSearch = CreateObject("WMOSrch.WMObjectTypeSearch")
Logger.Debug("WMObjekte in GetSearchDocumentsDT erzeugt")
Logger.Debug(suchTyp.ToString.ToUpper)
Select Case suchTyp.ToString.ToUpper
Case "WMOSRCH.WMQUICKSEARCH"
srchQuick.WMSession = CreateObject("Windream.WMSession", GetCurrentServer)
oConnect.LoginSession(srchQuick.WMSession)
srchQuick.ClearSearch()
srchQuick.SearchProfilePath = SearchPath
srchQuick.LoadSearchProfile(SearchName)
oSearch = srchQuick.GetSearch()
Case "WMOSRCH.WMINDEXSEARCH"
srchIndex.WMSession = CreateObject("Windream.WMSession", GetCurrentServer)
Logger.Debug("Session created...")
oConnect.LoginSession(srchIndex.WMSession)
Logger.Debug("LoginSession...")
srchIndex.SearchProfilePath = SearchPath
Logger.Debug("SearchPath...")
srchIndex.LoadSearchProfile(SearchName)
Logger.Debug("LoadSearchProfile...")
oSearch = srchIndex.GetSearch()
Logger.Debug("GetSearch...")
Case "WMOSRCH.WMOBJECTTYPESEARCH"
srchObjectType.WMSession = CreateObject("Windream.WMSession", GetCurrentServer)
oConnect.LoginSession(srchObjectType.WMSession)
srchObjectType.ClearSearch()
srchObjectType.SearchProfilePath = SearchPath
srchObjectType.LoadSearchProfile(SearchName)
oSearch = srchObjectType.GetSearch()
Case Else
Logger.Warn("KEIN GÜLTIGER WINDREAM-SUCHTYP")
Return Nothing
End Select
Dim WMObjects As Object
WMObjects = oSearch.Execute
'If returnDT = True Then
If WMObjects.Count > 0 Then
For Each dok As WMObject In WMObjects
Dim path As String = dok.aPath
Dim DOC_ID = dok.GetVariableValue(NameIndexDocID)
Logger.Debug("Adding DocInfo for DocID: " & DOC_ID.ToString)
dtresult.Rows.Add(DOC_ID, path, dok.GetVariableValue(NameIndexCreated))
Next
dtresult.AcceptChanges()
Else
Logger.Info($"No results for WMSearch: {wdfLocation}!!")
End If
Return dtresult
Catch ex As Exception
Logger.Error(ex)
Return dtresult
End Try
End Function
#End Region

135
app/ClassWMResulthandler/clsWindream_Index.vb
View File

@ -1,8 +1,9 @@
Imports WINDREAMLib
Imports WMOSRCHLib
Imports DigitalData.Modules.Logging
Public Class clsWindream_Index
Inherits clsWindream_allgemein
Private Shared Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger
Dim Logger As Logger
#Region "+++++ Konstanten +++++"
Protected Const WMObjectEditModeObject = &H1F
Protected Const WMObjectStreamOpenModeReadWrite = 2
@ -35,8 +36,9 @@ Public Class clsWindream_Index
#End Region
#Region "+++++ Allgemeine Methoden und Funktionen +++++"
Sub New()
MyBase.New()
Sub New(MyLogger As LogConfig)
MyBase.New(MyLogger)
Logger = MyLogger.GetLogger()
End Sub
Private Shared Function IsNotEmpty(ByVal aValue As Object)
@ -112,7 +114,7 @@ Public Class clsWindream_Index
End Try
End Function
Public Shared Function RunIndexing_Vektor(ByVal oDocument As WMObject, ByVal Indizes As String(), ByVal aValues As String())
Public Function RunIndexing_Vektor(ByVal oDocument As WMObject, ByVal Indizes As String(), ByVal aValues As String())
Try
If Indizes IsNot Nothing And aValues IsNot Nothing Then
If Not oDocument.aLocked Then
@ -124,34 +126,34 @@ Public Class clsWindream_Index
'Jetzt jeden Indexwert durchlaufen
Dim indexname As String
indexname = Indizes(0)
Logger.Info("RunIndexing_Vektor: Indexname: " & indexname)
Logger.Debug("RunIndexing_Vektor: Indexname: " & indexname)
'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST
Logger.Info("RunIndexing_Vektor: VEKTORFELD-Indexierung: Vorbereiten des Arrays")
Logger.Debug("RunIndexing_Vektor: VEKTORFELD-Indexierung: Vorbereiten des Arrays")
' das entsprechende Attribut aus windream auslesen
Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
' den Variablentyp (String, Integer, ...) auslesen
Dim vType = oAttribute.getVariableValue("dwAttrType")
Select Case (vType)
Case 4097
Logger.Info("Typ des windream-Indexes: 4097 Vektor alphanumerisch")
Logger.Debug("Typ des windream-Indexes: 4097 Vektor alphanumerisch")
Case 4098
Logger.Info("Typ des windream-Indexes: 4098 Vektor Numerisch")
Logger.Debug("Typ des windream-Indexes: 4098 Vektor Numerisch")
Case 4099
Logger.Info("Typ des windream-Indexes: 4099 Vektor Kommazahl")
Logger.Debug("Typ des windream-Indexes: 4099 Vektor Kommazahl")
Case 4101
Logger.Info("Typ des windream-Indexes: 4101 Vektor Date")
Logger.Debug("Typ des windream-Indexes: 4101 Vektor Date")
Case 4103
Logger.Info("Typ des windream-Indexes: 4103 Vektor DateTime")
Logger.Debug("Typ des windream-Indexes: 4103 Vektor DateTime")
Case 4107
Logger.Info("Typ des windream-Indexes: 4107 Vektor Integer(64bit)")
Logger.Debug("Typ des windream-Indexes: 4107 Vektor Integer(64bit)")
Case 36865
Logger.Info("Typ des windream-Indexes: 36865 Vektor alphanumerisch")
Logger.Debug("Typ des windream-Indexes: 36865 Vektor alphanumerisch")
End Select
Dim myArray
Dim Anzahl As Integer = aValues.Length - 1
'Vektorfeld wird mit EINEM Wert gefüllt
If Anzahl = 0 Then
Logger.Info("RunIndexing_Vektor: Vektorfeld wird mit EINEM Wert gefüllt ")
Logger.Debug("RunIndexing_Vektor: Vektorfeld wird mit EINEM Wert gefüllt ")
ReDim myArray(0)
Select Case (vType)
Case 4097
@ -172,9 +174,9 @@ Public Class clsWindream_Index
Case 36865
myArray(0) = CStr(aValues(0))
End Select
Logger.Info("RunIndexing_Vektor: Konvertierter Wert: " & myArray(0).ToString)
Logger.Debug("RunIndexing_Vektor: Konvertierter Wert: " & myArray(0).ToString)
Else
Logger.Info("RunIndexing_Vektor: Vektorfeld wird mit MEHREREN Werten gefüllt ")
Logger.Debug("RunIndexing_Vektor: Vektorfeld wird mit MEHREREN Werten gefüllt ")
'Die Größe des Arrays festlegen
ReDim myArray(Anzahl)
Dim i1 As Integer = 0
@ -193,7 +195,7 @@ Public Class clsWindream_Index
Try
convertValue = CInt(wert)
Catch ex As Exception
Logger.Info("Wert muss in Int64 konvertiert werden")
Logger.Debug("Wert muss in Int64 konvertiert werden")
convertValue = Convert.ToInt64(wert) 'ToInt64
End Try
Else
@ -218,11 +220,11 @@ Public Class clsWindream_Index
End If
'Jetzt die Nachindexierung für Vektor-Felder
oDocument.SetVariableValue(indexname, myArray)
Logger.Info("RunIndexing_Vektor: 'SetVariableValue' für VEKTOR erfolgreich")
Logger.Debug("RunIndexing_Vektor: 'SetVariableValue' für VEKTOR erfolgreich")
oDocument.Save()
oDocument.unlock()
Logger.Info("RunIndexing_Vektor: Indexierung erfolgreich beendet (Save und Unlock durchgeführt)")
Logger.Debug("RunIndexing_Vektor: Indexierung erfolgreich beendet (Save und Unlock durchgeführt)")
Return True
End If
Else
@ -240,7 +242,7 @@ Public Class clsWindream_Index
End Function
Public Shared Function RunIndexing(ByVal oDocument As WMObject, ByVal Indizes() As String, ByVal aValues() As Object, Objekttyp As String)
Public Function RunIndexing(ByVal oDocument As WMObject, ByVal Indizes() As String, ByVal aValues() As Object, Objekttyp As String)
Try
If Indizes IsNot Nothing And aValues IsNot Nothing Then
If Not oDocument.aLocked Then
@ -248,16 +250,16 @@ Public Class clsWindream_Index
Dim i As Integer = 0
Dim indexname As String
If aValues.Length = 1 And aValues(0) = "" Then
Logger.Info("Indexwert ist leer/Nothing - Keine Indexierung")
Logger.Debug("Indexwert ist leer/Nothing - Keine Indexierung")
End If
' wenn der Datei noch kein Dokumenttyp zugewiesen wurde
If oDocument.aObjectType.aName <> Objekttyp Then
' ihr den entsprechenden Dokumenttyp zuweisen
oDocument.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, Objekttyp)
' WMObject.aObjectType = selectedProfile.Dokumenttyp
Logger.Info("Objekttyp war Standard und wurde in '" & Objekttyp & "' geändert.")
Logger.Debug("Objekttyp war Standard und wurde in '" & Objekttyp & "' geändert.")
Else
Logger.Info("Objekttyp war bereits gesetzt")
Logger.Debug("Objekttyp war bereits gesetzt")
End If
Try
@ -282,58 +284,58 @@ Public Class clsWindream_Index
Dim _dbl As Boolean = False
Dim _bool As Boolean = False
'If indexname = "Tournr" Then
' MsgBox("Index: " & indexname & vbNewLine & "wert: " & aValues(i), MsgBoxStyle.Information, "Index: " & aName.ToString)
'End If
Logger.Info("Indexierung von Index '" & indexname & "'")
'MsgBox(oDocument.aName & vbNewLine & aValues(i) & vbNewLine & vType, MsgBoxStyle.Exclamation, "Zeile 87")
Dim value = aValues(i)
Dim convertValue
Dim vektor As Boolean = False
'Den Typ des Index-Feldes auslesen
'MsgBox(value.GetType.ToString)
Select Case (vType)
'Case WMObjectVariableValueTypeUndefined
Case WMObjectVariableValueTypeString
Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeString")
Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeString")
convertValue = CStr(value)
Case WMObjectVariableValueTypeInteger
Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeInteger")
Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeInteger")
value = value.ToString.Replace(" ", "")
If IsNumeric(value) = False Then
Logger.Info("Achtung: Value '" & value & "' kann nicht in Zahl konvertiert werden!")
Logger.Debug("Achtung: Value '" & value & "' kann nicht in Zahl konvertiert werden!")
End If
value = value.ToString.Replace(" ", "")
convertValue = CInt(value)
_int = True
Case WMObjectVariableValueTypeFloat
Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeFloat")
Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeFloat")
value = value.ToString.Replace(" ", "")
convertValue = CDbl(value)
Case WMObjectVariableValueTypeFixedPoint
Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint")
Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint")
value = value.ToString.Replace(" ", "")
convertValue = CDbl(value)
_dbl = True
Case WMObjectVariableValueTypeBoolean
Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeBoolean")
Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeBoolean")
convertValue = CBool(value)
_bool = True
Case WMObjectVariableValueTypeDate
Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeDate")
Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeDate")
_date = True
'Dim _date As Date = value
convertValue = value
Case WMObjectVariableValueTypeTimeStamp
Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp")
Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp")
convertValue = CDbl(value)
Case WMObjectVariableValueTypeCurrency
Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeCurrency")
Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeCurrency")
'Wegen currency muß ein eigenes Objekt vom typ Variant erzeugt werden
Dim aValueWrapper As System.Runtime.InteropServices.CurrencyWrapper = New System.Runtime.InteropServices.CurrencyWrapper(CDec(value))
convertValue = aValueWrapper
Case WMObjectVariableValueTypeTime
Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeTime")
Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeTime")
'If ((value)) Then
' convertValue = CDate(value)
'Else
@ -342,50 +344,50 @@ Public Class clsWindream_Index
'Dim _date As Date = value
convertValue = convertValue '*_date.ToShortTimeString
Case WMObjectVariableValueTypeFloat
Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeFloat")
Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeFloat")
convertValue = CStr(value)
Case WMObjectVariableValueTypeVariant
Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeVariant")
Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeVariant")
convertValue = CStr(value)
Case WMObjectVariableValueTypeFulltext
Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeFulltext")
Logger.Debug("Typ des windream-Indexes: WMObjectVariableValueTypeFulltext")
convertValue = CStr(value)
Case 4097
Logger.Info("Typ des windream-Indexes: 4097 Vektor alphanumerisch")
Logger.Debug("Typ des windream-Indexes: 4097 Vektor alphanumerisch")
'Vektor alphanumerisch
vektor = True
Case 4098
Logger.Info("Typ des windream-Indexes: 4098 Vektor Numerisch")
Logger.Debug("Typ des windream-Indexes: 4098 Vektor Numerisch")
'Vektor Numerisch
vektor = True
Case 4099
Logger.Info("Typ des windream-Indexes: 4099 Vektor Kommazahl")
Logger.Debug("Typ des windream-Indexes: 4099 Vektor Kommazahl")
'Vektor Kommazahl
vektor = True
Case 4101
Logger.Info("Typ des windream-Indexes: 4101 Vektor Date")
Logger.Debug("Typ des windream-Indexes: 4101 Vektor Date")
'Vektor Kommazahl
vektor = True
Case 4103
Logger.Info("Typ des windream-Indexes: 4103 Vektor DateTime")
Logger.Debug("Typ des windream-Indexes: 4103 Vektor DateTime")
'Vektor DateTime
vektor = True
Case 4107
Logger.Info("Typ des windream-Indexes: 4107 Integer 64bit")
Logger.Debug("Typ des windream-Indexes: 4107 Integer 64bit")
vektor = True
Case 36865
Logger.Info("Typ des windream-Indexes: 36865 Vektor alphanumerisch")
Logger.Debug("Typ des windream-Indexes: 36865 Vektor alphanumerisch")
'Vektor Kommazahl
vektor = True
Case Else
Logger.Info("Typ des windream-Indexes konnte nicht bestimmt werden!")
Logger.Info("Versuch des Auslesens (vType): " & vType)
Logger.Debug("Typ des windream-Indexes konnte nicht bestimmt werden!")
Logger.Debug("Versuch des Auslesens (vType): " & vType)
'MsgBox(vType & vbNewLine & CStr(value), MsgBoxStyle.Exclamation, "Marlon-Case Else")
convertValue = ""
End Select
If vektor = False Then
If convertValue.ToString Is Nothing = False Then
Logger.Info("Konvertierter Wert: '" & convertValue.ToString & "'")
Logger.Debug("Konvertierter Wert: '" & convertValue.ToString & "'")
End If
End If
'############################################################################################
@ -393,7 +395,7 @@ Public Class clsWindream_Index
'############################################################################################
If vektor = False Then
If convertValue.ToString Is Nothing = False Then
Logger.Info("Versuch dem Dok einen Index zuzuweisen: oDocument.SetVariableValue(" & aName & ", " & convertValue & ")")
Logger.Debug("Versuch dem Dok einen Index zuzuweisen: oDocument.SetVariableValue(" & aName & ", " & convertValue & ")")
If _int = True Then
convertValue = convertValue.ToString.Replace(" ", "")
oDocument.SetVariableValue(aName, CInt(convertValue))
@ -413,7 +415,7 @@ Public Class clsWindream_Index
End If
Else
'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST
Logger.Info("VEKTORFELD: Vorbereiten des Arrays")
Logger.Debug("VEKTORFELD: Vorbereiten des Arrays")
Dim myArray()
'Dim DS As DataSet
@ -433,13 +435,12 @@ Public Class clsWindream_Index
'Dim foundRows() As DataRow
' Use the Select method to find all rows matching the filter.
'foundRows = DT.Select(expression)
'For Each row As DataRow In DT.Rows
'MsgBox(aName & vbNewLine & row.Item("Indexname") & vbNewLine & CStr(row.Item("Wert")))
'Next
Dim Anzahl As Integer = aValues.Length
'Vektorfeld wird mit EINEM Wert gefüllt
If Anzahl = 1 Then
Logger.Info("Vektorfeld wird mit EINEM Wert gefüllt ")
Logger.Debug("Vektorfeld wird mit EINEM Wert gefüllt ")
ReDim myArray(0)
Select Case vType
Case 36865
@ -469,9 +470,9 @@ Public Class clsWindream_Index
'Umwandeln in String
myArray(0) = CStr(value)
End Select
Logger.Info("Konvertierter Wert: " & myArray(0).ToString)
Logger.Debug("Konvertierter Wert: " & myArray(0).ToString)
Else
Logger.Info("Vektorfeld wird mit MEHREREN Werten gefüllt ")
Logger.Debug("Vektorfeld wird mit MEHREREN Werten gefüllt ")
Select Case vType
Case 36865
'Vektortyp ALPHANUMERISCH
@ -481,12 +482,12 @@ Public Class clsWindream_Index
'Die Datatable durchlaufen und Werte für den Index in Array schreiben
For Each NewValue As Object In aValues
myArray(i1) = CStr(NewValue)
Logger.Info("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
Logger.Debug("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
i1 = i1 + 1
Next
For Each NewValue As Object In aValues
myArray(i1) = CStr(NewValue)
Logger.Info("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
Logger.Debug("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
i1 = i1 + 1
Next
Case 4097
@ -497,7 +498,7 @@ Public Class clsWindream_Index
'Die Datatable durchlaufen und Werte für den Index in Array schreiben
For Each NewValue As Object In aValues
myArray(i1) = CStr(NewValue)
Logger.Info("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
Logger.Debug("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
i1 = i1 + 1
Next
Case 4107
@ -517,7 +518,7 @@ Public Class clsWindream_Index
For Each NewValue As Object In aValues
Dim v As String = NewValue.ToString.Replace(" ", "")
myArray(i1) = CInt(v)
Logger.Info("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
Logger.Debug("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
i1 = i1 + 1
Next
Case 4099
@ -530,7 +531,7 @@ Public Class clsWindream_Index
Dim Str As String = NewValue
Str = Str.ToString.Replace(" ", "")
myArray(i1) = CDbl(Str.Replace(".", ","))
Logger.Info("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
Logger.Debug("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
i1 = i1 + 1
Next
Case 4101
@ -542,7 +543,7 @@ Public Class clsWindream_Index
For Each NewValue As Object In aValues
Dim Str As String = NewValue.ToString
myArray(i1) = CDate(Str.Replace(".", ","))
Logger.Info("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
Logger.Debug("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
i1 = i1 + 1
Next
@ -554,7 +555,7 @@ Public Class clsWindream_Index
'Die Datatable durchlaufen und Werte für den Index in Array schreiben
For Each NewValue As Object In aValues
myArray(i1) = CStr(NewValue)
Logger.Info("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
Logger.Debug("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
i1 = i1 + 1
Next
End Select
@ -564,7 +565,7 @@ Public Class clsWindream_Index
Logger.Info("'SetVariableValue' für VEKTOR erfolgreich")
End If
Else
Logger.Info("Array der Indexwerte ist leer/Nothing - Keine Nachindexierung")
Logger.Debug("Array der Indexwerte ist leer/Nothing - Keine Nachindexierung")
End If
i += 1
@ -576,18 +577,20 @@ Public Class clsWindream_Index
oDocument.Save()
oDocument.unlock()
Logger.Info("Indexierung erfolgreich beendet (Save und Unlock durchgeführt)")
Logger.Info("")
Logger.Debug("Indexierung erfolgreich beendet (Save und Unlock durchgeführt)")
Return False
Else
' MsgBox("Dokument ist gesperrt, Indexierung erst im nächsten Durchlau", MsgBoxStyle.Critical)
Logger.Warn("Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!")
'oDocument.unlock()
Return True
End If
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
Logger.Error(ex)
'clsLogger.AddError(ex.Message, "ClassSearchResult.RunIndexing")
oDocument.Save()

24
app/DDWDResultHandler/App.config
View File

@ -4,9 +4,14 @@
<sectionGroup name="applicationSettings" type="System.Configuration.ApplicationSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="DDWDResultHandler.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
</sectionGroup>
<!-- For more information on Entity Framework configuration, visit http://go.microsoft.com/fwlink/?LinkID=237468 -->
<section name="entityFramework" type="System.Data.Entity.Internal.ConfigFile.EntityFrameworkSection, EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" requirePermission="false" />
<!-- For more information on Entity Framework configuration, visit http://go.microsoft.com/fwlink/?LinkID=237468 -->
</configSections>
<connectionStrings>
<add name="DDWDResultHandler.My.MySettings.SQLSERVER_CS_PMRefresh"
connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd"
providerName="System.Data.SqlClient" />
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
</startup>
@ -17,21 +22,6 @@
</setting>
</DDWDResultHandler.My.MySettings>
</applicationSettings>
<system.data>
<!--
NOTE: The extra "remove" element below is to prevent the design-time
support components within EF6 from selecting the legacy ADO.NET
provider for SQLite (i.e. the one without any EF6 support). It
appears to only consider the first ADO.NET provider in the list
within the resulting "app.config" or "web.config" file.
-->
<DbProviderFactories>
<add name="SQLite Data Provider" invariant="System.Data.SQLite" description=".NET Framework Data Provider for SQLite" type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
<remove invariant="System.Data.SQLite" />
<remove invariant="System.Data.SQLite.EF6" />
<add name="SQLite Data Provider (Entity Framework 6)" invariant="System.Data.SQLite.EF6" description=".NET Framework Data Provider for SQLite (Entity Framework 6)" type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
</DbProviderFactories>
</system.data>
<entityFramework>
<defaultConnectionFactory type="System.Data.Entity.Infrastructure.LocalDbConnectionFactory, EntityFramework">
<parameters>
@ -39,8 +29,8 @@
</parameters>
</defaultConnectionFactory>
<providers>
<provider invariantName="System.Data.SqlClient" type="System.Data.Entity.SqlServer.SqlProviderServices, EntityFramework.SqlServer" />
<provider invariantName="System.Data.SQLite.EF6" type="System.Data.SQLite.EF6.SQLiteProviderServices, System.Data.SQLite.EF6" />
<provider invariantName="System.Data.SqlClient" type="System.Data.Entity.SqlServer.SqlProviderServices, EntityFramework.SqlServer" />
</providers>
</entityFramework>
<runtime>

364
app/DDWDResultHandler/DDWDResultHandler.vb
View File

@ -1,16 +1,29 @@
Imports System.IO
'Imports System.Collections.ObjectModel
Imports System.ComponentModel
Imports Modules.Logging.Logger
Imports Modules.Logging
Imports DigitalData.Modules.Logging
Imports DD_WMResulthandler
Public Class DDWDResultHandler
#Region "+++++ Variablen +++++"
Private Shared _windream As DD_WMResulthandler.clsWindream_allgemein
Private Shared _MyLoggerConfig As Modules.Logging.Logger
Private _windream As DD_WMResulthandler.clsWindream_allgemein
Private _windreamPMR As DD_WMResulthandler.clsWindream_allgemein
Private _database As DD_WMResulthandler.clsDatabase
Private _databasePMR As DD_WMResulthandler.clsDatabase
Private _profil As clsProfil
Public Shared threadRunner As BackgroundWorker
Private Shared Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger
Public Shared threadPMRefresh As BackgroundWorker
Private Logger As Logger
Private Shared MyLogger As LogConfig
Private LoggerPMR As Logger
Private Shared MyLoggerPMR As LogConfig
Public Shared _PROFIL_ID As Integer
Dim _INTERVALL As Integer
Dim oFirstRun As Boolean = False
'Variablen für Dateiimporter
#End Region
@ -22,18 +35,20 @@ Public Class DDWDResultHandler
' Code zum Starten des Dienstes hier einfügen. Diese Methode sollte Vorgänge
' ausführen, damit der Dienst gestartet werden kann.
'EventLog1.WriteEntry("Dienst 'DD windream Result Handler' gestartet")
Try
If Not System.Diagnostics.EventLog.SourceExists("DDWMResultHandler") Then
System.Diagnostics.EventLog.CreateEventSource("DDWMResultHandlerr", "DigitalData Log")
System.Diagnostics.EventLog.CreateEventSource("DDWMResultHandler", "DigitalData Log")
End If
Catch ex As Exception
EventLog.WriteEntry("DDWMResultHandler", "ERROR in Creating source:" & ex.ToString(), EventLogEntryType.Error)
End Try
Try
Try
_MyLoggerConfig = New Logger(PathType.CurrentDirectory)
' clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "_SERVICEResultHandler")
Logger.Info("WindreamResultHandler gestartet - " & Now)
MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"))
Logger = MyLogger.GetLogger()
_database = New clsDatabase(MyLogger, My.Settings.SQLSERVER_CS)
Catch ex As Exception
EventLog.WriteEntry("DDWMResultHandler", "ERROR in CREATING-LOG:" & ex.ToString(), EventLogEntryType.Error)
End Try
@ -42,10 +57,16 @@ Public Class DDWDResultHandler
If My.Settings.SQLSERVER_CS = String.Empty Then
Logger.Warn("Achtung: Es wurde noch kein Datenbank-ConnectionString hinterlegt.")
Else
If DD_WMResulthandler.clsDatatabase.Init(My.Settings.SQLSERVER_CS) = False Then
If _database.Init(My.Settings.SQLSERVER_CS) = False Then
Logger.Warn("Achtung: Es konnte keine Verbindung zur Datenbank '" & My.Settings.SQLSERVER_CS & "' hergestellt werden!")
Else
If clsCURRENT.LOG_ERRORS_ONLY = False Then
MyLogger.Debug = True
Else
MyLogger.Debug = False
End If
oFirstRun = True
' '#Thread für Durchlauf generieren
DDWDResultHandler.threadRunner = New BackgroundWorker()
DDWDResultHandler.threadRunner.WorkerReportsProgress = True
@ -61,9 +82,29 @@ Public Class DDWDResultHandler
Timer_Durchlauf.Interval = 60000
'ClassLogger.Add("Timer - Intervall: " & clsSQLITE.konf_intervall & " Minuten", False)
Timer_Durchlauf.Enabled = True
Logger.Info("Timer gestartet")
Logger.Debug("Timer gestartet")
' Und den Durchlauf das erste Mal starten
DDWDResultHandler.threadPMRefresh = New BackgroundWorker()
DDWDResultHandler.threadPMRefresh.WorkerReportsProgress = True
DDWDResultHandler.threadPMRefresh.WorkerSupportsCancellation = True
AddHandler threadPMRefresh.DoWork, AddressOf RUNPMRefresh
AddHandler threadPMRefresh.RunWorkerCompleted, AddressOf ThreadPMRefresh_Completed
' '### Den Timer generieren
Dim TimerPMRefresh As New System.Timers.Timer()
'Das Event hinterlegen welches bei "Tick" ausgelöst wird
AddHandler TimerPMRefresh.Elapsed, AddressOf ThreadPMRefreshRun
' Set the Interval
TimerPMRefresh.Interval = 353000
'ClassLogger.Add("Timer - Intervall: " & clsSQLITE.konf_intervall & " Minuten", False)
TimerPMRefresh.Enabled = True
' Und den Durchlauf das erste Mal starten
threadRunner.RunWorkerAsync()
End If
End If
Catch ex As Exception
@ -72,69 +113,87 @@ Public Class DDWDResultHandler
End Try
End Sub
Public Shared Sub Thread_Run()
Public Sub Thread_Run()
If Not threadRunner.IsBusy Then
threadRunner.RunWorkerAsync()
End If
End Sub
Public Sub ThreadPMRefreshRun()
Logger.Info("In Tick of ThreadPMRefreshRun")
If Not threadPMRefresh.IsBusy Then
threadPMRefresh.RunWorkerAsync()
Else
Logger.Warn("threadPMRefresh IsBusy")
End If
End Sub
Protected Overrides Sub OnStop()
Try
' Hier Code zum Ausführen erforderlicher Löschvorgänge zum Beenden des Dienstes einfügen.
'EventLog1.WriteEntry("Dienst 'DD windream Result Handler' gestoppt")
Logger.Warn("WindreamResultHandler wurde gestoppt - " & Now)
DD_WMResulthandler.clsDatatabase.Execute_non_Query("Update TBWMRH_PROFIL SET Running = 1 WHERE GUID = " & _PROFIL_ID)
_database.Execute_non_Query("Update TBWMRH_PROFIL SET Running = 1 WHERE GUID = " & _PROFIL_ID)
Catch ex As Exception
EventLog.WriteEntry("DDWMResultHandler", "Unexpected error in OnStop: " & ex.ToString(), EventLogEntryType.Error)
End Try
End Sub
Public Shared Sub RUN_THREAD(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
Public Sub RUN_THREAD(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
Try
MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"))
Logger = MyLogger.GetLogger()
_database = New clsDatabase(MyLogger, My.Settings.SQLSERVER_CS)
Dim notcompleted As Boolean = False
'clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "_SERVICEResultHandler")
Logger.Info("Start Durchlauf WindreamResultHandler - " & Now)
Logger.Info("RUN_THREAD WMResulthandler started..")
' Windream instanziieren
_windream = New DD_WMResulthandler.clsWindream_allgemein()
_windream = New clsWindream_allgemein(MyLogger)
'windream initialisieren
If _windream.Init() = True Then
Logger.Info("windream vollumfänglich initialisiert!")
Logger.Debug("windream vollumfänglich initialisiert!")
'Zur sicherheit die DB nochmal initialiseren
If DD_WMResulthandler.clsDatatabase.Init(My.Settings.SQLSERVER_CS) = True Then
Dim DT As DataTable = DD_WMResulthandler.clsDatatabase.Return_Datatable("select * from TBWMRH_KONFIGURATION where GUID = 1")
If _database.Init(My.Settings.SQLSERVER_CS) = True Then
Dim DT As DataTable = _database.Return_Datatable("select * from TBWMRH_KONFIGURATION where GUID = 1")
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")
_MyLoggerConfig.Debug = Not 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.Info("Detaillog is ON!")
Logger.Debug("Detaillog is ON!")
End If
DD_WMResulthandler.clsCURRENT.WDLAUFWERK = DT.Rows(0).Item("WD_LAUFWERK")
End If
DT = DD_WMResulthandler.clsDatatabase.Return_Datatable("SELECT GUID FROM TBWMRH_PROFIL WHERE AKTIV = 1 order by REIHENFOLGE")
DT = _database.Return_Datatable("SELECT GUID FROM TBWMRH_PROFIL WHERE AKTIV = 1 order by REIHENFOLGE")
If DT.Rows.Count > 0 Then
Logger.Info("Anzahl der aktiven Profile: " & DT.Rows.Count.ToString)
Logger.Debug("Anzahl der aktiven Profile: " & DT.Rows.Count.ToString)
For Each DR As DataRow In DT.Rows
_PROFIL_ID = CInt(DR.Item("GUID"))
_profil = New clsProfil(MyLogger, _PROFIL_ID)
'Und nun das Profil durchlaufen
Dim initresult = DD_WMResulthandler.clsProfil.Init(_PROFIL_ID)
Dim initresult = _profil.Init(_PROFIL_ID)
If initresult = True Then
DD_WMResulthandler.clsProfil.Profil_Durchlauf()
'##### Profildurchlauf ########
_profil.Profil_Durchlauf(False)
ElseIf initresult = False Then
Logger.Warn("clsProfil konnte nicht initialisiert werden")
notcompleted = True
ElseIf initresult = 0 Then
Logger.Info("initresult: 0")
Logger.Debug("initresult: 0")
notcompleted = True
ElseIf initresult = 1 Then
Logger.Info("initresult: 1")
Logger.Debug("initresult: 1")
notcompleted = True
End If
Next
Else
Logger.Warn("Keine aktiven Profile vorhanden")
Logger.Warn("Keine aktiven Profile WMResulthandler vorhanden")
notcompleted = True
End If
DD_WMResulthandler.clsDatatabase.Execute_non_Query("UPDATE TBWMRH_KONFIGURATION SET LAST_TICK = GETDATE() WHERE GUID = 1")
_database.Execute_non_Query("UPDATE TBWMRH_KONFIGURATION SET LAST_TICK = GETDATE() WHERE GUID = 1")
If oFirstRun = True Then
oFirstRun = False
threadPMRefresh.RunWorkerAsync()
End If
Else
Logger.Warn("clsDatabase konnte nicht initialisiert werden!")
notcompleted = True
@ -151,8 +210,220 @@ Public Class DDWDResultHandler
End Try
End Sub
Public Sub RUNPMRefresh(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
Try
MyLoggerPMR = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log_PMRefresh"))
LoggerPMR = MyLoggerPMR.GetLogger()
_databasePMR = New clsDatabase(MyLoggerPMR, My.Settings.SQLSERVER_CS_PMRefresh)
_windreamPMR = New clsWindream_allgemein(MyLoggerPMR)
If _windreamPMR.Init() = True Then
If _databasePMR.Init(My.Settings.SQLSERVER_CS_PMRefresh) = True Then
Dim oDTPM_CONFIG As DataTable = _databasePMR.Return_Datatable("select * from TBPM_KONFIGURATION where GUID = 1")
If oDTPM_CONFIG.Rows.Count = 1 Then
Dim oConfigschedule = oDTPM_CONFIG.Rows(0).Item("SERVICE_SCHEDULE").ToString
Dim oConfigIDXName_DocID = oDTPM_CONFIG.Rows(0).Item("SERVICE_IDXNAME_DOCID").ToString
Dim oConfigIDXName_Created = oDTPM_CONFIG.Rows(0).Item("SERVICE_IDXNAME_CREATED").ToString
Dim oConfigWMDrive = oDTPM_CONFIG.Rows(0).Item("SERVICE_WMDRIVE_LETTER").ToString
Dim oConfigLOGERRONLY As Boolean = 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
MyLoggerPMR.Debug = True
LoggerPMR.Info("Detaillog Service PMRefresh is ON!")
Else
MyLoggerPMR.Debug = False
End If
Dim oDayofweek As Integer = My.Computer.Clock.LocalTime.DayOfWeek
Dim oSubstringInteger As Integer = 0
Dim oRunToday As Integer = 0
Select Case oDayofweek
Case 6 'Saturday
Case 5 'Friday
Case 4 'Thursday
Case 3 'Wednesday
Case 2 'Tuesday
Case 1 'Monday
Case 0 'Sunday
End Select
If oDayofweek = 0 Then
oSubstringInteger = 6
Else
oSubstringInteger = oDayofweek - 1
End If
oRunToday = oDays.Substring(oSubstringInteger, 1)
Dim oStep As String
If oRunToday = 1 Then
Dim oHourSplit As String() = oTimespan.Split("-")
Dim oMinHour As Integer = oHourSplit(0)
Dim oMaxHour As Integer = oHourSplit(1)
If CInt(Now.Hour) >= oMinHour And CInt(Now.Hour) < oMaxHour Then
LoggerPMR.Info($"Now running PM-Refresh ({oMinHour.ToString}#{oMaxHour.ToString})")
Try
LoggerPMR.Debug("Check_Profiles gestartet", False)
Dim WD_Search As String
Dim oSQLCommand As String
oSQLCommand = "SELECT GUID,NAME,WD_OBJECTTYPE,WD_SEARCH FROM TBPM_PROFILE WHERE ACTIVE = 1"
oStep = 1
Dim oDTPROFILES As DataTable = _databasePMR.Return_Datatable(oSQLCommand)
oStep = 2
Console.WriteLine(">> Evtl alte nicht aktualisierte PROFILE-FILE Daten werden gelöscht")
'---------------------- Evtl alte nicht aktualisierte PROFILE-FILE Daten werden gelöscht ------------------------
Dim oDelete As String = "DELETE FROM TBPM_PROFILE_FILES WHERE ACTIVE = 0 AND IN_WORK = 0"
_databasePMR.Execute_non_Query(oDelete)
oSQLCommand = "select * from TBPM_PROFILE_FILES"
Dim oDTPROFILE_FILES As DataTable = _databasePMR.Return_Datatable(oSQLCommand)
If oDTPROFILE_FILES.Rows.Count = 0 Then
LoggerPMR.Info("TBPM_PROFILE_FILES is completely empty...")
End If
'delete = "DELETE FROM TBPM_PROFILE_FILES_TEMP"
'ClassDatabase.Execute_MSSQL(delete)
oStep = 3
If oDTPROFILES.Rows.Count > 0 Then
Dim Profile_Row As System.Data.DataRow
'---------------------- für jedes Profil die Dateien überprüfen ------------------------
For Each Profile_Row In oDTPROFILES.Rows
oStep = "4a"
Console.WriteLine(">> Dateien für Profil '" & Profile_Row.Item("NAME") & "' eintragen")
LoggerPMR.Debug("Add info for profile '" & Profile_Row.Item("NAME") & "'")
Dim oPROFILE_ID As Integer = Profile_Row.Item("GUID")
WD_Search = Nothing
WD_Search = Profile_Row.Item("WD_SEARCH")
oStep = "4b"
If WD_Search Is Nothing = False Then
'---------------------- Die Dateien auslesen ------------------------
Dim oDTWM_Results As DataTable
oStep = "4c"
oDTWM_Results = _windreamPMR.GetSearchDocumentsDT(WD_Search, oConfigIDXName_DocID, oConfigIDXName_Created)
oStep = "4d"
Dim oDocCount As Integer = 0
If IsNothing(oDTWM_Results) Then
Continue For
End If
'Die aktuellen Files auf refreshed = 0 setzten
oSQLCommand = "UPDATE TBPM_PROFILE_FILES SET REFRESHED = 0 WHERE PROFIL_ID = " & oPROFILE_ID
If _databasePMR.Execute_non_Query(oSQLCommand) = True Then
If oDTWM_Results Is Nothing = False Then
If oDTWM_Results.Rows.Count > 0 Then
oStep = "4e"
'Ein Array mit Dateiinformationen anlegen
Dim Profil_Docs(oDTWM_Results.Rows.Count - 1, 2) As String
For Each oRow As DataRow In oDTWM_Results.Rows
Dim oDOC_ID = oRow.Item(0)
Dim oWMFilePath As String = oConfigWMDrive & ":" & oRow.Item(1)
Profil_Docs(oDocCount, 0) = oRow.Item(0)
Profil_Docs(oDocCount, 1) = oWMFilePath
'------DMS Erstell-Datum holen --------
Dim oDMSErstellt = oRow.Item(2)
'ClassLogger.Add(">> DMSErstellt: '" & DMSErstellt.ToString, False)
Dim date_EN As String
If oConfigIDXName_Created.EndsWith("reated") Then
Dim arr() = oDMSErstellt.ToString.Split(".")
If arr.Length = 3 Then
date_EN = arr(2).Replace(" 00:00:00", "") & "-" & arr(1) & "-" & arr(0)
LoggerPMR.Debug("date_EN: '" & date_EN)
oDMSErstellt = date_EN
End If
End If
'-------------------- Überprüfen ob das Dokument bereits enthalten ist? Kann nur passieren wenn das Dok gerade in Bearbeitung ist ----------
oSQLCommand = $"SELECT GUID FROM TBPM_PROFILE_FILES WHERE PROFIL_ID = {oPROFILE_ID} AND FILE_PATH = '{oWMFilePath}'"
Dim oCheck = _databasePMR.Execute_Scalar(oSQLCommand)
'---------------------- Das Dokument inserten ------------------------
Try
If oCheck Is Nothing Or oDTPROFILE_FILES.Rows.Count = 0 Then
Dim oInsert As String = $"INSERT INTO TBPM_PROFILE_FILES (PROFIL_ID, FILE_PATH, ACTIVE, DMS_ERSTELLT_DATE,DOC_ID) VALUES ({oPROFILE_ID}, '{oWMFilePath}',1, CONVERT(DATE,'{oDMSErstellt}'),{oDOC_ID})"
If _databasePMR.Execute_non_Query(oInsert) = False Then
LoggerPMR.Info($"Unexpected Error while Inserting File-Record {oDOC_ID}")
End If
' aktuelles Dokument der Klasse mitteilen
Else
If CInt(oCheck) > 0 Then
oSQLCommand = $"UPDATE TBPM_PROFILE_FILES SET REFRESHED = 1, EDIT = 0 WHERE GUID = {CInt(oCheck)}"
_databasePMR.Execute_non_Query(oSQLCommand)
End If
End If
Catch ex As Exception
LoggerPMR.Error(ex)
End Try
oDocCount += 1
Next
LoggerPMR.Info($"Profile '{Profile_Row.Item("NAME")} refreshed - FileCount {oDocCount.ToString}")
Else
oStep = "4g"
LoggerPMR.Info($"No Data for profile '{Profile_Row.Item("NAME")}'!")
End If
Else
LoggerPMR.Warn("oDTWM_Results IS NOTHING")
End If
oStep = "Step: vor Delete Refreshed = 0"
Dim oSQLDEL As String = "DELETE FROM TBPM_PROFILE_FILES WHERE PROFIL_ID = " & oPROFILE_ID & " AND REFRESHED = 0"
_databasePMR.Execute_non_Query(oSQLDEL)
'---------------------- Aktuelle Anzahl in Profiltabelle updaten ------------------------
oSQLCommand = $"UPDATE TBPM_PROFILE SET NO_OF_DOCUMENTS = {oDocCount} WHERE GUID = {oPROFILE_ID}"
oStep = "Step 4h AnzahlDocs: - " & oDocCount.ToString
_databasePMR.Execute_non_Query(oSQLCommand)
Else
LoggerPMR.Warn("ATTENTION: Refresh could not be executed " & oSQLCommand)
End If
End If
Next
oStep = "4i"
''------------------------------- Bearbeitete Daten löschen ------------------------
If _databasePMR.Execute_non_Query("DELETE FROM TBPM_PROFILE_FILES WHERE EDIT = 1") = True Then
' oStep = "i"
' Console.WriteLine(">> Alte PROFILE-FILE Daten geleert")
' '---------------------- DIE NEUEN DATEN AUF ACTIVE SETZEN ------------------------
' Dim update As String = "UPDATE TBPM_PROFILE_FILES SET ACTIVE = 1 WHERE ACTIVE = 0"
' ClassDatabase.Execute_MSSQL(update)
' oStep = "j"
' Console.WriteLine(">> Neue PROFILE-FILE Daten aktiv gesetzt")
End If
oStep = "4j"
_databasePMR.Execute_non_Query("EXEC PRPM_REMOVE_NE_FILES")
oStep = "4k"
Else
LoggerPMR.Debug("oDTPROFILES has no rows!")
End If
Catch ex As Exception
LoggerPMR.Info("Unexpected Error in RUNJob")
LoggerPMR.Warn("Error in RunJob- laststep: " & oStep)
LoggerPMR.Error(ex)
End Try
Else
LoggerPMR.Info($"No run of PMRefresh as hour is not in timespan ({CInt(Now.Hour)} >= {oMinHour} And {CInt(Now.Hour)} < {oMaxHour})")
End If
Else
LoggerPMR.Info($"No run of PMRefresh as today Is Not configured as RUN")
End If
End If
Else
LoggerPMR.Warn("Could not initialize the database of PMRefresh.")
End If
End If
Catch ex As Exception
LoggerPMR.Error(ex)
End Try
End Sub
#Region "*** BackgroundWorker beenden und Abbrechen ***"
Private Shared Sub Thread_Completed(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) 'Handles threadDateiimport.RunWorkerCompleted
Private Sub Thread_Completed(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) 'Handles threadDateiimport.RunWorkerCompleted
' This event fires when the DoWork event completes
Try
Dim result As String = ""
@ -176,7 +447,32 @@ Public Class DDWDResultHandler
EventLog.WriteEntry("DDWMResultHandler", "Unexpected error in Thread_Completed: " & ex.ToString(), EventLogEntryType.Error)
End Try
End Sub
Public Shared Function Thread_Abbrechen()
Private Sub ThreadPMRefresh_Completed(ByVal sender As Object, ByVal e As System.ComponentModel.RunWorkerCompletedEventArgs) 'Handles threadDateiimport.RunWorkerCompleted
' This event fires when the DoWork event completes
Try
Dim result As String = ""
If e.Cancelled Then
Logger.Warn("Der Process PMRefresh wurde durch den Anwender abgebrochen")
ElseIf e.Error IsNot Nothing Then
Logger.Warn("Fehler bei Durchlauf PMRefresh. Der Vorgang wird abgebrochen: " & e.Error.Message)
End If
'If DI_Verzeichnisloeschen Then
' Try
' My.Computer.FileSystem.DeleteDirectory(DI_Quellordner, FileIO.DeleteDirectoryOption.ThrowIfDirectoryNonEmpty)
' Catch ex As Exception
' ClassLogger.Add("ACHTUNG: Der Vorgang wurde abgeschlossen. Das Quellverzeichnis konnte jedoch nicht gelöscht werden, da sich in dem Ordner noch Dateien/Verzeichnisse befinden.", False)
' End Try
'End If
Catch ex As Exception
Logger.Error(ex, "Unexpected error in ThreadPMRefresh_Completed: ")
End Try
End Sub
Public Function Thread_Abbrechen()
Try
If DDWDResultHandler.threadRunner.IsBusy Then
DDWDResultHandler.threadRunner.CancelAsync()

11
app/DDWDResultHandler/My Project/Settings.Designer.vb generated
View File

@ -63,6 +63,17 @@ Namespace My
Return CType(Me("SQLSERVER_CS"),String)
End Get
End Property
<Global.System.Configuration.ApplicationScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.SpecialSettingAttribute(Global.System.Configuration.SpecialSetting.ConnectionString), _
Global.System.Configuration.DefaultSettingValueAttribute("Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info="& _
"True;User ID=sa;Password=dd")> _
Public ReadOnly Property SQLSERVER_CS_PMRefresh() As String
Get
Return CType(Me("SQLSERVER_CS_PMRefresh"),String)
End Get
End Property
End Class
End Namespace

8
app/DDWDResultHandler/My Project/Settings.settings
View File

@ -5,5 +5,13 @@
<Setting Name="SQLSERVER_CS" Type="System.String" Scope="Application">
<Value Profile="(Default)">Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security Info=True;User ID=sa;Password=dd</Value>
</Setting>
<Setting Name="SQLSERVER_CS_PMRefresh" Type="(Connection string)" Scope="Application">
<DesignTimeValue Profile="(Default)">&lt;?xml version="1.0" encoding="utf-16"?&gt;
&lt;SerializableConnectionString xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema"&gt;
&lt;ConnectionString&gt;Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd&lt;/ConnectionString&gt;
&lt;ProviderName&gt;System.Data.SqlClient&lt;/ProviderName&gt;
&lt;/SerializableConnectionString&gt;</DesignTimeValue>
<Value Profile="(Default)">Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_TEST;Persist Security Info=True;User ID=sa;Password=dd</Value>
</Setting>
</Settings>
</SettingsFile>

58
app/DDWDResultHandler/SERV_DDWDResultHandler.vbproj → app/DDWDResultHandler/ServiceDDWDResultHandler.vbproj
View File

@ -14,6 +14,8 @@
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<TargetFrameworkProfile />
<NuGetPackageImportStamp>
</NuGetPackageImportStamp>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget>
@ -49,32 +51,26 @@
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="DD_WMResulthandler">
<HintPath>..\ClassWMResulthandler\bin\Debug\DD_WMResulthandler.dll</HintPath>
<Reference Include="DigitalData.Modules.Logging">
<HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
<HintPath>..\packages\EntityFramework.6.1.1\lib\net45\EntityFramework.dll</HintPath>
<HintPath>..\packages\EntityFramework.6.2.0\lib\net45\EntityFramework.dll</HintPath>
</Reference>
<Reference Include="EntityFramework.SqlServer">
<HintPath>..\packages\EntityFramework.6.1.1\lib\net45\EntityFramework.SqlServer.dll</HintPath>
<Reference Include="EntityFramework.SqlServer, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
<HintPath>..\packages\EntityFramework.6.2.0\lib\net45\EntityFramework.SqlServer.dll</HintPath>
</Reference>
<Reference Include="Interop.WINDREAMLib">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
<EmbedInteropTypes>False</EmbedInteropTypes>
</Reference>
<Reference Include="Microsoft.CSharp" />
<Reference Include="Modules.Logging">
<HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="Newtonsoft.Json, Version=10.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<HintPath>..\packages\Newtonsoft.Json.10.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
<Reference Include="Newtonsoft.Json, Version=11.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<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>
</Reference>
<Reference Include="Oracle.ManagedDataAccess">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.ComponentModel.DataAnnotations" />
<Reference Include="System.Configuration" />
@ -175,40 +171,16 @@
</None>
<None Include="packages.config" />
</ItemGroup>
<ItemGroup>
<COMReference Include="WMOBRWSLib">
<Guid>{25B51999-6DCA-11D4-B815-00104BB52DEA}</Guid>
<VersionMajor>1</VersionMajor>
<VersionMinor>0</VersionMinor>
<Lcid>0</Lcid>
<WrapperTool>tlbimp</WrapperTool>
<Isolated>False</Isolated>
<EmbedInteropTypes>True</EmbedInteropTypes>
</COMReference>
<COMReference Include="WMOSRCHLib">
<Guid>{BE4F1D13-88A8-11D4-B3FA-0001021F035F}</Guid>
<VersionMajor>1</VersionMajor>
<VersionMinor>0</VersionMinor>
<Lcid>0</Lcid>
<WrapperTool>tlbimp</WrapperTool>
<Isolated>False</Isolated>
<EmbedInteropTypes>True</EmbedInteropTypes>
</COMReference>
<COMReference Include="WMOTOOLLib">
<Guid>{A704B4C1-E1C1-11D2-B2A9-00104B066E1A}</Guid>
<VersionMajor>1</VersionMajor>
<VersionMinor>0</VersionMinor>
<Lcid>0</Lcid>
<WrapperTool>tlbimp</WrapperTool>
<Isolated>False</Isolated>
<EmbedInteropTypes>True</EmbedInteropTypes>
</COMReference>
</ItemGroup>
<ItemGroup>
<WCFMetadata Include="Service References\" />
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\ClassWMResulthandler\DD_WMResulthandler.vbproj">
<Project>{b3190aec-8dc4-4822-9609-54df5b976262}</Project>
<Name>DD_WMResulthandler</Name>
</ProjectReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<Import Project="..\packages\System.Data.SQLite.Core.1.0.94.0\build\net451\System.Data.SQLite.Core.targets" Condition="Exists('..\packages\System.Data.SQLite.Core.1.0.94.0\build\net451\System.Data.SQLite.Core.targets')" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">

8
app/DDWDResultHandler/packages.config
View File

@ -1,10 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<packages>
<package id="EntityFramework" version="6.1.1" targetFramework="net451" />
<package id="Newtonsoft.Json" version="10.0.3" targetFramework="net451" />
<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="System.Data.SQLite" version="1.0.94.1" targetFramework="net451" />
<package id="System.Data.SQLite.Core" version="1.0.94.0" targetFramework="net451" />
<package id="System.Data.SQLite.EF6" version="1.0.94.0" targetFramework="net451" />
<package id="System.Data.SQLite.Linq" version="1.0.94.1" targetFramework="net451" />
</packages>

6
app/ResultHandler_Konfig/App.config
View File

@ -8,7 +8,8 @@
<!-- For more information on Entity Framework configuration, visit http://go.microsoft.com/fwlink/?LinkID=237468 -->
</configSections>
<connectionStrings>
<add name="ResultHandler_Konfig.My.MySettings.SQLSERVER_CS" connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security Info=True;User ID=sa;Password=dd" providerName="System.Data.SqlClient" />
<add name="ResultHandler_Konfig.My.MySettings.SQLSERVER_CS" connectionString="Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM_RENOLIT;Persist Security Info=True;User ID=sa;Password=dd"
providerName="System.Data.SqlClient" />
</connectionStrings>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
@ -18,6 +19,9 @@
<setting name="BNSAPI_HOST" serializeAs="String">
<value />
</setting>
<setting name="EmailTestReceipiant" serializeAs="String">
<value />
</setting>
</ResultHandler_Konfig.My.MySettings>
</userSettings>
<system.data>

10
app/ResultHandler_Konfig/My Project/Resources.Designer.vb generated
View File

@ -140,6 +140,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property refresh_16xMD() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("refresh_16xMD", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>

7
app/ResultHandler_Konfig/My Project/Resources.resx
View File

@ -130,6 +130,9 @@
<data name="book_open" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\book_open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="folder_Open_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_Open_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="flag_green" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\flag_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -142,7 +145,7 @@
<data name="arrow_switch" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\arrow_switch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="folder_Open_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\folder_Open_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="refresh_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

12
app/ResultHandler_Konfig/My Project/Settings.Designer.vb generated
View File

@ -76,6 +76,18 @@ Namespace My
Me("BNSAPI_HOST") = value
End Set
End Property
<Global.System.Configuration.UserScopedSettingAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Configuration.DefaultSettingValueAttribute("")> _
Public Property EmailTestReceipiant() As String
Get
Return CType(Me("EmailTestReceipiant"),String)
End Get
Set
Me("EmailTestReceipiant") = value
End Set
End Property
End Class
End Namespace

3
app/ResultHandler_Konfig/My Project/Settings.settings
View File

@ -13,5 +13,8 @@
<Setting Name="BNSAPI_HOST" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
<Setting Name="EmailTestReceipiant" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
</Settings>
</SettingsFile>

181
app/ResultHandler_Konfig/MyDataset.Designer.vb generated
View File

@ -1111,13 +1111,13 @@ Partial Public Class MyDataset
Me.columnAktiv.DefaultValue = CType(true,Boolean)
Me.columnObjekttyp.AllowDBNull = false
Me.columnObjekttyp.MaxLength = 100
Me.columnWindreamSuche.AllowDBNull = false
Me.columnWindreamSuche.MaxLength = 500
Me.columnDay.AllowDBNull = false
Me.columnDay.MaxLength = 100
Me.columnRun.AllowDBNull = false
Me.columnRun.DefaultValue = CType("",String)
Me.columnRun.MaxLength = 100
Me.columnLetzter_Durchlauf.AllowDBNull = false
Me.columnLetzter_Durchlauf.DefaultValue = CType(TBWMRH_PROFILDataTable.columnLetzter_Durchlauf_defaultValue,Date)
Me.columnRunning.AllowDBNull = false
Me.columnRunning.DefaultValue = CType(false,Boolean)
@ -2336,6 +2336,8 @@ Partial Public Class MyDataset
Private columnSSL_AUTH As Global.System.Data.DataColumn
Private columnAUTH_TYPE As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New()
@ -2475,6 +2477,14 @@ Partial Public Class MyDataset
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property AUTH_TYPEColumn() As Global.System.Data.DataColumn
Get
Return Me.columnAUTH_TYPE
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _
@ -2512,9 +2522,9 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overloads Function AddTBDD_EMAIL_ACCOUNTRow(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal PORT As Integer, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SSL_AUTH As Boolean) As TBDD_EMAIL_ACCOUNTRow
Public Overloads Function AddTBDD_EMAIL_ACCOUNTRow(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal PORT As Integer, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SSL_AUTH As Boolean, ByVal AUTH_TYPE As String) As TBDD_EMAIL_ACCOUNTRow
Dim rowTBDD_EMAIL_ACCOUNTRow As TBDD_EMAIL_ACCOUNTRow = CType(Me.NewRow,TBDD_EMAIL_ACCOUNTRow)
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH}
Dim columnValuesArray() As Object = New Object() {Nothing, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH, AUTH_TYPE}
rowTBDD_EMAIL_ACCOUNTRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBDD_EMAIL_ACCOUNTRow)
Return rowTBDD_EMAIL_ACCOUNTRow
@ -2556,6 +2566,7 @@ Partial Public Class MyDataset
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
Me.columnSSL_AUTH = MyBase.Columns("SSL_AUTH")
Me.columnAUTH_TYPE = MyBase.Columns("AUTH_TYPE")
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -2587,6 +2598,8 @@ Partial Public Class MyDataset
MyBase.Columns.Add(Me.columnCHANGED_WHEN)
Me.columnSSL_AUTH = New Global.System.Data.DataColumn("SSL_AUTH", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSSL_AUTH)
Me.columnAUTH_TYPE = New Global.System.Data.DataColumn("AUTH_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnAUTH_TYPE)
Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AutoIncrement = true
Me.columnGUID.AutoIncrementSeed = 1
@ -2614,6 +2627,8 @@ Partial Public Class MyDataset
Me.columnCHANGED_WHO.MaxLength = 50
Me.columnSSL_AUTH.AllowDBNull = false
Me.columnSSL_AUTH.DefaultValue = CType(false,Boolean)
Me.columnAUTH_TYPE.AllowDBNull = false
Me.columnAUTH_TYPE.MaxLength = 20
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -2957,7 +2972,11 @@ Partial Public Class MyDataset
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property WindreamSuche() As String
Get
Try
Return CType(Me(Me.tableTBWMRH_PROFIL.WindreamSucheColumn),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WindreamSuche in Tabelle TBWMRH_PROFIL ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBWMRH_PROFIL.WindreamSucheColumn) = value
@ -2990,11 +3009,7 @@ Partial Public Class MyDataset
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property Letzter_Durchlauf() As Date
Get
Try
Return CType(Me(Me.tableTBWMRH_PROFIL.Letzter_DurchlaufColumn),Date)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Letzter_Durchlauf in Tabelle TBWMRH_PROFIL ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBWMRH_PROFIL.Letzter_DurchlaufColumn) = value
@ -3097,14 +3112,14 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsLetzter_DurchlaufNull() As Boolean
Return Me.IsNull(Me.tableTBWMRH_PROFIL.Letzter_DurchlaufColumn)
Public Function IsWindreamSucheNull() As Boolean
Return Me.IsNull(Me.tableTBWMRH_PROFIL.WindreamSucheColumn)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetLetzter_DurchlaufNull()
Me(Me.tableTBWMRH_PROFIL.Letzter_DurchlaufColumn) = Global.System.Convert.DBNull
Public Sub SetWindreamSucheNull()
Me(Me.tableTBWMRH_PROFIL.WindreamSucheColumn) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -4184,6 +4199,17 @@ Partial Public Class MyDataset
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property AUTH_TYPE() As String
Get
Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.AUTH_TYPEColumn),String)
End Get
Set
Me(Me.tableTBDD_EMAIL_ACCOUNT.AUTH_TYPEColumn) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsNAMENull() As Boolean
@ -4893,7 +4919,7 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, Profilname, Aktiv, Objekttyp, WindreamSuche, Day, Run, Letzte"& _
"r_Durchlauf, Running, Reihenfolge, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAE"& _
"NDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBWMRH_PROFIL"
"NDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBWMRH_PROFIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Reihenfolge"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(1).Connection = Me.Connection
@ -5278,41 +5304,39 @@ Namespace MyDatasetTableAdapters
Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBWMRH_PROFIL_FILE_JOB] ([PROFIL_ID], [TYP], [STRING1], [STRING2], ["& _
"STRING3], [STRING4], [BOOL1], [BOOL2], [BOOL3], [BOOL4], [AKTIV], [REIHENFOLGE],"& _
" [ERSTELLTWER], [ERSTELLTWANN], [GEAENDERTWER], [GEAENDERTWANN]) VALUES (@PROFIL"& _
"_ID, @TYP, @STRING1, @STRING2, @STRING3, @STRING4, @BOOL1, @BOOL2, @BOOL3, @BOOL"& _
"4, @AKTIV, @REIHENFOLGE, @ERSTELLTWER, @ERSTELLTWANN, @GEAENDERTWER, @GEAENDERTW"& _
"ANN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_ID, TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, B"& _
"OOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER,"& _
" GEAENDERTWANN FROM TBWMRH_PROFIL_FILE_JOB WHERE (GUID = SCOPE_IDENTITY())"
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBWMRH_PROFIL_FILE_JOB"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, TYP, STR"& _
"ING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE,"& _
" ERSTELLTWER, GEAENDERTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID,@TYP,@STRING1,@STRING2,@S"& _
"TRING3,@STRING4,@BOOL1,@BOOL2,@BOOL3,@BOOL4,@AKTIV,@REIHENFOLGE,@ERSTELLTWER,@GE"& _
"AENDERTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_ID, TYP, STRING1, STRING2, STRING3, STRING4, "& _
"BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAEN"& _
"DERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL_FILE_JOB WHERE (GUID = SCOPE_IDENTITY("& _
"))"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING3", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING4", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOOL1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOOL2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOOL3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOOL4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REIHENFOLGE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REIHENFOLGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFIL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING3", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING4", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOOL1", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOOL2", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOOL3", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BOOL4", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REIHENFOLGE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "REIHENFOLGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE TBWMRH_PROFIL_FILE_JOB"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TYP = @TYP, STRING1 = @ST"& _
"RING1, STRING2 = @STRING2, STRING3 = @STRING3, STRING4 = @STRING4, BOOL1 = @BOOL"& _
"1, BOOL2 = @BOOL2, BOOL3 = @BOOL3, BOOL4 = @BOOL4, AKTIV = @AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" REIHENFOLGE = @REIHENFOLGE, GEAENDERTWER = @GEAENDERTWER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _
" (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_ID, TYP, STRING1, STRING2, S"& _
"TRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ER"& _
"STELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL_FILE_JOB WHERE (GUID "& _
"= @GUID)"
" (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_ID, TYP, STRING1, STRING2, "& _
"STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, E"& _
"RSTELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL_FILE_JOB WHERE (GUID"& _
" = @GUID)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@ -5346,7 +5370,7 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(0).CommandText = "SELECT GUID, PROFIL_ID, TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BO"& _
"OL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, "& _
"GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBWMRH_PROFIL_FILE_JOB"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID ="& _
" @PID)"
" @PID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY REIHENFOLGE"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
@ -5435,23 +5459,7 @@ Namespace MyDatasetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
Public Overloads Overridable Function Insert( _
ByVal PROFIL_ID As Integer, _
ByVal TYP As String, _
ByVal STRING1 As String, _
ByVal STRING2 As String, _
ByVal STRING3 As String, _
ByVal STRING4 As String, _
ByVal BOOL1 As Boolean, _
ByVal BOOL2 As Boolean, _
ByVal BOOL3 As Boolean, _
ByVal BOOL4 As Boolean, _
ByVal AKTIV As Boolean, _
ByVal REIHENFOLGE As Integer, _
ByVal ERSTELLTWER As String, _
ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), _
ByVal GEAENDERTWER As String, _
ByVal GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer
Public Overloads Overridable Function Insert(ByVal PROFIL_ID As Integer, ByVal TYP As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal BOOL1 As Boolean, ByVal BOOL2 As Boolean, ByVal BOOL3 As Boolean, ByVal BOOL4 As Boolean, ByVal AKTIV As Boolean, ByVal REIHENFOLGE As Integer, ByVal ERSTELLTWER As String, ByVal GEAENDERTWER As String) As Integer
Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFIL_ID,Integer)
If (TYP Is Nothing) Then
Throw New Global.System.ArgumentNullException("TYP")
@ -5489,20 +5497,10 @@ Namespace MyDatasetTableAdapters
Else
Me.Adapter.InsertCommand.Parameters(12).Value = CType(ERSTELLTWER,String)
End If
If (ERSTELLTWANN.HasValue = true) Then
Me.Adapter.InsertCommand.Parameters(13).Value = CType(ERSTELLTWANN.Value,Date)
Else
Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
End If
If (GEAENDERTWER Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value
Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(14).Value = CType(GEAENDERTWER,String)
End If
If (GEAENDERTWANN.HasValue = true) Then
Me.Adapter.InsertCommand.Parameters(15).Value = CType(GEAENDERTWANN.Value,Date)
Else
Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value
Me.Adapter.InsertCommand.Parameters(13).Value = CType(GEAENDERTWER,String)
End If
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
@ -5825,7 +5823,7 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(0).CommandText = "SELECT GUID, PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1"& _
", BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTW"& _
"ER, GEAENDERTWANN, STRING5, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" STRING6"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _
"TBWMRH_PROFIL_JOB"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PID)"
"TBWMRH_PROFIL_JOB"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY REIHENFOLGE"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
@ -6287,6 +6285,7 @@ Namespace MyDatasetTableAdapters
tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO")
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
tableMapping.ColumnMappings.Add("SSL_AUTH", "SSL_AUTH")
tableMapping.ColumnMappings.Add("AUTH_TYPE", "AUTH_TYPE")
Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection
@ -6296,11 +6295,11 @@ Namespace MyDatasetTableAdapters
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, EMAIL_FROM, EMAIL"& _
"_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, SSL_AUTH)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES ("& _
"@NAME,@EMAIL_FROM,@EMAIL_SMTP,@EMAIL_USER,@EMAIL_PW,@PORT,@ACTIVE,@ADDED_WHO,@SS"& _
"L_AUTH); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, POR"& _
"T, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCO"& _
"UNT WHERE (GUID = SCOPE_IDENTITY())"
"_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, SSL_AUTH, AUTH_TYPE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALU"& _
"ES (@NAME,@EMAIL_FROM,@EMAIL_SMTP,@EMAIL_USER,@EMAIL_PW,@PORT,@ACTIVE,@AD"& _
"DED_WHO,@SSL_AUTH,@AUTH_TYPE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EM"& _
"AIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WH"& _
"EN FROM TBDD_EMAIL_ACCOUNT WHERE (GUID = SCOPE_IDENTITY())"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@ -6311,15 +6310,16 @@ Namespace MyDatasetTableAdapters
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SSL_AUTH", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SSL_AUTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AUTH_TYPE", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "AUTH_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection
Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, EMAIL_FROM = @E"& _
"MAIL_FROM, EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, EMAIL_PW = @EMAIL"& _
"_PW, PORT = @PORT, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
" SSL_AUTH = @SSL_AUTH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _
"T GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_"& _
"WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT WHERE (GUID ="& _
" @GUID)"
" SSL_AUTH = @SSL_AUTH, AUTH_TYPE = @AUTH_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @"& _
"Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL"& _
"_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EM"& _
"AIL_ACCOUNT WHERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@ -6330,6 +6330,7 @@ Namespace MyDatasetTableAdapters
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SSL_AUTH", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SSL_AUTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AUTH_TYPE", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "AUTH_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
End Sub
@ -6348,7 +6349,7 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACT"& _
"IVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _
"IVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH, AUTH_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM"& _
" TBDD_EMAIL_ACCOUNT"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub
@ -6430,7 +6431,7 @@ Namespace MyDatasetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal PORT As Integer, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal SSL_AUTH As Boolean) As Integer
Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal PORT As Integer, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal SSL_AUTH As Boolean, ByVal AUTH_TYPE As String) As Integer
If (NAME Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
Else
@ -6464,6 +6465,11 @@ Namespace MyDatasetTableAdapters
Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String)
End If
Me.Adapter.InsertCommand.Parameters(8).Value = CType(SSL_AUTH,Boolean)
If (AUTH_TYPE Is Nothing) Then
Throw New Global.System.ArgumentNullException("AUTH_TYPE")
Else
Me.Adapter.InsertCommand.Parameters(9).Value = CType(AUTH_TYPE,String)
End If
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then
@ -6483,7 +6489,7 @@ Namespace MyDatasetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
Public Overloads Overridable Function Update(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal PORT As Integer, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal SSL_AUTH As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
Public Overloads Overridable Function Update(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal PORT As Integer, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal SSL_AUTH As Boolean, ByVal AUTH_TYPE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer
If (NAME Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
Else
@ -6517,8 +6523,13 @@ Namespace MyDatasetTableAdapters
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String)
End If
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SSL_AUTH,Boolean)
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Integer)
If (AUTH_TYPE Is Nothing) Then
Throw New Global.System.ArgumentNullException("AUTH_TYPE")
Else
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(AUTH_TYPE,String)
End If
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GUID,Integer)
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then

38
app/ResultHandler_Konfig/MyDataset.xsc
View File

@ -6,6 +6,39 @@
</autogenerated>-->
<DataSetUISetting Version="1.00" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TableUISettings>
<TableUISetting Name="TBWMRH_PROFIL">
<ColumnUISettings>
<ColumnUISetting Name="Reihenfolge">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="NumericUpDown" Type="System.Windows.Forms.NumericUpDown" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>
<TableUISetting Name="TBWMRH_PROFIL_FILE_JOB">
<ColumnUISettings>
<ColumnUISetting Name="REIHENFOLGE">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="NumericUpDown" Type="System.Windows.Forms.NumericUpDown" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>
<TableUISetting Name="TBWMRH_PROFIL_JOB">
<ColumnUISettings>
<ColumnUISetting Name="REIHENFOLGE">
<ControlSettings>
<ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form">
<BindableControlInfo Name="NumericUpDown" Type="System.Windows.Forms.NumericUpDown" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting>
</ControlSettings>
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>
<TableUISetting Name="TBDD_EMAIL_ACCOUNT">
<ColumnUISettings>
<ColumnUISetting Name="ADDED_WHEN">
@ -18,6 +51,11 @@
<BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
<ColumnUISetting Name="AUTH_TYPE">
<ControlSettings><ControlSetting ArtifactName="Microsoft:System.Windows.Forms:Form" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<BindableControlInfo Name="ComboBox" Type="System.Windows.Forms.ComboBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings>
</ColumnUISetting>
</ColumnUISettings>
</TableUISetting>
</TableUISettings>

187
app/ResultHandler_Konfig/MyDataset.xsd
View File

@ -55,61 +55,62 @@ WHERE (GUID = 1)</CommandText>
<MainSource>
<DbSource ConnectionRef="SQLSERVER_CS (MySettings)" DbObjectName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DbObjectType="Table" FillMethodModifier="Public" FillMethodName="Fill" GenerateMethods="Both" GenerateShortCommands="true" GeneratorGetMethodName="GetData" GeneratorSourceName="Fill" GetMethodModifier="Public" GetMethodName="GetData" QueryType="Rowset" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetData" UserSourceName="Fill">
<DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM TBWMRH_PROFIL
WHERE (GUID = @Original_GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO TBWMRH_PROFIL
(Profilname, Aktiv, Objekttyp, WindreamSuche, Day, Run, Letzter_Durchlauf, Running, Reihenfolge, ERSTELLTWER)
VALUES (@Profilname,@Aktiv,@Objekttyp,@WindreamSuche,@Day,@Run,@Letzter_Durchlauf,@Running,@Reihenfolge,@ERSTELLTWER);
SELECT GUID, Profilname, Aktiv, Objekttyp, WindreamSuche, Day, Run, Letzter_Durchlauf, Running, Reihenfolge, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="Profilname" ColumnName="Profilname" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Profilname" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Profilname" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="Aktiv" ColumnName="Aktiv" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@Aktiv" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="Aktiv" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Objekttyp" ColumnName="Objekttyp" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Objekttyp" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Objekttyp" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WindreamSuche" ColumnName="WindreamSuche" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@WindreamSuche" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="WindreamSuche" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Day" ColumnName="Day" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Day" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Day" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Run" ColumnName="Run" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Run" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Run" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="Letzter_Durchlauf" ColumnName="Letzter_Durchlauf" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@Letzter_Durchlauf" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="Letzter_Durchlauf" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Running" ColumnName="Running" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@Running" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="Running" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Reihenfolge" ColumnName="Reihenfolge" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Reihenfolge" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="Reihenfolge" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="ERSTELLTWER" ColumnName="ERSTELLTWER" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ERSTELLTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Profilname" ColumnName="Profilname" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Profilname" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Profilname" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="Aktiv" ColumnName="Aktiv" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@Aktiv" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="Aktiv" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Objekttyp" ColumnName="Objekttyp" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Objekttyp" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Objekttyp" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WindreamSuche" ColumnName="WindreamSuche" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@WindreamSuche" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="WindreamSuche" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Day" ColumnName="Day" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Day" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Day" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Run" ColumnName="Run" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Run" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Run" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="Letzter_Durchlauf" ColumnName="Letzter_Durchlauf" DataSourceName="" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@Letzter_Durchlauf" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="Letzter_Durchlauf" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Running" ColumnName="Running" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@Running" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="Running" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Reihenfolge" ColumnName="Reihenfolge" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Reihenfolge" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="Reihenfolge" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="ERSTELLTWER" ColumnName="ERSTELLTWER" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ERSTELLTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, Profilname, Aktiv, Objekttyp, WindreamSuche, Day, Run, Letzter_Durchlauf, Running, Reihenfolge, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN
FROM TBWMRH_PROFIL</CommandText>
FROM TBWMRH_PROFIL
ORDER BY Reihenfolge</CommandText>
<Parameters />
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE TBWMRH_PROFIL
SET Profilname = @Profilname, Aktiv = @Aktiv, Objekttyp = @Objekttyp, WindreamSuche = @WindreamSuche, Day = @Day, Run = @Run, Letzter_Durchlauf = @Letzter_Durchlauf, Running = @Running, Reihenfolge = @Reihenfolge,
GEAENDERTWER = @GEAENDERTWER
WHERE (GUID = @Original_GUID);
SELECT GUID, Profilname, Aktiv, Objekttyp, WindreamSuche, Day, Run, Letzter_Durchlauf, Running, Reihenfolge, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="Profilname" ColumnName="Profilname" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Profilname" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Profilname" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="Aktiv" ColumnName="Aktiv" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@Aktiv" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="Aktiv" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Objekttyp" ColumnName="Objekttyp" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Objekttyp" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Objekttyp" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WindreamSuche" ColumnName="WindreamSuche" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@WindreamSuche" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="WindreamSuche" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Day" ColumnName="Day" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Day" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Day" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Run" ColumnName="Run" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Run" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Run" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="Letzter_Durchlauf" ColumnName="Letzter_Durchlauf" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@Letzter_Durchlauf" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="Letzter_Durchlauf" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Running" ColumnName="Running" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@Running" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="Running" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Reihenfolge" ColumnName="Reihenfolge" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Reihenfolge" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="Reihenfolge" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="GEAENDERTWER" ColumnName="GEAENDERTWER" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@GEAENDERTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="GEAENDERTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="Profilname" ColumnName="Profilname" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Profilname" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Profilname" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="Aktiv" ColumnName="Aktiv" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@Aktiv" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="Aktiv" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Objekttyp" ColumnName="Objekttyp" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Objekttyp" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Objekttyp" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="WindreamSuche" ColumnName="WindreamSuche" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@WindreamSuche" Precision="0" ProviderType="VarChar" Scale="0" Size="500" SourceColumn="WindreamSuche" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Day" ColumnName="Day" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Day" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Day" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Run" ColumnName="Run" DataSourceName="" DataTypeServer="varchar(100)" DbType="AnsiString" Direction="Input" ParameterName="@Run" Precision="0" ProviderType="VarChar" Scale="0" Size="100" SourceColumn="Run" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="Letzter_Durchlauf" ColumnName="Letzter_Durchlauf" DataSourceName="" DataTypeServer="datetime" DbType="DateTime" Direction="Input" ParameterName="@Letzter_Durchlauf" Precision="0" ProviderType="DateTime" Scale="0" Size="8" SourceColumn="Letzter_Durchlauf" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Running" ColumnName="Running" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@Running" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="Running" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Reihenfolge" ColumnName="Reihenfolge" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Reihenfolge" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="Reihenfolge" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="GEAENDERTWER" ColumnName="GEAENDERTWER" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@GEAENDERTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="GEAENDERTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</UpdateCommand>
@ -159,25 +160,25 @@ WHERE (GUID = @Original_GUID)</CommandText>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO [TBWMRH_PROFIL_FILE_JOB] ([PROFIL_ID], [TYP], [STRING1], [STRING2], [STRING3], [STRING4], [BOOL1], [BOOL2], [BOOL3], [BOOL4], [AKTIV], [REIHENFOLGE], [ERSTELLTWER], [ERSTELLTWANN], [GEAENDERTWER], [GEAENDERTWANN]) VALUES (@PROFIL_ID, @TYP, @STRING1, @STRING2, @STRING3, @STRING4, @BOOL1, @BOOL2, @BOOL3, @BOOL4, @AKTIV, @REIHENFOLGE, @ERSTELLTWER, @ERSTELLTWANN, @GEAENDERTWER, @GEAENDERTWANN);
<CommandText>INSERT INTO TBWMRH_PROFIL_FILE_JOB
(PROFIL_ID, TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, GEAENDERTWER)
VALUES (@PROFIL_ID,@TYP,@STRING1,@STRING2,@STRING3,@STRING4,@BOOL1,@BOOL2,@BOOL3,@BOOL4,@AKTIV,@REIHENFOLGE,@ERSTELLTWER,@GEAENDERTWER);
SELECT GUID, PROFIL_ID, TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL_FILE_JOB WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@TYP" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="TYP" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@STRING1" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="STRING1" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@STRING2" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="STRING2" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@STRING3" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="STRING3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@STRING4" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="STRING4" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@BOOL1" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL1" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@BOOL2" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL2" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@BOOL3" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@BOOL4" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL4" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@REIHENFOLGE" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="REIHENFOLGE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@ERSTELLTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@ERSTELLTWANN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ERSTELLTWANN" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@GEAENDERTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="GEAENDERTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@GEAENDERTWANN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="GEAENDERTWANN" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="PROFIL_ID" ColumnName="PROFIL_ID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="TYP" ColumnName="TYP" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@TYP" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="TYP" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING1" ColumnName="STRING1" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING1" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING1" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING2" ColumnName="STRING2" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING2" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING2" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING3" ColumnName="STRING3" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING3" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING4" ColumnName="STRING4" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING4" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING4" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="BOOL1" ColumnName="BOOL1" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL1" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL1" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="BOOL2" ColumnName="BOOL2" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL2" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL2" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="BOOL3" ColumnName="BOOL3" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL3" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="BOOL4" ColumnName="BOOL4" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL4" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL4" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="AKTIV" ColumnName="AKTIV" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="REIHENFOLGE" ColumnName="REIHENFOLGE" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@REIHENFOLGE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="REIHENFOLGE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="ERSTELLTWER" ColumnName="ERSTELLTWER" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ERSTELLTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="GEAENDERTWER" ColumnName="GEAENDERTWER" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@GEAENDERTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="GEAENDERTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
@ -185,7 +186,8 @@ SELECT GUID, PROFIL_ID, TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, B
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, PROFIL_ID, TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN
FROM TBWMRH_PROFIL_FILE_JOB
WHERE (PROFIL_ID = @PID)</CommandText>
WHERE (PROFIL_ID = @PID)
ORDER BY REIHENFOLGE</CommandText>
<Parameters>
<Parameter AllowDbNull="false" AutogeneratedName="PID" ColumnName="PROFIL_ID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_FILE_JOB" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
@ -264,27 +266,27 @@ WHERE (GUID = @Original_GUID)</CommandText>
</DbCommand>
</DeleteCommand>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO TBWMRH_PROFIL_JOB
(PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, STRING5, STRING6)
VALUES (@PROFIL_ID,@JOB_TYP,@STRING1,@STRING2,@STRING3,@STRING4,@BOOL1,@BOOL2,@BOOL3,@BOOL4,@AKTIV,@REIHENFOLGE,@ERSTELLTWER,@STRING5,@STRING6);
SELECT GUID, PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL_JOB WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="PROFIL_ID" ColumnName="PROFIL_ID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="JOB_TYP" ColumnName="JOB_TYP" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@JOB_TYP" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="JOB_TYP" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING1" ColumnName="STRING1" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING1" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING1" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING2" ColumnName="STRING2" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING2" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING2" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING3" ColumnName="STRING3" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING3" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING4" ColumnName="STRING4" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING4" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING4" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BOOL1" ColumnName="BOOL1" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL1" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL1" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BOOL2" ColumnName="BOOL2" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL2" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL2" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BOOL3" ColumnName="BOOL3" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL3" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BOOL4" ColumnName="BOOL4" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL4" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL4" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="AKTIV" ColumnName="AKTIV" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="REIHENFOLGE" ColumnName="REIHENFOLGE" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@REIHENFOLGE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="REIHENFOLGE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="ERSTELLTWER" ColumnName="ERSTELLTWER" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ERSTELLTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING5" ColumnName="STRING5" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING5" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING5" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING6" ColumnName="STRING6" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING6" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING6" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="PROFIL_ID" ColumnName="PROFIL_ID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="JOB_TYP" ColumnName="JOB_TYP" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@JOB_TYP" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="JOB_TYP" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING1" ColumnName="STRING1" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING1" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING1" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING2" ColumnName="STRING2" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING2" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING2" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING3" ColumnName="STRING3" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING3" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING4" ColumnName="STRING4" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING4" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING4" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BOOL1" ColumnName="BOOL1" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL1" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL1" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BOOL2" ColumnName="BOOL2" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL2" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL2" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BOOL3" ColumnName="BOOL3" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL3" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BOOL4" ColumnName="BOOL4" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL4" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL4" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="AKTIV" ColumnName="AKTIV" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="REIHENFOLGE" ColumnName="REIHENFOLGE" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@REIHENFOLGE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="REIHENFOLGE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="ERSTELLTWER" ColumnName="ERSTELLTWER" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ERSTELLTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING5" ColumnName="STRING5" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING5" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING5" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING6" ColumnName="STRING6" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING6" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING6" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
@ -293,37 +295,38 @@ SELECT GUID, PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL
<CommandText>SELECT GUID, PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN, STRING5,
STRING6
FROM TBWMRH_PROFIL_JOB
WHERE (PROFIL_ID = @PID)</CommandText>
WHERE (PROFIL_ID = @PID)
ORDER BY REIHENFOLGE</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="PID" ColumnName="PROFIL_ID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</SelectCommand>
<UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE TBWMRH_PROFIL_JOB
SET PROFIL_ID = @PROFIL_ID, JOB_TYP = @JOB_TYP, STRING1 = @STRING1, STRING2 = @STRING2, STRING3 = @STRING3, STRING4 = @STRING4, BOOL1 = @BOOL1, BOOL2 = @BOOL2, BOOL3 = @BOOL3,
BOOL4 = @BOOL4, AKTIV = @AKTIV, REIHENFOLGE = @REIHENFOLGE, GEAENDERTWER = @GEAENDERTWER, STRING5 = @STRING5, STRING6 = @STRING6
WHERE (GUID = @Original_GUID);
SELECT GUID, PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL_JOB WHERE (GUID = @GUID)</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="PROFIL_ID" ColumnName="PROFIL_ID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="JOB_TYP" ColumnName="JOB_TYP" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@JOB_TYP" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="JOB_TYP" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING1" ColumnName="STRING1" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING1" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING1" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING2" ColumnName="STRING2" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING2" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING2" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING3" ColumnName="STRING3" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING3" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING4" ColumnName="STRING4" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING4" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING4" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BOOL1" ColumnName="BOOL1" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL1" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL1" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BOOL2" ColumnName="BOOL2" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL2" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL2" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BOOL3" ColumnName="BOOL3" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL3" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BOOL4" ColumnName="BOOL4" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL4" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL4" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="AKTIV" ColumnName="AKTIV" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="REIHENFOLGE" ColumnName="REIHENFOLGE" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@REIHENFOLGE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="REIHENFOLGE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="GEAENDERTWER" ColumnName="GEAENDERTWER" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@GEAENDERTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="GEAENDERTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING5" ColumnName="STRING5" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING5" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING5" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING6" ColumnName="STRING6" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING6" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING6" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="PROFIL_ID" ColumnName="PROFIL_ID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="JOB_TYP" ColumnName="JOB_TYP" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@JOB_TYP" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="JOB_TYP" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING1" ColumnName="STRING1" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING1" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING1" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING2" ColumnName="STRING2" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING2" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING2" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING3" ColumnName="STRING3" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING3" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING4" ColumnName="STRING4" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING4" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING4" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BOOL1" ColumnName="BOOL1" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL1" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL1" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BOOL2" ColumnName="BOOL2" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL2" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL2" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BOOL3" ColumnName="BOOL3" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL3" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BOOL4" ColumnName="BOOL4" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL4" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL4" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="AKTIV" ColumnName="AKTIV" DataSourceName="" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="REIHENFOLGE" ColumnName="REIHENFOLGE" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@REIHENFOLGE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="REIHENFOLGE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="GEAENDERTWER" ColumnName="GEAENDERTWER" DataSourceName="" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@GEAENDERTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="GEAENDERTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING5" ColumnName="STRING5" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING5" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING5" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING6" ColumnName="STRING6" DataSourceName="" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING6" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING6" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
</DbCommand>
</UpdateCommand>
@ -379,8 +382,8 @@ WHERE (GUID = @Original_GUID)</CommandText>
<InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBDD_EMAIL_ACCOUNT
(NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, SSL_AUTH)
VALUES (@NAME,@EMAIL_FROM,@EMAIL_SMTP,@EMAIL_USER,@EMAIL_PW,@PORT,@ACTIVE,@ADDED_WHO,@SSL_AUTH);
(NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, SSL_AUTH, AUTH_TYPE)
VALUES (@NAME,@EMAIL_FROM,@EMAIL_SMTP,@EMAIL_USER,@EMAIL_PW,@PORT,@ACTIVE,@ADDED_WHO,@SSL_AUTH,@AUTH_TYPE);
SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT WHERE (GUID = SCOPE_IDENTITY())</CommandText>
<Parameters>
<Parameter AllowDbNull="true" AutogeneratedName="NAME" ColumnName="NAME" DataSourceName="DD_ECM_RENOLIT.dbo.TBDD_EMAIL_ACCOUNT" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@NAME" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="NAME" SourceColumnNullMapping="false" SourceVersion="Current" />
@ -392,12 +395,13 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM_RENOLIT.dbo.TBDD_EMAIL_ACCOUNT" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="ADDED_WHO" ColumnName="ADDED_WHO" DataSourceName="DD_ECM_RENOLIT.dbo.TBDD_EMAIL_ACCOUNT" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ADDED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ADDED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SSL_AUTH" ColumnName="SSL_AUTH" DataSourceName="DD_ECM_RENOLIT.dbo.TBDD_EMAIL_ACCOUNT" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SSL_AUTH" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SSL_AUTH" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="AUTH_TYPE" ColumnName="AUTH_TYPE" DataSourceName="DD_ECM_RENOLIT.dbo.TBDD_EMAIL_ACCOUNT" DataTypeServer="varchar(20)" DbType="AnsiString" Direction="Input" ParameterName="@AUTH_TYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="20" SourceColumn="AUTH_TYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters>
</DbCommand>
</InsertCommand>
<SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH
<CommandText>SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH, AUTH_TYPE
FROM TBDD_EMAIL_ACCOUNT</CommandText>
<Parameters />
</DbCommand>
@ -406,7 +410,7 @@ FROM TBDD_EMAIL_ACCOUNT</CommandText>
<DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBDD_EMAIL_ACCOUNT
SET NAME = @NAME, EMAIL_FROM = @EMAIL_FROM, EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, EMAIL_PW = @EMAIL_PW, PORT = @PORT, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO,
SSL_AUTH = @SSL_AUTH
SSL_AUTH = @SSL_AUTH, AUTH_TYPE = @AUTH_TYPE
WHERE (GUID = @Original_GUID);
SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT WHERE (GUID = @GUID)</CommandText>
<Parameters>
@ -419,6 +423,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A
<Parameter AllowDbNull="false" AutogeneratedName="ACTIVE" ColumnName="ACTIVE" DataSourceName="DD_ECM_RENOLIT.dbo.TBDD_EMAIL_ACCOUNT" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@ACTIVE" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="ACTIVE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="CHANGED_WHO" ColumnName="CHANGED_WHO" DataSourceName="DD_ECM_RENOLIT.dbo.TBDD_EMAIL_ACCOUNT" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@CHANGED_WHO" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="CHANGED_WHO" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="SSL_AUTH" ColumnName="SSL_AUTH" DataSourceName="DD_ECM_RENOLIT.dbo.TBDD_EMAIL_ACCOUNT" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@SSL_AUTH" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="SSL_AUTH" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="AUTH_TYPE" ColumnName="AUTH_TYPE" DataSourceName="DD_ECM_RENOLIT.dbo.TBDD_EMAIL_ACCOUNT" DataTypeServer="varchar(20)" DbType="AnsiString" Direction="Input" ParameterName="@AUTH_TYPE" Precision="0" ProviderType="VarChar" Scale="0" Size="20" SourceColumn="AUTH_TYPE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="Original_GUID" ColumnName="GUID" DataSourceName="DD_ECM_RENOLIT.dbo.TBDD_EMAIL_ACCOUNT" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_RENOLIT.dbo.TBDD_EMAIL_ACCOUNT" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
</Parameters>
@ -440,6 +445,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A
<Mapping SourceColumn="CHANGED_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
<Mapping SourceColumn="SSL_AUTH" DataSetColumn="SSL_AUTH" />
<Mapping SourceColumn="AUTH_TYPE" DataSetColumn="AUTH_TYPE" />
</Mappings>
<Sources />
</TableAdapter>
@ -509,7 +515,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="WindreamSuche" msprop:Generator_ColumnVarNameInTable="columnWindreamSuche" msprop:Generator_ColumnPropNameInRow="WindreamSuche" msprop:Generator_ColumnPropNameInTable="WindreamSucheColumn" msprop:Generator_UserColumnName="WindreamSuche">
<xs:element name="WindreamSuche" msprop:Generator_ColumnVarNameInTable="columnWindreamSuche" msprop:Generator_ColumnPropNameInRow="WindreamSuche" msprop:Generator_ColumnPropNameInTable="WindreamSucheColumn" msprop:Generator_UserColumnName="WindreamSuche" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="500" />
@ -530,7 +536,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="Letzter_Durchlauf" msprop:Generator_ColumnVarNameInTable="columnLetzter_Durchlauf" msprop:Generator_ColumnPropNameInRow="Letzter_Durchlauf" msprop:Generator_ColumnPropNameInTable="Letzter_DurchlaufColumn" msprop:Generator_UserColumnName="Letzter_Durchlauf" type="xs:dateTime" default="1900-01-01T00:00:00+01:00" minOccurs="0" />
<xs:element name="Letzter_Durchlauf" msprop:Generator_ColumnVarNameInTable="columnLetzter_Durchlauf" msprop:Generator_ColumnPropNameInRow="Letzter_Durchlauf" msprop:Generator_ColumnPropNameInTable="Letzter_DurchlaufColumn" msprop:Generator_UserColumnName="Letzter_Durchlauf" type="xs:dateTime" default="1900-01-01T00:00:00+01:00" />
<xs:element name="Running" msprop:Generator_ColumnVarNameInTable="columnRunning" msprop:Generator_ColumnPropNameInRow="Running" msprop:Generator_ColumnPropNameInTable="RunningColumn" msprop:Generator_UserColumnName="Running" type="xs:boolean" default="false" />
<xs:element name="Reihenfolge" msprop:Generator_ColumnVarNameInTable="columnReihenfolge" msprop:Generator_ColumnPropNameInRow="Reihenfolge" msprop:Generator_ColumnPropNameInTable="ReihenfolgeColumn" msprop:Generator_UserColumnName="Reihenfolge" type="xs:int" default="1" />
<xs:element name="ERSTELLTWER" msprop:Generator_ColumnVarNameInTable="columnERSTELLTWER" msprop:Generator_ColumnPropNameInRow="ERSTELLTWER" msprop:Generator_ColumnPropNameInTable="ERSTELLTWERColumn" msprop:Generator_UserColumnName="ERSTELLTWER" minOccurs="0">
@ -754,6 +760,13 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A
</xs:element>
<xs:element name="CHANGED_WHEN" msprop:Generator_ColumnVarNameInTable="columnCHANGED_WHEN" msprop:Generator_ColumnPropNameInRow="CHANGED_WHEN" msprop:Generator_ColumnPropNameInTable="CHANGED_WHENColumn" msprop:Generator_UserColumnName="CHANGED_WHEN" type="xs:dateTime" minOccurs="0" />
<xs:element name="SSL_AUTH" msprop:Generator_ColumnVarNameInTable="columnSSL_AUTH" msprop:Generator_ColumnPropNameInRow="SSL_AUTH" msprop:Generator_ColumnPropNameInTable="SSL_AUTHColumn" msprop:Generator_UserColumnName="SSL_AUTH" type="xs:boolean" default="false" />
<xs:element name="AUTH_TYPE" msprop:Generator_ColumnVarNameInTable="columnAUTH_TYPE" msprop:Generator_ColumnPropNameInRow="AUTH_TYPE" msprop:Generator_ColumnPropNameInTable="AUTH_TYPEColumn" msprop:Generator_UserColumnName="AUTH_TYPE">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="20" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence>
</xs:complexType>
</xs:element>

2
app/ResultHandler_Konfig/MyDataset.xss
View File

@ -4,7 +4,7 @@
Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated.
</autogenerated>-->
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="324" ViewPortY="44" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<DiagramLayout xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" ex:showrelationlabel="False" ViewPortX="-10" ViewPortY="44" xmlns:ex="urn:schemas-microsoft-com:xml-msdatasource-layout-extended" xmlns="urn:schemas-microsoft-com:xml-msdatasource-layout">
<Shapes>
<Shape ID="DesignTable:TBWMRH_KONFIGURATION" ZOrder="7" X="55" Y="54" Height="248" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="197" />
<Shape ID="DesignTable:TBWMRH_PROFIL" ZOrder="6" X="422" Y="54" Height="324" Width="254" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />

BIN
app/ResultHandler_Konfig/Resources/refresh_16xMD.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 376 B

19
app/ResultHandler_Konfig/ResultHandler_Konfig.vbproj
View File

@ -54,9 +54,6 @@
<ApplicationIcon>ico638.ico</ApplicationIcon>
</PropertyGroup>
<ItemGroup>
<Reference Include="DD_WMResulthandler">
<HintPath>..\ClassWMResulthandler\bin\Debug\DD_WMResulthandler.dll</HintPath>
</Reference>
<Reference Include="DevExpress.Data.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Printing.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.Sparkline.v15.2.Core, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
@ -65,6 +62,9 @@
<Reference Include="DevExpress.XtraGrid.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a, processorArchitecture=MSIL" />
<Reference Include="DevExpress.XtraLayout.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DevExpress.XtraPrinting.v15.2, Version=15.2.16.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a" />
<Reference Include="DigitalData.Modules.Logging">
<HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
<HintPath>..\packages\EntityFramework.6.2.0\lib\net45\EntityFramework.dll</HintPath>
</Reference>
@ -88,18 +88,12 @@
<EmbedInteropTypes>True</EmbedInteropTypes>
</Reference>
<Reference Include="Microsoft.CSharp" />
<Reference Include="Modules.Logging">
<HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="Newtonsoft.Json, Version=10.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<HintPath>..\packages\Newtonsoft.Json.10.0.3\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>
</Reference>
<Reference Include="Oracle.ManagedDataAccess">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
</Reference>
<Reference Include="System" />
<Reference Include="System.ComponentModel.DataAnnotations" />
<Reference Include="System.Configuration" />
@ -215,6 +209,7 @@
<ItemGroup>
<Content Include="bin\Debug\x64\SQLite.Interop.dll" />
<Content Include="ico638.ico" />
<None Include="Resources\refresh_16xMD.png" />
<None Include="Resources\folder_Open_16xMD.png" />
<None Include="Resources\book_open.png" />
<None Include="Resources\key_go.png" />
@ -223,6 +218,12 @@
<ItemGroup>
<WCFMetadata Include="Connected Services\" />
</ItemGroup>
<ItemGroup>
<ProjectReference Include="..\ClassWMResulthandler\DD_WMResulthandler.vbproj">
<Project>{b3190aec-8dc4-4822-9609-54df5b976262}</Project>
<Name>DD_WMResulthandler</Name>
</ProjectReference>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.

1330
app/ResultHandler_Konfig/frmMain.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

8
app/ResultHandler_Konfig/frmMain.resx
View File

@ -243,6 +243,9 @@
<metadata name="PDF_XCHANGE_LOCATIONLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="AUTH_TYPELabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value>
</metadata>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1296, 56</value>
</metadata>
@ -257,7 +260,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAI
DAAAAk1TRnQBSQFMAgEBAwEAAVABAgFQAQIBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
DAAAAk1TRnQBSQFMAgEBAwEAAUABAwFAAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA
@ -552,6 +555,9 @@
<metadata name="TBDD_EMAIL_ACCOUNTBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 134</value>
</metadata>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>679, 134</value>
</metadata>
<metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1108, 95</value>
</metadata>

251
app/ResultHandler_Konfig/frmMain.vb
View File

@ -1,9 +1,17 @@
Imports System.ServiceProcess
Imports Modules.Logging
Imports DigitalData.Modules.Logging
Imports DD_WMResulthandler
Imports System.Net.Mail
Imports System.Net
Public Class frmMain
Private Shared _Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger
Private _windream As DD_WMResulthandler.clsWindream_allgemein
Dim MyLoggerConfig As Logger
Private _windream As clsWindream_allgemein
Private _database As clsDatabase
Private _profil As clsProfil
Private _email As clsEmail
Dim MyLogger As LogConfig
Dim Logger As Logger
Dim switchRecord As Boolean = True
Private Sub TBPROFILBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBPROFILBindingNavigatorSaveItem.Click
Save_Profil()
End Sub
@ -22,13 +30,15 @@ Public Class frmMain
' DB_Path()
' End If
'End If
MyLogger = New LogConfig(LogConfig.PathType.AppData, Nothing, "Log")
Logger = MyLogger.GetLogger()
Load_Constring()
MyLoggerConfig = New Logger(Logger.PathType.AppData)
_Logger.Info("Konfig started: " & Now.ToString)
_database = New clsDatabase(MyLogger, My.Settings.SQLSERVER_CS)
_email = New clsEmail(MyLogger)
Logger.Info("Konfig started: " & Now.ToString)
Try
' Windream instanziieren
_windream = New DD_WMResulthandler.clsWindream_allgemein()
_windream = New clsWindream_allgemein(MyLogger)
'Windream initialisieren (Connection, Session, ... aufbauen)
_windream.Init()
Catch ex As Exception
@ -100,6 +110,7 @@ Public Class frmMain
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler inCheckIfRunning")
Return False
End Try
End Function
Sub Load_Constring()
@ -116,18 +127,21 @@ Public Class frmMain
Try
'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBWMRH_TBKONFIGURATION". Sie können sie bei Bedarf verschieben oder entfernen.
Me.TBWMRH_KONFIGURATIONTableAdapter.Fill(Me.MyDataset.TBWMRH_KONFIGURATION)
DD_WMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("LOG_ERRORS_ONLY")
DD_WMResulthandler.clsCURRENT.WDLAUFWERK = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("WD_LAUFWERK")
clsCURRENT.LOG_ERRORS_ONLY = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("LOG_ERRORS_ONLY")
clsCURRENT.WDLAUFWERK = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("WD_LAUFWERK")
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Load_Konfiguration:")
End Try
End Sub
Sub Load_Profil()
Try
switchRecord = True
Me.TBWMRH_PROFILTableAdapter.Fill(Me.MyDataset.TBWMRH_PROFIL)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Load_Profil:")
End Try
switchRecord = False
End Sub
Private Sub ObjekttypenEintragen()
Me.ObjekttypComboBox.Items.Clear()
@ -167,6 +181,11 @@ Public Class frmMain
End Sub
Sub statuslabel(visible As Boolean, Text As String)
Me.tsstatus.Visible = visible
If visible = True Then
tsstatus.BackColor = Color.Yellow
Else
tsstatus.BackColor = Color.Transparent
End If
Me.tsstatus.Text = Text
End Sub
Private Sub btnaddSearch_Click(sender As Object, e As EventArgs) Handles btnaddSearch.Click
@ -220,6 +239,9 @@ Public Class frmMain
End Try
End Sub
Sub Checkbox_Days()
If switchRecord = True Then
Exit Sub
End If
Dim days As String
If CheckBox1.Checked Then
days = "1"
@ -287,6 +309,15 @@ Public Class frmMain
Private Sub DayTextBox_TextChanged(sender As Object, e As EventArgs) Handles DayTextBox.TextChanged
If DayTextBox.Text <> String.Empty Then
switchRecord = True
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
CheckBox4.Checked = False
CheckBox5.Checked = False
CheckBox6.Checked = False
CheckBox7.Checked = False
'Markieren der Checkboxen'
If DayTextBox.Text.Substring(0, 1) = 1 Then
CheckBox1.Checked = True
@ -309,6 +340,7 @@ Public Class frmMain
If DayTextBox.Text.Substring(6, 1) = 1 Then
CheckBox7.Checked = True
End If
switchRecord = False
End If
End Sub
@ -373,12 +405,14 @@ Public Class frmMain
End Sub
Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox.TextChanged
Load_Jobs()
End Sub
Sub Load_Jobs()
If GUIDTextBox.Text <> String.Empty Then
Load_Jobs(GUIDTextBox.Text)
Load_FILE_JOBS(GUIDTextBox.Text)
End If
End Sub
Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click
Save_PROFIL_JOB()
End Sub
@ -449,9 +483,9 @@ Public Class frmMain
STRING2TextBox.Visible = False
STRING3TextBox.Visible = False
STRING4TextBox.Visible = False
STRING3TextBox.Size = New Size(400, 22)
STRING3TextBox.Anchor = AnchorStyles.Left Or AnchorStyles.Top
' STRING3TextBox.Size = New Size(400, 22)
STRING3TextBox.Multiline = False
STRING3TextBox1.Visible = False
STRING5TextBox.Visible = False
Select Case JOB_TYPComboBox.Text.ToUpper
@ -465,11 +499,10 @@ Public Class frmMain
lblString2.Text = "Email-Betreff:"
STRING2TextBox.Visible = True
lblString3.Text = "Email-Body:"
STRING3TextBox.Visible = True
lblString4.Text = "Email-Profil:"
lblString4.Visible = True
STRING3TextBox.Anchor = AnchorStyles.Left Or AnchorStyles.Top Or AnchorStyles.Right Or AnchorStyles.Bottom
STRING3TextBox.Multiline = True
STRING3TextBox.Visible = False
STRING3TextBox1.Visible = True
STRING4TextBox.Visible = True
Case "BNS json Download".ToUpper 'json BNS
@ -480,6 +513,7 @@ Public Class frmMain
Case "Concat Files to one pdf".ToUpper ' Concat Files to one pdf
lblString1.Text = "Name und Speicherort der zusammengefügten PDF-Datei:"
STRING1TextBox.Visible = True
btnJOB_addSpeicherort.Visible = True
lblString2.Text = "Löschen der exportierten Dateien (Ja/Nein)"
STRING2TextBox.Visible = True
Case "Send concatted file via mail".ToUpper
@ -488,7 +522,8 @@ Public Class frmMain
lblString2.Text = "Email-Betreff:"
STRING2TextBox.Visible = True
lblString3.Text = "Email-Body:"
STRING3TextBox.Visible = True
STRING3TextBox.Visible = False
STRING3TextBox1.Visible = True
lblString4.Text = "Email-Profil:"
STRING4TextBox.Visible = True
Case "Send to printer".ToUpper
@ -500,7 +535,8 @@ Public Class frmMain
lblString2.Text = "Email-Betreff:"
STRING2TextBox.Visible = True
lblString3.Text = "Email-Body:"
STRING3TextBox.Visible = True
STRING3TextBox.Visible = False
STRING3TextBox1.Visible = True
lblString4.Text = "Email-Profil:"
STRING4TextBox.Visible = True
lblString5.Text = "Pfad zu WM-Suche:"
@ -551,6 +587,7 @@ Public Class frmMain
STRING1ComboBox.Visible = True
lblString2FileJobs.Text = "Wert"
lblString2FileJobs.Visible = True
STRING2TextBoxProfil_FileJob.Visible = True
Me.btnaddDatetime.Visible = True
@ -609,9 +646,9 @@ Public Class frmMain
statuslabel(True, "Grundkonfiguration gespeichert - " & Now)
Load_Grundkonfig()
If LOG_ERRORS_ONLYCheckBox.Checked = False Then
MyLoggerConfig.Debug = True
MyLogger.Debug = True
Else
MyLoggerConfig.Debug = False
MyLogger.Debug = False
End If
End If
Catch ex As Exception
@ -628,54 +665,69 @@ Public Class frmMain
End If
End Sub
Sub Manual(ID As Integer)
'Try
Try
Dim notcompleted As Boolean = False
_Logger.Info("## Start Durchlauf WindreamResultHandler - " & Now & " ## ")
Logger.Info("## Start Durchlauf WindreamResultHandler - " & Now & " ## ")
_profil = New clsProfil(MyLogger, ID)
'windream initialisieren
If DD_WMResulthandler.clsDatatabase.Init(My.Settings.SQLSERVER_CS) = True Then
If _windream.Init() = True Then
_Logger.Info("windream vollumfänglich initialisiert!")
Dim DT As DataTable = DD_WMResulthandler.clsDatatabase.Return_Datatable("SELECT GUID FROM TBWMRH_PROFIL WHERE GUID = " & ID)
If DT.Rows.Count > 0 Then
_Logger.Info("Anzahl der aktiven Profile: " & DT.Rows.Count.ToString)
For Each DR As DataRow In DT.Rows
DD_WMResulthandler.clsCURRENT._PROFIL_ID = CInt(DR.Item("GUID"))
'Und nun das Profil durchlaufen
Dim initresult = DD_WMResulthandler.clsProfil.Init(DD_WMResulthandler.clsCURRENT._PROFIL_ID)
If initresult = True Then
If _database.Init(My.Settings.SQLSERVER_CS) = True Then
Dim DT As DataTable = _database.Return_Datatable("select * from TBWMRH_KONFIGURATION where GUID = 1")
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!")
End If
DD_WMResulthandler.clsCURRENT.WDLAUFWERK = DT.Rows(0).Item("WD_LAUFWERK")
End If
DD_WMResulthandler.clsProfil.Profil_Durchlauf()
If _windream.Init() = True Then
Logger.Info("windream vollumfänglich initialisiert!")
DT = _database.Return_Datatable("SELECT GUID FROM TBWMRH_PROFIL WHERE GUID = " & ID)
If DT.Rows.Count > 0 Then
Logger.Info("Anzahl der aktiven Profile: " & DT.Rows.Count.ToString)
For Each DR As DataRow In DT.Rows
clsCURRENT._PROFIL_ID = CInt(DR.Item("GUID"))
'Und nun das Profil durchlaufen
Dim initresult = _profil.Init(clsCURRENT._PROFIL_ID)
If initresult = True Then
_profil.Profil_Durchlauf(True)
ElseIf initresult = False Then
_Logger.Warn("clsProfil konnte nicht initialisiert werden")
Logger.Warn("clsProfil konnte nicht initialisiert werden")
notcompleted = True
ElseIf initresult = 0 Then
_Logger.Warn("initresult: 0")
Logger.Warn("initresult: 0")
notcompleted = True
ElseIf initresult = 1 Then
_Logger.Warn("initresult: 1")
Logger.Warn("initresult: 1")
notcompleted = True
End If
Next
Else
_Logger.Warn("- Keine aktiven Profile vorhanden")
Logger.Warn("- Keine aktiven Profile vorhanden")
notcompleted = True
End If
Else
_Logger.Warn("# Achtung: Windream-Init mit Fehlern beendet")
Logger.Warn("# Achtung: Windream-Init mit Fehlern beendet")
End If
DD_WMResulthandler.clsDatatabase.Execute_non_Query("UPDATE TBWMRH_KONFIGURATION SET LAST_TICK = GETDATE() WHERE GUID = 1")
_database.Execute_non_Query("UPDATE TBWMRH_KONFIGURATION SET LAST_TICK = GETDATE() WHERE GUID = 1")
Else
_Logger.Warn("- clsDatatabase konnte nicht initialisiert werden!")
Logger.Warn("- clsDatatabase konnte nicht initialisiert werden!")
notcompleted = True
End If
If notcompleted = True Then
End If
MsgBox("Run completed with errors - Check the log!", MsgBoxStyle.Information)
Else
MsgBox("Run completed!", MsgBoxStyle.Information)
'Catch ex As Exception
' clsLogger.AddError(ex.Message, "RUN_THREAD")
'End Try
End If
Catch ex As Exception
Logger.Error(ex)
End Try
End Sub
Private Sub TBWMRH_PROFIL_JOBBindingSource_AddingNew_1(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBWMRH_PROFIL_JOBBindingSource.AddingNew
@ -690,7 +742,12 @@ Public Class frmMain
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Process.Start(MyLoggerConfig.LogFile)
Try
Process.Start(MyLogger.LogFile)
Catch ex As Exception
MsgBox(ex.Message & vbNewLine & "Logfile: " & MyLogger.LogFile)
End Try
End Sub
Private Sub btnTestCon_Click(sender As Object, e As EventArgs) Handles btnTestCon.Click
@ -698,12 +755,12 @@ Public Class frmMain
Exit Sub
End If
If STEP_TYPComboBox.Text = "Execute Oracle Command" Then
If DD_WMResulthandler.clsDatatabase.Oracle_CS_Test(STRING1TextBoxFile_Job.Text) = True Then
If _database.Oracle_CS_Test(STRING1TextBoxFile_Job.Text) = True Then
MsgBox("Oracle Connection successfull!", MsgBoxStyle.Information)
Exit Sub
End If
ElseIf STEP_TYPComboBox.Text = "Execute MSSQL Command" Then
If DD_WMResulthandler.clsDatatabase.MSSQL_CS_Test(STRING1TextBoxFile_Job.Text) = True Then
If _database.MSSQL_CS_Test(STRING1TextBoxFile_Job.Text) = True Then
MsgBox("MSSQL Connection successfull!", MsgBoxStyle.Information)
Exit Sub
End If
@ -733,7 +790,7 @@ Public Class frmMain
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Process.Start(MyLoggerConfig.LogDirectory)
Process.Start(MyLogger.LogDirectory)
End Sub
Private Sub TBDD_EMAIL_ACCOUNTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_EMAIL_ACCOUNTBindingSource.AddingNew
@ -760,16 +817,42 @@ Public Class frmMain
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Save Email:")
End Try
End Sub
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Try
My.Settings.Save()
Dim wrapper As New clsEncryption("!35452didalog=")
Dim PWPlain = wrapper.DecryptData(EMAIL_PWTextBox.Text)
Dim sClient = New SmtpClient(EMAIL_SMTPTextBox.Text)
Dim mymesssage As New MailMessage
sClient.Port = 587
sClient.EnableSsl = True
sClient.Credentials = New NetworkCredential(EMAIL_USERTextBox.Text, PWPlain)
sClient.UseDefaultCredentials = False
mymesssage.Body = "Test"
mymesssage.From = New MailAddress(EMAIL_FROMTextBox.Text)
mymesssage.Subject = "TestSubject"
mymesssage.CC.Add(New MailAddress(txtTestmail.Text))
sClient.Send(mymesssage)
Catch ex As Exception
End Try
End Sub
Private Sub btnsendtestmail_Click(sender As Object, e As EventArgs) Handles btnsendtestmail.Click
If txtTestmail.Text <> String.Empty Then
Dim wrapper As New DD_WMResulthandler.clsEncryption("!35452didalog=")
My.Settings.Save()
Dim wrapper As New clsEncryption("!35452didalog=")
Dim PWPlain = wrapper.DecryptData(EMAIL_PWTextBox.Text)
If DD_WMResulthandler.clsEmail.Email_Send_Independentsoft("Testmail DD Windream-ResultHandler", "This is the body (text will be replaced within profile)", txtTestmail.Text,
EMAIL_FROMTextBox.Text, EMAIL_SMTPTextBox.Text, PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, CheckBoxSSL.CheckState, "") = True Then
If _email.Email_Send_Independentsoft("Testmail DD Windream-ResultHandler", "This is the body (text will be replaced within profile)", txtTestmail.Text,
EMAIL_FROMTextBox.Text, EMAIL_SMTPTextBox.Text, PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, AUTH_TYPEComboBox.Text, "") = True Then
MsgBox("Email was send successfully.", MsgBoxStyle.Information)
Else
MsgBox("Could not send the testmail. Please check the log.", MsgBoxStyle.Exclamation)
@ -778,7 +861,7 @@ Public Class frmMain
End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
Dim wrapper As New DD_WMResulthandler.clsEncryption("!35452didalog=")
Dim wrapper As New clsEncryption("!35452didalog=")
Dim pwencrypted = wrapper.EncryptData(txtnewpasswort.Text)
EMAIL_PWTextBox.Text = pwencrypted
SaveEmail()
@ -814,7 +897,65 @@ Public Class frmMain
End Try
End Sub
Private Sub LOG_ERRORS_ONLYCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles LOG_ERRORS_ONLYCheckBox.CheckedChanged
Private Sub TabPage2_Click(sender As Object, e As EventArgs) Handles TabPage2.Click
End Sub
Private Sub ToolStripButton23_Click_1(sender As Object, e As EventArgs) Handles ToolStripButton23.Click
Load_Jobs(GUIDTextBox.Text)
End Sub
Private Sub ToolStripButton24_Click(sender As Object, e As EventArgs) Handles ToolStripButton24.Click
Load_FILE_JOBS(GUIDTextBox.Text)
End Sub
Private Sub NumericUpDown_ValueChanged(sender As Object, e As EventArgs) Handles NumericUpDown.ValueChanged
Select Case cmbTimeTyp.SelectedValue
Case "Intervall"
Me.dtp_Time.Visible = False
Me.NumericUpDown.Visible = True
RunTextBox.Text = "INTV;" & NumericUpDown.Value
Case "Uhrzeit"
Me.dtp_Time.Visible = True
Me.NumericUpDown.Visible = False
RunTextBox.Text = "TIME;" & dtp_Time.Text
End Select
End Sub
Private Sub dtp_Time_ValueChanged(sender As Object, e As EventArgs) Handles dtp_Time.ValueChanged
Select Case cmbTimeTyp.SelectedValue
Case "Uhrzeit"
Me.NumericUpDown.Visible = False
Me.dtp_Time.Visible = True
RunTextBox.Text = "TIME;" & dtp_Time.Text
End Select
End Sub
Private Sub EncryptToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EncryptToolStripMenuItem.Click
Dim wrapper As New clsEncryption("!35452didalog=")
Dim pwencrypted = wrapper.DecryptData(EMAIL_PWTextBox.Text)
MsgBox("PW is: " & pwencrypted)
End Sub
Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
Dim Dayofweek As Integer = My.Computer.Clock.LocalTime.DayOfWeek
Dim SUBS As Integer = 0
Dim RUNTODAY As Integer = 0
Select Case Dayofweek
Case 6 'Saturday
Case 5 'Friday
Case 4 'Thursday
Case 3 'Wednesday
Case 2 'Tuesday
Case 1 'Monday
Case 0 'Sunday
End Select
If Dayofweek = 0 Then
SUBS = 6
Else
SUBS = Dayofweek - 1
End If
RUNTODAY = TextBox1.Text.Substring(SUBS, 1)
MsgBox(RUNTODAY)
End Sub
End Class

BIN
app/packages/EntityFramework.6.1.1/EntityFramework.6.1.1.nupkg vendored
View File

Binary file not shown.

21
app/packages/EntityFramework.6.1.1/EntityFramework.6.1.1.nuspec vendored
View File

@ -1,21 +0,0 @@
<?xml version="1.0"?>
<package xmlns="http://schemas.microsoft.com/packaging/2010/07/nuspec.xsd">
<metadata>
<id>EntityFramework</id>
<version>6.1.1</version>
<title>EntityFramework</title>
<authors>Microsoft</authors>
<owners>Microsoft</owners>
<licenseUrl>http://go.microsoft.com/fwlink/?LinkID=320539</licenseUrl>
<projectUrl>http://go.microsoft.com/fwlink/?LinkID=320540</projectUrl>
<iconUrl>http://go.microsoft.com/fwlink/?LinkID=386613</iconUrl>
<requireLicenseAcceptance>true</requireLicenseAcceptance>
<description>Entity Framework is Microsoft's recommended data access technology for new applications.</description>
<summary>Entity Framework is Microsoft's recommended data access technology for new applications.</summary>
<language>en-US</language>
<tags>Microsoft EF Database Data O/RM ADO.NET</tags>
<frameworkAssemblies>
<frameworkAssembly assemblyName="System.ComponentModel.DataAnnotations" targetFramework="" />
</frameworkAssemblies>
</metadata>
</package>

5
app/packages/EntityFramework.6.1.1/content/App.config.transform vendored
View File

@ -1,5 +0,0 @@
<configuration>
<configSections>
<!-- For more information on Entity Framework configuration, visit http://go.microsoft.com/fwlink/?LinkID=237468 -->
</configSections>
</configuration>

5
app/packages/EntityFramework.6.1.1/content/Web.config.transform vendored
View File

@ -1,5 +0,0 @@
<configuration>
<configSections>
<!-- For more information on Entity Framework configuration, visit http://go.microsoft.com/fwlink/?LinkID=237468 -->
</configSections>
</configuration>

BIN
app/packages/EntityFramework.6.1.1/lib/net40/EntityFramework.SqlServer.dll vendored
View File

Binary file not shown.

1877
app/packages/EntityFramework.6.1.1/lib/net40/EntityFramework.SqlServer.xml vendored
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/EntityFramework.6.1.1/lib/net40/EntityFramework.dll vendored
View File

Binary file not shown.

45196
app/packages/EntityFramework.6.1.1/lib/net40/EntityFramework.xml vendored
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/EntityFramework.6.1.1/lib/net45/EntityFramework.SqlServer.dll vendored
View File

Binary file not shown.

1877
app/packages/EntityFramework.6.1.1/lib/net45/EntityFramework.SqlServer.xml vendored
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/EntityFramework.6.1.1/lib/net45/EntityFramework.dll vendored
View File

Binary file not shown.

52394
app/packages/EntityFramework.6.1.1/lib/net45/EntityFramework.xml vendored
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/EntityFramework.6.1.1/tools/EntityFramework.PowerShell.Utility.dll vendored
View File

Binary file not shown.

BIN
app/packages/EntityFramework.6.1.1/tools/EntityFramework.PowerShell.dll vendored
View File

Binary file not shown.

BIN
app/packages/EntityFramework.6.1.1/tools/EntityFramework.psd1 vendored
View File

Binary file not shown.

1168
app/packages/EntityFramework.6.1.1/tools/EntityFramework.psm1 vendored
View File

File diff suppressed because it is too large Load Diff

48
app/packages/EntityFramework.6.1.1/tools/about_EntityFramework.help.txt vendored
View File

@ -1,48 +0,0 @@
TOPIC
about_EntityFramework
SHORT DESCRIPTION
Provides information about Entity Framework commands.
LONG DESCRIPTION
This topic describes the Entity Framework commands. Entity Framework is
Microsoft's recommended data access technology for new applications.
The following Entity Framework cmdlets are used with Entity Framework
Migrations.
Cmdlet Description
----------------- ---------------------------------------------------
Enable-Migrations Enables Code First Migrations in a project.
Add-Migration Scaffolds a migration script for any pending model
changes.
Update-Database Applies any pending migrations to the database.
Get-Migrations Displays the migrations that have been applied to
the target database.
The following Entity Framework cmdlets are used by NuGet packages that
install Entity Framework providers. These commands are not usually used as
part of normal application development.
Cmdlet Description
------------------------------ ---------------------------------------
Add-EFProvider Adds or updates an Entity Framework
provider entry in the project config
file.
Add-EFDefaultConnectionFactory Adds or updates an Entity Framework
default connection factory in the
project config file.
Initialize-EFConfiguration Initializes the Entity Framework
section in the project config file and
sets defaults.
SEE ALSO
Enable-Migrations
Add-Migration
Update-Database
Get-Migrations

155
app/packages/EntityFramework.6.1.1/tools/init.ps1 vendored
View File

@ -1,155 +0,0 @@
param($installPath, $toolsPath, $package, $project)
if (Get-Module | ?{ $_.Name -eq 'EntityFramework' })
{
Remove-Module EntityFramework
}
Import-Module (Join-Path $toolsPath EntityFramework.psd1)
# SIG # Begin signature block
# MIIa4AYJKoZIhvcNAQcCoIIa0TCCGs0CAQExCzAJBgUrDgMCGgUAMGkGCisGAQQB
# gjcCAQSgWzBZMDQGCisGAQQBgjcCAR4wJgIDAQAABBAfzDtgWUsITrck0sYpfvNR
# AgEAAgEAAgEAAgEAAgEAMCEwCQYFKw4DAhoFAAQUjXj4E03IfImYfKMB4CA3DfY0
# KZmgghWCMIIEwzCCA6ugAwIBAgITMwAAAEyh6E3MtHR7OwAAAAAATDANBgkqhkiG
# 9w0BAQUFADB3MQswCQYDVQQGEwJVUzETMBEGA1UECBMKV2FzaGluZ3RvbjEQMA4G
# A1UEBxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0IENvcnBvcmF0aW9uMSEw
# HwYDVQQDExhNaWNyb3NvZnQgVGltZS1TdGFtcCBQQ0EwHhcNMTMxMTExMjIxMTMx
# WhcNMTUwMjExMjIxMTMxWjCBszELMAkGA1UEBhMCVVMxEzARBgNVBAgTCldhc2hp
# bmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29mdCBDb3Jw
# b3JhdGlvbjENMAsGA1UECxMETU9QUjEnMCUGA1UECxMebkNpcGhlciBEU0UgRVNO
# OkMwRjQtMzA4Ni1ERUY4MSUwIwYDVQQDExxNaWNyb3NvZnQgVGltZS1TdGFtcCBT
# ZXJ2aWNlMIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEAsdj6GwYrd6jk
# lF18D+Z6ppLuilQdpPmEdYWXzMtcltDXdS3ZCPtb0u4tJcY3PvWrfhpT5Ve+a+i/
# ypYK3EbxWh4+AtKy4CaOAGR7vjyT+FgyeYfSGl0jvJxRxA8Q+gRYtRZ2buy8xuW+
# /K2swUHbqs559RyymUGneiUr/6t4DVg6sV5Q3mRM4MoVKt+m6f6kZi9bEAkJJiHU
# Pw0vbdL4d5ADbN4UEqWM5zYf9IelsEEXb+NNdGbC/aJxRjVRzGsXUWP6FZSSml9L
# KLrmFkVJ6Sy1/ouHr/ylbUPcpjD6KSjvmw0sXIPeEo1qtNtx71wUWiojKP+BcFfx
# jAeaE9gqUwIDAQABo4IBCTCCAQUwHQYDVR0OBBYEFLkNrbNN9NqfGrInJlUNIETY
# mOL0MB8GA1UdIwQYMBaAFCM0+NlSRnAK7UD7dvuzK7DDNbMPMFQGA1UdHwRNMEsw
# SaBHoEWGQ2h0dHA6Ly9jcmwubWljcm9zb2Z0LmNvbS9wa2kvY3JsL3Byb2R1Y3Rz
# L01pY3Jvc29mdFRpbWVTdGFtcFBDQS5jcmwwWAYIKwYBBQUHAQEETDBKMEgGCCsG
# AQUFBzAChjxodHRwOi8vd3d3Lm1pY3Jvc29mdC5jb20vcGtpL2NlcnRzL01pY3Jv
# c29mdFRpbWVTdGFtcFBDQS5jcnQwEwYDVR0lBAwwCgYIKwYBBQUHAwgwDQYJKoZI
# hvcNAQEFBQADggEBAAmKTgav6O2Czx0HftcqpyQLLa+aWyR/lHEMVYgkGlIVY+KQ
# TQVKmEqc++GnbWhVgrkp6mmpstXjDNrR1nolN3hnHAz72ylaGpc4KjlWRvs1gbnk
# PUZajuT8dTdYWUmLTts8FZ1zUkvreww6wi3Bs5tSLeA1xbnBV7PoPaE8RPIjFh4K
# qlk3J9CVUl6ofz9U8IHh3Jq9ZdV49vdMObvd4NY3DpGah4xz53FkUvc+A9jGzXK4
# NDSYW4zT9Qim63jGUaANDm/0azxAGmAWLKkGUp0cE5DObwIe6nucs/b4l2DyZdHR
# H4c6wXXwQo167Yxysnv7LIq0kUdU4i5pzBZUGlkwggTsMIID1KADAgECAhMzAAAA
# ymzVMhI1xOFVAAEAAADKMA0GCSqGSIb3DQEBBQUAMHkxCzAJBgNVBAYTAlVTMRMw
# EQYDVQQIEwpXYXNoaW5ndG9uMRAwDgYDVQQHEwdSZWRtb25kMR4wHAYDVQQKExVN
# aWNyb3NvZnQgQ29ycG9yYXRpb24xIzAhBgNVBAMTGk1pY3Jvc29mdCBDb2RlIFNp
# Z25pbmcgUENBMB4XDTE0MDQyMjE3MzkwMFoXDTE1MDcyMjE3MzkwMFowgYMxCzAJ
# BgNVBAYTAlVTMRMwEQYDVQQIEwpXYXNoaW5ndG9uMRAwDgYDVQQHEwdSZWRtb25k
# MR4wHAYDVQQKExVNaWNyb3NvZnQgQ29ycG9yYXRpb24xDTALBgNVBAsTBE1PUFIx
# HjAcBgNVBAMTFU1pY3Jvc29mdCBDb3Jwb3JhdGlvbjCCASIwDQYJKoZIhvcNAQEB
# BQADggEPADCCAQoCggEBAJZxXe0GRvqEy51bt0bHsOG0ETkDrbEVc2Cc66e2bho8
# P/9l4zTxpqUhXlaZbFjkkqEKXMLT3FIvDGWaIGFAUzGcbI8hfbr5/hNQUmCVOlu5
# WKV0YUGplOCtJk5MoZdwSSdefGfKTx5xhEa8HUu24g/FxifJB+Z6CqUXABlMcEU4
# LYG0UKrFZ9H6ebzFzKFym/QlNJj4VN8SOTgSL6RrpZp+x2LR3M/tPTT4ud81MLrs
# eTKp4amsVU1Mf0xWwxMLdvEH+cxHrPuI1VKlHij6PS3Pz4SYhnFlEc+FyQlEhuFv
# 57H8rEBEpamLIz+CSZ3VlllQE1kYc/9DDK0r1H8wQGcCAwEAAaOCAWAwggFcMBMG
# A1UdJQQMMAoGCCsGAQUFBwMDMB0GA1UdDgQWBBQfXuJdUI1Whr5KPM8E6KeHtcu/
# gzBRBgNVHREESjBIpEYwRDENMAsGA1UECxMETU9QUjEzMDEGA1UEBRMqMzE1OTUr
# YjQyMThmMTMtNmZjYS00OTBmLTljNDctM2ZjNTU3ZGZjNDQwMB8GA1UdIwQYMBaA
# FMsR6MrStBZYAck3LjMWFrlMmgofMFYGA1UdHwRPME0wS6BJoEeGRWh0dHA6Ly9j
# cmwubWljcm9zb2Z0LmNvbS9wa2kvY3JsL3Byb2R1Y3RzL01pY0NvZFNpZ1BDQV8w
# OC0zMS0yMDEwLmNybDBaBggrBgEFBQcBAQROMEwwSgYIKwYBBQUHMAKGPmh0dHA6
# Ly93d3cubWljcm9zb2Z0LmNvbS9wa2kvY2VydHMvTWljQ29kU2lnUENBXzA4LTMx
# LTIwMTAuY3J0MA0GCSqGSIb3DQEBBQUAA4IBAQB3XOvXkT3NvXuD2YWpsEOdc3wX
# yQ/tNtvHtSwbXvtUBTqDcUCBCaK3cSZe1n22bDvJql9dAxgqHSd+B+nFZR+1zw23
# VMcoOFqI53vBGbZWMrrizMuT269uD11E9dSw7xvVTsGvDu8gm/Lh/idd6MX/YfYZ
# 0igKIp3fzXCCnhhy2CPMeixD7v/qwODmHaqelzMAUm8HuNOIbN6kBjWnwlOGZRF3
# CY81WbnYhqgA/vgxfSz0jAWdwMHVd3Js6U1ZJoPxwrKIV5M1AHxQK7xZ/P4cKTiC
# 095Sl0UpGE6WW526Xxuj8SdQ6geV6G00DThX3DcoNZU6OJzU7WqFXQ4iEV57MIIF
# vDCCA6SgAwIBAgIKYTMmGgAAAAAAMTANBgkqhkiG9w0BAQUFADBfMRMwEQYKCZIm
# iZPyLGQBGRYDY29tMRkwFwYKCZImiZPyLGQBGRYJbWljcm9zb2Z0MS0wKwYDVQQD
# EyRNaWNyb3NvZnQgUm9vdCBDZXJ0aWZpY2F0ZSBBdXRob3JpdHkwHhcNMTAwODMx
# MjIxOTMyWhcNMjAwODMxMjIyOTMyWjB5MQswCQYDVQQGEwJVUzETMBEGA1UECBMK
# V2FzaGluZ3RvbjEQMA4GA1UEBxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0
# IENvcnBvcmF0aW9uMSMwIQYDVQQDExpNaWNyb3NvZnQgQ29kZSBTaWduaW5nIFBD
# QTCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBALJyWVwZMGS/HZpgICBC
# mXZTbD4b1m/My/Hqa/6XFhDg3zp0gxq3L6Ay7P/ewkJOI9VyANs1VwqJyq4gSfTw
# aKxNS42lvXlLcZtHB9r9Jd+ddYjPqnNEf9eB2/O98jakyVxF3K+tPeAoaJcap6Vy
# c1bxF5Tk/TWUcqDWdl8ed0WDhTgW0HNbBbpnUo2lsmkv2hkL/pJ0KeJ2L1TdFDBZ
# +NKNYv3LyV9GMVC5JxPkQDDPcikQKCLHN049oDI9kM2hOAaFXE5WgigqBTK3S9dP
# Y+fSLWLxRT3nrAgA9kahntFbjCZT6HqqSvJGzzc8OJ60d1ylF56NyxGPVjzBrAlf
# A9MCAwEAAaOCAV4wggFaMA8GA1UdEwEB/wQFMAMBAf8wHQYDVR0OBBYEFMsR6MrS
# tBZYAck3LjMWFrlMmgofMAsGA1UdDwQEAwIBhjASBgkrBgEEAYI3FQEEBQIDAQAB
# MCMGCSsGAQQBgjcVAgQWBBT90TFO0yaKleGYYDuoMW+mPLzYLTAZBgkrBgEEAYI3
# FAIEDB4KAFMAdQBiAEMAQTAfBgNVHSMEGDAWgBQOrIJgQFYnl+UlE/wq4QpTlVnk
# pDBQBgNVHR8ESTBHMEWgQ6BBhj9odHRwOi8vY3JsLm1pY3Jvc29mdC5jb20vcGtp
# L2NybC9wcm9kdWN0cy9taWNyb3NvZnRyb290Y2VydC5jcmwwVAYIKwYBBQUHAQEE
# SDBGMEQGCCsGAQUFBzAChjhodHRwOi8vd3d3Lm1pY3Jvc29mdC5jb20vcGtpL2Nl
# cnRzL01pY3Jvc29mdFJvb3RDZXJ0LmNydDANBgkqhkiG9w0BAQUFAAOCAgEAWTk+
# fyZGr+tvQLEytWrrDi9uqEn361917Uw7LddDrQv+y+ktMaMjzHxQmIAhXaw9L0y6
# oqhWnONwu7i0+Hm1SXL3PupBf8rhDBdpy6WcIC36C1DEVs0t40rSvHDnqA2iA6VW
# 4LiKS1fylUKc8fPv7uOGHzQ8uFaa8FMjhSqkghyT4pQHHfLiTviMocroE6WRTsgb
# 0o9ylSpxbZsa+BzwU9ZnzCL/XB3Nooy9J7J5Y1ZEolHN+emjWFbdmwJFRC9f9Nqu
# 1IIybvyklRPk62nnqaIsvsgrEA5ljpnb9aL6EiYJZTiU8XofSrvR4Vbo0HiWGFzJ
# NRZf3ZMdSY4tvq00RBzuEBUaAF3dNVshzpjHCe6FDoxPbQ4TTj18KUicctHzbMrB
# 7HCjV5JXfZSNoBtIA1r3z6NnCnSlNu0tLxfI5nI3EvRvsTxngvlSso0zFmUeDord
# EN5k9G/ORtTTF+l5xAS00/ss3x+KnqwK+xMnQK3k+eGpf0a7B2BHZWBATrBC7E7t
# s3Z52Ao0CW0cgDEf4g5U3eWh++VHEK1kmP9QFi58vwUheuKVQSdpw5OPlcmN2Jsh
# rg1cnPCiroZogwxqLbt2awAdlq3yFnv2FoMkuYjPaqhHMS+a3ONxPdcAfmJH0c6I
# ybgY+g5yjcGjPa8CQGr/aZuW4hCoELQ3UAjWwz0wggYHMIID76ADAgECAgphFmg0
# AAAAAAAcMA0GCSqGSIb3DQEBBQUAMF8xEzARBgoJkiaJk/IsZAEZFgNjb20xGTAX
# BgoJkiaJk/IsZAEZFgltaWNyb3NvZnQxLTArBgNVBAMTJE1pY3Jvc29mdCBSb290
# IENlcnRpZmljYXRlIEF1dGhvcml0eTAeFw0wNzA0MDMxMjUzMDlaFw0yMTA0MDMx
# MzAzMDlaMHcxCzAJBgNVBAYTAlVTMRMwEQYDVQQIEwpXYXNoaW5ndG9uMRAwDgYD
# VQQHEwdSZWRtb25kMR4wHAYDVQQKExVNaWNyb3NvZnQgQ29ycG9yYXRpb24xITAf
# BgNVBAMTGE1pY3Jvc29mdCBUaW1lLVN0YW1wIFBDQTCCASIwDQYJKoZIhvcNAQEB
# BQADggEPADCCAQoCggEBAJ+hbLHf20iSKnxrLhnhveLjxZlRI1Ctzt0YTiQP7tGn
# 0UytdDAgEesH1VSVFUmUG0KSrphcMCbaAGvoe73siQcP9w4EmPCJzB/LMySHnfL0
# Zxws/HvniB3q506jocEjU8qN+kXPCdBer9CwQgSi+aZsk2fXKNxGU7CG0OUoRi4n
# rIZPVVIM5AMs+2qQkDBuh/NZMJ36ftaXs+ghl3740hPzCLdTbVK0RZCfSABKR2YR
# JylmqJfk0waBSqL5hKcRRxQJgp+E7VV4/gGaHVAIhQAQMEbtt94jRrvELVSfrx54
# QTF3zJvfO4OToWECtR0Nsfz3m7IBziJLVP/5BcPCIAsCAwEAAaOCAaswggGnMA8G
# A1UdEwEB/wQFMAMBAf8wHQYDVR0OBBYEFCM0+NlSRnAK7UD7dvuzK7DDNbMPMAsG
# A1UdDwQEAwIBhjAQBgkrBgEEAYI3FQEEAwIBADCBmAYDVR0jBIGQMIGNgBQOrIJg
# QFYnl+UlE/wq4QpTlVnkpKFjpGEwXzETMBEGCgmSJomT8ixkARkWA2NvbTEZMBcG
# CgmSJomT8ixkARkWCW1pY3Jvc29mdDEtMCsGA1UEAxMkTWljcm9zb2Z0IFJvb3Qg
# Q2VydGlmaWNhdGUgQXV0aG9yaXR5ghB5rRahSqClrUxzWPQHEy5lMFAGA1UdHwRJ
# MEcwRaBDoEGGP2h0dHA6Ly9jcmwubWljcm9zb2Z0LmNvbS9wa2kvY3JsL3Byb2R1
# Y3RzL21pY3Jvc29mdHJvb3RjZXJ0LmNybDBUBggrBgEFBQcBAQRIMEYwRAYIKwYB
# BQUHMAKGOGh0dHA6Ly93d3cubWljcm9zb2Z0LmNvbS9wa2kvY2VydHMvTWljcm9z
# b2Z0Um9vdENlcnQuY3J0MBMGA1UdJQQMMAoGCCsGAQUFBwMIMA0GCSqGSIb3DQEB
# BQUAA4ICAQAQl4rDXANENt3ptK132855UU0BsS50cVttDBOrzr57j7gu1BKijG1i
# uFcCy04gE1CZ3XpA4le7r1iaHOEdAYasu3jyi9DsOwHu4r6PCgXIjUji8FMV3U+r
# kuTnjWrVgMHmlPIGL4UD6ZEqJCJw+/b85HiZLg33B+JwvBhOnY5rCnKVuKE5nGct
# xVEO6mJcPxaYiyA/4gcaMvnMMUp2MT0rcgvI6nA9/4UKE9/CCmGO8Ne4F+tOi3/F
# NSteo7/rvH0LQnvUU3Ih7jDKu3hlXFsBFwoUDtLaFJj1PLlmWLMtL+f5hYbMUVbo
# nXCUbKw5TNT2eb+qGHpiKe+imyk0BncaYsk9Hm0fgvALxyy7z0Oz5fnsfbXjpKh0
# NbhOxXEjEiZ2CzxSjHFaRkMUvLOzsE1nyJ9C/4B5IYCeFTBm6EISXhrIniIh0EPp
# K+m79EjMLNTYMoBMJipIJF9a6lbvpt6Znco6b72BJ3QGEe52Ib+bgsEnVLaxaj2J
# oXZhtG6hE6a/qkfwEm/9ijJssv7fUciMI8lmvZ0dhxJkAj0tr1mPuOQh5bWwymO0
# eFQF1EEuUKyUsKV4q7OglnUa2ZKHE3UiLzKoCG6gW4wlv6DvhMoh1useT8ma7kng
# 9wFlb4kLfchpyOZu6qeXzjEp/w7FW1zYTRuh2Povnj8uVRZryROj/TGCBMgwggTE
# AgEBMIGQMHkxCzAJBgNVBAYTAlVTMRMwEQYDVQQIEwpXYXNoaW5ndG9uMRAwDgYD
# VQQHEwdSZWRtb25kMR4wHAYDVQQKExVNaWNyb3NvZnQgQ29ycG9yYXRpb24xIzAh
# BgNVBAMTGk1pY3Jvc29mdCBDb2RlIFNpZ25pbmcgUENBAhMzAAAAymzVMhI1xOFV
# AAEAAADKMAkGBSsOAwIaBQCggeEwGQYJKoZIhvcNAQkDMQwGCisGAQQBgjcCAQQw
# HAYKKwYBBAGCNwIBCzEOMAwGCisGAQQBgjcCARUwIwYJKoZIhvcNAQkEMRYEFOrT
# ZEbL6mMRie0QxeNrtIXxNuY6MIGABgorBgEEAYI3AgEMMXIwcKBSgFAARQBuAHQA
# aQB0AHkAIABGAHIAYQBtAGUAdwBvAHIAawAgAFQAbwBvAGwAcwAgAGYAbwByACAA
# VgBpAHMAdQBhAGwAIABTAHQAdQBkAGkAb6EagBhodHRwOi8vbXNkbi5jb20vZGF0
# YS9lZiAwDQYJKoZIhvcNAQEBBQAEggEAgp8YIEwXo8d1C2hJS1OX9nLxFHxKTtF9
# n3gnMoqyQ9Cq8nqapIG3LIn8gEzfUgeV3sWhZ4FsZENCqIo/bTWITq7vP5IOT1eb
# eGP0iudpum8ajts8gxWBdqQRf7+qq1TnU6knpCppn2hFwp/5qsGIMCfqaj0sqIg4
# cswc5e443uOMXK6viAjC9ZzeLGH4HZX5eK3DnKsUsqT3dHC/aKhbvITK+pw2f5bP
# rTRjCXMmXoVs5xMcmz0jEMu5d59yFJDGk9b02FqojlvdJ/sYvMPGpAkEmPkOygwW
# /kmuemZ6sggDQKPs2trsWGa836uWYTucgQ/f+9Di+FgDc/boMGysr6GCAigwggIk
# BgkqhkiG9w0BCQYxggIVMIICEQIBATCBjjB3MQswCQYDVQQGEwJVUzETMBEGA1UE
# CBMKV2FzaGluZ3RvbjEQMA4GA1UEBxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9z
# b2Z0IENvcnBvcmF0aW9uMSEwHwYDVQQDExhNaWNyb3NvZnQgVGltZS1TdGFtcCBQ
# Q0ECEzMAAABMoehNzLR0ezsAAAAAAEwwCQYFKw4DAhoFAKBdMBgGCSqGSIb3DQEJ
# AzELBgkqhkiG9w0BBwEwHAYJKoZIhvcNAQkFMQ8XDTE0MDYxMTAwMjcxNFowIwYJ
# KoZIhvcNAQkEMRYEFKxtHfNR1GPWPqo0yuBPiJ3WZNX2MA0GCSqGSIb3DQEBBQUA
# BIIBAIE6w+e3xMwwXXRbiSqdleCOsCfkGCFYBYY+3/NT77UTq0C3hVRzulDeINKB
# PR0MP/VXkekNwxL+rYKZ7le3uoVIby2f64Fg8zz+qPM3TYJrTuC/7pT5ZRfxdc8T
# 2LovKMOMLj4TJBQkigBhgxtLIXz2kQOzaiM3eezYVrjji2Sim4EijFzFDW05DY7Y
# pGbpXTPOpFOGYAFwGwdFw0JiD9lc+PgTd+0iPxfMsp98R0uS7/fcQvrLliRWN5HW
# eUuUnfa/ZzFzQDb91xO1Im7Ds5Vq6LhQ+c8pWkElTv5HLIljXBcACbYeAUbJCJqy
# oLedtt6C3tuzxxq4MqxfZk92CnU=
# SIG # End signature block

154
app/packages/EntityFramework.6.1.1/tools/install.ps1 vendored
View File

@ -1,154 +0,0 @@
param($installPath, $toolsPath, $package, $project)
Initialize-EFConfiguration $project
Add-EFProvider $project 'System.Data.SqlClient' 'System.Data.Entity.SqlServer.SqlProviderServices, EntityFramework.SqlServer'
Write-Host
Write-Host "Type 'get-help EntityFramework' to see all available Entity Framework commands."
# SIG # Begin signature block
# MIIa4AYJKoZIhvcNAQcCoIIa0TCCGs0CAQExCzAJBgUrDgMCGgUAMGkGCisGAQQB
# gjcCAQSgWzBZMDQGCisGAQQBgjcCAR4wJgIDAQAABBAfzDtgWUsITrck0sYpfvNR
# AgEAAgEAAgEAAgEAAgEAMCEwCQYFKw4DAhoFAAQUt8mwpdjiFmu2B4KBh+vEeQ+V
# VnSgghWCMIIEwzCCA6ugAwIBAgITMwAAAEyh6E3MtHR7OwAAAAAATDANBgkqhkiG
# 9w0BAQUFADB3MQswCQYDVQQGEwJVUzETMBEGA1UECBMKV2FzaGluZ3RvbjEQMA4G
# A1UEBxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0IENvcnBvcmF0aW9uMSEw
# HwYDVQQDExhNaWNyb3NvZnQgVGltZS1TdGFtcCBQQ0EwHhcNMTMxMTExMjIxMTMx
# WhcNMTUwMjExMjIxMTMxWjCBszELMAkGA1UEBhMCVVMxEzARBgNVBAgTCldhc2hp
# bmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29mdCBDb3Jw
# b3JhdGlvbjENMAsGA1UECxMETU9QUjEnMCUGA1UECxMebkNpcGhlciBEU0UgRVNO
# OkMwRjQtMzA4Ni1ERUY4MSUwIwYDVQQDExxNaWNyb3NvZnQgVGltZS1TdGFtcCBT
# ZXJ2aWNlMIIBIjANBgkqhkiG9w0BAQEFAAOCAQ8AMIIBCgKCAQEAsdj6GwYrd6jk
# lF18D+Z6ppLuilQdpPmEdYWXzMtcltDXdS3ZCPtb0u4tJcY3PvWrfhpT5Ve+a+i/
# ypYK3EbxWh4+AtKy4CaOAGR7vjyT+FgyeYfSGl0jvJxRxA8Q+gRYtRZ2buy8xuW+
# /K2swUHbqs559RyymUGneiUr/6t4DVg6sV5Q3mRM4MoVKt+m6f6kZi9bEAkJJiHU
# Pw0vbdL4d5ADbN4UEqWM5zYf9IelsEEXb+NNdGbC/aJxRjVRzGsXUWP6FZSSml9L
# KLrmFkVJ6Sy1/ouHr/ylbUPcpjD6KSjvmw0sXIPeEo1qtNtx71wUWiojKP+BcFfx
# jAeaE9gqUwIDAQABo4IBCTCCAQUwHQYDVR0OBBYEFLkNrbNN9NqfGrInJlUNIETY
# mOL0MB8GA1UdIwQYMBaAFCM0+NlSRnAK7UD7dvuzK7DDNbMPMFQGA1UdHwRNMEsw
# SaBHoEWGQ2h0dHA6Ly9jcmwubWljcm9zb2Z0LmNvbS9wa2kvY3JsL3Byb2R1Y3Rz
# L01pY3Jvc29mdFRpbWVTdGFtcFBDQS5jcmwwWAYIKwYBBQUHAQEETDBKMEgGCCsG
# AQUFBzAChjxodHRwOi8vd3d3Lm1pY3Jvc29mdC5jb20vcGtpL2NlcnRzL01pY3Jv
# c29mdFRpbWVTdGFtcFBDQS5jcnQwEwYDVR0lBAwwCgYIKwYBBQUHAwgwDQYJKoZI
# hvcNAQEFBQADggEBAAmKTgav6O2Czx0HftcqpyQLLa+aWyR/lHEMVYgkGlIVY+KQ
# TQVKmEqc++GnbWhVgrkp6mmpstXjDNrR1nolN3hnHAz72ylaGpc4KjlWRvs1gbnk
# PUZajuT8dTdYWUmLTts8FZ1zUkvreww6wi3Bs5tSLeA1xbnBV7PoPaE8RPIjFh4K
# qlk3J9CVUl6ofz9U8IHh3Jq9ZdV49vdMObvd4NY3DpGah4xz53FkUvc+A9jGzXK4
# NDSYW4zT9Qim63jGUaANDm/0azxAGmAWLKkGUp0cE5DObwIe6nucs/b4l2DyZdHR
# H4c6wXXwQo167Yxysnv7LIq0kUdU4i5pzBZUGlkwggTsMIID1KADAgECAhMzAAAA
# ymzVMhI1xOFVAAEAAADKMA0GCSqGSIb3DQEBBQUAMHkxCzAJBgNVBAYTAlVTMRMw
# EQYDVQQIEwpXYXNoaW5ndG9uMRAwDgYDVQQHEwdSZWRtb25kMR4wHAYDVQQKExVN
# aWNyb3NvZnQgQ29ycG9yYXRpb24xIzAhBgNVBAMTGk1pY3Jvc29mdCBDb2RlIFNp
# Z25pbmcgUENBMB4XDTE0MDQyMjE3MzkwMFoXDTE1MDcyMjE3MzkwMFowgYMxCzAJ
# BgNVBAYTAlVTMRMwEQYDVQQIEwpXYXNoaW5ndG9uMRAwDgYDVQQHEwdSZWRtb25k
# MR4wHAYDVQQKExVNaWNyb3NvZnQgQ29ycG9yYXRpb24xDTALBgNVBAsTBE1PUFIx
# HjAcBgNVBAMTFU1pY3Jvc29mdCBDb3Jwb3JhdGlvbjCCASIwDQYJKoZIhvcNAQEB
# BQADggEPADCCAQoCggEBAJZxXe0GRvqEy51bt0bHsOG0ETkDrbEVc2Cc66e2bho8
# P/9l4zTxpqUhXlaZbFjkkqEKXMLT3FIvDGWaIGFAUzGcbI8hfbr5/hNQUmCVOlu5
# WKV0YUGplOCtJk5MoZdwSSdefGfKTx5xhEa8HUu24g/FxifJB+Z6CqUXABlMcEU4
# LYG0UKrFZ9H6ebzFzKFym/QlNJj4VN8SOTgSL6RrpZp+x2LR3M/tPTT4ud81MLrs
# eTKp4amsVU1Mf0xWwxMLdvEH+cxHrPuI1VKlHij6PS3Pz4SYhnFlEc+FyQlEhuFv
# 57H8rEBEpamLIz+CSZ3VlllQE1kYc/9DDK0r1H8wQGcCAwEAAaOCAWAwggFcMBMG
# A1UdJQQMMAoGCCsGAQUFBwMDMB0GA1UdDgQWBBQfXuJdUI1Whr5KPM8E6KeHtcu/
# gzBRBgNVHREESjBIpEYwRDENMAsGA1UECxMETU9QUjEzMDEGA1UEBRMqMzE1OTUr
# YjQyMThmMTMtNmZjYS00OTBmLTljNDctM2ZjNTU3ZGZjNDQwMB8GA1UdIwQYMBaA
# FMsR6MrStBZYAck3LjMWFrlMmgofMFYGA1UdHwRPME0wS6BJoEeGRWh0dHA6Ly9j
# cmwubWljcm9zb2Z0LmNvbS9wa2kvY3JsL3Byb2R1Y3RzL01pY0NvZFNpZ1BDQV8w
# OC0zMS0yMDEwLmNybDBaBggrBgEFBQcBAQROMEwwSgYIKwYBBQUHMAKGPmh0dHA6
# Ly93d3cubWljcm9zb2Z0LmNvbS9wa2kvY2VydHMvTWljQ29kU2lnUENBXzA4LTMx
# LTIwMTAuY3J0MA0GCSqGSIb3DQEBBQUAA4IBAQB3XOvXkT3NvXuD2YWpsEOdc3wX
# yQ/tNtvHtSwbXvtUBTqDcUCBCaK3cSZe1n22bDvJql9dAxgqHSd+B+nFZR+1zw23
# VMcoOFqI53vBGbZWMrrizMuT269uD11E9dSw7xvVTsGvDu8gm/Lh/idd6MX/YfYZ
# 0igKIp3fzXCCnhhy2CPMeixD7v/qwODmHaqelzMAUm8HuNOIbN6kBjWnwlOGZRF3
# CY81WbnYhqgA/vgxfSz0jAWdwMHVd3Js6U1ZJoPxwrKIV5M1AHxQK7xZ/P4cKTiC
# 095Sl0UpGE6WW526Xxuj8SdQ6geV6G00DThX3DcoNZU6OJzU7WqFXQ4iEV57MIIF
# vDCCA6SgAwIBAgIKYTMmGgAAAAAAMTANBgkqhkiG9w0BAQUFADBfMRMwEQYKCZIm
# iZPyLGQBGRYDY29tMRkwFwYKCZImiZPyLGQBGRYJbWljcm9zb2Z0MS0wKwYDVQQD
# EyRNaWNyb3NvZnQgUm9vdCBDZXJ0aWZpY2F0ZSBBdXRob3JpdHkwHhcNMTAwODMx
# MjIxOTMyWhcNMjAwODMxMjIyOTMyWjB5MQswCQYDVQQGEwJVUzETMBEGA1UECBMK
# V2FzaGluZ3RvbjEQMA4GA1UEBxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0
# IENvcnBvcmF0aW9uMSMwIQYDVQQDExpNaWNyb3NvZnQgQ29kZSBTaWduaW5nIFBD
# QTCCASIwDQYJKoZIhvcNAQEBBQADggEPADCCAQoCggEBALJyWVwZMGS/HZpgICBC
# mXZTbD4b1m/My/Hqa/6XFhDg3zp0gxq3L6Ay7P/ewkJOI9VyANs1VwqJyq4gSfTw
# aKxNS42lvXlLcZtHB9r9Jd+ddYjPqnNEf9eB2/O98jakyVxF3K+tPeAoaJcap6Vy
# c1bxF5Tk/TWUcqDWdl8ed0WDhTgW0HNbBbpnUo2lsmkv2hkL/pJ0KeJ2L1TdFDBZ
# +NKNYv3LyV9GMVC5JxPkQDDPcikQKCLHN049oDI9kM2hOAaFXE5WgigqBTK3S9dP
# Y+fSLWLxRT3nrAgA9kahntFbjCZT6HqqSvJGzzc8OJ60d1ylF56NyxGPVjzBrAlf
# A9MCAwEAAaOCAV4wggFaMA8GA1UdEwEB/wQFMAMBAf8wHQYDVR0OBBYEFMsR6MrS
# tBZYAck3LjMWFrlMmgofMAsGA1UdDwQEAwIBhjASBgkrBgEEAYI3FQEEBQIDAQAB
# MCMGCSsGAQQBgjcVAgQWBBT90TFO0yaKleGYYDuoMW+mPLzYLTAZBgkrBgEEAYI3
# FAIEDB4KAFMAdQBiAEMAQTAfBgNVHSMEGDAWgBQOrIJgQFYnl+UlE/wq4QpTlVnk
# pDBQBgNVHR8ESTBHMEWgQ6BBhj9odHRwOi8vY3JsLm1pY3Jvc29mdC5jb20vcGtp
# L2NybC9wcm9kdWN0cy9taWNyb3NvZnRyb290Y2VydC5jcmwwVAYIKwYBBQUHAQEE
# SDBGMEQGCCsGAQUFBzAChjhodHRwOi8vd3d3Lm1pY3Jvc29mdC5jb20vcGtpL2Nl
# cnRzL01pY3Jvc29mdFJvb3RDZXJ0LmNydDANBgkqhkiG9w0BAQUFAAOCAgEAWTk+
# fyZGr+tvQLEytWrrDi9uqEn361917Uw7LddDrQv+y+ktMaMjzHxQmIAhXaw9L0y6
# oqhWnONwu7i0+Hm1SXL3PupBf8rhDBdpy6WcIC36C1DEVs0t40rSvHDnqA2iA6VW
# 4LiKS1fylUKc8fPv7uOGHzQ8uFaa8FMjhSqkghyT4pQHHfLiTviMocroE6WRTsgb
# 0o9ylSpxbZsa+BzwU9ZnzCL/XB3Nooy9J7J5Y1ZEolHN+emjWFbdmwJFRC9f9Nqu
# 1IIybvyklRPk62nnqaIsvsgrEA5ljpnb9aL6EiYJZTiU8XofSrvR4Vbo0HiWGFzJ
# NRZf3ZMdSY4tvq00RBzuEBUaAF3dNVshzpjHCe6FDoxPbQ4TTj18KUicctHzbMrB
# 7HCjV5JXfZSNoBtIA1r3z6NnCnSlNu0tLxfI5nI3EvRvsTxngvlSso0zFmUeDord
# EN5k9G/ORtTTF+l5xAS00/ss3x+KnqwK+xMnQK3k+eGpf0a7B2BHZWBATrBC7E7t
# s3Z52Ao0CW0cgDEf4g5U3eWh++VHEK1kmP9QFi58vwUheuKVQSdpw5OPlcmN2Jsh
# rg1cnPCiroZogwxqLbt2awAdlq3yFnv2FoMkuYjPaqhHMS+a3ONxPdcAfmJH0c6I
# ybgY+g5yjcGjPa8CQGr/aZuW4hCoELQ3UAjWwz0wggYHMIID76ADAgECAgphFmg0
# AAAAAAAcMA0GCSqGSIb3DQEBBQUAMF8xEzARBgoJkiaJk/IsZAEZFgNjb20xGTAX
# BgoJkiaJk/IsZAEZFgltaWNyb3NvZnQxLTArBgNVBAMTJE1pY3Jvc29mdCBSb290
# IENlcnRpZmljYXRlIEF1dGhvcml0eTAeFw0wNzA0MDMxMjUzMDlaFw0yMTA0MDMx
# MzAzMDlaMHcxCzAJBgNVBAYTAlVTMRMwEQYDVQQIEwpXYXNoaW5ndG9uMRAwDgYD
# VQQHEwdSZWRtb25kMR4wHAYDVQQKExVNaWNyb3NvZnQgQ29ycG9yYXRpb24xITAf
# BgNVBAMTGE1pY3Jvc29mdCBUaW1lLVN0YW1wIFBDQTCCASIwDQYJKoZIhvcNAQEB
# BQADggEPADCCAQoCggEBAJ+hbLHf20iSKnxrLhnhveLjxZlRI1Ctzt0YTiQP7tGn
# 0UytdDAgEesH1VSVFUmUG0KSrphcMCbaAGvoe73siQcP9w4EmPCJzB/LMySHnfL0
# Zxws/HvniB3q506jocEjU8qN+kXPCdBer9CwQgSi+aZsk2fXKNxGU7CG0OUoRi4n
# rIZPVVIM5AMs+2qQkDBuh/NZMJ36ftaXs+ghl3740hPzCLdTbVK0RZCfSABKR2YR
# JylmqJfk0waBSqL5hKcRRxQJgp+E7VV4/gGaHVAIhQAQMEbtt94jRrvELVSfrx54
# QTF3zJvfO4OToWECtR0Nsfz3m7IBziJLVP/5BcPCIAsCAwEAAaOCAaswggGnMA8G
# A1UdEwEB/wQFMAMBAf8wHQYDVR0OBBYEFCM0+NlSRnAK7UD7dvuzK7DDNbMPMAsG
# A1UdDwQEAwIBhjAQBgkrBgEEAYI3FQEEAwIBADCBmAYDVR0jBIGQMIGNgBQOrIJg
# QFYnl+UlE/wq4QpTlVnkpKFjpGEwXzETMBEGCgmSJomT8ixkARkWA2NvbTEZMBcG
# CgmSJomT8ixkARkWCW1pY3Jvc29mdDEtMCsGA1UEAxMkTWljcm9zb2Z0IFJvb3Qg
# Q2VydGlmaWNhdGUgQXV0aG9yaXR5ghB5rRahSqClrUxzWPQHEy5lMFAGA1UdHwRJ
# MEcwRaBDoEGGP2h0dHA6Ly9jcmwubWljcm9zb2Z0LmNvbS9wa2kvY3JsL3Byb2R1
# Y3RzL21pY3Jvc29mdHJvb3RjZXJ0LmNybDBUBggrBgEFBQcBAQRIMEYwRAYIKwYB
# BQUHMAKGOGh0dHA6Ly93d3cubWljcm9zb2Z0LmNvbS9wa2kvY2VydHMvTWljcm9z
# b2Z0Um9vdENlcnQuY3J0MBMGA1UdJQQMMAoGCCsGAQUFBwMIMA0GCSqGSIb3DQEB
# BQUAA4ICAQAQl4rDXANENt3ptK132855UU0BsS50cVttDBOrzr57j7gu1BKijG1i
# uFcCy04gE1CZ3XpA4le7r1iaHOEdAYasu3jyi9DsOwHu4r6PCgXIjUji8FMV3U+r
# kuTnjWrVgMHmlPIGL4UD6ZEqJCJw+/b85HiZLg33B+JwvBhOnY5rCnKVuKE5nGct
# xVEO6mJcPxaYiyA/4gcaMvnMMUp2MT0rcgvI6nA9/4UKE9/CCmGO8Ne4F+tOi3/F
# NSteo7/rvH0LQnvUU3Ih7jDKu3hlXFsBFwoUDtLaFJj1PLlmWLMtL+f5hYbMUVbo
# nXCUbKw5TNT2eb+qGHpiKe+imyk0BncaYsk9Hm0fgvALxyy7z0Oz5fnsfbXjpKh0
# NbhOxXEjEiZ2CzxSjHFaRkMUvLOzsE1nyJ9C/4B5IYCeFTBm6EISXhrIniIh0EPp
# K+m79EjMLNTYMoBMJipIJF9a6lbvpt6Znco6b72BJ3QGEe52Ib+bgsEnVLaxaj2J
# oXZhtG6hE6a/qkfwEm/9ijJssv7fUciMI8lmvZ0dhxJkAj0tr1mPuOQh5bWwymO0
# eFQF1EEuUKyUsKV4q7OglnUa2ZKHE3UiLzKoCG6gW4wlv6DvhMoh1useT8ma7kng
# 9wFlb4kLfchpyOZu6qeXzjEp/w7FW1zYTRuh2Povnj8uVRZryROj/TGCBMgwggTE
# AgEBMIGQMHkxCzAJBgNVBAYTAlVTMRMwEQYDVQQIEwpXYXNoaW5ndG9uMRAwDgYD
# VQQHEwdSZWRtb25kMR4wHAYDVQQKExVNaWNyb3NvZnQgQ29ycG9yYXRpb24xIzAh
# BgNVBAMTGk1pY3Jvc29mdCBDb2RlIFNpZ25pbmcgUENBAhMzAAAAymzVMhI1xOFV
# AAEAAADKMAkGBSsOAwIaBQCggeEwGQYJKoZIhvcNAQkDMQwGCisGAQQBgjcCAQQw
# HAYKKwYBBAGCNwIBCzEOMAwGCisGAQQBgjcCARUwIwYJKoZIhvcNAQkEMRYEFJiz
# f4JawBv4s6ihwSKoeZTRDcAvMIGABgorBgEEAYI3AgEMMXIwcKBSgFAARQBuAHQA
# aQB0AHkAIABGAHIAYQBtAGUAdwBvAHIAawAgAFQAbwBvAGwAcwAgAGYAbwByACAA
# VgBpAHMAdQBhAGwAIABTAHQAdQBkAGkAb6EagBhodHRwOi8vbXNkbi5jb20vZGF0
# YS9lZiAwDQYJKoZIhvcNAQEBBQAEggEAFy52TLBcmieavvWab1nArTK05hXGrx+n
# qn/Aq3b4WpCD3Kotg6ZcmMDgFoBR3CCxOi8DzXowNjnX4aGMnUgGR8oczgU0DVRN
# 6e9fIaYthchMgS/bDZEyPZ39H2mSuNPkM4rBiB5K0CkQQgjwEKYCRImwSlnBu0jY
# nH1J/jF0RnYFZ1uxmY8jpWA/km5kj3fSTwC8CPn24I6H520Cka0CiBGl6iNLRAK+
# rOokn9Ymw9dbttXINl8WpNCBIR6XBAgBhlyJa6JmTceoXZvIGu1h8KVCWwDv+lKT
# uRLEKWdVQ5cgNth3csHOUQnBC5FN6TxY9dqozIwcjNUwwOOsqrEW5KGCAigwggIk
# BgkqhkiG9w0BCQYxggIVMIICEQIBATCBjjB3MQswCQYDVQQGEwJVUzETMBEGA1UE
# CBMKV2FzaGluZ3RvbjEQMA4GA1UEBxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9z
# b2Z0IENvcnBvcmF0aW9uMSEwHwYDVQQDExhNaWNyb3NvZnQgVGltZS1TdGFtcCBQ
# Q0ECEzMAAABMoehNzLR0ezsAAAAAAEwwCQYFKw4DAhoFAKBdMBgGCSqGSIb3DQEJ
# AzELBgkqhkiG9w0BBwEwHAYJKoZIhvcNAQkFMQ8XDTE0MDYxMTAwMjcxNFowIwYJ
# KoZIhvcNAQkEMRYEFAMe6WzqHaLPBigGoS/gaG25ANUpMA0GCSqGSIb3DQEBBQUA
# BIIBAIjoRfbV4BAKmZTIqQHK8YC2BV3xMUlgk7Dg1n4SQ8bHBeqzvHMF7hJL81zJ
# kmhpg3aH/zDIDRy0yEf0OjvOovaCvlSUq1HaEPAXCF9tNPYSCKY7kMFyoucvXMFV
# /CIXDZ/CIVecqDuRwwJcVwpX7woBndS6L+ZZ7fD3S5Q+R7OZaLmle0bDLeN7IJoC
# X3wTU7AfaVUvFJz7GYYa5lC7D3+l4WUiCUJ4uZX08UEPiZrTutPFsFGFH734/OZX
# yy5Fb1qWTDf/5jhxvtvBI3rLLYYgOZPSZiYqYUK18fIMTPEFCgYaLl0AfcWo2VrN
# mvqM2HmY0j/IAP02KuuWVK6zWCA=
# SIG # End signature block

BIN
app/packages/EntityFramework.6.1.1/tools/migrate.exe vendored
View File

Binary file not shown.

BIN
app/packages/System.Data.SQLite.Core.1.0.94.0/System.Data.SQLite.Core.1.0.94.0.nupkg vendored
View File

Binary file not shown.

18
app/packages/System.Data.SQLite.Core.1.0.94.0/System.Data.SQLite.Core.1.0.94.0.nuspec vendored
View File

@ -1,18 +0,0 @@
<?xml version="1.0"?>
<package xmlns="http://schemas.microsoft.com/packaging/2011/08/nuspec.xsd">
<metadata>
<id>System.Data.SQLite.Core</id>
<version>1.0.94.0</version>
<title>System.Data.SQLite Core (x86/x64)</title>
<authors>SQLite Development Team</authors>
<owners>SQLite Development Team</owners>
<licenseUrl>http://www.sqlite.org/copyright.html</licenseUrl>
<projectUrl>http://system.data.sqlite.org/</projectUrl>
<iconUrl>http://system.data.sqlite.org/images/sqlite128.png</iconUrl>
<requireLicenseAcceptance>false</requireLicenseAcceptance>
<description>The official SQLite database engine for both x86 and x64 along with the ADO.NET provider.</description>
<copyright>Public Domain</copyright>
<language>en-US</language>
<tags>sqlite database ado.net provider interop</tags>
</metadata>
</package>

BIN
app/packages/System.Data.SQLite.Core.1.0.94.0/lib/net20/System.Data.SQLite.dll vendored
View File

Binary file not shown.

13534
app/packages/System.Data.SQLite.Core.1.0.94.0/lib/net20/System.Data.SQLite.xml vendored
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/System.Data.SQLite.Core.1.0.94.0/lib/net40/System.Data.SQLite.dll vendored
View File

Binary file not shown.

13534
app/packages/System.Data.SQLite.Core.1.0.94.0/lib/net40/System.Data.SQLite.xml vendored
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/System.Data.SQLite.Core.1.0.94.0/lib/net45/System.Data.SQLite.dll vendored
View File

Binary file not shown.

13534
app/packages/System.Data.SQLite.Core.1.0.94.0/lib/net45/System.Data.SQLite.xml vendored
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/System.Data.SQLite.Core.1.0.94.0/lib/net451/System.Data.SQLite.dll vendored
View File

Binary file not shown.

13534
app/packages/System.Data.SQLite.Core.1.0.94.0/lib/net451/System.Data.SQLite.xml vendored
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/System.Data.SQLite.EF6.1.0.94.0/System.Data.SQLite.EF6.1.0.94.0.nupkg vendored
View File

Binary file not shown.

32
app/packages/System.Data.SQLite.EF6.1.0.94.0/System.Data.SQLite.EF6.1.0.94.0.nuspec vendored
View File

@ -1,32 +0,0 @@
<?xml version="1.0"?>
<package xmlns="http://schemas.microsoft.com/packaging/2012/06/nuspec.xsd">
<metadata>
<id>System.Data.SQLite.EF6</id>
<version>1.0.94.0</version>
<title>System.Data.SQLite EF6 (x86/x64)</title>
<authors>SQLite Development Team</authors>
<owners>SQLite Development Team</owners>
<licenseUrl>http://www.sqlite.org/copyright.html</licenseUrl>
<projectUrl>http://system.data.sqlite.org/</projectUrl>
<iconUrl>http://system.data.sqlite.org/images/sqlite128.png</iconUrl>
<requireLicenseAcceptance>false</requireLicenseAcceptance>
<description>Support for Entity Framework 6 using System.Data.SQLite.</description>
<copyright>Public Domain</copyright>
<language>en-US</language>
<tags>sqlite database ado.net provider interop</tags>
<dependencies>
<group targetFramework=".NETFramework4.0">
<dependency id="System.Data.SQLite.Core" version="1.0.94.0" />
<dependency id="EntityFramework" version="6.1.1.0" />
</group>
<group targetFramework=".NETFramework4.5">
<dependency id="System.Data.SQLite.Core" version="1.0.94.0" />
<dependency id="EntityFramework" version="6.1.1.0" />
</group>
<group targetFramework=".NETFramework4.5.1">
<dependency id="System.Data.SQLite.Core" version="1.0.94.0" />
<dependency id="EntityFramework" version="6.1.1.0" />
</group>
</dependencies>
</metadata>
</package>

19
app/packages/System.Data.SQLite.EF6.1.0.94.0/content/net40/app.config.transform vendored
View File

@ -1,19 +0,0 @@
<configuration>
<system.data>
<!--
NOTE: The extra "remove" element below is to prevent the design-time
support components within EF6 from selecting the legacy ADO.NET
provider for SQLite (i.e. the one without any EF6 support). It
appears to only consider the first ADO.NET provider in the list
within the resulting "app.config" or "web.config" file.
-->
<DbProviderFactories>
<remove invariant="System.Data.SQLite" />
<remove invariant="System.Data.SQLite.EF6" />
<add name="SQLite Data Provider (Entity Framework 6)"
invariant="System.Data.SQLite.EF6"
description=".NET Framework Data Provider for SQLite (Entity Framework 6)"
type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
</DbProviderFactories>
</system.data>
</configuration>

19
app/packages/System.Data.SQLite.EF6.1.0.94.0/content/net40/web.config.transform vendored
View File

@ -1,19 +0,0 @@
<configuration>
<system.data>
<!--
NOTE: The extra "remove" element below is to prevent the design-time
support components within EF6 from selecting the legacy ADO.NET
provider for SQLite (i.e. the one without any EF6 support). It
appears to only consider the first ADO.NET provider in the list
within the resulting "app.config" or "web.config" file.
-->
<DbProviderFactories>
<remove invariant="System.Data.SQLite" />
<remove invariant="System.Data.SQLite.EF6" />
<add name="SQLite Data Provider (Entity Framework 6)"
invariant="System.Data.SQLite.EF6"
description=".NET Framework Data Provider for SQLite (Entity Framework 6)"
type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
</DbProviderFactories>
</system.data>
</configuration>

19
app/packages/System.Data.SQLite.EF6.1.0.94.0/content/net45/app.config.transform vendored
View File

@ -1,19 +0,0 @@
<configuration>
<system.data>
<!--
NOTE: The extra "remove" element below is to prevent the design-time
support components within EF6 from selecting the legacy ADO.NET
provider for SQLite (i.e. the one without any EF6 support). It
appears to only consider the first ADO.NET provider in the list
within the resulting "app.config" or "web.config" file.
-->
<DbProviderFactories>
<remove invariant="System.Data.SQLite" />
<remove invariant="System.Data.SQLite.EF6" />
<add name="SQLite Data Provider (Entity Framework 6)"
invariant="System.Data.SQLite.EF6"
description=".NET Framework Data Provider for SQLite (Entity Framework 6)"
type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
</DbProviderFactories>
</system.data>
</configuration>

19
app/packages/System.Data.SQLite.EF6.1.0.94.0/content/net45/web.config.transform vendored
View File

@ -1,19 +0,0 @@
<configuration>
<system.data>
<!--
NOTE: The extra "remove" element below is to prevent the design-time
support components within EF6 from selecting the legacy ADO.NET
provider for SQLite (i.e. the one without any EF6 support). It
appears to only consider the first ADO.NET provider in the list
within the resulting "app.config" or "web.config" file.
-->
<DbProviderFactories>
<remove invariant="System.Data.SQLite" />
<remove invariant="System.Data.SQLite.EF6" />
<add name="SQLite Data Provider (Entity Framework 6)"
invariant="System.Data.SQLite.EF6"
description=".NET Framework Data Provider for SQLite (Entity Framework 6)"
type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
</DbProviderFactories>
</system.data>
</configuration>

19
app/packages/System.Data.SQLite.EF6.1.0.94.0/content/net451/app.config.transform vendored
View File

@ -1,19 +0,0 @@
<configuration>
<system.data>
<!--
NOTE: The extra "remove" element below is to prevent the design-time
support components within EF6 from selecting the legacy ADO.NET
provider for SQLite (i.e. the one without any EF6 support). It
appears to only consider the first ADO.NET provider in the list
within the resulting "app.config" or "web.config" file.
-->
<DbProviderFactories>
<remove invariant="System.Data.SQLite" />
<remove invariant="System.Data.SQLite.EF6" />
<add name="SQLite Data Provider (Entity Framework 6)"
invariant="System.Data.SQLite.EF6"
description=".NET Framework Data Provider for SQLite (Entity Framework 6)"
type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
</DbProviderFactories>
</system.data>
</configuration>

19
app/packages/System.Data.SQLite.EF6.1.0.94.0/content/net451/web.config.transform vendored
View File

@ -1,19 +0,0 @@
<configuration>
<system.data>
<!--
NOTE: The extra "remove" element below is to prevent the design-time
support components within EF6 from selecting the legacy ADO.NET
provider for SQLite (i.e. the one without any EF6 support). It
appears to only consider the first ADO.NET provider in the list
within the resulting "app.config" or "web.config" file.
-->
<DbProviderFactories>
<remove invariant="System.Data.SQLite" />
<remove invariant="System.Data.SQLite.EF6" />
<add name="SQLite Data Provider (Entity Framework 6)"
invariant="System.Data.SQLite.EF6"
description=".NET Framework Data Provider for SQLite (Entity Framework 6)"
type="System.Data.SQLite.EF6.SQLiteProviderFactory, System.Data.SQLite.EF6" />
</DbProviderFactories>
</system.data>
</configuration>

BIN
app/packages/System.Data.SQLite.EF6.1.0.94.0/lib/net40/System.Data.SQLite.EF6.dll vendored
View File

Binary file not shown.

BIN
app/packages/System.Data.SQLite.EF6.1.0.94.0/lib/net45/System.Data.SQLite.EF6.dll vendored
View File

Binary file not shown.

BIN
app/packages/System.Data.SQLite.EF6.1.0.94.0/lib/net451/System.Data.SQLite.EF6.dll vendored
View File

Binary file not shown.

13
app/packages/System.Data.SQLite.EF6.1.0.94.0/tools/net40/install.ps1 vendored
View File

@ -1,13 +0,0 @@
###############################################################################
#
# provider.ps1 --
#
# Written by Joe Mistachkin.
# Released to the public domain, use at your own risk!
#
###############################################################################
param($installPath, $toolsPath, $package, $project)
Add-EFProvider $project "System.Data.SQLite.EF6" `
"System.Data.SQLite.EF6.SQLiteProviderServices, System.Data.SQLite.EF6"

13
app/packages/System.Data.SQLite.EF6.1.0.94.0/tools/net45/install.ps1 vendored
View File

@ -1,13 +0,0 @@
###############################################################################
#
# provider.ps1 --
#
# Written by Joe Mistachkin.
# Released to the public domain, use at your own risk!
#
###############################################################################
param($installPath, $toolsPath, $package, $project)
Add-EFProvider $project "System.Data.SQLite.EF6" `
"System.Data.SQLite.EF6.SQLiteProviderServices, System.Data.SQLite.EF6"

13
app/packages/System.Data.SQLite.EF6.1.0.94.0/tools/net451/install.ps1 vendored
View File

@ -1,13 +0,0 @@
###############################################################################
#
# provider.ps1 --
#
# Written by Joe Mistachkin.
# Released to the public domain, use at your own risk!
#
###############################################################################
param($installPath, $toolsPath, $package, $project)
Add-EFProvider $project "System.Data.SQLite.EF6" `
"System.Data.SQLite.EF6.SQLiteProviderServices, System.Data.SQLite.EF6"

BIN
app/packages/System.Data.SQLite.Linq.1.0.94.1/System.Data.SQLite.Linq.1.0.94.1.nupkg vendored
View File

Binary file not shown.

32
app/packages/System.Data.SQLite.Linq.1.0.94.1/System.Data.SQLite.Linq.1.0.94.1.nuspec vendored
View File

@ -1,32 +0,0 @@
<?xml version="1.0"?>
<package xmlns="http://schemas.microsoft.com/packaging/2012/06/nuspec.xsd">
<metadata>
<id>System.Data.SQLite.Linq</id>
<version>1.0.94.1</version>
<title>System.Data.SQLite LINQ (x86/x64)</title>
<authors>SQLite Development Team</authors>
<owners>SQLite Development Team</owners>
<licenseUrl>http://www.sqlite.org/copyright.html</licenseUrl>
<projectUrl>http://system.data.sqlite.org/</projectUrl>
<iconUrl>http://system.data.sqlite.org/images/sqlite128.png</iconUrl>
<requireLicenseAcceptance>false</requireLicenseAcceptance>
<description>Support for LINQ using System.Data.SQLite.</description>
<copyright>Public Domain</copyright>
<language>en-US</language>
<tags>sqlite database ado.net provider interop</tags>
<dependencies>
<group targetFramework=".NETFramework2.0">
<dependency id="System.Data.SQLite.Core" version="1.0.94.0" />
</group>
<group targetFramework=".NETFramework4.0">
<dependency id="System.Data.SQLite.Core" version="1.0.94.0" />
</group>
<group targetFramework=".NETFramework4.5">
<dependency id="System.Data.SQLite.Core" version="1.0.94.0" />
</group>
<group targetFramework=".NETFramework4.5.1">
<dependency id="System.Data.SQLite.Core" version="1.0.94.0" />
</group>
</dependencies>
</metadata>
</package>

10
app/packages/System.Data.SQLite.Linq.1.0.94.1/content/net20/app.config.transform vendored
View File

@ -1,10 +0,0 @@
<configuration>
<system.data>
<DbProviderFactories>
<add name="SQLite Data Provider"
invariant="System.Data.SQLite"
description=".NET Framework Data Provider for SQLite"
type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
</DbProviderFactories>
</system.data>
</configuration>

10
app/packages/System.Data.SQLite.Linq.1.0.94.1/content/net20/web.config.transform vendored
View File

@ -1,10 +0,0 @@
<configuration>
<system.data>
<DbProviderFactories>
<add name="SQLite Data Provider"
invariant="System.Data.SQLite"
description=".NET Framework Data Provider for SQLite"
type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
</DbProviderFactories>
</system.data>
</configuration>

10
app/packages/System.Data.SQLite.Linq.1.0.94.1/content/net40/app.config.transform vendored
View File

@ -1,10 +0,0 @@
<configuration>
<system.data>
<DbProviderFactories>
<add name="SQLite Data Provider"
invariant="System.Data.SQLite"
description=".NET Framework Data Provider for SQLite"
type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
</DbProviderFactories>
</system.data>
</configuration>

10
app/packages/System.Data.SQLite.Linq.1.0.94.1/content/net40/web.config.transform vendored
View File

@ -1,10 +0,0 @@
<configuration>
<system.data>
<DbProviderFactories>
<add name="SQLite Data Provider"
invariant="System.Data.SQLite"
description=".NET Framework Data Provider for SQLite"
type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
</DbProviderFactories>
</system.data>
</configuration>

10
app/packages/System.Data.SQLite.Linq.1.0.94.1/content/net45/app.config.transform vendored
View File

@ -1,10 +0,0 @@
<configuration>
<system.data>
<DbProviderFactories>
<add name="SQLite Data Provider"
invariant="System.Data.SQLite"
description=".NET Framework Data Provider for SQLite"
type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
</DbProviderFactories>
</system.data>
</configuration>

10
app/packages/System.Data.SQLite.Linq.1.0.94.1/content/net45/web.config.transform vendored
View File

@ -1,10 +0,0 @@
<configuration>
<system.data>
<DbProviderFactories>
<add name="SQLite Data Provider"
invariant="System.Data.SQLite"
description=".NET Framework Data Provider for SQLite"
type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
</DbProviderFactories>
</system.data>
</configuration>

10
app/packages/System.Data.SQLite.Linq.1.0.94.1/content/net451/app.config.transform vendored
View File

@ -1,10 +0,0 @@
<configuration>
<system.data>
<DbProviderFactories>
<add name="SQLite Data Provider"
invariant="System.Data.SQLite"
description=".NET Framework Data Provider for SQLite"
type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
</DbProviderFactories>
</system.data>
</configuration>

10
app/packages/System.Data.SQLite.Linq.1.0.94.1/content/net451/web.config.transform vendored
View File

@ -1,10 +0,0 @@
<configuration>
<system.data>
<DbProviderFactories>
<add name="SQLite Data Provider"
invariant="System.Data.SQLite"
description=".NET Framework Data Provider for SQLite"
type="System.Data.SQLite.SQLiteFactory, System.Data.SQLite" />
</DbProviderFactories>
</system.data>
</configuration>

BIN
app/packages/System.Data.SQLite.Linq.1.0.94.1/lib/net20/System.Data.SQLite.Linq.dll vendored
View File

Binary file not shown.

BIN
app/packages/System.Data.SQLite.Linq.1.0.94.1/lib/net40/System.Data.SQLite.Linq.dll vendored
View File

Binary file not shown.

BIN
app/packages/System.Data.SQLite.Linq.1.0.94.1/lib/net45/System.Data.SQLite.Linq.dll vendored
View File

Binary file not shown.

BIN
app/packages/System.Data.SQLite.Linq.1.0.94.1/lib/net451/System.Data.SQLite.Linq.dll vendored
View File

Binary file not shown.

2
app/windream-Result-Handler.sln
View File

@ -5,7 +5,7 @@ VisualStudioVersion = 15.0.27130.2010
MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ResultHandler_Konfig", "ResultHandler_Konfig\ResultHandler_Konfig.vbproj", "{85F6D07F-4C83-41C6-AEF1-66F228C13C25}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SERV_DDWDResultHandler", "DDWDResultHandler\SERV_DDWDResultHandler.vbproj", "{190A63D1-A129-499D-A863-59D39D9EA58F}"
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ServiceDDWDResultHandler", "DDWDResultHandler\ServiceDDWDResultHandler.vbproj", "{190A63D1-A129-499D-A863-59D39D9EA58F}"
EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DD_WMResulthandler", "ClassWMResulthandler\DD_WMResulthandler.vbproj", "{B3190AEC-8DC4-4822-9609-54DF5B976262}"
EndProject