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

36
app/ClassWMResulthandler/clsDatabase.vb
View File

@ -1,9 +1,14 @@
Imports System.Data.SqlClient Imports System.Data.SqlClient
Imports Oracle.ManagedDataAccess.Client Imports Oracle.ManagedDataAccess.Client
Public Class clsDatatabase Imports DigitalData.Modules.Logging
Public Class clsDatabase
Private Shared MSSQL_inited As Boolean = False Private Shared MSSQL_inited As Boolean = False
Private Shared Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger Dim Logger As Logger
Public Shared Function Init(CONSTRING As String) Sub New(MyLogger As LogConfig, ConStr As String)
Logger = MyLogger.GetLogger()
Init(ConStr)
End Sub
Public Function Init(CONSTRING As String)
Try Try
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlClient.SqlConnection
SQLconnect.ConnectionString = CONSTRING SQLconnect.ConnectionString = CONSTRING
@ -11,11 +16,6 @@ Public Class clsDatatabase
SQLconnect.Close() SQLconnect.Close()
clsCURRENT.SQLSERVER_CS = CONSTRING clsCURRENT.SQLSERVER_CS = CONSTRING
MSSQL_inited = True 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 Return True
Catch ex As Exception Catch ex As Exception
@ -26,7 +26,7 @@ Public Class clsDatatabase
End Function End Function
Public Shared Function ExecuteonOracleDb(CONSTRING As String, ByVal plsqlcommand As String) Public Function ExecuteonOracleDb(CONSTRING As String, ByVal plsqlcommand As String)
Try Try
Logger.Debug("plsqlcommand: " & plsqlcommand) Logger.Debug("plsqlcommand: " & plsqlcommand)
' die nötigen Variablen definieren ' die nötigen Variablen definieren
@ -94,7 +94,7 @@ Public Class clsDatatabase
End Try End Try
End Function End Function
Public Shared Function Oracle_CS_Test(CONSTRING As String) Public Function Oracle_CS_Test(CONSTRING As String)
Try Try
Dim conn As New OracleConnectionStringBuilder Dim conn As New OracleConnectionStringBuilder
@ -119,7 +119,7 @@ Public Class clsDatatabase
End Try End Try
End Function End Function
Public Shared Function MSSQL_CS_Test(CONSTRING As String) Public Function MSSQL_CS_Test(CONSTRING As String)
Try Try
' die nötigen Variablen definieren ' die nötigen Variablen definieren
@ -146,7 +146,7 @@ Public Class clsDatatabase
End Try End Try
End Function End Function
Public Shared Function ExecuteonMSSQL(ConString As String, ByVal sqlcommand As String) Public Function ExecuteonMSSQL(ConString As String, ByVal sqlcommand As String)
Try Try
Logger.Debug("sqlcommand: " & sqlcommand) Logger.Debug("sqlcommand: " & sqlcommand)
If MSSQL_inited = False Then Return False If MSSQL_inited = False Then Return False
@ -219,7 +219,7 @@ Public Class clsDatatabase
End Function End Function
Public Shared Function Return_Datatable(Select_anweisung As String) Public Function Return_Datatable(Select_anweisung As String)
Try Try
Logger.Debug("Select_anweisung: " & Select_anweisung) Logger.Debug("Select_anweisung: " & Select_anweisung)
If MSSQL_inited = False Then Return Nothing If MSSQL_inited = False Then Return Nothing
@ -247,7 +247,7 @@ Public Class clsDatatabase
Return Nothing Return Nothing
End Try End Try
End Function 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 If MSSQL_inited = False Then Return False
Try Try
Logger.Debug("ExecuteCMD: " & ExecuteCMD) Logger.Debug("ExecuteCMD: " & ExecuteCMD)
@ -276,7 +276,7 @@ Public Class clsDatatabase
End Try End Try
End Function End Function
Public Shared Function Execute_Scalar(cmdscalar As String) Public Function Execute_Scalar(cmdscalar As String)
If MSSQL_inited = False Then Return Nothing If MSSQL_inited = False Then Return Nothing
Dim result Dim result
Try Try
@ -306,7 +306,7 @@ Public Class clsDatatabase
Return Nothing Return Nothing
End Try End Try
End Function 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 Dim result
Try Try
Logger.Debug("cmdscalar: " & cmdscalar) Logger.Debug("cmdscalar: " & cmdscalar)
@ -328,7 +328,7 @@ Public Class clsDatatabase
Return Nothing Return Nothing
End Try End Try
End Function 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 Try
Logger.Debug("ExecuteCMD: " & ExecuteCMD) Logger.Debug("ExecuteCMD: " & ExecuteCMD)
Dim SQLconnect As New OracleConnection Dim SQLconnect As New OracleConnection
@ -351,7 +351,7 @@ Public Class clsDatatabase
End Try End Try
End Function 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 Try
Logger.Debug("Select_anweisung: " & Select_anweisung) Logger.Debug("Select_anweisung: " & Select_anweisung)
Dim SQLconnect As New OracleConnection Dim SQLconnect As New OracleConnection

288
app/ClassWMResulthandler/clsDateiverarbeitung.vb
View File

@ -3,12 +3,15 @@ Imports System.IO
Imports System.Net Imports System.Net
Imports Newtonsoft.Json Imports Newtonsoft.Json
Imports System.Text Imports System.Text
Imports DigitalData.Modules.Logging
Public Class clsDateiverarbeitung Public Class clsDateiverarbeitung
Private Shared Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger Dim Logger As Logger
#Region "***** Variablen und Konstanten*****" Private MyLoggerConf As LogConfig
Public Shared _windream As New clsWindream_allgemein
#Region "***** Variablen und Konstanten*****"
Dim _windream As clsWindream_allgemein
Dim _database As clsDatabase
Public Shared pr_DTPROFIL_REGELN As DataTable Public Shared pr_DTPROFIL_REGELN As DataTable
Public Shared aktfile_Exportresult Public Shared aktfile_Exportresult
@ -26,11 +29,17 @@ Public Class clsDateiverarbeitung
Const WMObjectStreamOpenModeReadWrite = 2 Const WMObjectStreamOpenModeReadWrite = 2
Const WMObjectEditModeFileSystem = &H15 Const WMObjectEditModeFileSystem = &H15
#End Region #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 Try
pr_DTPROFIL_REGELN = Nothing pr_DTPROFIL_REGELN = Nothing
' Profildaten der Klasse mitteilen ' Profildaten der Klasse mitteilen
Logger.Info("InitProfilData Profildaten zugewiesen....") Logger.Debug("InitProfilData Profildaten zugewiesen....")
Return True Return True
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
@ -38,8 +47,83 @@ Public Class clsDateiverarbeitung
Return False Return False
End Try End Try
End Function 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 '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 Try
If Not Zielpfad.EndsWith("\") Then If Not Zielpfad.EndsWith("\") Then
Zielpfad = Zielpfad & "\" Zielpfad = Zielpfad & "\"
@ -47,11 +131,11 @@ Public Class clsDateiverarbeitung
Logger.Info("Verarbeitung von Datei: " & WDDatei.aName) Logger.Info("Verarbeitung von Datei: " & WDDatei.aName)
'Die Quelle zusammensetzen '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 Quelle As String = IO.Path.GetDirectoryName(WDLaufwerk & ":" & WDDatei.aPath & "\" & WDDatei.aName)
Dim ExportFileIO = New WMOTOOLLib.WMFileIO ' CreateObject("WMOTOOLLib.WMFileIO") ' New WMOTOOLLib.WMFileIO Dim ExportFileIO = New WMOTOOLLib.WMFileIO ' CreateObject("WMOTOOLLib.WMFileIO") ' New WMOTOOLLib.WMFileIO
Logger.Info("ExportFileIO erzeugt.....") Logger.Debug("ExportFileIO erzeugt.....")
' Stream Interface bereitstellen ' Stream Interface bereitstellen
WDDatei.LockFor(WMObjectEditModeFileSystem) WDDatei.LockFor(WMObjectEditModeFileSystem)
Try Try
@ -75,7 +159,7 @@ Public Class clsDateiverarbeitung
tempFilename = Zielpfad & Filename & "_" & version & Extension tempFilename = Zielpfad & Filename & "_" & version & Extension
version = version + 1 version = version + 1
Loop Loop
Logger.Info("Zieldateiname: " & tempFilename) Logger.Debug("Zieldateiname: " & tempFilename)
' den Dateiinhalt der neuen Datei zuweisen ' den Dateiinhalt der neuen Datei zuweisen
ExportFileIO.aWMStream = oWMStream ExportFileIO.aWMStream = oWMStream
ExportFileIO.bstrOriginalFileName = tempFilename ExportFileIO.bstrOriginalFileName = tempFilename
@ -96,9 +180,9 @@ Public Class clsDateiverarbeitung
Return False Return False
End Try End Try
End Function End Function
Public Shared Function Rename_File(WMFile As WMObject, konvention As String) Public Function Rename_File(WMFile As WMObject, konvention As String)
Try Try
Logger.Info("Konvention: '" & konvention & "'") Logger.Debug("Konvention: '" & konvention & "'")
'Regulären Ausdruck zum Auslesen der windream-Indexe definieren 'Regulären Ausdruck zum Auslesen der windream-Indexe definieren
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" 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) 'die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index)
Dim reg_element_Ohne_SZ As String = reg_element.Value.Replace("[%", "") Dim reg_element_Ohne_SZ As String = reg_element.Value.Replace("[%", "")
reg_element_Ohne_SZ = reg_element_Ohne_SZ.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 Dim wdIndexwert
'den Wert des Indexes für das aktuelle Dokument auslesen 'den Wert des Indexes für das aktuelle Dokument auslesen
wdIndexwert = WMFile.GetVariableValue(reg_element_Ohne_SZ) wdIndexwert = WMFile.GetVariableValue(reg_element_Ohne_SZ)
If wdIndexwert Is Nothing = False Then If wdIndexwert Is Nothing = False Then
If Not wdIndexwert.GetType.ToString.Contains("System.Object") 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.TrimEnd
wdIndexwert = wdIndexwert.ToString.TrimStart wdIndexwert = wdIndexwert.ToString.TrimStart
Logger.Info("Ausgelesener Indexwert = '" & wdIndexwert & "'") Logger.Debug("Ausgelesener Indexwert = '" & wdIndexwert & "'")
konvention = konvention.Replace(reg_element.Value, wdIndexwert.ToString) konvention = konvention.Replace(reg_element.Value, wdIndexwert.ToString)
i += 1 i += 1
Else Else
@ -131,18 +215,18 @@ Public Class clsDateiverarbeitung
Next Next
Dim version As Integer = 2 Dim version As Integer = 2
Dim ZielPfad As String = Path.GetDirectoryName(aktfile_Exportresult) Dim ZielPfad As String = Path.GetDirectoryName(aktfile_Exportresult)
Logger.Info("ZielPfad: " & ZielPfad) Logger.Debug("ZielPfad: " & ZielPfad)
Dim Filename = konvention Dim Filename = konvention
Dim Extension = Path.GetExtension(aktfile_Exportresult) Dim Extension = Path.GetExtension(aktfile_Exportresult)
Logger.Info("Extension: " & Extension) Logger.Debug("Extension: " & Extension)
Dim tempFilename As String = ZielPfad & "\" & Filename & Extension Dim tempFilename As String = ZielPfad & "\" & Filename & Extension
Logger.Info("tempFilename: " & tempFilename) Logger.Debug("tempFilename: " & tempFilename)
'Überprüfen ob File existiert 'Überprüfen ob File existiert
Do While IO.File.Exists(tempFilename) = True Do While IO.File.Exists(tempFilename) = True
tempFilename = ZielPfad & "\" & Filename & "~" & version & Extension tempFilename = ZielPfad & "\" & Filename & "~" & version & Extension
version += 1 version += 1
Loop 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)) My.Computer.FileSystem.RenameFile(aktfile_Exportresult, Path.GetFileName(tempFilename))
Logger.Info("Datei wurde erfolgreich umbenannt.") Logger.Info("Datei wurde erfolgreich umbenannt.")
Return True Return True
@ -152,13 +236,13 @@ Public Class clsDateiverarbeitung
Return False Return False
End Try End Try
End Function 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 Try
Dim WMIndexwert Dim WMIndexwert
Dim ZielPfad As String = Path.GetDirectoryName(aktfile_Exportresult) Dim ZielPfad As String = Path.GetDirectoryName(aktfile_Exportresult)
Logger.Info("ZielPfad: " & ZielPfad) Logger.Debug("ZielPfad: " & ZielPfad)
Dim Extension = Path.GetExtension(aktfile_Exportresult) Dim Extension = Path.GetExtension(aktfile_Exportresult)
Logger.Info("Extension: " & Extension) Logger.Debug("Extension: " & Extension)
If WMINDEX_NAME.StartsWith("[%") Then If WMINDEX_NAME.StartsWith("[%") Then
WMINDEX_NAME = WMINDEX_NAME.Replace("[%", "") WMINDEX_NAME = WMINDEX_NAME.Replace("[%", "")
@ -167,7 +251,7 @@ Public Class clsDateiverarbeitung
'den Wert des Indexes für das aktuelle Dokument auslesen 'den Wert des Indexes für das aktuelle Dokument auslesen
WMIndexwert = WMFile.GetVariableValue(WMINDEX_NAME) WMIndexwert = WMFile.GetVariableValue(WMINDEX_NAME)
If WMIndexwert.GetType.ToString.Contains("System.Object") Then 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 anz As Integer = 1
Dim copybasefile As String Dim copybasefile As String
For Each WMvalue As Object In WMIndexwert For Each WMvalue As Object In WMIndexwert
@ -175,9 +259,9 @@ Public Class clsDateiverarbeitung
Try Try
If WMvalue.ToString <> String.Empty Then If WMvalue.ToString <> String.Empty Then
Dim tempFilename As String = ZielPfad & "\" & WMvalue & Extension Dim tempFilename As String = ZielPfad & "\" & WMvalue & Extension
Logger.Info("tempFilename: " & tempFilename) Logger.Debug("tempFilename: " & tempFilename)
If anz = 1 Then 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)) My.Computer.FileSystem.RenameFile(aktfile_Exportresult, Path.GetFileName(tempFilename))
copybasefile = tempFilename copybasefile = tempFilename
Else Else
@ -210,14 +294,14 @@ Public Class clsDateiverarbeitung
End Try End Try
End Function 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 hostname = "http://documents.mylogitservices.syncreon.com:8100"
Dim link As String = $"{hostname}/WMWebApi/windream.web.api/DigitalData/BNSDownload?docId={docId}&userId={userId}" Dim link As String = $"{hostname}/WMWebApi/windream.web.api/DigitalData/BNSDownload?docId={docId}&userId={userId}"
Return link Return link
End Function End Function
Private Shared Function GetDocTypeCategory(docType As String) Private Function GetDocTypeCategory(docType As String)
Select Case docType Select Case docType
Case "Abliefernachweis" Case "Abliefernachweis"
Return 5 Return 5
@ -234,8 +318,9 @@ Public Class clsDateiverarbeitung
''' </summary> ''' </summary>
''' <param name="WMFile">Das WMObject, dass das aktuelle Dokument repräsentiert</param> ''' <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> ''' <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 Try
Logger.Info("handling BNSjsonDownload.....")
' Indizes für das aktuelle Dokument auslesen ' Indizes für das aktuelle Dokument auslesen
Dim SENDUNGNR = WMFile.GetVariableValue("Sendungnr") Dim SENDUNGNR = WMFile.GetVariableValue("Sendungnr")
Dim DOKID = WMFile.GetVariableValue("Dokument-ID") Dim DOKID = WMFile.GetVariableValue("Dokument-ID")
@ -246,7 +331,7 @@ Public Class clsDateiverarbeitung
Dim link As String = GetWMAPILink(DOKID, userId) Dim link As String = GetWMAPILink(DOKID, userId)
' JSON Payload erstellen und serialisieren ' JSON Payload erstellen und serialisieren
Dim doc As New BNSDocument() Dim doc As New BNSDocument(MyLoggerConf)
doc.Bemerkung = DOKART doc.Bemerkung = DOKART
'Dokumente sollen unbegrenzt gültig sein 'Dokumente sollen unbegrenzt gültig sein
'doc.Ivalidfrom = now 'doc.Ivalidfrom = now
@ -269,8 +354,8 @@ Public Class clsDateiverarbeitung
Dim geschaeftsId = SENDUNGNR Dim geschaeftsId = SENDUNGNR
Dim url As String = $"http://{apiAddress}/onwebui/api/Customer/{mandatenId}/{geschaeftsObjekt}/{geschaeftsId}/dokument" Dim url As String = $"http://{apiAddress}/onwebui/api/Customer/{mandatenId}/{geschaeftsObjekt}/{geschaeftsId}/dokument"
Logger.Info($">> Generiertes JSON: {json}") ' Logger.Debug($">> Generiertes JSON: {json}")
Logger.Info($">> Creating WebRequest for {url}") Logger.Debug($">> Creating WebRequest for {url}")
Dim req As HttpWebRequest = WebRequest.CreateHttp(url) Dim req As HttpWebRequest = WebRequest.CreateHttp(url)
@ -284,8 +369,8 @@ Public Class clsDateiverarbeitung
reqStream.Write(bytes, 0, bytes.Length) reqStream.Write(bytes, 0, bytes.Length)
reqStream.Close() reqStream.Close()
Logger.Info($">> Datei wird hochgeladen... docId: {DOKID}, dokart: {DOKART}, userId: {userId}") 'Logger.Debug($">> Datei wird hochgeladen... docId: {DOKID}, dokart: {DOKART}, userId: {userId}")
Logger.Info($">> Upload URL: {url}") 'Logger.Debug($">> Upload URL: {url}")
Using res As HttpWebResponse = req.GetResponse() Using res As HttpWebResponse = req.GetResponse()
Dim code As HttpStatusCode = res.StatusCode Dim code As HttpStatusCode = res.StatusCode
@ -293,19 +378,19 @@ Public Class clsDateiverarbeitung
' Status 201 Created bedeutet: Alles okay! ' Status 201 Created bedeutet: Alles okay!
If code = HttpStatusCode.Created Then 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 Else
Throw New Exception($"Server Error (HTTP {code}: {text})") Logger.Warn($"Server Error (HTTP {code}: {text})")
End If End If
End Using End Using
Return True Return True
Catch ex As Exception Catch ex As Exception
Logger.Warn($"Unhandled Exception in BNSjsonDownload - Profile ({clsCURRENT._Profilname}) {ex.Message}")
Logger.Error(ex) Logger.Error(ex)
Return True Return True
End Try End Try
End Function 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 Try
Dim result = REGEX_REPLACE(WMFile, OracleCommandRAW) Dim result = REGEX_REPLACE(WMFile, OracleCommandRAW)
If result = Nothing Then If result = Nothing Then
@ -313,7 +398,7 @@ Public Class clsDateiverarbeitung
End If End If
If clsDatatabase.ExecuteonOracleDb(OracleCS, result) = True Then If _database.ExecuteonOracleDb(OracleCS, result) = True Then
Return True Return True
Else Else
Return False Return False
@ -325,7 +410,7 @@ Public Class clsDateiverarbeitung
Return False Return False
End Try End Try
End Function 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 Try
Dim result = REGEX_REPLACE(WMFile, SQLCommandRAW) Dim result = REGEX_REPLACE(WMFile, SQLCommandRAW)
If result = Nothing Then If result = Nothing Then
@ -333,7 +418,7 @@ Public Class clsDateiverarbeitung
End If End If
If clsDatatabase.ExecuteonMSSQL(MSSQLCS, result) = True Then If _database.ExecuteonMSSQL(MSSQLCS, result) = True Then
Return True Return True
Else Else
Return False Return False
@ -345,10 +430,112 @@ Public Class clsDateiverarbeitung
Return False Return False
End Try End Try
End Function End Function
Private Function Return_VektorArray(ByVal oDocument As WMObject, vktIndexName As String, NIIndexe As Object, CheckDuplikat As Boolean)
Public Shared Function REGEX_REPLACE(WMFile As WMObject, _STRING As String)
Try 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 ' Regulären Ausdruck zum Auslesen der windream-Indexe definieren
Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}"
' einen Regulären Ausdruck laden ' einen Regulären Ausdruck laden
@ -361,7 +548,7 @@ Public Class clsDateiverarbeitung
' die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index) ' die Zeichen [% und ] entfernen (liefert den wirklichen windream-Index)
Dim reg_element_Ohne_SZ As String = reg_element.Value.Replace("[%", "") Dim reg_element_Ohne_SZ As String = reg_element.Value.Replace("[%", "")
reg_element_Ohne_SZ = reg_element_Ohne_SZ.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 reg_element_Ohne_SZ = "EXPORTED_FILENAME" Then
If clsCURRENT.EXPORTED_FILENAME <> "" Then If clsCURRENT.EXPORTED_FILENAME <> "" Then
_STRING = _STRING.Replace(reg_element.Value, clsCURRENT.EXPORTED_FILENAME) _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 If Not wdIndexwert.GetType.ToString.Contains("System.Object") Then
wdIndexwert = wdIndexwert.ToString.TrimEnd wdIndexwert = wdIndexwert.ToString.TrimEnd
wdIndexwert = wdIndexwert.ToString.TrimStart wdIndexwert = wdIndexwert.ToString.TrimStart
Logger.Info("indexvalue read is: '" & wdIndexwert & "'") Logger.Debug("indexvalue read is: '" & wdIndexwert & "'")
_STRING = _STRING.Replace(reg_element.Value, wdIndexwert.ToString) _STRING = _STRING.Replace(reg_element.Value, wdIndexwert.ToString)
Logger.Info("REGEX_String (" & i & ") " & _STRING) Logger.Debug("REGEX_String (" & i & ") " & _STRING)
i += 1 i += 1
Else Else
Logger.Warn("Attention: WMIndex is an vectorfield - seperation of values via ;") Logger.Warn("Attention: WMIndex is an vectorfield - seperation of values via ;")
Logger.Info("wdIndexValue is System.Object....") Logger.Debug("wdIndexValue is System.Object....")
Logger.Info("trying to seperate via ,....") Logger.Debug("trying to seperate via ,....")
Dim vector_result As String = "" Dim vector_result As String = ""
For Each WMvalue As Object In wdIndexwert For Each WMvalue As Object In wdIndexwert
Dim x As Integer = 0 Dim x As Integer = 0
@ -400,7 +587,7 @@ Public Class clsDateiverarbeitung
End If End If
Next Next
_STRING = _STRING.Replace(reg_element.Value, vector_result.ToString) _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 End If
Else Else
Logger.Warn("Attention: Indexvalue is NOTHING, standardvalue '0' will be used", False, "clsDateiverarbeitung.REGEX_REPLACE") Logger.Warn("Attention: Indexvalue is NOTHING, standardvalue '0' will be used", False, "clsDateiverarbeitung.REGEX_REPLACE")
@ -419,6 +606,7 @@ Public Class clsDateiverarbeitung
End Function End Function
Public Class BNSDocument Public Class BNSDocument
Dim Logger As Logger
Public Doksourcetype As Integer = 3 Public Doksourcetype As Integer = 3
Public Pfad As String Public Pfad As String
'Dokumente sollen unbegrenzt gültig sein 'Dokumente sollen unbegrenzt gültig sein
@ -429,8 +617,10 @@ Public Class clsDateiverarbeitung
Public Fremsysid As Integer = 1 Public Fremsysid As Integer = 1
Public Kategorien As List(Of BNSDocumentCategory) Public Kategorien As List(Of BNSDocumentCategory)
Public Dateiname As String Public Dateiname As String
Public Sub New(MyLogger As LogConfig)
Logger = MyLogger.GetLogger()
End Sub
End Class End Class
Public Class BNSDocumentCategory Public Class BNSDocumentCategory
Public Id As Integer Public Id As Integer
End Class End Class

169
app/ClassWMResulthandler/clsEmail.vb
View File

@ -3,96 +3,21 @@ Imports System
Imports Independentsoft.Email Imports Independentsoft.Email
Imports Independentsoft.Email.Smtp Imports Independentsoft.Email.Smtp
Imports Independentsoft.Email.Mime Imports Independentsoft.Email.Mime
Imports DigitalData.Modules.Logging
Public Class clsEmail 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 Private Shared MailAktiv As Boolean = False
Sub New(MyLogger As LogConfig)
'Public Shared Function Init() Logger = MyLogger.GetLogger()
' Try End Sub
' Dim DT As DataTable = clsDatatabase.Return_Datatable("select * from TBDD_EMAIL_ACCOUNT where ACTIVE = 1") Public Function Email_Send_Independentsoft(ByVal mailSubject As String, ByVal mailBody As String, mailto As String,
' 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,
mailfrom As String, mailsmtp As String, mailport As Integer, mailUser As String, mailPW 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() Dim empfaenger As String()
If mailto.Contains(";") Then If mailto.Contains(";") Then
empfaenger = mailto.Split(";") empfaenger = mailto.Split(";")
@ -103,15 +28,15 @@ Public Class clsEmail
Dim _error As Boolean = False Dim _error As Boolean = False
'Für jeden Empfänger eine Neue Mail erzeugen 'Für jeden Empfänger eine Neue Mail erzeugen
For Each _mailempfaenger As String In empfaenger For Each _mailempfaenger As String In empfaenger
Logger.Debug($"Working on email for {_mailempfaenger}..")
Try Try
Dim message As New Message() Dim message As New Message()
message.From = New Mailbox(mailfrom, mailfrom) message.From = New Mailbox(mailfrom, mailfrom)
message.[To].Add(New Mailbox(_mailempfaenger)) message.[To].Add(New Mailbox(_mailempfaenger))
message.Subject = mailSubject message.Subject = mailSubject
Logger.Debug($"Message created..")
Dim textBodyPart As New BodyPart() 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.ContentTransferEncoding = ContentTransferEncoding.QuotedPrintable
textBodyPart.Body = mailBody textBodyPart.Body = mailBody
message.BodyParts.Add(textBodyPart) message.BodyParts.Add(textBodyPart)
@ -126,39 +51,80 @@ Public Class clsEmail
attachment1.ContentType = New ContentType("application", "MS-word") attachment1.ContentType = New ContentType("application", "MS-word")
End If End If
message.BodyParts.Add(attachment1) message.BodyParts.Add(attachment1)
Else
Logger.Warn($"Attachment {attment.ToString} is not existing!")
End If End If
End If End If
Dim client As SmtpClient Dim client As SmtpClient
Try Try
client = New SmtpClient(mailsmtp, mailport) client = New SmtpClient(mailsmtp, mailport)
Catch ex As Exception Catch ex As Exception
Logger.Warn("clsEmail.SendMail(Create Client): " & ex.Message) Logger.Warn("clsEmail.Create Client: " & ex.Message)
_error = True _error = True
Continue For Continue For
End Try End Try
Try Try
client.Connect() client.Connect()
Catch ex As Exception Catch ex As Exception
Logger.Warn("clsEmail.SendMail(Client.Connect): " & ex.Message) Logger.Warn("clsEmail.Client.Connect: " & ex.Message)
_error = True _error = True
Continue For ' Continue For
End Try 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.StartTls()
client.EnableSsl = False
Logger.Info("Authentification via TLS. SSL disabled")
Else
client.EnableSsl = False
Logger.Info("Authentification NONE. SSL disabled")
End If
Try Try
client.Login(mailUser, mailPW)
client.Connect()
Catch ex As Exception 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 _error = True
client.Disconnect() client.Disconnect()
Continue For Continue For
End Try End Try
End Try
End Try
Try Try
client.Send(message) client.Send(message)
Logger.Info("Message to " & _mailempfaenger & " has been send.")
_error = False
Catch ex As Exception Catch ex As Exception
Logger.Warn("clsEmail.SendMail(Client.Send): " & ex.Message) Logger.Warn("clsEmail.Client.Send: " & ex.Message)
_error = True _error = True
client.Disconnect() client.Disconnect()
Continue For Continue For
@ -167,7 +133,6 @@ Public Class clsEmail
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
_error = True _error = True
End Try End Try
Next Next
@ -177,6 +142,10 @@ Public Class clsEmail
Else Else
Return True Return True
End If End If
Catch ex As Exception
Logger.Error(ex)
Return False
End Try
End Function End Function
End Class 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.IO
Imports System.Text Imports System.Text
Imports Newtonsoft.Json Imports Newtonsoft.Json
Imports DigitalData.Modules.Logging
Public Class clsProfil Public Class clsProfil
Inherits clsCURRENT Inherits clsCURRENT
Private Shared Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger Dim Logger As Logger
#Region "***** Variablen *****" #Region "***** Variablen *****"
Private Shared CriticalError As Boolean = False 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 Private Shared WD_aktivesDokument As WMObject
#End Region #End Region
Sub New(PROFIL_ID As Integer, LogSpeicherort As String, praefix As String) Sub New(MyLogger As LogConfig, PROFIL_ID As Integer)
Init(PROFIL_ID) 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 End Sub
Public Shared Function Init(PROFIL_ID As Integer) Public Function Init(PROFIL_ID As Integer)
Try Try
Logger.Info("Start Initialisierung Profil für GUID: " & PROFIL_ID.ToString) Logger.Debug("Start Initialisierung Profil für GUID: " & PROFIL_ID.ToString)
Dim DT As DataTable = clsDatatabase.Return_Datatable("Select * from TBWMRH_PROFIL where GUID = " & PROFIL_ID) Dim DT As DataTable = _database.Return_Datatable("Select * from TBWMRH_PROFIL where GUID = " & PROFIL_ID)
If DT.Rows.Count > 0 Then If DT.Rows.Count > 0 Then
For Each DR As DataRow In DT.Rows For Each DR As DataRow In DT.Rows
_profGUID = PROFIL_ID _profGUID = PROFIL_ID
_Profilname = CStr(DR.Item("Profilname")) _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 ' Überprüfen ob Profil aktiv oder inaktiv
If CBool(DR.Item("Aktiv")) = False Then If CBool(DR.Item("Aktiv")) = False Then
Logger.Info("## Profil '" & _Profilname & "' ist inaktiv geschaltet") Logger.Info("## Profil '" & _Profilname & "' ist inaktiv geschaltet")
@ -39,7 +46,7 @@ Public Class clsProfil
_profDay = CStr(DR.Item("Day")) _profDay = CStr(DR.Item("Day"))
_profRunType = CStr(DR.Item("Run")) _profRunType = CStr(DR.Item("Run"))
_proflastRun = DR.Item("Letzter_Durchlauf") _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 Return True
End If End If
Next Next
@ -55,27 +62,36 @@ Public Class clsProfil
End Function End Function
'Durchlauf des Profils wird aus dem Service gestartet wenn Init = True war '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 Dim _error As Boolean = False
'Try Try
Dim Run_Profile As Boolean = False Dim Run_Profile As Boolean = False
'Soll die Verarbeitung heute durchgeführt werden?? 'Soll die Verarbeitung heute durchgeführt werden??
Dim Dayofweek As Integer = My.Computer.Clock.LocalTime.DayOfWeek 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 If _profDay.Substring(Dayofweek - 1, 1) = 1 Then
'Verarbeitung soll heute durchgeführt werden 'Verarbeitung soll heute durchgeführt werden
Logger.Info("Verarbeitung soll heute durchgeführt werden!") Logger.Debug("Verarbeitung soll heute durchgeführt werden!")
Logger.Info("_RunType: " & _profRunType) Logger.Debug("_RunType: " & _profRunType)
Dim arr As String() Dim arr As String()
arr = _profRunType.Split(";") arr = _profRunType.Split(";")
Logger.Info("arr(1): " & arr(1).ToString) Logger.Debug("arr(1): " & arr(1).ToString)
Select Case arr(0) Select Case arr(0)
Case "TIME" Case "TIME"
' Dim intervall As Integer = clsSQLITE.konf_intervall / 60 ' Dim intervall As Integer = clsSQLITE.konf_intervall / 60
Logger.Info("Intervall: 1 Minute")
Dim Time_next As DateTime = _proflastRun.AddMinutes(1) Dim Time_next As DateTime = _proflastRun.AddMinutes(1)
Dim _RunTime As Date = CDate(arr(1)) Dim _RunTime As Date = CDate(arr(1))
Logger.Info("ProfilTime: " & _RunTime) Logger.Debug("ProfilTime: " & _RunTime)
Logger.Info("_RunTime.ToShortTimeString: " & _RunTime.ToShortTimeString & " # " & "Now.ToShortTimeString: " & Now.ToShortTimeString) Logger.Debug("_RunTime.ToShortTimeString: " & _RunTime.ToShortTimeString & " # " & "Now.ToShortTimeString: " & Now.ToShortTimeString)
If Time_next.ToString.StartsWith("11.11.1911") Then If Time_next.ToString.StartsWith("11.11.1911") Then
Logger.Info("Manueller Durchlauf des Profils - 11.11.1911") Logger.Info("Manueller Durchlauf des Profils - 11.11.1911")
Run_Profile = True Run_Profile = True
@ -83,58 +99,63 @@ Public Class clsProfil
'Ist die Uhrzeit in der Range 'Ist die Uhrzeit in der Range
If _RunTime.ToShortTimeString = Now.ToShortTimeString Then If _RunTime.ToShortTimeString = Now.ToShortTimeString Then
Run_Profile = True Run_Profile = True
Else
Logger.Debug("No run as " & _RunTime.ToShortTimeString & "<>" & Now.ToShortTimeString)
End If End If
End If End If
Case "INTV" Case "INTV"
'Die Differenz berechnen 'Die Differenz berechnen
Dim DiffMin As Integer = DateDiff(DateInterval.Minute, _proflastRun, Date.Now) Dim DiffMin As Integer = DateDiff(DateInterval.Minute, _proflastRun, Date.Now)
Dim msg As String
msg = "Minutenangaben: " & vbNewLine 'Logger.Info("DiffMin: " & DiffMin)
msg = msg & "DiffMin: " & DiffMin & vbNewLine 'Logger.Info("Intervall: " & arr(1))
msg = msg & "Intervall: " & arr(1)
Logger.Info(msg)
If DiffMin >= CInt(arr(1)) Then If DiffMin >= CInt(arr(1)) Then
'Den Durchlauf erlauben 'Den Durchlauf erlauben
Run_Profile = True Run_Profile = True
Else
Logger.Info("No run as DiffMin (" & DiffMin & ") <= Intervall(" & arr(1) & ")")
End If End If
Case Else Case Else
Logger.Warn("_profRunType konnte nicht ausgewertet werden - " & arr(0)) Logger.Warn("_profRunType konnte nicht ausgewertet werden - " & arr(0))
End Select 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 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 clsCURRENT.PROFILE_HandledFiles = Nothing
Logger.Info("Start des Durchlaufes für Profil '" & _Profilname & "'") Logger.Debug("Start RUN of profile '" & _Profilname & "'")
'den Durchlaufszeitpunkt speichern '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 If File.Exists(_profwdSuche) = False Then
Logger.Warn("Die Windream-Suche '" & _profwdSuche & "' existiert nicht!", True, "clsProfil.Profil_Durchlauf") 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 '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 Return False
Else Else
' windream-Suche für Profil starten ' windream-Suche für Profil starten
Logger.Info("GetSearchDocuments für Suche '" & _profwdSuche & "' starten: ") Logger.Debug("GetSearchDocuments für Suche '" & _profwdSuche & "' starten: ")
Dim windreamSucheErgebnisse As WMObjects = clsWindream_allgemein.GetSearchDocuments(_profwdSuche) Dim windreamSucheErgebnisse As WMObjects = windream.GetSearchDocuments(_profwdSuche)
If windreamSucheErgebnisse Is Nothing Then If windreamSucheErgebnisse Is Nothing Then
Logger.Warn("windreamSucheErgebnisse is nothing!", True, "clsProfil.Profil_Durchlauf") Logger.Warn("windreamSucheErgebnisse is nothing!", True, "clsProfil.Profil_Durchlauf")
Return False Return False
End If End If
If windreamSucheErgebnisse.Count > 0 Then If windreamSucheErgebnisse.Count > 0 Then
Logger.Info("- Insgesamt sollen '" & windreamSucheErgebnisse.Count & "' Dateien bearbeitet werden") Logger.Info(windreamSucheErgebnisse.Count & " files shall be worked!")
Logger.Info("SELECT * FROM TBWMRH_PROFIL_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE") Logger.Debug("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") Dim DT_PROFIL_JOB As DataTable = _database.Return_Datatable("SELECT * FROM TBWMRH_PROFIL_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE")
Logger.Info("DT_PROFIL_JOB und DT_PROFIL_FILE_JOB generiert ") 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.Info("DT_PROFIL_JOB.Rows.Count = " & DT_PROFIL_JOB.Rows.Count) Logger.Debug($"DT_PROFIL_JOB ({DT_PROFIL_JOB.Rows.Count})and DT_PROFIL_FILE_JOB ({DT_PROFIL_FILE_JOB.Rows.Count}) generiert ")
Logger.Info("DT_PROFIL_FILE_JOB.Rows.Count = " & DT_PROFIL_FILE_JOB.Rows.Count)
If DT_PROFIL_JOB.Rows.Count > 0 Then If DT_PROFIL_JOB.Rows.Count > 0 Then
If clsDateiverarbeitung.InitProfilData = True Then If _dateiverarbeitung.InitProfilData = True Then
Logger.Info("clsDateiverarbeitung.InitProfilData = True") _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 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 Next
Dim FileJobSuccessful As Boolean = False Dim FileJobSuccessful As Boolean = False
Dim CountExportedDoc As Integer = 0 Dim CountExportedDoc As Integer = 0
@ -143,21 +164,26 @@ Public Class clsProfil
For Each DR_PR_JB As DataRow In DT_PROFIL_JOB.Rows For Each DR_PR_JB As DataRow In DT_PROFIL_JOB.Rows
Select Case DR_PR_JB.Item("JOB_TYP").ToString.ToUpper Select Case DR_PR_JB.Item("JOB_TYP").ToString.ToUpper
Case "Create Mail Attachment".ToUpper Case "Create Mail Attachment".ToUpper
Logger.Info("JobType: Create Mail Attachment")
'XX 'XX
Dim Email_Empfänger = DR_PR_JB.Item("STRING1") 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") 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") 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") 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 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 MAILFROM As String = ""
Dim MAILSMTP As String = "" Dim MAILSMTP As String = ""
Dim MAIL_USER As String = "" Dim MAIL_USER As String = ""
Dim MAIL_USER_PW 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" Dim MAIL_PORT As String = "25"
For Each emailrow As DataRow In clsCURRENT.DT_TBDD_EMAIL.Rows For Each emailrow As DataRow In clsCURRENT.DT_TBDD_EMAIL.Rows
@ -166,7 +192,7 @@ Public Class clsProfil
MAILSMTP = emailrow.Item("EMAIL_SMTP") MAILSMTP = emailrow.Item("EMAIL_SMTP")
MAIL_USER = emailrow.Item("EMAIL_USER") MAIL_USER = emailrow.Item("EMAIL_USER")
MAIL_USER_PW = emailrow.Item("EMAIL_PW") 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") MAIL_PORT = emailrow.Item("PORT")
End If End If
Next Next
@ -189,94 +215,88 @@ Public Class clsProfil
Return False Return False
End If End If
If Email_Empfänger.ToString.Contains("[%") Then If Email_Empfänger.ToString.Contains("[%") Then
Email_Empfänger = clsDateiverarbeitung.REGEX_REPLACE(WMdok, Email_Empfänger) Email_Empfänger = _dateiverarbeitung.REGEX_REPLACE(WMdok, Email_Empfänger)
Logger.Info("Email_Empfänger: " & Email_Empfänger) Logger.Debug("Email_Empfänger: " & Email_Empfänger)
End If End If
Email_Betreff = clsDateiverarbeitung.REGEX_REPLACE(WMdok, Email_Betreff) Email_Betreff = _dateiverarbeitung.REGEX_REPLACE(WMdok, Email_Betreff)
Email_Body = clsDateiverarbeitung.REGEX_REPLACE(WMdok, Email_Body) Email_Body = _dateiverarbeitung.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)
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 Else
Logger.Warn("DT_TBDD_EMAIL is nothing or contains no rows") Logger.Warn("DT_TBDD_EMAIL is nothing or contains no rows")
Return False Return False
End If End If
Case "Export HDD".ToUpper Case "Export HDD".ToUpper
Logger.Info("Case Export HDD") Logger.Info("JobType: Case Export HDD")
'Für jedes Dokument in der Windream-Ergebnisliste 'Für jedes Dokument in der Windream-Ergebnisliste
'For Each dok As WMObject In windreamSucheErgebnisse 'For Each dok As WMObject In windreamSucheErgebnisse
' aktuelles Dokument zum Export bereitstellen ' aktuelles Dokument zum Export bereitstellen
clsCURRENT.EXPORTED_FILENAME = "" 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) ReDim Preserve clsCURRENT.PROFILE_HandledFiles(CountExportedDoc)
clsCURRENT.PROFILE_HandledFiles(CountExportedDoc) = clsCURRENT.EXPORTED_FILENAME clsCURRENT.PROFILE_HandledFiles(CountExportedDoc) = clsCURRENT.EXPORTED_FILENAME
CountExportedDoc += 1 CountExportedDoc += 1
FileJobSuccessful = True FileJobSuccessful = True
Else
clsDatatabase.Execute_non_Query("UPDATE TBWMRH_PROFIL SET Running = 0, LETZTER_DURCHLAUF = Getdate() WHERE GUID = " & _profGUID)
End If End If
'Next 'Next
Case "BNS json Download".ToUpper Case "BNS json Download".ToUpper
FileJobSuccessful = clsDateiverarbeitung.BNSjsonDownload(WMdok, DR_PR_JB.Item("STRING1"), DR_PR_JB.Item("STRING2")) Logger.Info("JobType: BNS json Download")
Case "Send to printer".ToUpper FileJobSuccessful = _dateiverarbeitung.BNSjsonDownload(WMdok, DR_PR_JB.Item("STRING1"), DR_PR_JB.Item("STRING2"))
Try 'Case "Send to printer".ToUpper
Dim pdfxchange = clsCURRENT.DT_TBWMRH_KONFIGURATION.Rows(0).Item("PDF_XCHANGE_LOCATION") ' Logger.Info("JobType: Send to printer")
Dim printername = DR_PR_JB.Item("STRING1") ' Dim pdfxchange = clsCURRENT.DT_TBWMRH_KONFIGURATION.Rows(0).Item("PDF_XCHANGE_LOCATION")
Dim filename = clsCURRENT.WDLAUFWERK & ":" & WMdok.aPath '& "\" & WMdok.aName ' Dim printername = DR_PR_JB.Item("STRING1")
If File.Exists(pdfxchange) = False Then ' Dim filename = clsCURRENT.WDLAUFWERK & ":" & WMdok.aPath
Logger.Warn("PDFXChange existiert nicht am Ort...") ' Try
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 & """"
myProcess.StartInfo.Arguments = _argument ' If File.Exists(pdfxchange) = False Then
Logger.Info("Arguments: " & _argument) ' Logger.Warn("PDFXChange existiert nicht am Ort...")
Try ' Continue For
myProcess.Start() ' End If
Dim p As Process ' Dim myProcess As New Process
p = Process.GetProcessById(myProcess.Id) ' 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() ' myProcess.StartInfo.Arguments = _argument
sw.Start() ' 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 End Select
Next Next
'################################## '##################################
'JETZT DER DURCHLAUF DER DATEI-JOBS 'JETZT DER DURCHLAUF DER DATEI-JOBS
@ -285,52 +305,69 @@ Public Class clsProfil
'Für jeden File-Job 'Für jeden File-Job
For Each DR_PR_FILE_JOB As DataRow In DT_PROFIL_FILE_JOB.Rows For Each DR_PR_FILE_JOB As DataRow In DT_PROFIL_FILE_JOB.Rows
If FileJobSuccessful = False Then If FileJobSuccessful = False Then
Logger.Warn("AUSSTIEG FOR SCHLEIFE...") Logger.Info("AUSSTIEG FOR SCHLEIFE...")
Exit For Exit For
End If End If
Select Case DR_PR_FILE_JOB.Item("TYP").ToString.ToLower Select Case DR_PR_FILE_JOB.Item("TYP").ToString.ToLower
Case "Set Index".ToLower Case "Set Index".ToLower
Try Try
'Überprüfen ob Value bereits gesetzt wurde? 'Überprüfen ob Value bereits gesetzt wurde?
Dim idxName As String = DR_PR_FILE_JOB.Item("STRING1").ToString Dim idxName As String = DR_PR_FILE_JOB.Item("STRING1").ToString
Dim idxvalue As String = DR_PR_FILE_JOB.Item("STRING2").ToString Dim idxvalue As String = DR_PR_FILE_JOB.Item("STRING2").ToString
If idxvalue.Contains("[%DATETIME]") Then If idxvalue.Contains("[%DATETIME]") Then
idxvalue = idxvalue.Replace("[%DATETIME]", Now.ToString) idxvalue = idxvalue.Replace("[%DATETIME]", Now.ToString)
End If 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 Dim arrIndex() As String
ReDim Preserve arrIndex(0) ReDim Preserve arrIndex(0)
arrIndex(0) = idxName arrIndex(0) = idxName
Logger.Info("...nach arrIndex") Logger.Debug("...nach arrIndex")
Dim arrValue() As String Dim arrValue() As String
Dim aktvalue As Object Dim aktvalue As Object
aktvalue = WMdok.GetVariableValue(idxName) aktvalue = WMdok.GetVariableValue(idxName)
Logger.Info("...nach aktValue zuweisen..") Logger.Debug("...nach aktValue zuweisen..")
Dim wmtype = clsWindream_allgemein.GetTypeOfIndexAsIntByName(idxName)
If aktvalue Is Nothing Then Dim is_vektor As Boolean = False
Logger.Info("Index '" & idxName & "' ist noch leer.") 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) ReDim Preserve arrValue(0)
arrValue(0) = idxvalue arrValue(0) = idxvalue
Else Else
Logger.Info("Index '" & idxName & "' ist bereits gefüllt.")
Dim myArray() Dim myArray()
ReDim myArray(0) ReDim myArray(0)
myArray(0) = idxvalue myArray(0) = idxvalue
Dim VektorArray() Dim VektorArray()
VektorArray = Return_VektorArray(WMdok, idxName, myArray, True) VektorArray = Return_VektorArray(WMdok, idxName, myArray, True)
If VektorArray Is Nothing = False Then If VektorArray Is Nothing = False Then
ReDim arrValue(VektorArray.Length - 1) ReDim arrValue(VektorArray.Length - 1)
Array.Copy(VektorArray, arrValue, VektorArray.Length) Array.Copy(VektorArray, arrValue, VektorArray.Length)
End If End If
End If End If
If arrValue Is Nothing = False Then 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 Else
Logger.Warn("arrValue is nothing - keine Indexierung") Logger.Warn("arrValue is nothing - keine Indexierung")
End If End If
@ -340,17 +377,17 @@ Public Class clsProfil
'clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(SetIndex)") 'clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(SetIndex)")
End Try End Try
Case "Rename File with windream Index".ToLower Case "Rename File with windream Index".ToLower
Logger.Info("Exportierte Datei soll nach Indexvorgaben umbenannt werden...") Logger.Debug("Exportierte Datei soll nach Indexvorgaben umbenannt werden...")
clsDateiverarbeitung.Rename_File(WMdok, DR_PR_FILE_JOB.Item("STRING1").ToString) _dateiverarbeitung.Rename_File(WMdok, DR_PR_FILE_JOB.Item("STRING1").ToString)
Case "Rename File with WMVector (only one)".ToLower Case "Rename File with WMVector (only one)".ToLower
Logger.Info("Exportierte Datei soll nach VektorIndexvorgaben umbenannt werden...") Logger.Debug("Exportierte Datei soll nach VektorIndexvorgaben umbenannt werden...")
clsDateiverarbeitung.Rename_File_Vektor(WMdok, DR_PR_FILE_JOB.Item("STRING1").ToString) _dateiverarbeitung.Rename_File_Vektor(WMdok, DR_PR_FILE_JOB.Item("STRING1").ToString)
Case "Execute Oracle Command".ToLower Case "Execute Oracle Command".ToLower
Try Try
Logger.Info("Execute Oracle Command.......") Logger.Debug("Execute Oracle Command.......")
Dim oracleconnectionstring = DR_PR_FILE_JOB.Item("STRING1").ToString Dim oracleconnectionstring = DR_PR_FILE_JOB.Item("STRING1").ToString
Dim oracleCommandRAW = DR_PR_FILE_JOB.Item("STRING2").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 Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
'clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(ExecuteOracleCommand)") 'clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(ExecuteOracleCommand)")
@ -359,8 +396,8 @@ Public Class clsProfil
Try Try
Dim MSSQLconnectionstring = DR_PR_FILE_JOB.Item("STRING1").ToString Dim MSSQLconnectionstring = DR_PR_FILE_JOB.Item("STRING1").ToString
Dim MSSQLCommandRAW = DR_PR_FILE_JOB.Item("STRING2").ToString Dim MSSQLCommandRAW = DR_PR_FILE_JOB.Item("STRING2").ToString
Logger.Info("Execute MSSQL Command.......") Logger.Debug("Execute MSSQL Command.......")
FileJobSuccessful = clsDateiverarbeitung.RUN_MSSQL_COMMAND(WMdok, MSSQLconnectionstring, MSSQLCommandRAW) FileJobSuccessful = _dateiverarbeitung.RUN_MSSQL_COMMAND(WMdok, MSSQLconnectionstring, MSSQLCommandRAW)
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)
'clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(ExecuteMSSQLCommand)") '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. 'Jetzt nochmal ein Durchlauf für Profiljobs wo alle Dateien abgearbeitet wurden.
For Each DR_PR_JB As DataRow In DT_PROFIL_JOB.Rows 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 Select Case DR_PR_JB.Item("JOB_TYP").ToString.ToUpper
Case "Concat Files to one pdf".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") 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") 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 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(pdftk) Then
If File.Exists(clsCURRENT.CONCATTED_FILE) Then If File.Exists(clsCURRENT.CONCATTED_FILE) Then
Try Try
@ -420,7 +457,7 @@ Public Class clsProfil
End If End If
myProcess.StartInfo.Arguments = _argument & " cat output " & clsCURRENT.CONCATTED_FILE 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() myProcess.Start()
ProcID = myProcess.Id ProcID = myProcess.Id
@ -439,12 +476,21 @@ Public Class clsProfil
Exit Do Exit Do
End If End If
Loop Loop
Logger.Info("...process has exited: ") Logger.Debug("...process has exited: ")
sw.Stop() 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 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 Loop
sw.Stop()
If deleteJaNein = "JA" Then If deleteJaNein = "JA" Then
For Each str As String In clsCURRENT.PROFILE_HandledFiles For Each str As String In clsCURRENT.PROFILE_HandledFiles
Try Try
@ -465,23 +511,23 @@ Public Class clsProfil
Logger.Warn("pdftk is not existing") Logger.Warn("pdftk is not existing")
End If End If
Case "Send concatted file via mail".ToUpper 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 If File.Exists(clsCURRENT.CONCATTED_FILE) = True Then
Dim Email_Empfänger = DR_PR_JB.Item("STRING1") 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") 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") 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") 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 If Not IsNothing(clsCURRENT.DT_TBDD_EMAIL) And clsCURRENT.DT_TBDD_EMAIL.Rows.Count >= 1 Then
Dim MAILFROM As String = "" Dim MAILFROM As String = ""
Dim MAILSMTP As String = "" Dim MAILSMTP As String = ""
Dim MAIL_USER As String = "" Dim MAIL_USER As String = ""
Dim MAIL_USER_PW 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 Dim MAIL_PORT As Integer
For Each emailrow As DataRow In clsCURRENT.DT_TBDD_EMAIL.Rows For Each emailrow As DataRow In clsCURRENT.DT_TBDD_EMAIL.Rows
@ -490,11 +536,11 @@ Public Class clsProfil
MAILSMTP = emailrow.Item("EMAIL_SMTP") MAILSMTP = emailrow.Item("EMAIL_SMTP")
MAIL_USER = emailrow.Item("EMAIL_USER") MAIL_USER = emailrow.Item("EMAIL_USER")
MAIL_USER_PW = emailrow.Item("EMAIL_PW") 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") MAIL_PORT = emailrow.Item("PORT")
End If End If
Next Next
Logger.Debug($"MailCredentials: {MAILFROM}-{MAIL_USER}-{MAIL_USER_PW}")
Dim wrapper As New clsEncryption("!35452didalog=") Dim wrapper As New clsEncryption("!35452didalog=")
Dim PWPlain = wrapper.DecryptData(MAIL_USER_PW) Dim PWPlain = wrapper.DecryptData(MAIL_USER_PW)
@ -502,9 +548,7 @@ Public Class clsProfil
If PWPlain <> "" Then If PWPlain <> "" Then
MAIL_USER_PW = PWPlain MAIL_USER_PW = PWPlain
Else Else
Logger.Warn("PWPlain is string.empty - Could not decrypt passwort") Logger.Info("PWPlain is string.empty!!")
Return False
End If End If
Else Else
@ -513,7 +557,11 @@ Public Class clsProfil
Return False Return False
End If 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 Else
@ -525,9 +573,64 @@ Public Class clsProfil
Logger.Warn("File not existing: " & clsCURRENT.CONCATTED_FILE) Logger.Warn("File not existing: " & clsCURRENT.CONCATTED_FILE)
End If 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 End Select
If FileJobSuccessful = True Then
End If
Next Next
Else Else
Logger.Warn("Initialisierung Profil nicht erfolgreich") Logger.Warn("Initialisierung Profil nicht erfolgreich")
@ -537,7 +640,7 @@ Public Class clsProfil
End If End If
Else Else
' keine Dateien zum Importieren ' 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
End If End If
@ -546,19 +649,16 @@ Public Class clsProfil
Logger.Info("Verarbeitung für heute NICHT konfiguriert") Logger.Info("Verarbeitung für heute NICHT konfiguriert")
End If End If
'Abschluss des Profiles 'Abschluss des Profiles
clsDatatabase.Execute_non_Query("UPDATE TBWMRH_PROFIL SET Running = 0, LETZTER_DURCHLAUF = GETDATE() WHERE GUID = " & _profGUID) _database.Execute_non_Query("UPDATE TBWMRH_PROFIL SET Running = 0 WHERE GUID = " & _profGUID)
Logger.Info("'UPDATE TBWMRH_PROFIL SET Running = 0' ausgeführt")
Return True Return True
'Catch ex As Exception Catch ex As Exception
' clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf") Logger.Error(ex)
' clsDatatabase.Execute_non_Query("Update TBWMRH_PROFIL SET Running = 0 WHERE GUID = " & _profGUID) _database.Execute_non_Query("Update TBWMRH_PROFIL SET Running = 0 WHERE GUID = " & _profGUID)
' CriticalError = False CriticalError = True
Return False
' Return False End Try
'End Try
End Function 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 Try
Dim missing As Boolean = False Dim missing As Boolean = False
Dim Anzahl As Integer = 0 Dim Anzahl As Integer = 0
@ -589,7 +689,7 @@ Public Class clsProfil
End If End If
Next Next
Else 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 <> 'Duplikat Prüfung an, also nur anhängen wenn Wert <>
For Each WDValue As Object In wertWD For Each WDValue As Object In wertWD
If WDValue Is Nothing = False Then If WDValue Is Nothing = False Then
@ -597,7 +697,7 @@ Public Class clsProfil
ReDim Preserve ValueArray(Anzahl) ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern 'Den Wert im Array speichern
ValueArray(Anzahl) = WDValue.ToString ValueArray(Anzahl) = WDValue.ToString
Logger.Info("Value (" & Anzahl & ") " & WDValue.ToString) Logger.Debug("Value (" & Anzahl & ") " & WDValue.ToString)
Anzahl += 1 Anzahl += 1
End If End If
Next Next
@ -605,21 +705,21 @@ Public Class clsProfil
For Each NewValue As Object In NIIndexe For Each NewValue As Object In NIIndexe
If NewValue Is Nothing = False Then If NewValue Is Nothing = False Then
If ValueArray.Contains(NewValue) = 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 'Das Array anpassen
ReDim Preserve ValueArray(Anzahl) ReDim Preserve ValueArray(Anzahl)
'Den Wert im Array speichern 'Den Wert im Array speichern
ValueArray(Anzahl) = NewValue.ToString ValueArray(Anzahl) = NewValue.ToString
Anzahl += 1 Anzahl += 1
Else Else
Logger.Info("Value '" & NewValue.ToString & "' bereits in Vektorfeld enthalten") Logger.Debug("Value '" & NewValue.ToString & "' bereits in Vektorfeld enthalten")
End If End If
End If End If
Next Next
End If End If
End If End If
Else Else
Logger.Info("Vektorfeld ist noch leer....") Logger.Debug("Vektorfeld ist noch leer....")
'Den/die Neuen Wert(e) anfügen 'Den/die Neuen Wert(e) anfügen
For Each NewValue As Object In NIIndexe For Each NewValue As Object In NIIndexe
If NewValue Is Nothing = False Then If NewValue Is Nothing = False Then
@ -632,7 +732,7 @@ Public Class clsProfil
ValueArray(Anzahl) = NewValue.ToString ValueArray(Anzahl) = NewValue.ToString
Anzahl += 1 Anzahl += 1
Else Else
Logger.Info("Value '" & NewValue.ToString & "' bereits in Array enthalten") Logger.Debug("Value '" & NewValue.ToString & "' bereits in Array enthalten")
End If End If
Else 'Dererste Wert, also hinzufügen Else 'Dererste Wert, also hinzufügen
'Das Array anpassen 'Das Array anpassen
@ -654,7 +754,7 @@ Public Class clsProfil
Next Next
End If End If
Logger.Info("Return ValueArray: length " & ValueArray.Length) Logger.Debug("Return ValueArray: length " & ValueArray.Length)
Return ValueArray Return ValueArray
Catch ex As Exception Catch ex As Exception
Logger.Error(ex) Logger.Error(ex)

145
app/ClassWMResulthandler/clsWindream_Allgemein.vb
View File

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

135
app/ClassWMResulthandler/clsWindream_Index.vb
View File

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

364
app/DDWDResultHandler/DDWDResultHandler.vb
View File

@ -1,16 +1,29 @@
Imports System.IO Imports System.IO
'Imports System.Collections.ObjectModel 'Imports System.Collections.ObjectModel
Imports System.ComponentModel Imports System.ComponentModel
Imports Modules.Logging.Logger Imports DigitalData.Modules.Logging
Imports Modules.Logging Imports DD_WMResulthandler
Public Class DDWDResultHandler Public Class DDWDResultHandler
#Region "+++++ Variablen +++++" #Region "+++++ Variablen +++++"
Private Shared _windream As DD_WMResulthandler.clsWindream_allgemein Private _windream As DD_WMResulthandler.clsWindream_allgemein
Private Shared _MyLoggerConfig As Modules.Logging.Logger 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 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 Public Shared _PROFIL_ID As Integer
Dim _INTERVALL As Integer Dim _INTERVALL As Integer
Dim oFirstRun As Boolean = False
'Variablen für Dateiimporter 'Variablen für Dateiimporter
#End Region #End Region
@ -22,18 +35,20 @@ Public Class DDWDResultHandler
' Code zum Starten des Dienstes hier einfügen. Diese Methode sollte Vorgänge ' Code zum Starten des Dienstes hier einfügen. Diese Methode sollte Vorgänge
' ausführen, damit der Dienst gestartet werden kann. ' ausführen, damit der Dienst gestartet werden kann.
'EventLog1.WriteEntry("Dienst 'DD windream Result Handler' gestartet") 'EventLog1.WriteEntry("Dienst 'DD windream Result Handler' gestartet")
Try Try
If Not System.Diagnostics.EventLog.SourceExists("DDWMResultHandler") Then If Not System.Diagnostics.EventLog.SourceExists("DDWMResultHandler") Then
System.Diagnostics.EventLog.CreateEventSource("DDWMResultHandlerr", "DigitalData Log") System.Diagnostics.EventLog.CreateEventSource("DDWMResultHandler", "DigitalData Log")
End If End If
Catch ex As Exception Catch ex As Exception
EventLog.WriteEntry("DDWMResultHandler", "ERROR in Creating source:" & ex.ToString(), EventLogEntryType.Error) EventLog.WriteEntry("DDWMResultHandler", "ERROR in Creating source:" & ex.ToString(), EventLogEntryType.Error)
End Try End Try
Try Try
Try Try
_MyLoggerConfig = New Logger(PathType.CurrentDirectory) MyLogger = New LogConfig(LogConfig.PathType.CustomPath, Path.Combine(My.Application.Info.DirectoryPath, "Log"))
' clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "_SERVICEResultHandler") Logger = MyLogger.GetLogger()
Logger.Info("WindreamResultHandler gestartet - " & Now) _database = New clsDatabase(MyLogger, My.Settings.SQLSERVER_CS)
Catch ex As Exception Catch ex As Exception
EventLog.WriteEntry("DDWMResultHandler", "ERROR in CREATING-LOG:" & ex.ToString(), EventLogEntryType.Error) EventLog.WriteEntry("DDWMResultHandler", "ERROR in CREATING-LOG:" & ex.ToString(), EventLogEntryType.Error)
End Try End Try
@ -42,10 +57,16 @@ Public Class DDWDResultHandler
If My.Settings.SQLSERVER_CS = String.Empty Then If My.Settings.SQLSERVER_CS = String.Empty Then
Logger.Warn("Achtung: Es wurde noch kein Datenbank-ConnectionString hinterlegt.") Logger.Warn("Achtung: Es wurde noch kein Datenbank-ConnectionString hinterlegt.")
Else 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!") Logger.Warn("Achtung: Es konnte keine Verbindung zur Datenbank '" & My.Settings.SQLSERVER_CS & "' hergestellt werden!")
Else Else
If clsCURRENT.LOG_ERRORS_ONLY = False Then
MyLogger.Debug = True
Else
MyLogger.Debug = False
End If
oFirstRun = True
' '#Thread für Durchlauf generieren ' '#Thread für Durchlauf generieren
DDWDResultHandler.threadRunner = New BackgroundWorker() DDWDResultHandler.threadRunner = New BackgroundWorker()
DDWDResultHandler.threadRunner.WorkerReportsProgress = True DDWDResultHandler.threadRunner.WorkerReportsProgress = True
@ -61,9 +82,29 @@ Public Class DDWDResultHandler
Timer_Durchlauf.Interval = 60000 Timer_Durchlauf.Interval = 60000
'ClassLogger.Add("Timer - Intervall: " & clsSQLITE.konf_intervall & " Minuten", False) 'ClassLogger.Add("Timer - Intervall: " & clsSQLITE.konf_intervall & " Minuten", False)
Timer_Durchlauf.Enabled = True 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 ' Und den Durchlauf das erste Mal starten
threadRunner.RunWorkerAsync() threadRunner.RunWorkerAsync()
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
@ -72,69 +113,87 @@ Public Class DDWDResultHandler
End Try End Try
End Sub End Sub
Public Shared Sub Thread_Run() Public Sub Thread_Run()
If Not threadRunner.IsBusy Then If Not threadRunner.IsBusy Then
threadRunner.RunWorkerAsync() threadRunner.RunWorkerAsync()
End If End If
End Sub 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() Protected Overrides Sub OnStop()
Try Try
' Hier Code zum Ausführen erforderlicher Löschvorgänge zum Beenden des Dienstes einfügen. ' 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) 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 Catch ex As Exception
EventLog.WriteEntry("DDWMResultHandler", "Unexpected error in OnStop: " & ex.ToString(), EventLogEntryType.Error) EventLog.WriteEntry("DDWMResultHandler", "Unexpected error in OnStop: " & ex.ToString(), EventLogEntryType.Error)
End Try End Try
End Sub 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 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 Dim notcompleted As Boolean = False
'clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "_SERVICEResultHandler") 'clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "_SERVICEResultHandler")
Logger.Info("Start Durchlauf WindreamResultHandler - " & Now) Logger.Info("RUN_THREAD WMResulthandler started..")
' Windream instanziieren ' Windream instanziieren
_windream = New DD_WMResulthandler.clsWindream_allgemein() _windream = New clsWindream_allgemein(MyLogger)
'windream initialisieren 'windream initialisieren
If _windream.Init() = True Then If _windream.Init() = True Then
Logger.Info("windream vollumfänglich initialisiert!") Logger.Debug("windream vollumfänglich initialisiert!")
'Zur sicherheit die DB nochmal initialiseren 'Zur sicherheit die DB nochmal initialiseren
If DD_WMResulthandler.clsDatatabase.Init(My.Settings.SQLSERVER_CS) = True Then If _database.Init(My.Settings.SQLSERVER_CS) = True Then
Dim DT As DataTable = DD_WMResulthandler.clsDatatabase.Return_Datatable("select * from TBWMRH_KONFIGURATION where GUID = 1") Dim DT As DataTable = _database.Return_Datatable("select * from TBWMRH_KONFIGURATION where GUID = 1")
If DT.Rows.Count = 1 Then 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") 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 If DD_WMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = False Then
Logger.Info("Detaillog is ON!") Logger.Debug("Detaillog is ON!")
End If End If
DD_WMResulthandler.clsCURRENT.WDLAUFWERK = DT.Rows(0).Item("WD_LAUFWERK") DD_WMResulthandler.clsCURRENT.WDLAUFWERK = DT.Rows(0).Item("WD_LAUFWERK")
End If 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 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 For Each DR As DataRow In DT.Rows
_PROFIL_ID = CInt(DR.Item("GUID")) _PROFIL_ID = CInt(DR.Item("GUID"))
_profil = New clsProfil(MyLogger, _PROFIL_ID)
'Und nun das Profil durchlaufen 'Und nun das Profil durchlaufen
Dim initresult = DD_WMResulthandler.clsProfil.Init(_PROFIL_ID) Dim initresult = _profil.Init(_PROFIL_ID)
If initresult = True Then If initresult = True Then
DD_WMResulthandler.clsProfil.Profil_Durchlauf() '##### Profildurchlauf ########
_profil.Profil_Durchlauf(False)
ElseIf initresult = False Then ElseIf initresult = False Then
Logger.Warn("clsProfil konnte nicht initialisiert werden") Logger.Warn("clsProfil konnte nicht initialisiert werden")
notcompleted = True notcompleted = True
ElseIf initresult = 0 Then ElseIf initresult = 0 Then
Logger.Info("initresult: 0") Logger.Debug("initresult: 0")
notcompleted = True notcompleted = True
ElseIf initresult = 1 Then ElseIf initresult = 1 Then
Logger.Info("initresult: 1") Logger.Debug("initresult: 1")
notcompleted = True notcompleted = True
End If End If
Next Next
Else Else
Logger.Warn("Keine aktiven Profile vorhanden") Logger.Warn("Keine aktiven Profile WMResulthandler vorhanden")
notcompleted = True notcompleted = True
End If 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 Else
Logger.Warn("clsDatabase konnte nicht initialisiert werden!") Logger.Warn("clsDatabase konnte nicht initialisiert werden!")
notcompleted = True notcompleted = True
@ -151,8 +210,220 @@ Public Class DDWDResultHandler
End Try End Try
End Sub 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 ***" #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 ' This event fires when the DoWork event completes
Try Try
Dim result As String = "" Dim result As String = ""
@ -176,7 +447,32 @@ Public Class DDWDResultHandler
EventLog.WriteEntry("DDWMResultHandler", "Unexpected error in Thread_Completed: " & ex.ToString(), EventLogEntryType.Error) EventLog.WriteEntry("DDWMResultHandler", "Unexpected error in Thread_Completed: " & ex.ToString(), EventLogEntryType.Error)
End Try End Try
End Sub 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 Try
If DDWDResultHandler.threadRunner.IsBusy Then If DDWDResultHandler.threadRunner.IsBusy Then
DDWDResultHandler.threadRunner.CancelAsync() 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) Return CType(Me("SQLSERVER_CS"),String)
End Get End Get
End Property 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 Class
End Namespace End Namespace

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

@ -5,5 +5,13 @@
<Setting Name="SQLSERVER_CS" Type="System.String" Scope="Application"> <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> <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>
<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> </Settings>
</SettingsFile> </SettingsFile>

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

@ -14,6 +14,8 @@
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion> <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects> <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<TargetFrameworkProfile /> <TargetFrameworkProfile />
<NuGetPackageImportStamp>
</NuGetPackageImportStamp>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget> <PlatformTarget>AnyCPU</PlatformTarget>
@ -49,32 +51,26 @@
<OptionInfer>On</OptionInfer> <OptionInfer>On</OptionInfer>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="DD_WMResulthandler"> <Reference Include="DigitalData.Modules.Logging">
<HintPath>..\ClassWMResulthandler\bin\Debug\DD_WMResulthandler.dll</HintPath> <HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\DigitalData.Modules.Logging.dll</HintPath>
</Reference> </Reference>
<Reference Include="EntityFramework, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL"> <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>
<Reference Include="EntityFramework.SqlServer"> <Reference Include="EntityFramework.SqlServer, Version=6.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089, processorArchitecture=MSIL">
<HintPath>..\packages\EntityFramework.6.1.1\lib\net45\EntityFramework.SqlServer.dll</HintPath> <HintPath>..\packages\EntityFramework.6.2.0\lib\net45\EntityFramework.SqlServer.dll</HintPath>
</Reference> </Reference>
<Reference Include="Interop.WINDREAMLib"> <Reference Include="Interop.WINDREAMLib">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath> <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WINDREAMLib.dll</HintPath>
<EmbedInteropTypes>False</EmbedInteropTypes> <EmbedInteropTypes>False</EmbedInteropTypes>
</Reference> </Reference>
<Reference Include="Microsoft.CSharp" /> <Reference Include="Microsoft.CSharp" />
<Reference Include="Modules.Logging"> <Reference Include="Newtonsoft.Json, Version=11.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\Modules.Logging.dll</HintPath> <HintPath>..\packages\Newtonsoft.Json.11.0.2\lib\net45\Newtonsoft.Json.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>
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL"> <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
<HintPath>..\packages\NLog.4.5.8\lib\net45\NLog.dll</HintPath> <HintPath>..\packages\NLog.4.5.8\lib\net45\NLog.dll</HintPath>
</Reference> </Reference>
<Reference Include="Oracle.ManagedDataAccess">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
</Reference>
<Reference Include="System" /> <Reference Include="System" />
<Reference Include="System.ComponentModel.DataAnnotations" /> <Reference Include="System.ComponentModel.DataAnnotations" />
<Reference Include="System.Configuration" /> <Reference Include="System.Configuration" />
@ -175,40 +171,16 @@
</None> </None>
<None Include="packages.config" /> <None Include="packages.config" />
</ItemGroup> </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> <ItemGroup>
<WCFMetadata Include="Service References\" /> <WCFMetadata Include="Service References\" />
</ItemGroup> </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="$(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. <!-- 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. Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild"> <Target Name="BeforeBuild">

8
app/DDWDResultHandler/packages.config
View File

@ -1,10 +1,6 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<packages> <packages>
<package id="EntityFramework" version="6.1.1" targetFramework="net451" /> <package id="EntityFramework" version="6.2.0" targetFramework="net461" />
<package id="Newtonsoft.Json" version="10.0.3" targetFramework="net451" /> <package id="Newtonsoft.Json" version="11.0.2" targetFramework="net461" />
<package id="NLog" version="4.5.8" 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> </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 --> <!-- For more information on Entity Framework configuration, visit http://go.microsoft.com/fwlink/?LinkID=237468 -->
</configSections> </configSections>
<connectionStrings> <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> </connectionStrings>
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" /> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
@ -18,6 +19,9 @@
<setting name="BNSAPI_HOST" serializeAs="String"> <setting name="BNSAPI_HOST" serializeAs="String">
<value /> <value />
</setting> </setting>
<setting name="EmailTestReceipiant" serializeAs="String">
<value />
</setting>
</ResultHandler_Konfig.My.MySettings> </ResultHandler_Konfig.My.MySettings>
</userSettings> </userSettings>
<system.data> <system.data>

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

@ -140,6 +140,16 @@ Namespace My.Resources
End Get End Get
End Property 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> '''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary> '''</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"> <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> <value>..\Resources\book_open.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </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"> <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> <value>..\Resources\flag_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
@ -142,7 +145,7 @@
<data name="arrow_switch" type="System.Resources.ResXFileRef, System.Windows.Forms"> <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> <value>..\Resources\arrow_switch.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
<data name="folder_Open_16xMD" type="System.Resources.ResXFileRef, System.Windows.Forms"> <data name="refresh_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> <value>..\Resources\refresh_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data> </data>
</root> </root>

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

@ -76,6 +76,18 @@ Namespace My
Me("BNSAPI_HOST") = value Me("BNSAPI_HOST") = value
End Set End Set
End Property 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 Class
End Namespace 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"> <Setting Name="BNSAPI_HOST" Type="System.String" Scope="User">
<Value Profile="(Default)" /> <Value Profile="(Default)" />
</Setting> </Setting>
<Setting Name="EmailTestReceipiant" Type="System.String" Scope="User">
<Value Profile="(Default)" />
</Setting>
</Settings> </Settings>
</SettingsFile> </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.columnAktiv.DefaultValue = CType(true,Boolean)
Me.columnObjekttyp.AllowDBNull = false Me.columnObjekttyp.AllowDBNull = false
Me.columnObjekttyp.MaxLength = 100 Me.columnObjekttyp.MaxLength = 100
Me.columnWindreamSuche.AllowDBNull = false
Me.columnWindreamSuche.MaxLength = 500 Me.columnWindreamSuche.MaxLength = 500
Me.columnDay.AllowDBNull = false Me.columnDay.AllowDBNull = false
Me.columnDay.MaxLength = 100 Me.columnDay.MaxLength = 100
Me.columnRun.AllowDBNull = false Me.columnRun.AllowDBNull = false
Me.columnRun.DefaultValue = CType("",String) Me.columnRun.DefaultValue = CType("",String)
Me.columnRun.MaxLength = 100 Me.columnRun.MaxLength = 100
Me.columnLetzter_Durchlauf.AllowDBNull = false
Me.columnLetzter_Durchlauf.DefaultValue = CType(TBWMRH_PROFILDataTable.columnLetzter_Durchlauf_defaultValue,Date) Me.columnLetzter_Durchlauf.DefaultValue = CType(TBWMRH_PROFILDataTable.columnLetzter_Durchlauf_defaultValue,Date)
Me.columnRunning.AllowDBNull = false Me.columnRunning.AllowDBNull = false
Me.columnRunning.DefaultValue = CType(false,Boolean) Me.columnRunning.DefaultValue = CType(false,Boolean)
@ -2336,6 +2336,8 @@ Partial Public Class MyDataset
Private columnSSL_AUTH As Global.System.Data.DataColumn Private columnSSL_AUTH As Global.System.Data.DataColumn
Private columnAUTH_TYPE As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New() Public Sub New()
@ -2475,6 +2477,14 @@ Partial Public Class MyDataset
End Get End Get
End Property 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.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Browsable(false)> _ Global.System.ComponentModel.Browsable(false)> _
@ -2512,9 +2522,9 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ 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 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 rowTBDD_EMAIL_ACCOUNTRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBDD_EMAIL_ACCOUNTRow) Me.Rows.Add(rowTBDD_EMAIL_ACCOUNTRow)
Return rowTBDD_EMAIL_ACCOUNTRow Return rowTBDD_EMAIL_ACCOUNTRow
@ -2556,6 +2566,7 @@ Partial Public Class MyDataset
Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO")
Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN")
Me.columnSSL_AUTH = MyBase.Columns("SSL_AUTH") Me.columnSSL_AUTH = MyBase.Columns("SSL_AUTH")
Me.columnAUTH_TYPE = MyBase.Columns("AUTH_TYPE")
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -2587,6 +2598,8 @@ Partial Public Class MyDataset
MyBase.Columns.Add(Me.columnCHANGED_WHEN) MyBase.Columns.Add(Me.columnCHANGED_WHEN)
Me.columnSSL_AUTH = New Global.System.Data.DataColumn("SSL_AUTH", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) Me.columnSSL_AUTH = New Global.System.Data.DataColumn("SSL_AUTH", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSSL_AUTH) 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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true))
Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrement = true
Me.columnGUID.AutoIncrementSeed = 1 Me.columnGUID.AutoIncrementSeed = 1
@ -2614,6 +2627,8 @@ Partial Public Class MyDataset
Me.columnCHANGED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50
Me.columnSSL_AUTH.AllowDBNull = false Me.columnSSL_AUTH.AllowDBNull = false
Me.columnSSL_AUTH.DefaultValue = CType(false,Boolean) Me.columnSSL_AUTH.DefaultValue = CType(false,Boolean)
Me.columnAUTH_TYPE.AllowDBNull = false
Me.columnAUTH_TYPE.MaxLength = 20
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <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")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property WindreamSuche() As String Public Property WindreamSuche() As String
Get Get
Try
Return CType(Me(Me.tableTBWMRH_PROFIL.WindreamSucheColumn),String) 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 End Get
Set Set
Me(Me.tableTBWMRH_PROFIL.WindreamSucheColumn) = value 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")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property Letzter_Durchlauf() As Date Public Property Letzter_Durchlauf() As Date
Get Get
Try
Return CType(Me(Me.tableTBWMRH_PROFIL.Letzter_DurchlaufColumn),Date) 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 End Get
Set Set
Me(Me.tableTBWMRH_PROFIL.Letzter_DurchlaufColumn) = value Me(Me.tableTBWMRH_PROFIL.Letzter_DurchlaufColumn) = value
@ -3097,14 +3112,14 @@ Partial Public Class MyDataset
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsLetzter_DurchlaufNull() As Boolean Public Function IsWindreamSucheNull() As Boolean
Return Me.IsNull(Me.tableTBWMRH_PROFIL.Letzter_DurchlaufColumn) Return Me.IsNull(Me.tableTBWMRH_PROFIL.WindreamSucheColumn)
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetLetzter_DurchlaufNull() Public Sub SetWindreamSucheNull()
Me(Me.tableTBWMRH_PROFIL.Letzter_DurchlaufColumn) = Global.System.Convert.DBNull Me(Me.tableTBWMRH_PROFIL.WindreamSucheColumn) = Global.System.Convert.DBNull
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@ -4184,6 +4199,17 @@ Partial Public Class MyDataset
End Set End Set
End Property 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.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsNAMENull() As Boolean Public Function IsNAMENull() As Boolean
@ -4893,7 +4919,7 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, Profilname, Aktiv, Objekttyp, WindreamSuche, Day, Run, Letzte"& _ Me._commandCollection(0).CommandText = "SELECT GUID, Profilname, Aktiv, Objekttyp, WindreamSuche, Day, Run, Letzte"& _
"r_Durchlauf, Running, Reihenfolge, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAE"& _ "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(0).CommandType = Global.System.Data.CommandType.Text
Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(1).Connection = Me.Connection 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.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 = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBWMRH_PROFIL_FILE_JOB] ([PROFIL_ID], [TYP], [STRING1], [STRING2], ["& _ Me._adapter.InsertCommand.CommandText = "INSERT INTO TBWMRH_PROFIL_FILE_JOB"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, TYP, STR"& _
"STRING3], [STRING4], [BOOL1], [BOOL2], [BOOL3], [BOOL4], [AKTIV], [REIHENFOLGE],"& _ "ING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE,"& _
" [ERSTELLTWER], [ERSTELLTWANN], [GEAENDERTWER], [GEAENDERTWANN]) VALUES (@PROFIL"& _ " ERSTELLTWER, GEAENDERTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID,@TYP,@STRING1,@STRING2,@S"& _
"_ID, @TYP, @STRING1, @STRING2, @STRING3, @STRING4, @BOOL1, @BOOL2, @BOOL3, @BOOL"& _ "TRING3,@STRING4,@BOOL1,@BOOL2,@BOOL3,@BOOL4,@AKTIV,@REIHENFOLGE,@ERSTELLTWER,@GE"& _
"4, @AKTIV, @REIHENFOLGE, @ERSTELLTWER, @ERSTELLTWANN, @GEAENDERTWER, @GEAENDERTW"& _ "AENDERTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_ID, TYP, STRING1, STRING2, STRING3, STRING4, "& _
"ANN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_ID, TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, B"& _ "BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAEN"& _
"OOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER,"& _ "DERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL_FILE_JOB WHERE (GUID = SCOPE_IDENTITY("& _
" GEAENDERTWANN FROM TBWMRH_PROFIL_FILE_JOB WHERE (GUID = SCOPE_IDENTITY())" "))"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text 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("@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, 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("@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, 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("@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, 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("@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, 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("@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, 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("@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, 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("@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, 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("@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, 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("@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, 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("@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, 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("@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, 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("@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, 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("@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("@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, 50, 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("@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.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection 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"& _ 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"& _ "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)&" "& _ "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 "& _ " 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"& _ " (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_ID, TYP, STRING1, STRING2, "& _
"TRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ER"& _ "STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, E"& _
"STELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL_FILE_JOB WHERE (GUID "& _ "RSTELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL_FILE_JOB WHERE (GUID"& _
"= @GUID)" " = @GUID)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text 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("@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, "", "", "")) 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"& _ Me._commandCollection(0).CommandText = "SELECT GUID, PROFIL_ID, TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BO"& _
"OL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, "& _ "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 ="& _ "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).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(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() 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.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _
Public Overloads Overridable Function Insert( _ 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
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
Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFIL_ID,Integer) Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFIL_ID,Integer)
If (TYP Is Nothing) Then If (TYP Is Nothing) Then
Throw New Global.System.ArgumentNullException("TYP") Throw New Global.System.ArgumentNullException("TYP")
@ -5489,20 +5497,10 @@ Namespace MyDatasetTableAdapters
Else Else
Me.Adapter.InsertCommand.Parameters(12).Value = CType(ERSTELLTWER,String) Me.Adapter.InsertCommand.Parameters(12).Value = CType(ERSTELLTWER,String)
End If 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 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 Else
Me.Adapter.InsertCommand.Parameters(14).Value = CType(GEAENDERTWER,String) Me.Adapter.InsertCommand.Parameters(13).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
End If End If
Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ 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"& _ Me._commandCollection(0).CommandText = "SELECT GUID, PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1"& _
", BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTW"& _ ", 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 "& _ "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).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(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() 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_WHO", "CHANGED_WHO")
tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN")
tableMapping.ColumnMappings.Add("SSL_AUTH", "SSL_AUTH") tableMapping.ColumnMappings.Add("SSL_AUTH", "SSL_AUTH")
tableMapping.ColumnMappings.Add("AUTH_TYPE", "AUTH_TYPE")
Me._adapter.TableMappings.Add(tableMapping) Me._adapter.TableMappings.Add(tableMapping)
Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.DeleteCommand.Connection = Me.Connection Me._adapter.DeleteCommand.Connection = Me.Connection
@ -6296,11 +6295,11 @@ Namespace MyDatasetTableAdapters
Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.InsertCommand.Connection = Me.Connection 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"& _ 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 ("& _ "_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, SSL_AUTH, AUTH_TYPE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALU"& _
"@NAME,@EMAIL_FROM,@EMAIL_SMTP,@EMAIL_USER,@EMAIL_PW,@PORT,@ACTIVE,@ADDED_WHO,@SS"& _ "ES (@NAME,@EMAIL_FROM,@EMAIL_SMTP,@EMAIL_USER,@EMAIL_PW,@PORT,@ACTIVE,@AD"& _
"L_AUTH); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, POR"& _ "DED_WHO,@SSL_AUTH,@AUTH_TYPE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EM"& _
"T, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCO"& _ "AIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WH"& _
"UNT WHERE (GUID = SCOPE_IDENTITY())" "EN FROM TBDD_EMAIL_ACCOUNT WHERE (GUID = SCOPE_IDENTITY())"
Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text 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("@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, "", "", "")) 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("@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("@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("@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 = New Global.System.Data.SqlClient.SqlCommand()
Me._adapter.UpdateCommand.Connection = Me.Connection 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"& _ 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"& _ "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)&" "& _ "_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"& _ " SSL_AUTH = @SSL_AUTH, AUTH_TYPE = @AUTH_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @"& _
"T GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_"& _ "Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL"& _
"WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT WHERE (GUID ="& _ "_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EM"& _
" @GUID)" "AIL_ACCOUNT WHERE (GUID = @GUID)"
Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text 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("@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, "", "", "")) 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("@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("@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("@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("@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, "", "", "")) 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 End Sub
@ -6348,7 +6349,7 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand()
Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).Connection = Me.Connection
Me._commandCollection(0).CommandText = "SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACT"& _ 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" " TBDD_EMAIL_ACCOUNT"
Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text
End Sub End Sub
@ -6430,7 +6431,7 @@ Namespace MyDatasetTableAdapters
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ 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 If (NAME Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value
Else Else
@ -6464,6 +6465,11 @@ Namespace MyDatasetTableAdapters
Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String) Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String)
End If End If
Me.Adapter.InsertCommand.Parameters(8).Value = CType(SSL_AUTH,Boolean) 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 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State
If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then <> 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.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ 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 If (NAME Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value
Else Else
@ -6517,8 +6523,13 @@ Namespace MyDatasetTableAdapters
Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String)
End If End If
Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SSL_AUTH,Boolean) Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SSL_AUTH,Boolean)
Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) If (AUTH_TYPE Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Integer) 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 Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State
If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _
<> Global.System.Data.ConnectionState.Open) Then <> Global.System.Data.ConnectionState.Open) Then

38
app/ResultHandler_Konfig/MyDataset.xsc
View File

@ -6,6 +6,39 @@
</autogenerated>--> </autogenerated>-->
<DataSetUISetting Version="1.00" xmlns="urn:schemas-microsoft-com:xml-msdatasource"> <DataSetUISetting Version="1.00" xmlns="urn:schemas-microsoft-com:xml-msdatasource">
<TableUISettings> <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"> <TableUISetting Name="TBDD_EMAIL_ACCOUNT">
<ColumnUISettings> <ColumnUISettings>
<ColumnUISetting Name="ADDED_WHEN"> <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" /> <BindableControlInfo Name="TextBox" Type="System.Windows.Forms.TextBox" AssemblyName="System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" />
</ControlSetting></ControlSettings> </ControlSetting></ControlSettings>
</ColumnUISetting> </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> </ColumnUISettings>
</TableUISetting> </TableUISetting>
</TableUISettings> </TableUISettings>

187
app/ResultHandler_Konfig/MyDataset.xsd
View File

@ -55,61 +55,62 @@ WHERE (GUID = 1)</CommandText>
<MainSource> <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"> <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> <DeleteCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>DELETE FROM TBWMRH_PROFIL <CommandText>DELETE FROM TBWMRH_PROFIL
WHERE (GUID = @Original_GUID)</CommandText> WHERE (GUID = @Original_GUID)</CommandText>
<Parameters> <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> </Parameters>
</DbCommand> </DbCommand>
</DeleteCommand> </DeleteCommand>
<InsertCommand> <InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO TBWMRH_PROFIL <CommandText>INSERT INTO TBWMRH_PROFIL
(Profilname, Aktiv, Objekttyp, WindreamSuche, Day, Run, Letzter_Durchlauf, Running, Reihenfolge, ERSTELLTWER) (Profilname, Aktiv, Objekttyp, WindreamSuche, Day, Run, Letzter_Durchlauf, Running, Reihenfolge, ERSTELLTWER)
VALUES (@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> 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> <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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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> </Parameters>
</DbCommand> </DbCommand>
</InsertCommand> </InsertCommand>
<SelectCommand> <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 <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 /> <Parameters />
</DbCommand> </DbCommand>
</SelectCommand> </SelectCommand>
<UpdateCommand> <UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE TBWMRH_PROFIL <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, SET Profilname = @Profilname, Aktiv = @Aktiv, Objekttyp = @Objekttyp, WindreamSuche = @WindreamSuche, Day = @Day, Run = @Run, Letzter_Durchlauf = @Letzter_Durchlauf, Running = @Running, Reihenfolge = @Reihenfolge,
GEAENDERTWER = @GEAENDERTWER GEAENDERTWER = @GEAENDERTWER
WHERE (GUID = @Original_GUID); 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> SELECT GUID, Profilname, Aktiv, Objekttyp, WindreamSuche, Day, Run, Letzter_Durchlauf, Running, Reihenfolge, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL WHERE (GUID = @GUID)</CommandText>
<Parameters> <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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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" />
<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="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> </Parameters>
</DbCommand> </DbCommand>
</UpdateCommand> </UpdateCommand>
@ -159,25 +160,25 @@ WHERE (GUID = @Original_GUID)</CommandText>
</DeleteCommand> </DeleteCommand>
<InsertCommand> <InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <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> 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> <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="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="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@TYP" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="TYP" 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="" 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="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="" 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="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="" 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="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="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@STRING4" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="STRING4" 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="" 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="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="" 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="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="" 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="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="" 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="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="" 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="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="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@REIHENFOLGE" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="REIHENFOLGE" 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="" 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="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="" 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="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="" 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" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</InsertCommand> </InsertCommand>
@ -185,7 +186,8 @@ SELECT GUID, PROFIL_ID, TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, B
<DbCommand CommandType="Text" ModifiedByUser="false"> <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 <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 FROM TBWMRH_PROFIL_FILE_JOB
WHERE (PROFIL_ID = @PID)</CommandText> WHERE (PROFIL_ID = @PID)
ORDER BY REIHENFOLGE</CommandText>
<Parameters> <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" /> <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> </Parameters>
@ -264,27 +266,27 @@ WHERE (GUID = @Original_GUID)</CommandText>
</DbCommand> </DbCommand>
</DeleteCommand> </DeleteCommand>
<InsertCommand> <InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>INSERT INTO TBWMRH_PROFIL_JOB <CommandText>INSERT INTO TBWMRH_PROFIL_JOB
(PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, STRING5, STRING6) (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); 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> 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> <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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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> </Parameters>
</DbCommand> </DbCommand>
</InsertCommand> </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, <CommandText>SELECT GUID, PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN, STRING5,
STRING6 STRING6
FROM TBWMRH_PROFIL_JOB FROM TBWMRH_PROFIL_JOB
WHERE (PROFIL_ID = @PID)</CommandText> WHERE (PROFIL_ID = @PID)
ORDER BY REIHENFOLGE</CommandText>
<Parameters> <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" /> <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> </Parameters>
</DbCommand> </DbCommand>
</SelectCommand> </SelectCommand>
<UpdateCommand> <UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>UPDATE TBWMRH_PROFIL_JOB <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, 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 BOOL4 = @BOOL4, AKTIV = @AKTIV, REIHENFOLGE = @REIHENFOLGE, GEAENDERTWER = @GEAENDERTWER, STRING5 = @STRING5, STRING6 = @STRING6
WHERE (GUID = @Original_GUID); 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> 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> <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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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="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> </Parameters>
</DbCommand> </DbCommand>
</UpdateCommand> </UpdateCommand>
@ -379,8 +382,8 @@ WHERE (GUID = @Original_GUID)</CommandText>
<InsertCommand> <InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>INSERT INTO TBDD_EMAIL_ACCOUNT <CommandText>INSERT INTO TBDD_EMAIL_ACCOUNT
(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); 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> 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> <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" /> <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="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="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="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> </Parameters>
</DbCommand> </DbCommand>
</InsertCommand> </InsertCommand>
<SelectCommand> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <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> FROM TBDD_EMAIL_ACCOUNT</CommandText>
<Parameters /> <Parameters />
</DbCommand> </DbCommand>
@ -406,7 +410,7 @@ FROM TBDD_EMAIL_ACCOUNT</CommandText>
<DbCommand CommandType="Text" ModifiedByUser="true"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE TBDD_EMAIL_ACCOUNT <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, 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); 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> 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> <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="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="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="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="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" /> <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> </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_WHO" DataSetColumn="CHANGED_WHO" />
<Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" /> <Mapping SourceColumn="CHANGED_WHEN" DataSetColumn="CHANGED_WHEN" />
<Mapping SourceColumn="SSL_AUTH" DataSetColumn="SSL_AUTH" /> <Mapping SourceColumn="SSL_AUTH" DataSetColumn="SSL_AUTH" />
<Mapping SourceColumn="AUTH_TYPE" DataSetColumn="AUTH_TYPE" />
</Mappings> </Mappings>
<Sources /> <Sources />
</TableAdapter> </TableAdapter>
@ -509,7 +515,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A
</xs:restriction> </xs:restriction>
</xs:simpleType> </xs:simpleType>
</xs:element> </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:simpleType>
<xs:restriction base="xs:string"> <xs:restriction base="xs:string">
<xs:maxLength value="500" /> <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:restriction>
</xs:simpleType> </xs:simpleType>
</xs:element> </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="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="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"> <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>
<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="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="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:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </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 Changes to this file may cause incorrect behavior and will be lost if
the code is regenerated. the code is regenerated.
</autogenerated>--> </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> <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_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" /> <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> <ApplicationIcon>ico638.ico</ApplicationIcon>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <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.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.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" /> <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.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.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="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"> <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> <HintPath>..\packages\EntityFramework.6.2.0\lib\net45\EntityFramework.dll</HintPath>
</Reference> </Reference>
@ -88,18 +88,12 @@
<EmbedInteropTypes>True</EmbedInteropTypes> <EmbedInteropTypes>True</EmbedInteropTypes>
</Reference> </Reference>
<Reference Include="Microsoft.CSharp" /> <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"> <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> <HintPath>..\packages\Newtonsoft.Json.10.0.3\lib\net45\Newtonsoft.Json.dll</HintPath>
</Reference> </Reference>
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL"> <Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
<HintPath>..\packages\NLog.4.5.8\lib\net45\NLog.dll</HintPath> <HintPath>..\packages\NLog.4.5.8\lib\net45\NLog.dll</HintPath>
</Reference> </Reference>
<Reference Include="Oracle.ManagedDataAccess">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
</Reference>
<Reference Include="System" /> <Reference Include="System" />
<Reference Include="System.ComponentModel.DataAnnotations" /> <Reference Include="System.ComponentModel.DataAnnotations" />
<Reference Include="System.Configuration" /> <Reference Include="System.Configuration" />
@ -215,6 +209,7 @@
<ItemGroup> <ItemGroup>
<Content Include="bin\Debug\x64\SQLite.Interop.dll" /> <Content Include="bin\Debug\x64\SQLite.Interop.dll" />
<Content Include="ico638.ico" /> <Content Include="ico638.ico" />
<None Include="Resources\refresh_16xMD.png" />
<None Include="Resources\folder_Open_16xMD.png" /> <None Include="Resources\folder_Open_16xMD.png" />
<None Include="Resources\book_open.png" /> <None Include="Resources\book_open.png" />
<None Include="Resources\key_go.png" /> <None Include="Resources\key_go.png" />
@ -223,6 +218,12 @@
<ItemGroup> <ItemGroup>
<WCFMetadata Include="Connected Services\" /> <WCFMetadata Include="Connected Services\" />
</ItemGroup> </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="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it. <!-- 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. 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"> <metadata name="PDF_XCHANGE_LOCATIONLabel.GenerateMember" type="System.Boolean, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>False</value> <value>False</value>
</metadata> </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"> <metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1296, 56</value> <value>1296, 56</value>
</metadata> </metadata>
@ -257,7 +260,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAI ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAI
DAAAAk1TRnQBSQFMAgEBAwEAAVABAgFQAQIBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo DAAAAk1TRnQBSQFMAgEBAwEAAUABAwFAAQMBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA 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"> <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> <value>17, 134</value>
</metadata> </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"> <metadata name="BindingNavigator1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1108, 95</value> <value>1108, 95</value>
</metadata> </metadata>

251
app/ResultHandler_Konfig/frmMain.vb
View File

@ -1,9 +1,17 @@
Imports System.ServiceProcess Imports System.ServiceProcess
Imports Modules.Logging Imports DigitalData.Modules.Logging
Imports DD_WMResulthandler
Imports System.Net.Mail
Imports System.Net
Public Class frmMain Public Class frmMain
Private Shared _Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger Private _windream As clsWindream_allgemein
Private _windream As DD_WMResulthandler.clsWindream_allgemein Private _database As clsDatabase
Dim MyLoggerConfig As Logger 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 Private Sub TBPROFILBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBPROFILBindingNavigatorSaveItem.Click
Save_Profil() Save_Profil()
End Sub End Sub
@ -22,13 +30,15 @@ Public Class frmMain
' DB_Path() ' DB_Path()
' End If ' End If
'End If 'End If
MyLogger = New LogConfig(LogConfig.PathType.AppData, Nothing, "Log")
Logger = MyLogger.GetLogger()
Load_Constring() Load_Constring()
MyLoggerConfig = New Logger(Logger.PathType.AppData) _database = New clsDatabase(MyLogger, My.Settings.SQLSERVER_CS)
_email = New clsEmail(MyLogger)
_Logger.Info("Konfig started: " & Now.ToString) Logger.Info("Konfig started: " & Now.ToString)
Try Try
' Windream instanziieren ' Windream instanziieren
_windream = New DD_WMResulthandler.clsWindream_allgemein() _windream = New clsWindream_allgemein(MyLogger)
'Windream initialisieren (Connection, Session, ... aufbauen) 'Windream initialisieren (Connection, Session, ... aufbauen)
_windream.Init() _windream.Init()
Catch ex As Exception Catch ex As Exception
@ -100,6 +110,7 @@ Public Class frmMain
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler inCheckIfRunning") MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler inCheckIfRunning")
Return False
End Try End Try
End Function End Function
Sub Load_Constring() Sub Load_Constring()
@ -116,18 +127,21 @@ Public Class frmMain
Try Try
'TODO: Diese Codezeile lädt Daten in die Tabelle "MyDataset.TBWMRH_TBKONFIGURATION". Sie können sie bei Bedarf verschieben oder entfernen. '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) Me.TBWMRH_KONFIGURATIONTableAdapter.Fill(Me.MyDataset.TBWMRH_KONFIGURATION)
DD_WMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("LOG_ERRORS_ONLY") 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.WDLAUFWERK = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("WD_LAUFWERK")
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Load_Konfiguration:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Load_Konfiguration:")
End Try End Try
End Sub End Sub
Sub Load_Profil() Sub Load_Profil()
Try Try
switchRecord = True
Me.TBWMRH_PROFILTableAdapter.Fill(Me.MyDataset.TBWMRH_PROFIL) Me.TBWMRH_PROFILTableAdapter.Fill(Me.MyDataset.TBWMRH_PROFIL)
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Load_Profil:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Load_Profil:")
End Try End Try
switchRecord = False
End Sub End Sub
Private Sub ObjekttypenEintragen() Private Sub ObjekttypenEintragen()
Me.ObjekttypComboBox.Items.Clear() Me.ObjekttypComboBox.Items.Clear()
@ -167,6 +181,11 @@ Public Class frmMain
End Sub End Sub
Sub statuslabel(visible As Boolean, Text As String) Sub statuslabel(visible As Boolean, Text As String)
Me.tsstatus.Visible = visible Me.tsstatus.Visible = visible
If visible = True Then
tsstatus.BackColor = Color.Yellow
Else
tsstatus.BackColor = Color.Transparent
End If
Me.tsstatus.Text = Text Me.tsstatus.Text = Text
End Sub End Sub
Private Sub btnaddSearch_Click(sender As Object, e As EventArgs) Handles btnaddSearch.Click Private Sub btnaddSearch_Click(sender As Object, e As EventArgs) Handles btnaddSearch.Click
@ -220,6 +239,9 @@ Public Class frmMain
End Try End Try
End Sub End Sub
Sub Checkbox_Days() Sub Checkbox_Days()
If switchRecord = True Then
Exit Sub
End If
Dim days As String Dim days As String
If CheckBox1.Checked Then If CheckBox1.Checked Then
days = "1" days = "1"
@ -287,6 +309,15 @@ Public Class frmMain
Private Sub DayTextBox_TextChanged(sender As Object, e As EventArgs) Handles DayTextBox.TextChanged Private Sub DayTextBox_TextChanged(sender As Object, e As EventArgs) Handles DayTextBox.TextChanged
If DayTextBox.Text <> String.Empty Then 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' 'Markieren der Checkboxen'
If DayTextBox.Text.Substring(0, 1) = 1 Then If DayTextBox.Text.Substring(0, 1) = 1 Then
CheckBox1.Checked = True CheckBox1.Checked = True
@ -309,6 +340,7 @@ Public Class frmMain
If DayTextBox.Text.Substring(6, 1) = 1 Then If DayTextBox.Text.Substring(6, 1) = 1 Then
CheckBox7.Checked = True CheckBox7.Checked = True
End If End If
switchRecord = False
End If End If
End Sub End Sub
@ -373,12 +405,14 @@ Public Class frmMain
End Sub End Sub
Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox.TextChanged 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 If GUIDTextBox.Text <> String.Empty Then
Load_Jobs(GUIDTextBox.Text) Load_Jobs(GUIDTextBox.Text)
Load_FILE_JOBS(GUIDTextBox.Text) Load_FILE_JOBS(GUIDTextBox.Text)
End If End If
End Sub End Sub
Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click
Save_PROFIL_JOB() Save_PROFIL_JOB()
End Sub End Sub
@ -449,9 +483,9 @@ Public Class frmMain
STRING2TextBox.Visible = False STRING2TextBox.Visible = False
STRING3TextBox.Visible = False STRING3TextBox.Visible = False
STRING4TextBox.Visible = False STRING4TextBox.Visible = False
STRING3TextBox.Size = New Size(400, 22) ' STRING3TextBox.Size = New Size(400, 22)
STRING3TextBox.Anchor = AnchorStyles.Left Or AnchorStyles.Top
STRING3TextBox.Multiline = False STRING3TextBox.Multiline = False
STRING3TextBox1.Visible = False
STRING5TextBox.Visible = False STRING5TextBox.Visible = False
Select Case JOB_TYPComboBox.Text.ToUpper Select Case JOB_TYPComboBox.Text.ToUpper
@ -465,11 +499,10 @@ Public Class frmMain
lblString2.Text = "Email-Betreff:" lblString2.Text = "Email-Betreff:"
STRING2TextBox.Visible = True STRING2TextBox.Visible = True
lblString3.Text = "Email-Body:" lblString3.Text = "Email-Body:"
STRING3TextBox.Visible = True
lblString4.Text = "Email-Profil:" lblString4.Text = "Email-Profil:"
lblString4.Visible = True lblString4.Visible = True
STRING3TextBox.Anchor = AnchorStyles.Left Or AnchorStyles.Top Or AnchorStyles.Right Or AnchorStyles.Bottom STRING3TextBox.Visible = False
STRING3TextBox.Multiline = True STRING3TextBox1.Visible = True
STRING4TextBox.Visible = True STRING4TextBox.Visible = True
Case "BNS json Download".ToUpper 'json BNS 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 Case "Concat Files to one pdf".ToUpper ' Concat Files to one pdf
lblString1.Text = "Name und Speicherort der zusammengefügten PDF-Datei:" lblString1.Text = "Name und Speicherort der zusammengefügten PDF-Datei:"
STRING1TextBox.Visible = True STRING1TextBox.Visible = True
btnJOB_addSpeicherort.Visible = True
lblString2.Text = "Löschen der exportierten Dateien (Ja/Nein)" lblString2.Text = "Löschen der exportierten Dateien (Ja/Nein)"
STRING2TextBox.Visible = True STRING2TextBox.Visible = True
Case "Send concatted file via mail".ToUpper Case "Send concatted file via mail".ToUpper
@ -488,7 +522,8 @@ Public Class frmMain
lblString2.Text = "Email-Betreff:" lblString2.Text = "Email-Betreff:"
STRING2TextBox.Visible = True STRING2TextBox.Visible = True
lblString3.Text = "Email-Body:" lblString3.Text = "Email-Body:"
STRING3TextBox.Visible = True STRING3TextBox.Visible = False
STRING3TextBox1.Visible = True
lblString4.Text = "Email-Profil:" lblString4.Text = "Email-Profil:"
STRING4TextBox.Visible = True STRING4TextBox.Visible = True
Case "Send to printer".ToUpper Case "Send to printer".ToUpper
@ -500,7 +535,8 @@ Public Class frmMain
lblString2.Text = "Email-Betreff:" lblString2.Text = "Email-Betreff:"
STRING2TextBox.Visible = True STRING2TextBox.Visible = True
lblString3.Text = "Email-Body:" lblString3.Text = "Email-Body:"
STRING3TextBox.Visible = True STRING3TextBox.Visible = False
STRING3TextBox1.Visible = True
lblString4.Text = "Email-Profil:" lblString4.Text = "Email-Profil:"
STRING4TextBox.Visible = True STRING4TextBox.Visible = True
lblString5.Text = "Pfad zu WM-Suche:" lblString5.Text = "Pfad zu WM-Suche:"
@ -551,6 +587,7 @@ Public Class frmMain
STRING1ComboBox.Visible = True STRING1ComboBox.Visible = True
lblString2FileJobs.Text = "Wert" lblString2FileJobs.Text = "Wert"
lblString2FileJobs.Visible = True
STRING2TextBoxProfil_FileJob.Visible = True STRING2TextBoxProfil_FileJob.Visible = True
Me.btnaddDatetime.Visible = True Me.btnaddDatetime.Visible = True
@ -609,9 +646,9 @@ Public Class frmMain
statuslabel(True, "Grundkonfiguration gespeichert - " & Now) statuslabel(True, "Grundkonfiguration gespeichert - " & Now)
Load_Grundkonfig() Load_Grundkonfig()
If LOG_ERRORS_ONLYCheckBox.Checked = False Then If LOG_ERRORS_ONLYCheckBox.Checked = False Then
MyLoggerConfig.Debug = True MyLogger.Debug = True
Else Else
MyLoggerConfig.Debug = False MyLogger.Debug = False
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
@ -628,54 +665,69 @@ Public Class frmMain
End If End If
End Sub End Sub
Sub Manual(ID As Integer) Sub Manual(ID As Integer)
'Try Try
Dim notcompleted As Boolean = False Dim notcompleted As Boolean = False
_Logger.Info("## Start Durchlauf WindreamResultHandler - " & Now & " ## ") Logger.Info("## Start Durchlauf WindreamResultHandler - " & Now & " ## ")
_profil = New clsProfil(MyLogger, ID)
'windream initialisieren 'windream initialisieren
If DD_WMResulthandler.clsDatatabase.Init(My.Settings.SQLSERVER_CS) = True Then If _database.Init(My.Settings.SQLSERVER_CS) = True Then
If _windream.Init() = True Then Dim DT As DataTable = _database.Return_Datatable("select * from TBWMRH_KONFIGURATION where GUID = 1")
_Logger.Info("windream vollumfänglich initialisiert!") If DT.Rows.Count = 1 Then
Dim DT As DataTable = DD_WMResulthandler.clsDatatabase.Return_Datatable("SELECT GUID FROM TBWMRH_PROFIL WHERE GUID = " & ID) clsCURRENT.DT_TBWMRH_KONFIGURATION = DT
If DT.Rows.Count > 0 Then clsCURRENT.WDLAUFWERK = clsCURRENT.DT_TBWMRH_KONFIGURATION.Rows(0).Item("WD_LAUFWERK")
_Logger.Info("Anzahl der aktiven Profile: " & DT.Rows.Count.ToString) DD_WMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = DT.Rows(0).Item("LOG_ERRORS_ONLY")
For Each DR As DataRow In DT.Rows MyLogger.Debug = DT.Rows(0).Item("LOG_ERRORS_ONLY")
DD_WMResulthandler.clsCURRENT._PROFIL_ID = CInt(DR.Item("GUID")) If DD_WMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = False Then
'Und nun das Profil durchlaufen Logger.Debug("Detaillog is ON!")
Dim initresult = DD_WMResulthandler.clsProfil.Init(DD_WMResulthandler.clsCURRENT._PROFIL_ID) End If
If initresult = True Then 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 ElseIf initresult = False Then
_Logger.Warn("clsProfil konnte nicht initialisiert werden") Logger.Warn("clsProfil konnte nicht initialisiert werden")
notcompleted = True notcompleted = True
ElseIf initresult = 0 Then ElseIf initresult = 0 Then
_Logger.Warn("initresult: 0") Logger.Warn("initresult: 0")
notcompleted = True notcompleted = True
ElseIf initresult = 1 Then ElseIf initresult = 1 Then
_Logger.Warn("initresult: 1") Logger.Warn("initresult: 1")
notcompleted = True notcompleted = True
End If End If
Next Next
Else Else
_Logger.Warn("- Keine aktiven Profile vorhanden") Logger.Warn("- Keine aktiven Profile vorhanden")
notcompleted = True notcompleted = True
End If End If
Else Else
_Logger.Warn("# Achtung: Windream-Init mit Fehlern beendet") Logger.Warn("# Achtung: Windream-Init mit Fehlern beendet")
End If 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 Else
_Logger.Warn("- clsDatatabase konnte nicht initialisiert werden!") Logger.Warn("- clsDatatabase konnte nicht initialisiert werden!")
notcompleted = True notcompleted = True
End If End If
If notcompleted = True Then If notcompleted = True Then
MsgBox("Run completed with errors - Check the log!", MsgBoxStyle.Information)
End If Else
MsgBox("Run completed!", MsgBoxStyle.Information) MsgBox("Run completed!", MsgBoxStyle.Information)
'Catch ex As Exception End If
' clsLogger.AddError(ex.Message, "RUN_THREAD")
'End Try Catch ex As Exception
Logger.Error(ex)
End Try
End Sub End Sub
Private Sub TBWMRH_PROFIL_JOBBindingSource_AddingNew_1(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBWMRH_PROFIL_JOBBindingSource.AddingNew 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 End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 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 End Sub
Private Sub btnTestCon_Click(sender As Object, e As EventArgs) Handles btnTestCon.Click Private Sub btnTestCon_Click(sender As Object, e As EventArgs) Handles btnTestCon.Click
@ -698,12 +755,12 @@ Public Class frmMain
Exit Sub Exit Sub
End If End If
If STEP_TYPComboBox.Text = "Execute Oracle Command" Then 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) MsgBox("Oracle Connection successfull!", MsgBoxStyle.Information)
Exit Sub Exit Sub
End If End If
ElseIf STEP_TYPComboBox.Text = "Execute MSSQL Command" Then 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) MsgBox("MSSQL Connection successfull!", MsgBoxStyle.Information)
Exit Sub Exit Sub
End If End If
@ -733,7 +790,7 @@ Public Class frmMain
End Sub End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Process.Start(MyLoggerConfig.LogDirectory) Process.Start(MyLogger.LogDirectory)
End Sub End Sub
Private Sub TBDD_EMAIL_ACCOUNTBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_EMAIL_ACCOUNTBindingSource.AddingNew 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 Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Save Email:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Save Email:")
End Try 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 End Sub
Private Sub btnsendtestmail_Click(sender As Object, e As EventArgs) Handles btnsendtestmail.Click Private Sub btnsendtestmail_Click(sender As Object, e As EventArgs) Handles btnsendtestmail.Click
If txtTestmail.Text <> String.Empty Then 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) 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, 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, CheckBoxSSL.CheckState, "") = True Then EMAIL_FROMTextBox.Text, EMAIL_SMTPTextBox.Text, PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, AUTH_TYPEComboBox.Text, "") = True Then
MsgBox("Email was send successfully.", MsgBoxStyle.Information) MsgBox("Email was send successfully.", MsgBoxStyle.Information)
Else Else
MsgBox("Could not send the testmail. Please check the log.", MsgBoxStyle.Exclamation) MsgBox("Could not send the testmail. Please check the log.", MsgBoxStyle.Exclamation)
@ -778,7 +861,7 @@ Public Class frmMain
End Sub End Sub
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click 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) Dim pwencrypted = wrapper.EncryptData(txtnewpasswort.Text)
EMAIL_PWTextBox.Text = pwencrypted EMAIL_PWTextBox.Text = pwencrypted
SaveEmail() SaveEmail()
@ -814,7 +897,65 @@ Public Class frmMain
End Try End Try
End Sub 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 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 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 MinimumVisualStudioVersion = 10.0.40219.1
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ResultHandler_Konfig", "ResultHandler_Konfig\ResultHandler_Konfig.vbproj", "{85F6D07F-4C83-41C6-AEF1-66F228C13C25}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ResultHandler_Konfig", "ResultHandler_Konfig\ResultHandler_Konfig.vbproj", "{85F6D07F-4C83-41C6-AEF1-66F228C13C25}"
EndProject 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 EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DD_WMResulthandler", "ClassWMResulthandler\DD_WMResulthandler.vbproj", "{B3190AEC-8DC4-4822-9609-54DF5B976262}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "DD_WMResulthandler", "ClassWMResulthandler\DD_WMResulthandler.vbproj", "{B3190AEC-8DC4-4822-9609-54DF5B976262}"
EndProject EndProject