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

MS Klassen überarbeitet NLOG integriert

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-08-16 10:58:57 +02:00
parent be9fca94b3
commit 844a423f7d
76 changed files with 365601 additions and 1752 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
app/.vs/windream-Result-Handler/DesignTimeBuild/.dtbcache
View File

Binary file not shown.

18
app/ClassWMResulthandler/ClassWMResulthandler.vbproj → app/ClassWMResulthandler/DD_WMResulthandler.vbproj
View File

@@ -6,8 +6,8 @@
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform> <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<ProjectGuid>{B3190AEC-8DC4-4822-9609-54DF5B976262}</ProjectGuid> <ProjectGuid>{B3190AEC-8DC4-4822-9609-54DF5B976262}</ProjectGuid>
<OutputType>Library</OutputType> <OutputType>Library</OutputType>
<RootNamespace>ClassWMResulthandler</RootNamespace> <RootNamespace>DD_WMResulthandler</RootNamespace>
<AssemblyName>ClassWMResulthandler</AssemblyName> <AssemblyName>DD_WMResulthandler</AssemblyName>
<FileAlignment>512</FileAlignment> <FileAlignment>512</FileAlignment>
<MyType>Windows</MyType> <MyType>Windows</MyType>
<TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion> <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
@@ -18,7 +18,7 @@
<DefineDebug>true</DefineDebug> <DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace> <DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath> <OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>ClassWMResulthandler.xml</DocumentationFile> <DocumentationFile>DD_WMResulthandler.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
@@ -27,7 +27,7 @@
<DefineTrace>true</DefineTrace> <DefineTrace>true</DefineTrace>
<Optimize>true</Optimize> <Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath> <OutputPath>bin\Release\</OutputPath>
<DocumentationFile>ClassWMResulthandler.xml</DocumentationFile> <DocumentationFile>DD_WMResulthandler.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn> <NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
</PropertyGroup> </PropertyGroup>
<PropertyGroup> <PropertyGroup>
@@ -62,14 +62,23 @@
<HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath> <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
<EmbedInteropTypes>True</EmbedInteropTypes> <EmbedInteropTypes>True</EmbedInteropTypes>
</Reference> </Reference>
<Reference Include="Microsoft.CSharp" />
<Reference Include="Newtonsoft.Json, Version=11.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL"> <Reference Include="Newtonsoft.Json, Version=11.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL">
<HintPath>..\packages\Newtonsoft.Json.11.0.2\lib\net45\Newtonsoft.Json.dll</HintPath> <HintPath>..\packages\Newtonsoft.Json.11.0.2\lib\net45\Newtonsoft.Json.dll</HintPath>
</Reference> </Reference>
<Reference Include="NLog, Version=4.0.0.0, Culture=neutral, PublicKeyToken=5120e14c03d0593c, processorArchitecture=MSIL">
<HintPath>..\packages\NLog.4.5.8\lib\net45\NLog.dll</HintPath>
</Reference>
<Reference Include="Oracle.ManagedDataAccess"> <Reference Include="Oracle.ManagedDataAccess">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath> <HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
</Reference> </Reference>
<Reference Include="System" /> <Reference Include="System" />
<Reference Include="System.Configuration" />
<Reference Include="System.Data" /> <Reference Include="System.Data" />
<Reference Include="System.IO.Compression" />
<Reference Include="System.Runtime.Serialization" />
<Reference Include="System.ServiceModel" />
<Reference Include="System.Transactions" />
<Reference Include="System.Xml" /> <Reference Include="System.Xml" />
<Reference Include="System.Core" /> <Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" /> <Reference Include="System.Xml.Linq" />
@@ -93,7 +102,6 @@
<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="clsLogger.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" />

8
app/ClassWMResulthandler/My Project/Application.Designer.vb generated
View File

@@ -1,10 +1,10 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' This code was generated by a tool. ' Dieser Code wurde von einem Tool generiert.
' Runtime Version:4.0.30319.42000 ' Laufzeitversion:4.0.30319.42000
' '
' Changes to this file may cause incorrect behavior and will be lost if ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' the code is regenerated. ' der Code erneut generiert wird.
' </auto-generated> ' </auto-generated>
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------

31
app/ClassWMResulthandler/My Project/Resources.Designer.vb generated
View File

@@ -1,27 +1,28 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' This code was generated by a tool. ' Dieser Code wurde von einem Tool generiert.
' Runtime Version:4.0.30319.42000 ' Laufzeitversion:4.0.30319.42000
' '
' Changes to this file may cause incorrect behavior and will be lost if ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' the code is regenerated. ' der Code erneut generiert wird.
' </auto-generated> ' </auto-generated>
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
Option Strict On Option Strict On
Option Explicit On Option Explicit On
Imports System
Namespace My.Resources Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
'class via a tool like ResGen or Visual Studio. '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
'To add or remove a member, edit your .ResX file then rerun ResGen 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
'with the /str option, or rebuild your VS project. 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
'''<summary> '''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc. ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary> '''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
@@ -32,13 +33,13 @@ Namespace My.Resources
Private resourceCulture As Global.System.Globalization.CultureInfo Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary> '''<summary>
''' Returns the cached ResourceManager instance used by this class. ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
'''</summary> '''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get Get
If Object.ReferenceEquals(resourceMan, Nothing) Then If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("ClassWMResulthandler.Resources", GetType(Resources).Assembly) Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("DD_WMResulthandler.Resources", GetType(Resources).Assembly)
resourceMan = temp resourceMan = temp
End If End If
Return resourceMan Return resourceMan
@@ -46,15 +47,15 @@ Namespace My.Resources
End Property End Property
'''<summary> '''<summary>
''' Overrides the current thread's CurrentUICulture property for all ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
''' resource lookups using this strongly typed resource class. ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
'''</summary> '''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo Friend Property Culture() As Global.System.Globalization.CultureInfo
Get Get
Return resourceCulture Return resourceCulture
End Get End Get
Set(ByVal value As Global.System.Globalization.CultureInfo) Set
resourceCulture = value resourceCulture = value
End Set End Set
End Property End Property

20
app/ClassWMResulthandler/My Project/Settings.Designer.vb generated
View File

@@ -1,10 +1,10 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' This code was generated by a tool. ' Dieser Code wurde von einem Tool generiert.
' Runtime Version:4.0.30319.42000 ' Laufzeitversion:4.0.30319.42000
' '
' Changes to this file may cause incorrect behavior and will be lost if ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' the code is regenerated. ' der Code erneut generiert wird.
' </auto-generated> ' </auto-generated>
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
@@ -15,21 +15,21 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.7.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "My.Settings Auto-Save Functionality" #Region "Automatische My.Settings-Speicherfunktion"
#If _MyType = "WindowsForms" Then #If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then If My.Application.SaveMySettingsOnExit Then
My.Settings.Save() My.Settings.Save()
End If End If
@@ -64,9 +64,9 @@ Namespace My
Friend Module MySettingsProperty Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _ <Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.ClassWMResulthandler.My.MySettings Friend ReadOnly Property Settings() As Global.DD_WMResulthandler.My.MySettings
Get Get
Return Global.ClassWMResulthandler.My.MySettings.Default Return Global.DD_WMResulthandler.My.MySettings.Default
End Get End Get
End Property End Property
End Module End Module

2
app/ClassWMResulthandler/clsCURRENT.vb
View File

@@ -3,7 +3,7 @@
Public Shared WDLAUFWERK, _profObjekttyp, _profwdSuche, _profDay, _profRunType, _Profilname As String Public Shared WDLAUFWERK, _profObjekttyp, _profwdSuche, _profDay, _profRunType, _Profilname As String
Public Shared SQLSERVER_CS As String = "" Public Shared SQLSERVER_CS As String = ""
Public Shared LOG_ERRORS_ONLY As Boolean = True Public Shared LOG_ERRORS_ONLY As Boolean = True
Public Shared ARR_Exported_Files() = Nothing Public Shared PROFILE_HandledFiles() = Nothing
Public Shared DT_TBWMRH_KONFIGURATION As DataTable = Nothing Public Shared DT_TBWMRH_KONFIGURATION As DataTable = Nothing
Public Shared DT_TBDD_EMAIL As DataTable = Nothing Public Shared DT_TBDD_EMAIL As DataTable = Nothing
Public Shared CONCATTED_FILE As String = "" Public Shared CONCATTED_FILE As String = ""

94
app/ClassWMResulthandler/clsDatabase.vb
View File

@@ -2,6 +2,7 @@
Imports Oracle.ManagedDataAccess.Client Imports Oracle.ManagedDataAccess.Client
Public Class clsDatatabase Public Class clsDatatabase
Private Shared MSSQL_inited As Boolean = False Private Shared MSSQL_inited As Boolean = False
Private Shared Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger
Public Shared Function Init(CONSTRING As String) Public Shared Function Init(CONSTRING As String)
Try Try
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlClient.SqlConnection
@@ -14,13 +15,12 @@ Public Class clsDatatabase
If clsCURRENT.DT_TBWMRH_KONFIGURATION.Rows.Count = 1 Then 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.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") clsCURRENT.WDLAUFWERK = clsCURRENT.DT_TBWMRH_KONFIGURATION.Rows(0).Item("WD_LAUFWERK")
End If End If
Return True Return True
Catch ex As Exception Catch ex As Exception
clsLogger.Add("Error in DatabaseInit: " & ex.Message, True) Logger.Error(ex)
'clsLogger.Add("Error in DatabaseInit: " & ex.Message, True)
Return False Return False
End Try End Try
End Function End Function
@@ -28,6 +28,7 @@ Public Class clsDatatabase
Public Shared Function ExecuteonOracleDb(CONSTRING As String, ByVal plsqlcommand As String) Public Shared Function ExecuteonOracleDb(CONSTRING As String, ByVal plsqlcommand As String)
Try Try
Logger.Debug("plsqlcommand: " & plsqlcommand)
' die nötigen Variablen definieren ' die nötigen Variablen definieren
Dim result As Object = Nothing Dim result As Object = Nothing
Dim conn As New OracleConnectionStringBuilder Dim conn As New OracleConnectionStringBuilder
@@ -40,7 +41,8 @@ Public Class clsDatatabase
Try Try
Oracle_Conn.Open() Oracle_Conn.Open()
Catch ex As Exception Catch ex As Exception
clsLogger.Add(ex.Message, True, "clsDatatabase.ExecuteonOracleDb(OpenConnection)") Logger.Error(ex)
'clsLogger.Add(ex.Message, True, "clsDatatabase.ExecuteonOracleDb(OpenConnection)")
Return False Return False
End Try End Try
@@ -51,7 +53,8 @@ Public Class clsDatatabase
Oracle_Command.AddToStatementCache = True Oracle_Command.AddToStatementCache = True
Catch ex As Exception Catch ex As Exception
clsLogger.Add(ex.Message, True, "clsDatatabase.plsqlcommandDefine") Logger.Error(ex)
'clsLogger.Add(ex.Message, True, "clsDatatabase.plsqlcommandDefine")
Oracle_Conn.Close() Oracle_Conn.Close()
Return False Return False
End Try End Try
@@ -60,29 +63,32 @@ Public Class clsDatatabase
' *** Ausführen des Command *** ' *** Ausführen des Command ***
If Command() IsNot Nothing Then If Command() IsNot Nothing Then
Try Try
clsLogger.AddDetailLog("Now executing: " & plsqlcommand)
Oracle_Command.ExecuteNonQuery() Oracle_Command.ExecuteNonQuery()
' DB-Connection schliessen ' DB-Connection schliessen
Oracle_Conn.Close() Oracle_Conn.Close()
Return True Return True
Catch ex As Exception Catch ex As Exception
clsLogger.Add(ex.Message & vbNewLine & "Execute Command => (" & plsqlcommand & ")", True, "clsDatatabase.ExecuteonOracleDb") Logger.Error(ex)
'clsLogger.Add(ex.Message & vbNewLine & "Execute Command => (" & plsqlcommand & ")", True, "clsDatatabase.ExecuteonOracleDb")
Oracle_Conn.Close() Oracle_Conn.Close()
Return False Return False
End Try End Try
Else Else
Logger.Info("SQL-Command ist ungültig bzw konnte nicht erstellt werden (SQL: " & plsqlcommand & ")")
' kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte ' kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
' Eintrag in Logdatei machen ' Eintrag in Logdatei machen
clsLogger.Add("SQL-Command ist ungültig bzw konnte nicht erstellt werden (SQL: " & plsqlcommand & ")", True, "clsDatatabase.ExecuteonOracleDb") 'clsLogger.Add("SQL-Command ist ungültig bzw konnte nicht erstellt werden (SQL: " & plsqlcommand & ")", True, "clsDatatabase.ExecuteonOracleDb")
Return False Return False
End If End If
Catch ex As Exception Catch ex As Exception
clsLogger.Add("Unexpected Error in ExecuteonOracleDb: " & ex.Message & vbNewLine & "SQL: " & plsqlcommand, True, "clsDatatabase.ExecuteonOracleDb") Logger.Error(ex)
'clsLogger.Add("Unexpected Error in ExecuteonOracleDb: " & ex.Message & vbNewLine & "SQL: " & plsqlcommand, True, "clsDatatabase.ExecuteonOracleDb")
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
Return False Return False
End Try End Try
@@ -99,13 +105,15 @@ Public Class clsDatatabase
Oracle_Conn.Open() Oracle_Conn.Open()
Catch ex As Exception Catch ex As Exception
clsLogger.Add(ex.Message, True, "clsDatatabase.Oracle_CS_Test(OpenConnection)") Logger.Error(ex)
'clsLogger.Add(ex.Message, True, "clsDatatabase.Oracle_CS_Test(OpenConnection)")
Return False Return False
End Try End Try
Oracle_Conn.Close() Oracle_Conn.Close()
Return True Return True
Catch ex As Exception Catch ex As Exception
clsLogger.Add("Unexpected Error in Oracle_CS_Test: " & ex.Message, True, "clsDatatabase.Oracle_CS_Test") Logger.Error(ex)
'clsLogger.Add("Unexpected Error in Oracle_CS_Test: " & ex.Message, True, "clsDatatabase.Oracle_CS_Test")
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
Return False Return False
End Try End Try
@@ -123,21 +131,24 @@ Public Class clsDatatabase
Connection = New SqlConnection(CONSTRING) Connection = New SqlConnection(CONSTRING)
Connection.Open() Connection.Open()
Catch ex As Exception Catch ex As Exception
clsLogger.Add(ex.Message, True, "clsDatatabase.MSSQL_CS_Test(OpenConnection)") Logger.Error(ex)
'clsLogger.Add(ex.Message, True, "clsDatatabase.MSSQL_CS_Test(OpenConnection)")
Return False Return False
End Try End Try
Connection.Close() Connection.Close()
Return True Return True
Catch ex As Exception Catch ex As Exception
Logger.Error(ex)
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
clsLogger.Add("UNEXPECTED ERROR: " & ex.Message, True, "clsDatatabase.MSSQL_CS_Test") 'clsLogger.Add("UNEXPECTED ERROR: " & ex.Message, True, "clsDatatabase.MSSQL_CS_Test")
Return False Return False
End Try End Try
End Function End Function
Public Shared Function ExecuteonMSSQL(ConString As String, ByVal sqlcommand As String) Public Shared Function ExecuteonMSSQL(ConString As String, ByVal sqlcommand As String)
Try Try
Logger.Debug("sqlcommand: " & sqlcommand)
If MSSQL_inited = False Then Return False If MSSQL_inited = False Then Return False
' die nötigen Variablen definieren ' die nötigen Variablen definieren
Dim Connection As SqlConnection = Nothing Dim Connection As SqlConnection = Nothing
@@ -159,7 +170,8 @@ Public Class clsDatatabase
Connection = New SqlConnection(ConString) Connection = New SqlConnection(ConString)
Connection.Open() Connection.Open()
Catch ex As Exception Catch ex As Exception
clsLogger.Add(ex.Message, True, "clsDatatabase.ExecuteonMSSQL(OpenConnection)") Logger.Error(ex)
'clsLogger.Add(ex.Message, True, "clsDatatabase.ExecuteonMSSQL(OpenConnection)")
Return False Return False
End Try End Try
@@ -168,7 +180,8 @@ Public Class clsDatatabase
Try Try
Command = New SqlCommand(sqlcommand, Connection) Command = New SqlCommand(sqlcommand, Connection)
Catch ex As Exception Catch ex As Exception
clsLogger.Add(ex.Message, True, "clsDatatabase.ExecuteonMSSQL(DefineCommand)") Logger.Error(ex)
'clsLogger.Add(ex.Message, True, "clsDatatabase.ExecuteonMSSQL(DefineCommand)")
Return False Return False
Connection.Close() Connection.Close()
End Try End Try
@@ -182,21 +195,24 @@ Public Class clsDatatabase
Connection.Close() Connection.Close()
Return True Return True
Catch ex As Exception Catch ex As Exception
Logger.Error(ex)
' bei einem Fehler einen Eintrag in der Logdatei erzeugen ' bei einem Fehler einen Eintrag in der Logdatei erzeugen
clsLogger.Add(ex.Message, True, "clsDatatabase.ExecuteonMSSQL(ExecuteCommand)") 'clsLogger.Add(ex.Message, True, "clsDatatabase.ExecuteonMSSQL(ExecuteCommand)")
Return False Return False
Connection.Close() Connection.Close()
End Try End Try
Else Else
' kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte ' kann eintreten, wenn entweder die SQL-Anweisung falsch ist oder wenn die DataConnection nicht richtig aufgebaut werden konnte
' Eintrag in Logdatei machen ' Eintrag in Logdatei machen
clsLogger.Add("Could not create COMMAND", True, "clsDatatabase.ExecuteonMSSQL") Logger.Info("Could not create COMMAND")
' clsLogger.Add("Could not create COMMAND", True, "clsDatatabase.ExecuteonMSSQL")
Return False Return False
Connection.Close() Connection.Close()
End If End If
Catch ex As Exception Catch ex As Exception
Logger.Error(ex)
' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden ' an dieser Stelle sollte jeder unvorhergesehene Fehler der Funktion abgefangen werden
clsLogger.Add("UNEXPECTED ERROR: " & ex.Message, True, "clsDatatabase.ExecuteonMSSQL") 'clsLogger.Add("UNEXPECTED ERROR: " & ex.Message, True, "clsDatatabase.ExecuteonMSSQL")
Return False Return False
End Try End Try
@@ -205,6 +221,7 @@ Public Class clsDatatabase
Public Shared Function Return_Datatable(Select_anweisung As String) Public Shared Function Return_Datatable(Select_anweisung As String)
Try Try
Logger.Debug("Select_anweisung: " & Select_anweisung)
If MSSQL_inited = False Then Return Nothing If MSSQL_inited = False Then Return Nothing
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand Dim SQLcommand As SqlClient.SqlCommand
@@ -223,9 +240,9 @@ Public Class clsDatatabase
Return dt Return dt
Catch ex As Exception Catch ex As Exception
Logger.Error(ex)
clsLogger.Add("Error in Return_Datatable: " & ex.Message, True) 'clsLogger.Add("Error in Return_Datatable: " & ex.Message, True)
clsLogger.Add(">> SQL: " & Select_anweisung, False) 'clsLogger.Add(">> SQL: " & Select_anweisung, False)
Return Nothing Return Nothing
End Try End Try
@@ -233,6 +250,7 @@ Public Class clsDatatabase
Public Shared Function Execute_non_Query(ExecuteCMD As String) Public Shared 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)
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand Dim SQLcommand As SqlClient.SqlCommand
SQLconnect.ConnectionString = clsCURRENT.SQLSERVER_CS SQLconnect.ConnectionString = clsCURRENT.SQLSERVER_CS
@@ -250,9 +268,9 @@ Public Class clsDatatabase
Return True Return True
Catch ex As Exception Catch ex As Exception
Logger.Error(ex)
clsLogger.Add("Error in Execute_non_Query: " & ex.Message, True) 'clsLogger.Add("Error in Execute_non_Query: " & ex.Message, True)
clsLogger.Add("SQL: " & ExecuteCMD, False) 'clsLogger.Add("SQL: " & ExecuteCMD, False)
Return False Return False
End Try End Try
@@ -262,7 +280,7 @@ Public Class clsDatatabase
If MSSQL_inited = False Then Return Nothing If MSSQL_inited = False Then Return Nothing
Dim result Dim result
Try Try
Logger.Debug("cmdscalar: " & cmdscalar)
Dim SQLconnect As New SqlClient.SqlConnection Dim SQLconnect As New SqlClient.SqlConnection
Dim SQLcommand As SqlClient.SqlCommand Dim SQLcommand As SqlClient.SqlCommand
@@ -282,15 +300,16 @@ Public Class clsDatatabase
Return result Return result
Catch ex As Exception Catch ex As Exception
Logger.Error(ex)
clsLogger.Add("Error in Execute_Scalar: " & ex.Message, True) 'clsLogger.Add("Error in Execute_Scalar: " & ex.Message, True)
clsLogger.Add("SQL: " & cmdscalar, False) 'clsLogger.Add("SQL: " & cmdscalar, False)
Return Nothing Return Nothing
End Try End Try
End Function End Function
Public Shared Function OracleExecute_Scalar(cmdscalar As String, OracleConnection As String) Public Shared Function OracleExecute_Scalar(cmdscalar As String, OracleConnection As String)
Dim result Dim result
Try Try
Logger.Debug("cmdscalar: " & cmdscalar)
Dim SQLconnect As New OracleConnection Dim SQLconnect As New OracleConnection
Dim SQLcommand As New OracleCommand Dim SQLcommand As New OracleCommand
SQLconnect.ConnectionString = OracleConnection SQLconnect.ConnectionString = OracleConnection
@@ -303,13 +322,15 @@ Public Class clsDatatabase
SQLconnect.Close() SQLconnect.Close()
Return result Return result
Catch ex As Exception Catch ex As Exception
clsLogger.Add("Error in OracleExecute_Scalar: " & ex.Message, True) Logger.Error(ex)
clsLogger.Add("#SQL: " & cmdscalar, False) 'clsLogger.Add("Error in OracleExecute_Scalar: " & ex.Message, True)
'clsLogger.Add("#SQL: " & cmdscalar, False)
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 Shared Function OracleExecute_non_Query(ExecuteCMD As String, OracleConnection As String, Optional userInput As Boolean = False)
Try Try
Logger.Debug("ExecuteCMD: " & ExecuteCMD)
Dim SQLconnect As New OracleConnection Dim SQLconnect As New OracleConnection
Dim SQLcommand As OracleCommand Dim SQLcommand As OracleCommand
SQLconnect.ConnectionString = OracleConnection SQLconnect.ConnectionString = OracleConnection
@@ -322,9 +343,9 @@ Public Class clsDatatabase
SQLconnect.Close() SQLconnect.Close()
Return True Return True
Catch ex As Exception Catch ex As Exception
Logger.Error(ex)
clsLogger.Add("Error in OracleExecute_non_Query: " & ex.Message, True) 'clsLogger.Add("Error in OracleExecute_non_Query: " & ex.Message, True)
clsLogger.Add("#SQL: " & ExecuteCMD, False) 'clsLogger.Add("#SQL: " & ExecuteCMD, False)
Return False Return False
End Try End Try
@@ -332,6 +353,7 @@ Public Class clsDatatabase
Public Shared Function Oracle_Return_Datatable(Select_anweisung As String, OracleConnection As String, Optional userInput As Boolean = False) Public Shared Function Oracle_Return_Datatable(Select_anweisung As String, OracleConnection As String, Optional userInput As Boolean = False)
Try Try
Logger.Debug("Select_anweisung: " & Select_anweisung)
Dim SQLconnect As New OracleConnection Dim SQLconnect As New OracleConnection
Dim SQLcommand As OracleCommand Dim SQLcommand As OracleCommand
SQLconnect.ConnectionString = OracleConnection SQLconnect.ConnectionString = OracleConnection
@@ -345,9 +367,9 @@ Public Class clsDatatabase
SQLconnect.Close() SQLconnect.Close()
Return dt Return dt
Catch ex As Exception Catch ex As Exception
Logger.Error(ex)
clsLogger.Add("Error in Oracle_Return_Datatable: " & ex.Message, True) 'clsLogger.Add("Error in Oracle_Return_Datatable: " & ex.Message, True)
clsLogger.Add("#SQL: " & Select_anweisung, False) 'clsLogger.Add("#SQL: " & Select_anweisung, False)
Return Nothing Return Nothing
End Try End Try
End Function End Function

107
app/ClassWMResulthandler/clsDateiverarbeitung.vb
View File

@@ -5,7 +5,7 @@ Imports Newtonsoft.Json
Imports System.Text Imports System.Text
Public Class clsDateiverarbeitung Public Class clsDateiverarbeitung
Private Shared Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger
#Region "***** Variablen und Konstanten*****" #Region "***** Variablen und Konstanten*****"
Public Shared _windream As New clsWindream_allgemein Public Shared _windream As New clsWindream_allgemein
@@ -30,10 +30,11 @@ Public Class clsDateiverarbeitung
Try Try
pr_DTPROFIL_REGELN = Nothing pr_DTPROFIL_REGELN = Nothing
' Profildaten der Klasse mitteilen ' Profildaten der Klasse mitteilen
clsLogger.AddDetailLog("InitProfilData Profildaten zugewiesen....") Logger.Info("InitProfilData Profildaten zugewiesen....")
Return True Return True
Catch ex As Exception Catch ex As Exception
clsLogger.AddError(ex.Message, "cls_DV.InitProfilData") Logger.Error(ex)
'clsLogger.AddError(ex.Message, "cls_DV.InitProfilData")
Return False Return False
End Try End Try
End Function End Function
@@ -43,14 +44,14 @@ Public Class clsDateiverarbeitung
If Not Zielpfad.EndsWith("\") Then If Not Zielpfad.EndsWith("\") Then
Zielpfad = Zielpfad & "\" Zielpfad = Zielpfad & "\"
End If End If
clsLogger.Add("", False)
clsLogger.Add(">> Verarbeitung von Datei: " & WDDatei.aName, False) Logger.Info("Verarbeitung von Datei: " & WDDatei.aName)
'Die Quelle zusammensetzen 'Die Quelle zusammensetzen
clsLogger.AddDetailLog("PFAD: " & clsCURRENT.WDLAUFWERK & ":" & WDDatei.aPath & "\" & WDDatei.aName) Logger.Info("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
clsLogger.AddDetailLog("ExportFileIO erzeugt.....") Logger.Info("ExportFileIO erzeugt.....")
' Stream Interface bereitstellen ' Stream Interface bereitstellen
WDDatei.LockFor(WMObjectEditModeFileSystem) WDDatei.LockFor(WMObjectEditModeFileSystem)
Try Try
@@ -58,7 +59,7 @@ Public Class clsDateiverarbeitung
WDDatei.lock() WDDatei.lock()
End If End If
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Unvorhergesehener Fehler beim Lock-Vorgang: " & ex.Message, "clsDV.Export_File") Logger.Error(ex) 'clsLogger.AddError("Unvorhergesehener Fehler beim Lock-Vorgang: " & ex.Message, "clsDV.Export_File")
Return False Return False
End Try End Try
@@ -74,7 +75,7 @@ Public Class clsDateiverarbeitung
tempFilename = Zielpfad & Filename & "_" & version & Extension tempFilename = Zielpfad & Filename & "_" & version & Extension
version = version + 1 version = version + 1
Loop Loop
clsLogger.AddDetailLog("Zieldateiname: " & tempFilename) Logger.Info("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
@@ -85,18 +86,19 @@ Public Class clsDateiverarbeitung
WDDatei.Save() WDDatei.Save()
WDDatei.unlock() WDDatei.unlock()
clsCURRENT.EXPORTED_FILENAME = tempFilename clsCURRENT.EXPORTED_FILENAME = tempFilename
clsLogger.Add(">> Datei erfolgreich nach '" & tempFilename & "' verschoben.", False, "clsDV Export_File") Logger.Info("Datei erfolgreich nach '" & tempFilename & "' verschoben.")
aktfile_Exportresult = tempFilename aktfile_Exportresult = tempFilename
Return True Return True
Catch ex As Exception Catch ex As Exception
'bei einem Fehler einen Eintrag in der Logdatei machen 'bei einem Fehler einen Eintrag in der Logdatei machen
clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsDV.Export_File") Logger.Error(ex)
Return False Return False
End Try End Try
End Function End Function
Public Shared Function Rename_File(WMFile As WMObject, konvention As String) Public Shared Function Rename_File(WMFile As WMObject, konvention As String)
Try Try
clsLogger.AddDetailLog("Konvention: '" & konvention & "'") Logger.Info("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}"
@@ -110,42 +112,43 @@ 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("]", "")
clsLogger.AddDetailLog("Indexwert aus Index '" & reg_element_Ohne_SZ & "' auslesen....") Logger.Info("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
clsLogger.AddDetailLog("Namenkonvention (" & i & ") " & konvention) Logger.Info("Namenkonvention (" & i & ") " & konvention)
wdIndexwert = wdIndexwert.ToString.TrimEnd wdIndexwert = wdIndexwert.ToString.TrimEnd
wdIndexwert = wdIndexwert.ToString.TrimStart wdIndexwert = wdIndexwert.ToString.TrimStart
clsLogger.AddDetailLog("Ausgelesener Indexwert = '" & wdIndexwert & "'") Logger.Info("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
clsLogger.Add(">> Achtung gelesener Wert ist ein Vektorfeld - keine Umbenennung möglich ", False, "clsProfil.Profil_Durchlauf") Logger.Warn("Achtung gelesener Wert ist ein Vektorfeld - keine Umbenennung möglich ")
End If End If
End If End If
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)
clsLogger.AddDetailLog("ZielPfad: " & ZielPfad) Logger.Info("ZielPfad: " & ZielPfad)
Dim Filename = konvention Dim Filename = konvention
Dim Extension = Path.GetExtension(aktfile_Exportresult) Dim Extension = Path.GetExtension(aktfile_Exportresult)
clsLogger.AddDetailLog("Extension: " & Extension) Logger.Info("Extension: " & Extension)
Dim tempFilename As String = ZielPfad & "\" & Filename & Extension Dim tempFilename As String = ZielPfad & "\" & Filename & Extension
clsLogger.AddDetailLog("tempFilename: " & tempFilename) Logger.Info("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
clsLogger.AddDetailLog("RenameFile - OLDFilename: " & aktfile_Exportresult & " - NEWFilename: " & Path.GetFileName(tempFilename)) Logger.Info("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))
clsLogger.Add(">> Datei wurde erfolgreich umbenannt.", False, "clsProfil.RenameFile") Logger.Info("Datei wurde erfolgreich umbenannt.")
Return True Return True
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.RenameFile") Logger.Error(ex)
Return False Return False
End Try End Try
End Function End Function
@@ -153,9 +156,9 @@ Public Class clsDateiverarbeitung
Try Try
Dim WMIndexwert Dim WMIndexwert
Dim ZielPfad As String = Path.GetDirectoryName(aktfile_Exportresult) Dim ZielPfad As String = Path.GetDirectoryName(aktfile_Exportresult)
clsLogger.AddDetailLog("ZielPfad: " & ZielPfad) Logger.Info("ZielPfad: " & ZielPfad)
Dim Extension = Path.GetExtension(aktfile_Exportresult) Dim Extension = Path.GetExtension(aktfile_Exportresult)
clsLogger.AddDetailLog("Extension: " & Extension) Logger.Info("Extension: " & Extension)
If WMINDEX_NAME.StartsWith("[%") Then If WMINDEX_NAME.StartsWith("[%") Then
WMINDEX_NAME = WMINDEX_NAME.Replace("[%", "") WMINDEX_NAME = WMINDEX_NAME.Replace("[%", "")
@@ -164,7 +167,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
clsLogger.AddDetailLog("Rename_File_Vektor in Progress for index " & WMINDEX_NAME) Logger.Info("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
@@ -172,9 +175,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
clsLogger.AddDetailLog("tempFilename: " & tempFilename) Logger.Info("tempFilename: " & tempFilename)
If anz = 1 Then If anz = 1 Then
clsLogger.AddDetailLog("RenameFile - OLDFilename: " & aktfile_Exportresult & " - NEWFilename: " & Path.GetFileName(tempFilename)) Logger.Info("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
@@ -190,18 +193,20 @@ Public Class clsDateiverarbeitung
End If End If
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsDateiverarbeitung.ForEachWMvalue") Logger.Error(ex)
'
End Try End Try
Next Next
Else Else
clsLogger.Add(">> Achtung WMIndex " & WMINDEX_NAME & " scheint kein Vektorfeld zu sein!", False, "clsDateiverarbeitung.Rename_File_Vektor") Logger.Warn("Achtung WMIndex " & WMINDEX_NAME & " scheint kein Vektorfeld zu sein!")
Return False Return False
End If End If
clsLogger.Add(">> Dateien wurde erfolgreich nach Vektorfeld erzeugt.", False, "clsDateiverarbeitung.Rename_File_Vektor") Logger.Info("Dateien wurde erfolgreich nach Vektorfeld erzeugt.")
Return True Return True
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsDateiverarbeitung.Rename_File_Vektor") Logger.Error(ex)
End Try End Try
End Function End Function
@@ -264,8 +269,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"
clsLogger.Add($">> Generiertes JSON: {json}", False, "BNSjsonDownload") Logger.Info($">> Generiertes JSON: {json}")
clsLogger.Add($">> Creating WebRequest for {url}", False, "BNSjsonDownload") Logger.Info($">> Creating WebRequest for {url}")
Dim req As HttpWebRequest = WebRequest.CreateHttp(url) Dim req As HttpWebRequest = WebRequest.CreateHttp(url)
@@ -279,8 +284,8 @@ Public Class clsDateiverarbeitung
reqStream.Write(bytes, 0, bytes.Length) reqStream.Write(bytes, 0, bytes.Length)
reqStream.Close() reqStream.Close()
clsLogger.Add($">> Datei wird hochgeladen... docId: {DOKID}, dokart: {DOKART}, userId: {userId}", False, "BNSjsonDownload") Logger.Info($">> Datei wird hochgeladen... docId: {DOKID}, dokart: {DOKART}, userId: {userId}")
clsLogger.Add($">> Upload URL: {url}", False, "BNSjsonDownload") Logger.Info($">> 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
@@ -288,14 +293,15 @@ 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
clsLogger.Add($">> Datei geschrieben! docId: {DOKID}, dokart: {DOKART}, userId: {userId}", False, "BNSjsonDownload") Logger.Info($">> Datei geschrieben! docId: {DOKID}, dokart: {DOKART}, userId: {userId}")
Else Else
Throw New Exception($"Server Error (HTTP {code}: {text})") Throw New Exception($"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
clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message & " - " & ex.Source, "BNSjsonDownload") Logger.Error(ex)
Return True Return True
End Try End Try
End Function End Function
@@ -314,7 +320,8 @@ Public Class clsDateiverarbeitung
End If End If
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "RUN_ORACLE_COMMAND") Logger.Error(ex)
Return False Return False
End Try End Try
End Function End Function
@@ -333,14 +340,15 @@ Public Class clsDateiverarbeitung
End If End If
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "RUN_MSSQL_COMMAND") Logger.Error(ex)
Return False Return False
End Try End Try
End Function End Function
Public Shared Function REGEX_REPLACE(WMFile As WMObject, _STRING As String) Public Shared Function REGEX_REPLACE(WMFile As WMObject, _STRING As String)
Try Try
clsLogger.AddDetailLog("REGEX_String before replacing: '" & _STRING & "'") Logger.Info("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
@@ -353,7 +361,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("]", "")
clsLogger.AddDetailLog("read indexvalue from index '" & reg_element_Ohne_SZ & "'....") Logger.Info("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)
@@ -369,14 +377,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
clsLogger.AddDetailLog("indexvalue read is: '" & wdIndexwert & "'") Logger.Info("indexvalue read is: '" & wdIndexwert & "'")
_STRING = _STRING.Replace(reg_element.Value, wdIndexwert.ToString) _STRING = _STRING.Replace(reg_element.Value, wdIndexwert.ToString)
clsLogger.AddDetailLog("REGEX_String (" & i & ") " & _STRING) Logger.Info("REGEX_String (" & i & ") " & _STRING)
i += 1 i += 1
Else Else
clsLogger.Add(">> Attention: WMIndex is an vectorfield - seperation of values via ;", False, "clsDateiverarbeitung.REGEX_REPLACE") Logger.Warn("Attention: WMIndex is an vectorfield - seperation of values via ;")
clsLogger.AddDetailLog("wdIndexValue is System.Object....") Logger.Info("wdIndexValue is System.Object....")
clsLogger.AddDetailLog("trying to seperate via ,....") Logger.Info("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
@@ -392,10 +400,10 @@ 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)
clsLogger.AddDetailLog("REGEX_String after vector-for-each (" & i & ") " & _STRING) Logger.Info("REGEX_String after vector-for-each (" & i & ") " & _STRING)
End If End If
Else Else
clsLogger.Add(">> 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")
_STRING = _STRING.Replace(reg_element.Value, "0") _STRING = _STRING.Replace(reg_element.Value, "0")
End If End If
End If End If
@@ -404,7 +412,8 @@ Public Class clsDateiverarbeitung
Next Next
Return _STRING Return _STRING
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Unexpected error: " & ex.Message, "REGEX_REPLACE") Logger.Error(ex)
Return Nothing Return Nothing
End Try End Try
End Function End Function

16
app/ClassWMResulthandler/clsEmail.vb
View File

@@ -4,6 +4,7 @@ Imports Independentsoft.Email
Imports Independentsoft.Email.Smtp Imports Independentsoft.Email.Smtp
Imports Independentsoft.Email.Mime Imports Independentsoft.Email.Mime
Public Class clsEmail Public Class clsEmail
Private Shared Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger
Private Shared MailAktiv As Boolean = False Private Shared MailAktiv As Boolean = False
'Public Shared Function Init() 'Public Shared Function Init()
@@ -116,7 +117,7 @@ Public Class clsEmail
message.BodyParts.Add(textBodyPart) message.BodyParts.Add(textBodyPart)
If attment <> String.Empty Then If attment <> String.Empty Then
If System.IO.File.Exists(attment) Then If System.IO.File.Exists(attment) Then
Dim attachment1 As New Attachment("c:\testfolder\test.docx") Dim attachment1 As New Attachment(attment)
If attment.ToLower.EndsWith("pdf") Then If attment.ToLower.EndsWith("pdf") Then
attachment1.ContentType = New ContentType("application", "pdf") attachment1.ContentType = New ContentType("application", "pdf")
ElseIf attment.ToLower.EndsWith("jpg") Then ElseIf attment.ToLower.EndsWith("jpg") Then
@@ -131,7 +132,8 @@ Public Class clsEmail
Try Try
client = New SmtpClient(mailsmtp, mailport) client = New SmtpClient(mailsmtp, mailport)
Catch ex As Exception Catch ex As Exception
clsLogger.AddError(ex.Message, "clsEmail.SendMail(Create Client)") Logger.Warn("clsEmail.SendMail(Create Client): " & ex.Message)
_error = True _error = True
Continue For Continue For
End Try End Try
@@ -139,7 +141,7 @@ Public Class clsEmail
Try Try
client.Connect() client.Connect()
Catch ex As Exception Catch ex As Exception
clsLogger.AddError(ex.Message, "clsEmail.SendMail(Client.Connect)") Logger.Warn("clsEmail.SendMail(Client.Connect): " & ex.Message)
_error = True _error = True
Continue For Continue For
@@ -148,7 +150,7 @@ Public Class clsEmail
Try Try
client.Login(mailUser, mailPW) client.Login(mailUser, mailPW)
Catch ex As Exception Catch ex As Exception
clsLogger.AddError(ex.Message, "clsEmail.SendMail(Client.Login)") Logger.Warn("clsEmail.SendMail(Client.Login): " & ex.Message)
_error = True _error = True
client.Disconnect() client.Disconnect()
Continue For Continue For
@@ -156,7 +158,7 @@ Public Class clsEmail
Try Try
client.Send(message) client.Send(message)
Catch ex As Exception Catch ex As Exception
clsLogger.AddError(ex.Message, "clsEmail.SendMail(Client.Send)") Logger.Warn("clsEmail.SendMail(Client.Send): " & ex.Message)
_error = True _error = True
client.Disconnect() client.Disconnect()
Continue For Continue For
@@ -164,11 +166,11 @@ Public Class clsEmail
client.Disconnect() client.Disconnect()
Catch ex As Exception Catch ex As Exception
clsLogger.AddError(ex.Message, "clsEmail.SendMail()") Logger.Error(ex)
_error = True _error = True
End Try End Try
Next Next
clsLogger.WriteLog()
If _error = True Then If _error = True Then
Return False Return False

172
app/ClassWMResulthandler/clsLogger.vb
View File

@@ -1,172 +0,0 @@
Imports System.IO
Public Class clsLogger
Private Shared LogPath As String
Public Shared LogFilename As String
Private Shared logErr_name As String
Private Shared log_string As String
Private Shared Inited As Boolean = False
Public Shared Function Init(ByVal speicherort As String, ByVal prefix As String)
Try
'Den Speicherort festlegen
SetSpeicherort()
Dim logf_name As String = LogPath & "\" & System.DateTime.Now.ToString("yyyy_MM_dd") & prefix & ".txt"
logErr_name = LogPath & "\" & "ErrorLog_" & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
Dim anz As Integer = 1
Do While File.Exists(logf_name)
Dim info As New FileInfo(logf_name)
Dim length As Long = info.Length
If length > 5000000 Then
logf_name = IO.Path.GetDirectoryName(logf_name)
logf_name = logf_name & "\" & prefix & System.DateTime.Now.ToString("yyyy_MM_dd") & "(" & anz.ToString & ").txt"
anz = anz + 1
Else
Exit Do
End If
Loop
LogFilename = logf_name
Try
'Veruch das Log zu öffnen
Dim fs As FileStream = New FileStream(LogFilename, FileMode.OpenOrCreate, FileAccess.Write)
' --- Stream öffnen
Dim w As StreamWriter = New StreamWriter(fs)
' --- Anfügen am Ende
w.BaseStream.Seek(0, SeekOrigin.End)
' --- Zeilen schreiben
w.WriteLine(" ")
' --- Writer und Stream schließen
w.Close()
fs.Close()
Catch ex As Exception
LogEscalation_Error("The Logfile could not be created - Error: " & ex.Message)
Return False
End Try
'Alles Ok
Inited = True
Return True
Catch ex As Exception
LogEscalation_Error("Unexpected Error in init Logger - Error: " & ex.Message)
Return False
End Try
End Function
Private Shared Sub LogEscalation_Error(msg As String)
Try
'Veruch das Log zu öffnen
Dim fs As FileStream = New FileStream(logErr_name, FileMode.OpenOrCreate, FileAccess.Write)
' --- Stream öffnen
Dim w As StreamWriter = New StreamWriter(fs)
' --- Anfügen am Ende
w.BaseStream.Seek(0, SeekOrigin.End)
' --- Zeilen schreiben
w.WriteLine(msg)
' --- Writer und Stream schließen
w.Close()
fs.Close()
Catch ex As Exception
End Try
End Sub
' legt den Speicherort fest
Public Shared Sub SetSpeicherort()
Dim f As New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Log")
If f.Exists = False Then
IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\Log")
End If
LogPath = My.Application.Info.DirectoryPath & "\Log\"
End Sub
Public Shared Sub Add(ByVal text As String, ByVal _error As Boolean, Optional ByVal Funktion As String = "")
If Inited = False Then
Exit Sub
End If
Dim msg As String
If log_string <> "" Then
log_string &= vbNewLine
End If
'Präfixe schreiben
If _error = True And Funktion <> "" Then
msg = ">> Unexpected error in function '" & Funktion & "': "
ElseIf _error = True Then
msg = ">> Unexpected error: "
End If
'Präfix und Meldung zusammenstellen
msg &= text
log_string &= Now.ToString & " " & msg
End Sub
Public Shared Sub AddError(ByVal error_string As String, Optional ByVal Funktion As String = "")
If Inited = False Then
Exit Sub
End If
Try
'Zuerst mal die Details schreiben
WriteLog()
'Nun den eigentlichen Fehler loggen
Dim msg As String = Now.ToString
'Präfixe schreiben
If Funktion <> "" Then
msg &= ">> Unexpected error in function '" & Funktion & "': "
Else
msg &= ">> Unexpected error: "
End If
'Präfix und Meldung zusammenstellen
msg &= error_string
'Veruch das Log zu öffnen
Dim fs As FileStream = New FileStream(LogFilename, FileMode.OpenOrCreate, FileAccess.Write)
' --- Stream öffnen
Dim w As StreamWriter = New StreamWriter(fs)
' --- Anfügen am Ende
w.BaseStream.Seek(0, SeekOrigin.End)
' --- Zeilen schreiben
w.WriteLine(msg)
' --- Writer und Stream schließen
w.Close()
fs.Close()
Catch ex As Exception
LogEscalation_Error("Unexpected Error in AddError - Error: " & ex.Message)
End Try
End Sub
Public Shared Sub AddDetailLog(ByVal text As String)
If Inited = False Then
Exit Sub
End If
Try
If clsCURRENT.LOG_ERRORS_ONLY = False Then
If log_string <> "" Then
log_string &= vbNewLine
End If
log_string &= ">> " & text
End If
Catch ex As Exception
LogEscalation_Error("Unexpected Error in AddDetailLog - Error: " & ex.Message)
End Try
End Sub
Public Shared Sub WriteLog()
Try
If log_string = Nothing Then
Exit Sub
End If
If log_string = String.Empty Then
Exit Sub
End If
'Veruch das Log zu öffnen
Dim fs As FileStream = New FileStream(LogFilename, FileMode.OpenOrCreate, FileAccess.Write)
' --- Stream öffnen
Dim w As StreamWriter = New StreamWriter(fs)
' --- Anfügen am Ende
w.BaseStream.Seek(0, SeekOrigin.End)
' --- Zeilen schreiben
w.WriteLine(log_string)
' --- Writer und Stream schließen
w.Close()
fs.Close()
SetSpeicherort()
'Den Meldungsstring wieder leeren
log_string = ""
Catch ex As Exception
LogEscalation_Error("Unexpected Error in WriteLog - Error: " & ex.Message)
End Try
End Sub
End Class

289
app/ClassWMResulthandler/clsProfil.vb
View File

@@ -5,6 +5,7 @@ Imports Newtonsoft.Json
Public Class clsProfil Public Class clsProfil
Inherits clsCURRENT Inherits clsCURRENT
Private Shared Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger
#Region "***** Variablen *****" #Region "***** Variablen *****"
@@ -15,20 +16,22 @@ Public Class clsProfil
Private Shared WD_aktivesDokument As WMObject Private Shared WD_aktivesDokument As WMObject
#End Region #End Region
Public Shared Function Init(guid As Integer) Sub New(PROFIL_ID As Integer, LogSpeicherort As String, praefix As String)
Try Init(PROFIL_ID)
clsLogger.AddDetailLog("Start Initialisierung Profil für GUID: " & guid.ToString) End Sub
Dim DT As DataTable = clsDatatabase.Return_Datatable("Select * from TBWMRH_PROFIL where GUID = " & guid) Public Shared Function Init(PROFIL_ID As Integer)
Try
Logger.Info("Start Initialisierung Profil für GUID: " & PROFIL_ID.ToString)
Dim DT As DataTable = clsDatatabase.Return_Datatable("Select * from TBWMRH_PROFIL where GUID = " & PROFIL_ID)
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
clsCURRENT._profGUID = guid _profGUID = PROFIL_ID
_Profilname = CStr(DR.Item("Profilname")) _Profilname = CStr(DR.Item("Profilname"))
clsLogger.AddDetailLog("Check Profilname '" & _Profilname & "', GUID: " & _profGUID & " geladen") Logger.Info("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
clsLogger.Add("## Profil '" & _Profilname & "' ist inaktiv geschaltet", False) Logger.Info("## Profil '" & _Profilname & "' ist inaktiv geschaltet")
clsLogger.Add("", False)
Return False Return False
Else Else
_profObjekttyp = CStr(DR.Item("Objekttyp")) _profObjekttyp = CStr(DR.Item("Objekttyp"))
@@ -36,17 +39,17 @@ 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")
clsLogger.AddDetailLog("Raw-Daten für Profil '" & _Profilname & "', GUID: " & _profGUID & " geladen") Logger.Info("Raw-Daten für Profil '" & _Profilname & "', GUID: " & _profGUID & " geladen")
Return True Return True
End If End If
Next Next
Else Else
clsLogger.Add("Achtung - keine Profile für diesen Durchlaufthread verfügbar", False) Logger.Warn("Achtung - keine Profile für diesen Durchlaufthread verfügbar")
Return False Return False
End If End If
Catch ex As Exception Catch ex As Exception
clsLogger.AddError(ex.Message, "Profil_Init") Logger.Error(ex)
Return False Return False
End Try End Try
@@ -60,21 +63,21 @@ Public Class clsProfil
Dim Dayofweek As Integer = My.Computer.Clock.LocalTime.DayOfWeek Dim Dayofweek As Integer = My.Computer.Clock.LocalTime.DayOfWeek
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
clsLogger.AddDetailLog("Verarbeitung soll heute durchgeführt werden!") Logger.Info("Verarbeitung soll heute durchgeführt werden!")
clsLogger.AddDetailLog("_RunType: " & _profRunType) Logger.Info("_RunType: " & _profRunType)
Dim arr As String() Dim arr As String()
arr = _profRunType.Split(";") arr = _profRunType.Split(";")
clsLogger.AddDetailLog("arr(1): " & arr(1).ToString) Logger.Info("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
clsLogger.AddDetailLog("Intervall: 1 Minute") 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))
clsLogger.AddDetailLog("ProfilTime: " & _RunTime) Logger.Info("ProfilTime: " & _RunTime)
clsLogger.AddDetailLog("_RunTime.ToShortTimeString: " & _RunTime.ToShortTimeString & " # " & "Now.ToShortTimeString: " & Now.ToShortTimeString) Logger.Info("_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
clsLogger.AddDetailLog("Manueller Durchlauf des Profils - 11.11.1911") Logger.Info("Manueller Durchlauf des Profils - 11.11.1911")
Run_Profile = True Run_Profile = True
Else Else
'Ist die Uhrzeit in der Range 'Ist die Uhrzeit in der Range
@@ -90,67 +93,66 @@ Public Class clsProfil
msg = "Minutenangaben: " & vbNewLine msg = "Minutenangaben: " & vbNewLine
msg = msg & "DiffMin: " & DiffMin & vbNewLine msg = msg & "DiffMin: " & DiffMin & vbNewLine
msg = msg & "Intervall: " & arr(1) msg = msg & "Intervall: " & arr(1)
clsLogger.AddDetailLog(msg) 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
End If End If
Case Else Case Else
clsLogger.Add(">> _profRunType konnte nicht ausgewertet werden - " & arr(0), False) Logger.Warn("_profRunType konnte nicht ausgewertet werden - " & arr(0))
End Select End Select
If Run_Profile = True Then If Run_Profile = True Then
ClassWMResulthandler.clsCURRENT.DT_TBDD_EMAIL = clsDatatabase.Return_Datatable("SELECT * FROM TBDD_EMAIL_ACCOUNT WHERE ACTIVE = 1") clsCURRENT.DT_TBDD_EMAIL = clsDatatabase.Return_Datatable("SELECT * FROM TBDD_EMAIL_ACCOUNT WHERE ACTIVE = 1")
ClassWMResulthandler.clsCURRENT.ARR_Exported_Files = Nothing clsCURRENT.PROFILE_HandledFiles = Nothing
clsLogger.Add(">> Start des Durchlaufes für Profil '" & _Profilname & "'", False) Logger.Info("Start des Durchlaufes für Profil '" & _Profilname & "'")
'den Durchlaufszeitpunkt speichern 'den Durchlaufszeitpunkt speichern
clsDatatabase.Execute_non_Query("Update TBWMRH_PROFIL SET Running = 1 WHERE GUID = " & _profGUID) clsDatatabase.Execute_non_Query("Update TBWMRH_PROFIL SET Running = 1 WHERE GUID = " & _profGUID)
clsLogger.AddDetailLog("Prüfen der windream-Suche.......") Logger.Info("Prüfen der windream-Suche.......")
If File.Exists(_profwdSuche) = False Then If File.Exists(_profwdSuche) = False Then
clsLogger.Add("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) clsDatatabase.Execute_non_Query("Update TBWMRH_PROFIL SET Running = 0 WHERE GUID = " & _profGUID)
clsLogger.WriteLog()
Return False Return False
Else Else
' windream-Suche für Profil starten ' windream-Suche für Profil starten
clsLogger.AddDetailLog("GetSearchDocuments für Suche '" & _profwdSuche & "' starten: ") Logger.Info("GetSearchDocuments für Suche '" & _profwdSuche & "' starten: ")
Dim windreamSucheErgebnisse As WMObjects = clsWindream_allgemein.GetSearchDocuments(_profwdSuche) Dim windreamSucheErgebnisse As WMObjects = clsWindream_allgemein.GetSearchDocuments(_profwdSuche)
If windreamSucheErgebnisse Is Nothing Then If windreamSucheErgebnisse Is Nothing Then
clsLogger.Add("windreamSucheErgebnisse is nothing!", True, "clsProfil.Profil_Durchlauf") Logger.Warn("windreamSucheErgebnisse is nothing!", True, "clsProfil.Profil_Durchlauf")
clsLogger.WriteLog()
Return False Return False
End If End If
If windreamSucheErgebnisse.Count > 0 Then If windreamSucheErgebnisse.Count > 0 Then
clsLogger.Add("- Insgesamt sollen '" & windreamSucheErgebnisse.Count & "' Dateien bearbeitet werden", False) Logger.Info("- Insgesamt sollen '" & windreamSucheErgebnisse.Count & "' Dateien bearbeitet werden")
clsLogger.AddDetailLog("SELECT * FROM TBWMRH_PROFIL_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE") Logger.Info("SELECT * FROM TBWMRH_PROFIL_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE")
Dim DT_PROFIL_JOB As DataTable = clsDatatabase.Return_Datatable("SELECT * FROM TBWMRH_PROFIL_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE") Dim DT_PROFIL_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_FILE_JOB As DataTable = clsDatatabase.Return_Datatable("SELECT * FROM TBWMRH_PROFIL_FILE_JOB WHERE AKTIV = 1 AND PROFIL_ID = " & _profGUID & " ORDER BY REIHENFOLGE")
clsLogger.AddDetailLog("DT_PROFIL_JOB und DT_PROFIL_FILE_JOB generiert ") Logger.Info("DT_PROFIL_JOB und DT_PROFIL_FILE_JOB generiert ")
clsLogger.AddDetailLog("DT_PROFIL_JOB.Rows.Count = " & DT_PROFIL_JOB.Rows.Count) Logger.Info("DT_PROFIL_JOB.Rows.Count = " & DT_PROFIL_JOB.Rows.Count)
clsLogger.AddDetailLog("DT_PROFIL_FILE_JOB.Rows.Count = " & DT_PROFIL_FILE_JOB.Rows.Count) 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 clsDateiverarbeitung.InitProfilData = True Then
clsLogger.AddDetailLog("clsDateiverarbeitung.InitProfilData = True") Logger.Info("clsDateiverarbeitung.InitProfilData = True")
For Each _JOBROW As DataRow In DT_PROFIL_JOB.Rows For Each _JOBROW As DataRow In DT_PROFIL_JOB.Rows
clsLogger.AddDetailLog("JOB_TYP: " & _JOBROW.Item("JOB_TYP").ToString.ToUpper & " GUID: " & _JOBROW.Item("GUID").ToString) Logger.Info("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
clsCURRENT.PROFILE_HandledFiles = Nothing
For Each WMdok As WMObject In windreamSucheErgebnisse For Each WMdok As WMObject In windreamSucheErgebnisse
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
'XX 'XX
Dim Email_Empfänger = DR_PR_JB.Item("STRING1") Dim Email_Empfänger = DR_PR_JB.Item("STRING1")
clsLogger.AddDetailLog("Email_Empfänger: " & Email_Empfänger) Logger.Info("Email_Empfänger: " & Email_Empfänger)
Dim Email_Betreff = DR_PR_JB.Item("STRING2") Dim Email_Betreff = DR_PR_JB.Item("STRING2")
clsLogger.AddDetailLog("Email_Betreff: " & Email_Betreff) Logger.Info("Email_Betreff: " & Email_Betreff)
Dim Email_Body = DR_PR_JB.Item("STRING3") Dim Email_Body = DR_PR_JB.Item("STRING3")
clsLogger.AddDetailLog("Email_Body: " & Email_Body) Logger.Info("Email_Body: " & Email_Body)
Dim EMAIL_PROFIL = DR_PR_JB.Item("STRING4") Dim EMAIL_PROFIL = DR_PR_JB.Item("STRING4")
clsLogger.AddDetailLog("EMAIL_PROFIL: " & EMAIL_PROFIL) Logger.Info("EMAIL_PROFIL: " & EMAIL_PROFIL)
If Not IsNothing(ClassWMResulthandler.clsCURRENT.DT_TBDD_EMAIL) And ClassWMResulthandler.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 = ""
@@ -158,7 +160,7 @@ Public Class clsProfil
Dim MAIL_SSL As Boolean = False Dim MAIL_SSL As Boolean = False
Dim MAIL_PORT As String = "25" Dim MAIL_PORT As String = "25"
For Each emailrow As DataRow In ClassWMResulthandler.clsCURRENT.DT_TBDD_EMAIL.Rows For Each emailrow As DataRow In clsCURRENT.DT_TBDD_EMAIL.Rows
If emailrow.Item("GUID") = CInt(EMAIL_PROFIL) Then If emailrow.Item("GUID") = CInt(EMAIL_PROFIL) Then
MAILFROM = emailrow.Item("EMAIL_FROM") MAILFROM = emailrow.Item("EMAIL_FROM")
MAILSMTP = emailrow.Item("EMAIL_SMTP") MAILSMTP = emailrow.Item("EMAIL_SMTP")
@@ -176,42 +178,42 @@ Public Class clsProfil
If PWPlain <> "" Then If PWPlain <> "" Then
MAIL_USER_PW = PWPlain MAIL_USER_PW = PWPlain
Else Else
clsLogger.AddError("PWPlain is string.empty - Could not decrypt passwort", "clsProfil.Profil_Durchlauf(wrapper.DecryptData(MAIL_USER_PW))") Logger.Warn("PWPlain is string.empty - Could not decrypt passwort181")
clsLogger.WriteLog()
Return False Return False
End If End If
Else Else
clsLogger.AddError("PWPlain is nothing - Could not decrypt passwort", "clsProfil.Profil_Durchlauf(wrapper.DecryptData(MAIL_USER_PW))") Logger.Warn("PWPlain is string.empty - Could not decrypt passwort188")
clsLogger.WriteLog()
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 = clsDateiverarbeitung.REGEX_REPLACE(WMdok, Email_Empfänger)
clsLogger.AddDetailLog("Email_Empfänger: " & Email_Empfänger) Logger.Info("Email_Empfänger: " & Email_Empfänger)
End If End If
Email_Betreff = clsDateiverarbeitung.REGEX_REPLACE(WMdok, Email_Betreff) Email_Betreff = clsDateiverarbeitung.REGEX_REPLACE(WMdok, Email_Betreff)
Email_Body = clsDateiverarbeitung.REGEX_REPLACE(WMdok, Email_Body) Email_Body = clsDateiverarbeitung.REGEX_REPLACE(WMdok, Email_Body)
Dim FILENAME = ClassWMResulthandler.clsCURRENT.WDLAUFWERK & ":" & WMdok.aPath 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) clsEmail.Email_Send_Independentsoft(Email_Betreff, Email_Body, Email_Empfänger, MAILFROM, MAILSMTP, MAIL_PORT, MAIL_USER, MAIL_USER_PW, MAIL_SSL, FILENAME)
Else Else
clsLogger.AddError("DT_TBDD_EMAIL is nothing or contains no rows", "clsProfil.Profil_Durchlauf(end concatted file via mail)") Logger.Warn("DT_TBDD_EMAIL is nothing or contains no rows")
clsLogger.WriteLog()
Return False Return False
End If End If
Case "Export HDD".ToUpper Case "Export HDD".ToUpper
clsLogger.AddDetailLog("Case Export HDD") Logger.Info("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
ClassWMResulthandler.clsCURRENT.EXPORTED_FILENAME = "" clsCURRENT.EXPORTED_FILENAME = ""
If clsDateiverarbeitung.Export_File(WMdok, DR_PR_JB.Item("STRING1")) = True Then If clsDateiverarbeitung.Export_File(WMdok, DR_PR_JB.Item("STRING1")) = True Then
ReDim Preserve ClassWMResulthandler.clsCURRENT.ARR_Exported_Files(CountExportedDoc) ReDim Preserve clsCURRENT.PROFILE_HandledFiles(CountExportedDoc)
ClassWMResulthandler.clsCURRENT.ARR_Exported_Files(CountExportedDoc) = ClassWMResulthandler.clsCURRENT.EXPORTED_FILENAME clsCURRENT.PROFILE_HandledFiles(CountExportedDoc) = clsCURRENT.EXPORTED_FILENAME
CountExportedDoc += 1 CountExportedDoc += 1
FileJobSuccessful = True FileJobSuccessful = True
Else Else
@@ -226,7 +228,7 @@ Public Class clsProfil
Dim printername = DR_PR_JB.Item("STRING1") Dim printername = DR_PR_JB.Item("STRING1")
Dim filename = clsCURRENT.WDLAUFWERK & ":" & WMdok.aPath '& "\" & WMdok.aName Dim filename = clsCURRENT.WDLAUFWERK & ":" & WMdok.aPath '& "\" & WMdok.aName
If File.Exists(pdfxchange) = False Then If File.Exists(pdfxchange) = False Then
clsLogger.Add("PDFXChange existiert nicht am Ort...", True) Logger.Warn("PDFXChange existiert nicht am Ort...")
Continue For Continue For
End If End If
Dim myProcess As New Process Dim myProcess As New Process
@@ -236,7 +238,7 @@ Public Class clsProfil
Dim _argument As String = "/printto: """ & printername & """ """ & filename & """" Dim _argument As String = "/printto: """ & printername & """ """ & filename & """"
myProcess.StartInfo.Arguments = _argument myProcess.StartInfo.Arguments = _argument
clsLogger.AddDetailLog("Arguments: " & _argument) Logger.Info("Arguments: " & _argument)
Try Try
myProcess.Start() myProcess.Start()
Dim p As Process Dim p As Process
@@ -248,25 +250,33 @@ Public Class clsProfil
Do While p.HasExited = False Do While p.HasExited = False
If sw.Elapsed.TotalSeconds = 30 Then If sw.Elapsed.TotalSeconds = 30 Then
clsLogger.AddDetailLog("Still waiting (30 sec) for ending of process-id: " & myProcess.Id.ToString) Logger.Info("Still waiting (30 sec) for ending of process-id: " & myProcess.Id.ToString)
ElseIf sw.Elapsed.TotalMinutes = 1 Then ElseIf sw.Elapsed.TotalMinutes = 1 Then
clsLogger.AddDetailLog("Still waiting (60 sec) for ending of process-id: " & myProcess.Id.ToString & " - Exit now") Logger.Info("Still waiting (60 sec) for ending of process-id: " & myProcess.Id.ToString & " - Exit now")
Exit Do Exit Do
End If End If
Loop Loop
clsLogger.AddDetailLog("...process has exited: ") Logger.Info("...process has exited: ")
FileJobSuccessful = True
sw.Stop() sw.Stop()
Catch ex As Exception Catch ex As Exception
clsLogger.AddError(ex.Message, "clsProfil.Print2Printer StartProcess") Logger.Error(ex)
End Try
clsLogger.WriteLog()
Catch ex As Exception
clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(Print2Printer)")
End Try 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
'Abschluss Bearbeitung Job
clsLogger.WriteLog()
Next Next
'################################## '##################################
'JETZT DER DURCHLAUF DER DATEI-JOBS 'JETZT DER DURCHLAUF DER DATEI-JOBS
@@ -275,8 +285,7 @@ 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
clsLogger.Add("AUSSTIEG FOR SCHLEIFE...", True) Logger.Warn("AUSSTIEG FOR SCHLEIFE...")
clsLogger.WriteLog()
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
@@ -288,24 +297,24 @@ Public Class clsProfil
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
clsLogger.AddDetailLog("Datei soll mit Index '" & idxName & "'indexiert werden...") Logger.Info("Datei soll mit Index '" & idxName & "'indexiert werden...")
Dim arrIndex() As String Dim arrIndex() As String
ReDim Preserve arrIndex(0) ReDim Preserve arrIndex(0)
arrIndex(0) = idxName arrIndex(0) = idxName
clsLogger.AddDetailLog("...nach arrIndex") Logger.Info("...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)
clsLogger.AddDetailLog("...nach aktValue zuweisen..") Logger.Info("...nach aktValue zuweisen..")
If aktvalue Is Nothing Then If aktvalue Is Nothing Then
clsLogger.AddDetailLog("Index '" & idxName & "' ist noch leer.") Logger.Info("Index '" & idxName & "' ist noch leer.")
ReDim Preserve arrValue(0) ReDim Preserve arrValue(0)
arrValue(0) = idxvalue arrValue(0) = idxvalue
Else Else
clsLogger.AddDetailLog("Index '" & idxName & "' ist bereits gefüllt.") Logger.Info("Index '" & idxName & "' ist bereits gefüllt.")
Dim myArray() Dim myArray()
ReDim myArray(0) ReDim myArray(0)
myArray(0) = idxvalue myArray(0) = idxvalue
@@ -323,64 +332,64 @@ Public Class clsProfil
If arrValue Is Nothing = False Then If arrValue Is Nothing = False Then
clsWindream_Index.RunIndexing(WMdok, arrIndex, arrValue, _profObjekttyp) clsWindream_Index.RunIndexing(WMdok, arrIndex, arrValue, _profObjekttyp)
Else Else
clsLogger.Add(">> arrValue is nothing - keine Indexierung", False, "clsProfil.Profil_Durchlauf") Logger.Warn("arrValue is nothing - keine Indexierung")
End If End If
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(SetIndex)") Logger.Error(ex)
'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
clsLogger.AddDetailLog("Exportierte Datei soll nach Indexvorgaben umbenannt werden...") Logger.Info("Exportierte Datei soll nach Indexvorgaben umbenannt werden...")
clsDateiverarbeitung.Rename_File(WMdok, DR_PR_FILE_JOB.Item("STRING1").ToString) clsDateiverarbeitung.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
clsLogger.AddDetailLog("Exportierte Datei soll nach VektorIndexvorgaben umbenannt werden...") Logger.Info("Exportierte Datei soll nach VektorIndexvorgaben umbenannt werden...")
clsDateiverarbeitung.Rename_File_Vektor(WMdok, DR_PR_FILE_JOB.Item("STRING1").ToString) clsDateiverarbeitung.Rename_File_Vektor(WMdok, DR_PR_FILE_JOB.Item("STRING1").ToString)
Case "Execute Oracle Command".ToLower Case "Execute Oracle Command".ToLower
Try Try
clsLogger.AddDetailLog("Execute Oracle Command.......") Logger.Info("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 = clsDateiverarbeitung.RUN_ORACLE_COMMAND(WMdok, oracleconnectionstring, oracleCommandRAW)
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(ExecuteOracleCommand)") Logger.Error(ex)
'clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(ExecuteOracleCommand)")
End Try End Try
Case "Execute MSSQL Command".ToLower Case "Execute MSSQL Command".ToLower
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
clsLogger.AddDetailLog("Execute MSSQL Command.......") Logger.Info("Execute MSSQL Command.......")
FileJobSuccessful = clsDateiverarbeitung.RUN_MSSQL_COMMAND(WMdok, MSSQLconnectionstring, MSSQLCommandRAW) FileJobSuccessful = clsDateiverarbeitung.RUN_MSSQL_COMMAND(WMdok, MSSQLconnectionstring, MSSQLCommandRAW)
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(ExecuteMSSQLCommand)") Logger.Error(ex)
'clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf(ExecuteMSSQLCommand)")
End Try End Try
End Select End Select
'Abschluss Bearbeitung File Job 'Abschluss Bearbeitung File Job
Next Next
clsLogger.WriteLog()
Else Else
clsLogger.Add(">> KEINE File-JOBS für Profil '" & _Profilname & "' angelegt!", False, "clsProfil.Profil_Durchlauf") Logger.Warn("KEINE File-JOBS für Profil '" & _Profilname & "' angelegt!")
clsLogger.WriteLog()
End If End If
Next Next
clsLogger.WriteLog()
'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
clsLogger.AddDetailLog("Now again working on profile-type: " & DR_PR_JB.Item("JOB_TYP") & " - ID: " & DR_PR_JB.Item("GUID")) Logger.Info("Now again working on profile-type: " & DR_PR_JB.Item("JOB_TYP") & " - ID: " & DR_PR_JB.Item("GUID"))
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
clsLogger.AddDetailLog("Case Concat Files to one pdf....") Logger.Info("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")
clsLogger.AddDetailLog("pdftk location: " & pdftk) Logger.Info("pdftk location: " & pdftk)
clsCURRENT.CONCATTED_FILE = DR_PR_JB.Item("STRING1") clsCURRENT.CONCATTED_FILE = DR_PR_JB.Item("STRING1")
clsLogger.AddDetailLog("CONCATTED_FILE location: " & ClassWMResulthandler.clsCURRENT.CONCATTED_FILE) Logger.Info("CONCATTED_FILE location: " & clsCURRENT.CONCATTED_FILE)
Dim deleteJaNein = DR_PR_JB.Item("STRING2").ToString.ToUpper Dim deleteJaNein = DR_PR_JB.Item("STRING2").ToString.ToUpper
clsLogger.AddDetailLog("deleteJaNein: " & deleteJaNein.ToString) Logger.Info("deleteJaNein: " & deleteJaNein.ToString)
If File.Exists(pdftk) Then If File.Exists(pdftk) Then
If File.Exists(ClassWMResulthandler.clsCURRENT.CONCATTED_FILE) Then If File.Exists(clsCURRENT.CONCATTED_FILE) Then
Try Try
File.Delete(ClassWMResulthandler.clsCURRENT.CONCATTED_FILE) File.Delete(clsCURRENT.CONCATTED_FILE)
Catch ex As Exception Catch ex As Exception
End Try End Try
@@ -394,7 +403,7 @@ Public Class clsProfil
Dim _argument As String Dim _argument As String
Dim i As Integer Dim i As Integer
For Each str As String In ClassWMResulthandler.clsCURRENT.ARR_Exported_Files For Each str As String In clsCURRENT.PROFILE_HandledFiles
If i = 0 Then If i = 0 Then
_argument = """" & str & """" _argument = """" & str & """"
Else Else
@@ -402,16 +411,16 @@ Public Class clsProfil
End If End If
i += 1 i += 1
Next Next
If File.Exists(ClassWMResulthandler.clsCURRENT.CONCATTED_FILE) Then If File.Exists(clsCURRENT.CONCATTED_FILE) Then
Try Try
File.Delete(ClassWMResulthandler.clsCURRENT.CONCATTED_FILE) File.Delete(clsCURRENT.CONCATTED_FILE)
Catch ex As Exception Catch ex As Exception
End Try End Try
End If End If
myProcess.StartInfo.Arguments = _argument & " cat output " & ClassWMResulthandler.clsCURRENT.CONCATTED_FILE myProcess.StartInfo.Arguments = _argument & " cat output " & clsCURRENT.CONCATTED_FILE
clsLogger.AddDetailLog("Arguments: " & _argument & " cat output " & ClassWMResulthandler.clsCURRENT.CONCATTED_FILE) Logger.Info("Arguments: " & _argument & " cat output " & clsCURRENT.CONCATTED_FILE)
myProcess.Start() myProcess.Start()
ProcID = myProcess.Id ProcID = myProcess.Id
@@ -424,50 +433,50 @@ Public Class clsProfil
Do While p.HasExited = False Do While p.HasExited = False
If sw.Elapsed.TotalSeconds = 30 Then If sw.Elapsed.TotalSeconds = 30 Then
clsLogger.AddDetailLog("Still waiting (30 sec) for ending of process-id: " & ProcID.ToString) Logger.Info("Still waiting (30 sec) for ending of process-id: " & ProcID.ToString)
ElseIf sw.Elapsed.TotalMinutes = 1 Then ElseIf sw.Elapsed.TotalMinutes = 1 Then
clsLogger.AddDetailLog("Still waiting (60 sec) for ending of process-id: " & ProcID.ToString & " - Exit now") Logger.Info("Still waiting (60 sec) for ending of process-id: " & ProcID.ToString & " - Exit now")
Exit Do Exit Do
End If End If
Loop Loop
clsLogger.AddDetailLog("...process has exited: ") Logger.Info("...process has exited: ")
sw.Stop() sw.Stop()
clsLogger.AddDetailLog("Waiting for file: " & ClassWMResulthandler.clsCURRENT.CONCATTED_FILE) Logger.Info("Waiting for file: " & clsCURRENT.CONCATTED_FILE)
Do While File.Exists(ClassWMResulthandler.clsCURRENT.CONCATTED_FILE) = False Do While File.Exists(clsCURRENT.CONCATTED_FILE) = False
Console.WriteLine("...not existing!") Console.WriteLine("...not existing!")
Loop Loop
If deleteJaNein = "JA" Then If deleteJaNein = "JA" Then
For Each str As String In ClassWMResulthandler.clsCURRENT.ARR_Exported_Files For Each str As String In clsCURRENT.PROFILE_HandledFiles
Try Try
File.Delete(str) File.Delete(str)
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Unexpected error in deleting ARR_Exported_Files files: " & ex.Message, "clsProfil.Profil_Durchlauf(Concat Files to one pdf)") Logger.Error(ex)
End Try End Try
Next Next
End If End If
clsLogger.WriteLog()
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Unexpected error: " & ex.Message, "clsProfil.Profil_Durchlauf(Concat Files to one pdf)") Logger.Error(ex) '("Unexpected error: " & ex.Message, "clsProfil.Profil_Durchlauf(Concat Files to one pdf)")
End Try End Try
Else Else
clsLogger.AddError("pdftk is not existing", "clsProfil.Profil_Durchlauf(Concat Files to one pdf)") Logger.Warn("pdftk is not existing")
End If End If
Case "Send concatted file via mail".ToUpper Case "Send concatted file via mail".ToUpper
clsLogger.AddDetailLog("CASE Send concatted file via mail.... ") Logger.Info("CASE Send concatted file via mail.... ")
If File.Exists(ClassWMResulthandler.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")
clsLogger.AddDetailLog("Email_Empfänger: " & Email_Empfänger) Logger.Info("Email_Empfänger: " & Email_Empfänger)
Dim Email_Betreff = DR_PR_JB.Item("STRING2") Dim Email_Betreff = DR_PR_JB.Item("STRING2")
clsLogger.AddDetailLog("Email_Betreff: " & Email_Betreff) Logger.Info("Email_Betreff: " & Email_Betreff)
Dim Email_Body = DR_PR_JB.Item("STRING3") Dim Email_Body = DR_PR_JB.Item("STRING3")
clsLogger.AddDetailLog("Email_Body: " & Email_Body) Logger.Info("Email_Body: " & Email_Body)
Dim EMAIL_PROFIL = DR_PR_JB.Item("STRING4") Dim EMAIL_PROFIL = DR_PR_JB.Item("STRING4")
clsLogger.AddDetailLog("EMAIL_PROFIL: " & EMAIL_PROFIL) Logger.Info("EMAIL_PROFIL: " & EMAIL_PROFIL)
If Not IsNothing(ClassWMResulthandler.clsCURRENT.DT_TBDD_EMAIL) And ClassWMResulthandler.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 = ""
@@ -475,7 +484,7 @@ Public Class clsProfil
Dim MAIL_SSL As Boolean = False Dim MAIL_SSL As Boolean = False
Dim MAIL_PORT As Integer Dim MAIL_PORT As Integer
For Each emailrow As DataRow In ClassWMResulthandler.clsCURRENT.DT_TBDD_EMAIL.Rows For Each emailrow As DataRow In clsCURRENT.DT_TBDD_EMAIL.Rows
If emailrow.Item("GUID") = CInt(EMAIL_PROFIL) Then If emailrow.Item("GUID") = CInt(EMAIL_PROFIL) Then
MAILFROM = emailrow.Item("EMAIL_FROM") MAILFROM = emailrow.Item("EMAIL_FROM")
MAILSMTP = emailrow.Item("EMAIL_SMTP") MAILSMTP = emailrow.Item("EMAIL_SMTP")
@@ -493,58 +502,52 @@ Public Class clsProfil
If PWPlain <> "" Then If PWPlain <> "" Then
MAIL_USER_PW = PWPlain MAIL_USER_PW = PWPlain
Else Else
clsLogger.AddError("PWPlain is string.empty - Could not decrypt passwort", "clsProfil.Profil_Durchlauf(wrapper.DecryptData(MAIL_USER_PW))") Logger.Warn("PWPlain is string.empty - Could not decrypt passwort")
clsLogger.WriteLog()
Return False Return False
End If End If
Else Else
clsLogger.AddError("PWPlain is nothing - Could not decrypt passwort", "clsProfil.Profil_Durchlauf(wrapper.DecryptData(MAIL_USER_PW))") Logger.Warn("PWPlain is string.empty - Could not decrypt passwort1")
clsLogger.WriteLog()
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, ClassWMResulthandler.clsCURRENT.CONCATTED_FILE) 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)
Else Else
clsLogger.AddError("DT_TBDD_EMAIL is nothing or contains no rows", "clsProfil.Profil_Durchlauf(end concatted file via mail)") Logger.Warn("DT_TBDD_EMAIL is nothing or contains no rows")
clsLogger.WriteLog()
Return False Return False
End If End If
Else Else
clsLogger.AddError("File not existing: " & ClassWMResulthandler.clsCURRENT.CONCATTED_FILE, "clsProfil.Profil_Durchlauf(Send concatted file via mail)") Logger.Warn("File not existing: " & clsCURRENT.CONCATTED_FILE)
End If End If
End Select End Select
Next Next
clsLogger.WriteLog()
Else Else
clsLogger.Add(">> Initialisierung Profil nicht erfolgreich", True) Logger.Warn("Initialisierung Profil nicht erfolgreich")
clsLogger.WriteLog()
End If End If
Else Else
clsLogger.Add(">> KEINE JOBS für Profil '" & _Profilname & "' angelegt!", False, "clsProfil.Profil_Durchlauf") Logger.Warn("KEINE JOBS für Profil '" & _Profilname & "' angelegt!")
clsLogger.WriteLog()
End If End If
Else Else
' keine Dateien zum Importieren ' keine Dateien zum Importieren
clsLogger.Add(">> Keine windream-Dokumente für Profil '" & _Profilname & "' vorhanden/gefunden.", False) Logger.Warn("Keine windream-Dokumente für Profil '" & _Profilname & "' vorhanden/gefunden.")
clsLogger.Add("", False)
clsLogger.WriteLog()
End If End If
End If End If
End If End If
Else Else
clsLogger.AddDetailLog("Verarbeitung für heute NICHT konfiguriert") Logger.Info("Verarbeitung für heute NICHT konfiguriert")
clsLogger.WriteLog()
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) clsDatatabase.Execute_non_Query("UPDATE TBWMRH_PROFIL SET Running = 0, LETZTER_DURCHLAUF = GETDATE() WHERE GUID = " & _profGUID)
clsLogger.AddDetailLog("'UPDATE TBWMRH_PROFIL SET Running = 0' ausgeführt") Logger.Info("'UPDATE TBWMRH_PROFIL SET Running = 0' ausgeführt")
clsLogger.WriteLog()
Return True Return True
'Catch ex As Exception 'Catch ex As Exception
' clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf") ' clsLogger.AddError("Unvorhergesehener Fehler: " & ex.Message, "clsProfil.Profil_Durchlauf")
@@ -586,7 +589,7 @@ Public Class clsProfil
End If End If
Next Next
Else Else
clsLogger.AddDetailLog("Duplikatprüfung soll durchgeführt werden.") Logger.Info("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
@@ -594,7 +597,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
clsLogger.AddDetailLog("Value (" & Anzahl & ") " & WDValue.ToString) Logger.Info("Value (" & Anzahl & ") " & WDValue.ToString)
Anzahl += 1 Anzahl += 1
End If End If
Next Next
@@ -602,21 +605,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
clsLogger.AddDetailLog("New Value (" & Anzahl & ") " & NewValue.ToString) Logger.Info("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
clsLogger.AddDetailLog("Value '" & NewValue.ToString & "' bereits in Vektorfeld enthalten") Logger.Info("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
clsLogger.AddDetailLog("Vektorfeld ist noch leer....") Logger.Info("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
@@ -629,7 +632,7 @@ Public Class clsProfil
ValueArray(Anzahl) = NewValue.ToString ValueArray(Anzahl) = NewValue.ToString
Anzahl += 1 Anzahl += 1
Else Else
clsLogger.AddDetailLog("Value '" & NewValue.ToString & "' bereits in Array enthalten") Logger.Info("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
@@ -651,10 +654,10 @@ Public Class clsProfil
Next Next
End If End If
clsLogger.AddDetailLog("Return ValueArray: length " & ValueArray.Length) Logger.Info("Return ValueArray: length " & ValueArray.Length)
Return ValueArray Return ValueArray
Catch ex As Exception Catch ex As Exception
clsLogger.AddError(ex.Message, "Return_VektorArray") Logger.Error(ex)
Return Nothing Return Nothing
End Try End Try
End Function End Function

85
app/ClassWMResulthandler/clsWindream_Allgemein.vb
View File

@@ -10,7 +10,7 @@ Imports WMOSRCHLib
Imports System.IO Imports System.IO
Public Class clsWindream_allgemein Public Class clsWindream_allgemein
Private Shared Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger
#Region "+++++ Konstanten +++++" #Region "+++++ Konstanten +++++"
Const DEBUG = AUS Const DEBUG = AUS
Const AUS = 0 Const AUS = 0
@@ -26,7 +26,6 @@ Public Class clsWindream_allgemein
Private Shared oController As New WMOSearchController Private Shared oController As New WMOSearchController
#End Region #End Region
#Region "+++++ Allgemeine Methoden und Funktionen +++++" #Region "+++++ Allgemeine Methoden und Funktionen +++++"
''' <summary> ''' <summary>
@@ -37,7 +36,7 @@ Public Class clsWindream_allgemein
' 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
clsLogger.Add("Es trat ein Fehler bei der Initialisierung der Klasse windream auf. Bitte prüfen Sie ob der windream-Server aktiv ist und alle Dienste gestartet sind", True, "clsWindream_allgemein.Init") Logger.Warn("Es trat ein Fehler bei der Initialisierung der Klasse windream auf. Bitte prüfen Sie ob der windream-Server aktiv ist und alle Dienste gestartet sind")
' das Programm "abschießen" ' das Programm "abschießen"
Process.GetCurrentProcess.Kill() Process.GetCurrentProcess.Kill()
End If End If
@@ -72,7 +71,7 @@ Public Class clsWindream_allgemein
' setzt die minimal erwartete windream-Version ' setzt die minimal erwartete windream-Version
oConnect.MinReqVersion = "3" oConnect.MinReqVersion = "3"
' clsLogger.AddDetailLog("Personifizierung'") ' Logger.Info("Personifizierung'")
' -- Impersonifizierung nur möglich mit registry-eintrag -- ' -- Impersonifizierung nur möglich mit registry-eintrag --
'oConnect.UserName = "\digitaldata\SchreiberM" 'oConnect.UserName = "\digitaldata\SchreiberM"
@@ -80,11 +79,11 @@ 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)
clsLogger.AddDetailLog("windream-Server: '" & GetCurrentServer() & "'") Logger.Info("windream-Server: '" & GetCurrentServer() & "'")
clsLogger.AddDetailLog("windream-UserName: '" & oConnect.UserName & "'") Logger.Info("windream-UserName: '" & oConnect.UserName & "'")
If oSession.aLoggedin = False Then If oSession.aLoggedin = False Then
clsLogger.Add("Es konnte keine Verbindung mit dem windream-Server hergestellt werden", True, "clswindream.Init") Logger.Warn("Es konnte keine Verbindung mit dem windream-Server hergestellt werden")
Return False Return False
End If End If
@@ -109,20 +108,22 @@ Public Class clsWindream_allgemein
' Ordnertypen ausgelesen werden ' Ordnertypen ausgelesen werden
oDokumentTypen = oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument) oDokumentTypen = oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Problem beim Auslesen der Objekttypen", "clswindream.Init") Logger.Warn("Problem beim Auslesen der Objekttypen: " & ex.Message)
Return False Return False
End Try End Try
End If End If
clsLogger.AddDetailLog("Alles OK - Erfolgreich angemeldet und Session aufgebaut") Logger.Info("Alles OK - Erfolgreich angemeldet und Session aufgebaut")
Return True Return True
Catch ex As Exception Catch ex As Exception
If Err.Number = -2147220985 Then Logger.Error(ex)
clsLogger.AddError("Die installierte windream-Version ist nicht ausreichend für den Betrieb", "clswindream.Init") 'If Err.Number = -2147220985 Then
Else ' clsLogger.AddError("Die installierte windream-Version ist nicht ausreichend für den Betrieb", "clswindream.Init")
clsLogger.AddError("Fehler beim Login an windream: " & ex.Message, "clswindream.Init") 'Else
End If ' clsLogger.AddError("Fehler beim Login an windream: " & ex.Message, "clswindream.Init")
'End If
Return False Return False
End Try End Try
@@ -145,7 +146,8 @@ Public Class clsWindream_allgemein
Return oDokumentTypen Return oDokumentTypen
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Fehler beim Auslesen der Objekttypen: " & ex.Message, "clswindream.GetObjecttypesAsObjects") Logger.Warn("Fehler beim Auslesen der Objekttypen: " & ex.Message)
'clsLogger.AddError("Fehler beim Auslesen der Objekttypen: " & ex.Message, "clswindream.GetObjecttypesAsObjects")
Return Nothing Return Nothing
End Try End Try
End Function End Function
@@ -167,7 +169,8 @@ Public Class clsWindream_allgemein
Return objektTypenStr Return objektTypenStr
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Fehler beim Auslesen der Objekttypen als String: " & ex.Message, "clswindream.GetObjecttypesAsStrings") Logger.Error(ex)
'
Return Nothing Return Nothing
End Try End Try
@@ -216,7 +219,8 @@ Public Class clsWindream_allgemein
Return aIndexNames Return aIndexNames
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Fehler beim Auslesen der windream-Indexe: " & ex.Message, "clswindream.GetIndicesByObjecttype") Logger.Error(ex)
Return Nothing Return Nothing
End Try End Try
End Function End Function
@@ -241,7 +245,8 @@ Public Class clsWindream_allgemein
Return Nothing Return Nothing
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Ein Objekttyp kopnnte nicht erstellt werden. Fehler: " & ex.Message, "clswindream.GetObjecttypeByName") Logger.Error(ex)
Return Nothing Return Nothing
End Try End Try
End Function End Function
@@ -264,7 +269,8 @@ Public Class clsWindream_allgemein
Next Next
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Beim Prüfen ob ein Index für einen Objekttypen existiert, ist ein Fehler aufgetreten. Fehler: " & ex.Message, "clswindream.ExistIndexInObjekttyp") Logger.Error(ex)
Return False Return False
End Try End Try
End Function End Function
@@ -282,7 +288,7 @@ Public Class clsWindream_allgemein
Try Try
Return oSession.aLoggedin Return oSession.aLoggedin
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Es konnte nicht erfolgreich geprüft werden, ob das Programm am windream-Server angemeldet ist. Fehler: " & ex.Message, "clswindream.IsLoggedIn") Logger.Error(ex)
End Try End Try
Return False Return False
@@ -295,10 +301,10 @@ Public Class clsWindream_allgemein
''' <remarks></remarks> ''' <remarks></remarks>
Public Shared Function GetCurrentServer() As String Public Shared Function GetCurrentServer() As String
Try Try
clsLogger.AddDetailLog(oBrowser.GetCurrentServer.ToString) Logger.Info(oBrowser.GetCurrentServer.ToString)
Return oBrowser.GetCurrentServer 'ClassWindream.oBrowser.GetCurrentServer Return oBrowser.GetCurrentServer 'ClassWindream.oBrowser.GetCurrentServer
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Der aktuell gewählte windream-Server konnte nicht ausgelesen werden. Fehler: " & ex.Message, "clswindream.GetCurrentServer") Logger.Error(ex)
End Try End Try
Return "" Return ""
@@ -378,12 +384,12 @@ Public Class clsWindream_allgemein
Next Next
Return strListe Return strListe
Else Else
clsLogger.Add("Auswahlliste: " & indexname & " nicht gefunden.", True, "clswindream.GetValuesfromAuswahlliste") Logger.Warn("Auswahlliste: " & indexname & " nicht gefunden.")
Return Nothing Return Nothing
End If End If
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("Fehler: " & ex.Message, "clswindream.GetValuesfromAuswahlliste") Logger.Error(ex)
Return Nothing Return Nothing
End Try End Try
End Function End Function
@@ -394,13 +400,13 @@ Public Class clsWindream_allgemein
If WDObject Is Nothing Then If WDObject Is Nothing Then
Return False Return False
Else Else
clsLogger.AddDetailLog("WDObject exists") Logger.Info("WDObject exists")
Return True Return True
End If End If
Catch ex As Exception Catch ex As Exception
' bei einem Fehler einen Eintrag in der Logdatei machen ' bei einem Fehler einen Eintrag in der Logdatei machen
clsLogger.AddError("Es konnte kein windream-Object erzeugt werden - " & ex.Message, "clswindream.WDObject_exists") Logger.Error(ex)
Return False Return False
End Try End Try
End Function End Function
@@ -409,12 +415,12 @@ Public Class clsWindream_allgemein
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)
clsLogger.Add("WMSearch: " & wdfLocation.ToLower, False) Logger.Warn("WMSearch: " & wdfLocation.ToLower)
If System.IO.File.Exists(wdfLocation.ToLower) Then If System.IO.File.Exists(wdfLocation.ToLower) Then
clsLogger.AddDetailLog("Search exists") Logger.Info("Search exists")
End If End If
oController.CheckSearchProfile(wdfLocation.ToLower) 'wdfLocation.ToLower) oController.CheckSearchProfile(wdfLocation.ToLower) 'wdfLocation.ToLower)
clsLogger.AddDetailLog("oController erzeugt") Logger.Info("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
@@ -424,8 +430,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")
clsLogger.AddDetailLog("WD Objekte in GetSearchDocuments erzeugt") Logger.Info("WD Objekte in GetSearchDocuments erzeugt")
clsLogger.AddDetailLog(suchTyp.ToString.ToUpper) Logger.Info(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"
@@ -438,15 +444,15 @@ Public Class clsWindream_allgemein
Case "WMOSRCH.WMINDEXSEARCH" Case "WMOSRCH.WMINDEXSEARCH"
srchIndex.WMSession = CreateObject("Windream.WMSession", GetCurrentServer) srchIndex.WMSession = CreateObject("Windream.WMSession", GetCurrentServer)
clsLogger.AddDetailLog("Session created...") Logger.Info("Session created...")
oConnect.LoginSession(srchIndex.WMSession) oConnect.LoginSession(srchIndex.WMSession)
clsLogger.AddDetailLog("LoginSession...") Logger.Info("LoginSession...")
srchIndex.SearchProfilePath = SearchPath srchIndex.SearchProfilePath = SearchPath
clsLogger.AddDetailLog("SearchPath...") Logger.Info("SearchPath...")
srchIndex.LoadSearchProfile(SearchName) srchIndex.LoadSearchProfile(SearchName)
clsLogger.AddDetailLog("LoadSearchProfile...") Logger.Info("LoadSearchProfile...")
oSearch = srchIndex.GetSearch() oSearch = srchIndex.GetSearch()
clsLogger.AddDetailLog("GetSearch...") Logger.Info("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)
@@ -456,18 +462,17 @@ Public Class clsWindream_allgemein
oSearch = srchObjectType.GetSearch() oSearch = srchObjectType.GetSearch()
Case Else Case Else
clsLogger.Add("KEIN GÜLTIGER WINDREAM-SUCHTYP", True, "clswindream.GetSearchDocuments") Logger.Warn("KEIN GÜLTIGER WINDREAM-SUCHTYP")
Return Nothing Return Nothing
End Select End Select
Dim WMObjects As Object Dim WMObjects As Object
WMObjects = oSearch.Execute WMObjects = oSearch.Execute
clsLogger.AddDetailLog("WD Objekte werden zurückgegeben") Logger.Info("WD Objekte werden zurückgegeben")
Return oSearch.execute Return oSearch.execute
Catch ex As Exception Catch ex As Exception
' bei einem Fehler einen Eintrag in der Logdatei machen Logger.Error(ex)
clsLogger.AddError(ex.Message, "clswindream.GetSearchDocuments")
Return Nothing Return Nothing
End Try End Try

136
app/ClassWMResulthandler/clsWindream_Index.vb
View File

@@ -2,7 +2,7 @@
Imports WMOSRCHLib Imports WMOSRCHLib
Public Class clsWindream_Index Public Class clsWindream_Index
Inherits clsWindream_allgemein Inherits clsWindream_allgemein
Private Shared Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger
#Region "+++++ Konstanten +++++" #Region "+++++ Konstanten +++++"
Protected Const WMObjectEditModeObject = &H1F Protected Const WMObjectEditModeObject = &H1F
Protected Const WMObjectStreamOpenModeReadWrite = 2 Protected Const WMObjectStreamOpenModeReadWrite = 2
@@ -119,39 +119,39 @@ Public Class clsWindream_Index
oDocument.lock() oDocument.lock()
If aValues.Length = 1 And aValues(0) = "" Then If aValues.Length = 1 And aValues(0) = "" Then
clsLogger.Add(" >> RunIndexing_Vektor: Indexwert ist leer/Nothing - Keine Nachindexierung", False) Logger.Warn("RunIndexing_Vektor: Indexwert ist leer/Nothing - Keine Nachindexierung")
Else Else
'Jetzt jeden Indexwert durchlaufen 'Jetzt jeden Indexwert durchlaufen
Dim indexname As String Dim indexname As String
indexname = Indizes(0) indexname = Indizes(0)
clsLogger.AddDetailLog("RunIndexing_Vektor: Indexname: " & indexname) Logger.Info("RunIndexing_Vektor: Indexname: " & indexname)
'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST 'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST
clsLogger.AddDetailLog("RunIndexing_Vektor: VEKTORFELD-Indexierung: Vorbereiten des Arrays") Logger.Info("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
clsLogger.AddDetailLog("Typ des windream-Indexes: 4097 Vektor alphanumerisch") Logger.Info("Typ des windream-Indexes: 4097 Vektor alphanumerisch")
Case 4098 Case 4098
clsLogger.AddDetailLog("Typ des windream-Indexes: 4098 Vektor Numerisch") Logger.Info("Typ des windream-Indexes: 4098 Vektor Numerisch")
Case 4099 Case 4099
clsLogger.AddDetailLog("Typ des windream-Indexes: 4099 Vektor Kommazahl") Logger.Info("Typ des windream-Indexes: 4099 Vektor Kommazahl")
Case 4101 Case 4101
clsLogger.AddDetailLog("Typ des windream-Indexes: 4101 Vektor Date") Logger.Info("Typ des windream-Indexes: 4101 Vektor Date")
Case 4103 Case 4103
clsLogger.AddDetailLog("Typ des windream-Indexes: 4103 Vektor DateTime") Logger.Info("Typ des windream-Indexes: 4103 Vektor DateTime")
Case 4107 Case 4107
clsLogger.AddDetailLog("Typ des windream-Indexes: 4107 Vektor Integer(64bit)") Logger.Info("Typ des windream-Indexes: 4107 Vektor Integer(64bit)")
Case 36865 Case 36865
clsLogger.AddDetailLog("Typ des windream-Indexes: 36865 Vektor alphanumerisch") Logger.Info("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
clsLogger.AddDetailLog("RunIndexing_Vektor: Vektorfeld wird mit EINEM Wert gefüllt ") Logger.Info("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 +172,9 @@ Public Class clsWindream_Index
Case 36865 Case 36865
myArray(0) = CStr(aValues(0)) myArray(0) = CStr(aValues(0))
End Select End Select
clsLogger.AddDetailLog("RunIndexing_Vektor: Konvertierter Wert: " & myArray(0).ToString) Logger.Info("RunIndexing_Vektor: Konvertierter Wert: " & myArray(0).ToString)
Else Else
clsLogger.AddDetailLog("RunIndexing_Vektor: Vektorfeld wird mit MEHREREN Werten gefüllt ") Logger.Info("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 +193,7 @@ Public Class clsWindream_Index
Try Try
convertValue = CInt(wert) convertValue = CInt(wert)
Catch ex As Exception Catch ex As Exception
clsLogger.AddDetailLog("Wert muss in Int64 konvertiert werden") Logger.Info("Wert muss in Int64 konvertiert werden")
convertValue = Convert.ToInt64(wert) 'ToInt64 convertValue = Convert.ToInt64(wert) 'ToInt64
End Try End Try
Else Else
@@ -218,20 +218,21 @@ 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)
clsLogger.AddDetailLog("RunIndexing_Vektor: 'SetVariableValue' für VEKTOR erfolgreich") Logger.Info("RunIndexing_Vektor: 'SetVariableValue' für VEKTOR erfolgreich")
oDocument.Save() oDocument.Save()
oDocument.unlock() oDocument.unlock()
clsLogger.AddDetailLog("RunIndexing_Vektor: Indexierung erfolgreich beendet (Save und Unlock durchgeführt)") Logger.Info("RunIndexing_Vektor: Indexierung erfolgreich beendet (Save und Unlock durchgeführt)")
Return True Return True
End If End If
Else Else
clsLogger.Add(" >> RunIndexing_Vektor: Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!", True) Logger.Warn("RunIndexing_Vektor: Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!")
Return False Return False
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
clsLogger.AddError("## Fehler in RunIndexing_Vektor - Fehler: " & ex.Message, "RunIndexingVektor") Logger.Error(ex)
'clsLogger.AddError("## Fehler in RunIndexing_Vektor - Fehler: " & ex.Message, "RunIndexingVektor")
oDocument.Save() oDocument.Save()
oDocument.unlock() oDocument.unlock()
Return False Return False
@@ -247,16 +248,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
clsLogger.AddDetailLog("Indexwert ist leer/Nothing - Keine Indexierung") Logger.Info("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
clsLogger.AddDetailLog("Objekttyp war Standard und wurde in '" & Objekttyp & "' geändert.") Logger.Info("Objekttyp war Standard und wurde in '" & Objekttyp & "' geändert.")
Else Else
clsLogger.AddDetailLog("Objekttyp war bereits gesetzt") Logger.Info("Objekttyp war bereits gesetzt")
End If End If
Try Try
@@ -283,7 +284,7 @@ Public Class clsWindream_Index
'If indexname = "Tournr" Then 'If indexname = "Tournr" Then
' MsgBox("Index: " & indexname & vbNewLine & "wert: " & aValues(i), MsgBoxStyle.Information, "Index: " & aName.ToString) ' MsgBox("Index: " & indexname & vbNewLine & "wert: " & aValues(i), MsgBoxStyle.Information, "Index: " & aName.ToString)
'End If 'End If
clsLogger.AddDetailLog("Indexierung von Index '" & indexname & "'") Logger.Info("Indexierung von Index '" & indexname & "'")
'MsgBox(oDocument.aName & vbNewLine & aValues(i) & vbNewLine & vType, MsgBoxStyle.Exclamation, "Zeile 87") 'MsgBox(oDocument.aName & vbNewLine & aValues(i) & vbNewLine & vType, MsgBoxStyle.Exclamation, "Zeile 87")
Dim value = aValues(i) Dim value = aValues(i)
Dim convertValue Dim convertValue
@@ -293,46 +294,46 @@ Public Class clsWindream_Index
Select Case (vType) Select Case (vType)
'Case WMObjectVariableValueTypeUndefined 'Case WMObjectVariableValueTypeUndefined
Case WMObjectVariableValueTypeString Case WMObjectVariableValueTypeString
clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeString") Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeString")
convertValue = CStr(value) convertValue = CStr(value)
Case WMObjectVariableValueTypeInteger Case WMObjectVariableValueTypeInteger
clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeInteger") Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeInteger")
value = value.ToString.Replace(" ", "") value = value.ToString.Replace(" ", "")
If IsNumeric(value) = False Then If IsNumeric(value) = False Then
clsLogger.AddDetailLog("Achtung: Value '" & value & "' kann nicht in Zahl konvertiert werden!") Logger.Info("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
clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeFloat") Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeFloat")
value = value.ToString.Replace(" ", "") value = value.ToString.Replace(" ", "")
convertValue = CDbl(value) convertValue = CDbl(value)
Case WMObjectVariableValueTypeFixedPoint Case WMObjectVariableValueTypeFixedPoint
clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeFixedPoint") Logger.Info("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
clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeBoolean") Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeBoolean")
convertValue = CBool(value) convertValue = CBool(value)
_bool = True _bool = True
Case WMObjectVariableValueTypeDate Case WMObjectVariableValueTypeDate
clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeDate") Logger.Info("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
clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp") Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeTimeStamp")
convertValue = CDbl(value) convertValue = CDbl(value)
Case WMObjectVariableValueTypeCurrency Case WMObjectVariableValueTypeCurrency
clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeCurrency") Logger.Info("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
clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeTime") Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeTime")
'If ((value)) Then 'If ((value)) Then
' convertValue = CDate(value) ' convertValue = CDate(value)
'Else 'Else
@@ -341,50 +342,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
clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeFloat") Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeFloat")
convertValue = CStr(value) convertValue = CStr(value)
Case WMObjectVariableValueTypeVariant Case WMObjectVariableValueTypeVariant
clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeVariant") Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeVariant")
convertValue = CStr(value) convertValue = CStr(value)
Case WMObjectVariableValueTypeFulltext Case WMObjectVariableValueTypeFulltext
clsLogger.AddDetailLog("Typ des windream-Indexes: WMObjectVariableValueTypeFulltext") Logger.Info("Typ des windream-Indexes: WMObjectVariableValueTypeFulltext")
convertValue = CStr(value) convertValue = CStr(value)
Case 4097 Case 4097
clsLogger.AddDetailLog("Typ des windream-Indexes: 4097 Vektor alphanumerisch") Logger.Info("Typ des windream-Indexes: 4097 Vektor alphanumerisch")
'Vektor alphanumerisch 'Vektor alphanumerisch
vektor = True vektor = True
Case 4098 Case 4098
clsLogger.AddDetailLog("Typ des windream-Indexes: 4098 Vektor Numerisch") Logger.Info("Typ des windream-Indexes: 4098 Vektor Numerisch")
'Vektor Numerisch 'Vektor Numerisch
vektor = True vektor = True
Case 4099 Case 4099
clsLogger.AddDetailLog("Typ des windream-Indexes: 4099 Vektor Kommazahl") Logger.Info("Typ des windream-Indexes: 4099 Vektor Kommazahl")
'Vektor Kommazahl 'Vektor Kommazahl
vektor = True vektor = True
Case 4101 Case 4101
clsLogger.AddDetailLog("Typ des windream-Indexes: 4101 Vektor Date") Logger.Info("Typ des windream-Indexes: 4101 Vektor Date")
'Vektor Kommazahl 'Vektor Kommazahl
vektor = True vektor = True
Case 4103 Case 4103
clsLogger.AddDetailLog("Typ des windream-Indexes: 4103 Vektor DateTime") Logger.Info("Typ des windream-Indexes: 4103 Vektor DateTime")
'Vektor DateTime 'Vektor DateTime
vektor = True vektor = True
Case 4107 Case 4107
clsLogger.AddDetailLog("Typ des windream-Indexes: 4107 Integer 64bit") Logger.Info("Typ des windream-Indexes: 4107 Integer 64bit")
vektor = True vektor = True
Case 36865 Case 36865
clsLogger.AddDetailLog("Typ des windream-Indexes: 36865 Vektor alphanumerisch") Logger.Info("Typ des windream-Indexes: 36865 Vektor alphanumerisch")
'Vektor Kommazahl 'Vektor Kommazahl
vektor = True vektor = True
Case Else Case Else
clsLogger.AddDetailLog("Typ des windream-Indexes konnte nicht bestimmt werden!") Logger.Info("Typ des windream-Indexes konnte nicht bestimmt werden!")
clsLogger.AddDetailLog("Versuch des Auslesens (vType): " & vType) Logger.Info("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
clsLogger.AddDetailLog("Konvertierter Wert: '" & convertValue.ToString & "'") Logger.Info("Konvertierter Wert: '" & convertValue.ToString & "'")
End If End If
End If End If
'############################################################################################ '############################################################################################
@@ -392,7 +393,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
clsLogger.AddDetailLog("Versuch dem Dok einen Index zuzuweisen: oDocument.SetVariableValue(" & aName & ", " & convertValue & ")") Logger.Info("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))
@@ -406,15 +407,13 @@ Public Class clsWindream_Index
Else Else
oDocument.SetVariableValue(aName, convertValue) oDocument.SetVariableValue(aName, convertValue)
End If End If
Logger.Info("Index '" & aName & "' wurde geschrieben")
clsLogger.Add(" >> Index '" & aName & "' wurde geschrieben", False)
clsLogger.Add("", False)
Else Else
clsLogger.Add(" >> Kein Indexwert vorhanden", False) Logger.Warn("Kein Indexwert vorhanden")
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
clsLogger.AddDetailLog("VEKTORFELD: Vorbereiten des Arrays") Logger.Info("VEKTORFELD: Vorbereiten des Arrays")
Dim myArray() Dim myArray()
'Dim DS As DataSet 'Dim DS As DataSet
@@ -440,7 +439,7 @@ Public Class clsWindream_Index
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
clsLogger.AddDetailLog("Vektorfeld wird mit EINEM Wert gefüllt ") Logger.Info("Vektorfeld wird mit EINEM Wert gefüllt ")
ReDim myArray(0) ReDim myArray(0)
Select Case vType Select Case vType
Case 36865 Case 36865
@@ -470,9 +469,9 @@ Public Class clsWindream_Index
'Umwandeln in String 'Umwandeln in String
myArray(0) = CStr(value) myArray(0) = CStr(value)
End Select End Select
clsLogger.AddDetailLog("Konvertierter Wert: " & myArray(0).ToString) Logger.Info("Konvertierter Wert: " & myArray(0).ToString)
Else Else
clsLogger.AddDetailLog("Vektorfeld wird mit MEHREREN Werten gefüllt ") Logger.Info("Vektorfeld wird mit MEHREREN Werten gefüllt ")
Select Case vType Select Case vType
Case 36865 Case 36865
'Vektortyp ALPHANUMERISCH 'Vektortyp ALPHANUMERISCH
@@ -482,12 +481,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)
clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString) Logger.Info("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)
clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString) Logger.Info("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
i1 = i1 + 1 i1 = i1 + 1
Next Next
Case 4097 Case 4097
@@ -498,7 +497,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)
clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString) Logger.Info("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
i1 = i1 + 1 i1 = i1 + 1
Next Next
Case 4107 Case 4107
@@ -518,7 +517,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)
clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString) Logger.Info("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
i1 = i1 + 1 i1 = i1 + 1
Next Next
Case 4099 Case 4099
@@ -531,7 +530,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(".", ","))
clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString) Logger.Info("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
i1 = i1 + 1 i1 = i1 + 1
Next Next
Case 4101 Case 4101
@@ -543,7 +542,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(".", ","))
clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString) Logger.Info("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
i1 = i1 + 1 i1 = i1 + 1
Next Next
@@ -555,17 +554,17 @@ 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)
clsLogger.AddDetailLog("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString) Logger.Info("Konvertierter Wert: (" & i1 & ")" & myArray(i1).ToString)
i1 = i1 + 1 i1 = i1 + 1
Next Next
End Select End Select
End If End If
'Jetzt die Nachindexierung für Vektor-Felder 'Jetzt die Nachindexierung für Vektor-Felder
oDocument.SetVariableValue(aName, myArray) oDocument.SetVariableValue(aName, myArray)
clsLogger.AddDetailLog("'SetVariableValue' für VEKTOR erfolgreich") Logger.Info("'SetVariableValue' für VEKTOR erfolgreich")
End If End If
Else Else
clsLogger.AddDetailLog("Array der Indexwerte ist leer/Nothing - Keine Nachindexierung") Logger.Info("Array der Indexwerte ist leer/Nothing - Keine Nachindexierung")
End If End If
i += 1 i += 1
@@ -577,19 +576,20 @@ Public Class clsWindream_Index
oDocument.Save() oDocument.Save()
oDocument.unlock() oDocument.unlock()
clsLogger.AddDetailLog("Indexierung erfolgreich beendet (Save und Unlock durchgeführt)") Logger.Info("Indexierung erfolgreich beendet (Save und Unlock durchgeführt)")
clsLogger.AddDetailLog("") Logger.Info("")
Return False Return False
Else Else
clsLogger.Add(" >> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!", False) 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
clsLogger.AddError(ex.Message, "ClassSearchResult.RunIndexing") Logger.Error(ex)
'clsLogger.AddError(ex.Message, "ClassSearchResult.RunIndexing")
oDocument.Save() oDocument.Save()
oDocument.unlock() oDocument.unlock()
Return True Return True

1
app/ClassWMResulthandler/packages.config
View File

@@ -1,4 +1,5 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<packages> <packages>
<package id="Newtonsoft.Json" version="11.0.2" targetFramework="net461" /> <package id="Newtonsoft.Json" version="11.0.2" targetFramework="net461" />
<package id="NLog" version="4.5.8" targetFramework="net461" />
</packages> </packages>

10
app/DDWDResultHandler/App.config
View File

@@ -8,7 +8,7 @@
<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" />
</configSections> </configSections>
<startup> <startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.5.1" /> <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.6.1" />
</startup> </startup>
<applicationSettings> <applicationSettings>
<DDWDResultHandler.My.MySettings> <DDWDResultHandler.My.MySettings>
@@ -43,4 +43,12 @@
<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" />
</providers> </providers>
</entityFramework> </entityFramework>
<runtime>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<dependentAssembly>
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-10.0.0.0" newVersion="10.0.0.0" />
</dependentAssembly>
</assemblyBinding>
</runtime>
</configuration> </configuration>

193
app/DDWDResultHandler/ClassWindream_allgemein.vb
View File

@@ -1,193 +0,0 @@
Imports WINDREAMLib
Imports WINDREAMLib.WMCOMEvent
Imports WINDREAMLib.WMEntity
Imports WINDREAMLib.WMObjectEditMode
Imports WINDREAMLib.WMSearchOperator
Imports WINDREAMLib.WMSearchRelation
Imports WMOBRWSLib
Public Class ClassWindream_allgemein
#Region "+++++ Konstanten +++++"
Const DEBUG = AUS
Const AUS = 0
Const WINDREAM = 1
Const VARIABLEN = 2
#End Region
#Region "+++++ Variablen +++++"
Public oConnect ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
Public oSession 'As WINDREAMLib.WMSession ' der Typ darf nicht festgelegt werden (warum auch immer... geht sonst nicht)
Public oBrowser As New WMOBRWSLib.ServerBrowser
Public oDokumentTypen As WINDREAMLib.WMObjects
#End Region
#Region "+++++ Allgemeine Methoden und Funktionen +++++"
''' <summary>
''' Konstruktor für die windream-Klasse
''' </summary>
''' <remarks></remarks>
Sub New()
' wenn ein Fehler bei der Initialisierung auftrat
If Not Me.Init() Then
' Nachricht ausgeben
clsLogger.Add("Es trat ein Fehler bei der Initialisierung der Klasse windream auf. Bitte prüfen Sie ob der windream-Server aktiv ist und alle Dienste gestartet sind.!", True)
' das Programm "abschießen"
Process.GetCurrentProcess.Kill()
End If
End Sub
''' <summary>
''' Initialisiert die statische Klasse (Login, Session starten, usw.)
''' </summary>
''' <returns>Liefert True wenn das Anmelden erfolgreich war, sonst False</returns>
''' <remarks></remarks>
Public Function Init() As Boolean
Try
Try
' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen
Me.oSession = CreateObject("Windream.WMSession", Me.GetCurrentServer)
'If My.Settings.vDetailLog Then ClassLogger.Add(" windream-Server: '" & Me.GetCurrentServer & "'", False)
' Connection-Objekt instanziieren
Me.oConnect = CreateObject("Windream.WMConnect")
'MsgBox("windrem init 'ed")
Catch ex As Exception
Return False
End Try
' wenn windream nicht angemeldet ist
If Not Me.IsLoggedIn Then
' Art der Anmeldung an windream festlegen
' 0x0L (also 0) = Standard windream Benutzer
' WM_MODULE_ID_DOCTYPEEDITOR_LIC = ermöglicht Zugriff auf die windream Management Funktionen (Z.B. zur Verwaltung der windream Dokumententypen, Auswahllisten, etc.)
' WM_MODULE_ID_INDEXSERVICE = ermöglicht der Session die Indexierungs-Events vom windream DMS-Service zu empfangen
Me.oConnect.ModuleID = 0
' setzt die minimal erwartete windream-Version
Me.oConnect.MinReqVersion = "3"
' -- Impersonifizierung nur möglich mit registry-eintrag --
' oConnect.UserName "\schulung\windream"
' oConnect.Password "windream"
' Verbindung mit Session-Objekt (und dem ausgewählten Server) aufbauen
Me.oConnect.LoginSession(Me.oSession)
If Me.oSession.aLoggedin = False Then
clsLogger.Add("Es konnte keine Session aufgebaut werden!", True)
Return False
End If
'If My.Settings.vDetailLog Then
' ClassLogger.Add(" windream-Version: '" & oSession.GetSystemInfo("WindreamVersion") & "'", False)
'End If
' AUSGABE VON SYSTEMINFORMATIONEN
' Gibt die Versionsart (Lizenztyp) also Small-Business-Edition (SBE), Small-Business-Extension (SBX)
' oder Business-Edition (BE) aus
'MsgBox("WindreamVersion: " & oSession.GetSystemInfo("WindreamVersion") & vbNewLine & "LicenceKey: " & oSession.GetSystemInfo("LicenceKey") & vbNewLine & _
' vbNewLine & "LicenceName: " & oSession.GetSystemInfo("LicenceName"))
'Dim WMCtrl As AISCONTROLDATACOMLib.AISControlData
'WMCtrl = New AISCONTROLDATACOMLib.AISControlData
'' liefert die Versionsnummer des Clients
'MsgBox(WMCtrl.WMWorkstationBuildNo)
'MsgBox(WMCtrl.W
'' liefert den Servernamen des angemeldeten windreams
'MsgBox(WMCtrl.WMServerName)
Try
Me.oSession.SwitchEvents(WMCOMEventWMSessionNeedIndex, False)
' der Parameter WMEntityDocument definiert, dass nur Dokumenttypen und keine
' Ordnertypen ausgelesen werden
Me.oDokumentTypen = Me.oSession.GetWMObjectTypes(WINDREAMLib.WMEntity.WMEntityDocument)
Catch ex As Exception
Return False
End Try
End If
Return True
Catch ex As Exception
If Err.Number = -2147220985 Then
Else
clsLogger.Add(ex.Message & vbNewLine & "Fehler beim Login an windream!", True)
End If
Return False
End Try
End Function
#End Region
#Region "+++++ Funktionen die für den Objekttyp relevate Informationen zurückliefern +++++"
Public Function GetTypeOfIndex(ByVal indexname As String) As Integer
Try
Dim oAttribute = Me.oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, indexname)
Dim vType = oAttribute.getVariableValue("dwAttrType")
Return vType
Catch ex As Exception
Return Nothing
End Try
End Function
#End Region
#Region "+++++ Allgemeine Funktionen die Informationen zurückliefern +++++"
''' <summary>
''' Liefert True wenn die windream-Session angemeldet ist und False für den Fall, dass die Session nicht eingeloggt ist.
''' </summary>
''' <returns>Anmeldestatus als Boolean</returns>
''' <remarks></remarks>
Public Function IsLoggedIn() As Boolean
Try
Return Me.oSession.aLoggedin
Catch ex As Exception
clsLogger.Add("Me.oSession.aLoggedin was ended with error: " & ex.Message, True)
End Try
Return False
End Function
''' <summary>
''' Liefert den Servernamen an dem windream aktuell angemeldet ist.
''' </summary>
''' <returns>Servername als String</returns>
''' <remarks></remarks>
Public Function GetCurrentServer() As String
Try
Return Me.oBrowser.GetCurrentServer 'ClassWindream.oBrowser.GetCurrentServer
Catch ex As Exception
clsLogger.Add(ex.Message & vbNewLine & "Der aktuell gewählte windream-Server konnte nicht ausgelesen werden!", True)
End Try
Return ""
End Function
#End Region
End Class

91
app/DDWDResultHandler/DDWDResultHandler.vb
View File

@@ -1,11 +1,14 @@
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 Modules.Logging
Public Class DDWDResultHandler Public Class DDWDResultHandler
#Region "+++++ Variablen +++++" #Region "+++++ Variablen +++++"
Public Shared _windream As New ClassWMResulthandler.clsWindream_allgemein Private Shared _windream As DD_WMResulthandler.clsWindream_allgemein
Private Shared _MyLoggerConfig As Modules.Logging.Logger
Public Shared threadRunner As BackgroundWorker Public Shared threadRunner As BackgroundWorker
Private Shared Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger
Public Shared _PROFIL_ID As Integer Public Shared _PROFIL_ID As Integer
Dim _INTERVALL As Integer Dim _INTERVALL As Integer
'Variablen für Dateiimporter 'Variablen für Dateiimporter
@@ -28,19 +31,20 @@ Public Class DDWDResultHandler
End Try End Try
Try Try
Try Try
clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "_SERVICEResultHandler") _MyLoggerConfig = New Logger(PathType.CurrentDirectory)
clsLogger.Add("WindreamResultHandler gestartet - " & Now, False) ' clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "_SERVICEResultHandler")
Logger.Info("WindreamResultHandler gestartet - " & Now)
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
If My.Settings.SQLSERVER_CS = String.Empty Then If My.Settings.SQLSERVER_CS = String.Empty Then
clsLogger.Add("Achtung: Es wurde noch kein Datenbank-ConnectionString hinterlegt.", True) Logger.Warn("Achtung: Es wurde noch kein Datenbank-ConnectionString hinterlegt.")
Else Else
If ClassWMResulthandler.clsDatatabase.Init(My.Settings.SQLSERVER_CS) = False Then If DD_WMResulthandler.clsDatatabase.Init(My.Settings.SQLSERVER_CS) = False Then
clsLogger.Add("Achtung: Es konnte keine Verbindung zur Datenbank '" & My.Settings.SQLSERVER_CS & "' hergestellt werden!", True) Logger.Warn("Achtung: Es konnte keine Verbindung zur Datenbank '" & My.Settings.SQLSERVER_CS & "' hergestellt werden!")
clsLogger.WriteLog()
Else Else
' '#Thread für Durchlauf generieren ' '#Thread für Durchlauf generieren
DDWDResultHandler.threadRunner = New BackgroundWorker() DDWDResultHandler.threadRunner = New BackgroundWorker()
@@ -57,14 +61,14 @@ 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
clsLogger.AddDetailLog("Timer gestartet") Logger.Info("Timer gestartet")
' 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
EventLog.WriteEntry("DDWMResultHandler", "Unexpected error in OnStart: " & ex.ToString(), EventLogEntryType.Error) EventLog.WriteEntry("DDWMResultHandler", "Unexpected error in OnStart: " & ex.ToString(), EventLogEntryType.Error)
clsLogger.AddError(ex.Message, "OnStart") Logger.Error(ex)
End Try End Try
End Sub End Sub
@@ -77,10 +81,8 @@ Public Class DDWDResultHandler
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") 'EventLog1.WriteEntry("Dienst 'DD windream Result Handler' gestoppt")
clsLogger.Add("WindreamResultHandler wurde gestoppt - " & Now, False) Logger.Warn("WindreamResultHandler wurde gestoppt - " & Now)
ClassWMResulthandler.clsDatatabase.Execute_non_Query("Update TBWMRH_PROFIL SET Running = 1 WHERE GUID = " & _PROFIL_ID) DD_WMResulthandler.clsDatatabase.Execute_non_Query("Update TBWMRH_PROFIL SET Running = 1 WHERE GUID = " & _PROFIL_ID)
clsLogger.Add("", False)
clsLogger.WriteLog()
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
@@ -89,62 +91,63 @@ Public Class DDWDResultHandler
Public Shared Sub RUN_THREAD(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Public Shared Sub RUN_THREAD(ByVal sender As Object, ByVal e As System.ComponentModel.DoWorkEventArgs)
Try Try
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")
clsLogger.Add("Start Durchlauf WindreamResultHandler - " & Now, False) Logger.Info("Start Durchlauf WindreamResultHandler - " & Now)
clsLogger.Add("", False) ' Windream instanziieren
_windream = New DD_WMResulthandler.clsWindream_allgemein()
'windream initialisieren 'windream initialisieren
If _windream.Init() = True Then If _windream.Init() = True Then
clsLogger.AddDetailLog("windream vollumfänglich initialisiert!") Logger.Info("windream vollumfänglich initialisiert!")
'Zur sicherheit die DB nochmal initialiseren 'Zur sicherheit die DB nochmal initialiseren
If ClassWMResulthandler.clsDatatabase.Init(My.Settings.SQLSERVER_CS) = True Then If DD_WMResulthandler.clsDatatabase.Init(My.Settings.SQLSERVER_CS) = True Then
Dim DT As DataTable = ClassWMResulthandler.clsDatatabase.Return_Datatable("select * from TBWMRH_KONFIGURATION where GUID = 1") Dim DT As DataTable = DD_WMResulthandler.clsDatatabase.Return_Datatable("select * from TBWMRH_KONFIGURATION where GUID = 1")
If DT.Rows.Count = 1 Then If DT.Rows.Count = 1 Then
ClassWMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = DT.Rows(0).Item("LOG_ERRORS_ONLY") DD_WMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = DT.Rows(0).Item("LOG_ERRORS_ONLY")
If ClassWMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = False Then _MyLoggerConfig.Debug = Not DT.Rows(0).Item("LOG_ERRORS_ONLY")
clsLogger.Add("Detaillog is ON!", False) If DD_WMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = False Then
Logger.Info("Detaillog is ON!")
End If End If
ClassWMResulthandler.clsCURRENT.WDLAUFWERK = DT.Rows(0).Item("WD_LAUFWERK") DD_WMResulthandler.clsCURRENT.WDLAUFWERK = DT.Rows(0).Item("WD_LAUFWERK")
End If End If
DT = ClassWMResulthandler.clsDatatabase.Return_Datatable("SELECT GUID FROM TBWMRH_PROFIL WHERE AKTIV = 1 order by REIHENFOLGE") DT = DD_WMResulthandler.clsDatatabase.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
clsLogger.AddDetailLog("Anzahl der aktiven Profile: " & DT.Rows.Count.ToString) Logger.Info("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"))
'Und nun das Profil durchlaufen 'Und nun das Profil durchlaufen
Dim initresult = ClassWMResulthandler.clsProfil.Init(_PROFIL_ID) Dim initresult = DD_WMResulthandler.clsProfil.Init(_PROFIL_ID)
If initresult = True Then If initresult = True Then
clsLogger.WriteLog() DD_WMResulthandler.clsProfil.Profil_Durchlauf()
ClassWMResulthandler.clsProfil.Profil_Durchlauf()
ElseIf initresult = False Then ElseIf initresult = False Then
clsLogger.Add("clsProfil konnte nicht initialisiert werden", True, "RUN_THREAD") Logger.Warn("clsProfil konnte nicht initialisiert werden")
notcompleted = True notcompleted = True
ElseIf initresult = 0 Then ElseIf initresult = 0 Then
clsLogger.AddDetailLog("initresult: 0") Logger.Info("initresult: 0")
notcompleted = True notcompleted = True
ElseIf initresult = 1 Then ElseIf initresult = 1 Then
clsLogger.AddDetailLog("initresult: 1") Logger.Info("initresult: 1")
notcompleted = True notcompleted = True
End If End If
Next Next
Else Else
clsLogger.Add("Keine aktiven Profile vorhanden", False) Logger.Warn("Keine aktiven Profile vorhanden")
notcompleted = True notcompleted = True
End If End If
ClassWMResulthandler.clsDatatabase.Execute_non_Query("UPDATE TBWMRH_KONFIGURATION SET LAST_TICK = GETDATE() WHERE GUID = 1") DD_WMResulthandler.clsDatatabase.Execute_non_Query("UPDATE TBWMRH_KONFIGURATION SET LAST_TICK = GETDATE() WHERE GUID = 1")
Else Else
clsLogger.Add("clsDatabase konnte nicht initialisiert werden!", False) Logger.Warn("clsDatabase konnte nicht initialisiert werden!")
notcompleted = True notcompleted = True
End If End If
Else Else
clsLogger.Add("# Achtung: Windream-Init mit Fehlern beendet", False) Logger.Warn("# Achtung: Windream-Init mit Fehlern beendet")
notcompleted = True notcompleted = True
End If End If
If notcompleted = True Then If notcompleted = True Then
clsLogger.WriteLog()
End If End If
Catch ex As Exception Catch ex As Exception
clsLogger.AddError(ex.Message, "RUN_THREAD") Logger.Error(ex)
End Try End Try
End Sub End Sub
@@ -155,12 +158,11 @@ Public Class DDWDResultHandler
Dim result As String = "" Dim result As String = ""
If e.Cancelled Then If e.Cancelled Then
clsLogger.Add("Der Process wurde durch den Anwender abgebrochen", False) Logger.Warn("Der Process wurde durch den Anwender abgebrochen")
clsLogger.WriteLog()
ElseIf e.Error IsNot Nothing Then ElseIf e.Error IsNot Nothing Then
clsLogger.Add("Fehler bei Durchlauf. Der Vorgang wird abgebrochen.", True, "Thread_Completed") Logger.Warn("Fehler bei Durchlauf. Der Vorgang wird abgebrochen: " & e.Error.Message)
clsLogger.Add(e.Error.Message, True, "Thread_Completed")
clsLogger.WriteLog()
End If End If
'If DI_Verzeichnisloeschen Then 'If DI_Verzeichnisloeschen Then
@@ -182,7 +184,8 @@ Public Class DDWDResultHandler
Return True Return True
Catch ex As Exception Catch ex As Exception
EventLog.WriteEntry("DDWMResultHandler", "Unexpected error in Thread_Abbrechen: " & ex.ToString(), EventLogEntryType.Error) EventLog.WriteEntry("DDWMResultHandler", "Unexpected error in Thread_Abbrechen: " & ex.ToString(), EventLogEntryType.Error)
clsLogger.AddError(ex.Message, "Thread_Abbrechen") Logger.Error(ex)
Return False Return False
End Try End Try
End Function End Function

8
app/DDWDResultHandler/My Project/Application.Designer.vb generated
View File

@@ -1,10 +1,10 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' This code was generated by a tool. ' Dieser Code wurde von einem Tool generiert.
' Runtime Version:4.0.30319.34014 ' Laufzeitversion:4.0.30319.42000
' '
' Changes to this file may cause incorrect behavior and will be lost if ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' the code is regenerated. ' der Code erneut generiert wird.
' </auto-generated> ' </auto-generated>
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------

29
app/DDWDResultHandler/My Project/Resources.Designer.vb generated
View File

@@ -1,27 +1,28 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' This code was generated by a tool. ' Dieser Code wurde von einem Tool generiert.
' Runtime Version:4.0.30319.34014 ' Laufzeitversion:4.0.30319.42000
' '
' Changes to this file may cause incorrect behavior and will be lost if ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' the code is regenerated. ' der Code erneut generiert wird.
' </auto-generated> ' </auto-generated>
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
Option Strict On Option Strict On
Option Explicit On Option Explicit On
Imports System
Namespace My.Resources Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert
'class via a tool like ResGen or Visual Studio. '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert.
'To add or remove a member, edit your .ResX file then rerun ResGen 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen
'with the /str option, or rebuild your VS project. 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu.
'''<summary> '''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc. ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw.
'''</summary> '''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "4.0.0.0"), _ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "15.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _ Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
@@ -32,7 +33,7 @@ Namespace My.Resources
Private resourceCulture As Global.System.Globalization.CultureInfo Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary> '''<summary>
''' Returns the cached ResourceManager instance used by this class. ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird.
'''</summary> '''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
@@ -46,15 +47,15 @@ Namespace My.Resources
End Property End Property
'''<summary> '''<summary>
''' Overrides the current thread's CurrentUICulture property for all ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle
''' resource lookups using this strongly typed resource class. ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden.
'''</summary> '''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ <Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo Friend Property Culture() As Global.System.Globalization.CultureInfo
Get Get
Return resourceCulture Return resourceCulture
End Get End Get
Set(ByVal value As Global.System.Globalization.CultureInfo) Set
resourceCulture = value resourceCulture = value
End Set End Set
End Property End Property

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

@@ -15,7 +15,7 @@ Option Explicit On
Namespace My Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _ <Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.5.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "15.7.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _ Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase Inherits Global.System.Configuration.ApplicationSettingsBase

234
app/DDWDResultHandler/MyDataset.Designer.vb generated
View File

@@ -1,7 +1,7 @@
'------------------------------------------------------------------------------ '------------------------------------------------------------------------------
' <auto-generated> ' <auto-generated>
' Dieser Code wurde von einem Tool generiert. ' Dieser Code wurde von einem Tool generiert.
' Laufzeitversion:4.0.30319.34014 ' Laufzeitversion:4.0.30319.42000
' '
' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn ' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn
' der Code erneut generiert wird. ' der Code erneut generiert wird.
@@ -30,29 +30,29 @@ Partial Public Class MyDataset
Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New() Public Sub New()
MyBase.New() MyBase.New
Me.BeginInit() Me.BeginInit
Me.InitClass() Me.InitClass
Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler
AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler
Me.EndInit() Me.EndInit
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context, False) MyBase.New(info, context, false)
If (Me.IsBinarySerialized(info, context) = True) Then If (Me.IsBinarySerialized(info, context) = true) Then
Me.InitVars(False) Me.InitVars(false)
Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged
AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1
AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1
Return Return
End If End If
Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)), String) Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String)
If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
@@ -65,8 +65,8 @@ Partial Public Class MyDataset
Me.Locale = ds.Locale Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
Me.InitVars() Me.InitVars
Else Else
Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema)))
End If End If
@@ -77,8 +77,8 @@ Partial Public Class MyDataset
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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), _
Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _ Global.System.ComponentModel.DesignerSerializationVisibility(Global.System.ComponentModel.DesignerSerializationVisibility.Content)> _
Public ReadOnly Property TBVEKTOR_INDEX() As TBVEKTOR_INDEXDataTable Public ReadOnly Property TBVEKTOR_INDEX() As TBVEKTOR_INDEXDataTable
Get Get
@@ -87,20 +87,20 @@ Partial Public Class MyDataset
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.BrowsableAttribute(True), _ Global.System.ComponentModel.BrowsableAttribute(true), _
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _ Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Visible)> _
Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode
Get Get
Return Me._schemaSerializationMode Return Me._schemaSerializationMode
End Get End Get
Set(value As Global.System.Data.SchemaSerializationMode) Set
Me._schemaSerializationMode = value Me._schemaSerializationMode = value
End Set End Set
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _ Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection
Get Get
@@ -109,7 +109,7 @@ Partial Public Class MyDataset
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _ Global.System.ComponentModel.DesignerSerializationVisibilityAttribute(Global.System.ComponentModel.DesignerSerializationVisibility.Hidden)> _
Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection
Get Get
@@ -118,39 +118,39 @@ Partial Public Class MyDataset
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub InitializeDerivedDataSet() Protected Overrides Sub InitializeDerivedDataSet()
Me.BeginInit() Me.BeginInit
Me.InitClass() Me.InitClass
Me.EndInit() Me.EndInit
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataSet Public Overrides Function Clone() As Global.System.Data.DataSet
Dim cln As MyDataset = CType(MyBase.Clone, MyDataset) Dim cln As MyDataset = CType(MyBase.Clone,MyDataset)
cln.InitVars() cln.InitVars
cln.SchemaSerializationMode = Me.SchemaSerializationMode cln.SchemaSerializationMode = Me.SchemaSerializationMode
Return cln Return cln
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function ShouldSerializeTables() As Boolean Protected Overrides Function ShouldSerializeTables() As Boolean
Return False Return false
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function ShouldSerializeRelations() As Boolean Protected Overrides Function ShouldSerializeRelations() As Boolean
Return False Return false
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader)
If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then
Me.Reset() Me.Reset
Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet()
ds.ReadXml(reader) ds.ReadXml(reader)
If (Not (ds.Tables("TBVEKTOR_INDEX")) Is Nothing) Then If (Not (ds.Tables("TBVEKTOR_INDEX")) Is Nothing) Then
@@ -162,16 +162,16 @@ Partial Public Class MyDataset
Me.Locale = ds.Locale Me.Locale = ds.Locale
Me.CaseSensitive = ds.CaseSensitive Me.CaseSensitive = ds.CaseSensitive
Me.EnforceConstraints = ds.EnforceConstraints Me.EnforceConstraints = ds.EnforceConstraints
Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add)
Me.InitVars() Me.InitVars
Else Else
Me.ReadXml(reader) Me.ReadXml(reader)
Me.InitVars() Me.InitVars
End If End If
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema
Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream()
Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing))
@@ -180,50 +180,50 @@ Partial Public Class MyDataset
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Overloads Sub InitVars() Friend Overloads Sub InitVars()
Me.InitVars(True) Me.InitVars(true)
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Overloads Sub InitVars(ByVal initTable As Boolean) Friend Overloads Sub InitVars(ByVal initTable As Boolean)
Me.tableTBVEKTOR_INDEX = CType(MyBase.Tables("TBVEKTOR_INDEX"), TBVEKTOR_INDEXDataTable) Me.tableTBVEKTOR_INDEX = CType(MyBase.Tables("TBVEKTOR_INDEX"),TBVEKTOR_INDEXDataTable)
If (initTable = True) Then If (initTable = true) Then
If (Not (Me.tableTBVEKTOR_INDEX) Is Nothing) Then If (Not (Me.tableTBVEKTOR_INDEX) Is Nothing) Then
Me.tableTBVEKTOR_INDEX.InitVars() Me.tableTBVEKTOR_INDEX.InitVars
End If End If
End If End If
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub InitClass() Private Sub InitClass()
Me.DataSetName = "MyDataset" Me.DataSetName = "MyDataset"
Me.Prefix = "" Me.Prefix = ""
Me.Namespace = "http://tempuri.org/MyDataset.xsd" Me.Namespace = "http://tempuri.org/MyDataset.xsd"
Me.EnforceConstraints = True Me.EnforceConstraints = true
Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema
Me.tableTBVEKTOR_INDEX = New TBVEKTOR_INDEXDataTable() Me.tableTBVEKTOR_INDEX = New TBVEKTOR_INDEXDataTable()
MyBase.Tables.Add(Me.tableTBVEKTOR_INDEX) MyBase.Tables.Add(Me.tableTBVEKTOR_INDEX)
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Function ShouldSerializeTBVEKTOR_INDEX() As Boolean Private Function ShouldSerializeTBVEKTOR_INDEX() As Boolean
Return False Return false
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs)
If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then
Me.InitVars() Me.InitVars
End If End If
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim ds As MyDataset = New MyDataset() Dim ds As MyDataset = New MyDataset()
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
@@ -241,7 +241,7 @@ Partial Public Class MyDataset
dsSchema.Write(s1) dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext Do While schemas.MoveNext
schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0) s2.SetLength(0)
schema.Write(s2) schema.Write(s2)
If (s1.Length = s2.Length) Then If (s1.Length = s2.Length) Then
@@ -261,10 +261,10 @@ Partial Public Class MyDataset
Loop Loop
Finally Finally
If (Not (s1) Is Nothing) Then If (Not (s1) Is Nothing) Then
s1.Close() s1.Close
End If End If
If (Not (s2) Is Nothing) Then If (Not (s2) Is Nothing) Then
s2.Close() s2.Close
End If End If
End Try End Try
End If End If
@@ -272,7 +272,7 @@ Partial Public Class MyDataset
Return type Return type
End Function End Function
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Delegate Sub TBVEKTOR_INDEXRowChangeEventHandler(ByVal sender As Object, ByVal e As TBVEKTOR_INDEXRowChangeEvent) Public Delegate Sub TBVEKTOR_INDEXRowChangeEventHandler(ByVal sender As Object, ByVal e As TBVEKTOR_INDEXRowChangeEvent)
'''<summary> '''<summary>
@@ -288,19 +288,19 @@ Partial Public Class MyDataset
Private columnValue As Global.System.Data.DataColumn Private columnValue As Global.System.Data.DataColumn
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New() Public Sub New()
MyBase.New() MyBase.New
Me.TableName = "TBVEKTOR_INDEX" Me.TableName = "TBVEKTOR_INDEX"
Me.BeginInit() Me.BeginInit
Me.InitClass() Me.InitClass
Me.EndInit() Me.EndInit
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Sub New(ByVal table As Global.System.Data.DataTable) Friend Sub New(ByVal table As Global.System.Data.DataTable)
MyBase.New() MyBase.New
Me.TableName = table.TableName Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive Me.CaseSensitive = table.CaseSensitive
@@ -316,14 +316,14 @@ Partial Public Class MyDataset
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context) MyBase.New(info, context)
Me.InitVars() Me.InitVars
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property IndexnameColumn() As Global.System.Data.DataColumn Public ReadOnly Property IndexnameColumn() As Global.System.Data.DataColumn
Get Get
Return Me.columnIndexname Return Me.columnIndexname
@@ -331,7 +331,7 @@ Partial Public Class MyDataset
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property ValueColumn() As Global.System.Data.DataColumn Public ReadOnly Property ValueColumn() As Global.System.Data.DataColumn
Get Get
Return Me.columnValue Return Me.columnValue
@@ -339,8 +339,8 @@ Partial Public Class MyDataset
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.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)> _
Public ReadOnly Property Count() As Integer Public ReadOnly Property Count() As Integer
Get Get
Return Me.Rows.Count Return Me.Rows.Count
@@ -348,35 +348,35 @@ Partial Public Class MyDataset
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Default Public ReadOnly Property Item(ByVal index As Integer) As TBVEKTOR_INDEXRow Public Default ReadOnly Property Item(ByVal index As Integer) As TBVEKTOR_INDEXRow
Get Get
Return CType(Me.Rows(index), TBVEKTOR_INDEXRow) Return CType(Me.Rows(index),TBVEKTOR_INDEXRow)
End Get End Get
End Property End Property
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBVEKTOR_INDEXRowChanging As TBVEKTOR_INDEXRowChangeEventHandler Public Event TBVEKTOR_INDEXRowChanging As TBVEKTOR_INDEXRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBVEKTOR_INDEXRowChanged As TBVEKTOR_INDEXRowChangeEventHandler Public Event TBVEKTOR_INDEXRowChanged As TBVEKTOR_INDEXRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBVEKTOR_INDEXRowDeleting As TBVEKTOR_INDEXRowChangeEventHandler Public Event TBVEKTOR_INDEXRowDeleting As TBVEKTOR_INDEXRowChangeEventHandler
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Event TBVEKTOR_INDEXRowDeleted As TBVEKTOR_INDEXRowChangeEventHandler Public Event TBVEKTOR_INDEXRowDeleted As TBVEKTOR_INDEXRowChangeEventHandler
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overloads Sub AddTBVEKTOR_INDEXRow(ByVal row As TBVEKTOR_INDEXRow) Public Overloads Sub AddTBVEKTOR_INDEXRow(ByVal row As TBVEKTOR_INDEXRow)
Me.Rows.Add(row) Me.Rows.Add(row)
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overloads Function AddTBVEKTOR_INDEXRow(ByVal Indexname As String, ByVal Value As String) As TBVEKTOR_INDEXRow Public Overloads Function AddTBVEKTOR_INDEXRow(ByVal Indexname As String, ByVal Value As String) As TBVEKTOR_INDEXRow
Dim rowTBVEKTOR_INDEXRow As TBVEKTOR_INDEXRow = CType(Me.NewRow, TBVEKTOR_INDEXRow) Dim rowTBVEKTOR_INDEXRow As TBVEKTOR_INDEXRow = CType(Me.NewRow,TBVEKTOR_INDEXRow)
Dim columnValuesArray() As Object = New Object() {Indexname, Value} Dim columnValuesArray() As Object = New Object() {Indexname, Value}
rowTBVEKTOR_INDEXRow.ItemArray = columnValuesArray rowTBVEKTOR_INDEXRow.ItemArray = columnValuesArray
Me.Rows.Add(rowTBVEKTOR_INDEXRow) Me.Rows.Add(rowTBVEKTOR_INDEXRow)
@@ -384,28 +384,28 @@ Partial Public Class MyDataset
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Overrides Function Clone() As Global.System.Data.DataTable Public Overrides Function Clone() As Global.System.Data.DataTable
Dim cln As TBVEKTOR_INDEXDataTable = CType(MyBase.Clone, TBVEKTOR_INDEXDataTable) Dim cln As TBVEKTOR_INDEXDataTable = CType(MyBase.Clone,TBVEKTOR_INDEXDataTable)
cln.InitVars() cln.InitVars
Return cln Return cln
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Protected Overrides Function CreateInstance() As Global.System.Data.DataTable
Return New TBVEKTOR_INDEXDataTable() Return New TBVEKTOR_INDEXDataTable()
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Sub InitVars() Friend Sub InitVars()
Me.columnIndexname = MyBase.Columns("Indexname") Me.columnIndexname = MyBase.Columns("Indexname")
Me.columnValue = MyBase.Columns("Value") Me.columnValue = MyBase.Columns("Value")
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Private Sub InitClass() Private Sub InitClass()
Me.columnIndexname = New Global.System.Data.DataColumn("Indexname", GetType(String), Nothing, Global.System.Data.MappingType.Element) Me.columnIndexname = New Global.System.Data.DataColumn("Indexname", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnIndexname) MyBase.Columns.Add(Me.columnIndexname)
@@ -414,67 +414,67 @@ Partial Public Class MyDataset
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function NewTBVEKTOR_INDEXRow() As TBVEKTOR_INDEXRow Public Function NewTBVEKTOR_INDEXRow() As TBVEKTOR_INDEXRow
Return CType(Me.NewRow, TBVEKTOR_INDEXRow) Return CType(Me.NewRow,TBVEKTOR_INDEXRow)
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow
Return New TBVEKTOR_INDEXRow(builder) Return New TBVEKTOR_INDEXRow(builder)
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Function GetRowType() As Global.System.Type Protected Overrides Function GetRowType() As Global.System.Type
Return GetType(TBVEKTOR_INDEXRow) Return GetType(TBVEKTOR_INDEXRow)
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanged(e) MyBase.OnRowChanged(e)
If (Not (Me.TBVEKTOR_INDEXRowChangedEvent) Is Nothing) Then If (Not (Me.TBVEKTOR_INDEXRowChangedEvent) Is Nothing) Then
RaiseEvent TBVEKTOR_INDEXRowChanged(Me, New TBVEKTOR_INDEXRowChangeEvent(CType(e.Row, TBVEKTOR_INDEXRow), e.Action)) RaiseEvent TBVEKTOR_INDEXRowChanged(Me, New TBVEKTOR_INDEXRowChangeEvent(CType(e.Row,TBVEKTOR_INDEXRow), e.Action))
End If End If
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowChanging(e) MyBase.OnRowChanging(e)
If (Not (Me.TBVEKTOR_INDEXRowChangingEvent) Is Nothing) Then If (Not (Me.TBVEKTOR_INDEXRowChangingEvent) Is Nothing) Then
RaiseEvent TBVEKTOR_INDEXRowChanging(Me, New TBVEKTOR_INDEXRowChangeEvent(CType(e.Row, TBVEKTOR_INDEXRow), e.Action)) RaiseEvent TBVEKTOR_INDEXRowChanging(Me, New TBVEKTOR_INDEXRowChangeEvent(CType(e.Row,TBVEKTOR_INDEXRow), e.Action))
End If End If
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleted(e) MyBase.OnRowDeleted(e)
If (Not (Me.TBVEKTOR_INDEXRowDeletedEvent) Is Nothing) Then If (Not (Me.TBVEKTOR_INDEXRowDeletedEvent) Is Nothing) Then
RaiseEvent TBVEKTOR_INDEXRowDeleted(Me, New TBVEKTOR_INDEXRowChangeEvent(CType(e.Row, TBVEKTOR_INDEXRow), e.Action)) RaiseEvent TBVEKTOR_INDEXRowDeleted(Me, New TBVEKTOR_INDEXRowChangeEvent(CType(e.Row,TBVEKTOR_INDEXRow), e.Action))
End If End If
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs)
MyBase.OnRowDeleting(e) MyBase.OnRowDeleting(e)
If (Not (Me.TBVEKTOR_INDEXRowDeletingEvent) Is Nothing) Then If (Not (Me.TBVEKTOR_INDEXRowDeletingEvent) Is Nothing) Then
RaiseEvent TBVEKTOR_INDEXRowDeleting(Me, New TBVEKTOR_INDEXRowChangeEvent(CType(e.Row, TBVEKTOR_INDEXRow), e.Action)) RaiseEvent TBVEKTOR_INDEXRowDeleting(Me, New TBVEKTOR_INDEXRowChangeEvent(CType(e.Row,TBVEKTOR_INDEXRow), e.Action))
End If End If
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub RemoveTBVEKTOR_INDEXRow(ByVal row As TBVEKTOR_INDEXRow) Public Sub RemoveTBVEKTOR_INDEXRow(ByVal row As TBVEKTOR_INDEXRow)
Me.Rows.Remove(row) Me.Rows.Remove(row)
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType
Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType()
Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence()
@@ -508,7 +508,7 @@ Partial Public Class MyDataset
dsSchema.Write(s1) dsSchema.Write(s1)
Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator
Do While schemas.MoveNext Do While schemas.MoveNext
schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema)
s2.SetLength(0) s2.SetLength(0)
schema.Write(s2) schema.Write(s2)
If (s1.Length = s2.Length) Then If (s1.Length = s2.Length) Then
@@ -528,10 +528,10 @@ Partial Public Class MyDataset
Loop Loop
Finally Finally
If (Not (s1) Is Nothing) Then If (Not (s1) Is Nothing) Then
s1.Close() s1.Close
End If End If
If (Not (s2) Is Nothing) Then If (Not (s2) Is Nothing) Then
s2.Close() s2.Close
End If End If
End Try End Try
End If End If
@@ -549,62 +549,62 @@ Partial Public Class MyDataset
Private tableTBVEKTOR_INDEX As TBVEKTOR_INDEXDataTable Private tableTBVEKTOR_INDEX As TBVEKTOR_INDEXDataTable
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder)
MyBase.New(rb) MyBase.New(rb)
Me.tableTBVEKTOR_INDEX = CType(Me.Table, TBVEKTOR_INDEXDataTable) Me.tableTBVEKTOR_INDEX = CType(Me.Table,TBVEKTOR_INDEXDataTable)
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property Indexname() As String Public Property Indexname() As String
Get Get
Try Try
Return CType(Me(Me.tableTBVEKTOR_INDEX.IndexnameColumn), String) Return CType(Me(Me.tableTBVEKTOR_INDEX.IndexnameColumn),String)
Catch e As Global.System.InvalidCastException Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexname in Tabelle TBVEKTOR_INDEX ist DBNull.", e) Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Indexname in Tabelle TBVEKTOR_INDEX ist DBNull.", e)
End Try End Try
End Get End Get
Set(value As String) Set
Me(Me.tableTBVEKTOR_INDEX.IndexnameColumn) = value Me(Me.tableTBVEKTOR_INDEX.IndexnameColumn) = value
End Set End Set
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property Value() As String Public Property Value() As String
Get Get
Try Try
Return CType(Me(Me.tableTBVEKTOR_INDEX.ValueColumn), String) Return CType(Me(Me.tableTBVEKTOR_INDEX.ValueColumn),String)
Catch e As Global.System.InvalidCastException Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Value in Tabelle TBVEKTOR_INDEX ist DBNull.", e) Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Value in Tabelle TBVEKTOR_INDEX ist DBNull.", e)
End Try End Try
End Get End Get
Set(value As String) Set
Me(Me.tableTBVEKTOR_INDEX.ValueColumn) = value Me(Me.tableTBVEKTOR_INDEX.ValueColumn) = value
End Set End Set
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsIndexnameNull() As Boolean Public Function IsIndexnameNull() As Boolean
Return Me.IsNull(Me.tableTBVEKTOR_INDEX.IndexnameColumn) Return Me.IsNull(Me.tableTBVEKTOR_INDEX.IndexnameColumn)
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetIndexnameNull() Public Sub SetIndexnameNull()
Me(Me.tableTBVEKTOR_INDEX.IndexnameColumn) = Global.System.Convert.DBNull Me(Me.tableTBVEKTOR_INDEX.IndexnameColumn) = Global.System.Convert.DBNull
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsValueNull() As Boolean Public Function IsValueNull() As Boolean
Return Me.IsNull(Me.tableTBVEKTOR_INDEX.ValueColumn) Return Me.IsNull(Me.tableTBVEKTOR_INDEX.ValueColumn)
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetValueNull() Public Sub SetValueNull()
Me(Me.tableTBVEKTOR_INDEX.ValueColumn) = Global.System.Convert.DBNull Me(Me.tableTBVEKTOR_INDEX.ValueColumn) = Global.System.Convert.DBNull
End Sub End Sub
@@ -613,7 +613,7 @@ Partial Public Class MyDataset
'''<summary> '''<summary>
'''Row event argument class '''Row event argument class
'''</summary> '''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ <Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Class TBVEKTOR_INDEXRowChangeEvent Public Class TBVEKTOR_INDEXRowChangeEvent
Inherits Global.System.EventArgs Inherits Global.System.EventArgs
@@ -622,15 +622,15 @@ Partial Public Class MyDataset
Private eventAction As Global.System.Data.DataRowAction Private eventAction As Global.System.Data.DataRowAction
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub New(ByVal row As TBVEKTOR_INDEXRow, ByVal action As Global.System.Data.DataRowAction) Public Sub New(ByVal row As TBVEKTOR_INDEXRow, ByVal action As Global.System.Data.DataRowAction)
MyBase.New() MyBase.New
Me.eventRow = row Me.eventRow = row
Me.eventAction = action Me.eventAction = action
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property Row() As TBVEKTOR_INDEXRow Public ReadOnly Property Row() As TBVEKTOR_INDEXRow
Get Get
Return Me.eventRow Return Me.eventRow
@@ -638,7 +638,7 @@ Partial Public Class MyDataset
End Property End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property Action() As Global.System.Data.DataRowAction Public ReadOnly Property Action() As Global.System.Data.DataRowAction
Get Get
Return Me.eventAction Return Me.eventAction

21
app/DDWDResultHandler/DDWDResultHandler.vbproj → app/DDWDResultHandler/SERV_DDWDResultHandler.vbproj
View File

@@ -11,8 +11,9 @@
<AssemblyName>DDWDResultHandler</AssemblyName> <AssemblyName>DDWDResultHandler</AssemblyName>
<FileAlignment>512</FileAlignment> <FileAlignment>512</FileAlignment>
<MyType>Console</MyType> <MyType>Console</MyType>
<TargetFrameworkVersion>v4.5.1</TargetFrameworkVersion> <TargetFrameworkVersion>v4.6.1</TargetFrameworkVersion>
<AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects> <AutoGenerateBindingRedirects>true</AutoGenerateBindingRedirects>
<TargetFrameworkProfile />
</PropertyGroup> </PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' "> <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<PlatformTarget>AnyCPU</PlatformTarget> <PlatformTarget>AnyCPU</PlatformTarget>
@@ -48,8 +49,8 @@
<OptionInfer>On</OptionInfer> <OptionInfer>On</OptionInfer>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="ClassWMResulthandler"> <Reference Include="DD_WMResulthandler">
<HintPath>..\ClassWMResulthandler\bin\Debug\ClassWMResulthandler.dll</HintPath> <HintPath>..\ClassWMResulthandler\bin\Debug\DD_WMResulthandler.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.1.1\lib\net45\EntityFramework.dll</HintPath>
@@ -61,18 +62,30 @@
<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="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">
<HintPath>..\packages\NLog.4.5.8\lib\net45\NLog.dll</HintPath>
</Reference>
<Reference Include="Oracle.ManagedDataAccess"> <Reference Include="Oracle.ManagedDataAccess">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath> <HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
</Reference> </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.Install" /> <Reference Include="System.Configuration.Install" />
<Reference Include="System.Data" /> <Reference Include="System.Data" />
<Reference Include="System.Deployment" /> <Reference Include="System.Deployment" />
<Reference Include="System.IO.Compression" />
<Reference Include="System.Runtime.Serialization" />
<Reference Include="System.ServiceModel" />
<Reference Include="System.ServiceProcess" /> <Reference Include="System.ServiceProcess" />
<Reference Include="System.Transactions" />
<Reference Include="System.Web.Services" /> <Reference Include="System.Web.Services" />
<Reference Include="System.Xml" /> <Reference Include="System.Xml" />
<Reference Include="System.Core" /> <Reference Include="System.Core" />
@@ -91,8 +104,6 @@
<Import Include="System.Threading.Tasks" /> <Import Include="System.Threading.Tasks" />
</ItemGroup> </ItemGroup>
<ItemGroup> <ItemGroup>
<Compile Include="ClassWindream_allgemein.vb" />
<Compile Include="clsLogger.vb" />
<Compile Include="My Project\Application.Designer.vb"> <Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen> <AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon> <DependentUpon>Application.myapp</DependentUpon>

171
app/DDWDResultHandler/clsLogger.vb
View File

@@ -1,171 +0,0 @@
Imports System.IO
Public Class clsLogger
Private Shared LogPath As String
Public Shared LogFilename As String
Private Shared logErr_name As String
Private Shared log_string As String
Private Shared Inited As Boolean = False
Public Shared Function Init(ByVal speicherort As String, ByVal prefix As String)
Try
'Den Speicherort festlegen
SetSpeicherort()
Dim logf_name As String = LogPath & "\" & System.DateTime.Now.ToString("yyyy_MM_dd") & prefix & ".txt"
logErr_name = LogPath & "\" & "ErrorLog_" & System.DateTime.Now.ToString("yyyy_MM_dd") & ".txt"
Dim anz As Integer = 1
Do While File.Exists(logf_name)
Dim info As New FileInfo(logf_name)
Dim length As Long = info.Length
If length > 5000000 Then
logf_name = IO.Path.GetDirectoryName(logf_name)
logf_name = logf_name & "\" & prefix & System.DateTime.Now.ToString("yyyy_MM_dd") & "(" & anz.ToString & ").txt"
anz = anz + 1
Else
Exit Do
End If
Loop
LogFilename = logf_name
Try
'Veruch das Log zu öffnen
Dim fs As FileStream = New FileStream(LogFilename, FileMode.OpenOrCreate, FileAccess.Write)
' --- Stream öffnen
Dim w As StreamWriter = New StreamWriter(fs)
' --- Anfügen am Ende
w.BaseStream.Seek(0, SeekOrigin.End)
' --- Zeilen schreiben
' --- Writer und Stream schließen
w.Close()
fs.Close()
Catch ex As Exception
LogEscalation_Error("The Logfile could not be created - Error: " & ex.Message)
Return False
End Try
'Alles Ok
Inited = True
Return True
Catch ex As Exception
LogEscalation_Error("Unexpected Error in init Logger - Error: " & ex.Message)
Return False
End Try
End Function
Private Shared Sub LogEscalation_Error(msg As String)
Try
'Veruch das Log zu öffnen
Dim fs As FileStream = New FileStream(logErr_name, FileMode.OpenOrCreate, FileAccess.Write)
' --- Stream öffnen
Dim w As StreamWriter = New StreamWriter(fs)
' --- Anfügen am Ende
w.BaseStream.Seek(0, SeekOrigin.End)
' --- Zeilen schreiben
w.WriteLine(msg)
' --- Writer und Stream schließen
w.Close()
fs.Close()
Catch ex As Exception
End Try
End Sub
' legt den Speicherort fest
Public Shared Sub SetSpeicherort()
Dim f As New IO.DirectoryInfo(My.Application.Info.DirectoryPath & "\Log")
If f.Exists = False Then
IO.Directory.CreateDirectory(My.Application.Info.DirectoryPath & "\Log")
End If
LogPath = My.Application.Info.DirectoryPath & "\Log\"
End Sub
Public Shared Sub Add(ByVal text As String, ByVal _error As Boolean, Optional ByVal Funktion As String = "")
If Inited = False Then
Exit Sub
End If
Dim praefix = Now.ToString & " >>"
Dim msg As String = ""
If log_string <> String.Empty Then
log_string &= vbNewLine
End If
'Präfixe schreiben
If _error = True And Funktion <> "" Then
msg = "Achtung Fehler in Funktion '" & Funktion & "'" & vbNewLine & "Fehlermeldung: "
ElseIf _error = True Then
msg = "Achtung Fehler:" & vbNewLine & "Fehlermeldung: "
Else
End If
'Präfix und Meldung zusammenstellen
log_string &= praefix & msg & " " & text
End Sub
Public Shared Sub AddError(ByVal error_string As String, Optional ByVal Funktion As String = "")
If Inited = False Then
Exit Sub
End If
Try
'Zuerst mal die Details schreiben
WriteLog()
'Nun den eigentlichen Fehler loggen
Dim msg As String
'Präfixe schreiben
If Funktion <> "" Then
msg = "Achtung Fehler in Funktion '" & Funktion & "'" & vbNewLine & "Fehlermeldung: "
Else
msg = "Achtung Fehler:" & vbNewLine & "Fehlermeldung: "
End If
'Präfix und Meldung zusammenstellen
msg &= Now.ToString & " " & error_string
'Veruch das Log zu öffnen
Dim fs As FileStream = New FileStream(LogFilename, FileMode.OpenOrCreate, FileAccess.Write)
' --- Stream öffnen
Dim w As StreamWriter = New StreamWriter(fs)
' --- Anfügen am Ende
w.BaseStream.Seek(0, SeekOrigin.End)
' --- Zeilen schreiben
w.WriteLine(msg)
' --- Writer und Stream schließen
w.Close()
fs.Close()
Catch ex As Exception
LogEscalation_Error("Unexpected Error in AddError - Error: " & ex.Message)
End Try
End Sub
Public Shared Sub AddDetailLog(ByVal text As String)
If Inited = False Then
Exit Sub
End If
Try
If ClassWMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = False Then
If log_string <> String.Empty Then
log_string &= vbNewLine
End If
log_string &= Now.ToString & " >>>" & text
End If
Catch ex As Exception
LogEscalation_Error("Unexpected Error in AddDetailLog - Error: " & ex.Message)
End Try
End Sub
Public Shared Sub WriteLog()
Try
If log_string = String.Empty Then
Exit Sub
End If
'Veruch das Log zu öffnen
Dim fs As FileStream = New FileStream(LogFilename, FileMode.OpenOrCreate, FileAccess.Write)
' --- Stream öffnen
Dim w As StreamWriter = New StreamWriter(fs)
' --- Anfügen am Ende
w.BaseStream.Seek(0, SeekOrigin.End)
' --- Zeilen schreiben
w.WriteLine(log_string)
' --- Writer und Stream schließen
w.Close()
fs.Close()
SetSpeicherort()
'Den Meldungsstring wieder leeren
log_string = String.Empty
Catch ex As Exception
LogEscalation_Error("Unexpected Error in WriteLog - Error: " & ex.Message)
End Try
End Sub
End Class

1
app/DDWDResultHandler/packages.config
View File

@@ -2,6 +2,7 @@
<packages> <packages>
<package id="EntityFramework" version="6.1.1" targetFramework="net451" /> <package id="EntityFramework" version="6.1.1" targetFramework="net451" />
<package id="Newtonsoft.Json" version="10.0.3" targetFramework="net451" /> <package id="Newtonsoft.Json" version="10.0.3" targetFramework="net451" />
<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" 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.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.EF6" version="1.0.94.0" targetFramework="net451" />

33
app/ResultHandler_Konfig/App.config
View File

@@ -1,18 +1,17 @@
<?xml version="1.0" encoding="utf-8"?> <?xml version="1.0" encoding="utf-8"?>
<configuration> <configuration>
<configSections> <configSections>
<sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089"> <sectionGroup name="userSettings" type="System.Configuration.UserSettingsGroup, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<section name="ResultHandler_Konfig.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false"/> <section name="ResultHandler_Konfig.My.MySettings" type="System.Configuration.ClientSettingsSection, System, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" allowExeDefinition="MachineToLocalUser" requirePermission="false" />
</sectionGroup> </sectionGroup>
<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 --> <!-- 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"/>
</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" <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" />
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" />
</startup> </startup>
<userSettings> <userSettings>
<ResultHandler_Konfig.My.MySettings> <ResultHandler_Konfig.My.MySettings>
@@ -30,21 +29,29 @@
within the resulting "app.config" or "web.config" file. within the resulting "app.config" or "web.config" file.
--> -->
<DbProviderFactories> <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"/> <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" />
<remove invariant="System.Data.SQLite.EF6"/> <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"/> <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> </DbProviderFactories>
</system.data> </system.data>
<entityFramework> <entityFramework>
<defaultConnectionFactory type="System.Data.Entity.Infrastructure.LocalDbConnectionFactory, EntityFramework"> <defaultConnectionFactory type="System.Data.Entity.Infrastructure.LocalDbConnectionFactory, EntityFramework">
<parameters> <parameters>
<parameter value="v11.0"/> <parameter value="v11.0" />
</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>
<assemblyBinding xmlns="urn:schemas-microsoft-com:asm.v1">
<dependentAssembly>
<assemblyIdentity name="Newtonsoft.Json" publicKeyToken="30ad4fe6b2a6aeed" culture="neutral" />
<bindingRedirect oldVersion="0.0.0.0-10.0.0.0" newVersion="10.0.0.0" />
</dependentAssembly>
</assemblyBinding>
</runtime>
</configuration> </configuration>

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

@@ -1808,6 +1808,10 @@ Partial Public Class MyDataset
Private columnGEAENDERTWANN As Global.System.Data.DataColumn Private columnGEAENDERTWANN As Global.System.Data.DataColumn
Private columnSTRING5 As Global.System.Data.DataColumn
Private columnSTRING6 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()
@@ -1979,6 +1983,22 @@ 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 STRING5Column() As Global.System.Data.DataColumn
Get
Return Me.columnSTRING5
End Get
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public ReadOnly Property STRING6Column() As Global.System.Data.DataColumn
Get
Return Me.columnSTRING6
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)> _
@@ -2032,9 +2052,11 @@ Partial Public Class MyDataset
ByVal ERSTELLTWER As String, _ ByVal ERSTELLTWER As String, _
ByVal ERSTELLTWANN As Date, _ ByVal ERSTELLTWANN As Date, _
ByVal GEAENDERTWER As String, _ ByVal GEAENDERTWER As String, _
ByVal GEAENDERTWANN As Date) As TBWMRH_PROFIL_JOBRow ByVal GEAENDERTWANN As Date, _
ByVal STRING5 As String, _
ByVal STRING6 As String) As TBWMRH_PROFIL_JOBRow
Dim rowTBWMRH_PROFIL_JOBRow As TBWMRH_PROFIL_JOBRow = CType(Me.NewRow,TBWMRH_PROFIL_JOBRow) Dim rowTBWMRH_PROFIL_JOBRow As TBWMRH_PROFIL_JOBRow = CType(Me.NewRow,TBWMRH_PROFIL_JOBRow)
Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN} Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN, STRING5, STRING6}
If (Not (parentTBWMRH_PROFILRowByFK_TBPROFIL_JOB_PROFILID) Is Nothing) Then If (Not (parentTBWMRH_PROFILRowByFK_TBPROFIL_JOB_PROFILID) Is Nothing) Then
columnValuesArray(1) = parentTBWMRH_PROFILRowByFK_TBPROFIL_JOB_PROFILID(0) columnValuesArray(1) = parentTBWMRH_PROFILRowByFK_TBPROFIL_JOB_PROFILID(0)
End If End If
@@ -2083,6 +2105,8 @@ Partial Public Class MyDataset
Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN")
Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER") Me.columnGEAENDERTWER = MyBase.Columns("GEAENDERTWER")
Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN")
Me.columnSTRING5 = MyBase.Columns("STRING5")
Me.columnSTRING6 = MyBase.Columns("STRING6")
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -2122,6 +2146,10 @@ Partial Public Class MyDataset
MyBase.Columns.Add(Me.columnGEAENDERTWER) MyBase.Columns.Add(Me.columnGEAENDERTWER)
Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnGEAENDERTWANN) MyBase.Columns.Add(Me.columnGEAENDERTWANN)
Me.columnSTRING5 = New Global.System.Data.DataColumn("STRING5", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSTRING5)
Me.columnSTRING6 = New Global.System.Data.DataColumn("STRING6", GetType(String), Nothing, Global.System.Data.MappingType.Element)
MyBase.Columns.Add(Me.columnSTRING6)
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
@@ -2143,6 +2171,8 @@ Partial Public Class MyDataset
Me.columnREIHENFOLGE.DefaultValue = CType(1,Integer) Me.columnREIHENFOLGE.DefaultValue = CType(1,Integer)
Me.columnERSTELLTWER.MaxLength = 50 Me.columnERSTELLTWER.MaxLength = 50
Me.columnGEAENDERTWER.MaxLength = 50 Me.columnGEAENDERTWER.MaxLength = 50
Me.columnSTRING5.MaxLength = 2147483647
Me.columnSTRING6.MaxLength = 2147483647
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -3746,6 +3776,36 @@ 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 STRING5() As String
Get
Try
Return CType(Me(Me.tableTBWMRH_PROFIL_JOB.STRING5Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STRING5 in Tabelle TBWMRH_PROFIL_JOB ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBWMRH_PROFIL_JOB.STRING5Column) = value
End Set
End Property
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Property STRING6() As String
Get
Try
Return CType(Me(Me.tableTBWMRH_PROFIL_JOB.STRING6Column),String)
Catch e As Global.System.InvalidCastException
Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STRING6 in Tabelle TBWMRH_PROFIL_JOB ist DBNull.", e)
End Try
End Get
Set
Me(Me.tableTBWMRH_PROFIL_JOB.STRING6Column) = 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 Property TBWMRH_PROFILRow() As TBWMRH_PROFILRow Public Property TBWMRH_PROFILRow() As TBWMRH_PROFILRow
@@ -3924,6 +3984,30 @@ Partial Public Class MyDataset
Public Sub SetGEAENDERTWANNNull() Public Sub SetGEAENDERTWANNNull()
Me(Me.tableTBWMRH_PROFIL_JOB.GEAENDERTWANNColumn) = Global.System.Convert.DBNull Me(Me.tableTBWMRH_PROFIL_JOB.GEAENDERTWANNColumn) = Global.System.Convert.DBNull
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsSTRING5Null() As Boolean
Return Me.IsNull(Me.tableTBWMRH_PROFIL_JOB.STRING5Column)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetSTRING5Null()
Me(Me.tableTBWMRH_PROFIL_JOB.STRING5Column) = Global.System.Convert.DBNull
End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Function IsSTRING6Null() As Boolean
Return Me.IsNull(Me.tableTBWMRH_PROFIL_JOB.STRING6Column)
End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0")> _
Public Sub SetSTRING6Null()
Me(Me.tableTBWMRH_PROFIL_JOB.STRING6Column) = Global.System.Convert.DBNull
End Sub
End Class End Class
'''<summary> '''<summary>
@@ -5661,6 +5745,8 @@ Namespace MyDatasetTableAdapters
tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN")
tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER") tableMapping.ColumnMappings.Add("GEAENDERTWER", "GEAENDERTWER")
tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN")
tableMapping.ColumnMappings.Add("STRING5", "STRING5")
tableMapping.ColumnMappings.Add("STRING6", "STRING6")
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
@@ -5671,11 +5757,12 @@ Namespace MyDatasetTableAdapters
Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.Connection = Me.Connection
Me._adapter.InsertCommand.CommandText = "INSERT INTO TBWMRH_PROFIL_JOB"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, JOB_TYP, STRI"& _ Me._adapter.InsertCommand.CommandText = "INSERT INTO TBWMRH_PROFIL_JOB"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFIL_ID, JOB_TYP, STRI"& _
"NG1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, "& _ "NG1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, "& _
"ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID,@JOB_TYP,@STRING1,@STRING2,@STRING3,@STR"& _ "ERSTELLTWER, STRING5, STRING6)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFIL_ID,@JOB_TYP,@STRING1,@STR"& _
"ING4,@BOOL1,@BOOL2,@BOOL3,@BOOL4,@AKTIV,@REIHENFOLGE,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUI"& _ "ING2,@STRING3,@STRING4,@BOOL1,@BOOL2,@BOOL3,@BOOL4,@AKTIV,@REIHENFOLGE,@ERSTELLT"& _
"D, PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, "& _ "WER,@STRING5,@STRING6); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_ID, JOB_TYP, STRING1, STRING2, ST"& _
"BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWAN"& _ "RING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERS"& _
"N FROM TBWMRH_PROFIL_JOB WHERE (GUID = SCOPE_IDENTITY())" "TELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL_JOB WHERE (GUID = SCOP"& _
"E_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, 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("@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("@JOB_TYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "JOB_TYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JOB_TYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "JOB_TYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
@@ -5690,70 +5777,36 @@ Namespace MyDatasetTableAdapters
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("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REIHENFOLGE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "REIHENFOLGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@REIHENFOLGE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "REIHENFOLGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@STRING5", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING6", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING6", 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_JOB] SET [PROFIL_ID] = @PROFIL_ID, [JOB_TYP] = @JOB_TYP, [S"& _ Me._adapter.UpdateCommand.CommandText = "UPDATE TBWMRH_PROFIL_JOB"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFIL_ID = @PROFIL_ID, JOB_TY"& _
"TRING1] = @STRING1, [STRING2] = @STRING2, [STRING3] = @STRING3, [STRING4] = @STR"& _ "P = @JOB_TYP, STRING1 = @STRING1, STRING2 = @STRING2, STRING3 = @STRING3, STRING"& _
"ING4, [BOOL1] = @BOOL1, [BOOL2] = @BOOL2, [BOOL3] = @BOOL3, [BOOL4] = @BOOL4, [A"& _ "4 = @STRING4, BOOL1 = @BOOL1, BOOL2 = @BOOL2, BOOL3 = @BOOL3, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _
"KTIV] = @AKTIV, [REIHENFOLGE] = @REIHENFOLGE, [ERSTELLTWER] = @ERSTELLTWER, [ERS"& _ " BOOL4 = @BOOL4, AKTIV = @AKTIV, REIHENFOLGE = @REIHENFOLGE, GEAENDERTWE"& _
"TELLTWANN] = @ERSTELLTWANN, [GEAENDERTWER] = @GEAENDERTWER, [GEAENDERTWANN] = @G"& _ "R = @GEAENDERTWER, STRING5 = @STRING5, STRING6 = @STRING6"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = "& _
"EAENDERTWANN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_PROFIL_ID = 1 AND [P"& _ "@Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, S"& _
"ROFIL_ID] IS NULL) OR ([PROFIL_ID] = @Original_PROFIL_ID)) AND ([JOB_TYP] = @Ori"& _ "TRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWAN"& _
"ginal_JOB_TYP) AND ((@IsNull_BOOL1 = 1 AND [BOOL1] IS NULL) OR ([BOOL1] = @Origi"& _ "N, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL_JOB WHERE (GUID = @GUID)"
"nal_BOOL1)) AND ((@IsNull_BOOL2 = 1 AND [BOOL2] IS NULL) OR ([BOOL2] = @Original"& _
"_BOOL2)) AND ((@IsNull_BOOL3 = 1 AND [BOOL3] IS NULL) OR ([BOOL3] = @Original_BO"& _
"OL3)) AND ((@IsNull_BOOL4 = 1 AND [BOOL4] IS NULL) OR ([BOOL4] = @Original_BOOL4"& _
")) AND ((@IsNull_AKTIV = 1 AND [AKTIV] IS NULL) OR ([AKTIV] = @Original_AKTIV)) "& _
"AND ([REIHENFOLGE] = @Original_REIHENFOLGE) AND ((@IsNull_ERSTELLTWER = 1 AND [E"& _
"RSTELLTWER] IS NULL) OR ([ERSTELLTWER] = @Original_ERSTELLTWER)) AND ((@IsNull_E"& _
"RSTELLTWANN = 1 AND [ERSTELLTWANN] IS NULL) OR ([ERSTELLTWANN] = @Original_ERSTE"& _
"LLTWANN)) AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER] IS NULL) OR ([GEAEND"& _
"ERTWER] = @Original_GEAENDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDER"& _
"TWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, "& _
"PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOO"& _
"L4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN F"& _
"ROM TBWMRH_PROFIL_JOB 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("@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.UpdateCommand.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.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JOB_TYP", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JOB_TYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@JOB_TYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "JOB_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, 0, 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, "", "", ""))
Me._adapter.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.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.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.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.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING5", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.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.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING6", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.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.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, 0, 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("@IsNull_PROFIL_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFIL_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_JOB_TYP", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "JOB_TYP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BOOL1", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL1", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOOL1", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL1", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BOOL2", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL2", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOOL2", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL2", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BOOL3", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL3", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOOL3", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL3", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BOOL4", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL4", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BOOL4", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BOOL4", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_AKTIV", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_REIHENFOLGE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "REIHENFOLGE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ERSTELLTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ERSTELLTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", ""))
Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", 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.Current, false, Nothing, "", "", ""))
End Sub End Sub
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _ <Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
@@ -5771,8 +5824,8 @@ Namespace MyDatasetTableAdapters
Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).Connection = Me.Connection
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"&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 = "& _ "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 "& _
"@PID)" "TBWMRH_PROFIL_JOB"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (PROFIL_ID = @PID)"
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()
@@ -5869,7 +5922,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 PROFIL_ID As Global.System.Nullable(Of Integer), ByVal JOB_TYP As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal BOOL1 As Global.System.Nullable(Of Boolean), ByVal BOOL2 As Global.System.Nullable(Of Boolean), ByVal BOOL3 As Global.System.Nullable(Of Boolean), ByVal BOOL4 As Global.System.Nullable(Of Boolean), ByVal AKTIV As Global.System.Nullable(Of Boolean), ByVal REIHENFOLGE As Integer, ByVal ERSTELLTWER As String) As Integer Public Overloads Overridable Function Insert(ByVal PROFIL_ID As Global.System.Nullable(Of Integer), ByVal JOB_TYP As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal BOOL1 As Global.System.Nullable(Of Boolean), ByVal BOOL2 As Global.System.Nullable(Of Boolean), ByVal BOOL3 As Global.System.Nullable(Of Boolean), ByVal BOOL4 As Global.System.Nullable(Of Boolean), ByVal AKTIV As Global.System.Nullable(Of Boolean), ByVal REIHENFOLGE As Integer, ByVal ERSTELLTWER As String, ByVal STRING5 As String, ByVal STRING6 As String) As Integer
If (PROFIL_ID.HasValue = true) Then If (PROFIL_ID.HasValue = true) Then
Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFIL_ID.Value,Integer) Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFIL_ID.Value,Integer)
Else Else
@@ -5931,6 +5984,16 @@ 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 (STRING5 Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(13).Value = CType(STRING5,String)
End If
If (STRING6 Is Nothing) Then
Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value
Else
Me.Adapter.InsertCommand.Parameters(14).Value = CType(STRING6,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
@@ -5963,23 +6026,10 @@ Namespace MyDatasetTableAdapters
ByVal BOOL4 As Global.System.Nullable(Of Boolean), _ ByVal BOOL4 As Global.System.Nullable(Of Boolean), _
ByVal AKTIV As Global.System.Nullable(Of Boolean), _ ByVal AKTIV As Global.System.Nullable(Of Boolean), _
ByVal REIHENFOLGE As Integer, _ ByVal REIHENFOLGE As Integer, _
ByVal ERSTELLTWER As String, _
ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), _
ByVal GEAENDERTWER As String, _ ByVal GEAENDERTWER As String, _
ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), _ ByVal STRING5 As String, _
ByVal STRING6 As String, _
ByVal Original_GUID As Integer, _ ByVal Original_GUID As Integer, _
ByVal Original_PROFIL_ID As Global.System.Nullable(Of Integer), _
ByVal Original_JOB_TYP As String, _
ByVal Original_BOOL1 As Global.System.Nullable(Of Boolean), _
ByVal Original_BOOL2 As Global.System.Nullable(Of Boolean), _
ByVal Original_BOOL3 As Global.System.Nullable(Of Boolean), _
ByVal Original_BOOL4 As Global.System.Nullable(Of Boolean), _
ByVal Original_AKTIV As Global.System.Nullable(Of Boolean), _
ByVal Original_REIHENFOLGE As Integer, _
ByVal Original_ERSTELLTWER As String, _
ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), _
ByVal Original_GEAENDERTWER As String, _
ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date), _
ByVal GUID As Integer) As Integer ByVal GUID As Integer) As Integer
If (PROFIL_ID.HasValue = true) Then If (PROFIL_ID.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFIL_ID.Value,Integer) Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFIL_ID.Value,Integer)
@@ -6037,104 +6087,23 @@ Namespace MyDatasetTableAdapters
Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value
End If End If
Me.Adapter.UpdateCommand.Parameters(11).Value = CType(REIHENFOLGE,Integer) Me.Adapter.UpdateCommand.Parameters(11).Value = CType(REIHENFOLGE,Integer)
If (ERSTELLTWER Is Nothing) Then If (GEAENDERTWER Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value
Else Else
Me.Adapter.UpdateCommand.Parameters(12).Value = CType(ERSTELLTWER,String) Me.Adapter.UpdateCommand.Parameters(12).Value = CType(GEAENDERTWER,String)
End If End If
If (ERSTELLTWANN.HasValue = true) Then If (STRING5 Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(ERSTELLTWANN.Value,Date)
Else
Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(13).Value = CType(STRING5,String)
End If End If
If (GEAENDERTWER Is Nothing) Then If (STRING6 Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value
Else Else
Me.Adapter.UpdateCommand.Parameters(14).Value = CType(GEAENDERTWER,String) Me.Adapter.UpdateCommand.Parameters(14).Value = CType(STRING6,String)
End If End If
If (GEAENDERTWANN.HasValue = true) Then Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GUID,Integer)
Me.Adapter.UpdateCommand.Parameters(15).Value = CType(GEAENDERTWANN.Value,Date) Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Integer)
Else
Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value
End If
Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_GUID,Integer)
If (Original_PROFIL_ID.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_PROFIL_ID.Value,Integer)
Else
Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value
End If
If (Original_JOB_TYP Is Nothing) Then
Throw New Global.System.ArgumentNullException("Original_JOB_TYP")
Else
Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_JOB_TYP,String)
End If
If (Original_BOOL1.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(21).Value = CType(Original_BOOL1.Value,Boolean)
Else
Me.Adapter.UpdateCommand.Parameters(20).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(21).Value = Global.System.DBNull.Value
End If
If (Original_BOOL2.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(23).Value = CType(Original_BOOL2.Value,Boolean)
Else
Me.Adapter.UpdateCommand.Parameters(22).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value
End If
If (Original_BOOL3.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_BOOL3.Value,Boolean)
Else
Me.Adapter.UpdateCommand.Parameters(24).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(25).Value = Global.System.DBNull.Value
End If
If (Original_BOOL4.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(26).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_BOOL4.Value,Boolean)
Else
Me.Adapter.UpdateCommand.Parameters(26).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(27).Value = Global.System.DBNull.Value
End If
If (Original_AKTIV.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(28).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_AKTIV.Value,Boolean)
Else
Me.Adapter.UpdateCommand.Parameters(28).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(29).Value = Global.System.DBNull.Value
End If
Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_REIHENFOLGE,Integer)
If (Original_ERSTELLTWER Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(31).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(32).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(31).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_ERSTELLTWER,String)
End If
If (Original_ERSTELLTWANN.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(33).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_ERSTELLTWANN.Value,Date)
Else
Me.Adapter.UpdateCommand.Parameters(33).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value
End If
If (Original_GEAENDERTWER Is Nothing) Then
Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value
Else
Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_GEAENDERTWER,String)
End If
If (Original_GEAENDERTWANN.HasValue = true) Then
Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object)
Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_GEAENDERTWANN.Value,Date)
Else
Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object)
Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value
End If
Me.Adapter.UpdateCommand.Parameters(39).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
@@ -6150,43 +6119,6 @@ Namespace MyDatasetTableAdapters
End Try End Try
End Function End Function
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "15.0.0.0"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _
Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _
Public Overloads Overridable Function Update( _
ByVal PROFIL_ID As Global.System.Nullable(Of Integer), _
ByVal JOB_TYP As String, _
ByVal STRING1 As String, _
ByVal STRING2 As String, _
ByVal STRING3 As String, _
ByVal STRING4 As String, _
ByVal BOOL1 As Global.System.Nullable(Of Boolean), _
ByVal BOOL2 As Global.System.Nullable(Of Boolean), _
ByVal BOOL3 As Global.System.Nullable(Of Boolean), _
ByVal BOOL4 As Global.System.Nullable(Of Boolean), _
ByVal AKTIV As Global.System.Nullable(Of 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), _
ByVal Original_GUID As Integer, _
ByVal Original_PROFIL_ID As Global.System.Nullable(Of Integer), _
ByVal Original_JOB_TYP As String, _
ByVal Original_BOOL1 As Global.System.Nullable(Of Boolean), _
ByVal Original_BOOL2 As Global.System.Nullable(Of Boolean), _
ByVal Original_BOOL3 As Global.System.Nullable(Of Boolean), _
ByVal Original_BOOL4 As Global.System.Nullable(Of Boolean), _
ByVal Original_AKTIV As Global.System.Nullable(Of Boolean), _
ByVal Original_REIHENFOLGE As Integer, _
ByVal Original_ERSTELLTWER As String, _
ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), _
ByVal Original_GEAENDERTWER As String, _
ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer
Return Me.Update(PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN, Original_GUID, Original_PROFIL_ID, Original_JOB_TYP, Original_BOOL1, Original_BOOL2, Original_BOOL3, Original_BOOL4, Original_AKTIV, Original_REIHENFOLGE, Original_ERSTELLTWER, Original_ERSTELLTWANN, Original_GEAENDERTWER, Original_GEAENDERTWANN, Original_GUID)
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"), _
Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _

131
app/ResultHandler_Konfig/MyDataset.xsd
View File

@@ -264,31 +264,34 @@ WHERE (GUID = @Original_GUID)</CommandText>
</DbCommand> </DbCommand>
</DeleteCommand> </DeleteCommand>
<InsertCommand> <InsertCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <DbCommand CommandType="Text" ModifiedByUser="true">
<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) (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); 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="" 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="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="JOB_TYP" ColumnName="JOB_TYP" DataSourceName="" 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="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@JOB_TYP" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="JOB_TYP" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING1" ColumnName="STRING1" DataSourceName="" 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="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING1" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING1" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING2" ColumnName="STRING2" DataSourceName="" 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="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING2" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING2" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING3" ColumnName="STRING3" DataSourceName="" 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="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING3" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING4" ColumnName="STRING4" DataSourceName="" 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="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING4" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING4" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BOOL1" ColumnName="BOOL1" DataSourceName="" 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="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL1" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL1" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BOOL2" ColumnName="BOOL2" DataSourceName="" 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="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL2" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL2" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BOOL3" ColumnName="BOOL3" DataSourceName="" 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="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL3" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL3" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="BOOL4" ColumnName="BOOL4" DataSourceName="" 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="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@BOOL4" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="BOOL4" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="AKTIV" ColumnName="AKTIV" DataSourceName="" 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="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="REIHENFOLGE" ColumnName="REIHENFOLGE" DataSourceName="" 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="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@REIHENFOLGE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="REIHENFOLGE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="ERSTELLTWER" ColumnName="ERSTELLTWER" DataSourceName="" 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="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@ERSTELLTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING5" ColumnName="STRING5" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING5" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING5" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="STRING6" ColumnName="STRING6" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(MAX)" DbType="AnsiString" Direction="Input" ParameterName="@STRING6" Precision="0" ProviderType="VarChar" Scale="0" Size="2147483647" SourceColumn="STRING6" SourceColumnNullMapping="false" SourceVersion="Current" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</InsertCommand> </InsertCommand>
<SelectCommand> <SelectCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <DbCommand CommandType="Text" ModifiedByUser="false">
<CommandText>SELECT GUID, PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN <CommandText>SELECT GUID, PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN, STRING5,
STRING6
FROM TBWMRH_PROFIL_JOB FROM TBWMRH_PROFIL_JOB
WHERE (PROFIL_ID = @PID)</CommandText> WHERE (PROFIL_ID = @PID)</CommandText>
<Parameters> <Parameters>
@@ -297,50 +300,30 @@ WHERE (PROFIL_ID = @PID)</CommandText>
</DbCommand> </DbCommand>
</SelectCommand> </SelectCommand>
<UpdateCommand> <UpdateCommand>
<DbCommand CommandType="Text" ModifiedByUser="false"> <DbCommand CommandType="Text" ModifiedByUser="true">
<CommandText>UPDATE [TBWMRH_PROFIL_JOB] SET [PROFIL_ID] = @PROFIL_ID, [JOB_TYP] = @JOB_TYP, [STRING1] = @STRING1, [STRING2] = @STRING2, [STRING3] = @STRING3, [STRING4] = @STRING4, [BOOL1] = @BOOL1, [BOOL2] = @BOOL2, [BOOL3] = @BOOL3, [BOOL4] = @BOOL4, [AKTIV] = @AKTIV, [REIHENFOLGE] = @REIHENFOLGE, [ERSTELLTWER] = @ERSTELLTWER, [ERSTELLTWANN] = @ERSTELLTWANN, [GEAENDERTWER] = @GEAENDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_PROFIL_ID = 1 AND [PROFIL_ID] IS NULL) OR ([PROFIL_ID] = @Original_PROFIL_ID)) AND ([JOB_TYP] = @Original_JOB_TYP) AND ((@IsNull_BOOL1 = 1 AND [BOOL1] IS NULL) OR ([BOOL1] = @Original_BOOL1)) AND ((@IsNull_BOOL2 = 1 AND [BOOL2] IS NULL) OR ([BOOL2] = @Original_BOOL2)) AND ((@IsNull_BOOL3 = 1 AND [BOOL3] IS NULL) OR ([BOOL3] = @Original_BOOL3)) AND ((@IsNull_BOOL4 = 1 AND [BOOL4] IS NULL) OR ([BOOL4] = @Original_BOOL4)) AND ((@IsNull_AKTIV = 1 AND [AKTIV] IS NULL) OR ([AKTIV] = @Original_AKTIV)) AND ([REIHENFOLGE] = @Original_REIHENFOLGE) AND ((@IsNull_ERSTELLTWER = 1 AND [ERSTELLTWER] IS NULL) OR ([ERSTELLTWER] = @Original_ERSTELLTWER)) AND ((@IsNull_ERSTELLTWANN = 1 AND [ERSTELLTWANN] IS NULL) OR ([ERSTELLTWANN] = @Original_ERSTELLTWANN)) AND ((@IsNull_GEAENDERTWER = 1 AND [GEAENDERTWER] IS NULL) OR ([GEAENDERTWER] = @Original_GEAENDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWANN] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN))); <CommandText>UPDATE TBWMRH_PROFIL_JOB
SET PROFIL_ID = @PROFIL_ID, JOB_TYP = @JOB_TYP, STRING1 = @STRING1, STRING2 = @STRING2, STRING3 = @STRING3, STRING4 = @STRING4, BOOL1 = @BOOL1, BOOL2 = @BOOL2, BOOL3 = @BOOL3,
BOOL4 = @BOOL4, AKTIV = @AKTIV, REIHENFOLGE = @REIHENFOLGE, GEAENDERTWER = @GEAENDERTWER, STRING5 = @STRING5, STRING6 = @STRING6
WHERE (GUID = @Original_GUID);
SELECT GUID, PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL2, BOOL3, BOOL4, AKTIV, REIHENFOLGE, ERSTELLTWER, ERSTELLTWANN, GEAENDERTWER, GEAENDERTWANN FROM TBWMRH_PROFIL_JOB WHERE (GUID = @GUID)</CommandText> 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="" 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="true" AutogeneratedName="PROFIL_ID" ColumnName="PROFIL_ID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@JOB_TYP" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="JOB_TYP" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="JOB_TYP" ColumnName="JOB_TYP" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="varchar(50)" DbType="AnsiString" Direction="Input" ParameterName="@JOB_TYP" Precision="0" ProviderType="VarChar" Scale="0" Size="50" SourceColumn="JOB_TYP" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" 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="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="" 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="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="" 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="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="" 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="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="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@BOOL1" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL1" 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="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@BOOL2" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL2" 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="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@BOOL3" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL3" 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="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@BOOL4" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL4" 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="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="true" AutogeneratedName="AKTIV" ColumnName="AKTIV" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="bit" DbType="Boolean" Direction="Input" ParameterName="@AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="1" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="false" AutogeneratedName="" 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="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@REIHENFOLGE" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="REIHENFOLGE" SourceColumnNullMapping="false" SourceVersion="Current" />
<Parameter AllowDbNull="true" AutogeneratedName="" 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="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="" 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="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="" 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="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="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@GEAENDERTWANN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="GEAENDERTWANN" SourceColumnNullMapping="false" SourceVersion="Current" /> <Parameter AllowDbNull="false" AutogeneratedName="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="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_GUID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" /> <Parameter AllowDbNull="false" AutogeneratedName="GUID" ColumnName="GUID" DataSourceName="DD_ECM_RENOLIT.dbo.TBWMRH_PROFIL_JOB" DataTypeServer="int" DbType="Int32" Direction="Input" ParameterName="@GUID" Precision="0" ProviderType="Int" Scale="0" Size="4" SourceColumn="GUID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="PROFIL_ID" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_PROFIL_ID" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="PROFIL_ID" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_JOB_TYP" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="JOB_TYP" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_BOOL1" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="BOOL1" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@Original_BOOL1" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL1" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_BOOL2" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="BOOL2" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@Original_BOOL2" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL2" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_BOOL3" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="BOOL3" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@Original_BOOL3" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL3" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_BOOL4" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="BOOL4" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@Original_BOOL4" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="BOOL4" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_AKTIV" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="AKTIV" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Boolean" Direction="Input" ParameterName="@Original_AKTIV" Precision="0" ProviderType="Bit" Scale="0" Size="0" SourceColumn="AKTIV" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="false" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@Original_REIHENFOLGE" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="REIHENFOLGE" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_ERSTELLTWER" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_ERSTELLTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="ERSTELLTWER" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_ERSTELLTWANN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="ERSTELLTWANN" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_ERSTELLTWANN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="ERSTELLTWANN" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_GEAENDERTWER" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GEAENDERTWER" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="AnsiString" Direction="Input" ParameterName="@Original_GEAENDERTWER" Precision="0" ProviderType="VarChar" Scale="0" Size="0" SourceColumn="GEAENDERTWER" SourceColumnNullMapping="false" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="Int32" Direction="Input" ParameterName="@IsNull_GEAENDERTWANN" Precision="0" ProviderType="Int" Scale="0" Size="0" SourceColumn="GEAENDERTWANN" SourceColumnNullMapping="true" SourceVersion="Original" />
<Parameter AllowDbNull="true" AutogeneratedName="" DataSourceName="" DbType="DateTime" Direction="Input" ParameterName="@Original_GEAENDERTWANN" Precision="0" ProviderType="DateTime" Scale="0" Size="0" SourceColumn="GEAENDERTWANN" 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="Current" />
</Parameters> </Parameters>
</DbCommand> </DbCommand>
</UpdateCommand> </UpdateCommand>
@@ -364,6 +347,8 @@ SELECT GUID, PROFIL_ID, JOB_TYP, STRING1, STRING2, STRING3, STRING4, BOOL1, BOOL
<Mapping SourceColumn="ERSTELLTWANN" DataSetColumn="ERSTELLTWANN" /> <Mapping SourceColumn="ERSTELLTWANN" DataSetColumn="ERSTELLTWANN" />
<Mapping SourceColumn="GEAENDERTWER" DataSetColumn="GEAENDERTWER" /> <Mapping SourceColumn="GEAENDERTWER" DataSetColumn="GEAENDERTWER" />
<Mapping SourceColumn="GEAENDERTWANN" DataSetColumn="GEAENDERTWANN" /> <Mapping SourceColumn="GEAENDERTWANN" DataSetColumn="GEAENDERTWANN" />
<Mapping SourceColumn="STRING5" DataSetColumn="STRING5" />
<Mapping SourceColumn="STRING6" DataSetColumn="STRING6" />
</Mappings> </Mappings>
<Sources> <Sources>
<DbSource ConnectionRef="SQLSERVER_CS (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="DeleteforPROFIL" Modifier="Public" Name="DeleteforPROFIL" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="DeleteforPROFIL"> <DbSource ConnectionRef="SQLSERVER_CS (MySettings)" DbObjectName="" DbObjectType="Unknown" GenerateShortCommands="true" GeneratorSourceName="DeleteforPROFIL" Modifier="Public" Name="DeleteforPROFIL" QueryType="NoData" ScalarCallRetval="System.Object, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" UseOptimisticConcurrency="true" UserGetMethodName="GetDataBy" UserSourceName="DeleteforPROFIL">
@@ -466,7 +451,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A
<xs:element name="MyDataset" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="MyDataset" msprop:Generator_UserDSName="MyDataset"> <xs:element name="MyDataset" msdata:IsDataSet="true" msdata:UseCurrentLocale="true" msprop:EnableTableAdapterManager="true" msprop:Generator_DataSetName="MyDataset" msprop:Generator_UserDSName="MyDataset">
<xs:complexType> <xs:complexType>
<xs:choice minOccurs="0" maxOccurs="unbounded"> <xs:choice minOccurs="0" maxOccurs="unbounded">
<xs:element name="TBWMRH_KONFIGURATION" msprop:Generator_TableClassName="TBWMRH_KONFIGURATIONDataTable" msprop:Generator_TableVarName="tableTBWMRH_KONFIGURATION" msprop:Generator_TablePropName="TBWMRH_KONFIGURATION" msprop:Generator_RowDeletingName="TBWMRH_KONFIGURATIONRowDeleting" msprop:Generator_RowChangingName="TBWMRH_KONFIGURATIONRowChanging" msprop:Generator_RowEvHandlerName="TBWMRH_KONFIGURATIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWMRH_KONFIGURATIONRowDeleted" msprop:Generator_UserTableName="TBWMRH_KONFIGURATION" msprop:Generator_RowChangedName="TBWMRH_KONFIGURATIONRowChanged" msprop:Generator_RowEvArgName="TBWMRH_KONFIGURATIONRowChangeEvent" msprop:Generator_RowClassName="TBWMRH_KONFIGURATIONRow"> <xs:element name="TBWMRH_KONFIGURATION" msprop:Generator_TableClassName="TBWMRH_KONFIGURATIONDataTable" msprop:Generator_TableVarName="tableTBWMRH_KONFIGURATION" msprop:Generator_RowChangedName="TBWMRH_KONFIGURATIONRowChanged" msprop:Generator_TablePropName="TBWMRH_KONFIGURATION" msprop:Generator_RowDeletingName="TBWMRH_KONFIGURATIONRowDeleting" msprop:Generator_RowChangingName="TBWMRH_KONFIGURATIONRowChanging" msprop:Generator_RowEvHandlerName="TBWMRH_KONFIGURATIONRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWMRH_KONFIGURATIONRowDeleted" msprop:Generator_RowClassName="TBWMRH_KONFIGURATIONRow" msprop:Generator_UserTableName="TBWMRH_KONFIGURATION" msprop:Generator_RowEvArgName="TBWMRH_KONFIGURATIONRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -505,7 +490,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBWMRH_PROFIL" msprop:Generator_TableClassName="TBWMRH_PROFILDataTable" msprop:Generator_TableVarName="tableTBWMRH_PROFIL" msprop:Generator_TablePropName="TBWMRH_PROFIL" msprop:Generator_RowDeletingName="TBWMRH_PROFILRowDeleting" msprop:Generator_RowChangingName="TBWMRH_PROFILRowChanging" msprop:Generator_RowEvHandlerName="TBWMRH_PROFILRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWMRH_PROFILRowDeleted" msprop:Generator_UserTableName="TBWMRH_PROFIL" msprop:Generator_RowChangedName="TBWMRH_PROFILRowChanged" msprop:Generator_RowEvArgName="TBWMRH_PROFILRowChangeEvent" msprop:Generator_RowClassName="TBWMRH_PROFILRow"> <xs:element name="TBWMRH_PROFIL" msprop:Generator_TableClassName="TBWMRH_PROFILDataTable" msprop:Generator_TableVarName="tableTBWMRH_PROFIL" msprop:Generator_RowChangedName="TBWMRH_PROFILRowChanged" msprop:Generator_TablePropName="TBWMRH_PROFIL" msprop:Generator_RowDeletingName="TBWMRH_PROFILRowDeleting" msprop:Generator_RowChangingName="TBWMRH_PROFILRowChanging" msprop:Generator_RowEvHandlerName="TBWMRH_PROFILRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWMRH_PROFILRowDeleted" msprop:Generator_RowClassName="TBWMRH_PROFILRow" msprop:Generator_UserTableName="TBWMRH_PROFIL" msprop:Generator_RowEvArgName="TBWMRH_PROFILRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -567,7 +552,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBWMRH_PROFIL_FILE_JOB" msprop:Generator_TableClassName="TBWMRH_PROFIL_FILE_JOBDataTable" msprop:Generator_TableVarName="tableTBWMRH_PROFIL_FILE_JOB" msprop:Generator_TablePropName="TBWMRH_PROFIL_FILE_JOB" msprop:Generator_RowDeletingName="TBWMRH_PROFIL_FILE_JOBRowDeleting" msprop:Generator_RowChangingName="TBWMRH_PROFIL_FILE_JOBRowChanging" msprop:Generator_RowEvHandlerName="TBWMRH_PROFIL_FILE_JOBRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWMRH_PROFIL_FILE_JOBRowDeleted" msprop:Generator_UserTableName="TBWMRH_PROFIL_FILE_JOB" msprop:Generator_RowChangedName="TBWMRH_PROFIL_FILE_JOBRowChanged" msprop:Generator_RowEvArgName="TBWMRH_PROFIL_FILE_JOBRowChangeEvent" msprop:Generator_RowClassName="TBWMRH_PROFIL_FILE_JOBRow"> <xs:element name="TBWMRH_PROFIL_FILE_JOB" msprop:Generator_TableClassName="TBWMRH_PROFIL_FILE_JOBDataTable" msprop:Generator_TableVarName="tableTBWMRH_PROFIL_FILE_JOB" msprop:Generator_RowChangedName="TBWMRH_PROFIL_FILE_JOBRowChanged" msprop:Generator_TablePropName="TBWMRH_PROFIL_FILE_JOB" msprop:Generator_RowDeletingName="TBWMRH_PROFIL_FILE_JOBRowDeleting" msprop:Generator_RowChangingName="TBWMRH_PROFIL_FILE_JOBRowChanging" msprop:Generator_RowEvHandlerName="TBWMRH_PROFIL_FILE_JOBRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWMRH_PROFIL_FILE_JOBRowDeleted" msprop:Generator_RowClassName="TBWMRH_PROFIL_FILE_JOBRow" msprop:Generator_UserTableName="TBWMRH_PROFIL_FILE_JOB" msprop:Generator_RowEvArgName="TBWMRH_PROFIL_FILE_JOBRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -632,7 +617,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBWMRH_PROFIL_JOB" msprop:Generator_TableClassName="TBWMRH_PROFIL_JOBDataTable" msprop:Generator_TableVarName="tableTBWMRH_PROFIL_JOB" msprop:Generator_TablePropName="TBWMRH_PROFIL_JOB" msprop:Generator_RowDeletingName="TBWMRH_PROFIL_JOBRowDeleting" msprop:Generator_RowChangingName="TBWMRH_PROFIL_JOBRowChanging" msprop:Generator_RowEvHandlerName="TBWMRH_PROFIL_JOBRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWMRH_PROFIL_JOBRowDeleted" msprop:Generator_UserTableName="TBWMRH_PROFIL_JOB" msprop:Generator_RowChangedName="TBWMRH_PROFIL_JOBRowChanged" msprop:Generator_RowEvArgName="TBWMRH_PROFIL_JOBRowChangeEvent" msprop:Generator_RowClassName="TBWMRH_PROFIL_JOBRow"> <xs:element name="TBWMRH_PROFIL_JOB" msprop:Generator_TableClassName="TBWMRH_PROFIL_JOBDataTable" msprop:Generator_TableVarName="tableTBWMRH_PROFIL_JOB" msprop:Generator_RowChangedName="TBWMRH_PROFIL_JOBRowChanged" msprop:Generator_TablePropName="TBWMRH_PROFIL_JOB" msprop:Generator_RowDeletingName="TBWMRH_PROFIL_JOBRowDeleting" msprop:Generator_RowChangingName="TBWMRH_PROFIL_JOBRowChanging" msprop:Generator_RowEvHandlerName="TBWMRH_PROFIL_JOBRowChangeEventHandler" msprop:Generator_RowDeletedName="TBWMRH_PROFIL_JOBRowDeleted" msprop:Generator_RowClassName="TBWMRH_PROFIL_JOBRow" msprop:Generator_UserTableName="TBWMRH_PROFIL_JOB" msprop:Generator_RowEvArgName="TBWMRH_PROFIL_JOBRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -694,10 +679,24 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A
</xs:simpleType> </xs:simpleType>
</xs:element> </xs:element>
<xs:element name="GEAENDERTWANN" msprop:Generator_ColumnVarNameInTable="columnGEAENDERTWANN" msprop:Generator_ColumnPropNameInRow="GEAENDERTWANN" msprop:Generator_ColumnPropNameInTable="GEAENDERTWANNColumn" msprop:Generator_UserColumnName="GEAENDERTWANN" type="xs:dateTime" minOccurs="0" /> <xs:element name="GEAENDERTWANN" msprop:Generator_ColumnVarNameInTable="columnGEAENDERTWANN" msprop:Generator_ColumnPropNameInRow="GEAENDERTWANN" msprop:Generator_ColumnPropNameInTable="GEAENDERTWANNColumn" msprop:Generator_UserColumnName="GEAENDERTWANN" type="xs:dateTime" minOccurs="0" />
<xs:element name="STRING5" msprop:Generator_ColumnVarNameInTable="columnSTRING5" msprop:Generator_ColumnPropNameInRow="STRING5" msprop:Generator_ColumnPropNameInTable="STRING5Column" msprop:Generator_UserColumnName="STRING5" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2147483647" />
</xs:restriction>
</xs:simpleType>
</xs:element>
<xs:element name="STRING6" msprop:Generator_ColumnVarNameInTable="columnSTRING6" msprop:Generator_ColumnPropNameInRow="STRING6" msprop:Generator_ColumnPropNameInTable="STRING6Column" msprop:Generator_UserColumnName="STRING6" minOccurs="0">
<xs:simpleType>
<xs:restriction base="xs:string">
<xs:maxLength value="2147483647" />
</xs:restriction>
</xs:simpleType>
</xs:element>
</xs:sequence> </xs:sequence>
</xs:complexType> </xs:complexType>
</xs:element> </xs:element>
<xs:element name="TBDD_EMAIL_ACCOUNT" msprop:Generator_TableClassName="TBDD_EMAIL_ACCOUNTDataTable" msprop:Generator_TableVarName="tableTBDD_EMAIL_ACCOUNT" msprop:Generator_TablePropName="TBDD_EMAIL_ACCOUNT" msprop:Generator_RowDeletingName="TBDD_EMAIL_ACCOUNTRowDeleting" msprop:Generator_RowChangingName="TBDD_EMAIL_ACCOUNTRowChanging" msprop:Generator_RowEvHandlerName="TBDD_EMAIL_ACCOUNTRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_EMAIL_ACCOUNTRowDeleted" msprop:Generator_UserTableName="TBDD_EMAIL_ACCOUNT" msprop:Generator_RowChangedName="TBDD_EMAIL_ACCOUNTRowChanged" msprop:Generator_RowEvArgName="TBDD_EMAIL_ACCOUNTRowChangeEvent" msprop:Generator_RowClassName="TBDD_EMAIL_ACCOUNTRow"> <xs:element name="TBDD_EMAIL_ACCOUNT" msprop:Generator_TableClassName="TBDD_EMAIL_ACCOUNTDataTable" msprop:Generator_TableVarName="tableTBDD_EMAIL_ACCOUNT" msprop:Generator_RowChangedName="TBDD_EMAIL_ACCOUNTRowChanged" msprop:Generator_TablePropName="TBDD_EMAIL_ACCOUNT" msprop:Generator_RowDeletingName="TBDD_EMAIL_ACCOUNTRowDeleting" msprop:Generator_RowChangingName="TBDD_EMAIL_ACCOUNTRowChanging" msprop:Generator_RowEvHandlerName="TBDD_EMAIL_ACCOUNTRowChangeEventHandler" msprop:Generator_RowDeletedName="TBDD_EMAIL_ACCOUNTRowDeleted" msprop:Generator_RowClassName="TBDD_EMAIL_ACCOUNTRow" msprop:Generator_UserTableName="TBDD_EMAIL_ACCOUNT" msprop:Generator_RowEvArgName="TBDD_EMAIL_ACCOUNTRowChangeEvent">
<xs:complexType> <xs:complexType>
<xs:sequence> <xs:sequence>
<xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" /> <xs:element name="GUID" msdata:ReadOnly="true" msdata:AutoIncrement="true" msdata:AutoIncrementSeed="1" msprop:Generator_ColumnVarNameInTable="columnGUID" msprop:Generator_ColumnPropNameInRow="GUID" msprop:Generator_ColumnPropNameInTable="GUIDColumn" msprop:Generator_UserColumnName="GUID" type="xs:int" />
@@ -783,8 +782,8 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A
</xs:element> </xs:element>
<xs:annotation> <xs:annotation>
<xs:appinfo> <xs:appinfo>
<msdata:Relationship name="FK_FILE_JOB_PROFILID" msdata:parent="TBWMRH_PROFIL" msdata:child="TBWMRH_PROFIL_FILE_JOB" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBWMRH_PROFIL_FILE_JOB" msprop:Generator_ChildPropName="GetTBWMRH_PROFIL_FILE_JOBRows" msprop:Generator_UserRelationName="FK_FILE_JOB_PROFILID" msprop:Generator_ParentPropName="TBWMRH_PROFILRow" msprop:Generator_RelationVarName="relationFK_FILE_JOB_PROFILID" msprop:Generator_UserParentTable="TBWMRH_PROFIL" /> <msdata:Relationship name="FK_FILE_JOB_PROFILID" msdata:parent="TBWMRH_PROFIL" msdata:child="TBWMRH_PROFIL_FILE_JOB" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBWMRH_PROFIL_FILE_JOB" msprop:Generator_ChildPropName="GetTBWMRH_PROFIL_FILE_JOBRows" msprop:Generator_UserRelationName="FK_FILE_JOB_PROFILID" msprop:Generator_RelationVarName="relationFK_FILE_JOB_PROFILID" msprop:Generator_UserParentTable="TBWMRH_PROFIL" msprop:Generator_ParentPropName="TBWMRH_PROFILRow" />
<msdata:Relationship name="FK_TBPROFIL_JOB_PROFILID" msdata:parent="TBWMRH_PROFIL" msdata:child="TBWMRH_PROFIL_JOB" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBWMRH_PROFIL_JOB" msprop:Generator_ChildPropName="GetTBWMRH_PROFIL_JOBRows" msprop:Generator_UserRelationName="FK_TBPROFIL_JOB_PROFILID" msprop:Generator_ParentPropName="TBWMRH_PROFILRow" msprop:Generator_RelationVarName="relationFK_TBPROFIL_JOB_PROFILID" msprop:Generator_UserParentTable="TBWMRH_PROFIL" /> <msdata:Relationship name="FK_TBPROFIL_JOB_PROFILID" msdata:parent="TBWMRH_PROFIL" msdata:child="TBWMRH_PROFIL_JOB" msdata:parentkey="GUID" msdata:childkey="PROFIL_ID" msprop:Generator_UserChildTable="TBWMRH_PROFIL_JOB" msprop:Generator_ChildPropName="GetTBWMRH_PROFIL_JOBRows" msprop:Generator_UserRelationName="FK_TBPROFIL_JOB_PROFILID" msprop:Generator_RelationVarName="relationFK_TBPROFIL_JOB_PROFILID" msprop:Generator_UserParentTable="TBWMRH_PROFIL" msprop:Generator_ParentPropName="TBWMRH_PROFILRow" />
</xs:appinfo> </xs:appinfo>
</xs:annotation> </xs:annotation>
</xs:schema> </xs:schema>

16
app/ResultHandler_Konfig/MyDataset.xss
View File

@@ -4,10 +4,10 @@
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="-10" 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="324" 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="421" Y="55" 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" />
<Shape ID="DesignTable:TBWMRH_PROFIL_FILE_JOB" ZOrder="2" X="729" Y="143" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBWMRH_PROFIL_FILE_JOB" ZOrder="2" X="729" Y="143" Height="324" Width="300" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBWMRH_PROFIL_JOB" ZOrder="4" X="1136" Y="283" Height="324" Width="276" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBWMRH_PROFIL_JOB" ZOrder="4" X="1136" Y="283" Height="324" Width="276" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
<Shape ID="DesignTable:TBDD_EMAIL_ACCOUNT" ZOrder="1" X="56" Y="388" Height="305" Width="296" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" /> <Shape ID="DesignTable:TBDD_EMAIL_ACCOUNT" ZOrder="1" X="56" Y="388" Height="305" Width="296" AdapterExpanded="true" DataTableExpanded="true" OldAdapterHeight="0" OldDataTableHeight="0" SplitterPosition="254" />
@@ -16,24 +16,24 @@
<Connector ID="DesignRelation:FK_FILE_JOB_PROFILID" ZOrder="5" LineWidth="11"> <Connector ID="DesignRelation:FK_FILE_JOB_PROFILID" ZOrder="5" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>675</X> <X>676</X>
<Y>175</Y> <Y>174</Y>
</Point> </Point>
<Point> <Point>
<X>729</X> <X>729</X>
<Y>175</Y> <Y>174</Y>
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>
<Connector ID="DesignRelation:FK_TBPROFIL_JOB_PROFILID" ZOrder="3" LineWidth="11"> <Connector ID="DesignRelation:FK_TBPROFIL_JOB_PROFILID" ZOrder="3" LineWidth="11">
<RoutePoints> <RoutePoints>
<Point> <Point>
<X>675</X> <X>676</X>
<Y>321</Y> <Y>320</Y>
</Point> </Point>
<Point> <Point>
<X>1136</X> <X>1136</X>
<Y>321</Y> <Y>320</Y>
</Point> </Point>
</RoutePoints> </RoutePoints>
</Connector> </Connector>

21
app/ResultHandler_Konfig/ResultHandler_Konfig.vbproj
View File

@@ -54,8 +54,8 @@
<ApplicationIcon>ico638.ico</ApplicationIcon> <ApplicationIcon>ico638.ico</ApplicationIcon>
</PropertyGroup> </PropertyGroup>
<ItemGroup> <ItemGroup>
<Reference Include="ClassWMResulthandler"> <Reference Include="DD_WMResulthandler">
<HintPath>..\ClassWMResulthandler\bin\Debug\ClassWMResulthandler.dll</HintPath> <HintPath>..\ClassWMResulthandler\bin\Debug\DD_WMResulthandler.dll</HintPath>
</Reference> </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" />
@@ -66,10 +66,10 @@
<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="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>
@@ -87,17 +87,28 @@
<HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath> <HintPath>P:\Visual Studio Projekte\Bibliotheken\windream\Interop.WMOTOOLLib.dll</HintPath>
<EmbedInteropTypes>True</EmbedInteropTypes> <EmbedInteropTypes>True</EmbedInteropTypes>
</Reference> </Reference>
<Reference Include="Microsoft.CSharp" />
<Reference Include="Modules.Logging">
<HintPath>..\..\..\DDMonorepo\Modules.Logging\bin\Debug\Modules.Logging.dll</HintPath>
</Reference>
<Reference Include="Newtonsoft.Json, Version=10.0.0.0, Culture=neutral, PublicKeyToken=30ad4fe6b2a6aeed, processorArchitecture=MSIL"> <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">
<HintPath>..\packages\NLog.4.5.8\lib\net45\NLog.dll</HintPath>
</Reference>
<Reference Include="Oracle.ManagedDataAccess"> <Reference Include="Oracle.ManagedDataAccess">
<HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath> <HintPath>P:\Visual Studio Projekte\Bibliotheken\Oracle.ManagedDataAccess.dll</HintPath>
</Reference> </Reference>
<Reference Include="System" /> <Reference Include="System" />
<Reference Include="System.ComponentModel.DataAnnotations" /> <Reference Include="System.ComponentModel.DataAnnotations" />
<Reference Include="System.Configuration" />
<Reference Include="System.Data" /> <Reference Include="System.Data" />
<Reference Include="System.Deployment" /> <Reference Include="System.Deployment" />
<Reference Include="System.Drawing" /> <Reference Include="System.Drawing" />
<Reference Include="System.IO.Compression" />
<Reference Include="System.Runtime.Serialization" />
<Reference Include="System.ServiceModel" />
<Reference Include="System.ServiceProcess" /> <Reference Include="System.ServiceProcess" />
<Reference Include="System.Transactions" /> <Reference Include="System.Transactions" />
<Reference Include="System.Web.Services" /> <Reference Include="System.Web.Services" />

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

@@ -81,9 +81,11 @@ Partial Class frmMain
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.TabPage2 = New System.Windows.Forms.TabPage() Me.TabPage2 = New System.Windows.Forms.TabPage()
Me.SplitContainer1 = New System.Windows.Forms.SplitContainer() Me.SplitContainer1 = New System.Windows.Forms.SplitContainer()
Me.STRING4TextBox = New System.Windows.Forms.TextBox() Me.STRING5TextBox = New System.Windows.Forms.TextBox()
Me.TBWMRH_PROFIL_JOBBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBWMRH_PROFIL_JOBBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.MyDataset = New ResultHandler_Konfig.MyDataset() Me.MyDataset = New ResultHandler_Konfig.MyDataset()
Me.lblString5 = New System.Windows.Forms.Label()
Me.STRING4TextBox = New System.Windows.Forms.TextBox()
Me.lblString4 = New System.Windows.Forms.Label() Me.lblString4 = New System.Windows.Forms.Label()
Me.STRING3TextBox = New System.Windows.Forms.TextBox() Me.STRING3TextBox = New System.Windows.Forms.TextBox()
Me.lblString3 = New System.Windows.Forms.Label() Me.lblString3 = New System.Windows.Forms.Label()
@@ -188,12 +190,12 @@ Partial Class frmMain
Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.TBPROFILBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton() Me.TBPROFILBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton()
Me.tabtn_refreshProfile = New System.Windows.Forms.ToolStripButton() Me.tabtn_refreshProfile = New System.Windows.Forms.ToolStripButton()
Me.tsbtnStartProfile = New System.Windows.Forms.ToolStripButton()
Me.GUIDTextBox = New System.Windows.Forms.TextBox() Me.GUIDTextBox = New System.Windows.Forms.TextBox()
Me.ProfilnameTextBox = New System.Windows.Forms.TextBox() Me.ProfilnameTextBox = New System.Windows.Forms.TextBox()
Me.AktivCheckBox = New System.Windows.Forms.CheckBox() Me.AktivCheckBox = New System.Windows.Forms.CheckBox()
Me.WindreamSucheTextBox = New System.Windows.Forms.TextBox() Me.WindreamSucheTextBox = New System.Windows.Forms.TextBox()
Me.RunTextBox = New System.Windows.Forms.TextBox() Me.RunTextBox = New System.Windows.Forms.TextBox()
Me.RunningCheckBox = New System.Windows.Forms.CheckBox()
Me.ReihenfolgeTextBox = New System.Windows.Forms.TextBox() Me.ReihenfolgeTextBox = New System.Windows.Forms.TextBox()
Me.ERSTELLTWERTextBox = New System.Windows.Forms.TextBox() Me.ERSTELLTWERTextBox = New System.Windows.Forms.TextBox()
Me.ERSTELLTWANNTextBox = New System.Windows.Forms.TextBox() Me.ERSTELLTWANNTextBox = New System.Windows.Forms.TextBox()
@@ -334,7 +336,7 @@ Partial Class frmMain
'GUIDLabel 'GUIDLabel
' '
GUIDLabel.AutoSize = True GUIDLabel.AutoSize = True
GUIDLabel.Location = New System.Drawing.Point(296, 38) GUIDLabel.Location = New System.Drawing.Point(246, 38)
GUIDLabel.Name = "GUIDLabel" GUIDLabel.Name = "GUIDLabel"
GUIDLabel.Size = New System.Drawing.Size(21, 13) GUIDLabel.Size = New System.Drawing.Size(21, 13)
GUIDLabel.TabIndex = 0 GUIDLabel.TabIndex = 0
@@ -343,7 +345,7 @@ Partial Class frmMain
'ProfilnameLabel 'ProfilnameLabel
' '
ProfilnameLabel.AutoSize = True ProfilnameLabel.AutoSize = True
ProfilnameLabel.Location = New System.Drawing.Point(296, 66) ProfilnameLabel.Location = New System.Drawing.Point(246, 66)
ProfilnameLabel.Name = "ProfilnameLabel" ProfilnameLabel.Name = "ProfilnameLabel"
ProfilnameLabel.Size = New System.Drawing.Size(65, 13) ProfilnameLabel.Size = New System.Drawing.Size(65, 13)
ProfilnameLabel.TabIndex = 2 ProfilnameLabel.TabIndex = 2
@@ -352,7 +354,7 @@ Partial Class frmMain
'ObjekttypLabel 'ObjekttypLabel
' '
ObjekttypLabel.AutoSize = True ObjekttypLabel.AutoSize = True
ObjekttypLabel.Location = New System.Drawing.Point(657, 66) ObjekttypLabel.Location = New System.Drawing.Point(555, 66)
ObjekttypLabel.Name = "ObjekttypLabel" ObjekttypLabel.Name = "ObjekttypLabel"
ObjekttypLabel.Size = New System.Drawing.Size(61, 13) ObjekttypLabel.Size = New System.Drawing.Size(61, 13)
ObjekttypLabel.TabIndex = 6 ObjekttypLabel.TabIndex = 6
@@ -361,7 +363,7 @@ Partial Class frmMain
'WindreamSucheLabel 'WindreamSucheLabel
' '
WindreamSucheLabel.AutoSize = True WindreamSucheLabel.AutoSize = True
WindreamSucheLabel.Location = New System.Drawing.Point(297, 96) WindreamSucheLabel.Location = New System.Drawing.Point(247, 96)
WindreamSucheLabel.Name = "WindreamSucheLabel" WindreamSucheLabel.Name = "WindreamSucheLabel"
WindreamSucheLabel.Size = New System.Drawing.Size(97, 13) WindreamSucheLabel.Size = New System.Drawing.Size(97, 13)
WindreamSucheLabel.TabIndex = 8 WindreamSucheLabel.TabIndex = 8
@@ -370,7 +372,7 @@ Partial Class frmMain
'Letzter_DurchlaufLabel 'Letzter_DurchlaufLabel
' '
Letzter_DurchlaufLabel.AutoSize = True Letzter_DurchlaufLabel.AutoSize = True
Letzter_DurchlaufLabel.Location = New System.Drawing.Point(296, 206) Letzter_DurchlaufLabel.Location = New System.Drawing.Point(517, 175)
Letzter_DurchlaufLabel.Name = "Letzter_DurchlaufLabel" Letzter_DurchlaufLabel.Name = "Letzter_DurchlaufLabel"
Letzter_DurchlaufLabel.Size = New System.Drawing.Size(98, 13) Letzter_DurchlaufLabel.Size = New System.Drawing.Size(98, 13)
Letzter_DurchlaufLabel.TabIndex = 14 Letzter_DurchlaufLabel.TabIndex = 14
@@ -379,7 +381,7 @@ Partial Class frmMain
'ReihenfolgeLabel 'ReihenfolgeLabel
' '
ReihenfolgeLabel.AutoSize = True ReihenfolgeLabel.AutoSize = True
ReihenfolgeLabel.Location = New System.Drawing.Point(657, 38) ReihenfolgeLabel.Location = New System.Drawing.Point(555, 38)
ReihenfolgeLabel.Name = "ReihenfolgeLabel" ReihenfolgeLabel.Name = "ReihenfolgeLabel"
ReihenfolgeLabel.Size = New System.Drawing.Size(73, 13) ReihenfolgeLabel.Size = New System.Drawing.Size(73, 13)
ReihenfolgeLabel.TabIndex = 18 ReihenfolgeLabel.TabIndex = 18
@@ -388,7 +390,7 @@ Partial Class frmMain
'ERSTELLTWERLabel 'ERSTELLTWERLabel
' '
ERSTELLTWERLabel.AutoSize = True ERSTELLTWERLabel.AutoSize = True
ERSTELLTWERLabel.Location = New System.Drawing.Point(944, 56) ERSTELLTWERLabel.Location = New System.Drawing.Point(894, 56)
ERSTELLTWERLabel.Name = "ERSTELLTWERLabel" ERSTELLTWERLabel.Name = "ERSTELLTWERLabel"
ERSTELLTWERLabel.Size = New System.Drawing.Size(67, 13) ERSTELLTWERLabel.Size = New System.Drawing.Size(67, 13)
ERSTELLTWERLabel.TabIndex = 20 ERSTELLTWERLabel.TabIndex = 20
@@ -397,7 +399,7 @@ Partial Class frmMain
'ERSTELLTWANNLabel 'ERSTELLTWANNLabel
' '
ERSTELLTWANNLabel.AutoSize = True ERSTELLTWANNLabel.AutoSize = True
ERSTELLTWANNLabel.Location = New System.Drawing.Point(944, 96) ERSTELLTWANNLabel.Location = New System.Drawing.Point(894, 96)
ERSTELLTWANNLabel.Name = "ERSTELLTWANNLabel" ERSTELLTWANNLabel.Name = "ERSTELLTWANNLabel"
ERSTELLTWANNLabel.Size = New System.Drawing.Size(77, 13) ERSTELLTWANNLabel.Size = New System.Drawing.Size(77, 13)
ERSTELLTWANNLabel.TabIndex = 22 ERSTELLTWANNLabel.TabIndex = 22
@@ -406,7 +408,7 @@ Partial Class frmMain
'GEAENDERTWERLabel 'GEAENDERTWERLabel
' '
GEAENDERTWERLabel.AutoSize = True GEAENDERTWERLabel.AutoSize = True
GEAENDERTWERLabel.Location = New System.Drawing.Point(944, 137) GEAENDERTWERLabel.Location = New System.Drawing.Point(894, 137)
GEAENDERTWERLabel.Name = "GEAENDERTWERLabel" GEAENDERTWERLabel.Name = "GEAENDERTWERLabel"
GEAENDERTWERLabel.Size = New System.Drawing.Size(80, 13) GEAENDERTWERLabel.Size = New System.Drawing.Size(80, 13)
GEAENDERTWERLabel.TabIndex = 24 GEAENDERTWERLabel.TabIndex = 24
@@ -444,7 +446,7 @@ Partial Class frmMain
' '
ERSTELLTWERLabel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) ERSTELLTWERLabel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
ERSTELLTWERLabel1.AutoSize = True ERSTELLTWERLabel1.AutoSize = True
ERSTELLTWERLabel1.Location = New System.Drawing.Point(17, 236) ERSTELLTWERLabel1.Location = New System.Drawing.Point(17, 286)
ERSTELLTWERLabel1.Name = "ERSTELLTWERLabel1" ERSTELLTWERLabel1.Name = "ERSTELLTWERLabel1"
ERSTELLTWERLabel1.Size = New System.Drawing.Size(67, 13) ERSTELLTWERLabel1.Size = New System.Drawing.Size(67, 13)
ERSTELLTWERLabel1.TabIndex = 29 ERSTELLTWERLabel1.TabIndex = 29
@@ -454,7 +456,7 @@ Partial Class frmMain
' '
ERSTELLTWANNLabel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) ERSTELLTWANNLabel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
ERSTELLTWANNLabel1.AutoSize = True ERSTELLTWANNLabel1.AutoSize = True
ERSTELLTWANNLabel1.Location = New System.Drawing.Point(163, 236) ERSTELLTWANNLabel1.Location = New System.Drawing.Point(163, 286)
ERSTELLTWANNLabel1.Name = "ERSTELLTWANNLabel1" ERSTELLTWANNLabel1.Name = "ERSTELLTWANNLabel1"
ERSTELLTWANNLabel1.Size = New System.Drawing.Size(77, 13) ERSTELLTWANNLabel1.Size = New System.Drawing.Size(77, 13)
ERSTELLTWANNLabel1.TabIndex = 31 ERSTELLTWANNLabel1.TabIndex = 31
@@ -464,7 +466,7 @@ Partial Class frmMain
' '
GEAENDERTWERLabel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) GEAENDERTWERLabel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
GEAENDERTWERLabel1.AutoSize = True GEAENDERTWERLabel1.AutoSize = True
GEAENDERTWERLabel1.Location = New System.Drawing.Point(266, 236) GEAENDERTWERLabel1.Location = New System.Drawing.Point(266, 286)
GEAENDERTWERLabel1.Name = "GEAENDERTWERLabel1" GEAENDERTWERLabel1.Name = "GEAENDERTWERLabel1"
GEAENDERTWERLabel1.Size = New System.Drawing.Size(80, 13) GEAENDERTWERLabel1.Size = New System.Drawing.Size(80, 13)
GEAENDERTWERLabel1.TabIndex = 33 GEAENDERTWERLabel1.TabIndex = 33
@@ -474,7 +476,7 @@ Partial Class frmMain
' '
GEAENDERTWANNLabel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) GEAENDERTWANNLabel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
GEAENDERTWANNLabel1.AutoSize = True GEAENDERTWANNLabel1.AutoSize = True
GEAENDERTWANNLabel1.Location = New System.Drawing.Point(377, 236) GEAENDERTWANNLabel1.Location = New System.Drawing.Point(377, 286)
GEAENDERTWANNLabel1.Name = "GEAENDERTWANNLabel1" GEAENDERTWANNLabel1.Name = "GEAENDERTWANNLabel1"
GEAENDERTWANNLabel1.Size = New System.Drawing.Size(90, 13) GEAENDERTWANNLabel1.Size = New System.Drawing.Size(90, 13)
GEAENDERTWANNLabel1.TabIndex = 35 GEAENDERTWANNLabel1.TabIndex = 35
@@ -512,7 +514,7 @@ Partial Class frmMain
' '
ERSTELLTWERLabel2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) ERSTELLTWERLabel2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
ERSTELLTWERLabel2.AutoSize = True ERSTELLTWERLabel2.AutoSize = True
ERSTELLTWERLabel2.Location = New System.Drawing.Point(14, 195) ERSTELLTWERLabel2.Location = New System.Drawing.Point(14, 245)
ERSTELLTWERLabel2.Name = "ERSTELLTWERLabel2" ERSTELLTWERLabel2.Name = "ERSTELLTWERLabel2"
ERSTELLTWERLabel2.Size = New System.Drawing.Size(67, 13) ERSTELLTWERLabel2.Size = New System.Drawing.Size(67, 13)
ERSTELLTWERLabel2.TabIndex = 30 ERSTELLTWERLabel2.TabIndex = 30
@@ -522,7 +524,7 @@ Partial Class frmMain
' '
ERSTELLTWANNLabel2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) ERSTELLTWANNLabel2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
ERSTELLTWANNLabel2.AutoSize = True ERSTELLTWANNLabel2.AutoSize = True
ERSTELLTWANNLabel2.Location = New System.Drawing.Point(214, 195) ERSTELLTWANNLabel2.Location = New System.Drawing.Point(214, 245)
ERSTELLTWANNLabel2.Name = "ERSTELLTWANNLabel2" ERSTELLTWANNLabel2.Name = "ERSTELLTWANNLabel2"
ERSTELLTWANNLabel2.Size = New System.Drawing.Size(77, 13) ERSTELLTWANNLabel2.Size = New System.Drawing.Size(77, 13)
ERSTELLTWANNLabel2.TabIndex = 32 ERSTELLTWANNLabel2.TabIndex = 32
@@ -532,7 +534,7 @@ Partial Class frmMain
' '
GEAENDERTWERLabel2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) GEAENDERTWERLabel2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
GEAENDERTWERLabel2.AutoSize = True GEAENDERTWERLabel2.AutoSize = True
GEAENDERTWERLabel2.Location = New System.Drawing.Point(14, 236) GEAENDERTWERLabel2.Location = New System.Drawing.Point(14, 286)
GEAENDERTWERLabel2.Name = "GEAENDERTWERLabel2" GEAENDERTWERLabel2.Name = "GEAENDERTWERLabel2"
GEAENDERTWERLabel2.Size = New System.Drawing.Size(80, 13) GEAENDERTWERLabel2.Size = New System.Drawing.Size(80, 13)
GEAENDERTWERLabel2.TabIndex = 34 GEAENDERTWERLabel2.TabIndex = 34
@@ -541,7 +543,7 @@ Partial Class frmMain
'GEAENDERTWANNLabel 'GEAENDERTWANNLabel
' '
GEAENDERTWANNLabel.AutoSize = True GEAENDERTWANNLabel.AutoSize = True
GEAENDERTWANNLabel.Location = New System.Drawing.Point(944, 178) GEAENDERTWANNLabel.Location = New System.Drawing.Point(894, 178)
GEAENDERTWANNLabel.Name = "GEAENDERTWANNLabel" GEAENDERTWANNLabel.Name = "GEAENDERTWANNLabel"
GEAENDERTWANNLabel.Size = New System.Drawing.Size(90, 13) GEAENDERTWANNLabel.Size = New System.Drawing.Size(90, 13)
GEAENDERTWANNLabel.TabIndex = 101 GEAENDERTWANNLabel.TabIndex = 101
@@ -551,7 +553,7 @@ Partial Class frmMain
' '
GEAENDERTWANNLabel2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) GEAENDERTWANNLabel2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
GEAENDERTWANNLabel2.AutoSize = True GEAENDERTWANNLabel2.AutoSize = True
GEAENDERTWANNLabel2.Location = New System.Drawing.Point(214, 236) GEAENDERTWANNLabel2.Location = New System.Drawing.Point(214, 286)
GEAENDERTWANNLabel2.Name = "GEAENDERTWANNLabel2" GEAENDERTWANNLabel2.Name = "GEAENDERTWANNLabel2"
GEAENDERTWANNLabel2.Size = New System.Drawing.Size(90, 13) GEAENDERTWANNLabel2.Size = New System.Drawing.Size(90, 13)
GEAENDERTWANNLabel2.TabIndex = 39 GEAENDERTWANNLabel2.TabIndex = 39
@@ -727,9 +729,9 @@ Partial Class frmMain
'StatusStrip1 'StatusStrip1
' '
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsstatus, Me.ToolStripStatusLabelVersion}) Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsstatus, Me.ToolStripStatusLabelVersion})
Me.StatusStrip1.Location = New System.Drawing.Point(0, 549) Me.StatusStrip1.Location = New System.Drawing.Point(0, 599)
Me.StatusStrip1.Name = "StatusStrip1" Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(1090, 22) Me.StatusStrip1.Size = New System.Drawing.Size(1043, 22)
Me.StatusStrip1.TabIndex = 0 Me.StatusStrip1.TabIndex = 0
Me.StatusStrip1.Text = "StatusStrip1" Me.StatusStrip1.Text = "StatusStrip1"
' '
@@ -756,7 +758,7 @@ Partial Class frmMain
Me.TabControlMain.Location = New System.Drawing.Point(0, 0) Me.TabControlMain.Location = New System.Drawing.Point(0, 0)
Me.TabControlMain.Name = "TabControlMain" Me.TabControlMain.Name = "TabControlMain"
Me.TabControlMain.SelectedIndex = 0 Me.TabControlMain.SelectedIndex = 0
Me.TabControlMain.Size = New System.Drawing.Size(1090, 549) Me.TabControlMain.Size = New System.Drawing.Size(1043, 599)
Me.TabControlMain.TabIndex = 1 Me.TabControlMain.TabIndex = 1
' '
'TabPage1 'TabPage1
@@ -766,7 +768,7 @@ Partial Class frmMain
Me.TabPage1.Location = New System.Drawing.Point(4, 22) Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1" Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(1082, 523) Me.TabPage1.Size = New System.Drawing.Size(1035, 573)
Me.TabPage1.TabIndex = 0 Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Übersicht" Me.TabPage1.Text = "Übersicht"
Me.TabPage1.UseVisualStyleBackColor = True Me.TabPage1.UseVisualStyleBackColor = True
@@ -776,7 +778,7 @@ Partial Class frmMain
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtmrefresh_Uebersicht}) Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtmrefresh_Uebersicht})
Me.ToolStrip1.Location = New System.Drawing.Point(3, 3) Me.ToolStrip1.Location = New System.Drawing.Point(3, 3)
Me.ToolStrip1.Name = "ToolStrip1" Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Size = New System.Drawing.Size(1076, 25) Me.ToolStrip1.Size = New System.Drawing.Size(1029, 25)
Me.ToolStrip1.TabIndex = 4 Me.ToolStrip1.TabIndex = 4
Me.ToolStrip1.Text = "ToolStrip1" Me.ToolStrip1.Text = "ToolStrip1"
' '
@@ -842,7 +844,7 @@ Partial Class frmMain
Me.TabPage2.Location = New System.Drawing.Point(4, 22) Me.TabPage2.Location = New System.Drawing.Point(4, 22)
Me.TabPage2.Name = "TabPage2" Me.TabPage2.Name = "TabPage2"
Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) Me.TabPage2.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage2.Size = New System.Drawing.Size(1082, 523) Me.TabPage2.Size = New System.Drawing.Size(1035, 573)
Me.TabPage2.TabIndex = 1 Me.TabPage2.TabIndex = 1
Me.TabPage2.Text = "Profileinstellungen" Me.TabPage2.Text = "Profileinstellungen"
Me.TabPage2.UseVisualStyleBackColor = True Me.TabPage2.UseVisualStyleBackColor = True
@@ -857,6 +859,8 @@ Partial Class frmMain
' '
Me.SplitContainer1.Panel1.AutoScroll = True Me.SplitContainer1.Panel1.AutoScroll = True
Me.SplitContainer1.Panel1.BackColor = System.Drawing.Color.LightGray Me.SplitContainer1.Panel1.BackColor = System.Drawing.Color.LightGray
Me.SplitContainer1.Panel1.Controls.Add(Me.STRING5TextBox)
Me.SplitContainer1.Panel1.Controls.Add(Me.lblString5)
Me.SplitContainer1.Panel1.Controls.Add(Me.STRING4TextBox) Me.SplitContainer1.Panel1.Controls.Add(Me.STRING4TextBox)
Me.SplitContainer1.Panel1.Controls.Add(Me.lblString4) Me.SplitContainer1.Panel1.Controls.Add(Me.lblString4)
Me.SplitContainer1.Panel1.Controls.Add(Me.STRING3TextBox) Me.SplitContainer1.Panel1.Controls.Add(Me.STRING3TextBox)
@@ -916,18 +920,18 @@ Partial Class frmMain
Me.SplitContainer1.Panel2.Controls.Add(GEAENDERTWERLabel2) Me.SplitContainer1.Panel2.Controls.Add(GEAENDERTWERLabel2)
Me.SplitContainer1.Panel2.Controls.Add(Me.GEAENDERTWERTextBox2) Me.SplitContainer1.Panel2.Controls.Add(Me.GEAENDERTWERTextBox2)
Me.SplitContainer1.Panel2.Controls.Add(Me.TBPROFIL_FILE_JOBBindingNavigator) Me.SplitContainer1.Panel2.Controls.Add(Me.TBPROFIL_FILE_JOBBindingNavigator)
Me.SplitContainer1.Size = New System.Drawing.Size(1076, 280) Me.SplitContainer1.Size = New System.Drawing.Size(1029, 330)
Me.SplitContainer1.SplitterDistance = 494 Me.SplitContainer1.SplitterDistance = 499
Me.SplitContainer1.TabIndex = 1 Me.SplitContainer1.TabIndex = 1
' '
'STRING4TextBox 'STRING5TextBox
' '
Me.STRING4TextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.STRING5TextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.STRING4TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_JOBBindingSource, "STRING4", True)) Me.STRING5TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_JOBBindingSource, "STRING5", True))
Me.STRING4TextBox.Location = New System.Drawing.Point(423, 200) Me.STRING5TextBox.Location = New System.Drawing.Point(14, 242)
Me.STRING4TextBox.Name = "STRING4TextBox" Me.STRING5TextBox.Name = "STRING5TextBox"
Me.STRING4TextBox.Size = New System.Drawing.Size(61, 22) Me.STRING5TextBox.Size = New System.Drawing.Size(467, 22)
Me.STRING4TextBox.TabIndex = 45 Me.STRING5TextBox.TabIndex = 47
' '
'TBWMRH_PROFIL_JOBBindingSource 'TBWMRH_PROFIL_JOBBindingSource
' '
@@ -939,15 +943,34 @@ Partial Class frmMain
Me.MyDataset.DataSetName = "MyDataset" Me.MyDataset.DataSetName = "MyDataset"
Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema Me.MyDataset.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
' '
'lblString5
'
Me.lblString5.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblString5.AutoSize = True
Me.lblString5.Location = New System.Drawing.Point(11, 226)
Me.lblString5.Name = "lblString5"
Me.lblString5.Size = New System.Drawing.Size(57, 13)
Me.lblString5.TabIndex = 46
Me.lblString5.Text = "lblString5"
'
'STRING4TextBox
'
Me.STRING4TextBox.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.STRING4TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_JOBBindingSource, "STRING4", True))
Me.STRING4TextBox.Location = New System.Drawing.Point(428, 200)
Me.STRING4TextBox.Name = "STRING4TextBox"
Me.STRING4TextBox.Size = New System.Drawing.Size(61, 22)
Me.STRING4TextBox.TabIndex = 45
'
'lblString4 'lblString4
' '
Me.lblString4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.lblString4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.lblString4.AutoSize = True Me.lblString4.AutoSize = True
Me.lblString4.Location = New System.Drawing.Point(421, 184) Me.lblString4.Location = New System.Drawing.Point(426, 184)
Me.lblString4.Name = "lblString4" Me.lblString4.Name = "lblString4"
Me.lblString4.Size = New System.Drawing.Size(40, 13) Me.lblString4.Size = New System.Drawing.Size(57, 13)
Me.lblString4.TabIndex = 44 Me.lblString4.TabIndex = 44
Me.lblString4.Text = "Label5" Me.lblString4.Text = "lblString4"
' '
'STRING3TextBox 'STRING3TextBox
' '
@@ -1028,7 +1051,7 @@ Partial Class frmMain
' '
Me.JOB_TYPComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_JOBBindingSource, "JOB_TYP", True)) Me.JOB_TYPComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_JOBBindingSource, "JOB_TYP", True))
Me.JOB_TYPComboBox.FormattingEnabled = True Me.JOB_TYPComboBox.FormattingEnabled = True
Me.JOB_TYPComboBox.Items.AddRange(New Object() {"Export HDD", "Create Mail Attachment", "BNS json Download", "Concat Files to one pdf", "Send concatted file via mail", "Send to printer"}) Me.JOB_TYPComboBox.Items.AddRange(New Object() {"Export HDD", "Create Mail Attachment", "BNS json Download", "Concat Files to one pdf", "Send concatted file via mail", "Send to printer", "Send InfoMail with WM-Search"})
Me.JOB_TYPComboBox.Location = New System.Drawing.Point(78, 77) Me.JOB_TYPComboBox.Location = New System.Drawing.Point(78, 77)
Me.JOB_TYPComboBox.Name = "JOB_TYPComboBox" Me.JOB_TYPComboBox.Name = "JOB_TYPComboBox"
Me.JOB_TYPComboBox.Size = New System.Drawing.Size(239, 21) Me.JOB_TYPComboBox.Size = New System.Drawing.Size(239, 21)
@@ -1074,7 +1097,7 @@ Partial Class frmMain
Me.ERSTELLTWERTextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.ERSTELLTWERTextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.ERSTELLTWERTextBox1.BackColor = System.Drawing.Color.WhiteSmoke Me.ERSTELLTWERTextBox1.BackColor = System.Drawing.Color.WhiteSmoke
Me.ERSTELLTWERTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_JOBBindingSource, "ERSTELLTWER", True)) Me.ERSTELLTWERTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_JOBBindingSource, "ERSTELLTWER", True))
Me.ERSTELLTWERTextBox1.Location = New System.Drawing.Point(19, 252) Me.ERSTELLTWERTextBox1.Location = New System.Drawing.Point(19, 302)
Me.ERSTELLTWERTextBox1.Name = "ERSTELLTWERTextBox1" Me.ERSTELLTWERTextBox1.Name = "ERSTELLTWERTextBox1"
Me.ERSTELLTWERTextBox1.ReadOnly = True Me.ERSTELLTWERTextBox1.ReadOnly = True
Me.ERSTELLTWERTextBox1.Size = New System.Drawing.Size(140, 22) Me.ERSTELLTWERTextBox1.Size = New System.Drawing.Size(140, 22)
@@ -1085,7 +1108,7 @@ Partial Class frmMain
Me.ERSTELLTWANNTextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.ERSTELLTWANNTextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.ERSTELLTWANNTextBox1.BackColor = System.Drawing.Color.WhiteSmoke Me.ERSTELLTWANNTextBox1.BackColor = System.Drawing.Color.WhiteSmoke
Me.ERSTELLTWANNTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_JOBBindingSource, "ERSTELLTWANN", True)) Me.ERSTELLTWANNTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_JOBBindingSource, "ERSTELLTWANN", True))
Me.ERSTELLTWANNTextBox1.Location = New System.Drawing.Point(165, 252) Me.ERSTELLTWANNTextBox1.Location = New System.Drawing.Point(165, 302)
Me.ERSTELLTWANNTextBox1.Name = "ERSTELLTWANNTextBox1" Me.ERSTELLTWANNTextBox1.Name = "ERSTELLTWANNTextBox1"
Me.ERSTELLTWANNTextBox1.ReadOnly = True Me.ERSTELLTWANNTextBox1.ReadOnly = True
Me.ERSTELLTWANNTextBox1.Size = New System.Drawing.Size(99, 22) Me.ERSTELLTWANNTextBox1.Size = New System.Drawing.Size(99, 22)
@@ -1096,7 +1119,7 @@ Partial Class frmMain
Me.GEAENDERTWERTextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.GEAENDERTWERTextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.GEAENDERTWERTextBox1.BackColor = System.Drawing.Color.WhiteSmoke Me.GEAENDERTWERTextBox1.BackColor = System.Drawing.Color.WhiteSmoke
Me.GEAENDERTWERTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_JOBBindingSource, "GEAENDERTWER", True)) Me.GEAENDERTWERTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_JOBBindingSource, "GEAENDERTWER", True))
Me.GEAENDERTWERTextBox1.Location = New System.Drawing.Point(269, 252) Me.GEAENDERTWERTextBox1.Location = New System.Drawing.Point(269, 302)
Me.GEAENDERTWERTextBox1.Name = "GEAENDERTWERTextBox1" Me.GEAENDERTWERTextBox1.Name = "GEAENDERTWERTextBox1"
Me.GEAENDERTWERTextBox1.ReadOnly = True Me.GEAENDERTWERTextBox1.ReadOnly = True
Me.GEAENDERTWERTextBox1.Size = New System.Drawing.Size(101, 22) Me.GEAENDERTWERTextBox1.Size = New System.Drawing.Size(101, 22)
@@ -1107,7 +1130,7 @@ Partial Class frmMain
Me.GEAENDERTWANNTextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.GEAENDERTWANNTextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.GEAENDERTWANNTextBox1.BackColor = System.Drawing.Color.WhiteSmoke Me.GEAENDERTWANNTextBox1.BackColor = System.Drawing.Color.WhiteSmoke
Me.GEAENDERTWANNTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_JOBBindingSource, "GEAENDERTWANN", True)) Me.GEAENDERTWANNTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_JOBBindingSource, "GEAENDERTWANN", True))
Me.GEAENDERTWANNTextBox1.Location = New System.Drawing.Point(380, 252) Me.GEAENDERTWANNTextBox1.Location = New System.Drawing.Point(380, 302)
Me.GEAENDERTWANNTextBox1.Name = "GEAENDERTWANNTextBox1" Me.GEAENDERTWANNTextBox1.Name = "GEAENDERTWANNTextBox1"
Me.GEAENDERTWANNTextBox1.ReadOnly = True Me.GEAENDERTWANNTextBox1.ReadOnly = True
Me.GEAENDERTWANNTextBox1.Size = New System.Drawing.Size(104, 22) Me.GEAENDERTWANNTextBox1.Size = New System.Drawing.Size(104, 22)
@@ -1128,7 +1151,7 @@ Partial Class frmMain
Me.TBWMRH_PROFIL_JOBBindingNavigator.MovePreviousItem = Me.ToolStripButton4 Me.TBWMRH_PROFIL_JOBBindingNavigator.MovePreviousItem = Me.ToolStripButton4
Me.TBWMRH_PROFIL_JOBBindingNavigator.Name = "TBWMRH_PROFIL_JOBBindingNavigator" Me.TBWMRH_PROFIL_JOBBindingNavigator.Name = "TBWMRH_PROFIL_JOBBindingNavigator"
Me.TBWMRH_PROFIL_JOBBindingNavigator.PositionItem = Me.ToolStripTextBox1 Me.TBWMRH_PROFIL_JOBBindingNavigator.PositionItem = Me.ToolStripTextBox1
Me.TBWMRH_PROFIL_JOBBindingNavigator.Size = New System.Drawing.Size(494, 25) Me.TBWMRH_PROFIL_JOBBindingNavigator.Size = New System.Drawing.Size(499, 25)
Me.TBWMRH_PROFIL_JOBBindingNavigator.TabIndex = 3 Me.TBWMRH_PROFIL_JOBBindingNavigator.TabIndex = 3
Me.TBWMRH_PROFIL_JOBBindingNavigator.Text = "BindingNavigator1" Me.TBWMRH_PROFIL_JOBBindingNavigator.Text = "BindingNavigator1"
' '
@@ -1238,7 +1261,7 @@ Partial Class frmMain
'btnTestCon 'btnTestCon
' '
Me.btnTestCon.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.btnTestCon.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.btnTestCon.Location = New System.Drawing.Point(488, 116) Me.btnTestCon.Location = New System.Drawing.Point(436, 116)
Me.btnTestCon.Name = "btnTestCon" Me.btnTestCon.Name = "btnTestCon"
Me.btnTestCon.Size = New System.Drawing.Size(75, 23) Me.btnTestCon.Size = New System.Drawing.Size(75, 23)
Me.btnTestCon.TabIndex = 46 Me.btnTestCon.TabIndex = 46
@@ -1316,7 +1339,7 @@ Partial Class frmMain
Me.GEAENDERTWANNTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.GEAENDERTWANNTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.GEAENDERTWANNTextBox2.BackColor = System.Drawing.Color.WhiteSmoke Me.GEAENDERTWANNTextBox2.BackColor = System.Drawing.Color.WhiteSmoke
Me.GEAENDERTWANNTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_FILE_JOBBindingSource, "GEAENDERTWANN", True)) Me.GEAENDERTWANNTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_FILE_JOBBindingSource, "GEAENDERTWANN", True))
Me.GEAENDERTWANNTextBox2.Location = New System.Drawing.Point(219, 252) Me.GEAENDERTWANNTextBox2.Location = New System.Drawing.Point(219, 302)
Me.GEAENDERTWANNTextBox2.Name = "GEAENDERTWANNTextBox2" Me.GEAENDERTWANNTextBox2.Name = "GEAENDERTWANNTextBox2"
Me.GEAENDERTWANNTextBox2.ReadOnly = True Me.GEAENDERTWANNTextBox2.ReadOnly = True
Me.GEAENDERTWANNTextBox2.Size = New System.Drawing.Size(177, 22) Me.GEAENDERTWANNTextBox2.Size = New System.Drawing.Size(177, 22)
@@ -1396,7 +1419,7 @@ Partial Class frmMain
Me.ERSTELLTWERTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.ERSTELLTWERTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.ERSTELLTWERTextBox2.BackColor = System.Drawing.Color.WhiteSmoke Me.ERSTELLTWERTextBox2.BackColor = System.Drawing.Color.WhiteSmoke
Me.ERSTELLTWERTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_FILE_JOBBindingSource, "ERSTELLTWER", True)) Me.ERSTELLTWERTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_FILE_JOBBindingSource, "ERSTELLTWER", True))
Me.ERSTELLTWERTextBox2.Location = New System.Drawing.Point(17, 211) Me.ERSTELLTWERTextBox2.Location = New System.Drawing.Point(17, 261)
Me.ERSTELLTWERTextBox2.Name = "ERSTELLTWERTextBox2" Me.ERSTELLTWERTextBox2.Name = "ERSTELLTWERTextBox2"
Me.ERSTELLTWERTextBox2.ReadOnly = True Me.ERSTELLTWERTextBox2.ReadOnly = True
Me.ERSTELLTWERTextBox2.Size = New System.Drawing.Size(138, 22) Me.ERSTELLTWERTextBox2.Size = New System.Drawing.Size(138, 22)
@@ -1407,7 +1430,7 @@ Partial Class frmMain
Me.ERSTELLTWANNTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.ERSTELLTWANNTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.ERSTELLTWANNTextBox2.BackColor = System.Drawing.Color.WhiteSmoke Me.ERSTELLTWANNTextBox2.BackColor = System.Drawing.Color.WhiteSmoke
Me.ERSTELLTWANNTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_FILE_JOBBindingSource, "ERSTELLTWANN", True)) Me.ERSTELLTWANNTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_FILE_JOBBindingSource, "ERSTELLTWANN", True))
Me.ERSTELLTWANNTextBox2.Location = New System.Drawing.Point(217, 211) Me.ERSTELLTWANNTextBox2.Location = New System.Drawing.Point(217, 261)
Me.ERSTELLTWANNTextBox2.Name = "ERSTELLTWANNTextBox2" Me.ERSTELLTWANNTextBox2.Name = "ERSTELLTWANNTextBox2"
Me.ERSTELLTWANNTextBox2.ReadOnly = True Me.ERSTELLTWANNTextBox2.ReadOnly = True
Me.ERSTELLTWANNTextBox2.Size = New System.Drawing.Size(179, 22) Me.ERSTELLTWANNTextBox2.Size = New System.Drawing.Size(179, 22)
@@ -1418,7 +1441,7 @@ Partial Class frmMain
Me.GEAENDERTWERTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Me.GEAENDERTWERTextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.GEAENDERTWERTextBox2.BackColor = System.Drawing.Color.WhiteSmoke Me.GEAENDERTWERTextBox2.BackColor = System.Drawing.Color.WhiteSmoke
Me.GEAENDERTWERTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_FILE_JOBBindingSource, "GEAENDERTWER", True)) Me.GEAENDERTWERTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFIL_FILE_JOBBindingSource, "GEAENDERTWER", True))
Me.GEAENDERTWERTextBox2.Location = New System.Drawing.Point(17, 252) Me.GEAENDERTWERTextBox2.Location = New System.Drawing.Point(17, 302)
Me.GEAENDERTWERTextBox2.Name = "GEAENDERTWERTextBox2" Me.GEAENDERTWERTextBox2.Name = "GEAENDERTWERTextBox2"
Me.GEAENDERTWERTextBox2.ReadOnly = True Me.GEAENDERTWERTextBox2.ReadOnly = True
Me.GEAENDERTWERTextBox2.Size = New System.Drawing.Size(138, 22) Me.GEAENDERTWERTextBox2.Size = New System.Drawing.Size(138, 22)
@@ -1439,7 +1462,7 @@ Partial Class frmMain
Me.TBPROFIL_FILE_JOBBindingNavigator.MovePreviousItem = Me.ToolStripButton11 Me.TBPROFIL_FILE_JOBBindingNavigator.MovePreviousItem = Me.ToolStripButton11
Me.TBPROFIL_FILE_JOBBindingNavigator.Name = "TBPROFIL_FILE_JOBBindingNavigator" Me.TBPROFIL_FILE_JOBBindingNavigator.Name = "TBPROFIL_FILE_JOBBindingNavigator"
Me.TBPROFIL_FILE_JOBBindingNavigator.PositionItem = Me.ToolStripTextBox2 Me.TBPROFIL_FILE_JOBBindingNavigator.PositionItem = Me.ToolStripTextBox2
Me.TBPROFIL_FILE_JOBBindingNavigator.Size = New System.Drawing.Size(578, 25) Me.TBPROFIL_FILE_JOBBindingNavigator.Size = New System.Drawing.Size(526, 25)
Me.TBPROFIL_FILE_JOBBindingNavigator.TabIndex = 4 Me.TBPROFIL_FILE_JOBBindingNavigator.TabIndex = 4
Me.TBPROFIL_FILE_JOBBindingNavigator.Text = "BindingNavigator1" Me.TBPROFIL_FILE_JOBBindingNavigator.Text = "BindingNavigator1"
' '
@@ -1565,7 +1588,6 @@ Partial Class frmMain
Me.Panel1.Controls.Add(Me.WindreamSucheTextBox) Me.Panel1.Controls.Add(Me.WindreamSucheTextBox)
Me.Panel1.Controls.Add(Me.RunTextBox) Me.Panel1.Controls.Add(Me.RunTextBox)
Me.Panel1.Controls.Add(Letzter_DurchlaufLabel) Me.Panel1.Controls.Add(Letzter_DurchlaufLabel)
Me.Panel1.Controls.Add(Me.RunningCheckBox)
Me.Panel1.Controls.Add(ReihenfolgeLabel) Me.Panel1.Controls.Add(ReihenfolgeLabel)
Me.Panel1.Controls.Add(Me.ReihenfolgeTextBox) Me.Panel1.Controls.Add(Me.ReihenfolgeTextBox)
Me.Panel1.Controls.Add(ERSTELLTWERLabel) Me.Panel1.Controls.Add(ERSTELLTWERLabel)
@@ -1577,7 +1599,7 @@ Partial Class frmMain
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(3, 3) Me.Panel1.Location = New System.Drawing.Point(3, 3)
Me.Panel1.Name = "Panel1" Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(1076, 237) Me.Panel1.Size = New System.Drawing.Size(1029, 237)
Me.Panel1.TabIndex = 0 Me.Panel1.TabIndex = 0
' '
'GridControl1 'GridControl1
@@ -1585,10 +1607,10 @@ Partial Class frmMain
Me.GridControl1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Me.GridControl1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.GridControl1.DataSource = Me.TBWMRH_PROFILBindingSource Me.GridControl1.DataSource = Me.TBWMRH_PROFILBindingSource
Me.GridControl1.Location = New System.Drawing.Point(0, 28) Me.GridControl1.Location = New System.Drawing.Point(3, 28)
Me.GridControl1.MainView = Me.GridView1 Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.Name = "GridControl1" Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(290, 206) Me.GridControl1.Size = New System.Drawing.Size(237, 205)
Me.GridControl1.TabIndex = 105 Me.GridControl1.TabIndex = 105
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
' '
@@ -1619,6 +1641,7 @@ Partial Class frmMain
Me.colProfilname.Name = "colProfilname" Me.colProfilname.Name = "colProfilname"
Me.colProfilname.Visible = True Me.colProfilname.Visible = True
Me.colProfilname.VisibleIndex = 0 Me.colProfilname.VisibleIndex = 0
Me.colProfilname.Width = 146
' '
'colAktiv 'colAktiv
' '
@@ -1626,10 +1649,11 @@ Partial Class frmMain
Me.colAktiv.Name = "colAktiv" Me.colAktiv.Name = "colAktiv"
Me.colAktiv.Visible = True Me.colAktiv.Visible = True
Me.colAktiv.VisibleIndex = 1 Me.colAktiv.VisibleIndex = 1
Me.colAktiv.Width = 51
' '
'Button2 'Button2
' '
Me.Button2.Location = New System.Drawing.Point(772, 92) Me.Button2.Location = New System.Drawing.Point(722, 92)
Me.Button2.Name = "Button2" Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(75, 23) Me.Button2.Size = New System.Drawing.Size(75, 23)
Me.Button2.TabIndex = 104 Me.Button2.TabIndex = 104
@@ -1640,9 +1664,9 @@ Partial Class frmMain
' '
Me.btn_runProfileManual.Image = Global.ResultHandler_Konfig.My.Resources.Resources.arrow_switch Me.btn_runProfileManual.Image = Global.ResultHandler_Konfig.My.Resources.Resources.arrow_switch
Me.btn_runProfileManual.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft Me.btn_runProfileManual.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btn_runProfileManual.Location = New System.Drawing.Point(793, 33) Me.btn_runProfileManual.Location = New System.Drawing.Point(395, 34)
Me.btn_runProfileManual.Name = "btn_runProfileManual" Me.btn_runProfileManual.Name = "btn_runProfileManual"
Me.btn_runProfileManual.Size = New System.Drawing.Size(142, 23) Me.btn_runProfileManual.Size = New System.Drawing.Size(154, 23)
Me.btn_runProfileManual.TabIndex = 103 Me.btn_runProfileManual.TabIndex = 103
Me.btn_runProfileManual.Text = "Profil manuell starten" Me.btn_runProfileManual.Text = "Profil manuell starten"
Me.btn_runProfileManual.TextAlign = System.Drawing.ContentAlignment.MiddleRight Me.btn_runProfileManual.TextAlign = System.Drawing.ContentAlignment.MiddleRight
@@ -1652,7 +1676,7 @@ Partial Class frmMain
' '
Me.GEAENDERTWANNTextBox.BackColor = System.Drawing.Color.WhiteSmoke Me.GEAENDERTWANNTextBox.BackColor = System.Drawing.Color.WhiteSmoke
Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "GEAENDERTWANN", True)) Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "GEAENDERTWANN", True))
Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(947, 194) Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(897, 194)
Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox" Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox"
Me.GEAENDERTWANNTextBox.ReadOnly = True Me.GEAENDERTWANNTextBox.ReadOnly = True
Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(124, 22) Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(124, 22)
@@ -1661,7 +1685,7 @@ Partial Class frmMain
'NumericUpDown 'NumericUpDown
' '
Me.NumericUpDown.Increment = New Decimal(New Integer() {5, 0, 0, 0}) Me.NumericUpDown.Increment = New Decimal(New Integer() {5, 0, 0, 0})
Me.NumericUpDown.Location = New System.Drawing.Point(634, 172) Me.NumericUpDown.Location = New System.Drawing.Point(380, 194)
Me.NumericUpDown.Maximum = New Decimal(New Integer() {500, 0, 0, 0}) Me.NumericUpDown.Maximum = New Decimal(New Integer() {500, 0, 0, 0})
Me.NumericUpDown.Name = "NumericUpDown" Me.NumericUpDown.Name = "NumericUpDown"
Me.NumericUpDown.Size = New System.Drawing.Size(38, 22) Me.NumericUpDown.Size = New System.Drawing.Size(38, 22)
@@ -1671,7 +1695,7 @@ Partial Class frmMain
'lblTimeIntervall 'lblTimeIntervall
' '
Me.lblTimeIntervall.AutoSize = True Me.lblTimeIntervall.AutoSize = True
Me.lblTimeIntervall.Location = New System.Drawing.Point(536, 178) Me.lblTimeIntervall.Location = New System.Drawing.Point(377, 175)
Me.lblTimeIntervall.Name = "lblTimeIntervall" Me.lblTimeIntervall.Name = "lblTimeIntervall"
Me.lblTimeIntervall.Size = New System.Drawing.Size(47, 13) Me.lblTimeIntervall.Size = New System.Drawing.Size(47, 13)
Me.lblTimeIntervall.TabIndex = 100 Me.lblTimeIntervall.TabIndex = 100
@@ -1680,7 +1704,7 @@ Partial Class frmMain
'Label2 'Label2
' '
Me.Label2.AutoSize = True Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(297, 178) Me.Label2.Location = New System.Drawing.Point(247, 178)
Me.Label2.Name = "Label2" Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(54, 13) Me.Label2.Size = New System.Drawing.Size(54, 13)
Me.Label2.TabIndex = 1 Me.Label2.TabIndex = 1
@@ -1690,7 +1714,7 @@ Partial Class frmMain
' '
Me.dtp_Time.CustomFormat = "HH:mm" Me.dtp_Time.CustomFormat = "HH:mm"
Me.dtp_Time.Format = System.Windows.Forms.DateTimePickerFormat.Custom Me.dtp_Time.Format = System.Windows.Forms.DateTimePickerFormat.Custom
Me.dtp_Time.Location = New System.Drawing.Point(634, 171) Me.dtp_Time.Location = New System.Drawing.Point(380, 194)
Me.dtp_Time.Name = "dtp_Time" Me.dtp_Time.Name = "dtp_Time"
Me.dtp_Time.ShowUpDown = True Me.dtp_Time.ShowUpDown = True
Me.dtp_Time.Size = New System.Drawing.Size(60, 22) Me.dtp_Time.Size = New System.Drawing.Size(60, 22)
@@ -1701,7 +1725,7 @@ Partial Class frmMain
' '
Me.cmbTimeTyp.FormattingEnabled = True Me.cmbTimeTyp.FormattingEnabled = True
Me.cmbTimeTyp.Items.AddRange(New Object() {"Intervall", "Uhrzeit"}) Me.cmbTimeTyp.Items.AddRange(New Object() {"Intervall", "Uhrzeit"})
Me.cmbTimeTyp.Location = New System.Drawing.Point(399, 175) Me.cmbTimeTyp.Location = New System.Drawing.Point(250, 194)
Me.cmbTimeTyp.Name = "cmbTimeTyp" Me.cmbTimeTyp.Name = "cmbTimeTyp"
Me.cmbTimeTyp.Size = New System.Drawing.Size(121, 21) Me.cmbTimeTyp.Size = New System.Drawing.Size(121, 21)
Me.cmbTimeTyp.TabIndex = 98 Me.cmbTimeTyp.TabIndex = 98
@@ -1709,11 +1733,11 @@ Partial Class frmMain
'ObjekttypComboBox 'ObjekttypComboBox
' '
Me.ObjekttypComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "Objekttyp", True)) Me.ObjekttypComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "Objekttyp", True))
Me.ObjekttypComboBox.Font = New System.Drawing.Font("Segoe UI", 6.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.ObjekttypComboBox.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ObjekttypComboBox.FormattingEnabled = True Me.ObjekttypComboBox.FormattingEnabled = True
Me.ObjekttypComboBox.Location = New System.Drawing.Point(735, 63) Me.ObjekttypComboBox.Location = New System.Drawing.Point(635, 63)
Me.ObjekttypComboBox.Name = "ObjekttypComboBox" Me.ObjekttypComboBox.Name = "ObjekttypComboBox"
Me.ObjekttypComboBox.Size = New System.Drawing.Size(200, 19) Me.ObjekttypComboBox.Size = New System.Drawing.Size(230, 21)
Me.ObjekttypComboBox.TabIndex = 97 Me.ObjekttypComboBox.TabIndex = 97
' '
'GroupBox4 'GroupBox4
@@ -1726,7 +1750,7 @@ Partial Class frmMain
Me.GroupBox4.Controls.Add(Me.CheckBox7) Me.GroupBox4.Controls.Add(Me.CheckBox7)
Me.GroupBox4.Controls.Add(Me.CheckBox4) Me.GroupBox4.Controls.Add(Me.CheckBox4)
Me.GroupBox4.Controls.Add(Me.CheckBox5) Me.GroupBox4.Controls.Add(Me.CheckBox5)
Me.GroupBox4.Location = New System.Drawing.Point(300, 118) Me.GroupBox4.Location = New System.Drawing.Point(250, 118)
Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.Name = "GroupBox4"
Me.GroupBox4.Size = New System.Drawing.Size(633, 51) Me.GroupBox4.Size = New System.Drawing.Size(633, 51)
Me.GroupBox4.TabIndex = 95 Me.GroupBox4.TabIndex = 95
@@ -1814,7 +1838,7 @@ Partial Class frmMain
' '
'btnaddSearch 'btnaddSearch
' '
Me.btnaddSearch.Location = New System.Drawing.Point(735, 91) Me.btnaddSearch.Location = New System.Drawing.Point(685, 91)
Me.btnaddSearch.Name = "btnaddSearch" Me.btnaddSearch.Name = "btnaddSearch"
Me.btnaddSearch.Size = New System.Drawing.Size(29, 23) Me.btnaddSearch.Size = New System.Drawing.Size(29, 23)
Me.btnaddSearch.TabIndex = 29 Me.btnaddSearch.TabIndex = 29
@@ -1824,10 +1848,10 @@ Partial Class frmMain
'Letzter_DurchlaufTextBox 'Letzter_DurchlaufTextBox
' '
Me.Letzter_DurchlaufTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "Letzter_Durchlauf", True)) Me.Letzter_DurchlaufTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "Letzter_Durchlauf", True))
Me.Letzter_DurchlaufTextBox.Location = New System.Drawing.Point(399, 203) Me.Letzter_DurchlaufTextBox.Location = New System.Drawing.Point(520, 194)
Me.Letzter_DurchlaufTextBox.Name = "Letzter_DurchlaufTextBox" Me.Letzter_DurchlaufTextBox.Name = "Letzter_DurchlaufTextBox"
Me.Letzter_DurchlaufTextBox.ReadOnly = True Me.Letzter_DurchlaufTextBox.ReadOnly = True
Me.Letzter_DurchlaufTextBox.Size = New System.Drawing.Size(121, 22) Me.Letzter_DurchlaufTextBox.Size = New System.Drawing.Size(160, 22)
Me.Letzter_DurchlaufTextBox.TabIndex = 28 Me.Letzter_DurchlaufTextBox.TabIndex = 28
' '
'TBWMRH_PROFILBindingNavigator 'TBWMRH_PROFILBindingNavigator
@@ -1837,7 +1861,7 @@ Partial Class frmMain
Me.TBWMRH_PROFILBindingNavigator.CountItem = Me.BindingNavigatorCountItem Me.TBWMRH_PROFILBindingNavigator.CountItem = Me.BindingNavigatorCountItem
Me.TBWMRH_PROFILBindingNavigator.CountItemFormat = "von {0} Profilen" Me.TBWMRH_PROFILBindingNavigator.CountItemFormat = "von {0} Profilen"
Me.TBWMRH_PROFILBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem Me.TBWMRH_PROFILBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem
Me.TBWMRH_PROFILBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBPROFILBindingNavigatorSaveItem, Me.tabtn_refreshProfile}) Me.TBWMRH_PROFILBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBPROFILBindingNavigatorSaveItem, Me.tabtn_refreshProfile, Me.tsbtnStartProfile})
Me.TBWMRH_PROFILBindingNavigator.Location = New System.Drawing.Point(0, 0) Me.TBWMRH_PROFILBindingNavigator.Location = New System.Drawing.Point(0, 0)
Me.TBWMRH_PROFILBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem Me.TBWMRH_PROFILBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
Me.TBWMRH_PROFILBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem Me.TBWMRH_PROFILBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem
@@ -1845,7 +1869,7 @@ Partial Class frmMain
Me.TBWMRH_PROFILBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem Me.TBWMRH_PROFILBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
Me.TBWMRH_PROFILBindingNavigator.Name = "TBWMRH_PROFILBindingNavigator" Me.TBWMRH_PROFILBindingNavigator.Name = "TBWMRH_PROFILBindingNavigator"
Me.TBWMRH_PROFILBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem Me.TBWMRH_PROFILBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem
Me.TBWMRH_PROFILBindingNavigator.Size = New System.Drawing.Size(1076, 25) Me.TBWMRH_PROFILBindingNavigator.Size = New System.Drawing.Size(1029, 25)
Me.TBWMRH_PROFILBindingNavigator.TabIndex = 2 Me.TBWMRH_PROFILBindingNavigator.TabIndex = 2
Me.TBWMRH_PROFILBindingNavigator.Text = "BindingNavigator1" Me.TBWMRH_PROFILBindingNavigator.Text = "BindingNavigator1"
' '
@@ -1951,20 +1975,30 @@ Partial Class frmMain
Me.tabtn_refreshProfile.Size = New System.Drawing.Size(23, 22) Me.tabtn_refreshProfile.Size = New System.Drawing.Size(23, 22)
Me.tabtn_refreshProfile.Text = "ToolStripButton15" Me.tabtn_refreshProfile.Text = "ToolStripButton15"
' '
'tsbtnStartProfile
'
Me.tsbtnStartProfile.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.tsbtnStartProfile.Image = Global.ResultHandler_Konfig.My.Resources.Resources.arrow_switch
Me.tsbtnStartProfile.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbtnStartProfile.Name = "tsbtnStartProfile"
Me.tsbtnStartProfile.Size = New System.Drawing.Size(140, 22)
Me.tsbtnStartProfile.Text = "Profil manuell starten"
Me.tsbtnStartProfile.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'GUIDTextBox 'GUIDTextBox
' '
Me.GUIDTextBox.BackColor = System.Drawing.Color.WhiteSmoke Me.GUIDTextBox.BackColor = System.Drawing.Color.WhiteSmoke
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "GUID", True)) Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "GUID", True))
Me.GUIDTextBox.Location = New System.Drawing.Point(399, 35) Me.GUIDTextBox.Location = New System.Drawing.Point(349, 35)
Me.GUIDTextBox.Name = "GUIDTextBox" Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True Me.GUIDTextBox.ReadOnly = True
Me.GUIDTextBox.Size = New System.Drawing.Size(60, 22) Me.GUIDTextBox.Size = New System.Drawing.Size(39, 22)
Me.GUIDTextBox.TabIndex = 1 Me.GUIDTextBox.TabIndex = 1
' '
'ProfilnameTextBox 'ProfilnameTextBox
' '
Me.ProfilnameTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "Profilname", True)) Me.ProfilnameTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "Profilname", True))
Me.ProfilnameTextBox.Location = New System.Drawing.Point(399, 63) Me.ProfilnameTextBox.Location = New System.Drawing.Point(349, 63)
Me.ProfilnameTextBox.Name = "ProfilnameTextBox" Me.ProfilnameTextBox.Name = "ProfilnameTextBox"
Me.ProfilnameTextBox.Size = New System.Drawing.Size(200, 22) Me.ProfilnameTextBox.Size = New System.Drawing.Size(200, 22)
Me.ProfilnameTextBox.TabIndex = 3 Me.ProfilnameTextBox.TabIndex = 3
@@ -1972,7 +2006,7 @@ Partial Class frmMain
'AktivCheckBox 'AktivCheckBox
' '
Me.AktivCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBWMRH_PROFILBindingSource, "Aktiv", True)) Me.AktivCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBWMRH_PROFILBindingSource, "Aktiv", True))
Me.AktivCheckBox.Location = New System.Drawing.Point(537, 33) Me.AktivCheckBox.Location = New System.Drawing.Point(895, 33)
Me.AktivCheckBox.Name = "AktivCheckBox" Me.AktivCheckBox.Name = "AktivCheckBox"
Me.AktivCheckBox.Size = New System.Drawing.Size(62, 24) Me.AktivCheckBox.Size = New System.Drawing.Size(62, 24)
Me.AktivCheckBox.TabIndex = 5 Me.AktivCheckBox.TabIndex = 5
@@ -1982,7 +2016,7 @@ Partial Class frmMain
'WindreamSucheTextBox 'WindreamSucheTextBox
' '
Me.WindreamSucheTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "WindreamSuche", True)) Me.WindreamSucheTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "WindreamSuche", True))
Me.WindreamSucheTextBox.Location = New System.Drawing.Point(399, 92) Me.WindreamSucheTextBox.Location = New System.Drawing.Point(349, 92)
Me.WindreamSucheTextBox.Name = "WindreamSucheTextBox" Me.WindreamSucheTextBox.Name = "WindreamSucheTextBox"
Me.WindreamSucheTextBox.Size = New System.Drawing.Size(331, 22) Me.WindreamSucheTextBox.Size = New System.Drawing.Size(331, 22)
Me.WindreamSucheTextBox.TabIndex = 9 Me.WindreamSucheTextBox.TabIndex = 9
@@ -1990,27 +2024,16 @@ Partial Class frmMain
'RunTextBox 'RunTextBox
' '
Me.RunTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "Run", True)) Me.RunTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "Run", True))
Me.RunTextBox.Location = New System.Drawing.Point(720, 171) Me.RunTextBox.Location = New System.Drawing.Point(446, 194)
Me.RunTextBox.Name = "RunTextBox" Me.RunTextBox.Name = "RunTextBox"
Me.RunTextBox.ReadOnly = True Me.RunTextBox.ReadOnly = True
Me.RunTextBox.Size = New System.Drawing.Size(60, 22) Me.RunTextBox.Size = New System.Drawing.Size(60, 22)
Me.RunTextBox.TabIndex = 13 Me.RunTextBox.TabIndex = 13
' '
'RunningCheckBox
'
Me.RunningCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBWMRH_PROFILBindingSource, "Running", True))
Me.RunningCheckBox.Enabled = False
Me.RunningCheckBox.Location = New System.Drawing.Point(947, 27)
Me.RunningCheckBox.Name = "RunningCheckBox"
Me.RunningCheckBox.Size = New System.Drawing.Size(93, 24)
Me.RunningCheckBox.TabIndex = 17
Me.RunningCheckBox.Text = "Running?"
Me.RunningCheckBox.UseVisualStyleBackColor = True
'
'ReihenfolgeTextBox 'ReihenfolgeTextBox
' '
Me.ReihenfolgeTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "Reihenfolge", True)) Me.ReihenfolgeTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "Reihenfolge", True))
Me.ReihenfolgeTextBox.Location = New System.Drawing.Point(735, 35) Me.ReihenfolgeTextBox.Location = New System.Drawing.Point(635, 35)
Me.ReihenfolgeTextBox.Name = "ReihenfolgeTextBox" Me.ReihenfolgeTextBox.Name = "ReihenfolgeTextBox"
Me.ReihenfolgeTextBox.Size = New System.Drawing.Size(45, 22) Me.ReihenfolgeTextBox.Size = New System.Drawing.Size(45, 22)
Me.ReihenfolgeTextBox.TabIndex = 19 Me.ReihenfolgeTextBox.TabIndex = 19
@@ -2019,7 +2042,7 @@ Partial Class frmMain
' '
Me.ERSTELLTWERTextBox.BackColor = System.Drawing.Color.WhiteSmoke Me.ERSTELLTWERTextBox.BackColor = System.Drawing.Color.WhiteSmoke
Me.ERSTELLTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "ERSTELLTWER", True)) Me.ERSTELLTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "ERSTELLTWER", True))
Me.ERSTELLTWERTextBox.Location = New System.Drawing.Point(947, 72) Me.ERSTELLTWERTextBox.Location = New System.Drawing.Point(897, 72)
Me.ERSTELLTWERTextBox.Name = "ERSTELLTWERTextBox" Me.ERSTELLTWERTextBox.Name = "ERSTELLTWERTextBox"
Me.ERSTELLTWERTextBox.ReadOnly = True Me.ERSTELLTWERTextBox.ReadOnly = True
Me.ERSTELLTWERTextBox.Size = New System.Drawing.Size(124, 22) Me.ERSTELLTWERTextBox.Size = New System.Drawing.Size(124, 22)
@@ -2029,7 +2052,7 @@ Partial Class frmMain
' '
Me.ERSTELLTWANNTextBox.BackColor = System.Drawing.Color.WhiteSmoke Me.ERSTELLTWANNTextBox.BackColor = System.Drawing.Color.WhiteSmoke
Me.ERSTELLTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "ERSTELLTWANN", True)) Me.ERSTELLTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "ERSTELLTWANN", True))
Me.ERSTELLTWANNTextBox.Location = New System.Drawing.Point(947, 112) Me.ERSTELLTWANNTextBox.Location = New System.Drawing.Point(897, 112)
Me.ERSTELLTWANNTextBox.Name = "ERSTELLTWANNTextBox" Me.ERSTELLTWANNTextBox.Name = "ERSTELLTWANNTextBox"
Me.ERSTELLTWANNTextBox.ReadOnly = True Me.ERSTELLTWANNTextBox.ReadOnly = True
Me.ERSTELLTWANNTextBox.Size = New System.Drawing.Size(124, 22) Me.ERSTELLTWANNTextBox.Size = New System.Drawing.Size(124, 22)
@@ -2039,7 +2062,7 @@ Partial Class frmMain
' '
Me.GEAENDERTWERTextBox.BackColor = System.Drawing.Color.WhiteSmoke Me.GEAENDERTWERTextBox.BackColor = System.Drawing.Color.WhiteSmoke
Me.GEAENDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "GEAENDERTWER", True)) Me.GEAENDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBWMRH_PROFILBindingSource, "GEAENDERTWER", True))
Me.GEAENDERTWERTextBox.Location = New System.Drawing.Point(947, 153) Me.GEAENDERTWERTextBox.Location = New System.Drawing.Point(897, 153)
Me.GEAENDERTWERTextBox.Name = "GEAENDERTWERTextBox" Me.GEAENDERTWERTextBox.Name = "GEAENDERTWERTextBox"
Me.GEAENDERTWERTextBox.ReadOnly = True Me.GEAENDERTWERTextBox.ReadOnly = True
Me.GEAENDERTWERTextBox.Size = New System.Drawing.Size(124, 22) Me.GEAENDERTWERTextBox.Size = New System.Drawing.Size(124, 22)
@@ -2051,7 +2074,7 @@ Partial Class frmMain
Me.TabPage3.Location = New System.Drawing.Point(4, 22) Me.TabPage3.Location = New System.Drawing.Point(4, 22)
Me.TabPage3.Name = "TabPage3" Me.TabPage3.Name = "TabPage3"
Me.TabPage3.Padding = New System.Windows.Forms.Padding(3) Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage3.Size = New System.Drawing.Size(1082, 523) Me.TabPage3.Size = New System.Drawing.Size(1035, 573)
Me.TabPage3.TabIndex = 2 Me.TabPage3.TabIndex = 2
Me.TabPage3.Text = "Grundeinstellungen" Me.TabPage3.Text = "Grundeinstellungen"
Me.TabPage3.UseVisualStyleBackColor = True Me.TabPage3.UseVisualStyleBackColor = True
@@ -2239,7 +2262,7 @@ Partial Class frmMain
Me.TabPage4.Location = New System.Drawing.Point(4, 22) Me.TabPage4.Location = New System.Drawing.Point(4, 22)
Me.TabPage4.Name = "TabPage4" Me.TabPage4.Name = "TabPage4"
Me.TabPage4.Padding = New System.Windows.Forms.Padding(3) Me.TabPage4.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage4.Size = New System.Drawing.Size(1082, 523) Me.TabPage4.Size = New System.Drawing.Size(1035, 573)
Me.TabPage4.TabIndex = 3 Me.TabPage4.TabIndex = 3
Me.TabPage4.Text = "Email" Me.TabPage4.Text = "Email"
Me.TabPage4.UseVisualStyleBackColor = True Me.TabPage4.UseVisualStyleBackColor = True
@@ -2432,7 +2455,7 @@ Partial Class frmMain
Me.BindingNavigator1.MovePreviousItem = Me.ToolStripButton18 Me.BindingNavigator1.MovePreviousItem = Me.ToolStripButton18
Me.BindingNavigator1.Name = "BindingNavigator1" Me.BindingNavigator1.Name = "BindingNavigator1"
Me.BindingNavigator1.PositionItem = Me.ToolStripTextBox3 Me.BindingNavigator1.PositionItem = Me.ToolStripTextBox3
Me.BindingNavigator1.Size = New System.Drawing.Size(1076, 25) Me.BindingNavigator1.Size = New System.Drawing.Size(1029, 25)
Me.BindingNavigator1.TabIndex = 3 Me.BindingNavigator1.TabIndex = 3
Me.BindingNavigator1.Text = "BindingNavigator1" Me.BindingNavigator1.Text = "BindingNavigator1"
' '
@@ -2580,7 +2603,7 @@ Partial Class frmMain
' '
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1090, 571) Me.ClientSize = New System.Drawing.Size(1043, 621)
Me.Controls.Add(Me.TabControlMain) Me.Controls.Add(Me.TabControlMain)
Me.Controls.Add(Me.StatusStrip1) Me.Controls.Add(Me.StatusStrip1)
Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -2664,7 +2687,6 @@ Partial Class frmMain
Friend WithEvents WindreamSucheTextBox As System.Windows.Forms.TextBox Friend WithEvents WindreamSucheTextBox As System.Windows.Forms.TextBox
Friend WithEvents DayTextBox As System.Windows.Forms.TextBox Friend WithEvents DayTextBox As System.Windows.Forms.TextBox
Friend WithEvents RunTextBox As System.Windows.Forms.TextBox Friend WithEvents RunTextBox As System.Windows.Forms.TextBox
Friend WithEvents RunningCheckBox As System.Windows.Forms.CheckBox
Friend WithEvents ReihenfolgeTextBox As System.Windows.Forms.TextBox Friend WithEvents ReihenfolgeTextBox As System.Windows.Forms.TextBox
Friend WithEvents ERSTELLTWERTextBox As System.Windows.Forms.TextBox Friend WithEvents ERSTELLTWERTextBox As System.Windows.Forms.TextBox
Friend WithEvents ERSTELLTWANNTextBox As System.Windows.Forms.TextBox Friend WithEvents ERSTELLTWANNTextBox As System.Windows.Forms.TextBox
@@ -2782,7 +2804,6 @@ Partial Class frmMain
Friend WithEvents STRING3TextBox As TextBox Friend WithEvents STRING3TextBox As TextBox
Friend WithEvents lblString3 As Label Friend WithEvents lblString3 As Label
Friend WithEvents STRING4TextBox As TextBox Friend WithEvents STRING4TextBox As TextBox
Friend WithEvents lblString4 As Label
Friend WithEvents ToolStripStatusLabelVersion As ToolStripStatusLabel Friend WithEvents ToolStripStatusLabelVersion As ToolStripStatusLabel
Friend WithEvents Button3 As Button Friend WithEvents Button3 As Button
Friend WithEvents TabPage4 As TabPage Friend WithEvents TabPage4 As TabPage
@@ -2829,4 +2850,8 @@ Partial Class frmMain
Friend WithEvents btnlookupPDFXCHANGE As Button Friend WithEvents btnlookupPDFXCHANGE As Button
Friend WithEvents btnlookupPDFTK As Button Friend WithEvents btnlookupPDFTK As Button
Friend WithEvents OpenFileDialog2 As OpenFileDialog Friend WithEvents OpenFileDialog2 As OpenFileDialog
Friend WithEvents lblString4 As Label
Friend WithEvents STRING5TextBox As TextBox
Friend WithEvents lblString5 As Label
Friend WithEvents tsbtnStartProfile As ToolStripButton
End Class End Class

2
app/ResultHandler_Konfig/frmMain.resx
View File

@@ -257,7 +257,7 @@
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAI ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAI
DAAAAk1TRnQBSQFMAgEBAwEAASABAgEgAQIBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo DAAAAk1TRnQBSQFMAgEBAwEAAVABAgFQAQIBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo
AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA
AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5
AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA

139
app/ResultHandler_Konfig/frmMain.vb
View File

@@ -1,6 +1,9 @@
Imports System.ServiceProcess Imports System.ServiceProcess
Imports Modules.Logging
Public Class frmMain Public Class frmMain
Private _windream As ClassWMResulthandler.clsWindream_allgemein Private Shared _Logger As NLog.Logger = NLog.LogManager.GetCurrentClassLogger
Private _windream As DD_WMResulthandler.clsWindream_allgemein
Dim MyLoggerConfig As Logger
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
@@ -20,17 +23,20 @@ Public Class frmMain
' End If ' End If
'End If 'End If
Load_Constring() Load_Constring()
MyLoggerConfig = New Logger(Logger.PathType.AppData)
_Logger.Info("Konfig started: " & Now.ToString)
Try Try
' Windream instanziieren ' Windream instanziieren
_windream = New ClassWMResulthandler.clsWindream_allgemein() _windream = New DD_WMResulthandler.clsWindream_allgemein()
'Windream initialisieren (Connection, Session, ... aufbauen) 'Windream initialisieren (Connection, Session, ... aufbauen)
_windream.Init() _windream.Init()
Catch ex As Exception Catch ex As Exception
MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") MsgBox("Fehler bei Initialisieren von windream: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:")
End Try End Try
Load_Profil() Load_Profil()
Load_Uebersicht() Load_Uebersicht()
ClassWMResulthandler.clsLogger.Init(My.Application.Info.DirectoryPath & "\Log", "logResultHandlerGUI_")
ToolStripStatusLabelVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString) ToolStripStatusLabelVersion.Text = String.Format("Version {0}", My.Application.Info.Version.ToString)
End Sub End Sub
Sub Load_Uebersicht() Sub Load_Uebersicht()
@@ -110,8 +116,8 @@ 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)
ClassWMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("LOG_ERRORS_ONLY") DD_WMResulthandler.clsCURRENT.LOG_ERRORS_ONLY = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("LOG_ERRORS_ONLY")
ClassWMResulthandler.clsCURRENT.WDLAUFWERK = MyDataset.TBWMRH_KONFIGURATION.Rows(0).Item("WD_LAUFWERK") DD_WMResulthandler.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
@@ -200,7 +206,7 @@ Public Class frmMain
Case 2 Case 2
Load_Grundkonfig() Load_Grundkonfig()
Case 3 Case 3
load_Emails load_Emails()
End Select End Select
End Sub End Sub
Private Sub TBPROFILBindingSource_BindingComplete(sender As Object, e As BindingCompleteEventArgs) Private Sub TBPROFILBindingSource_BindingComplete(sender As Object, e As BindingCompleteEventArgs)
@@ -430,7 +436,7 @@ Public Class frmMain
End Sub End Sub
Private Sub JOB_TYPComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles JOB_TYPComboBox.SelectedIndexChanged Private Sub JOB_TYPComboBox_SelectedIndexChanged(sender As Object, e As EventArgs) Handles JOB_TYPComboBox.SelectedIndexChanged
Show_String_Lables Show_String_Lables()
End Sub End Sub
Sub Show_String_Lables() Sub Show_String_Lables()
btnJOB_addSpeicherort.Visible = False btnJOB_addSpeicherort.Visible = False
@@ -438,7 +444,7 @@ Public Class frmMain
lblString2.Text = "" lblString2.Text = ""
lblString3.Text = "" lblString3.Text = ""
lblString4.Text = "" lblString4.Text = ""
lblString4.Visible = False lblString5.Text = ""
STRING1TextBox.Visible = False STRING1TextBox.Visible = False
STRING2TextBox.Visible = False STRING2TextBox.Visible = False
STRING3TextBox.Visible = False STRING3TextBox.Visible = False
@@ -446,6 +452,7 @@ Public Class frmMain
STRING3TextBox.Size = New Size(400, 22) STRING3TextBox.Size = New Size(400, 22)
STRING3TextBox.Anchor = AnchorStyles.Left Or AnchorStyles.Top STRING3TextBox.Anchor = AnchorStyles.Left Or AnchorStyles.Top
STRING3TextBox.Multiline = False STRING3TextBox.Multiline = False
STRING5TextBox.Visible = False
Select Case JOB_TYPComboBox.Text.ToUpper Select Case JOB_TYPComboBox.Text.ToUpper
Case "Export HDD".ToUpper Case "Export HDD".ToUpper
@@ -487,6 +494,17 @@ Public Class frmMain
Case "Send to printer".ToUpper Case "Send to printer".ToUpper
lblString1.Text = "Netzwerkpfad/Name des Druckers:" lblString1.Text = "Netzwerkpfad/Name des Druckers:"
STRING1TextBox.Visible = True STRING1TextBox.Visible = True
Case "Send InfoMail with WM-Search".ToUpper
lblString1.Text = "Email-Empfänger:"
STRING1TextBox.Visible = True
lblString2.Text = "Email-Betreff:"
STRING2TextBox.Visible = True
lblString3.Text = "Email-Body:"
STRING3TextBox.Visible = True
lblString4.Text = "Email-Profil:"
STRING4TextBox.Visible = True
lblString5.Text = "Pfad zu WM-Suche:"
STRING5TextBox.Visible = True
End Select End Select
End Sub End Sub
Private Sub btnJOB_addSpeicherort_Click(sender As Object, e As EventArgs) Handles btnJOB_addSpeicherort.Click Private Sub btnJOB_addSpeicherort_Click(sender As Object, e As EventArgs) Handles btnJOB_addSpeicherort.Click
@@ -571,40 +589,7 @@ Public Class frmMain
cmbFileJob_WHIndexe.Visible = True cmbFileJob_WHIndexe.Visible = True
btnFileJob_addIndex.Visible = True btnFileJob_addIndex.Visible = True
End Sub End Sub
Private Sub btn_runProfileManual_Click(sender As Object, e As EventArgs) Handles btn_runProfileManual.Click
'Try
' Dim result As MsgBoxResult
' If RunningCheckBox.Checked = False Then
' result = MessageBox.Show("Bitte bestätigen Sie den manuellen Start des Profils!", "Bestätigung erforderlich:", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
' If result = MsgBoxResult.Ok Then
' Me.TBWMRH_PROFILTableAdapter.cmdUpdateRunningnow(Me.GUIDTextBox.Text)
' MsgBox("Das Profil wurde für den manuellen Durchlauf markiert. Der Durchlauf sollte innerhalb der nächsten Minute starten.", MsgBoxStyle.Information)
' Load_Profil()
' End If
' Else
' result = MessageBox.Show("Achtung das Profil schein noch zu laufen, dennoch Updaten??", "Bestätigung erforderlich:", MessageBoxButtons.OKCancel, MessageBoxIcon.Question)
' If result = MsgBoxResult.Ok Then
' Me.TBWMRH_PROFILTableAdapter.cmdUpdateRunningnow(Me.GUIDTextBox.Text)
' Load_Profil()
' End If
' End If
'Catch ex As Exception
' MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Run Job manually:")
'End Try
Try
If IsNumeric(Me.GUIDTextBox.Text) Then
Me.TBWMRH_PROFILTableAdapter.cmdUpdateRunningnow(Me.GUIDTextBox.Text)
Manual(Me.GUIDTextBox.Text)
End If
Catch ex As Exception
End Try
End Sub
Private Sub tabtn_refreshProfile_Click(sender As Object, e As EventArgs) Handles tabtn_refreshProfile.Click Private Sub tabtn_refreshProfile_Click(sender As Object, e As EventArgs) Handles tabtn_refreshProfile.Click
Load_Profil() Load_Profil()
@@ -623,6 +608,11 @@ Public Class frmMain
Me.TBWMRH_KONFIGURATIONTableAdapter.Update(MyDataset.TBWMRH_KONFIGURATION) Me.TBWMRH_KONFIGURATIONTableAdapter.Update(MyDataset.TBWMRH_KONFIGURATION)
statuslabel(True, "Grundkonfiguration gespeichert - " & Now) statuslabel(True, "Grundkonfiguration gespeichert - " & Now)
Load_Grundkonfig() Load_Grundkonfig()
If LOG_ERRORS_ONLYCheckBox.Checked = False Then
MyLoggerConfig.Debug = True
Else
MyLoggerConfig.Debug = False
End If
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Save Grundkonfig:") MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler in Save Grundkonfig:")
@@ -640,48 +630,47 @@ Public Class frmMain
Sub Manual(ID As Integer) Sub Manual(ID As Integer)
'Try 'Try
Dim notcompleted As Boolean = False Dim notcompleted As Boolean = False
ClassWMResulthandler.clsLogger.Add("## Start Durchlauf WindreamResultHandler - " & Now & " ## ", False) _Logger.Info("## Start Durchlauf WindreamResultHandler - " & Now & " ## ")
'windream initialisieren 'windream initialisieren
If ClassWMResulthandler.clsDatatabase.Init(My.Settings.SQLSERVER_CS) = True Then If DD_WMResulthandler.clsDatatabase.Init(My.Settings.SQLSERVER_CS) = True Then
If _windream.Init() = True Then If _windream.Init() = True Then
ClassWMResulthandler.clsLogger.AddDetailLog("windream vollumfänglich initialisiert!") _Logger.Info("windream vollumfänglich initialisiert!")
Dim DT As DataTable = ClassWMResulthandler.clsDatatabase.Return_Datatable("SELECT GUID FROM TBWMRH_PROFIL WHERE GUID = " & ID) Dim DT As DataTable = DD_WMResulthandler.clsDatatabase.Return_Datatable("SELECT GUID FROM TBWMRH_PROFIL WHERE GUID = " & ID)
If DT.Rows.Count > 0 Then If DT.Rows.Count > 0 Then
ClassWMResulthandler.clsLogger.AddDetailLog("Anzahl der aktiven Profile: " & DT.Rows.Count.ToString) _Logger.Info("Anzahl der aktiven Profile: " & DT.Rows.Count.ToString)
For Each DR As DataRow In DT.Rows For Each DR As DataRow In DT.Rows
ClassWMResulthandler.clsCURRENT._PROFIL_ID = CInt(DR.Item("GUID")) DD_WMResulthandler.clsCURRENT._PROFIL_ID = CInt(DR.Item("GUID"))
'Und nun das Profil durchlaufen 'Und nun das Profil durchlaufen
Dim initresult = ClassWMResulthandler.clsProfil.Init(ClassWMResulthandler.clsCURRENT._PROFIL_ID) Dim initresult = DD_WMResulthandler.clsProfil.Init(DD_WMResulthandler.clsCURRENT._PROFIL_ID)
If initresult = True Then If initresult = True Then
ClassWMResulthandler.clsLogger.WriteLog()
ClassWMResulthandler.clsProfil.Profil_Durchlauf() DD_WMResulthandler.clsProfil.Profil_Durchlauf()
ElseIf initresult = False Then ElseIf initresult = False Then
ClassWMResulthandler.clsLogger.Add("clsProfil konnte nicht initialisiert werden", True, "RUN_THREAD") _Logger.Warn("clsProfil konnte nicht initialisiert werden")
notcompleted = True notcompleted = True
ElseIf initresult = 0 Then ElseIf initresult = 0 Then
ClassWMResulthandler.clsLogger.AddDetailLog("initresult: 0") _Logger.Warn("initresult: 0")
notcompleted = True notcompleted = True
ElseIf initresult = 1 Then ElseIf initresult = 1 Then
ClassWMResulthandler.clsLogger.AddDetailLog("initresult: 1") _Logger.Warn("initresult: 1")
notcompleted = True notcompleted = True
End If End If
Next Next
Else Else
ClassWMResulthandler.clsLogger.Add("- Keine aktiven Profile vorhanden", False) _Logger.Warn("- Keine aktiven Profile vorhanden")
notcompleted = True notcompleted = True
End If End If
Else Else
ClassWMResulthandler.clsLogger.Add("# Achtung: Windream-Init mit Fehlern beendet", False) _Logger.Warn("# Achtung: Windream-Init mit Fehlern beendet")
notcompleted = True
End If End If
ClassWMResulthandler.clsDatatabase.Execute_non_Query("UPDATE TBWMRH_KONFIGURATION SET LAST_TICK = GETDATE() WHERE GUID = 1") DD_WMResulthandler.clsDatatabase.Execute_non_Query("UPDATE TBWMRH_KONFIGURATION SET LAST_TICK = GETDATE() WHERE GUID = 1")
Else Else
ClassWMResulthandler.clsLogger.Add("- clsDatatabase konnte nicht initialisiert werden!", False) _Logger.Warn("- clsDatatabase konnte nicht initialisiert werden!")
notcompleted = True notcompleted = True
End If End If
If notcompleted = True Then If notcompleted = True Then
ClassWMResulthandler.clsLogger.WriteLog()
End If End If
MsgBox("Run completed!", MsgBoxStyle.Information) MsgBox("Run completed!", MsgBoxStyle.Information)
'Catch ex As Exception 'Catch ex As Exception
@@ -701,7 +690,7 @@ 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(ClassWMResulthandler.clsLogger.LogFilename) Process.Start(MyLoggerConfig.LogFile)
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
@@ -709,17 +698,16 @@ 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 ClassWMResulthandler.clsDatatabase.Oracle_CS_Test(STRING1TextBoxFile_Job.Text) = True Then If DD_WMResulthandler.clsDatatabase.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 ClassWMResulthandler.clsDatatabase.MSSQL_CS_Test(STRING1TextBoxFile_Job.Text) = True Then If DD_WMResulthandler.clsDatatabase.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
End If End If
ClassWMResulthandler.clsLogger.WriteLog()
MsgBox("Connection could not be created - Check the log", MsgBoxStyle.Critical) MsgBox("Connection could not be created - Check the log", MsgBoxStyle.Critical)
@@ -745,7 +733,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(System.IO.Path.GetDirectoryName(ClassWMResulthandler.clsLogger.LogFilename)) Process.Start(MyLoggerConfig.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
@@ -757,7 +745,7 @@ Public Class frmMain
End Sub End Sub
Private Sub ToolStripButton21_Click(sender As Object, e As EventArgs) Handles ToolStripButton21.Click Private Sub ToolStripButton21_Click(sender As Object, e As EventArgs) Handles ToolStripButton21.Click
SaveEmail SaveEmail()
End Sub End Sub
Sub SaveEmail() Sub SaveEmail()
Try Try
@@ -775,12 +763,12 @@ Public Class frmMain
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 ClassWMResulthandler.clsEncryption("!35452didalog=") Dim wrapper As New DD_WMResulthandler.clsEncryption("!35452didalog=")
Dim PWPlain = wrapper.DecryptData(EMAIL_PWTextBox.Text) Dim PWPlain = wrapper.DecryptData(EMAIL_PWTextBox.Text)
If ClassWMResulthandler.clsEmail.Email_Send_Independentsoft("Testmail DD Windream-ResultHandler", "This is the body (text will be replaced within profile)", txtTestmail.Text, If DD_WMResulthandler.clsEmail.Email_Send_Independentsoft("Testmail DD Windream-ResultHandler", "This is the body (text will be replaced within profile)", txtTestmail.Text,
EMAIL_FROMTextBox.Text, EMAIL_SMTPTextBox.Text, PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, CheckBoxSSL.CheckState, "") = True Then EMAIL_FROMTextBox.Text, EMAIL_SMTPTextBox.Text, PORTTextBox.Text, EMAIL_USERTextBox.Text, PWPlain, CheckBoxSSL.CheckState, "") = True Then
MsgBox("Email was send successfully.", MsgBoxStyle.Information) MsgBox("Email was send successfully.", MsgBoxStyle.Information)
Else Else
@@ -790,7 +778,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 ClassWMResulthandler.clsEncryption("!35452didalog=") Dim wrapper As New DD_WMResulthandler.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,4 +802,19 @@ Public Class frmMain
PDF_XCHANGE_LOCATIONTextBox.Text = OpenFileDialog1.FileName PDF_XCHANGE_LOCATIONTextBox.Text = OpenFileDialog1.FileName
End If End If
End Sub End Sub
Private Sub ToolStripButton23_Click(sender As Object, e As EventArgs) Handles tsbtnStartProfile.Click
Try
If IsNumeric(Me.GUIDTextBox.Text) Then
Me.TBWMRH_PROFILTableAdapter.cmdUpdateRunningnow(Me.GUIDTextBox.Text)
Manual(Me.GUIDTextBox.Text)
End If
Catch ex As Exception
End Try
End Sub
Private Sub LOG_ERRORS_ONLYCheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles LOG_ERRORS_ONLYCheckBox.CheckedChanged
End Sub
End Class End Class

3
app/ResultHandler_Konfig/packages.config
View File

@@ -1,6 +1,7 @@
<?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="10.0.3" targetFramework="net451" />
<package id="NLog" version="4.5.8" targetFramework="net461" />
<package id="System.Data.SQLite" version="1.0.94.1" targetFramework="net461" /> <package id="System.Data.SQLite" version="1.0.94.1" targetFramework="net461" />
</packages> </packages>

BIN
app/packages/EntityFramework.6.2.0/EntityFramework.6.2.0.nupkg vendored Normal file
View File

Binary file not shown.

5
app/packages/EntityFramework.6.2.0/content/net40/App.config.transform vendored Normal file
View File

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

5
app/packages/EntityFramework.6.2.0/content/net40/Web.config.transform vendored Normal file
View File

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

BIN
app/packages/EntityFramework.6.2.0/lib/net40/EntityFramework.SqlServer.dll vendored Normal file
View File

Binary file not shown.

1959
app/packages/EntityFramework.6.2.0/lib/net40/EntityFramework.SqlServer.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/EntityFramework.6.2.0/lib/net40/EntityFramework.dll vendored Normal file
View File

Binary file not shown.

45898
app/packages/EntityFramework.6.2.0/lib/net40/EntityFramework.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/EntityFramework.6.2.0/lib/net45/EntityFramework.SqlServer.dll vendored Normal file
View File

Binary file not shown.

2093
app/packages/EntityFramework.6.2.0/lib/net45/EntityFramework.SqlServer.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/EntityFramework.6.2.0/lib/net45/EntityFramework.dll vendored Normal file
View File

Binary file not shown.

53236
app/packages/EntityFramework.6.2.0/lib/net45/EntityFramework.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/EntityFramework.6.2.0/tools/EntityFramework.PowerShell.Utility.dll vendored Normal file
View File

Binary file not shown.

BIN
app/packages/EntityFramework.6.2.0/tools/EntityFramework.PowerShell.dll vendored Normal file
View File

Binary file not shown.

BIN
app/packages/EntityFramework.6.2.0/tools/EntityFramework.psd1 vendored Normal file
View File

Binary file not shown.

1176
app/packages/EntityFramework.6.2.0/tools/EntityFramework.psm1 vendored Normal file
View File

File diff suppressed because it is too large Load Diff

48
app/packages/EntityFramework.6.2.0/tools/about_EntityFramework.help.txt vendored Normal file
View File

@@ -0,0 +1,48 @@
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.2.0/tools/init.ps1 vendored Normal file
View File

@@ -0,0 +1,155 @@
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
# MIIa3gYJKoZIhvcNAQcCoIIazzCCGssCAQExCzAJBgUrDgMCGgUAMGkGCisGAQQB
# gjcCAQSgWzBZMDQGCisGAQQBgjcCAR4wJgIDAQAABBAfzDtgWUsITrck0sYpfvNR
# AgEAAgEAAgEAAgEAAgEAMCEwCQYFKw4DAhoFAAQUjXj4E03IfImYfKMB4CA3DfY0
# KZmgghWAMIIEwjCCA6qgAwIBAgITMwAAAMDeLD0HlORJeQAAAAAAwDANBgkqhkiG
# 9w0BAQUFADB3MQswCQYDVQQGEwJVUzETMBEGA1UECBMKV2FzaGluZ3RvbjEQMA4G
# A1UEBxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0IENvcnBvcmF0aW9uMSEw
# HwYDVQQDExhNaWNyb3NvZnQgVGltZS1TdGFtcCBQQ0EwHhcNMTYwOTA3MTc1ODUw
# WhcNMTgwOTA3MTc1ODUwWjCBsjELMAkGA1UEBhMCVVMxEzARBgNVBAgTCldhc2hp
# bmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29mdCBDb3Jw
# b3JhdGlvbjEMMAoGA1UECxMDQU9DMScwJQYDVQQLEx5uQ2lwaGVyIERTRSBFU046
# N0FCNS0yREYyLURBM0YxJTAjBgNVBAMTHE1pY3Jvc29mdCBUaW1lLVN0YW1wIFNl
# cnZpY2UwggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQDoiKVSfklVAB4E
# Oc9+r95kl32muXNITYcTbaRtuJl+MQzEnD0eU2JUXx2mI06ONnTfFW39ZQPF1pvU
# WkHBrS6m8oKy7Em4Ol91RJ5Knwy1VvY2Tawqh+VxwdARRgOeFtFm0S+Pa+BrXtVU
# hTtGl0BGMsKGEQKdDNGJD259Iq47qPLw3CmllE3/YFw1GGoJ9C3ry+I7ntxIjJYB
# LXA122vw93OOD/zWFh1SVq2AejPxcjKtHH2hjoeTKwkFeMNtIekrUSvhbuCGxW5r
# 54KW0Yus4o8392l9Vz8lSEn2j/TgPTqD6EZlzkpw54VSwede/vyqgZIrRbat0bAh
# b8doY8vDAgMBAAGjggEJMIIBBTAdBgNVHQ4EFgQUFf5K2jOJ0xmF1WRZxNxTQRBP
# tzUwHwYDVR0jBBgwFoAUIzT42VJGcArtQPt2+7MrsMM1sw8wVAYDVR0fBE0wSzBJ
# oEegRYZDaHR0cDovL2NybC5taWNyb3NvZnQuY29tL3BraS9jcmwvcHJvZHVjdHMv
# TWljcm9zb2Z0VGltZVN0YW1wUENBLmNybDBYBggrBgEFBQcBAQRMMEowSAYIKwYB
# BQUHMAKGPGh0dHA6Ly93d3cubWljcm9zb2Z0LmNvbS9wa2kvY2VydHMvTWljcm9z
# b2Z0VGltZVN0YW1wUENBLmNydDATBgNVHSUEDDAKBggrBgEFBQcDCDANBgkqhkiG
# 9w0BAQUFAAOCAQEAGeJAuzJMR+kovMi8RK/LtfrKazWlR5Lx02hM9GFmMk1zWCSc
# pfVY6xqfzWFllCFHBtOaJZqLiV97jfNCLpG0PULz24CWSkG7jJ+mZaCSicZ7ZC3b
# WDh1zpc54llYVyyTkRVYx/mtc9GujqbS8CBZgjaT/JsECnvGAPUcLYuSGt53CU1b
# UuiNwuzAhai4glcYyq3/7qMmmAtbnbCZhR5ySoMy7BwdzN70drLtafCJQncfAHXV
# O5r6SX4U/2J2zvWhA8lqhZu9SRulFGRvf81VTf+k5rJ2TjL6dYtSchooJ5YVvUk6
# i7bfV0VBN8xpaUhk8jbBnxhDPKIvDvnZlhPuJjCCBOswggPToAMCAQICEzMAAAF4
# JVq1zSPGX5UAAQAAAXgwDQYJKoZIhvcNAQEFBQAweTELMAkGA1UEBhMCVVMxEzAR
# BgNVBAgTCldhc2hpbmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1p
# Y3Jvc29mdCBDb3Jwb3JhdGlvbjEjMCEGA1UEAxMaTWljcm9zb2Z0IENvZGUgU2ln
# bmluZyBQQ0EwHhcNMTcwODExMjAxMTE1WhcNMTgwODExMjAxMTE1WjCBgjELMAkG
# A1UEBhMCVVMxEzARBgNVBAgTCldhc2hpbmd0b24xEDAOBgNVBAcTB1JlZG1vbmQx
# HjAcBgNVBAoTFU1pY3Jvc29mdCBDb3Jwb3JhdGlvbjEMMAoGA1UECxMDQU9DMR4w
# HAYDVQQDExVNaWNyb3NvZnQgQ29ycG9yYXRpb24wggEiMA0GCSqGSIb3DQEBAQUA
# A4IBDwAwggEKAoIBAQCZbh1TVaudsrIbXUPPB9c8S+E+dKSbskHKYlG6SGTH8jhT
# hpuvGiAO87F2b9GHVN+DvszaMkGy/xQgHaGEJLfpnb3kpakic7E0bjDHdG4KnHRb
# no/wfUkGLfS79o+cw//RY8Ck6yE+0czDBcxp0Gbw5JyGP+KFqvzRR/3Tv3nt/5x0
# 5ZnEOHYP+eDVikDvn/DH+oxxtiCfX3tkvtm/yX4eOb47YdmYKQjCgz2+Nil/lupY
# vU0QFIjvke3jshqQINDng/vO9ys2qA0ex/q5hlLKQTST99dGoM86Ge6F723ReToq
# KnGLN8kiCG7uNapOAIQrpCHZq96CVumiaA5ZvxU9AgMBAAGjggFgMIIBXDATBgNV
# HSUEDDAKBggrBgEFBQcDAzAdBgNVHQ4EFgQUjuhtD3FD7tk/RKloJFX05cpgLjcw
# UQYDVR0RBEowSKRGMEQxDDAKBgNVBAsTA0FPQzE0MDIGA1UEBRMrMjI5ODAzKzFh
# YmY5ZTVmLWNlZDAtNDJlNi1hNjVkLWQ5MzUwOTU5ZmUwZTAfBgNVHSMEGDAWgBTL
# EejK0rQWWAHJNy4zFha5TJoKHzBWBgNVHR8ETzBNMEugSaBHhkVodHRwOi8vY3Js
# Lm1pY3Jvc29mdC5jb20vcGtpL2NybC9wcm9kdWN0cy9NaWNDb2RTaWdQQ0FfMDgt
# MzEtMjAxMC5jcmwwWgYIKwYBBQUHAQEETjBMMEoGCCsGAQUFBzAChj5odHRwOi8v
# d3d3Lm1pY3Jvc29mdC5jb20vcGtpL2NlcnRzL01pY0NvZFNpZ1BDQV8wOC0zMS0y
# MDEwLmNydDANBgkqhkiG9w0BAQUFAAOCAQEAYnG/oHG/xgZYR8NAMHZ/vE9GM0e4
# 7YdhuTea2uY7pSGwM707wp8Wan0Fa6evK1PWfcd/XNOh2BpEv5o8RmKDoEsG0ECP
# 13Jug7cklfKreBVHQ+Djg43VVFLZpuo7aOAVK6wjlcnpPUtn+SfH9K0aM2FjDKVJ
# FW6XFKXBat5R+Zp6uOxWTxpSeMTeDC5zF6IY6ogR1uzU+9EQoRlAvkwX6po+exEL
# nMLr4++P+fqOxIU+PODIoB8ijClAqwwKvLlMPa3qlrNHt+LweTMu7lvGC/RA18wU
# zzXAeomuZ03blUw+bkOiVgWOk4S0RN7EnW7zjJV8gd/+G2dbToUi1cB/fTCCBbww
# ggOkoAMCAQICCmEzJhoAAAAAADEwDQYJKoZIhvcNAQEFBQAwXzETMBEGCgmSJomT
# 8ixkARkWA2NvbTEZMBcGCgmSJomT8ixkARkWCW1pY3Jvc29mdDEtMCsGA1UEAxMk
# TWljcm9zb2Z0IFJvb3QgQ2VydGlmaWNhdGUgQXV0aG9yaXR5MB4XDTEwMDgzMTIy
# MTkzMloXDTIwMDgzMTIyMjkzMloweTELMAkGA1UEBhMCVVMxEzARBgNVBAgTCldh
# c2hpbmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29mdCBD
# b3Jwb3JhdGlvbjEjMCEGA1UEAxMaTWljcm9zb2Z0IENvZGUgU2lnbmluZyBQQ0Ew
# ggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQCycllcGTBkvx2aYCAgQpl2
# U2w+G9ZvzMvx6mv+lxYQ4N86dIMaty+gMuz/3sJCTiPVcgDbNVcKicquIEn08Gis
# TUuNpb15S3GbRwfa/SXfnXWIz6pzRH/XgdvzvfI2pMlcRdyvrT3gKGiXGqelcnNW
# 8ReU5P01lHKg1nZfHndFg4U4FtBzWwW6Z1KNpbJpL9oZC/6SdCnidi9U3RQwWfjS
# jWL9y8lfRjFQuScT5EAwz3IpECgixzdOPaAyPZDNoTgGhVxOVoIoKgUyt0vXT2Pn
# 0i1i8UU956wIAPZGoZ7RW4wmU+h6qkryRs83PDietHdcpReejcsRj1Y8wawJXwPT
# AgMBAAGjggFeMIIBWjAPBgNVHRMBAf8EBTADAQH/MB0GA1UdDgQWBBTLEejK0rQW
# WAHJNy4zFha5TJoKHzALBgNVHQ8EBAMCAYYwEgYJKwYBBAGCNxUBBAUCAwEAATAj
# BgkrBgEEAYI3FQIEFgQU/dExTtMmipXhmGA7qDFvpjy82C0wGQYJKwYBBAGCNxQC
# BAweCgBTAHUAYgBDAEEwHwYDVR0jBBgwFoAUDqyCYEBWJ5flJRP8KuEKU5VZ5KQw
# UAYDVR0fBEkwRzBFoEOgQYY/aHR0cDovL2NybC5taWNyb3NvZnQuY29tL3BraS9j
# cmwvcHJvZHVjdHMvbWljcm9zb2Z0cm9vdGNlcnQuY3JsMFQGCCsGAQUFBwEBBEgw
# RjBEBggrBgEFBQcwAoY4aHR0cDovL3d3dy5taWNyb3NvZnQuY29tL3BraS9jZXJ0
# cy9NaWNyb3NvZnRSb290Q2VydC5jcnQwDQYJKoZIhvcNAQEFBQADggIBAFk5Pn8m
# Rq/rb0CxMrVq6w4vbqhJ9+tfde1MOy3XQ60L/svpLTGjI8x8UJiAIV2sPS9MuqKo
# VpzjcLu4tPh5tUly9z7qQX/K4QwXaculnCAt+gtQxFbNLeNK0rxw56gNogOlVuC4
# iktX8pVCnPHz7+7jhh80PLhWmvBTI4UqpIIck+KUBx3y4k74jKHK6BOlkU7IG9KP
# cpUqcW2bGvgc8FPWZ8wi/1wdzaKMvSeyeWNWRKJRzfnpo1hW3ZsCRUQvX/TartSC
# Mm78pJUT5Otp56miLL7IKxAOZY6Z2/Wi+hImCWU4lPF6H0q70eFW6NB4lhhcyTUW
# X92THUmOLb6tNEQc7hAVGgBd3TVbIc6YxwnuhQ6MT20OE049fClInHLR82zKwexw
# o1eSV32UjaAbSANa98+jZwp0pTbtLS8XyOZyNxL0b7E8Z4L5UrKNMxZlHg6K3RDe
# ZPRvzkbU0xfpecQEtNP7LN8fip6sCvsTJ0Ct5PnhqX9GuwdgR2VgQE6wQuxO7bN2
# edgKNAltHIAxH+IOVN3lofvlRxCtZJj/UBYufL8FIXrilUEnacOTj5XJjdibIa4N
# XJzwoq6GaIMMai27dmsAHZat8hZ79haDJLmIz2qoRzEvmtzjcT3XAH5iR9HOiMm4
# GPoOco3Boz2vAkBq/2mbluIQqBC0N1AI1sM9MIIGBzCCA++gAwIBAgIKYRZoNAAA
# AAAAHDANBgkqhkiG9w0BAQUFADBfMRMwEQYKCZImiZPyLGQBGRYDY29tMRkwFwYK
# CZImiZPyLGQBGRYJbWljcm9zb2Z0MS0wKwYDVQQDEyRNaWNyb3NvZnQgUm9vdCBD
# ZXJ0aWZpY2F0ZSBBdXRob3JpdHkwHhcNMDcwNDAzMTI1MzA5WhcNMjEwNDAzMTMw
# MzA5WjB3MQswCQYDVQQGEwJVUzETMBEGA1UECBMKV2FzaGluZ3RvbjEQMA4GA1UE
# BxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0IENvcnBvcmF0aW9uMSEwHwYD
# VQQDExhNaWNyb3NvZnQgVGltZS1TdGFtcCBQQ0EwggEiMA0GCSqGSIb3DQEBAQUA
# A4IBDwAwggEKAoIBAQCfoWyx39tIkip8ay4Z4b3i48WZUSNQrc7dGE4kD+7Rp9FM
# rXQwIBHrB9VUlRVJlBtCkq6YXDAm2gBr6Hu97IkHD/cOBJjwicwfyzMkh53y9Gcc
# LPx754gd6udOo6HBI1PKjfpFzwnQXq/QsEIEovmmbJNn1yjcRlOwhtDlKEYuJ6yG
# T1VSDOQDLPtqkJAwbofzWTCd+n7Wl7PoIZd++NIT8wi3U21StEWQn0gASkdmEScp
# ZqiX5NMGgUqi+YSnEUcUCYKfhO1VeP4Bmh1QCIUAEDBG7bfeI0a7xC1Un68eeEEx
# d8yb3zuDk6FhArUdDbH895uyAc4iS1T/+QXDwiALAgMBAAGjggGrMIIBpzAPBgNV
# HRMBAf8EBTADAQH/MB0GA1UdDgQWBBQjNPjZUkZwCu1A+3b7syuwwzWzDzALBgNV
# HQ8EBAMCAYYwEAYJKwYBBAGCNxUBBAMCAQAwgZgGA1UdIwSBkDCBjYAUDqyCYEBW
# J5flJRP8KuEKU5VZ5KShY6RhMF8xEzARBgoJkiaJk/IsZAEZFgNjb20xGTAXBgoJ
# kiaJk/IsZAEZFgltaWNyb3NvZnQxLTArBgNVBAMTJE1pY3Jvc29mdCBSb290IENl
# cnRpZmljYXRlIEF1dGhvcml0eYIQea0WoUqgpa1Mc1j0BxMuZTBQBgNVHR8ESTBH
# MEWgQ6BBhj9odHRwOi8vY3JsLm1pY3Jvc29mdC5jb20vcGtpL2NybC9wcm9kdWN0
# cy9taWNyb3NvZnRyb290Y2VydC5jcmwwVAYIKwYBBQUHAQEESDBGMEQGCCsGAQUF
# BzAChjhodHRwOi8vd3d3Lm1pY3Jvc29mdC5jb20vcGtpL2NlcnRzL01pY3Jvc29m
# dFJvb3RDZXJ0LmNydDATBgNVHSUEDDAKBggrBgEFBQcDCDANBgkqhkiG9w0BAQUF
# AAOCAgEAEJeKw1wDRDbd6bStd9vOeVFNAbEudHFbbQwTq86+e4+4LtQSooxtYrhX
# AstOIBNQmd16QOJXu69YmhzhHQGGrLt48ovQ7DsB7uK+jwoFyI1I4vBTFd1Pq5Lk
# 541q1YDB5pTyBi+FA+mRKiQicPv2/OR4mS4N9wficLwYTp2OawpylbihOZxnLcVR
# DupiXD8WmIsgP+IHGjL5zDFKdjE9K3ILyOpwPf+FChPfwgphjvDXuBfrTot/xTUr
# XqO/67x9C0J71FNyIe4wyrt4ZVxbARcKFA7S2hSY9Ty5ZlizLS/n+YWGzFFW6J1w
# lGysOUzU9nm/qhh6YinvopspNAZ3GmLJPR5tH4LwC8csu89Ds+X57H2146SodDW4
# TsVxIxImdgs8UoxxWkZDFLyzs7BNZ8ifQv+AeSGAnhUwZuhCEl4ayJ4iIdBD6Svp
# u/RIzCzU2DKATCYqSCRfWupW76bemZ3KOm+9gSd0BhHudiG/m4LBJ1S2sWo9iaF2
# YbRuoROmv6pH8BJv/YoybLL+31HIjCPJZr2dHYcSZAI9La9Zj7jkIeW1sMpjtHhU
# BdRBLlCslLCleKuzoJZ1GtmShxN1Ii8yqAhuoFuMJb+g74TKIdbrHk/Jmu5J4PcB
# ZW+JC33Iacjmbuqnl84xKf8OxVtc2E0bodj6L54/LlUWa8kTo/0xggTIMIIExAIB
# ATCBkDB5MQswCQYDVQQGEwJVUzETMBEGA1UECBMKV2FzaGluZ3RvbjEQMA4GA1UE
# BxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0IENvcnBvcmF0aW9uMSMwIQYD
# VQQDExpNaWNyb3NvZnQgQ29kZSBTaWduaW5nIFBDQQITMwAAAXglWrXNI8ZflQAB
# AAABeDAJBgUrDgMCGgUAoIHhMBkGCSqGSIb3DQEJAzEMBgorBgEEAYI3AgEEMBwG
# CisGAQQBgjcCAQsxDjAMBgorBgEEAYI3AgEVMCMGCSqGSIb3DQEJBDEWBBTq02RG
# y+pjEYntEMXja7SF8TbmOjCBgAYKKwYBBAGCNwIBDDFyMHCgUoBQAEUAbgB0AGkA
# dAB5ACAARgByAGEAbQBlAHcAbwByAGsAIABUAG8AbwBsAHMAIABmAG8AcgAgAFYA
# aQBzAHUAYQBsACAAUwB0AHUAZABpAG+hGoAYaHR0cDovL21zZG4uY29tL2RhdGEv
# ZWYgMA0GCSqGSIb3DQEBAQUABIIBAHQSKzEL3TItnbRhSBIYMFwe3udOxpA/S2dB
# gUgxV1NkH+j0UbOnslGkt8gDBIlFre+2F+b7U4dnBiOjhizMyeAKSHYGdHqSoDJ0
# lM4D5tuTSnoJ8FZtem/IjyBgKCmFMv05/ivF2StQ/nBhLj0QYcF4S9NZXj6JKFNa
# WZJjFRaMRbkyvyD+p22Y1FyvcZPetZfoBYXs7GoaDdLvwrvfjKFwv4YGZ40WIGDX
# 566IZCmnpMNJ2bfj8rNZUQBi8SZocFfAPw+9r/FLz51UTrKB0YRCBTXeWMYOJRpt
# 6is5bbSLYJz7Y/BvoLy1Lt+BaqJEntP2lB3RvSsEm+BZOtDCcAahggIoMIICJAYJ
# KoZIhvcNAQkGMYICFTCCAhECAQEwgY4wdzELMAkGA1UEBhMCVVMxEzARBgNVBAgT
# Cldhc2hpbmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29m
# dCBDb3Jwb3JhdGlvbjEhMB8GA1UEAxMYTWljcm9zb2Z0IFRpbWUtU3RhbXAgUENB
# AhMzAAAAwN4sPQeU5El5AAAAAADAMAkGBSsOAwIaBQCgXTAYBgkqhkiG9w0BCQMx
# CwYJKoZIhvcNAQcBMBwGCSqGSIb3DQEJBTEPFw0xNzEwMjMyMDEzNDVaMCMGCSqG
# SIb3DQEJBDEWBBSn3QkcYO648MmwXthSXKh2NV8R9TANBgkqhkiG9w0BAQUFAASC
# AQCnYTuQPUR6cHCGZStrauV4FQS+OC0dCo7D+mHETHYnDfgRKAloSQFBSqCm4C2+
# GH20vmak1LgnN48Gc7YBQ4tXyW0HXo8yfCJDBeaF1tYGGLIMPthq3Pqu0+mqrJ2C
# rklJw6+cKsF9+ESo9hoTCf3qztNjbEtaXrsakX+dALcMzJ4ism2oh5bUHd6CxWfF
# Z/xLn4VQxzmZUSPbnhkIAoPwauAswHi1jgqo7Qd0HSIKHGNex7SOGgBfTWD4gCe4
# IzGJlFFmCT6pFsjvreEnaQLNBv+yOj9P1Pf4MDVrNQn0OLeWSxfpf+XfgECLi0LS
# QMxcy5Q0PezBaxQKzBTp39mT
# SIG # End signature block

154
app/packages/EntityFramework.6.2.0/tools/install.ps1 vendored Normal file
View File

@@ -0,0 +1,154 @@
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
# MIIa3gYJKoZIhvcNAQcCoIIazzCCGssCAQExCzAJBgUrDgMCGgUAMGkGCisGAQQB
# gjcCAQSgWzBZMDQGCisGAQQBgjcCAR4wJgIDAQAABBAfzDtgWUsITrck0sYpfvNR
# AgEAAgEAAgEAAgEAAgEAMCEwCQYFKw4DAhoFAAQUt8mwpdjiFmu2B4KBh+vEeQ+V
# VnSgghWAMIIEwjCCA6qgAwIBAgITMwAAALu2dyRxSiAAIAAAAAAAuzANBgkqhkiG
# 9w0BAQUFADB3MQswCQYDVQQGEwJVUzETMBEGA1UECBMKV2FzaGluZ3RvbjEQMA4G
# A1UEBxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0IENvcnBvcmF0aW9uMSEw
# HwYDVQQDExhNaWNyb3NvZnQgVGltZS1TdGFtcCBQQ0EwHhcNMTYwOTA3MTc1ODQ3
# WhcNMTgwOTA3MTc1ODQ3WjCBsjELMAkGA1UEBhMCVVMxEzARBgNVBAgTCldhc2hp
# bmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29mdCBDb3Jw
# b3JhdGlvbjEMMAoGA1UECxMDQU9DMScwJQYDVQQLEx5uQ2lwaGVyIERTRSBFU046
# MERFOC0yREM1LTNDQTkxJTAjBgNVBAMTHE1pY3Jvc29mdCBUaW1lLVN0YW1wIFNl
# cnZpY2UwggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQC48+U38sLxQNu8
# OO1wnT9mKeHv+f/jxafTFXzx9VF59IK/n/jLv4HIXt8ucy3KjBTM5Jf6D0nQlI4h
# Sizjrn6lO61q+V8oZiYYhjgR258rg8MDIrPpZMxK6OmD0d1wtksHW1cG21YKg5jg
# idT2hmQBpiL9Cra3ccY5keu0kl6OfZFoj4DF0i0JRVFSy1C9gKP4H950XIjlA2Yo
# TWN0LuHEHYMvwD1mOpAq2dVwPZh6xeNnpV8U/qLneyb9I/SqY/87tsZCn4FH7R3x
# 0TgK2eRwpWXfwGbUb1R/UTLd20aQ+my4NWwSsndeG+0vsYwaF40heB2lo1ThmByr
# OTBmEosTAgMBAAGjggEJMIIBBTAdBgNVHQ4EFgQUj9yNX+4+R8GZ7rcy4MdnJHXO
# KkswHwYDVR0jBBgwFoAUIzT42VJGcArtQPt2+7MrsMM1sw8wVAYDVR0fBE0wSzBJ
# oEegRYZDaHR0cDovL2NybC5taWNyb3NvZnQuY29tL3BraS9jcmwvcHJvZHVjdHMv
# TWljcm9zb2Z0VGltZVN0YW1wUENBLmNybDBYBggrBgEFBQcBAQRMMEowSAYIKwYB
# BQUHMAKGPGh0dHA6Ly93d3cubWljcm9zb2Z0LmNvbS9wa2kvY2VydHMvTWljcm9z
# b2Z0VGltZVN0YW1wUENBLmNydDATBgNVHSUEDDAKBggrBgEFBQcDCDANBgkqhkiG
# 9w0BAQUFAAOCAQEAcMI8Q0PxQVvxZSD1fjszuD6VF/qPZjKZj9WLTjWjZT2k9lzG
# yvSL7vy9J7lnyMATrbm5ptqAfdonNygLaBm05MnrIvgPJYK89wyTIyS1u71ro7z+
# EVrGPaKZiD+WvH8SWP+OWZQNf55fEL8tZo+a1oHm3lUARi5rR916OQvb4UnCENyV
# g8IfmupnwpxHcmIBUWZtTKAuKmuX/c8G2z4KJ8WhruYjPDWYQXJrQ5t7PhZa19Ge
# kOOtigge9EKIAWhZUJkw9fnfRm2IFX0gWtOzRXVNhR109ISacbNxd0oUboRYHmlq
# wGrOz64/3SDdOeN7PjvLwFmThuoXIsxrjQD8ODCCBOswggPToAMCAQICEzMAAAF4
# JVq1zSPGX5UAAQAAAXgwDQYJKoZIhvcNAQEFBQAweTELMAkGA1UEBhMCVVMxEzAR
# BgNVBAgTCldhc2hpbmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1p
# Y3Jvc29mdCBDb3Jwb3JhdGlvbjEjMCEGA1UEAxMaTWljcm9zb2Z0IENvZGUgU2ln
# bmluZyBQQ0EwHhcNMTcwODExMjAxMTE1WhcNMTgwODExMjAxMTE1WjCBgjELMAkG
# A1UEBhMCVVMxEzARBgNVBAgTCldhc2hpbmd0b24xEDAOBgNVBAcTB1JlZG1vbmQx
# HjAcBgNVBAoTFU1pY3Jvc29mdCBDb3Jwb3JhdGlvbjEMMAoGA1UECxMDQU9DMR4w
# HAYDVQQDExVNaWNyb3NvZnQgQ29ycG9yYXRpb24wggEiMA0GCSqGSIb3DQEBAQUA
# A4IBDwAwggEKAoIBAQCZbh1TVaudsrIbXUPPB9c8S+E+dKSbskHKYlG6SGTH8jhT
# hpuvGiAO87F2b9GHVN+DvszaMkGy/xQgHaGEJLfpnb3kpakic7E0bjDHdG4KnHRb
# no/wfUkGLfS79o+cw//RY8Ck6yE+0czDBcxp0Gbw5JyGP+KFqvzRR/3Tv3nt/5x0
# 5ZnEOHYP+eDVikDvn/DH+oxxtiCfX3tkvtm/yX4eOb47YdmYKQjCgz2+Nil/lupY
# vU0QFIjvke3jshqQINDng/vO9ys2qA0ex/q5hlLKQTST99dGoM86Ge6F723ReToq
# KnGLN8kiCG7uNapOAIQrpCHZq96CVumiaA5ZvxU9AgMBAAGjggFgMIIBXDATBgNV
# HSUEDDAKBggrBgEFBQcDAzAdBgNVHQ4EFgQUjuhtD3FD7tk/RKloJFX05cpgLjcw
# UQYDVR0RBEowSKRGMEQxDDAKBgNVBAsTA0FPQzE0MDIGA1UEBRMrMjI5ODAzKzFh
# YmY5ZTVmLWNlZDAtNDJlNi1hNjVkLWQ5MzUwOTU5ZmUwZTAfBgNVHSMEGDAWgBTL
# EejK0rQWWAHJNy4zFha5TJoKHzBWBgNVHR8ETzBNMEugSaBHhkVodHRwOi8vY3Js
# Lm1pY3Jvc29mdC5jb20vcGtpL2NybC9wcm9kdWN0cy9NaWNDb2RTaWdQQ0FfMDgt
# MzEtMjAxMC5jcmwwWgYIKwYBBQUHAQEETjBMMEoGCCsGAQUFBzAChj5odHRwOi8v
# d3d3Lm1pY3Jvc29mdC5jb20vcGtpL2NlcnRzL01pY0NvZFNpZ1BDQV8wOC0zMS0y
# MDEwLmNydDANBgkqhkiG9w0BAQUFAAOCAQEAYnG/oHG/xgZYR8NAMHZ/vE9GM0e4
# 7YdhuTea2uY7pSGwM707wp8Wan0Fa6evK1PWfcd/XNOh2BpEv5o8RmKDoEsG0ECP
# 13Jug7cklfKreBVHQ+Djg43VVFLZpuo7aOAVK6wjlcnpPUtn+SfH9K0aM2FjDKVJ
# FW6XFKXBat5R+Zp6uOxWTxpSeMTeDC5zF6IY6ogR1uzU+9EQoRlAvkwX6po+exEL
# nMLr4++P+fqOxIU+PODIoB8ijClAqwwKvLlMPa3qlrNHt+LweTMu7lvGC/RA18wU
# zzXAeomuZ03blUw+bkOiVgWOk4S0RN7EnW7zjJV8gd/+G2dbToUi1cB/fTCCBbww
# ggOkoAMCAQICCmEzJhoAAAAAADEwDQYJKoZIhvcNAQEFBQAwXzETMBEGCgmSJomT
# 8ixkARkWA2NvbTEZMBcGCgmSJomT8ixkARkWCW1pY3Jvc29mdDEtMCsGA1UEAxMk
# TWljcm9zb2Z0IFJvb3QgQ2VydGlmaWNhdGUgQXV0aG9yaXR5MB4XDTEwMDgzMTIy
# MTkzMloXDTIwMDgzMTIyMjkzMloweTELMAkGA1UEBhMCVVMxEzARBgNVBAgTCldh
# c2hpbmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29mdCBD
# b3Jwb3JhdGlvbjEjMCEGA1UEAxMaTWljcm9zb2Z0IENvZGUgU2lnbmluZyBQQ0Ew
# ggEiMA0GCSqGSIb3DQEBAQUAA4IBDwAwggEKAoIBAQCycllcGTBkvx2aYCAgQpl2
# U2w+G9ZvzMvx6mv+lxYQ4N86dIMaty+gMuz/3sJCTiPVcgDbNVcKicquIEn08Gis
# TUuNpb15S3GbRwfa/SXfnXWIz6pzRH/XgdvzvfI2pMlcRdyvrT3gKGiXGqelcnNW
# 8ReU5P01lHKg1nZfHndFg4U4FtBzWwW6Z1KNpbJpL9oZC/6SdCnidi9U3RQwWfjS
# jWL9y8lfRjFQuScT5EAwz3IpECgixzdOPaAyPZDNoTgGhVxOVoIoKgUyt0vXT2Pn
# 0i1i8UU956wIAPZGoZ7RW4wmU+h6qkryRs83PDietHdcpReejcsRj1Y8wawJXwPT
# AgMBAAGjggFeMIIBWjAPBgNVHRMBAf8EBTADAQH/MB0GA1UdDgQWBBTLEejK0rQW
# WAHJNy4zFha5TJoKHzALBgNVHQ8EBAMCAYYwEgYJKwYBBAGCNxUBBAUCAwEAATAj
# BgkrBgEEAYI3FQIEFgQU/dExTtMmipXhmGA7qDFvpjy82C0wGQYJKwYBBAGCNxQC
# BAweCgBTAHUAYgBDAEEwHwYDVR0jBBgwFoAUDqyCYEBWJ5flJRP8KuEKU5VZ5KQw
# UAYDVR0fBEkwRzBFoEOgQYY/aHR0cDovL2NybC5taWNyb3NvZnQuY29tL3BraS9j
# cmwvcHJvZHVjdHMvbWljcm9zb2Z0cm9vdGNlcnQuY3JsMFQGCCsGAQUFBwEBBEgw
# RjBEBggrBgEFBQcwAoY4aHR0cDovL3d3dy5taWNyb3NvZnQuY29tL3BraS9jZXJ0
# cy9NaWNyb3NvZnRSb290Q2VydC5jcnQwDQYJKoZIhvcNAQEFBQADggIBAFk5Pn8m
# Rq/rb0CxMrVq6w4vbqhJ9+tfde1MOy3XQ60L/svpLTGjI8x8UJiAIV2sPS9MuqKo
# VpzjcLu4tPh5tUly9z7qQX/K4QwXaculnCAt+gtQxFbNLeNK0rxw56gNogOlVuC4
# iktX8pVCnPHz7+7jhh80PLhWmvBTI4UqpIIck+KUBx3y4k74jKHK6BOlkU7IG9KP
# cpUqcW2bGvgc8FPWZ8wi/1wdzaKMvSeyeWNWRKJRzfnpo1hW3ZsCRUQvX/TartSC
# Mm78pJUT5Otp56miLL7IKxAOZY6Z2/Wi+hImCWU4lPF6H0q70eFW6NB4lhhcyTUW
# X92THUmOLb6tNEQc7hAVGgBd3TVbIc6YxwnuhQ6MT20OE049fClInHLR82zKwexw
# o1eSV32UjaAbSANa98+jZwp0pTbtLS8XyOZyNxL0b7E8Z4L5UrKNMxZlHg6K3RDe
# ZPRvzkbU0xfpecQEtNP7LN8fip6sCvsTJ0Ct5PnhqX9GuwdgR2VgQE6wQuxO7bN2
# edgKNAltHIAxH+IOVN3lofvlRxCtZJj/UBYufL8FIXrilUEnacOTj5XJjdibIa4N
# XJzwoq6GaIMMai27dmsAHZat8hZ79haDJLmIz2qoRzEvmtzjcT3XAH5iR9HOiMm4
# GPoOco3Boz2vAkBq/2mbluIQqBC0N1AI1sM9MIIGBzCCA++gAwIBAgIKYRZoNAAA
# AAAAHDANBgkqhkiG9w0BAQUFADBfMRMwEQYKCZImiZPyLGQBGRYDY29tMRkwFwYK
# CZImiZPyLGQBGRYJbWljcm9zb2Z0MS0wKwYDVQQDEyRNaWNyb3NvZnQgUm9vdCBD
# ZXJ0aWZpY2F0ZSBBdXRob3JpdHkwHhcNMDcwNDAzMTI1MzA5WhcNMjEwNDAzMTMw
# MzA5WjB3MQswCQYDVQQGEwJVUzETMBEGA1UECBMKV2FzaGluZ3RvbjEQMA4GA1UE
# BxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0IENvcnBvcmF0aW9uMSEwHwYD
# VQQDExhNaWNyb3NvZnQgVGltZS1TdGFtcCBQQ0EwggEiMA0GCSqGSIb3DQEBAQUA
# A4IBDwAwggEKAoIBAQCfoWyx39tIkip8ay4Z4b3i48WZUSNQrc7dGE4kD+7Rp9FM
# rXQwIBHrB9VUlRVJlBtCkq6YXDAm2gBr6Hu97IkHD/cOBJjwicwfyzMkh53y9Gcc
# LPx754gd6udOo6HBI1PKjfpFzwnQXq/QsEIEovmmbJNn1yjcRlOwhtDlKEYuJ6yG
# T1VSDOQDLPtqkJAwbofzWTCd+n7Wl7PoIZd++NIT8wi3U21StEWQn0gASkdmEScp
# ZqiX5NMGgUqi+YSnEUcUCYKfhO1VeP4Bmh1QCIUAEDBG7bfeI0a7xC1Un68eeEEx
# d8yb3zuDk6FhArUdDbH895uyAc4iS1T/+QXDwiALAgMBAAGjggGrMIIBpzAPBgNV
# HRMBAf8EBTADAQH/MB0GA1UdDgQWBBQjNPjZUkZwCu1A+3b7syuwwzWzDzALBgNV
# HQ8EBAMCAYYwEAYJKwYBBAGCNxUBBAMCAQAwgZgGA1UdIwSBkDCBjYAUDqyCYEBW
# J5flJRP8KuEKU5VZ5KShY6RhMF8xEzARBgoJkiaJk/IsZAEZFgNjb20xGTAXBgoJ
# kiaJk/IsZAEZFgltaWNyb3NvZnQxLTArBgNVBAMTJE1pY3Jvc29mdCBSb290IENl
# cnRpZmljYXRlIEF1dGhvcml0eYIQea0WoUqgpa1Mc1j0BxMuZTBQBgNVHR8ESTBH
# MEWgQ6BBhj9odHRwOi8vY3JsLm1pY3Jvc29mdC5jb20vcGtpL2NybC9wcm9kdWN0
# cy9taWNyb3NvZnRyb290Y2VydC5jcmwwVAYIKwYBBQUHAQEESDBGMEQGCCsGAQUF
# BzAChjhodHRwOi8vd3d3Lm1pY3Jvc29mdC5jb20vcGtpL2NlcnRzL01pY3Jvc29m
# dFJvb3RDZXJ0LmNydDATBgNVHSUEDDAKBggrBgEFBQcDCDANBgkqhkiG9w0BAQUF
# AAOCAgEAEJeKw1wDRDbd6bStd9vOeVFNAbEudHFbbQwTq86+e4+4LtQSooxtYrhX
# AstOIBNQmd16QOJXu69YmhzhHQGGrLt48ovQ7DsB7uK+jwoFyI1I4vBTFd1Pq5Lk
# 541q1YDB5pTyBi+FA+mRKiQicPv2/OR4mS4N9wficLwYTp2OawpylbihOZxnLcVR
# DupiXD8WmIsgP+IHGjL5zDFKdjE9K3ILyOpwPf+FChPfwgphjvDXuBfrTot/xTUr
# XqO/67x9C0J71FNyIe4wyrt4ZVxbARcKFA7S2hSY9Ty5ZlizLS/n+YWGzFFW6J1w
# lGysOUzU9nm/qhh6YinvopspNAZ3GmLJPR5tH4LwC8csu89Ds+X57H2146SodDW4
# TsVxIxImdgs8UoxxWkZDFLyzs7BNZ8ifQv+AeSGAnhUwZuhCEl4ayJ4iIdBD6Svp
# u/RIzCzU2DKATCYqSCRfWupW76bemZ3KOm+9gSd0BhHudiG/m4LBJ1S2sWo9iaF2
# YbRuoROmv6pH8BJv/YoybLL+31HIjCPJZr2dHYcSZAI9La9Zj7jkIeW1sMpjtHhU
# BdRBLlCslLCleKuzoJZ1GtmShxN1Ii8yqAhuoFuMJb+g74TKIdbrHk/Jmu5J4PcB
# ZW+JC33Iacjmbuqnl84xKf8OxVtc2E0bodj6L54/LlUWa8kTo/0xggTIMIIExAIB
# ATCBkDB5MQswCQYDVQQGEwJVUzETMBEGA1UECBMKV2FzaGluZ3RvbjEQMA4GA1UE
# BxMHUmVkbW9uZDEeMBwGA1UEChMVTWljcm9zb2Z0IENvcnBvcmF0aW9uMSMwIQYD
# VQQDExpNaWNyb3NvZnQgQ29kZSBTaWduaW5nIFBDQQITMwAAAXglWrXNI8ZflQAB
# AAABeDAJBgUrDgMCGgUAoIHhMBkGCSqGSIb3DQEJAzEMBgorBgEEAYI3AgEEMBwG
# CisGAQQBgjcCAQsxDjAMBgorBgEEAYI3AgEVMCMGCSqGSIb3DQEJBDEWBBSYs3+C
# WsAb+LOoocEiqHmU0Q3ALzCBgAYKKwYBBAGCNwIBDDFyMHCgUoBQAEUAbgB0AGkA
# dAB5ACAARgByAGEAbQBlAHcAbwByAGsAIABUAG8AbwBsAHMAIABmAG8AcgAgAFYA
# aQBzAHUAYQBsACAAUwB0AHUAZABpAG+hGoAYaHR0cDovL21zZG4uY29tL2RhdGEv
# ZWYgMA0GCSqGSIb3DQEBAQUABIIBABPzPT3kEODvGlQjfMBKfQudfoZrNqovPz0Y
# cdler/amP+mg1mtJd+v+zn+UQXQi1DbBmqGuxQYj18vdb6eBGBZAlwYag91Lkp95
# ILAZ926dAn0DXTLoXlZL1AVpRM8+/kqsHFCboI+Q1vO8FTO4/XpwuaCfwlvGAXxH
# AcUVLEnmJeZvBv0npW8NghCkfrAVT3G2nE+4mjP/cRHlukWUDiogHhkcWZOrWYBk
# aEEbojPYO1I+NW16NNp0Fq3VZO1Crr96I2HbrT2ogR2EJOWpPH0IyogZv4b0+E7S
# VXX33Lp5YpzbzgdIPUvsFpKfidoRzLmi4SD0Tc8S46NlgXotFM6hggIoMIICJAYJ
# KoZIhvcNAQkGMYICFTCCAhECAQEwgY4wdzELMAkGA1UEBhMCVVMxEzARBgNVBAgT
# Cldhc2hpbmd0b24xEDAOBgNVBAcTB1JlZG1vbmQxHjAcBgNVBAoTFU1pY3Jvc29m
# dCBDb3Jwb3JhdGlvbjEhMB8GA1UEAxMYTWljcm9zb2Z0IFRpbWUtU3RhbXAgUENB
# AhMzAAAAu7Z3JHFKIAAgAAAAAAC7MAkGBSsOAwIaBQCgXTAYBgkqhkiG9w0BCQMx
# CwYJKoZIhvcNAQcBMBwGCSqGSIb3DQEJBTEPFw0xNzEwMjMyMDEzMzlaMCMGCSqG
# SIb3DQEJBDEWBBR5eDKlzjbXG+gQhPSdEMDmmjY6BTANBgkqhkiG9w0BAQUFAASC
# AQB777+HNR9jVbg2sXZm72fSrm3jxSLugzhcA4OxhZObW96AnJknlduQvAGqcDV+
# Lt9CyaYLMt6I89MGkP9PBv8t5xhW0rHuBykna+5tTL8wvYrKd7r4ZvXT7YtHrqxO
# c+WLBPUD8XvSxI2wEsXt6uPCt44sd8PdO7VMiRNWth9aWo7rWaP0kGGAt0qhspI8
# 6mhsnam+SRGuDCpoLYcMTc1vVVKu1zZ9wgfxNCaf9YVswKmFc7Mj7VNpA3qd6Te0
# RNAEkgZr84KzCf8CYtWMsSy9k68drBbP0JosTxCLrJ9/zud6fykp5UcljzdKHKdU
# LMT4QBU8ya4StU9IgrUFBBcI
# SIG # End signature block

BIN
app/packages/EntityFramework.6.2.0/tools/migrate.exe vendored Normal file
View File

Binary file not shown.

BIN
app/packages/NLog.4.5.8/NLog.4.5.8.nupkg vendored Normal file
View File

Binary file not shown.

BIN
app/packages/NLog.4.5.8/lib/monoandroid44/NLog.dll vendored Normal file
View File

Binary file not shown.

24201
app/packages/NLog.4.5.8/lib/monoandroid44/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/NLog.4.5.8/lib/net35/NLog.dll vendored Normal file
View File

Binary file not shown.

26594
app/packages/NLog.4.5.8/lib/net35/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/NLog.4.5.8/lib/net40-client/NLog.dll vendored Normal file
View File

Binary file not shown.

26693
app/packages/NLog.4.5.8/lib/net40-client/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/NLog.4.5.8/lib/net45/NLog.dll vendored Normal file
View File

Binary file not shown.

26890
app/packages/NLog.4.5.8/lib/net45/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/NLog.4.5.8/lib/netstandard1.3/NLog.dll vendored Normal file
View File

Binary file not shown.

23375
app/packages/NLog.4.5.8/lib/netstandard1.3/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/NLog.4.5.8/lib/netstandard1.5/NLog.dll vendored Normal file
View File

Binary file not shown.

24225
app/packages/NLog.4.5.8/lib/netstandard1.5/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/NLog.4.5.8/lib/netstandard2.0/NLog.dll vendored Normal file
View File

Binary file not shown.

24936
app/packages/NLog.4.5.8/lib/netstandard2.0/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/NLog.4.5.8/lib/sl4/NLog.dll vendored Normal file
View File

Binary file not shown.

19744
app/packages/NLog.4.5.8/lib/sl4/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/NLog.4.5.8/lib/sl5/NLog.dll vendored Normal file
View File

Binary file not shown.

19834
app/packages/NLog.4.5.8/lib/sl5/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/NLog.4.5.8/lib/wp8/NLog.dll vendored Normal file
View File

Binary file not shown.

19010
app/packages/NLog.4.5.8/lib/wp8/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

BIN
app/packages/NLog.4.5.8/lib/xamarinios10/NLog.dll vendored Normal file
View File

Binary file not shown.

24101
app/packages/NLog.4.5.8/lib/xamarinios10/NLog.xml vendored Normal file
View File

File diff suppressed because it is too large Load Diff

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

@@ -5,9 +5,9 @@ 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}") = "DDWDResultHandler", "DDWDResultHandler\DDWDResultHandler.vbproj", "{190A63D1-A129-499D-A863-59D39D9EA58F}" Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "SERV_DDWDResultHandler", "DDWDResultHandler\SERV_DDWDResultHandler.vbproj", "{190A63D1-A129-499D-A863-59D39D9EA58F}"
EndProject EndProject
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "ClassWMResulthandler", "ClassWMResulthandler\ClassWMResulthandler.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
Global Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution GlobalSection(SolutionConfigurationPlatforms) = preSolution