From c6ac431d7f900ea1a826fcde07c3d3da651132b6 Mon Sep 17 00:00:00 2001 From: pitzm Date: Fri, 17 Jan 2025 11:08:49 +0100 Subject: [PATCH] =?UTF-8?q?EmailProfiler.Form:=20Neues=20DB-Feld=20ALLOW?= =?UTF-8?q?=5FXML=5FRECEIPTS=20und=20dazugeh=C3=B6rige=20Checkbox=20eingeb?= =?UTF-8?q?aut.=20ConnectionString=20in=20Mysettings=20angepasst.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App/EmailProfiler.Form/App.config | 2 +- .../My Project/Settings.Designer.vb | 16 +- .../My Project/Settings.settings | 4 +- App/EmailProfiler.Form/MyDataset.Designer.vb | 5444 +++++++++-------- App/EmailProfiler.Form/MyDataset.xsd | 205 +- App/EmailProfiler.Form/frmMain.Designer.vb | 69 +- App/EmailProfiler.Form/frmMain.resx | 2 +- App/EmailProfiler.Form/frmMain.vb | 7 + 8 files changed, 3209 insertions(+), 2540 deletions(-) diff --git a/App/EmailProfiler.Form/App.config b/App/EmailProfiler.Form/App.config index fad3da9..af2132c 100644 --- a/App/EmailProfiler.Form/App.config +++ b/App/EmailProfiler.Form/App.config @@ -10,7 +10,7 @@ diff --git a/App/EmailProfiler.Form/My Project/Settings.Designer.vb b/App/EmailProfiler.Form/My Project/Settings.Designer.vb index 2e77097..a85007a 100644 --- a/App/EmailProfiler.Form/My Project/Settings.Designer.vb +++ b/App/EmailProfiler.Form/My Project/Settings.Designer.vb @@ -1,10 +1,10 @@ '------------------------------------------------------------------------------ ' -' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.42000 +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 ' -' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn -' der Code erneut generiert wird. +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. ' '------------------------------------------------------------------------------ @@ -15,14 +15,14 @@ Option Explicit On Namespace My _ Partial Friend NotInheritable Class MySettings Inherits Global.System.Configuration.ApplicationSettingsBase Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) -#Region "Automatische My.Settings-Speicherfunktion" +#Region "My.Settings Auto-Save Functionality" #If _MyType = "WindowsForms" Then Private Shared addedHandler As Boolean @@ -172,8 +172,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;User ID=sa;Passwo"& _ + "rd=dd;Encrypt=True;TrustServerCertificate=True")> _ Public ReadOnly Property MyDatasetConnString() As String Get Return CType(Me("MyDatasetConnString"),String) diff --git a/App/EmailProfiler.Form/My Project/Settings.settings b/App/EmailProfiler.Form/My Project/Settings.settings index 0523ae1..48088dc 100644 --- a/App/EmailProfiler.Form/My Project/Settings.settings +++ b/App/EmailProfiler.Form/My Project/Settings.settings @@ -38,10 +38,10 @@ <?xml version="1.0" encoding="utf-16"?> <SerializableConnectionString xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance"> - <ConnectionString>Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd</ConnectionString> + <ConnectionString>Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;User ID=sa;Password=dd;Encrypt=True;TrustServerCertificate=True</ConnectionString> <ProviderName>System.Data.SqlClient</ProviderName> </SerializableConnectionString> - Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=dd + Data Source=SDD-VMP04-SQL17\DD_DEVELOP01;Initial Catalog=DD_ECM;User ID=sa;Password=dd;Encrypt=True;TrustServerCertificate=True \ No newline at end of file diff --git a/App/EmailProfiler.Form/MyDataset.Designer.vb b/App/EmailProfiler.Form/MyDataset.Designer.vb index 4780e18..6383dce 100644 --- a/App/EmailProfiler.Form/MyDataset.Designer.vb +++ b/App/EmailProfiler.Form/MyDataset.Designer.vb @@ -1,10 +1,10 @@ '------------------------------------------------------------------------------ ' -' Dieser Code wurde von einem Tool generiert. -' Laufzeitversion:4.0.30319.42000 +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 ' -' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn -' der Code erneut generiert wird. +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. ' '------------------------------------------------------------------------------ @@ -792,81 +792,81 @@ Partial Public Class MyDataset Me.columnGUID.Unique = true Me.columnPROFILE_NAME.AllowDBNull = false Me.columnPROFILE_NAME.MaxLength = 100 - Me.columnPOLL_TYPE.AllowDBNull = False - Me.columnPOLL_TYPE.DefaultValue = CType("IMAP", String) + Me.columnPOLL_TYPE.AllowDBNull = false + Me.columnPOLL_TYPE.DefaultValue = CType("IMAP",String) Me.columnPOLL_TYPE.MaxLength = 100 - Me.columnEMAIL_CONF_ID.AllowDBNull = False + Me.columnEMAIL_CONF_ID.AllowDBNull = false Me.columnCOMMENT.MaxLength = 500 - Me.columnACTIVE.AllowDBNull = False - Me.columnACTIVE.DefaultValue = CType(False, Boolean) + Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.DefaultValue = CType(false,Boolean) Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnVALIDATION_SQL.AllowDBNull = False - Me.columnVALIDATION_SQL.DefaultValue = CType("", String) + Me.columnVALIDATION_SQL.AllowDBNull = false + Me.columnVALIDATION_SQL.DefaultValue = CType("",String) End Sub - - + + _ Public Function NewTBEMLP_POLL_PROFILESRow() As TBEMLP_POLL_PROFILESRow - Return CType(Me.NewRow, TBEMLP_POLL_PROFILESRow) + Return CType(Me.NewRow,TBEMLP_POLL_PROFILESRow) End Function - - + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBEMLP_POLL_PROFILESRow(builder) End Function - - + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBEMLP_POLL_PROFILESRow) End Function - - + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBEMLP_POLL_PROFILESRowChangedEvent) Is Nothing) Then - RaiseEvent TBEMLP_POLL_PROFILESRowChanged(Me, New TBEMLP_POLL_PROFILESRowChangeEvent(CType(e.Row, TBEMLP_POLL_PROFILESRow), e.Action)) + RaiseEvent TBEMLP_POLL_PROFILESRowChanged(Me, New TBEMLP_POLL_PROFILESRowChangeEvent(CType(e.Row,TBEMLP_POLL_PROFILESRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBEMLP_POLL_PROFILESRowChangingEvent) Is Nothing) Then - RaiseEvent TBEMLP_POLL_PROFILESRowChanging(Me, New TBEMLP_POLL_PROFILESRowChangeEvent(CType(e.Row, TBEMLP_POLL_PROFILESRow), e.Action)) + RaiseEvent TBEMLP_POLL_PROFILESRowChanging(Me, New TBEMLP_POLL_PROFILESRowChangeEvent(CType(e.Row,TBEMLP_POLL_PROFILESRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBEMLP_POLL_PROFILESRowDeletedEvent) Is Nothing) Then - RaiseEvent TBEMLP_POLL_PROFILESRowDeleted(Me, New TBEMLP_POLL_PROFILESRowChangeEvent(CType(e.Row, TBEMLP_POLL_PROFILESRow), e.Action)) + RaiseEvent TBEMLP_POLL_PROFILESRowDeleted(Me, New TBEMLP_POLL_PROFILESRowChangeEvent(CType(e.Row,TBEMLP_POLL_PROFILESRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBEMLP_POLL_PROFILESRowDeletingEvent) Is Nothing) Then - RaiseEvent TBEMLP_POLL_PROFILESRowDeleting(Me, New TBEMLP_POLL_PROFILESRowChangeEvent(CType(e.Row, TBEMLP_POLL_PROFILESRow), e.Action)) + RaiseEvent TBEMLP_POLL_PROFILESRowDeleting(Me, New TBEMLP_POLL_PROFILESRowChangeEvent(CType(e.Row,TBEMLP_POLL_PROFILESRow), e.Action)) End If End Sub - - + + _ Public Sub RemoveTBEMLP_POLL_PROFILESRow(ByVal row As TBEMLP_POLL_PROFILESRow) Me.Rows.Remove(row) End Sub - - + + _ 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 sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -895,35 +895,35 @@ Partial Public Class MyDataset If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator 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) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then - s1.Close() + s1.Close End If If (Not (s2) Is Nothing) Then - s2.Close() + s2.Close End If End Try End If @@ -931,75 +931,77 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - + _ Partial Public Class TBEMLP_POLL_PROCESSDataTable Inherits Global.System.Data.TypedTableBase(Of TBEMLP_POLL_PROCESSRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnPROCESS_NAME As Global.System.Data.DataColumn - + Private columnSTEP_NAME As Global.System.Data.DataColumn - + Private columnPROFILE_ID As Global.System.Data.DataColumn - + Private columnCOPY_2_HDD As Global.System.Data.DataColumn - + Private columnWM_IMPORT As Global.System.Data.DataColumn - + Private columnWM_OBJEKTTYPE As Global.System.Data.DataColumn - + Private columnWM_VECTOR_LOG As Global.System.Data.DataColumn - + Private columnWM_PATH As Global.System.Data.DataColumn - + Private columnWM_FILE_NAME As Global.System.Data.DataColumn - + Private columnWM_REFERENCE_INDEX As Global.System.Data.DataColumn - + Private columnPATH_EMAIL_TEMP As Global.System.Data.DataColumn - + Private columnPATH_EMAIL_ERRORS As Global.System.Data.DataColumn - + Private columnDELETE_MAIL As Global.System.Data.DataColumn - + Private columnCOMMENT As Global.System.Data.DataColumn - + Private columnACTIVE As Global.System.Data.DataColumn - + Private columnSEQUENCE As Global.System.Data.DataColumn - + Private columnADDED_WHO As Global.System.Data.DataColumn - + Private columnADDED_WHEN As Global.System.Data.DataColumn - + Private columnCHANGED_WHO As Global.System.Data.DataColumn - + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - + Private columnWM_IDX_BODY_TEXT As Global.System.Data.DataColumn - + Private columnWM_IDX_BODY_SUBSTR_LENGTH As Global.System.Data.DataColumn - + Private columnPATH_ORIGINAL As Global.System.Data.DataColumn - - + + Private columnALLOW_XML_RECEIPTS As Global.System.Data.DataColumn + + _ Public Sub New() MyBase.New Me.TableName = "TBEMLP_POLL_PROCESS" - Me.BeginInit() - Me.InitClass() - Me.EndInit() + Me.BeginInit + Me.InitClass + Me.EndInit End Sub - - + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1015,269 +1017,278 @@ Partial Public Class MyDataset Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) - Me.InitVars() + Me.InitVars End Sub - - + + _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - + + _ Public ReadOnly Property PROCESS_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnPROCESS_NAME End Get End Property - - + + _ Public ReadOnly Property STEP_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSTEP_NAME End Get End Property - - + + _ Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROFILE_ID End Get End Property - - + + _ Public ReadOnly Property COPY_2_HDDColumn() As Global.System.Data.DataColumn Get Return Me.columnCOPY_2_HDD End Get End Property - - + + _ Public ReadOnly Property WM_IMPORTColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_IMPORT End Get End Property - - + + _ Public ReadOnly Property WM_OBJEKTTYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_OBJEKTTYPE End Get End Property - - + + _ Public ReadOnly Property WM_VECTOR_LOGColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_VECTOR_LOG End Get End Property - - + + _ Public ReadOnly Property WM_PATHColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_PATH End Get End Property - - + + _ Public ReadOnly Property WM_FILE_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_FILE_NAME End Get End Property - - + + _ Public ReadOnly Property WM_REFERENCE_INDEXColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_REFERENCE_INDEX End Get End Property - - + + _ Public ReadOnly Property PATH_EMAIL_TEMPColumn() As Global.System.Data.DataColumn Get Return Me.columnPATH_EMAIL_TEMP End Get End Property - - + + _ Public ReadOnly Property PATH_EMAIL_ERRORSColumn() As Global.System.Data.DataColumn Get Return Me.columnPATH_EMAIL_ERRORS End Get End Property - - + + _ Public ReadOnly Property DELETE_MAILColumn() As Global.System.Data.DataColumn Get Return Me.columnDELETE_MAIL End Get End Property - - + + _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property - - + + _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property - - + + _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE End Get End Property - - + + _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property - - + + _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property - - + + _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property - - + + _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property - - + + _ Public ReadOnly Property WM_IDX_BODY_TEXTColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_IDX_BODY_TEXT End Get End Property - - + + _ Public ReadOnly Property WM_IDX_BODY_SUBSTR_LENGTHColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_IDX_BODY_SUBSTR_LENGTH End Get End Property - - + + _ Public ReadOnly Property PATH_ORIGINALColumn() As Global.System.Data.DataColumn Get Return Me.columnPATH_ORIGINAL End Get End Property - - + + _ + Public ReadOnly Property ALLOW_XML_RECEIPTSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnALLOW_XML_RECEIPTS + End Get + End Property + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - - Default Public ReadOnly Property Item(ByVal index As Integer) As TBEMLP_POLL_PROCESSRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBEMLP_POLL_PROCESSRow Get - Return CType(Me.Rows(index), TBEMLP_POLL_PROCESSRow) + Return CType(Me.Rows(index),TBEMLP_POLL_PROCESSRow) End Get End Property - - + + _ Public Event TBEMLP_POLL_PROCESSRowChanging As TBEMLP_POLL_PROCESSRowChangeEventHandler - - + + _ Public Event TBEMLP_POLL_PROCESSRowChanged As TBEMLP_POLL_PROCESSRowChangeEventHandler - - + + _ Public Event TBEMLP_POLL_PROCESSRowDeleting As TBEMLP_POLL_PROCESSRowChangeEventHandler - - + + _ Public Event TBEMLP_POLL_PROCESSRowDeleted As TBEMLP_POLL_PROCESSRowChangeEventHandler - - + + _ Public Overloads Sub AddTBEMLP_POLL_PROCESSRow(ByVal row As TBEMLP_POLL_PROCESSRow) Me.Rows.Add(row) End Sub - - - Public Overloads Function AddTBEMLP_POLL_PROCESSRow( - ByVal PROCESS_NAME As String, - ByVal STEP_NAME As String, - ByVal parentTBEMLP_POLL_PROFILESRowByFK_TBEMLP_POLL_PROCESS_PROFILE_ID As TBEMLP_POLL_PROFILESRow, - ByVal COPY_2_HDD As Boolean, - ByVal WM_IMPORT As Boolean, - ByVal WM_OBJEKTTYPE As String, - ByVal WM_VECTOR_LOG As String, - ByVal WM_PATH As String, - ByVal WM_FILE_NAME As String, - ByVal WM_REFERENCE_INDEX As String, - ByVal PATH_EMAIL_TEMP As String, - ByVal PATH_EMAIL_ERRORS As String, - ByVal DELETE_MAIL As Boolean, - ByVal COMMENT As String, - ByVal ACTIVE As Boolean, - ByVal SEQUENCE As Integer, - ByVal ADDED_WHO As String, - ByVal ADDED_WHEN As Date, - ByVal CHANGED_WHO As String, - ByVal CHANGED_WHEN As Date, - ByVal WM_IDX_BODY_TEXT As String, - ByVal WM_IDX_BODY_SUBSTR_LENGTH As Integer, - ByVal PATH_ORIGINAL As String) As TBEMLP_POLL_PROCESSRow - Dim rowTBEMLP_POLL_PROCESSRow As TBEMLP_POLL_PROCESSRow = CType(Me.NewRow, TBEMLP_POLL_PROCESSRow) - Dim columnValuesArray() As Object = New Object() {Nothing, PROCESS_NAME, STEP_NAME, Nothing, COPY_2_HDD, WM_IMPORT, WM_OBJEKTTYPE, WM_VECTOR_LOG, WM_PATH, WM_FILE_NAME, WM_REFERENCE_INDEX, PATH_EMAIL_TEMP, PATH_EMAIL_ERRORS, DELETE_MAIL, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, WM_IDX_BODY_TEXT, WM_IDX_BODY_SUBSTR_LENGTH, PATH_ORIGINAL} + + _ + Public Overloads Function AddTBEMLP_POLL_PROCESSRow( _ + ByVal PROCESS_NAME As String, _ + ByVal STEP_NAME As String, _ + ByVal parentTBEMLP_POLL_PROFILESRowByFK_TBEMLP_POLL_PROCESS_PROFILE_ID As TBEMLP_POLL_PROFILESRow, _ + ByVal COPY_2_HDD As Boolean, _ + ByVal WM_IMPORT As Boolean, _ + ByVal WM_OBJEKTTYPE As String, _ + ByVal WM_VECTOR_LOG As String, _ + ByVal WM_PATH As String, _ + ByVal WM_FILE_NAME As String, _ + ByVal WM_REFERENCE_INDEX As String, _ + ByVal PATH_EMAIL_TEMP As String, _ + ByVal PATH_EMAIL_ERRORS As String, _ + ByVal DELETE_MAIL As Boolean, _ + ByVal COMMENT As String, _ + ByVal ACTIVE As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal WM_IDX_BODY_TEXT As String, _ + ByVal WM_IDX_BODY_SUBSTR_LENGTH As Integer, _ + ByVal PATH_ORIGINAL As String, _ + ByVal ALLOW_XML_RECEIPTS As Boolean) As TBEMLP_POLL_PROCESSRow + Dim rowTBEMLP_POLL_PROCESSRow As TBEMLP_POLL_PROCESSRow = CType(Me.NewRow,TBEMLP_POLL_PROCESSRow) + Dim columnValuesArray() As Object = New Object() {Nothing, PROCESS_NAME, STEP_NAME, Nothing, COPY_2_HDD, WM_IMPORT, WM_OBJEKTTYPE, WM_VECTOR_LOG, WM_PATH, WM_FILE_NAME, WM_REFERENCE_INDEX, PATH_EMAIL_TEMP, PATH_EMAIL_ERRORS, DELETE_MAIL, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, WM_IDX_BODY_TEXT, WM_IDX_BODY_SUBSTR_LENGTH, PATH_ORIGINAL, ALLOW_XML_RECEIPTS} If (Not (parentTBEMLP_POLL_PROFILESRowByFK_TBEMLP_POLL_PROCESS_PROFILE_ID) Is Nothing) Then columnValuesArray(3) = parentTBEMLP_POLL_PROFILESRowByFK_TBEMLP_POLL_PROCESS_PROFILE_ID(0) End If @@ -1285,29 +1296,29 @@ Partial Public Class MyDataset Me.Rows.Add(rowTBEMLP_POLL_PROCESSRow) Return rowTBEMLP_POLL_PROCESSRow End Function - - + + _ Public Function FindByGUID(ByVal GUID As Integer) As TBEMLP_POLL_PROCESSRow - Return CType(Me.Rows.Find(New Object() {GUID}), TBEMLP_POLL_PROCESSRow) + Return CType(Me.Rows.Find(New Object() {GUID}),TBEMLP_POLL_PROCESSRow) End Function - - + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBEMLP_POLL_PROCESSDataTable = CType(MyBase.Clone, TBEMLP_POLL_PROCESSDataTable) - cln.InitVars() + Dim cln As TBEMLP_POLL_PROCESSDataTable = CType(MyBase.Clone,TBEMLP_POLL_PROCESSDataTable) + cln.InitVars Return cln End Function - - + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBEMLP_POLL_PROCESSDataTable() End Function - - + + _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROCESS_NAME = MyBase.Columns("PROCESS_NAME") @@ -1333,10 +1344,11 @@ Partial Public Class MyDataset Me.columnWM_IDX_BODY_TEXT = MyBase.Columns("WM_IDX_BODY_TEXT") Me.columnWM_IDX_BODY_SUBSTR_LENGTH = MyBase.Columns("WM_IDX_BODY_SUBSTR_LENGTH") Me.columnPATH_ORIGINAL = MyBase.Columns("PATH_ORIGINAL") + Me.columnALLOW_XML_RECEIPTS = MyBase.Columns("ALLOW_XML_RECEIPTS") End Sub - - + + _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -1386,106 +1398,108 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnWM_IDX_BODY_SUBSTR_LENGTH) Me.columnPATH_ORIGINAL = New Global.System.Data.DataColumn("PATH_ORIGINAL", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnPATH_ORIGINAL) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) - Me.columnGUID.AutoIncrement = True - Me.columnGUID.AllowDBNull = False - Me.columnGUID.ReadOnly = True - Me.columnGUID.Unique = True - Me.columnPROCESS_NAME.AllowDBNull = False + Me.columnALLOW_XML_RECEIPTS = New Global.System.Data.DataColumn("ALLOW_XML_RECEIPTS", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnALLOW_XML_RECEIPTS) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnPROCESS_NAME.AllowDBNull = false Me.columnPROCESS_NAME.MaxLength = 100 - Me.columnSTEP_NAME.AllowDBNull = False + Me.columnSTEP_NAME.AllowDBNull = false Me.columnSTEP_NAME.MaxLength = 50 - Me.columnPROFILE_ID.AllowDBNull = False - Me.columnCOPY_2_HDD.AllowDBNull = False - Me.columnCOPY_2_HDD.DefaultValue = CType(False, Boolean) - Me.columnWM_IMPORT.AllowDBNull = False - Me.columnWM_IMPORT.DefaultValue = CType(False, Boolean) + Me.columnPROFILE_ID.AllowDBNull = false + Me.columnCOPY_2_HDD.AllowDBNull = false + Me.columnCOPY_2_HDD.DefaultValue = CType(false,Boolean) + Me.columnWM_IMPORT.AllowDBNull = false + Me.columnWM_IMPORT.DefaultValue = CType(false,Boolean) Me.columnWM_OBJEKTTYPE.MaxLength = 100 Me.columnWM_VECTOR_LOG.MaxLength = 100 Me.columnWM_PATH.MaxLength = 1000 Me.columnWM_FILE_NAME.MaxLength = 100 Me.columnWM_REFERENCE_INDEX.MaxLength = 100 - Me.columnPATH_EMAIL_TEMP.AllowDBNull = False + Me.columnPATH_EMAIL_TEMP.AllowDBNull = false Me.columnPATH_EMAIL_TEMP.MaxLength = 1000 - Me.columnPATH_EMAIL_ERRORS.AllowDBNull = False + Me.columnPATH_EMAIL_ERRORS.AllowDBNull = false Me.columnPATH_EMAIL_ERRORS.MaxLength = 1000 - Me.columnDELETE_MAIL.AllowDBNull = False - Me.columnDELETE_MAIL.DefaultValue = CType(False, Boolean) + Me.columnDELETE_MAIL.AllowDBNull = false + Me.columnDELETE_MAIL.DefaultValue = CType(false,Boolean) Me.columnCOMMENT.MaxLength = 500 - Me.columnACTIVE.AllowDBNull = False - Me.columnACTIVE.DefaultValue = CType(True, Boolean) + Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.DefaultValue = CType(true,Boolean) Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnWM_IDX_BODY_TEXT.AllowDBNull = False - Me.columnWM_IDX_BODY_TEXT.DefaultValue = CType("", String) + Me.columnWM_IDX_BODY_TEXT.AllowDBNull = false + Me.columnWM_IDX_BODY_TEXT.DefaultValue = CType("",String) Me.columnWM_IDX_BODY_TEXT.MaxLength = 50 - Me.columnWM_IDX_BODY_SUBSTR_LENGTH.AllowDBNull = False - Me.columnWM_IDX_BODY_SUBSTR_LENGTH.DefaultValue = CType(0, Integer) + Me.columnWM_IDX_BODY_SUBSTR_LENGTH.AllowDBNull = false + Me.columnWM_IDX_BODY_SUBSTR_LENGTH.DefaultValue = CType(0,Integer) Me.columnPATH_ORIGINAL.MaxLength = 1000 End Sub - - + + _ Public Function NewTBEMLP_POLL_PROCESSRow() As TBEMLP_POLL_PROCESSRow - Return CType(Me.NewRow, TBEMLP_POLL_PROCESSRow) + Return CType(Me.NewRow,TBEMLP_POLL_PROCESSRow) End Function - - + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBEMLP_POLL_PROCESSRow(builder) End Function - - + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBEMLP_POLL_PROCESSRow) End Function - - + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBEMLP_POLL_PROCESSRowChangedEvent) Is Nothing) Then - RaiseEvent TBEMLP_POLL_PROCESSRowChanged(Me, New TBEMLP_POLL_PROCESSRowChangeEvent(CType(e.Row, TBEMLP_POLL_PROCESSRow), e.Action)) + RaiseEvent TBEMLP_POLL_PROCESSRowChanged(Me, New TBEMLP_POLL_PROCESSRowChangeEvent(CType(e.Row,TBEMLP_POLL_PROCESSRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBEMLP_POLL_PROCESSRowChangingEvent) Is Nothing) Then - RaiseEvent TBEMLP_POLL_PROCESSRowChanging(Me, New TBEMLP_POLL_PROCESSRowChangeEvent(CType(e.Row, TBEMLP_POLL_PROCESSRow), e.Action)) + RaiseEvent TBEMLP_POLL_PROCESSRowChanging(Me, New TBEMLP_POLL_PROCESSRowChangeEvent(CType(e.Row,TBEMLP_POLL_PROCESSRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBEMLP_POLL_PROCESSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBEMLP_POLL_PROCESSRowDeleted(Me, New TBEMLP_POLL_PROCESSRowChangeEvent(CType(e.Row, TBEMLP_POLL_PROCESSRow), e.Action)) + RaiseEvent TBEMLP_POLL_PROCESSRowDeleted(Me, New TBEMLP_POLL_PROCESSRowChangeEvent(CType(e.Row,TBEMLP_POLL_PROCESSRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBEMLP_POLL_PROCESSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBEMLP_POLL_PROCESSRowDeleting(Me, New TBEMLP_POLL_PROCESSRowChangeEvent(CType(e.Row, TBEMLP_POLL_PROCESSRow), e.Action)) + RaiseEvent TBEMLP_POLL_PROCESSRowDeleting(Me, New TBEMLP_POLL_PROCESSRowChangeEvent(CType(e.Row,TBEMLP_POLL_PROCESSRow), e.Action)) End If End Sub - - + + _ Public Sub RemoveTBEMLP_POLL_PROCESSRow(ByVal row As TBEMLP_POLL_PROCESSRow) Me.Rows.Remove(row) End Sub - - + + _ 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 sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -1514,35 +1528,35 @@ Partial Public Class MyDataset If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator 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) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then - s1.Close() + s1.Close End If If (Not (s2) Is Nothing) Then - s2.Close() + s2.Close End If End Try End If @@ -1550,49 +1564,49 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - + _ Partial Public Class TBEMLP_POLL_STEPSDataTable Inherits Global.System.Data.TypedTableBase(Of TBEMLP_POLL_STEPSRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnPROCESS_ID As Global.System.Data.DataColumn - + Private columnSTEP_NAME As Global.System.Data.DataColumn - + Private columnKEYWORDS_BODY As Global.System.Data.DataColumn - + Private columnCOMMENT As Global.System.Data.DataColumn - + Private columnACTIVE As Global.System.Data.DataColumn - + Private columnSEQUENCE As Global.System.Data.DataColumn - + Private columnADDED_WHO As Global.System.Data.DataColumn - + Private columnADDED_WHEN As Global.System.Data.DataColumn - + Private columnCHANGED_WHO As Global.System.Data.DataColumn - + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - + + _ Public Sub New() MyBase.New Me.TableName = "TBEMLP_POLL_STEPS" - Me.BeginInit() - Me.InitClass() - Me.EndInit() + Me.BeginInit + Me.InitClass + Me.EndInit End Sub - - + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -1608,141 +1622,141 @@ Partial Public Class MyDataset Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) - Me.InitVars() + Me.InitVars End Sub - - + + _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - + + _ Public ReadOnly Property PROCESS_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnPROCESS_ID End Get End Property - - + + _ Public ReadOnly Property STEP_NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnSTEP_NAME End Get End Property - - + + _ Public ReadOnly Property KEYWORDS_BODYColumn() As Global.System.Data.DataColumn Get Return Me.columnKEYWORDS_BODY End Get End Property - - + + _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property - - + + _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property - - + + _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE End Get End Property - - + + _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property - - + + _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property - - + + _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property - - + + _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property - - + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - - Default Public ReadOnly Property Item(ByVal index As Integer) As TBEMLP_POLL_STEPSRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBEMLP_POLL_STEPSRow Get - Return CType(Me.Rows(index), TBEMLP_POLL_STEPSRow) + Return CType(Me.Rows(index),TBEMLP_POLL_STEPSRow) End Get End Property - - + + _ Public Event TBEMLP_POLL_STEPSRowChanging As TBEMLP_POLL_STEPSRowChangeEventHandler - - + + _ Public Event TBEMLP_POLL_STEPSRowChanged As TBEMLP_POLL_STEPSRowChangeEventHandler - - + + _ Public Event TBEMLP_POLL_STEPSRowDeleting As TBEMLP_POLL_STEPSRowChangeEventHandler - - + + _ Public Event TBEMLP_POLL_STEPSRowDeleted As TBEMLP_POLL_STEPSRowChangeEventHandler - - + + _ Public Overloads Sub AddTBEMLP_POLL_STEPSRow(ByVal row As TBEMLP_POLL_STEPSRow) Me.Rows.Add(row) End Sub - - + + _ Public Overloads Function AddTBEMLP_POLL_STEPSRow(ByVal parentTBEMLP_POLL_PROCESSRowByFK_TBEMLP_POLL_STEPS_PROCESS_ID As TBEMLP_POLL_PROCESSRow, ByVal STEP_NAME As String, ByVal KEYWORDS_BODY As String, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBEMLP_POLL_STEPSRow - Dim rowTBEMLP_POLL_STEPSRow As TBEMLP_POLL_STEPSRow = CType(Me.NewRow, TBEMLP_POLL_STEPSRow) + Dim rowTBEMLP_POLL_STEPSRow As TBEMLP_POLL_STEPSRow = CType(Me.NewRow,TBEMLP_POLL_STEPSRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, STEP_NAME, KEYWORDS_BODY, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBEMLP_POLL_PROCESSRowByFK_TBEMLP_POLL_STEPS_PROCESS_ID) Is Nothing) Then columnValuesArray(1) = parentTBEMLP_POLL_PROCESSRowByFK_TBEMLP_POLL_STEPS_PROCESS_ID(0) @@ -1751,29 +1765,29 @@ Partial Public Class MyDataset Me.Rows.Add(rowTBEMLP_POLL_STEPSRow) Return rowTBEMLP_POLL_STEPSRow End Function - - + + _ Public Function FindByGUID(ByVal GUID As Integer) As TBEMLP_POLL_STEPSRow - Return CType(Me.Rows.Find(New Object() {GUID}), TBEMLP_POLL_STEPSRow) + Return CType(Me.Rows.Find(New Object() {GUID}),TBEMLP_POLL_STEPSRow) End Function - - + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBEMLP_POLL_STEPSDataTable = CType(MyBase.Clone, TBEMLP_POLL_STEPSDataTable) - cln.InitVars() + Dim cln As TBEMLP_POLL_STEPSDataTable = CType(MyBase.Clone,TBEMLP_POLL_STEPSDataTable) + cln.InitVars Return cln End Function - - + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBEMLP_POLL_STEPSDataTable() End Function - - + + _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnPROCESS_ID = MyBase.Columns("PROCESS_ID") @@ -1787,9 +1801,9 @@ Partial Public Class MyDataset Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub - - + + _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -1813,84 +1827,84 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) - Me.columnGUID.AutoIncrement = True - Me.columnGUID.AllowDBNull = False - Me.columnGUID.ReadOnly = True - Me.columnGUID.Unique = True - Me.columnPROCESS_ID.AllowDBNull = False - Me.columnSTEP_NAME.AllowDBNull = False + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnPROCESS_ID.AllowDBNull = false + Me.columnSTEP_NAME.AllowDBNull = false Me.columnSTEP_NAME.MaxLength = 50 Me.columnKEYWORDS_BODY.MaxLength = 1000 Me.columnCOMMENT.MaxLength = 500 - Me.columnACTIVE.AllowDBNull = False - Me.columnACTIVE.DefaultValue = CType(True, Boolean) + Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.DefaultValue = CType(true,Boolean) Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub - - + + _ Public Function NewTBEMLP_POLL_STEPSRow() As TBEMLP_POLL_STEPSRow - Return CType(Me.NewRow, TBEMLP_POLL_STEPSRow) + Return CType(Me.NewRow,TBEMLP_POLL_STEPSRow) End Function - - + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBEMLP_POLL_STEPSRow(builder) End Function - - + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBEMLP_POLL_STEPSRow) End Function - - + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBEMLP_POLL_STEPSRowChangedEvent) Is Nothing) Then - RaiseEvent TBEMLP_POLL_STEPSRowChanged(Me, New TBEMLP_POLL_STEPSRowChangeEvent(CType(e.Row, TBEMLP_POLL_STEPSRow), e.Action)) + RaiseEvent TBEMLP_POLL_STEPSRowChanged(Me, New TBEMLP_POLL_STEPSRowChangeEvent(CType(e.Row,TBEMLP_POLL_STEPSRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBEMLP_POLL_STEPSRowChangingEvent) Is Nothing) Then - RaiseEvent TBEMLP_POLL_STEPSRowChanging(Me, New TBEMLP_POLL_STEPSRowChangeEvent(CType(e.Row, TBEMLP_POLL_STEPSRow), e.Action)) + RaiseEvent TBEMLP_POLL_STEPSRowChanging(Me, New TBEMLP_POLL_STEPSRowChangeEvent(CType(e.Row,TBEMLP_POLL_STEPSRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBEMLP_POLL_STEPSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBEMLP_POLL_STEPSRowDeleted(Me, New TBEMLP_POLL_STEPSRowChangeEvent(CType(e.Row, TBEMLP_POLL_STEPSRow), e.Action)) + RaiseEvent TBEMLP_POLL_STEPSRowDeleted(Me, New TBEMLP_POLL_STEPSRowChangeEvent(CType(e.Row,TBEMLP_POLL_STEPSRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBEMLP_POLL_STEPSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBEMLP_POLL_STEPSRowDeleting(Me, New TBEMLP_POLL_STEPSRowChangeEvent(CType(e.Row, TBEMLP_POLL_STEPSRow), e.Action)) + RaiseEvent TBEMLP_POLL_STEPSRowDeleting(Me, New TBEMLP_POLL_STEPSRowChangeEvent(CType(e.Row,TBEMLP_POLL_STEPSRow), e.Action)) End If End Sub - - + + _ Public Sub RemoveTBEMLP_POLL_STEPSRow(ByVal row As TBEMLP_POLL_STEPSRow) Me.Rows.Remove(row) End Sub - - + + _ 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 sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -1919,35 +1933,35 @@ Partial Public Class MyDataset If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator 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) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then - s1.Close() + s1.Close End If If (Not (s2) Is Nothing) Then - s2.Close() + s2.Close End If End Try End If @@ -1955,49 +1969,49 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - + _ Partial Public Class TBEMLP_POLL_INDEXING_STEPSDataTable Inherits Global.System.Data.TypedTableBase(Of TBEMLP_POLL_INDEXING_STEPSRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnSTEP_ID As Global.System.Data.DataColumn - + Private columnINDEXNAME As Global.System.Data.DataColumn - + Private columnINDEXVALUE As Global.System.Data.DataColumn - + Private columnACTIVE As Global.System.Data.DataColumn - + Private columnUSE_FOR_DIRECT_ANSWER As Global.System.Data.DataColumn - + Private columnSEQUENCE As Global.System.Data.DataColumn - + Private columnADDED_WHO As Global.System.Data.DataColumn - + Private columnADDED_WHEN As Global.System.Data.DataColumn - + Private columnCHANGED_WHO As Global.System.Data.DataColumn - + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - + + _ Public Sub New() MyBase.New Me.TableName = "TBEMLP_POLL_INDEXING_STEPS" - Me.BeginInit() - Me.InitClass() - Me.EndInit() + Me.BeginInit + Me.InitClass + Me.EndInit End Sub - - + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2013,141 +2027,141 @@ Partial Public Class MyDataset Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) - Me.InitVars() + Me.InitVars End Sub - - + + _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - + + _ Public ReadOnly Property STEP_IDColumn() As Global.System.Data.DataColumn Get Return Me.columnSTEP_ID End Get End Property - - + + _ Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEXNAME End Get End Property - - + + _ Public ReadOnly Property INDEXVALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnINDEXVALUE End Get End Property - - + + _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property - - + + _ Public ReadOnly Property USE_FOR_DIRECT_ANSWERColumn() As Global.System.Data.DataColumn Get Return Me.columnUSE_FOR_DIRECT_ANSWER End Get End Property - - + + _ Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE End Get End Property - - + + _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property - - + + _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property - - + + _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property - - + + _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property - - + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - - Default Public ReadOnly Property Item(ByVal index As Integer) As TBEMLP_POLL_INDEXING_STEPSRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBEMLP_POLL_INDEXING_STEPSRow Get - Return CType(Me.Rows(index), TBEMLP_POLL_INDEXING_STEPSRow) + Return CType(Me.Rows(index),TBEMLP_POLL_INDEXING_STEPSRow) End Get End Property - - + + _ Public Event TBEMLP_POLL_INDEXING_STEPSRowChanging As TBEMLP_POLL_INDEXING_STEPSRowChangeEventHandler - - + + _ Public Event TBEMLP_POLL_INDEXING_STEPSRowChanged As TBEMLP_POLL_INDEXING_STEPSRowChangeEventHandler - - + + _ Public Event TBEMLP_POLL_INDEXING_STEPSRowDeleting As TBEMLP_POLL_INDEXING_STEPSRowChangeEventHandler - - + + _ Public Event TBEMLP_POLL_INDEXING_STEPSRowDeleted As TBEMLP_POLL_INDEXING_STEPSRowChangeEventHandler - - + + _ Public Overloads Sub AddTBEMLP_POLL_INDEXING_STEPSRow(ByVal row As TBEMLP_POLL_INDEXING_STEPSRow) Me.Rows.Add(row) End Sub - - + + _ Public Overloads Function AddTBEMLP_POLL_INDEXING_STEPSRow(ByVal parentTBEMLP_POLL_STEPSRowByFK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID As TBEMLP_POLL_STEPSRow, ByVal INDEXNAME As String, ByVal INDEXVALUE As String, ByVal ACTIVE As Boolean, ByVal USE_FOR_DIRECT_ANSWER As Boolean, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBEMLP_POLL_INDEXING_STEPSRow - Dim rowTBEMLP_POLL_INDEXING_STEPSRow As TBEMLP_POLL_INDEXING_STEPSRow = CType(Me.NewRow, TBEMLP_POLL_INDEXING_STEPSRow) + Dim rowTBEMLP_POLL_INDEXING_STEPSRow As TBEMLP_POLL_INDEXING_STEPSRow = CType(Me.NewRow,TBEMLP_POLL_INDEXING_STEPSRow) Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, INDEXNAME, INDEXVALUE, ACTIVE, USE_FOR_DIRECT_ANSWER, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} If (Not (parentTBEMLP_POLL_STEPSRowByFK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID) Is Nothing) Then columnValuesArray(1) = parentTBEMLP_POLL_STEPSRowByFK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID(0) @@ -2156,29 +2170,29 @@ Partial Public Class MyDataset Me.Rows.Add(rowTBEMLP_POLL_INDEXING_STEPSRow) Return rowTBEMLP_POLL_INDEXING_STEPSRow End Function - - + + _ Public Function FindByGUID(ByVal GUID As Short) As TBEMLP_POLL_INDEXING_STEPSRow - Return CType(Me.Rows.Find(New Object() {GUID}), TBEMLP_POLL_INDEXING_STEPSRow) + Return CType(Me.Rows.Find(New Object() {GUID}),TBEMLP_POLL_INDEXING_STEPSRow) End Function - - + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBEMLP_POLL_INDEXING_STEPSDataTable = CType(MyBase.Clone, TBEMLP_POLL_INDEXING_STEPSDataTable) - cln.InitVars() + Dim cln As TBEMLP_POLL_INDEXING_STEPSDataTable = CType(MyBase.Clone,TBEMLP_POLL_INDEXING_STEPSDataTable) + cln.InitVars Return cln End Function - - + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBEMLP_POLL_INDEXING_STEPSDataTable() End Function - - + + _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnSTEP_ID = MyBase.Columns("STEP_ID") @@ -2192,9 +2206,9 @@ Partial Public Class MyDataset Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub - - + + _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2218,87 +2232,87 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) - Me.columnGUID.AutoIncrement = True - Me.columnGUID.AllowDBNull = False - Me.columnGUID.ReadOnly = True - Me.columnGUID.Unique = True - Me.columnSTEP_ID.AllowDBNull = False - Me.columnINDEXNAME.AllowDBNull = False + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnSTEP_ID.AllowDBNull = false + Me.columnINDEXNAME.AllowDBNull = false Me.columnINDEXNAME.MaxLength = 100 - Me.columnINDEXVALUE.AllowDBNull = False + Me.columnINDEXVALUE.AllowDBNull = false Me.columnINDEXVALUE.MaxLength = 100 - Me.columnACTIVE.AllowDBNull = False - Me.columnACTIVE.DefaultValue = CType(True, Boolean) - Me.columnUSE_FOR_DIRECT_ANSWER.AllowDBNull = False - Me.columnUSE_FOR_DIRECT_ANSWER.DefaultValue = CType(False, Boolean) - Me.columnSEQUENCE.DefaultValue = CType(0, Integer) + Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.DefaultValue = CType(true,Boolean) + Me.columnUSE_FOR_DIRECT_ANSWER.AllowDBNull = false + Me.columnUSE_FOR_DIRECT_ANSWER.DefaultValue = CType(false,Boolean) + Me.columnSEQUENCE.DefaultValue = CType(0,Integer) Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub - - + + _ Public Function NewTBEMLP_POLL_INDEXING_STEPSRow() As TBEMLP_POLL_INDEXING_STEPSRow - Return CType(Me.NewRow, TBEMLP_POLL_INDEXING_STEPSRow) + Return CType(Me.NewRow,TBEMLP_POLL_INDEXING_STEPSRow) End Function - - + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBEMLP_POLL_INDEXING_STEPSRow(builder) End Function - - + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBEMLP_POLL_INDEXING_STEPSRow) End Function - - + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBEMLP_POLL_INDEXING_STEPSRowChangedEvent) Is Nothing) Then - RaiseEvent TBEMLP_POLL_INDEXING_STEPSRowChanged(Me, New TBEMLP_POLL_INDEXING_STEPSRowChangeEvent(CType(e.Row, TBEMLP_POLL_INDEXING_STEPSRow), e.Action)) + RaiseEvent TBEMLP_POLL_INDEXING_STEPSRowChanged(Me, New TBEMLP_POLL_INDEXING_STEPSRowChangeEvent(CType(e.Row,TBEMLP_POLL_INDEXING_STEPSRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBEMLP_POLL_INDEXING_STEPSRowChangingEvent) Is Nothing) Then - RaiseEvent TBEMLP_POLL_INDEXING_STEPSRowChanging(Me, New TBEMLP_POLL_INDEXING_STEPSRowChangeEvent(CType(e.Row, TBEMLP_POLL_INDEXING_STEPSRow), e.Action)) + RaiseEvent TBEMLP_POLL_INDEXING_STEPSRowChanging(Me, New TBEMLP_POLL_INDEXING_STEPSRowChangeEvent(CType(e.Row,TBEMLP_POLL_INDEXING_STEPSRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBEMLP_POLL_INDEXING_STEPSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBEMLP_POLL_INDEXING_STEPSRowDeleted(Me, New TBEMLP_POLL_INDEXING_STEPSRowChangeEvent(CType(e.Row, TBEMLP_POLL_INDEXING_STEPSRow), e.Action)) + RaiseEvent TBEMLP_POLL_INDEXING_STEPSRowDeleted(Me, New TBEMLP_POLL_INDEXING_STEPSRowChangeEvent(CType(e.Row,TBEMLP_POLL_INDEXING_STEPSRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBEMLP_POLL_INDEXING_STEPSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBEMLP_POLL_INDEXING_STEPSRowDeleting(Me, New TBEMLP_POLL_INDEXING_STEPSRowChangeEvent(CType(e.Row, TBEMLP_POLL_INDEXING_STEPSRow), e.Action)) + RaiseEvent TBEMLP_POLL_INDEXING_STEPSRowDeleting(Me, New TBEMLP_POLL_INDEXING_STEPSRowChangeEvent(CType(e.Row,TBEMLP_POLL_INDEXING_STEPSRow), e.Action)) End If End Sub - - + + _ Public Sub RemoveTBEMLP_POLL_INDEXING_STEPSRow(ByVal row As TBEMLP_POLL_INDEXING_STEPSRow) Me.Rows.Remove(row) End Sub - - + + _ 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 sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -2327,35 +2341,35 @@ Partial Public Class MyDataset If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator 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) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then - s1.Close() + s1.Close End If If (Not (s2) Is Nothing) Then - s2.Close() + s2.Close End If End Try End If @@ -2363,47 +2377,47 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - + _ Partial Public Class TBEMLP_HISTORYDataTable Inherits Global.System.Data.TypedTableBase(Of TBEMLP_HISTORYRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnWORK_PROCESS As Global.System.Data.DataColumn - + Private columnEMAIL_MSGID As Global.System.Data.DataColumn - + Private columnEMAIL_SUBJECT As Global.System.Data.DataColumn - + Private columnEMAIL_DATE As Global.System.Data.DataColumn - + Private columnEMAIL_BODY As Global.System.Data.DataColumn - + Private columnEMAIL_SUBSTRING1 As Global.System.Data.DataColumn - + Private columnEMAIL_SUBSTRING2 As Global.System.Data.DataColumn - + Private columnCOMMENT As Global.System.Data.DataColumn - + Private columnADDED_WHEN As Global.System.Data.DataColumn - - + + _ Public Sub New() MyBase.New Me.TableName = "TBEMLP_HISTORY" - Me.BeginInit() - Me.InitClass() - Me.EndInit() + Me.BeginInit + Me.InitClass + Me.EndInit End Sub - - + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2419,161 +2433,161 @@ Partial Public Class MyDataset Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) - Me.InitVars() + Me.InitVars End Sub - - + + _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - + + _ Public ReadOnly Property WORK_PROCESSColumn() As Global.System.Data.DataColumn Get Return Me.columnWORK_PROCESS End Get End Property - - + + _ Public ReadOnly Property EMAIL_MSGIDColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_MSGID End Get End Property - - + + _ Public ReadOnly Property EMAIL_SUBJECTColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_SUBJECT End Get End Property - - + + _ Public ReadOnly Property EMAIL_DATEColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_DATE End Get End Property - - + + _ Public ReadOnly Property EMAIL_BODYColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_BODY End Get End Property - - + + _ Public ReadOnly Property EMAIL_SUBSTRING1Column() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_SUBSTRING1 End Get End Property - - + + _ Public ReadOnly Property EMAIL_SUBSTRING2Column() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_SUBSTRING2 End Get End Property - - + + _ Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get Return Me.columnCOMMENT End Get End Property - - + + _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property - - + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - - Default Public ReadOnly Property Item(ByVal index As Integer) As TBEMLP_HISTORYRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBEMLP_HISTORYRow Get - Return CType(Me.Rows(index), TBEMLP_HISTORYRow) + Return CType(Me.Rows(index),TBEMLP_HISTORYRow) End Get End Property - - + + _ Public Event TBEMLP_HISTORYRowChanging As TBEMLP_HISTORYRowChangeEventHandler - - + + _ Public Event TBEMLP_HISTORYRowChanged As TBEMLP_HISTORYRowChangeEventHandler - - + + _ Public Event TBEMLP_HISTORYRowDeleting As TBEMLP_HISTORYRowChangeEventHandler - - + + _ Public Event TBEMLP_HISTORYRowDeleted As TBEMLP_HISTORYRowChangeEventHandler - - + + _ Public Overloads Sub AddTBEMLP_HISTORYRow(ByVal row As TBEMLP_HISTORYRow) Me.Rows.Add(row) End Sub - - + + _ Public Overloads Function AddTBEMLP_HISTORYRow(ByVal WORK_PROCESS As String, ByVal EMAIL_MSGID As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_DATE As Date, ByVal EMAIL_BODY As String, ByVal EMAIL_SUBSTRING1 As String, ByVal EMAIL_SUBSTRING2 As String, ByVal COMMENT As String, ByVal ADDED_WHEN As Date) As TBEMLP_HISTORYRow - Dim rowTBEMLP_HISTORYRow As TBEMLP_HISTORYRow = CType(Me.NewRow, TBEMLP_HISTORYRow) + Dim rowTBEMLP_HISTORYRow As TBEMLP_HISTORYRow = CType(Me.NewRow,TBEMLP_HISTORYRow) Dim columnValuesArray() As Object = New Object() {Nothing, WORK_PROCESS, EMAIL_MSGID, EMAIL_SUBJECT, EMAIL_DATE, EMAIL_BODY, EMAIL_SUBSTRING1, EMAIL_SUBSTRING2, COMMENT, ADDED_WHEN} rowTBEMLP_HISTORYRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBEMLP_HISTORYRow) Return rowTBEMLP_HISTORYRow End Function - - + + _ Public Function FindByGUID(ByVal GUID As Integer) As TBEMLP_HISTORYRow - Return CType(Me.Rows.Find(New Object() {GUID}), TBEMLP_HISTORYRow) + Return CType(Me.Rows.Find(New Object() {GUID}),TBEMLP_HISTORYRow) End Function - - + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBEMLP_HISTORYDataTable = CType(MyBase.Clone, TBEMLP_HISTORYDataTable) - cln.InitVars() + Dim cln As TBEMLP_HISTORYDataTable = CType(MyBase.Clone,TBEMLP_HISTORYDataTable) + cln.InitVars Return cln End Function - - + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBEMLP_HISTORYDataTable() End Function - - + + _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnWORK_PROCESS = MyBase.Columns("WORK_PROCESS") @@ -2586,9 +2600,9 @@ Partial Public Class MyDataset Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") End Sub - - + + _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -2610,15 +2624,15 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnCOMMENT) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) - Me.columnGUID.AutoIncrement = True + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = False - Me.columnGUID.ReadOnly = True - Me.columnGUID.Unique = True + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true Me.columnWORK_PROCESS.MaxLength = 100 - Me.columnEMAIL_MSGID.AllowDBNull = False + Me.columnEMAIL_MSGID.AllowDBNull = false Me.columnEMAIL_MSGID.MaxLength = 500 Me.columnEMAIL_SUBJECT.MaxLength = 2147483647 Me.columnEMAIL_BODY.MaxLength = 2147483647 @@ -2626,69 +2640,69 @@ Partial Public Class MyDataset Me.columnEMAIL_SUBSTRING2.MaxLength = 2000 Me.columnCOMMENT.MaxLength = 500 End Sub - - + + _ Public Function NewTBEMLP_HISTORYRow() As TBEMLP_HISTORYRow - Return CType(Me.NewRow, TBEMLP_HISTORYRow) + Return CType(Me.NewRow,TBEMLP_HISTORYRow) End Function - - + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBEMLP_HISTORYRow(builder) End Function - - + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBEMLP_HISTORYRow) End Function - - + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBEMLP_HISTORYRowChangedEvent) Is Nothing) Then - RaiseEvent TBEMLP_HISTORYRowChanged(Me, New TBEMLP_HISTORYRowChangeEvent(CType(e.Row, TBEMLP_HISTORYRow), e.Action)) + RaiseEvent TBEMLP_HISTORYRowChanged(Me, New TBEMLP_HISTORYRowChangeEvent(CType(e.Row,TBEMLP_HISTORYRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBEMLP_HISTORYRowChangingEvent) Is Nothing) Then - RaiseEvent TBEMLP_HISTORYRowChanging(Me, New TBEMLP_HISTORYRowChangeEvent(CType(e.Row, TBEMLP_HISTORYRow), e.Action)) + RaiseEvent TBEMLP_HISTORYRowChanging(Me, New TBEMLP_HISTORYRowChangeEvent(CType(e.Row,TBEMLP_HISTORYRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBEMLP_HISTORYRowDeletedEvent) Is Nothing) Then - RaiseEvent TBEMLP_HISTORYRowDeleted(Me, New TBEMLP_HISTORYRowChangeEvent(CType(e.Row, TBEMLP_HISTORYRow), e.Action)) + RaiseEvent TBEMLP_HISTORYRowDeleted(Me, New TBEMLP_HISTORYRowChangeEvent(CType(e.Row,TBEMLP_HISTORYRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBEMLP_HISTORYRowDeletingEvent) Is Nothing) Then - RaiseEvent TBEMLP_HISTORYRowDeleting(Me, New TBEMLP_HISTORYRowChangeEvent(CType(e.Row, TBEMLP_HISTORYRow), e.Action)) + RaiseEvent TBEMLP_HISTORYRowDeleting(Me, New TBEMLP_HISTORYRowChangeEvent(CType(e.Row,TBEMLP_HISTORYRow), e.Action)) End If End Sub - - + + _ Public Sub RemoveTBEMLP_HISTORYRow(ByVal row As TBEMLP_HISTORYRow) Me.Rows.Remove(row) End Sub - - + + _ 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 sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -2717,35 +2731,35 @@ Partial Public Class MyDataset If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator 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) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then - s1.Close() + s1.Close End If If (Not (s2) Is Nothing) Then - s2.Close() + s2.Close End If End Try End If @@ -2753,49 +2767,49 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - + _ Partial Public Class TBEMLP_CONFIGDataTable Inherits Global.System.Data.TypedTableBase(Of TBEMLP_CONFIGRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnFONT_BODY As Global.System.Data.DataColumn - + Private columnLOG_ERRORS_ONLY As Global.System.Data.DataColumn - + Private columnCHECK_INTERVALL_MINUTES As Global.System.Data.DataColumn - + Private columnLAST_TICK As Global.System.Data.DataColumn - + Private columnPATH_EMAIL_TEMP As Global.System.Data.DataColumn - + Private columnPATH_EMAIL_ERRORS As Global.System.Data.DataColumn - + Private columnWM_CON_STRING As Global.System.Data.DataColumn - + Private columnADDED_WHEN As Global.System.Data.DataColumn - + Private columnCHANGED_WHO As Global.System.Data.DataColumn - + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - + + _ Public Sub New() MyBase.New Me.TableName = "TBEMLP_CONFIG" - Me.BeginInit() - Me.InitClass() - Me.EndInit() + Me.BeginInit + Me.InitClass + Me.EndInit End Sub - - + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -2811,169 +2825,169 @@ Partial Public Class MyDataset Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) - Me.InitVars() + Me.InitVars End Sub - - + + _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - + + _ Public ReadOnly Property FONT_BODYColumn() As Global.System.Data.DataColumn Get Return Me.columnFONT_BODY End Get End Property - - + + _ Public ReadOnly Property LOG_ERRORS_ONLYColumn() As Global.System.Data.DataColumn Get Return Me.columnLOG_ERRORS_ONLY End Get End Property - - + + _ Public ReadOnly Property CHECK_INTERVALL_MINUTESColumn() As Global.System.Data.DataColumn Get Return Me.columnCHECK_INTERVALL_MINUTES End Get End Property - - + + _ Public ReadOnly Property LAST_TICKColumn() As Global.System.Data.DataColumn Get Return Me.columnLAST_TICK End Get End Property - - + + _ Public ReadOnly Property PATH_EMAIL_TEMPColumn() As Global.System.Data.DataColumn Get Return Me.columnPATH_EMAIL_TEMP End Get End Property - - + + _ Public ReadOnly Property PATH_EMAIL_ERRORSColumn() As Global.System.Data.DataColumn Get Return Me.columnPATH_EMAIL_ERRORS End Get End Property - - + + _ Public ReadOnly Property WM_CON_STRINGColumn() As Global.System.Data.DataColumn Get Return Me.columnWM_CON_STRING End Get End Property - - + + _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property - - + + _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property - - + + _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property - - + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - - Default Public ReadOnly Property Item(ByVal index As Integer) As TBEMLP_CONFIGRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBEMLP_CONFIGRow Get - Return CType(Me.Rows(index), TBEMLP_CONFIGRow) + Return CType(Me.Rows(index),TBEMLP_CONFIGRow) End Get End Property - - + + _ Public Event TBEMLP_CONFIGRowChanging As TBEMLP_CONFIGRowChangeEventHandler - - + + _ Public Event TBEMLP_CONFIGRowChanged As TBEMLP_CONFIGRowChangeEventHandler - - + + _ Public Event TBEMLP_CONFIGRowDeleting As TBEMLP_CONFIGRowChangeEventHandler - - + + _ Public Event TBEMLP_CONFIGRowDeleted As TBEMLP_CONFIGRowChangeEventHandler - - + + _ Public Overloads Sub AddTBEMLP_CONFIGRow(ByVal row As TBEMLP_CONFIGRow) Me.Rows.Add(row) End Sub - - + + _ Public Overloads Function AddTBEMLP_CONFIGRow(ByVal GUID As Byte, ByVal FONT_BODY As String, ByVal LOG_ERRORS_ONLY As Boolean, ByVal CHECK_INTERVALL_MINUTES As Integer, ByVal LAST_TICK As Date, ByVal PATH_EMAIL_TEMP As String, ByVal PATH_EMAIL_ERRORS As String, ByVal WM_CON_STRING As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBEMLP_CONFIGRow - Dim rowTBEMLP_CONFIGRow As TBEMLP_CONFIGRow = CType(Me.NewRow, TBEMLP_CONFIGRow) + Dim rowTBEMLP_CONFIGRow As TBEMLP_CONFIGRow = CType(Me.NewRow,TBEMLP_CONFIGRow) Dim columnValuesArray() As Object = New Object() {GUID, FONT_BODY, LOG_ERRORS_ONLY, CHECK_INTERVALL_MINUTES, LAST_TICK, PATH_EMAIL_TEMP, PATH_EMAIL_ERRORS, WM_CON_STRING, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} rowTBEMLP_CONFIGRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBEMLP_CONFIGRow) Return rowTBEMLP_CONFIGRow End Function - - + + _ Public Function FindByGUID(ByVal GUID As Byte) As TBEMLP_CONFIGRow - Return CType(Me.Rows.Find(New Object() {GUID}), TBEMLP_CONFIGRow) + Return CType(Me.Rows.Find(New Object() {GUID}),TBEMLP_CONFIGRow) End Function - - + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBEMLP_CONFIGDataTable = CType(MyBase.Clone, TBEMLP_CONFIGDataTable) - cln.InitVars() + Dim cln As TBEMLP_CONFIGDataTable = CType(MyBase.Clone,TBEMLP_CONFIGDataTable) + cln.InitVars Return cln End Function - - + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBEMLP_CONFIGDataTable() End Function - - + + _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFONT_BODY = MyBase.Columns("FONT_BODY") @@ -2987,9 +3001,9 @@ Partial Public Class MyDataset Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub - - + + _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -3013,84 +3027,84 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) - Me.columnGUID.AllowDBNull = False - Me.columnGUID.Unique = True - Me.columnFONT_BODY.AllowDBNull = False + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.Unique = true + Me.columnFONT_BODY.AllowDBNull = false Me.columnFONT_BODY.MaxLength = 50 - Me.columnLOG_ERRORS_ONLY.AllowDBNull = False - Me.columnCHECK_INTERVALL_MINUTES.AllowDBNull = False - Me.columnPATH_EMAIL_TEMP.AllowDBNull = False + Me.columnLOG_ERRORS_ONLY.AllowDBNull = false + Me.columnCHECK_INTERVALL_MINUTES.AllowDBNull = false + Me.columnPATH_EMAIL_TEMP.AllowDBNull = false Me.columnPATH_EMAIL_TEMP.MaxLength = 1000 - Me.columnPATH_EMAIL_ERRORS.AllowDBNull = False + Me.columnPATH_EMAIL_ERRORS.AllowDBNull = false Me.columnPATH_EMAIL_ERRORS.MaxLength = 1000 - Me.columnWM_CON_STRING.AllowDBNull = False + Me.columnWM_CON_STRING.AllowDBNull = false Me.columnWM_CON_STRING.MaxLength = 1000 Me.columnCHANGED_WHO.MaxLength = 50 End Sub - - + + _ Public Function NewTBEMLP_CONFIGRow() As TBEMLP_CONFIGRow - Return CType(Me.NewRow, TBEMLP_CONFIGRow) + Return CType(Me.NewRow,TBEMLP_CONFIGRow) End Function - - + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBEMLP_CONFIGRow(builder) End Function - - + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBEMLP_CONFIGRow) End Function - - + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBEMLP_CONFIGRowChangedEvent) Is Nothing) Then - RaiseEvent TBEMLP_CONFIGRowChanged(Me, New TBEMLP_CONFIGRowChangeEvent(CType(e.Row, TBEMLP_CONFIGRow), e.Action)) + RaiseEvent TBEMLP_CONFIGRowChanged(Me, New TBEMLP_CONFIGRowChangeEvent(CType(e.Row,TBEMLP_CONFIGRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBEMLP_CONFIGRowChangingEvent) Is Nothing) Then - RaiseEvent TBEMLP_CONFIGRowChanging(Me, New TBEMLP_CONFIGRowChangeEvent(CType(e.Row, TBEMLP_CONFIGRow), e.Action)) + RaiseEvent TBEMLP_CONFIGRowChanging(Me, New TBEMLP_CONFIGRowChangeEvent(CType(e.Row,TBEMLP_CONFIGRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBEMLP_CONFIGRowDeletedEvent) Is Nothing) Then - RaiseEvent TBEMLP_CONFIGRowDeleted(Me, New TBEMLP_CONFIGRowChangeEvent(CType(e.Row, TBEMLP_CONFIGRow), e.Action)) + RaiseEvent TBEMLP_CONFIGRowDeleted(Me, New TBEMLP_CONFIGRowChangeEvent(CType(e.Row,TBEMLP_CONFIGRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBEMLP_CONFIGRowDeletingEvent) Is Nothing) Then - RaiseEvent TBEMLP_CONFIGRowDeleting(Me, New TBEMLP_CONFIGRowChangeEvent(CType(e.Row, TBEMLP_CONFIGRow), e.Action)) + RaiseEvent TBEMLP_CONFIGRowDeleting(Me, New TBEMLP_CONFIGRowChangeEvent(CType(e.Row,TBEMLP_CONFIGRow), e.Action)) End If End Sub - - + + _ Public Sub RemoveTBEMLP_CONFIGRow(ByVal row As TBEMLP_CONFIGRow) Me.Rows.Remove(row) End Sub - - + + _ 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 sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -3119,35 +3133,35 @@ Partial Public Class MyDataset If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator 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) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then - s1.Close() + s1.Close End If If (Not (s2) Is Nothing) Then - s2.Close() + s2.Close End If End Try End If @@ -3155,61 +3169,61 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - + _ Partial Public Class TBDD_EMAIL_ACCOUNTDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_EMAIL_ACCOUNTRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnNAME As Global.System.Data.DataColumn - + Private columnEMAIL_FROM As Global.System.Data.DataColumn - + Private columnEMAIL_SMTP As Global.System.Data.DataColumn - + Private columnEMAIL_USER As Global.System.Data.DataColumn - + Private columnEMAIL_PW As Global.System.Data.DataColumn - + Private columnPORT As Global.System.Data.DataColumn - + Private columnACTIVE As Global.System.Data.DataColumn - + Private columnADDED_WHO As Global.System.Data.DataColumn - + Private columnADDED_WHEN As Global.System.Data.DataColumn - + Private columnCHANGED_WHO As Global.System.Data.DataColumn - + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - + Private columnSSL_AUTH As Global.System.Data.DataColumn - + Private columnAUTH_TYPE As Global.System.Data.DataColumn - + Private columnPORT_IN As Global.System.Data.DataColumn - + Private columnARCHIVE_FOLDER As Global.System.Data.DataColumn - + Private Shared columnCHANGED_WHEN_defaultValue As Date = Date.Parse("1900-01-01T00:00:00") - - + + _ Public Sub New() MyBase.New Me.TableName = "TBDD_EMAIL_ACCOUNT" - Me.BeginInit() - Me.InitClass() - Me.EndInit() + Me.BeginInit + Me.InitClass + Me.EndInit End Sub - - + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New Me.TableName = table.TableName @@ -3225,209 +3239,209 @@ Partial Public Class MyDataset Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) - Me.InitVars() + Me.InitVars End Sub - - + + _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - + + _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property - - + + _ Public ReadOnly Property EMAIL_FROMColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_FROM End Get End Property - - + + _ Public ReadOnly Property EMAIL_SMTPColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_SMTP End Get End Property - - + + _ Public ReadOnly Property EMAIL_USERColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_USER End Get End Property - - + + _ Public ReadOnly Property EMAIL_PWColumn() As Global.System.Data.DataColumn Get Return Me.columnEMAIL_PW End Get End Property - - + + _ Public ReadOnly Property PORTColumn() As Global.System.Data.DataColumn Get Return Me.columnPORT End Get End Property - - + + _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get Return Me.columnACTIVE End Get End Property - - + + _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property - - + + _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property - - + + _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHO End Get End Property - - + + _ Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnCHANGED_WHEN End Get End Property - - + + _ Public ReadOnly Property SSL_AUTHColumn() As Global.System.Data.DataColumn Get Return Me.columnSSL_AUTH End Get End Property - - + + _ Public ReadOnly Property AUTH_TYPEColumn() As Global.System.Data.DataColumn Get Return Me.columnAUTH_TYPE End Get End Property - - + + _ Public ReadOnly Property PORT_INColumn() As Global.System.Data.DataColumn Get Return Me.columnPORT_IN End Get End Property - - + + _ Public ReadOnly Property ARCHIVE_FOLDERColumn() As Global.System.Data.DataColumn Get Return Me.columnARCHIVE_FOLDER End Get End Property - - + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - - Default Public ReadOnly Property Item(ByVal index As Integer) As TBDD_EMAIL_ACCOUNTRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_EMAIL_ACCOUNTRow Get - Return CType(Me.Rows(index), TBDD_EMAIL_ACCOUNTRow) + Return CType(Me.Rows(index),TBDD_EMAIL_ACCOUNTRow) End Get End Property - - + + _ Public Event TBDD_EMAIL_ACCOUNTRowChanging As TBDD_EMAIL_ACCOUNTRowChangeEventHandler - - + + _ Public Event TBDD_EMAIL_ACCOUNTRowChanged As TBDD_EMAIL_ACCOUNTRowChangeEventHandler - - + + _ Public Event TBDD_EMAIL_ACCOUNTRowDeleting As TBDD_EMAIL_ACCOUNTRowChangeEventHandler - - + + _ Public Event TBDD_EMAIL_ACCOUNTRowDeleted As TBDD_EMAIL_ACCOUNTRowChangeEventHandler - - + + _ Public Overloads Sub AddTBDD_EMAIL_ACCOUNTRow(ByVal row As TBDD_EMAIL_ACCOUNTRow) Me.Rows.Add(row) End Sub - - + + _ Public Overloads Function AddTBDD_EMAIL_ACCOUNTRow(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal PORT As Integer, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SSL_AUTH As Boolean, ByVal AUTH_TYPE As String, ByVal PORT_IN As Integer, ByVal ARCHIVE_FOLDER As String) As TBDD_EMAIL_ACCOUNTRow - Dim rowTBDD_EMAIL_ACCOUNTRow As TBDD_EMAIL_ACCOUNTRow = CType(Me.NewRow, TBDD_EMAIL_ACCOUNTRow) + Dim rowTBDD_EMAIL_ACCOUNTRow As TBDD_EMAIL_ACCOUNTRow = CType(Me.NewRow,TBDD_EMAIL_ACCOUNTRow) Dim columnValuesArray() As Object = New Object() {Nothing, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SSL_AUTH, AUTH_TYPE, PORT_IN, ARCHIVE_FOLDER} rowTBDD_EMAIL_ACCOUNTRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_EMAIL_ACCOUNTRow) Return rowTBDD_EMAIL_ACCOUNTRow End Function - - + + _ Public Function FindByGUID(ByVal GUID As Integer) As TBDD_EMAIL_ACCOUNTRow - Return CType(Me.Rows.Find(New Object() {GUID}), TBDD_EMAIL_ACCOUNTRow) + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EMAIL_ACCOUNTRow) End Function - - + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_EMAIL_ACCOUNTDataTable = CType(MyBase.Clone, TBDD_EMAIL_ACCOUNTDataTable) - cln.InitVars() + Dim cln As TBDD_EMAIL_ACCOUNTDataTable = CType(MyBase.Clone,TBDD_EMAIL_ACCOUNTDataTable) + cln.InitVars Return cln End Function - - + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_EMAIL_ACCOUNTDataTable() End Function - - + + _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("NAME") @@ -3446,9 +3460,9 @@ Partial Public Class MyDataset Me.columnPORT_IN = MyBase.Columns("PORT_IN") Me.columnARCHIVE_FOLDER = MyBase.Columns("ARCHIVE_FOLDER") End Sub - - + + _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -3482,101 +3496,101 @@ Partial Public Class MyDataset MyBase.Columns.Add(Me.columnPORT_IN) Me.columnARCHIVE_FOLDER = New Global.System.Data.DataColumn("ARCHIVE_FOLDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnARCHIVE_FOLDER) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) - Me.columnGUID.AutoIncrement = True - Me.columnGUID.AllowDBNull = False - Me.columnGUID.ReadOnly = True - Me.columnGUID.Unique = True + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true Me.columnNAME.MaxLength = 50 - Me.columnEMAIL_FROM.AllowDBNull = False + Me.columnEMAIL_FROM.AllowDBNull = false Me.columnEMAIL_FROM.MaxLength = 100 - Me.columnEMAIL_SMTP.AllowDBNull = False + Me.columnEMAIL_SMTP.AllowDBNull = false Me.columnEMAIL_SMTP.MaxLength = 100 - Me.columnEMAIL_USER.AllowDBNull = False + Me.columnEMAIL_USER.AllowDBNull = false Me.columnEMAIL_USER.MaxLength = 100 - Me.columnEMAIL_PW.AllowDBNull = False - Me.columnEMAIL_PW.DefaultValue = CType("", String) + Me.columnEMAIL_PW.AllowDBNull = false + Me.columnEMAIL_PW.DefaultValue = CType("",String) Me.columnEMAIL_PW.MaxLength = 1000 - Me.columnPORT.AllowDBNull = False - Me.columnPORT.DefaultValue = CType(25, Integer) - Me.columnACTIVE.AllowDBNull = False - Me.columnACTIVE.DefaultValue = CType(False, Boolean) + Me.columnPORT.AllowDBNull = false + Me.columnPORT.DefaultValue = CType(25,Integer) + Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.DefaultValue = CType(false,Boolean) Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnCHANGED_WHEN.DefaultValue = CType(TBDD_EMAIL_ACCOUNTDataTable.columnCHANGED_WHEN_defaultValue, Date) - Me.columnSSL_AUTH.AllowDBNull = False - Me.columnSSL_AUTH.DefaultValue = CType(True, Boolean) - Me.columnAUTH_TYPE.DefaultValue = CType("SSL", String) + Me.columnCHANGED_WHEN.DefaultValue = CType(TBDD_EMAIL_ACCOUNTDataTable.columnCHANGED_WHEN_defaultValue,Date) + Me.columnSSL_AUTH.AllowDBNull = false + Me.columnSSL_AUTH.DefaultValue = CType(true,Boolean) + Me.columnAUTH_TYPE.DefaultValue = CType("SSL",String) Me.columnAUTH_TYPE.MaxLength = 50 - Me.columnPORT_IN.AllowDBNull = False - Me.columnPORT_IN.DefaultValue = CType(25, Integer) - Me.columnARCHIVE_FOLDER.AllowDBNull = False - Me.columnARCHIVE_FOLDER.DefaultValue = CType("", String) + Me.columnPORT_IN.AllowDBNull = false + Me.columnPORT_IN.DefaultValue = CType(25,Integer) + Me.columnARCHIVE_FOLDER.AllowDBNull = false + Me.columnARCHIVE_FOLDER.DefaultValue = CType("",String) Me.columnARCHIVE_FOLDER.MaxLength = 100 End Sub - - + + _ Public Function NewTBDD_EMAIL_ACCOUNTRow() As TBDD_EMAIL_ACCOUNTRow - Return CType(Me.NewRow, TBDD_EMAIL_ACCOUNTRow) + Return CType(Me.NewRow,TBDD_EMAIL_ACCOUNTRow) End Function - - + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBDD_EMAIL_ACCOUNTRow(builder) End Function - - + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_EMAIL_ACCOUNTRow) End Function - - + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBDD_EMAIL_ACCOUNTRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_EMAIL_ACCOUNTRowChanged(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row, TBDD_EMAIL_ACCOUNTRow), e.Action)) + RaiseEvent TBDD_EMAIL_ACCOUNTRowChanged(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBDD_EMAIL_ACCOUNTRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_EMAIL_ACCOUNTRowChanging(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row, TBDD_EMAIL_ACCOUNTRow), e.Action)) + RaiseEvent TBDD_EMAIL_ACCOUNTRowChanging(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBDD_EMAIL_ACCOUNTRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_EMAIL_ACCOUNTRowDeleted(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row, TBDD_EMAIL_ACCOUNTRow), e.Action)) + RaiseEvent TBDD_EMAIL_ACCOUNTRowDeleted(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) End If End Sub - - + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBDD_EMAIL_ACCOUNTRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_EMAIL_ACCOUNTRowDeleting(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row, TBDD_EMAIL_ACCOUNTRow), e.Action)) + RaiseEvent TBDD_EMAIL_ACCOUNTRowDeleting(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) End If End Sub - - + + _ Public Sub RemoveTBDD_EMAIL_ACCOUNTRow(ByVal row As TBDD_EMAIL_ACCOUNTRow) Me.Rows.Remove(row) End Sub - - + + _ 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 sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -3605,35 +3619,35 @@ Partial Public Class MyDataset If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator 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) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then - s1.Close() + s1.Close End If If (Not (s2) Is Nothing) Then - s2.Close() + s2.Close End If End Try End If @@ -3641,2270 +3655,2300 @@ Partial Public Class MyDataset Return type End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBEMLP_POLL_PROFILESRow Inherits Global.System.Data.DataRow - + Private tableTBEMLP_POLL_PROFILES As TBEMLP_POLL_PROFILESDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBEMLP_POLL_PROFILES = CType(Me.Table, TBEMLP_POLL_PROFILESDataTable) + Me.tableTBEMLP_POLL_PROFILES = CType(Me.Table,TBEMLP_POLL_PROFILESDataTable) End Sub - - + + _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.GUIDColumn), Integer) + Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.GUIDColumn),Integer) End Get Set - Me(Me.tableTBEMLP_POLL_PROFILES.GUIDColumn) = Value + Me(Me.tableTBEMLP_POLL_PROFILES.GUIDColumn) = value End Set End Property - - + + _ Public Property PROFILE_NAME() As String Get - Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.PROFILE_NAMEColumn), String) + Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.PROFILE_NAMEColumn),String) End Get Set - Me(Me.tableTBEMLP_POLL_PROFILES.PROFILE_NAMEColumn) = Value + Me(Me.tableTBEMLP_POLL_PROFILES.PROFILE_NAMEColumn) = value End Set End Property - - + + _ Public Property POLL_TYPE() As String Get - Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.POLL_TYPEColumn), String) + Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.POLL_TYPEColumn),String) End Get Set - Me(Me.tableTBEMLP_POLL_PROFILES.POLL_TYPEColumn) = Value + Me(Me.tableTBEMLP_POLL_PROFILES.POLL_TYPEColumn) = value End Set End Property - - + + _ Public Property EMAIL_CONF_ID() As Integer Get - Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.EMAIL_CONF_IDColumn), Integer) + Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.EMAIL_CONF_IDColumn),Integer) End Get Set - Me(Me.tableTBEMLP_POLL_PROFILES.EMAIL_CONF_IDColumn) = Value + Me(Me.tableTBEMLP_POLL_PROFILES.EMAIL_CONF_IDColumn) = value End Set End Property - - + + _ Public Property COMMENT() As String Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.COMMENTColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.COMMENTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBEMLP_POLL_PROFILES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'COMMENT' in table 'TBEMLP_POLL_PROFILES' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_PROFILES.COMMENTColumn) = Value + Me(Me.tableTBEMLP_POLL_PROFILES.COMMENTColumn) = value End Set End Property - - + + _ Public Property LAST_TICK() As Date Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.LAST_TICKColumn), Date) + Try + Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.LAST_TICKColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LAST_TICK in Tabelle TBEMLP_POLL_PROFILES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'LAST_TICK' in table 'TBEMLP_POLL_PROFILES' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_PROFILES.LAST_TICKColumn) = Value + Me(Me.tableTBEMLP_POLL_PROFILES.LAST_TICKColumn) = value End Set End Property - - + + _ Public Property ACTIVE() As Boolean Get - Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.ACTIVEColumn), Boolean) + Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.ACTIVEColumn),Boolean) End Get Set - Me(Me.tableTBEMLP_POLL_PROFILES.ACTIVEColumn) = Value + Me(Me.tableTBEMLP_POLL_PROFILES.ACTIVEColumn) = value End Set End Property - - + + _ Public Property SEQUENCE() As Integer Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.SEQUENCEColumn), Integer) + Try + Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.SEQUENCEColumn),Integer) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEQUENCE in Tabelle TBEMLP_POLL_PROFILES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'SEQUENCE' in table 'TBEMLP_POLL_PROFILES' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_PROFILES.SEQUENCEColumn) = Value + Me(Me.tableTBEMLP_POLL_PROFILES.SEQUENCEColumn) = value End Set End Property - - + + _ Public Property ADDED_WHO() As String Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHOColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBEMLP_POLL_PROFILES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'ADDED_WHO' in table 'TBEMLP_POLL_PROFILES' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHOColumn) = Value + Me(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHOColumn) = value End Set End Property - - + + _ Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHENColumn), Date) + Try + Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBEMLP_POLL_PROFILES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'ADDED_WHEN' in table 'TBEMLP_POLL_PROFILES' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHENColumn) = Value + Me(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHENColumn) = value End Set End Property - - + + _ Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHOColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBEMLP_POLL_PROFILES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'CHANGED_WHO' in table 'TBEMLP_POLL_PROFILES' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHOColumn) = Value + Me(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHOColumn) = value End Set End Property - - + + _ Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHENColumn), Date) + Try + Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBEMLP_POLL_PROFILES ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'CHANGED_WHEN' in table 'TBEMLP_POLL_PROFILES' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHENColumn) = Value + Me(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHENColumn) = value End Set End Property - - + + _ Public Property VALIDATION_SQL() As String Get - Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.VALIDATION_SQLColumn), String) + Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.VALIDATION_SQLColumn),String) End Get Set - Me(Me.tableTBEMLP_POLL_PROFILES.VALIDATION_SQLColumn) = Value + Me(Me.tableTBEMLP_POLL_PROFILES.VALIDATION_SQLColumn) = value End Set End Property - - + + _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.COMMENTColumn) End Function - - + + _ Public Sub SetCOMMENTNull() Me(Me.tableTBEMLP_POLL_PROFILES.COMMENTColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsLAST_TICKNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.LAST_TICKColumn) End Function - - + + _ Public Sub SetLAST_TICKNull() Me(Me.tableTBEMLP_POLL_PROFILES.LAST_TICKColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSEQUENCENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.SEQUENCEColumn) End Function - - + + _ Public Sub SetSEQUENCENull() Me(Me.tableTBEMLP_POLL_PROFILES.SEQUENCEColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHOColumn) End Function - - + + _ Public Sub SetADDED_WHONull() Me(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHENColumn) End Function - - + + _ Public Sub SetADDED_WHENNull() Me(Me.tableTBEMLP_POLL_PROFILES.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHOColumn) End Function - - + + _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHENColumn) End Function - - + + _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBEMLP_POLL_PROFILES.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function GetTBEMLP_POLL_PROCESSRows() As TBEMLP_POLL_PROCESSRow() If (Me.Table.ChildRelations("FK_TBEMLP_POLL_PROCESS_PROFILE_ID") Is Nothing) Then Return New TBEMLP_POLL_PROCESSRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBEMLP_POLL_PROCESS_PROFILE_ID")), TBEMLP_POLL_PROCESSRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBEMLP_POLL_PROCESS_PROFILE_ID")),TBEMLP_POLL_PROCESSRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBEMLP_POLL_PROCESSRow Inherits Global.System.Data.DataRow - + Private tableTBEMLP_POLL_PROCESS As TBEMLP_POLL_PROCESSDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBEMLP_POLL_PROCESS = CType(Me.Table, TBEMLP_POLL_PROCESSDataTable) + Me.tableTBEMLP_POLL_PROCESS = CType(Me.Table,TBEMLP_POLL_PROCESSDataTable) End Sub - - + + _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.GUIDColumn), Integer) + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.GUIDColumn),Integer) End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.GUIDColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.GUIDColumn) = value End Set End Property - - + + _ Public Property PROCESS_NAME() As String Get - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.PROCESS_NAMEColumn), String) + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.PROCESS_NAMEColumn),String) End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.PROCESS_NAMEColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.PROCESS_NAMEColumn) = value End Set End Property - - + + _ Public Property STEP_NAME() As String Get - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.STEP_NAMEColumn), String) + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.STEP_NAMEColumn),String) End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.STEP_NAMEColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.STEP_NAMEColumn) = value End Set End Property - - + + _ Public Property PROFILE_ID() As Integer Get - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.PROFILE_IDColumn), Integer) + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.PROFILE_IDColumn),Integer) End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.PROFILE_IDColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.PROFILE_IDColumn) = value End Set End Property - - + + _ Public Property COPY_2_HDD() As Boolean Get - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.COPY_2_HDDColumn), Boolean) + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.COPY_2_HDDColumn),Boolean) End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.COPY_2_HDDColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.COPY_2_HDDColumn) = value End Set End Property - - + + _ Public Property WM_IMPORT() As Boolean Get - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_IMPORTColumn), Boolean) + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_IMPORTColumn),Boolean) End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.WM_IMPORTColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.WM_IMPORTColumn) = value End Set End Property - - + + _ Public Property WM_OBJEKTTYPE() As String Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_OBJEKTTYPEColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_OBJEKTTYPEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WM_OBJEKTTYPE in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'WM_OBJEKTTYPE' in table 'TBEMLP_POLL_PROCESS' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.WM_OBJEKTTYPEColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.WM_OBJEKTTYPEColumn) = value End Set End Property - - + + _ Public Property WM_VECTOR_LOG() As String Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_VECTOR_LOGColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_VECTOR_LOGColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WM_VECTOR_LOG in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'WM_VECTOR_LOG' in table 'TBEMLP_POLL_PROCESS' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.WM_VECTOR_LOGColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.WM_VECTOR_LOGColumn) = value End Set End Property - - + + _ Public Property WM_PATH() As String Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_PATHColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_PATHColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WM_PATH in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'WM_PATH' in table 'TBEMLP_POLL_PROCESS' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.WM_PATHColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.WM_PATHColumn) = value End Set End Property - - + + _ Public Property WM_FILE_NAME() As String Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_FILE_NAMEColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_FILE_NAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WM_FILE_NAME in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'WM_FILE_NAME' in table 'TBEMLP_POLL_PROCESS' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.WM_FILE_NAMEColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.WM_FILE_NAMEColumn) = value End Set End Property - - + + _ Public Property WM_REFERENCE_INDEX() As String Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_REFERENCE_INDEXColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_REFERENCE_INDEXColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WM_REFERENCE_INDEX in Tabelle TBEMLP_POLL_PROCESS ist DBNull." & - "", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'WM_REFERENCE_INDEX' in table 'TBEMLP_POLL_PROCESS' is DBNul"& _ + "l.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.WM_REFERENCE_INDEXColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.WM_REFERENCE_INDEXColumn) = value End Set End Property - - + + _ Public Property PATH_EMAIL_TEMP() As String Get - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.PATH_EMAIL_TEMPColumn), String) + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.PATH_EMAIL_TEMPColumn),String) End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.PATH_EMAIL_TEMPColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.PATH_EMAIL_TEMPColumn) = value End Set End Property - - + + _ Public Property PATH_EMAIL_ERRORS() As String Get - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.PATH_EMAIL_ERRORSColumn), String) + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.PATH_EMAIL_ERRORSColumn),String) End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.PATH_EMAIL_ERRORSColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.PATH_EMAIL_ERRORSColumn) = value End Set End Property - - + + _ Public Property DELETE_MAIL() As Boolean Get - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.DELETE_MAILColumn), Boolean) + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.DELETE_MAILColumn),Boolean) End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.DELETE_MAILColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.DELETE_MAILColumn) = value End Set End Property - - + + _ Public Property COMMENT() As String Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.COMMENTColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.COMMENTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'COMMENT' in table 'TBEMLP_POLL_PROCESS' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.COMMENTColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.COMMENTColumn) = value End Set End Property - - + + _ Public Property ACTIVE() As Boolean Get - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.ACTIVEColumn), Boolean) + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.ACTIVEColumn),Boolean) End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.ACTIVEColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.ACTIVEColumn) = value End Set End Property - - + + _ Public Property SEQUENCE() As Integer Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.SEQUENCEColumn), Integer) + Try + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.SEQUENCEColumn),Integer) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEQUENCE in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'SEQUENCE' in table 'TBEMLP_POLL_PROCESS' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.SEQUENCEColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.SEQUENCEColumn) = value End Set End Property - - + + _ Public Property ADDED_WHO() As String Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHOColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'ADDED_WHO' in table 'TBEMLP_POLL_PROCESS' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHOColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHOColumn) = value End Set End Property - - + + _ Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHENColumn), Date) + Try + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'ADDED_WHEN' in table 'TBEMLP_POLL_PROCESS' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHENColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHENColumn) = value End Set End Property - - + + _ Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHOColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'CHANGED_WHO' in table 'TBEMLP_POLL_PROCESS' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHOColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHOColumn) = value End Set End Property - - + + _ Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHENColumn), Date) + Try + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'CHANGED_WHEN' in table 'TBEMLP_POLL_PROCESS' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHENColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHENColumn) = value End Set End Property - - + + _ Public Property WM_IDX_BODY_TEXT() As String Get - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_IDX_BODY_TEXTColumn), String) + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_IDX_BODY_TEXTColumn),String) End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.WM_IDX_BODY_TEXTColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.WM_IDX_BODY_TEXTColumn) = value End Set End Property - - + + _ Public Property WM_IDX_BODY_SUBSTR_LENGTH() As Integer Get - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_IDX_BODY_SUBSTR_LENGTHColumn), Integer) + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.WM_IDX_BODY_SUBSTR_LENGTHColumn),Integer) End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.WM_IDX_BODY_SUBSTR_LENGTHColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.WM_IDX_BODY_SUBSTR_LENGTHColumn) = value End Set End Property - - + + _ Public Property PATH_ORIGINAL() As String Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.PATH_ORIGINALColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.PATH_ORIGINALColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PATH_ORIGINAL in Tabelle TBEMLP_POLL_PROCESS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'PATH_ORIGINAL' in table 'TBEMLP_POLL_PROCESS' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_PROCESS.PATH_ORIGINALColumn) = Value + Me(Me.tableTBEMLP_POLL_PROCESS.PATH_ORIGINALColumn) = value End Set End Property - - + + _ + Public Property ALLOW_XML_RECEIPTS() As Boolean + Get + Try + Return CType(Me(Me.tableTBEMLP_POLL_PROCESS.ALLOW_XML_RECEIPTSColumn),Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("The value for column 'ALLOW_XML_RECEIPTS' in table 'TBEMLP_POLL_PROCESS' is DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tableTBEMLP_POLL_PROCESS.ALLOW_XML_RECEIPTSColumn) = value + End Set + End Property + + _ Public Property TBEMLP_POLL_PROFILESRow() As TBEMLP_POLL_PROFILESRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBEMLP_POLL_PROCESS_PROFILE_ID")), TBEMLP_POLL_PROFILESRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBEMLP_POLL_PROCESS_PROFILE_ID")),TBEMLP_POLL_PROFILESRow) End Get Set - Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBEMLP_POLL_PROCESS_PROFILE_ID")) + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBEMLP_POLL_PROCESS_PROFILE_ID")) End Set End Property - - + + _ Public Function IsWM_OBJEKTTYPENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.WM_OBJEKTTYPEColumn) End Function - - + + _ Public Sub SetWM_OBJEKTTYPENull() Me(Me.tableTBEMLP_POLL_PROCESS.WM_OBJEKTTYPEColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsWM_VECTOR_LOGNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.WM_VECTOR_LOGColumn) End Function - - + + _ Public Sub SetWM_VECTOR_LOGNull() Me(Me.tableTBEMLP_POLL_PROCESS.WM_VECTOR_LOGColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsWM_PATHNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.WM_PATHColumn) End Function - - + + _ Public Sub SetWM_PATHNull() Me(Me.tableTBEMLP_POLL_PROCESS.WM_PATHColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsWM_FILE_NAMENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.WM_FILE_NAMEColumn) End Function - - + + _ Public Sub SetWM_FILE_NAMENull() Me(Me.tableTBEMLP_POLL_PROCESS.WM_FILE_NAMEColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsWM_REFERENCE_INDEXNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.WM_REFERENCE_INDEXColumn) End Function - - + + _ Public Sub SetWM_REFERENCE_INDEXNull() Me(Me.tableTBEMLP_POLL_PROCESS.WM_REFERENCE_INDEXColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.COMMENTColumn) End Function - - + + _ Public Sub SetCOMMENTNull() Me(Me.tableTBEMLP_POLL_PROCESS.COMMENTColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSEQUENCENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.SEQUENCEColumn) End Function - - + + _ Public Sub SetSEQUENCENull() Me(Me.tableTBEMLP_POLL_PROCESS.SEQUENCEColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHOColumn) End Function - - + + _ Public Sub SetADDED_WHONull() Me(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHENColumn) End Function - - + + _ Public Sub SetADDED_WHENNull() Me(Me.tableTBEMLP_POLL_PROCESS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHOColumn) End Function - - + + _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHENColumn) End Function - - + + _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBEMLP_POLL_PROCESS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsPATH_ORIGINALNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.PATH_ORIGINALColumn) End Function - - + + _ Public Sub SetPATH_ORIGINALNull() Me(Me.tableTBEMLP_POLL_PROCESS.PATH_ORIGINALColumn) = Global.System.Convert.DBNull End Sub - - + + _ + Public Function IsALLOW_XML_RECEIPTSNull() As Boolean + Return Me.IsNull(Me.tableTBEMLP_POLL_PROCESS.ALLOW_XML_RECEIPTSColumn) + End Function + + _ + Public Sub SetALLOW_XML_RECEIPTSNull() + Me(Me.tableTBEMLP_POLL_PROCESS.ALLOW_XML_RECEIPTSColumn) = Global.System.Convert.DBNull + End Sub + + _ Public Function GetTBEMLP_POLL_STEPSRows() As TBEMLP_POLL_STEPSRow() If (Me.Table.ChildRelations("FK_TBEMLP_POLL_STEPS_PROCESS_ID") Is Nothing) Then Return New TBEMLP_POLL_STEPSRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBEMLP_POLL_STEPS_PROCESS_ID")), TBEMLP_POLL_STEPSRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBEMLP_POLL_STEPS_PROCESS_ID")),TBEMLP_POLL_STEPSRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBEMLP_POLL_STEPSRow Inherits Global.System.Data.DataRow - + Private tableTBEMLP_POLL_STEPS As TBEMLP_POLL_STEPSDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBEMLP_POLL_STEPS = CType(Me.Table, TBEMLP_POLL_STEPSDataTable) + Me.tableTBEMLP_POLL_STEPS = CType(Me.Table,TBEMLP_POLL_STEPSDataTable) End Sub - - + + _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBEMLP_POLL_STEPS.GUIDColumn), Integer) + Return CType(Me(Me.tableTBEMLP_POLL_STEPS.GUIDColumn),Integer) End Get Set - Me(Me.tableTBEMLP_POLL_STEPS.GUIDColumn) = Value + Me(Me.tableTBEMLP_POLL_STEPS.GUIDColumn) = value End Set End Property - - + + _ Public Property PROCESS_ID() As Integer Get - Return CType(Me(Me.tableTBEMLP_POLL_STEPS.PROCESS_IDColumn), Integer) + Return CType(Me(Me.tableTBEMLP_POLL_STEPS.PROCESS_IDColumn),Integer) End Get Set - Me(Me.tableTBEMLP_POLL_STEPS.PROCESS_IDColumn) = Value + Me(Me.tableTBEMLP_POLL_STEPS.PROCESS_IDColumn) = value End Set End Property - - + + _ Public Property STEP_NAME() As String Get - Return CType(Me(Me.tableTBEMLP_POLL_STEPS.STEP_NAMEColumn), String) + Return CType(Me(Me.tableTBEMLP_POLL_STEPS.STEP_NAMEColumn),String) End Get Set - Me(Me.tableTBEMLP_POLL_STEPS.STEP_NAMEColumn) = Value + Me(Me.tableTBEMLP_POLL_STEPS.STEP_NAMEColumn) = value End Set End Property - - + + _ Public Property KEYWORDS_BODY() As String Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_STEPS.KEYWORDS_BODYColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_POLL_STEPS.KEYWORDS_BODYColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte KEYWORDS_BODY in Tabelle TBEMLP_POLL_STEPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'KEYWORDS_BODY' in table 'TBEMLP_POLL_STEPS' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_STEPS.KEYWORDS_BODYColumn) = Value + Me(Me.tableTBEMLP_POLL_STEPS.KEYWORDS_BODYColumn) = value End Set End Property - - + + _ Public Property COMMENT() As String Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_STEPS.COMMENTColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_POLL_STEPS.COMMENTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBEMLP_POLL_STEPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'COMMENT' in table 'TBEMLP_POLL_STEPS' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_STEPS.COMMENTColumn) = Value + Me(Me.tableTBEMLP_POLL_STEPS.COMMENTColumn) = value End Set End Property - - + + _ Public Property ACTIVE() As Boolean Get - Return CType(Me(Me.tableTBEMLP_POLL_STEPS.ACTIVEColumn), Boolean) + Return CType(Me(Me.tableTBEMLP_POLL_STEPS.ACTIVEColumn),Boolean) End Get Set - Me(Me.tableTBEMLP_POLL_STEPS.ACTIVEColumn) = Value + Me(Me.tableTBEMLP_POLL_STEPS.ACTIVEColumn) = value End Set End Property - - + + _ Public Property SEQUENCE() As Integer Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_STEPS.SEQUENCEColumn), Integer) + Try + Return CType(Me(Me.tableTBEMLP_POLL_STEPS.SEQUENCEColumn),Integer) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEQUENCE in Tabelle TBEMLP_POLL_STEPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'SEQUENCE' in table 'TBEMLP_POLL_STEPS' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_STEPS.SEQUENCEColumn) = Value + Me(Me.tableTBEMLP_POLL_STEPS.SEQUENCEColumn) = value End Set End Property - - + + _ Public Property ADDED_WHO() As String Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_STEPS.ADDED_WHOColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_POLL_STEPS.ADDED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBEMLP_POLL_STEPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'ADDED_WHO' in table 'TBEMLP_POLL_STEPS' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_STEPS.ADDED_WHOColumn) = Value + Me(Me.tableTBEMLP_POLL_STEPS.ADDED_WHOColumn) = value End Set End Property - - + + _ Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_STEPS.ADDED_WHENColumn), Date) + Try + Return CType(Me(Me.tableTBEMLP_POLL_STEPS.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBEMLP_POLL_STEPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'ADDED_WHEN' in table 'TBEMLP_POLL_STEPS' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_STEPS.ADDED_WHENColumn) = Value + Me(Me.tableTBEMLP_POLL_STEPS.ADDED_WHENColumn) = value End Set End Property - - + + _ Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHOColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBEMLP_POLL_STEPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'CHANGED_WHO' in table 'TBEMLP_POLL_STEPS' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHOColumn) = Value + Me(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHOColumn) = value End Set End Property - - + + _ Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHENColumn), Date) + Try + Return CType(Me(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBEMLP_POLL_STEPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'CHANGED_WHEN' in table 'TBEMLP_POLL_STEPS' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHENColumn) = Value + Me(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHENColumn) = value End Set End Property - - + + _ Public Property TBEMLP_POLL_PROCESSRow() As TBEMLP_POLL_PROCESSRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBEMLP_POLL_STEPS_PROCESS_ID")), TBEMLP_POLL_PROCESSRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBEMLP_POLL_STEPS_PROCESS_ID")),TBEMLP_POLL_PROCESSRow) End Get Set - Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBEMLP_POLL_STEPS_PROCESS_ID")) + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBEMLP_POLL_STEPS_PROCESS_ID")) End Set End Property - - + + _ Public Function IsKEYWORDS_BODYNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.KEYWORDS_BODYColumn) End Function - - + + _ Public Sub SetKEYWORDS_BODYNull() Me(Me.tableTBEMLP_POLL_STEPS.KEYWORDS_BODYColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.COMMENTColumn) End Function - - + + _ Public Sub SetCOMMENTNull() Me(Me.tableTBEMLP_POLL_STEPS.COMMENTColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsSEQUENCENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.SEQUENCEColumn) End Function - - + + _ Public Sub SetSEQUENCENull() Me(Me.tableTBEMLP_POLL_STEPS.SEQUENCEColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.ADDED_WHOColumn) End Function - - + + _ Public Sub SetADDED_WHONull() Me(Me.tableTBEMLP_POLL_STEPS.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.ADDED_WHENColumn) End Function - - + + _ Public Sub SetADDED_WHENNull() Me(Me.tableTBEMLP_POLL_STEPS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHOColumn) End Function - - + + _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHENColumn) End Function - - + + _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBEMLP_POLL_STEPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function GetTBEMLP_POLL_INDEXING_STEPSRows() As TBEMLP_POLL_INDEXING_STEPSRow() If (Me.Table.ChildRelations("FK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID") Is Nothing) Then Return New TBEMLP_POLL_INDEXING_STEPSRow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID")), TBEMLP_POLL_INDEXING_STEPSRow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID")),TBEMLP_POLL_INDEXING_STEPSRow()) End If End Function End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBEMLP_POLL_INDEXING_STEPSRow Inherits Global.System.Data.DataRow - + Private tableTBEMLP_POLL_INDEXING_STEPS As TBEMLP_POLL_INDEXING_STEPSDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBEMLP_POLL_INDEXING_STEPS = CType(Me.Table, TBEMLP_POLL_INDEXING_STEPSDataTable) + Me.tableTBEMLP_POLL_INDEXING_STEPS = CType(Me.Table,TBEMLP_POLL_INDEXING_STEPSDataTable) End Sub - - + + _ Public Property GUID() As Short Get - Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.GUIDColumn), Short) + Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.GUIDColumn),Short) End Get Set - Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.GUIDColumn) = Value + Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.GUIDColumn) = value End Set End Property - - + + _ Public Property STEP_ID() As Integer Get - Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.STEP_IDColumn), Integer) + Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.STEP_IDColumn),Integer) End Get Set - Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.STEP_IDColumn) = Value + Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.STEP_IDColumn) = value End Set End Property - - + + _ Public Property INDEXNAME() As String Get - Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.INDEXNAMEColumn), String) + Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.INDEXNAMEColumn),String) End Get Set - Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.INDEXNAMEColumn) = Value + Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.INDEXNAMEColumn) = value End Set End Property - - + + _ Public Property INDEXVALUE() As String Get - Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.INDEXVALUEColumn), String) + Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.INDEXVALUEColumn),String) End Get Set - Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.INDEXVALUEColumn) = Value + Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.INDEXVALUEColumn) = value End Set End Property - - + + _ Public Property ACTIVE() As Boolean Get - Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ACTIVEColumn), Boolean) + Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ACTIVEColumn),Boolean) End Get Set - Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ACTIVEColumn) = Value + Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ACTIVEColumn) = value End Set End Property - - + + _ Public Property USE_FOR_DIRECT_ANSWER() As Boolean Get - Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.USE_FOR_DIRECT_ANSWERColumn), Boolean) + Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.USE_FOR_DIRECT_ANSWERColumn),Boolean) End Get Set - Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.USE_FOR_DIRECT_ANSWERColumn) = Value + Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.USE_FOR_DIRECT_ANSWERColumn) = value End Set End Property - - + + _ Public Property SEQUENCE() As Integer Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.SEQUENCEColumn), Integer) + Try + Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.SEQUENCEColumn),Integer) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEQUENCE in Tabelle TBEMLP_POLL_INDEXING_STEPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'SEQUENCE' in table 'TBEMLP_POLL_INDEXING_STEPS' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.SEQUENCEColumn) = Value + Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.SEQUENCEColumn) = value End Set End Property - - + + _ Public Property ADDED_WHO() As String Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHOColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBEMLP_POLL_INDEXING_STEPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'ADDED_WHO' in table 'TBEMLP_POLL_INDEXING_STEPS' is DBNull."& _ + "", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHOColumn) = Value + Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHOColumn) = value End Set End Property - - + + _ Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHENColumn), Date) + Try + Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBEMLP_POLL_INDEXING_STEPS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'ADDED_WHEN' in table 'TBEMLP_POLL_INDEXING_STEPS' is DBNull"& _ + ".", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHENColumn) = Value + Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHENColumn) = value End Set End Property - - + + _ Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHOColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBEMLP_POLL_INDEXING_STEPS ist DBNull." & - "", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'CHANGED_WHO' in table 'TBEMLP_POLL_INDEXING_STEPS' is DBNul"& _ + "l.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHOColumn) = Value + Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHOColumn) = value End Set End Property - - + + _ Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHENColumn), Date) + Try + Return CType(Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBEMLP_POLL_INDEXING_STEPS ist DBNull" & - ".", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'CHANGED_WHEN' in table 'TBEMLP_POLL_INDEXING_STEPS' is DBNu"& _ + "ll.", e) End Try End Get Set - Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHENColumn) = Value + Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHENColumn) = value End Set End Property - - + + _ Public Property TBEMLP_POLL_STEPSRow() As TBEMLP_POLL_STEPSRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID")), TBEMLP_POLL_STEPSRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID")),TBEMLP_POLL_STEPSRow) End Get Set - Me.SetParentRow(Value, Me.Table.ParentRelations("FK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID")) + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBEMLP_POLL_INDEXING_STEPS_STEP_ID")) End Set End Property - - + + _ Public Function IsSEQUENCENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_INDEXING_STEPS.SEQUENCEColumn) End Function - - + + _ Public Sub SetSEQUENCENull() Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.SEQUENCEColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHOColumn) End Function - - + + _ Public Sub SetADDED_WHONull() Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHENColumn) End Function - - + + _ Public Sub SetADDED_WHENNull() Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHOColumn) End Function - - + + _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHENColumn) End Function - - + + _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBEMLP_POLL_INDEXING_STEPS.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBEMLP_HISTORYRow Inherits Global.System.Data.DataRow - + Private tableTBEMLP_HISTORY As TBEMLP_HISTORYDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBEMLP_HISTORY = CType(Me.Table, TBEMLP_HISTORYDataTable) + Me.tableTBEMLP_HISTORY = CType(Me.Table,TBEMLP_HISTORYDataTable) End Sub - - + + _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBEMLP_HISTORY.GUIDColumn), Integer) + Return CType(Me(Me.tableTBEMLP_HISTORY.GUIDColumn),Integer) End Get Set - Me(Me.tableTBEMLP_HISTORY.GUIDColumn) = Value + Me(Me.tableTBEMLP_HISTORY.GUIDColumn) = value End Set End Property - - + + _ Public Property WORK_PROCESS() As String Get - Try - Return CType(Me(Me.tableTBEMLP_HISTORY.WORK_PROCESSColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_HISTORY.WORK_PROCESSColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORK_PROCESS in Tabelle TBEMLP_HISTORY ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'WORK_PROCESS' in table 'TBEMLP_HISTORY' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_HISTORY.WORK_PROCESSColumn) = Value + Me(Me.tableTBEMLP_HISTORY.WORK_PROCESSColumn) = value End Set End Property - - + + _ Public Property EMAIL_MSGID() As String Get - Return CType(Me(Me.tableTBEMLP_HISTORY.EMAIL_MSGIDColumn), String) + Return CType(Me(Me.tableTBEMLP_HISTORY.EMAIL_MSGIDColumn),String) End Get Set - Me(Me.tableTBEMLP_HISTORY.EMAIL_MSGIDColumn) = Value + Me(Me.tableTBEMLP_HISTORY.EMAIL_MSGIDColumn) = value End Set End Property - - + + _ Public Property EMAIL_SUBJECT() As String Get - Try - Return CType(Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBJECTColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBJECTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_SUBJECT in Tabelle TBEMLP_HISTORY ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'EMAIL_SUBJECT' in table 'TBEMLP_HISTORY' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBJECTColumn) = Value + Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBJECTColumn) = value End Set End Property - - + + _ Public Property EMAIL_DATE() As Date Get - Try - Return CType(Me(Me.tableTBEMLP_HISTORY.EMAIL_DATEColumn), Date) + Try + Return CType(Me(Me.tableTBEMLP_HISTORY.EMAIL_DATEColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_DATE in Tabelle TBEMLP_HISTORY ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'EMAIL_DATE' in table 'TBEMLP_HISTORY' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_HISTORY.EMAIL_DATEColumn) = Value + Me(Me.tableTBEMLP_HISTORY.EMAIL_DATEColumn) = value End Set End Property - - + + _ Public Property EMAIL_BODY() As String Get - Try - Return CType(Me(Me.tableTBEMLP_HISTORY.EMAIL_BODYColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_HISTORY.EMAIL_BODYColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_BODY in Tabelle TBEMLP_HISTORY ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'EMAIL_BODY' in table 'TBEMLP_HISTORY' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_HISTORY.EMAIL_BODYColumn) = Value + Me(Me.tableTBEMLP_HISTORY.EMAIL_BODYColumn) = value End Set End Property - - + + _ Public Property EMAIL_SUBSTRING1() As String Get - Try - Return CType(Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING1Column), String) + Try + Return CType(Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING1Column),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_SUBSTRING1 in Tabelle TBEMLP_HISTORY ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'EMAIL_SUBSTRING1' in table 'TBEMLP_HISTORY' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING1Column) = Value + Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING1Column) = value End Set End Property - - + + _ Public Property EMAIL_SUBSTRING2() As String Get - Try - Return CType(Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING2Column), String) + Try + Return CType(Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING2Column),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_SUBSTRING2 in Tabelle TBEMLP_HISTORY ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'EMAIL_SUBSTRING2' in table 'TBEMLP_HISTORY' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING2Column) = Value + Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING2Column) = value End Set End Property - - + + _ Public Property COMMENT() As String Get - Try - Return CType(Me(Me.tableTBEMLP_HISTORY.COMMENTColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_HISTORY.COMMENTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle TBEMLP_HISTORY ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'COMMENT' in table 'TBEMLP_HISTORY' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_HISTORY.COMMENTColumn) = Value + Me(Me.tableTBEMLP_HISTORY.COMMENTColumn) = value End Set End Property - - + + _ Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBEMLP_HISTORY.ADDED_WHENColumn), Date) + Try + Return CType(Me(Me.tableTBEMLP_HISTORY.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBEMLP_HISTORY ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'ADDED_WHEN' in table 'TBEMLP_HISTORY' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_HISTORY.ADDED_WHENColumn) = Value + Me(Me.tableTBEMLP_HISTORY.ADDED_WHENColumn) = value End Set End Property - - + + _ Public Function IsWORK_PROCESSNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.WORK_PROCESSColumn) End Function - - + + _ Public Sub SetWORK_PROCESSNull() Me(Me.tableTBEMLP_HISTORY.WORK_PROCESSColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsEMAIL_SUBJECTNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.EMAIL_SUBJECTColumn) End Function - - + + _ Public Sub SetEMAIL_SUBJECTNull() Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBJECTColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsEMAIL_DATENull() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.EMAIL_DATEColumn) End Function - - + + _ Public Sub SetEMAIL_DATENull() Me(Me.tableTBEMLP_HISTORY.EMAIL_DATEColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsEMAIL_BODYNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.EMAIL_BODYColumn) End Function - - + + _ Public Sub SetEMAIL_BODYNull() Me(Me.tableTBEMLP_HISTORY.EMAIL_BODYColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsEMAIL_SUBSTRING1Null() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING1Column) End Function - - + + _ Public Sub SetEMAIL_SUBSTRING1Null() Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING1Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsEMAIL_SUBSTRING2Null() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING2Column) End Function - - + + _ Public Sub SetEMAIL_SUBSTRING2Null() Me(Me.tableTBEMLP_HISTORY.EMAIL_SUBSTRING2Column) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsCOMMENTNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.COMMENTColumn) End Function - - + + _ Public Sub SetCOMMENTNull() Me(Me.tableTBEMLP_HISTORY.COMMENTColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_HISTORY.ADDED_WHENColumn) End Function - - + + _ Public Sub SetADDED_WHENNull() Me(Me.tableTBEMLP_HISTORY.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBEMLP_CONFIGRow Inherits Global.System.Data.DataRow - + Private tableTBEMLP_CONFIG As TBEMLP_CONFIGDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBEMLP_CONFIG = CType(Me.Table, TBEMLP_CONFIGDataTable) + Me.tableTBEMLP_CONFIG = CType(Me.Table,TBEMLP_CONFIGDataTable) End Sub - - + + _ Public Property GUID() As Byte Get - Return CType(Me(Me.tableTBEMLP_CONFIG.GUIDColumn), Byte) + Return CType(Me(Me.tableTBEMLP_CONFIG.GUIDColumn),Byte) End Get Set - Me(Me.tableTBEMLP_CONFIG.GUIDColumn) = Value + Me(Me.tableTBEMLP_CONFIG.GUIDColumn) = value End Set End Property - - + + _ Public Property FONT_BODY() As String Get - Return CType(Me(Me.tableTBEMLP_CONFIG.FONT_BODYColumn), String) + Return CType(Me(Me.tableTBEMLP_CONFIG.FONT_BODYColumn),String) End Get Set - Me(Me.tableTBEMLP_CONFIG.FONT_BODYColumn) = Value + Me(Me.tableTBEMLP_CONFIG.FONT_BODYColumn) = value End Set End Property - - + + _ Public Property LOG_ERRORS_ONLY() As Boolean Get - Return CType(Me(Me.tableTBEMLP_CONFIG.LOG_ERRORS_ONLYColumn), Boolean) + Return CType(Me(Me.tableTBEMLP_CONFIG.LOG_ERRORS_ONLYColumn),Boolean) End Get Set - Me(Me.tableTBEMLP_CONFIG.LOG_ERRORS_ONLYColumn) = Value + Me(Me.tableTBEMLP_CONFIG.LOG_ERRORS_ONLYColumn) = value End Set End Property - - + + _ Public Property CHECK_INTERVALL_MINUTES() As Integer Get - Return CType(Me(Me.tableTBEMLP_CONFIG.CHECK_INTERVALL_MINUTESColumn), Integer) + Return CType(Me(Me.tableTBEMLP_CONFIG.CHECK_INTERVALL_MINUTESColumn),Integer) End Get Set - Me(Me.tableTBEMLP_CONFIG.CHECK_INTERVALL_MINUTESColumn) = Value + Me(Me.tableTBEMLP_CONFIG.CHECK_INTERVALL_MINUTESColumn) = value End Set End Property - - + + _ Public Property LAST_TICK() As Date Get - Try - Return CType(Me(Me.tableTBEMLP_CONFIG.LAST_TICKColumn), Date) + Try + Return CType(Me(Me.tableTBEMLP_CONFIG.LAST_TICKColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LAST_TICK in Tabelle TBEMLP_CONFIG ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'LAST_TICK' in table 'TBEMLP_CONFIG' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_CONFIG.LAST_TICKColumn) = Value + Me(Me.tableTBEMLP_CONFIG.LAST_TICKColumn) = value End Set End Property - - + + _ Public Property PATH_EMAIL_TEMP() As String Get - Return CType(Me(Me.tableTBEMLP_CONFIG.PATH_EMAIL_TEMPColumn), String) + Return CType(Me(Me.tableTBEMLP_CONFIG.PATH_EMAIL_TEMPColumn),String) End Get Set - Me(Me.tableTBEMLP_CONFIG.PATH_EMAIL_TEMPColumn) = Value + Me(Me.tableTBEMLP_CONFIG.PATH_EMAIL_TEMPColumn) = value End Set End Property - - + + _ Public Property PATH_EMAIL_ERRORS() As String Get - Return CType(Me(Me.tableTBEMLP_CONFIG.PATH_EMAIL_ERRORSColumn), String) + Return CType(Me(Me.tableTBEMLP_CONFIG.PATH_EMAIL_ERRORSColumn),String) End Get Set - Me(Me.tableTBEMLP_CONFIG.PATH_EMAIL_ERRORSColumn) = Value + Me(Me.tableTBEMLP_CONFIG.PATH_EMAIL_ERRORSColumn) = value End Set End Property - - + + _ Public Property WM_CON_STRING() As String Get - Return CType(Me(Me.tableTBEMLP_CONFIG.WM_CON_STRINGColumn), String) + Return CType(Me(Me.tableTBEMLP_CONFIG.WM_CON_STRINGColumn),String) End Get Set - Me(Me.tableTBEMLP_CONFIG.WM_CON_STRINGColumn) = Value + Me(Me.tableTBEMLP_CONFIG.WM_CON_STRINGColumn) = value End Set End Property - - + + _ Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBEMLP_CONFIG.ADDED_WHENColumn), Date) + Try + Return CType(Me(Me.tableTBEMLP_CONFIG.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBEMLP_CONFIG ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'ADDED_WHEN' in table 'TBEMLP_CONFIG' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_CONFIG.ADDED_WHENColumn) = Value + Me(Me.tableTBEMLP_CONFIG.ADDED_WHENColumn) = value End Set End Property - - + + _ Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBEMLP_CONFIG.CHANGED_WHOColumn), String) + Try + Return CType(Me(Me.tableTBEMLP_CONFIG.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBEMLP_CONFIG ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'CHANGED_WHO' in table 'TBEMLP_CONFIG' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_CONFIG.CHANGED_WHOColumn) = Value + Me(Me.tableTBEMLP_CONFIG.CHANGED_WHOColumn) = value End Set End Property - - + + _ Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBEMLP_CONFIG.CHANGED_WHENColumn), Date) + Try + Return CType(Me(Me.tableTBEMLP_CONFIG.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBEMLP_CONFIG ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'CHANGED_WHEN' in table 'TBEMLP_CONFIG' is DBNull.", e) End Try End Get Set - Me(Me.tableTBEMLP_CONFIG.CHANGED_WHENColumn) = Value + Me(Me.tableTBEMLP_CONFIG.CHANGED_WHENColumn) = value End Set End Property - - + + _ Public Function IsLAST_TICKNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_CONFIG.LAST_TICKColumn) End Function - - + + _ Public Sub SetLAST_TICKNull() Me(Me.tableTBEMLP_CONFIG.LAST_TICKColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_CONFIG.ADDED_WHENColumn) End Function - - + + _ Public Sub SetADDED_WHENNull() Me(Me.tableTBEMLP_CONFIG.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBEMLP_CONFIG.CHANGED_WHOColumn) End Function - - + + _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBEMLP_CONFIG.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBEMLP_CONFIG.CHANGED_WHENColumn) End Function - - + + _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBEMLP_CONFIG.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_EMAIL_ACCOUNTRow Inherits Global.System.Data.DataRow - + Private tableTBDD_EMAIL_ACCOUNT As TBDD_EMAIL_ACCOUNTDataTable - - + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_EMAIL_ACCOUNT = CType(Me.Table, TBDD_EMAIL_ACCOUNTDataTable) + Me.tableTBDD_EMAIL_ACCOUNT = CType(Me.Table,TBDD_EMAIL_ACCOUNTDataTable) End Sub - - + + _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.GUIDColumn), Integer) + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.GUIDColumn),Integer) End Get Set - Me(Me.tableTBDD_EMAIL_ACCOUNT.GUIDColumn) = Value + Me(Me.tableTBDD_EMAIL_ACCOUNT.GUIDColumn) = value End Set End Property - - + + _ Public Property NAME() As String Get - Try - Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn), String) + Try + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'NAME' in table 'TBDD_EMAIL_ACCOUNT' is DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn) = Value + Me(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn) = value End Set End Property - - + + _ Public Property EMAIL_FROM() As String Get - Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_FROMColumn), String) + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_FROMColumn),String) End Get Set - Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_FROMColumn) = Value + Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_FROMColumn) = value End Set End Property - - + + _ Public Property EMAIL_SMTP() As String Get - Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_SMTPColumn), String) + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_SMTPColumn),String) End Get Set - Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_SMTPColumn) = Value + Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_SMTPColumn) = value End Set End Property - - + + _ Public Property EMAIL_USER() As String Get - Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_USERColumn), String) + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_USERColumn),String) End Get Set - Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_USERColumn) = Value + Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_USERColumn) = value End Set End Property - - + + _ Public Property EMAIL_PW() As String Get - Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_PWColumn), String) + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_PWColumn),String) End Get Set - Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_PWColumn) = Value + Me(Me.tableTBDD_EMAIL_ACCOUNT.EMAIL_PWColumn) = value End Set End Property - - + + _ Public Property PORT() As Integer Get - Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.PORTColumn), Integer) + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.PORTColumn),Integer) End Get Set - Me(Me.tableTBDD_EMAIL_ACCOUNT.PORTColumn) = Value + Me(Me.tableTBDD_EMAIL_ACCOUNT.PORTColumn) = value End Set End Property - - + + _ Public Property ACTIVE() As Boolean Get - Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ACTIVEColumn), Boolean) + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ACTIVEColumn),Boolean) End Get Set - Me(Me.tableTBDD_EMAIL_ACCOUNT.ACTIVEColumn) = Value + Me(Me.tableTBDD_EMAIL_ACCOUNT.ACTIVEColumn) = value End Set End Property - - + + _ Public Property ADDED_WHO() As String Get - Try - Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHOColumn), String) + Try + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'ADDED_WHO' in table 'TBDD_EMAIL_ACCOUNT' is DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHOColumn) = Value + Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHOColumn) = value End Set End Property - - + + _ Public Property ADDED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn), Date) + Try + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'ADDED_WHEN' in table 'TBDD_EMAIL_ACCOUNT' is DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn) = Value + Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn) = value End Set End Property - - + + _ Public Property CHANGED_WHO() As String Get - Try - Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn), String) + Try + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'CHANGED_WHO' in table 'TBDD_EMAIL_ACCOUNT' is DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn) = Value + Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn) = value End Set End Property - - + + _ Public Property CHANGED_WHEN() As Date Get - Try - Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn), Date) + Try + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'CHANGED_WHEN' in table 'TBDD_EMAIL_ACCOUNT' is DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn) = Value + Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn) = value End Set End Property - - + + _ Public Property SSL_AUTH() As Boolean Get - Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.SSL_AUTHColumn), Boolean) + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.SSL_AUTHColumn),Boolean) End Get Set - Me(Me.tableTBDD_EMAIL_ACCOUNT.SSL_AUTHColumn) = Value + Me(Me.tableTBDD_EMAIL_ACCOUNT.SSL_AUTHColumn) = value End Set End Property - - + + _ Public Property AUTH_TYPE() As String Get - Try - Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.AUTH_TYPEColumn), String) + Try + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.AUTH_TYPEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte AUTH_TYPE in Tabelle TBDD_EMAIL_ACCOUNT ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("The value for column 'AUTH_TYPE' in table 'TBDD_EMAIL_ACCOUNT' is DBNull.", e) End Try End Get Set - Me(Me.tableTBDD_EMAIL_ACCOUNT.AUTH_TYPEColumn) = Value + Me(Me.tableTBDD_EMAIL_ACCOUNT.AUTH_TYPEColumn) = value End Set End Property - - + + _ Public Property PORT_IN() As Integer Get - Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.PORT_INColumn), Integer) + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.PORT_INColumn),Integer) End Get Set - Me(Me.tableTBDD_EMAIL_ACCOUNT.PORT_INColumn) = Value + Me(Me.tableTBDD_EMAIL_ACCOUNT.PORT_INColumn) = value End Set End Property - - + + _ Public Property ARCHIVE_FOLDER() As String Get - Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ARCHIVE_FOLDERColumn), String) + Return CType(Me(Me.tableTBDD_EMAIL_ACCOUNT.ARCHIVE_FOLDERColumn),String) End Get Set - Me(Me.tableTBDD_EMAIL_ACCOUNT.ARCHIVE_FOLDERColumn) = Value + Me(Me.tableTBDD_EMAIL_ACCOUNT.ARCHIVE_FOLDERColumn) = value End Set End Property - - + + _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn) End Function - - + + _ Public Sub SetNAMENull() Me(Me.tableTBDD_EMAIL_ACCOUNT.NAMEColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHOColumn) End Function - - + + _ Public Sub SetADDED_WHONull() Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsADDED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn) End Function - - + + _ Public Sub SetADDED_WHENNull() Me(Me.tableTBDD_EMAIL_ACCOUNT.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn) End Function - - + + _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn) End Function - - + + _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBDD_EMAIL_ACCOUNT.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - + + _ Public Function IsAUTH_TYPENull() As Boolean Return Me.IsNull(Me.tableTBDD_EMAIL_ACCOUNT.AUTH_TYPEColumn) End Function - - + + _ Public Sub SetAUTH_TYPENull() Me(Me.tableTBDD_EMAIL_ACCOUNT.AUTH_TYPEColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Row event argument class ''' - + _ Public Class TBEMLP_POLL_PROFILESRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBEMLP_POLL_PROFILESRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As TBEMLP_POLL_PROFILESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As TBEMLP_POLL_PROFILESRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class TBEMLP_POLL_PROCESSRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBEMLP_POLL_PROCESSRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As TBEMLP_POLL_PROCESSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As TBEMLP_POLL_PROCESSRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class TBEMLP_POLL_STEPSRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBEMLP_POLL_STEPSRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As TBEMLP_POLL_STEPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As TBEMLP_POLL_STEPSRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class TBEMLP_POLL_INDEXING_STEPSRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBEMLP_POLL_INDEXING_STEPSRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As TBEMLP_POLL_INDEXING_STEPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As TBEMLP_POLL_INDEXING_STEPSRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class TBEMLP_HISTORYRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBEMLP_HISTORYRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As TBEMLP_HISTORYRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As TBEMLP_HISTORYRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class TBEMLP_CONFIGRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBEMLP_CONFIGRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As TBEMLP_CONFIGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As TBEMLP_CONFIGRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction End Get End Property End Class - + ''' '''Row event argument class ''' - + _ Public Class TBDD_EMAIL_ACCOUNTRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBDD_EMAIL_ACCOUNTRow - + Private eventAction As Global.System.Data.DataRowAction - - + + _ Public Sub New(ByVal row As TBDD_EMAIL_ACCOUNTRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action End Sub - - + + _ Public ReadOnly Property Row() As TBDD_EMAIL_ACCOUNTRow Get Return Me.eventRow End Get End Property - - + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -5914,129 +5958,129 @@ Partial Public Class MyDataset End Class Namespace MyDatasetTableAdapters - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - + _ Partial Public Class TBEMLP_POLL_PROFILESTableAdapter Inherits Global.System.ComponentModel.Component - + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - + Private _connection As Global.System.Data.SqlClient.SqlConnection - + Private _transaction As Global.System.Data.SqlClient.SqlTransaction - + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - + Private _clearBeforeFill As Boolean - - + + _ Public Sub New() MyBase.New - Me.ClearBeforeFill = True + Me.ClearBeforeFill = true End Sub - - + + _ Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get If (Me._adapter Is Nothing) Then - Me.InitAdapter() + Me.InitAdapter End If Return Me._adapter End Get End Property - - + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then - Me.InitConnection() + Me.InitConnection End If Return Me._connection End Get Set - Me._connection = Value + Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = Value + Me.Adapter.InsertCommand.Connection = value End If If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = Value + Me.Adapter.DeleteCommand.Connection = value End If If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = Value + Me.Adapter.UpdateCommand.Connection = value End If Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = Value + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get Set - Me._transaction = Value + Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection() + Me.InitCommandCollection End If Return Me._commandCollection End Get End Property - - + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get Set - Me._clearBeforeFill = Value + Me._clearBeforeFill = value End Set End Property - - + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -6058,272 +6102,272 @@ Namespace MyDatasetTableAdapters Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBEMLP_POLL_PROFILES] WHERE (([GUID] = @Original_GUID) AND ([PROFILE" & - "_NAME] = @Original_PROFILE_NAME) AND ([POLL_TYPE] = @Original_POLL_TYPE) AND ([E" & - "MAIL_CONF_ID] = @Original_EMAIL_CONF_ID) AND ((@IsNull_COMMENT = 1 AND [COMMENT]" & - " IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_LAST_TICK = 1 AND [L" & - "AST_TICK] IS NULL) OR ([LAST_TICK] = @Original_LAST_TICK)) AND ([ACTIVE] = @Orig" & - "inal_ACTIVE) AND ((@IsNull_SEQUENCE = 1 AND [SEQUENCE] IS NULL) OR ([SEQUENCE] =" & - " @Original_SEQUENCE)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([" & - "ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN]" & - " IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = " & - "1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@" & - "IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Origin" & + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBEMLP_POLL_PROFILES] WHERE (([GUID] = @Original_GUID) AND ([PROFILE"& _ + "_NAME] = @Original_PROFILE_NAME) AND ([POLL_TYPE] = @Original_POLL_TYPE) AND ([E"& _ + "MAIL_CONF_ID] = @Original_EMAIL_CONF_ID) AND ((@IsNull_COMMENT = 1 AND [COMMENT]"& _ + " IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ((@IsNull_LAST_TICK = 1 AND [L"& _ + "AST_TICK] IS NULL) OR ([LAST_TICK] = @Original_LAST_TICK)) AND ([ACTIVE] = @Orig"& _ + "inal_ACTIVE) AND ((@IsNull_SEQUENCE = 1 AND [SEQUENCE] IS NULL) OR ([SEQUENCE] ="& _ + " @Original_SEQUENCE)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR (["& _ + "ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN]"& _ + " IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = "& _ + "1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@"& _ + "IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Origin"& _ "al_CHANGED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.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.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_POLL_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "POLL_TYPE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL_CONF_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_CONF_ID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LAST_TICK", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LAST_TICK", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LAST_TICK", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LAST_TICK", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, True, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_POLL_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "POLL_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_EMAIL_CONF_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_CONF_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_LAST_TICK", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LAST_TICK", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LAST_TICK", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LAST_TICK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBEMLP_POLL_PROFILES" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (PROFILE_NAME, POLL_TY" & - "PE, EMAIL_CONF_ID, COMMENT, LAST_TICK, ACTIVE, SEQUENCE, ADDED_WHO, VALIDATION_S" & - "QL)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@PROFILE_NAME,@POLL_TYPE,@EMAIL_CONF_ID,@COMMENT,@LAST_TICK," & - "@ACTIVE,@SEQUENCE,@ADDED_WHO,@VALIDATION_SQL); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, PROFILE_NAME, POL" & - "L_TYPE, EMAIL_CONF_ID, COMMENT, LAST_TICK, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WH" & - "EN, CHANGED_WHO, CHANGED_WHEN FROM TBEMLP_POLL_PROFILES WHERE (GUID = SCOPE_IDEN" & + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBEMLP_POLL_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_NAME, POLL_TY"& _ + "PE, EMAIL_CONF_ID, COMMENT, LAST_TICK, ACTIVE, SEQUENCE, ADDED_WHO, VALIDATION_S"& _ + "QL)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE_NAME,@POLL_TYPE,@EMAIL_CONF_ID,@COMMENT,@LAST_TICK,"& _ + "@ACTIVE,@SEQUENCE,@ADDED_WHO,@VALIDATION_SQL); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_NAME, POL"& _ + "L_TYPE, EMAIL_CONF_ID, COMMENT, LAST_TICK, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WH"& _ + "EN, CHANGED_WHO, CHANGED_WHEN FROM TBEMLP_POLL_PROFILES WHERE (GUID = SCOPE_IDEN"& _ "TITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@POLL_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "POLL_TYPE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_CONF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_CONF_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LAST_TICK", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "LAST_TICK", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALIDATION_SQL", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION_SQL", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@POLL_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "POLL_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_CONF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_CONF_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LAST_TICK", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "LAST_TICK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALIDATION_SQL", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION_SQL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBEMLP_POLL_PROFILES" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET PROFILE_NAME = @PROFILE_NAM" & - "E, POLL_TYPE = @POLL_TYPE, EMAIL_CONF_ID = @EMAIL_CONF_ID, COMMENT = @COMMENT, L" & - "AST_TICK = @LAST_TICK, ACTIVE = @ACTIVE, SEQUENCE = @SEQUENCE, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & - " CHANGED_WHO = @CHANGED_WHO, VALIDATION_SQL = @VALIDATION_SQL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE " & - " (GUID = @Original_GUID); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, PROFILE_NAME, POLL_TYPE, EMAIL_CO" & - "NF_ID, COMMENT, LAST_TICK, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO," & + Me._adapter.UpdateCommand.CommandText = "UPDATE TBEMLP_POLL_PROFILES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFILE_NAME = @PROFILE_NAM"& _ + "E, POLL_TYPE = @POLL_TYPE, EMAIL_CONF_ID = @EMAIL_CONF_ID, COMMENT = @COMMENT, L"& _ + "AST_TICK = @LAST_TICK, ACTIVE = @ACTIVE, SEQUENCE = @SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " CHANGED_WHO = @CHANGED_WHO, VALIDATION_SQL = @VALIDATION_SQL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_NAME, POLL_TYPE, EMAIL_CO"& _ + "NF_ID, COMMENT, LAST_TICK, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _ " CHANGED_WHEN FROM TBEMLP_POLL_PROFILES WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@POLL_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "POLL_TYPE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_CONF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_CONF_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LAST_TICK", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "LAST_TICK", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALIDATION_SQL", Global.System.Data.SqlDbType.NVarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION_SQL", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@POLL_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "POLL_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_CONF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_CONF_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LAST_TICK", Global.System.Data.SqlDbType.DateTime, 8, Global.System.Data.ParameterDirection.Input, 0, 0, "LAST_TICK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALIDATION_SQL", Global.System.Data.SqlDbType.NVarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "VALIDATION_SQL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub - - + + _ Private Sub InitConnection() Me._connection = New Global.System.Data.SqlClient.SqlConnection() Me._connection.ConnectionString = Global.EmailProfiler.Form.My.MySettings.Default.MyDatasetConnString End Sub - - + + _ Private Sub InitCommandCollection() Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBEMLP_POLL_PROFILES.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBEMLP_POLL_PROFILES" + Me._commandCollection(0).CommandText = "SELECT TBEMLP_POLL_PROFILES.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBEMLP_POLL_PROFILES" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - - Public Overridable Overloads Function Fill(ByVal dataTable As MyDataset.TBEMLP_POLL_PROFILESDataTable) As Integer + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBEMLP_POLL_PROFILESDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = True) Then - dataTable.Clear() + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - - Public Overridable Overloads Function GetData() As MyDataset.TBEMLP_POLL_PROFILESDataTable + + _ + Public Overloads Overridable Function GetData() As MyDataset.TBEMLP_POLL_PROFILESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As MyDataset.TBEMLP_POLL_PROFILESDataTable = New MyDataset.TBEMLP_POLL_PROFILESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - - Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBEMLP_POLL_PROFILESDataTable) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBEMLP_POLL_PROFILESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - - Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBEMLP_POLL_PROFILES") End Function - - - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - - Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - - Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer, ByVal Original_PROFILE_NAME As String, ByVal Original_POLL_TYPE As String, ByVal Original_EMAIL_CONF_ID As Integer, ByVal Original_COMMENT As String, ByVal Original_LAST_TICK As Global.System.Nullable(Of Date), ByVal Original_ACTIVE As Boolean, ByVal Original_SEQUENCE As Global.System.Nullable(Of Integer), ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_PROFILE_NAME As String, ByVal Original_POLL_TYPE As String, ByVal Original_EMAIL_CONF_ID As Integer, ByVal Original_COMMENT As String, ByVal Original_LAST_TICK As Global.System.Nullable(Of Date), ByVal Original_ACTIVE As Boolean, ByVal Original_SEQUENCE As Global.System.Nullable(Of Integer), ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) If (Original_PROFILE_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_PROFILE_NAME") Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_PROFILE_NAME, String) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_PROFILE_NAME,String) End If If (Original_POLL_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("Original_POLL_TYPE") Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_POLL_TYPE, String) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_POLL_TYPE,String) End If - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_EMAIL_CONF_ID, Integer) + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_EMAIL_CONF_ID,Integer) If (Original_COMMENT Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0, Object) - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_COMMENT, String) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_COMMENT,String) End If - If (Original_LAST_TICK.HasValue = True) Then - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0, Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_LAST_TICK.Value, Date) + If (Original_LAST_TICK.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_LAST_TICK.Value,Date) Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value End If - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ACTIVE, Boolean) - If (Original_SEQUENCE.HasValue = True) Then - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0, Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_SEQUENCE.Value, Integer) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ACTIVE,Boolean) + If (Original_SEQUENCE.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_SEQUENCE.Value,Integer) Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value End If If (Original_ADDED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0, Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_ADDED_WHO, String) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_ADDED_WHO,String) End If - If (Original_ADDED_WHEN.HasValue = True) Then - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0, Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_ADDED_WHEN.Value, Date) + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_ADDED_WHEN.Value,Date) Else - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value End If If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(16).Value = Global.System.DBNull.Value Else - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0, Object) - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CHANGED_WHO, String) + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_CHANGED_WHO,String) End If - If (Original_CHANGED_WHEN.HasValue = True) Then - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0, Object) - Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_CHANGED_WHEN.Value, Date) + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_CHANGED_WHEN.Value,Date) Else - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1, Object) + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open() + Me.Adapter.DeleteCommand.Connection.Open End If - Try + Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close() + Me.Adapter.DeleteCommand.Connection.Close End If End Try End Function - - - Public Overridable Overloads Function Insert(ByVal PROFILE_NAME As String, ByVal POLL_TYPE As String, ByVal EMAIL_CONF_ID As Integer, ByVal COMMENT As String, ByVal LAST_TICK As Global.System.Nullable(Of Date), ByVal ACTIVE As Boolean, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal ADDED_WHO As String, ByVal VALIDATION_SQL As String) As Integer + + _ + Public Overloads Overridable Function Insert(ByVal PROFILE_NAME As String, ByVal POLL_TYPE As String, ByVal EMAIL_CONF_ID As Integer, ByVal COMMENT As String, ByVal LAST_TICK As Global.System.Nullable(Of Date), ByVal ACTIVE As Boolean, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal ADDED_WHO As String, ByVal VALIDATION_SQL As String) As Integer If (PROFILE_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("PROFILE_NAME") Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_NAME, String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_NAME,String) End If If (POLL_TYPE Is Nothing) Then Throw New Global.System.ArgumentNullException("POLL_TYPE") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(POLL_TYPE, String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(POLL_TYPE,String) End If - Me.Adapter.InsertCommand.Parameters(2).Value = CType(EMAIL_CONF_ID, Integer) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(EMAIL_CONF_ID,Integer) If (COMMENT Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT, String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) End If - If (LAST_TICK.HasValue = True) Then - Me.Adapter.InsertCommand.Parameters(4).Value = CType(LAST_TICK.Value, Date) + If (LAST_TICK.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(4).Value = CType(LAST_TICK.Value,Date) Else Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value End If - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE, Boolean) - If (SEQUENCE.HasValue = True) Then - Me.Adapter.InsertCommand.Parameters(6).Value = CType(SEQUENCE.Value, Integer) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + If (SEQUENCE.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(SEQUENCE.Value,Integer) Else Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value End If If (ADDED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO, String) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String) End If If (VALIDATION_SQL Is Nothing) Then Throw New Global.System.ArgumentNullException("VALIDATION_SQL") Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(VALIDATION_SQL, String) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(VALIDATION_SQL,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ @@ -6551,88 +6595,222 @@ Namespace MyDatasetTableAdapters tableMapping.ColumnMappings.Add("WM_IDX_BODY_TEXT", "WM_IDX_BODY_TEXT") tableMapping.ColumnMappings.Add("WM_IDX_BODY_SUBSTR_LENGTH", "WM_IDX_BODY_SUBSTR_LENGTH") tableMapping.ColumnMappings.Add("PATH_ORIGINAL", "PATH_ORIGINAL") + tableMapping.ColumnMappings.Add("ALLOW_XML_RECEIPTS", "ALLOW_XML_RECEIPTS") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBEMLP_POLL_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBEMLP_POLL_PROCESS] WHERE (([GUID] = @Original_GUID) AND ([PROCESS_"& _ + "NAME] = @Original_PROCESS_NAME) AND ([STEP_NAME] = @Original_STEP_NAME) AND ([PR"& _ + "OFILE_ID] = @Original_PROFILE_ID) AND ([COPY_2_HDD] = @Original_COPY_2_HDD) AND "& _ + "([WM_IMPORT] = @Original_WM_IMPORT) AND ((@IsNull_WM_OBJEKTTYPE = 1 AND [WM_OBJE"& _ + "KTTYPE] IS NULL) OR ([WM_OBJEKTTYPE] = @Original_WM_OBJEKTTYPE)) AND ((@IsNull_W"& _ + "M_VECTOR_LOG = 1 AND [WM_VECTOR_LOG] IS NULL) OR ([WM_VECTOR_LOG] = @Original_WM"& _ + "_VECTOR_LOG)) AND ((@IsNull_WM_PATH = 1 AND [WM_PATH] IS NULL) OR ([WM_PATH] = @"& _ + "Original_WM_PATH)) AND ((@IsNull_WM_FILE_NAME = 1 AND [WM_FILE_NAME] IS NULL) OR"& _ + " ([WM_FILE_NAME] = @Original_WM_FILE_NAME)) AND ((@IsNull_WM_REFERENCE_INDEX = 1"& _ + " AND [WM_REFERENCE_INDEX] IS NULL) OR ([WM_REFERENCE_INDEX] = @Original_WM_REFER"& _ + "ENCE_INDEX)) AND ([PATH_EMAIL_TEMP] = @Original_PATH_EMAIL_TEMP) AND ([PATH_EMAI"& _ + "L_ERRORS] = @Original_PATH_EMAIL_ERRORS) AND ([DELETE_MAIL] = @Original_DELETE_M"& _ + "AIL) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_"& _ + "COMMENT)) AND ([ACTIVE] = @Original_ACTIVE) AND ((@IsNull_SEQUENCE = 1 AND [SEQU"& _ + "ENCE] IS NULL) OR ([SEQUENCE] = @Original_SEQUENCE)) AND ((@IsNull_ADDED_WHO = 1"& _ + " AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_"& _ + "ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN"& _ + ")) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = "& _ + "@Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NUL"& _ + "L) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([WM_IDX_BODY_TEXT] = @Orig"& _ + "inal_WM_IDX_BODY_TEXT) AND ([WM_IDX_BODY_SUBSTR_LENGTH] = @Original_WM_IDX_BODY_"& _ + "SUBSTR_LENGTH) AND ((@IsNull_PATH_ORIGINAL = 1 AND [PATH_ORIGINAL] IS NULL) OR ("& _ + "[PATH_ORIGINAL] = @Original_PATH_ORIGINAL)) AND ((@IsNull_ALLOW_XML_RECEIPTS = 1"& _ + " AND [ALLOW_XML_RECEIPTS] IS NULL) OR ([ALLOW_XML_RECEIPTS] = @Original_ALLOW_XM"& _ + "L_RECEIPTS)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROCESS_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STEP_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STEP_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COPY_2_HDD", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COPY_2_HDD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WM_IMPORT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IMPORT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WM_OBJEKTTYPE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_OBJEKTTYPE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WM_OBJEKTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_OBJEKTTYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WM_VECTOR_LOG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_VECTOR_LOG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WM_VECTOR_LOG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_VECTOR_LOG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WM_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_PATH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WM_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WM_FILE_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_FILE_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WM_FILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_FILE_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WM_REFERENCE_INDEX", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_REFERENCE_INDEX", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WM_REFERENCE_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_REFERENCE_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PATH_EMAIL_TEMP", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_EMAIL_TEMP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PATH_EMAIL_ERRORS", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_EMAIL_ERRORS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DELETE_MAIL", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_MAIL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WM_IDX_BODY_TEXT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IDX_BODY_TEXT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WM_IDX_BODY_SUBSTR_LENGTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IDX_BODY_SUBSTR_LENGTH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PATH_ORIGINAL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_ORIGINAL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PATH_ORIGINAL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_ORIGINAL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ALLOW_XML_RECEIPTS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ALLOW_XML_RECEIPTS", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ALLOW_XML_RECEIPTS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ALLOW_XML_RECEIPTS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBEMLP_POLL_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROCESS_NAME, STEP_NAM"& _ - "E, PROFILE_ID, COPY_2_HDD, WM_IMPORT, WM_OBJEKTTYPE, WM_VECTOR_LOG, WM_PATH, WM_"& _ - "FILE_NAME, WM_REFERENCE_INDEX, PATH_EMAIL_TEMP, PATH_EMAIL_ERRORS, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " DELETE_MAIL, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, WM_IDX_BODY_TEX"& _ - "T, WM_IDX_BODY_SUBSTR_LENGTH, PATH_ORIGINAL)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROCESS_NAME,@STEP"& _ - "_NAME,@PROFILE_ID,@COPY_2_HDD,@WM_IMPORT,@WM_OBJEKTTYPE,@WM_VECTOR_LOG,@WM_PATH,"& _ - "@WM_FILE_NAME,@WM_REFERENCE_INDEX,@PATH_EMAIL_TEMP,@PATH_EMAIL_ERRORS,@DELETE_MA"& _ - "IL,@COMMENT,@ACTIVE,@SEQUENCE,@ADDED_WHO,@WM_IDX_BODY_TEXT,@WM_IDX_BODY_SUBSTR_L"& _ - "ENGTH,@PATH_ORIGINAL); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROCESS_NAME, STEP_NAME, PROFILE_ID, COPY"& _ - "_2_HDD, WM_IMPORT, WM_OBJEKTTYPE, WM_VECTOR_LOG, WM_PATH, WM_FILE_NAME, WM_REFER"& _ - "ENCE_INDEX, PATH_EMAIL_TEMP, PATH_EMAIL_ERRORS, DELETE_MAIL, COMMENT, ACTIVE, SE"& _ - "QUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, WM_IDX_BODY_TEXT, WM_I"& _ - "DX_BODY_SUBSTR_LENGTH FROM TBEMLP_POLL_PROCESS WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBEMLP_POLL_PROCESS] ([PROCESS_NAME], [STEP_NAME], [PROFILE_ID], [CO"& _ + "PY_2_HDD], [WM_IMPORT], [WM_OBJEKTTYPE], [WM_VECTOR_LOG], [WM_PATH], [WM_FILE_NA"& _ + "ME], [WM_REFERENCE_INDEX], [PATH_EMAIL_TEMP], [PATH_EMAIL_ERRORS], [DELETE_MAIL]"& _ + ", [COMMENT], [ACTIVE], [SEQUENCE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CH"& _ + "ANGED_WHEN], [WM_IDX_BODY_TEXT], [WM_IDX_BODY_SUBSTR_LENGTH], [PATH_ORIGINAL], ["& _ + "ALLOW_XML_RECEIPTS]) VALUES (@PROCESS_NAME, @STEP_NAME, @PROFILE_ID, @COPY_2_HDD"& _ + ", @WM_IMPORT, @WM_OBJEKTTYPE, @WM_VECTOR_LOG, @WM_PATH, @WM_FILE_NAME, @WM_REFER"& _ + "ENCE_INDEX, @PATH_EMAIL_TEMP, @PATH_EMAIL_ERRORS, @DELETE_MAIL, @COMMENT, @ACTIV"& _ + "E, @SEQUENCE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @WM_IDX_BODY"& _ + "_TEXT, @WM_IDX_BODY_SUBSTR_LENGTH, @PATH_ORIGINAL, @ALLOW_XML_RECEIPTS);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _ + " GUID, PROCESS_NAME, STEP_NAME, PROFILE_ID, COPY_2_HDD, WM_IMPORT, WM_OBJEKTTYPE"& _ + ", WM_VECTOR_LOG, WM_PATH, WM_FILE_NAME, WM_REFERENCE_INDEX, PATH_EMAIL_TEMP, PAT"& _ + "H_EMAIL_ERRORS, DELETE_MAIL, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, C"& _ + "HANGED_WHO, CHANGED_WHEN, WM_IDX_BODY_TEXT, WM_IDX_BODY_SUBSTR_LENGTH, PATH_ORIG"& _ + "INAL, ALLOW_XML_RECEIPTS FROM TBEMLP_POLL_PROCESS WHERE (GUID = SCOPE_IDENTITY()"& _ + ")" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STEP_NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "STEP_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COPY_2_HDD", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "COPY_2_HDD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_IMPORT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IMPORT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_OBJEKTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_OBJEKTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_VECTOR_LOG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_VECTOR_LOG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_PATH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_FILE_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_FILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_REFERENCE_INDEX", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_REFERENCE_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATH_EMAIL_TEMP", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_EMAIL_TEMP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATH_EMAIL_ERRORS", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_EMAIL_ERRORS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_MAIL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_MAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_IDX_BODY_TEXT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IDX_BODY_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_IDX_BODY_SUBSTR_LENGTH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IDX_BODY_SUBSTR_LENGTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATH_ORIGINAL", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_ORIGINAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STEP_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STEP_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COPY_2_HDD", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COPY_2_HDD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_IMPORT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IMPORT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_OBJEKTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_OBJEKTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_VECTOR_LOG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_VECTOR_LOG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_FILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_FILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_REFERENCE_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_REFERENCE_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATH_EMAIL_TEMP", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_EMAIL_TEMP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATH_EMAIL_ERRORS", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_EMAIL_ERRORS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_MAIL", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_MAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_IDX_BODY_TEXT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IDX_BODY_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_IDX_BODY_SUBSTR_LENGTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IDX_BODY_SUBSTR_LENGTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATH_ORIGINAL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_ORIGINAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ALLOW_XML_RECEIPTS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ALLOW_XML_RECEIPTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBEMLP_POLL_PROCESS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROCESS_NAME = @PROCESS_NAME"& _ - ", STEP_NAME = @STEP_NAME, PROFILE_ID = @PROFILE_ID, COPY_2_HDD = @COPY_2_HDD, WM"& _ - "_IMPORT = @WM_IMPORT, WM_OBJEKTTYPE = @WM_OBJEKTTYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WM_VECTOR_LOG = @WM_VECTOR_LOG, WM_PATH = @WM_PATH, WM_FILE_NAME = @WM_FILE_NAM"& _ - "E, WM_REFERENCE_INDEX = @WM_REFERENCE_INDEX, PATH_EMAIL_TEMP = @PATH_EMAIL_TEMP,"& _ - " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PATH_EMAIL_ERRORS = @PATH_EMAIL_ERRORS, DELETE_MAIL "& _ - "= @DELETE_MAIL, COMMENT = @COMMENT, ACTIVE = @ACTIVE, SEQUENCE = @SEQUENCE, CHAN"& _ - "GED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WM_IDX_BODY_TEXT = @WM_IDX_BO"& _ - "DY_TEXT, WM_IDX_BODY_SUBSTR_LENGTH = @WM_IDX_BODY_SUBSTR_LENGTH, PATH_ORIGINAL ="& _ - " @PATH_ORIGINAL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROCESS_N"& _ - "AME, STEP_NAME, PROFILE_ID, COPY_2_HDD, WM_IMPORT, WM_OBJEKTTYPE, WM_VECTOR_LOG,"& _ - " WM_PATH, WM_FILE_NAME, WM_REFERENCE_INDEX, PATH_EMAIL_TEMP, PATH_EMAIL_ERRORS, "& _ - "DELETE_MAIL, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHAN"& _ - "GED_WHEN, WM_IDX_BODY_TEXT, WM_IDX_BODY_SUBSTR_LENGTH FROM TBEMLP_POLL_PROCESS W"& _ - "HERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBEMLP_POLL_PROCESS] SET [PROCESS_NAME] = @PROCESS_NAME, [STEP_NAME] = @S"& _ + "TEP_NAME, [PROFILE_ID] = @PROFILE_ID, [COPY_2_HDD] = @COPY_2_HDD, [WM_IMPORT] = "& _ + "@WM_IMPORT, [WM_OBJEKTTYPE] = @WM_OBJEKTTYPE, [WM_VECTOR_LOG] = @WM_VECTOR_LOG, "& _ + "[WM_PATH] = @WM_PATH, [WM_FILE_NAME] = @WM_FILE_NAME, [WM_REFERENCE_INDEX] = @WM"& _ + "_REFERENCE_INDEX, [PATH_EMAIL_TEMP] = @PATH_EMAIL_TEMP, [PATH_EMAIL_ERRORS] = @P"& _ + "ATH_EMAIL_ERRORS, [DELETE_MAIL] = @DELETE_MAIL, [COMMENT] = @COMMENT, [ACTIVE] ="& _ + " @ACTIVE, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDE"& _ + "D_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [WM_IDX_BO"& _ + "DY_TEXT] = @WM_IDX_BODY_TEXT, [WM_IDX_BODY_SUBSTR_LENGTH] = @WM_IDX_BODY_SUBSTR_"& _ + "LENGTH, [PATH_ORIGINAL] = @PATH_ORIGINAL, [ALLOW_XML_RECEIPTS] = @ALLOW_XML_RECE"& _ + "IPTS WHERE (([GUID] = @Original_GUID) AND ([PROCESS_NAME] = @Original_PROCESS_NA"& _ + "ME) AND ([STEP_NAME] = @Original_STEP_NAME) AND ([PROFILE_ID] = @Original_PROFIL"& _ + "E_ID) AND ([COPY_2_HDD] = @Original_COPY_2_HDD) AND ([WM_IMPORT] = @Original_WM_"& _ + "IMPORT) AND ((@IsNull_WM_OBJEKTTYPE = 1 AND [WM_OBJEKTTYPE] IS NULL) OR ([WM_OBJ"& _ + "EKTTYPE] = @Original_WM_OBJEKTTYPE)) AND ((@IsNull_WM_VECTOR_LOG = 1 AND [WM_VEC"& _ + "TOR_LOG] IS NULL) OR ([WM_VECTOR_LOG] = @Original_WM_VECTOR_LOG)) AND ((@IsNull_"& _ + "WM_PATH = 1 AND [WM_PATH] IS NULL) OR ([WM_PATH] = @Original_WM_PATH)) AND ((@Is"& _ + "Null_WM_FILE_NAME = 1 AND [WM_FILE_NAME] IS NULL) OR ([WM_FILE_NAME] = @Original"& _ + "_WM_FILE_NAME)) AND ((@IsNull_WM_REFERENCE_INDEX = 1 AND [WM_REFERENCE_INDEX] IS"& _ + " NULL) OR ([WM_REFERENCE_INDEX] = @Original_WM_REFERENCE_INDEX)) AND ([PATH_EMAI"& _ + "L_TEMP] = @Original_PATH_EMAIL_TEMP) AND ([PATH_EMAIL_ERRORS] = @Original_PATH_E"& _ + "MAIL_ERRORS) AND ([DELETE_MAIL] = @Original_DELETE_MAIL) AND ((@IsNull_COMMENT ="& _ + " 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ACTIVE] = @O"& _ + "riginal_ACTIVE) AND ((@IsNull_SEQUENCE = 1 AND [SEQUENCE] IS NULL) OR ([SEQUENCE"& _ + "] = @Original_SEQUENCE)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR"& _ + " ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WH"& _ + "EN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO"& _ + " = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND "& _ + "((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Ori"& _ + "ginal_CHANGED_WHEN)) AND ([WM_IDX_BODY_TEXT] = @Original_WM_IDX_BODY_TEXT) AND ("& _ + "[WM_IDX_BODY_SUBSTR_LENGTH] = @Original_WM_IDX_BODY_SUBSTR_LENGTH) AND ((@IsNull"& _ + "_PATH_ORIGINAL = 1 AND [PATH_ORIGINAL] IS NULL) OR ([PATH_ORIGINAL] = @Original_"& _ + "PATH_ORIGINAL)) AND ((@IsNull_ALLOW_XML_RECEIPTS = 1 AND [ALLOW_XML_RECEIPTS] IS"& _ + " NULL) OR ([ALLOW_XML_RECEIPTS] = @Original_ALLOW_XML_RECEIPTS)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID,"& _ + " PROCESS_NAME, STEP_NAME, PROFILE_ID, COPY_2_HDD, WM_IMPORT, WM_OBJEKTTYPE, WM_V"& _ + "ECTOR_LOG, WM_PATH, WM_FILE_NAME, WM_REFERENCE_INDEX, PATH_EMAIL_TEMP, PATH_EMAI"& _ + "L_ERRORS, DELETE_MAIL, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED"& _ + "_WHO, CHANGED_WHEN, WM_IDX_BODY_TEXT, WM_IDX_BODY_SUBSTR_LENGTH, PATH_ORIGINAL, "& _ + "ALLOW_XML_RECEIPTS FROM TBEMLP_POLL_PROCESS WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STEP_NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "STEP_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COPY_2_HDD", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "COPY_2_HDD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_IMPORT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IMPORT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_OBJEKTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_OBJEKTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_VECTOR_LOG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_VECTOR_LOG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_PATH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_FILE_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_FILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_REFERENCE_INDEX", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_REFERENCE_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATH_EMAIL_TEMP", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_EMAIL_TEMP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATH_EMAIL_ERRORS", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_EMAIL_ERRORS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_MAIL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_MAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_IDX_BODY_TEXT", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IDX_BODY_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_IDX_BODY_SUBSTR_LENGTH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IDX_BODY_SUBSTR_LENGTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATH_ORIGINAL", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_ORIGINAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STEP_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STEP_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COPY_2_HDD", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COPY_2_HDD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_IMPORT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IMPORT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_OBJEKTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_OBJEKTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_VECTOR_LOG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_VECTOR_LOG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_FILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_FILE_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_REFERENCE_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_REFERENCE_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATH_EMAIL_TEMP", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_EMAIL_TEMP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATH_EMAIL_ERRORS", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_EMAIL_ERRORS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_MAIL", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_MAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_IDX_BODY_TEXT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IDX_BODY_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WM_IDX_BODY_SUBSTR_LENGTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IDX_BODY_SUBSTR_LENGTH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATH_ORIGINAL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_ORIGINAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ALLOW_XML_RECEIPTS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ALLOW_XML_RECEIPTS", 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, 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("@Original_PROCESS_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_STEP_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "STEP_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COPY_2_HDD", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COPY_2_HDD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WM_IMPORT", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IMPORT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WM_OBJEKTTYPE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_OBJEKTTYPE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WM_OBJEKTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_OBJEKTTYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WM_VECTOR_LOG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_VECTOR_LOG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WM_VECTOR_LOG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_VECTOR_LOG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WM_PATH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_PATH", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WM_PATH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_PATH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WM_FILE_NAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_FILE_NAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WM_FILE_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_FILE_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WM_REFERENCE_INDEX", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_REFERENCE_INDEX", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WM_REFERENCE_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_REFERENCE_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PATH_EMAIL_TEMP", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_EMAIL_TEMP", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PATH_EMAIL_ERRORS", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_EMAIL_ERRORS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DELETE_MAIL", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_MAIL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SEQUENCE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WM_IDX_BODY_TEXT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IDX_BODY_TEXT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WM_IDX_BODY_SUBSTR_LENGTH", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WM_IDX_BODY_SUBSTR_LENGTH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PATH_ORIGINAL", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_ORIGINAL", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PATH_ORIGINAL", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PATH_ORIGINAL", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ALLOW_XML_RECEIPTS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ALLOW_XML_RECEIPTS", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ALLOW_XML_RECEIPTS", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ALLOW_XML_RECEIPTS", 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 _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Public Overloads Overridable Function Delete( _ + ByVal Original_GUID As Integer, _ + ByVal Original_PROCESS_NAME As String, _ + ByVal Original_STEP_NAME As String, _ + ByVal Original_PROFILE_ID As Integer, _ + ByVal Original_COPY_2_HDD As Boolean, _ + ByVal Original_WM_IMPORT As Boolean, _ + ByVal Original_WM_OBJEKTTYPE As String, _ + ByVal Original_WM_VECTOR_LOG As String, _ + ByVal Original_WM_PATH As String, _ + ByVal Original_WM_FILE_NAME As String, _ + ByVal Original_WM_REFERENCE_INDEX As String, _ + ByVal Original_PATH_EMAIL_TEMP As String, _ + ByVal Original_PATH_EMAIL_ERRORS As String, _ + ByVal Original_DELETE_MAIL As Boolean, _ + ByVal Original_COMMENT As String, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_SEQUENCE As Global.System.Nullable(Of Integer), _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_WM_IDX_BODY_TEXT As String, _ + ByVal Original_WM_IDX_BODY_SUBSTR_LENGTH As Integer, _ + ByVal Original_PATH_ORIGINAL As String, _ + ByVal Original_ALLOW_XML_RECEIPTS As Global.System.Nullable(Of Boolean)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_PROCESS_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PROCESS_NAME") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_PROCESS_NAME,String) + End If + If (Original_STEP_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_STEP_NAME") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_STEP_NAME,String) + End If + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_PROFILE_ID,Integer) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_COPY_2_HDD,Boolean) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_WM_IMPORT,Boolean) + If (Original_WM_OBJEKTTYPE Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_WM_OBJEKTTYPE,String) + End If + If (Original_WM_VECTOR_LOG Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_WM_VECTOR_LOG,String) + End If + If (Original_WM_PATH Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_WM_PATH,String) + End If + If (Original_WM_FILE_NAME Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_WM_FILE_NAME,String) + End If + If (Original_WM_REFERENCE_INDEX Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_WM_REFERENCE_INDEX,String) + End If + If (Original_PATH_EMAIL_TEMP Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PATH_EMAIL_TEMP") + Else + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_PATH_EMAIL_TEMP,String) + End If + If (Original_PATH_EMAIL_ERRORS Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PATH_EMAIL_ERRORS") + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_PATH_EMAIL_ERRORS,String) + End If + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_DELETE_MAIL,Boolean) + If (Original_COMMENT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_COMMENT,String) + End If + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_ACTIVE,Boolean) + If (Original_SEQUENCE.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_SEQUENCE.Value,Integer) + Else + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(23).Value = Global.System.DBNull.Value + End If + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(25).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(29).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(29).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(30).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(31).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(30).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(31).Value = Global.System.DBNull.Value + End If + If (Original_WM_IDX_BODY_TEXT Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_WM_IDX_BODY_TEXT") + Else + Me.Adapter.DeleteCommand.Parameters(32).Value = CType(Original_WM_IDX_BODY_TEXT,String) + End If + Me.Adapter.DeleteCommand.Parameters(33).Value = CType(Original_WM_IDX_BODY_SUBSTR_LENGTH,Integer) + If (Original_PATH_ORIGINAL Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(34).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(35).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(34).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(35).Value = CType(Original_PATH_ORIGINAL,String) + End If + If (Original_ALLOW_XML_RECEIPTS.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(36).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(37).Value = CType(Original_ALLOW_XML_RECEIPTS.Value,Boolean) + Else + Me.Adapter.DeleteCommand.Parameters(36).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(37).Value = Global.System.DBNull.Value + End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -6752,9 +7077,13 @@ Namespace MyDatasetTableAdapters ByVal ACTIVE As Boolean, _ ByVal SEQUENCE As Global.System.Nullable(Of Integer), _ ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal WM_IDX_BODY_TEXT As String, _ ByVal WM_IDX_BODY_SUBSTR_LENGTH As Integer, _ - ByVal PATH_ORIGINAL As String) As Integer + ByVal PATH_ORIGINAL As String, _ + ByVal ALLOW_XML_RECEIPTS As Global.System.Nullable(Of Boolean)) As Integer If (PROCESS_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("PROCESS_NAME") Else @@ -6820,16 +7149,36 @@ Namespace MyDatasetTableAdapters Else Me.Adapter.InsertCommand.Parameters(16).Value = CType(ADDED_WHO,String) End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(17).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(17).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(18).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(19).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value + End If If (WM_IDX_BODY_TEXT Is Nothing) Then Throw New Global.System.ArgumentNullException("WM_IDX_BODY_TEXT") Else - Me.Adapter.InsertCommand.Parameters(17).Value = CType(WM_IDX_BODY_TEXT,String) + Me.Adapter.InsertCommand.Parameters(20).Value = CType(WM_IDX_BODY_TEXT,String) End If - Me.Adapter.InsertCommand.Parameters(18).Value = CType(WM_IDX_BODY_SUBSTR_LENGTH,Integer) + Me.Adapter.InsertCommand.Parameters(21).Value = CType(WM_IDX_BODY_SUBSTR_LENGTH,Integer) If (PATH_ORIGINAL Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(19).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(22).Value = CType(PATH_ORIGINAL,String) + End If + If (ALLOW_XML_RECEIPTS.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(23).Value = CType(ALLOW_XML_RECEIPTS.Value,Boolean) Else - Me.Adapter.InsertCommand.Parameters(19).Value = CType(PATH_ORIGINAL,String) + Me.Adapter.InsertCommand.Parameters(23).Value = Global.System.DBNull.Value End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ @@ -6867,11 +7216,39 @@ Namespace MyDatasetTableAdapters ByVal COMMENT As String, _ ByVal ACTIVE As Boolean, _ ByVal SEQUENCE As Global.System.Nullable(Of Integer), _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ ByVal WM_IDX_BODY_TEXT As String, _ ByVal WM_IDX_BODY_SUBSTR_LENGTH As Integer, _ ByVal PATH_ORIGINAL As String, _ + ByVal ALLOW_XML_RECEIPTS As Global.System.Nullable(Of Boolean), _ ByVal Original_GUID As Integer, _ + ByVal Original_PROCESS_NAME As String, _ + ByVal Original_STEP_NAME As String, _ + ByVal Original_PROFILE_ID As Integer, _ + ByVal Original_COPY_2_HDD As Boolean, _ + ByVal Original_WM_IMPORT As Boolean, _ + ByVal Original_WM_OBJEKTTYPE As String, _ + ByVal Original_WM_VECTOR_LOG As String, _ + ByVal Original_WM_PATH As String, _ + ByVal Original_WM_FILE_NAME As String, _ + ByVal Original_WM_REFERENCE_INDEX As String, _ + ByVal Original_PATH_EMAIL_TEMP As String, _ + ByVal Original_PATH_EMAIL_ERRORS As String, _ + ByVal Original_DELETE_MAIL As Boolean, _ + ByVal Original_COMMENT As String, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_SEQUENCE As Global.System.Nullable(Of Integer), _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_WM_IDX_BODY_TEXT As String, _ + ByVal Original_WM_IDX_BODY_SUBSTR_LENGTH As Integer, _ + ByVal Original_PATH_ORIGINAL As String, _ + ByVal Original_ALLOW_XML_RECEIPTS As Global.System.Nullable(Of Boolean), _ ByVal GUID As Integer) As Integer If (PROCESS_NAME Is Nothing) Then Throw New Global.System.ArgumentNullException("PROCESS_NAME") @@ -6933,24 +7310,166 @@ Namespace MyDatasetTableAdapters Else Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If - If (CHANGED_WHO Is Nothing) Then + If (ADDED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value End If If (WM_IDX_BODY_TEXT Is Nothing) Then Throw New Global.System.ArgumentNullException("WM_IDX_BODY_TEXT") Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(WM_IDX_BODY_TEXT,String) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(WM_IDX_BODY_TEXT,String) End If - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(WM_IDX_BODY_SUBSTR_LENGTH,Integer) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(WM_IDX_BODY_SUBSTR_LENGTH,Integer) If (PATH_ORIGINAL Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(19).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(PATH_ORIGINAL,String) + End If + If (ALLOW_XML_RECEIPTS.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(ALLOW_XML_RECEIPTS.Value,Boolean) + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_GUID,Integer) + If (Original_PROCESS_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PROCESS_NAME") + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_PROCESS_NAME,String) + End If + If (Original_STEP_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_STEP_NAME") + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_STEP_NAME,String) + End If + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_PROFILE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_COPY_2_HDD,Boolean) + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_WM_IMPORT,Boolean) + If (Original_WM_OBJEKTTYPE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_WM_OBJEKTTYPE,String) + End If + If (Original_WM_VECTOR_LOG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(PATH_ORIGINAL,String) + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_WM_VECTOR_LOG,String) End If - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(GUID,Integer) + If (Original_WM_PATH Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(35).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(Original_WM_PATH,String) + End If + If (Original_WM_FILE_NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(37).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(Original_WM_FILE_NAME,String) + End If + If (Original_WM_REFERENCE_INDEX Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(39).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_WM_REFERENCE_INDEX,String) + End If + If (Original_PATH_EMAIL_TEMP Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PATH_EMAIL_TEMP") + Else + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(Original_PATH_EMAIL_TEMP,String) + End If + If (Original_PATH_EMAIL_ERRORS Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PATH_EMAIL_ERRORS") + Else + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_PATH_EMAIL_ERRORS,String) + End If + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(Original_DELETE_MAIL,Boolean) + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(44).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_ACTIVE,Boolean) + If (Original_SEQUENCE.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_SEQUENCE.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(47).Value = Global.System.DBNull.Value + End If + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(48).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(49).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(48).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(50).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(50).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(51).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(52).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(53).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(52).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(54).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(55).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(54).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(55).Value = Global.System.DBNull.Value + End If + If (Original_WM_IDX_BODY_TEXT Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_WM_IDX_BODY_TEXT") + Else + Me.Adapter.UpdateCommand.Parameters(56).Value = CType(Original_WM_IDX_BODY_TEXT,String) + End If + Me.Adapter.UpdateCommand.Parameters(57).Value = CType(Original_WM_IDX_BODY_SUBSTR_LENGTH,Integer) + If (Original_PATH_ORIGINAL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(58).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(59).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(58).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(59).Value = CType(Original_PATH_ORIGINAL,String) + End If + If (Original_ALLOW_XML_RECEIPTS.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(60).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(61).Value = CType(Original_ALLOW_XML_RECEIPTS.Value,Boolean) + Else + Me.Adapter.UpdateCommand.Parameters(60).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(61).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(62).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -6965,6 +7484,63 @@ Namespace MyDatasetTableAdapters End If End Try End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal PROCESS_NAME As String, _ + ByVal STEP_NAME As String, _ + ByVal PROFILE_ID As Integer, _ + ByVal COPY_2_HDD As Boolean, _ + ByVal WM_IMPORT As Boolean, _ + ByVal WM_OBJEKTTYPE As String, _ + ByVal WM_VECTOR_LOG As String, _ + ByVal WM_PATH As String, _ + ByVal WM_FILE_NAME As String, _ + ByVal WM_REFERENCE_INDEX As String, _ + ByVal PATH_EMAIL_TEMP As String, _ + ByVal PATH_EMAIL_ERRORS As String, _ + ByVal DELETE_MAIL As Boolean, _ + ByVal COMMENT As String, _ + ByVal ACTIVE As Boolean, _ + ByVal SEQUENCE As Global.System.Nullable(Of Integer), _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal WM_IDX_BODY_TEXT As String, _ + ByVal WM_IDX_BODY_SUBSTR_LENGTH As Integer, _ + ByVal PATH_ORIGINAL As String, _ + ByVal ALLOW_XML_RECEIPTS As Global.System.Nullable(Of Boolean), _ + ByVal Original_GUID As Integer, _ + ByVal Original_PROCESS_NAME As String, _ + ByVal Original_STEP_NAME As String, _ + ByVal Original_PROFILE_ID As Integer, _ + ByVal Original_COPY_2_HDD As Boolean, _ + ByVal Original_WM_IMPORT As Boolean, _ + ByVal Original_WM_OBJEKTTYPE As String, _ + ByVal Original_WM_VECTOR_LOG As String, _ + ByVal Original_WM_PATH As String, _ + ByVal Original_WM_FILE_NAME As String, _ + ByVal Original_WM_REFERENCE_INDEX As String, _ + ByVal Original_PATH_EMAIL_TEMP As String, _ + ByVal Original_PATH_EMAIL_ERRORS As String, _ + ByVal Original_DELETE_MAIL As Boolean, _ + ByVal Original_COMMENT As String, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_SEQUENCE As Global.System.Nullable(Of Integer), _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_WM_IDX_BODY_TEXT As String, _ + ByVal Original_WM_IDX_BODY_SUBSTR_LENGTH As Integer, _ + ByVal Original_PATH_ORIGINAL As String, _ + ByVal Original_ALLOW_XML_RECEIPTS As Global.System.Nullable(Of Boolean)) As Integer + Return Me.Update(PROCESS_NAME, STEP_NAME, PROFILE_ID, COPY_2_HDD, WM_IMPORT, WM_OBJEKTTYPE, WM_VECTOR_LOG, WM_PATH, WM_FILE_NAME, WM_REFERENCE_INDEX, PATH_EMAIL_TEMP, PATH_EMAIL_ERRORS, DELETE_MAIL, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, WM_IDX_BODY_TEXT, WM_IDX_BODY_SUBSTR_LENGTH, PATH_ORIGINAL, ALLOW_XML_RECEIPTS, Original_GUID, Original_PROCESS_NAME, Original_STEP_NAME, Original_PROFILE_ID, Original_COPY_2_HDD, Original_WM_IMPORT, Original_WM_OBJEKTTYPE, Original_WM_VECTOR_LOG, Original_WM_PATH, Original_WM_FILE_NAME, Original_WM_REFERENCE_INDEX, Original_PATH_EMAIL_TEMP, Original_PATH_EMAIL_ERRORS, Original_DELETE_MAIL, Original_COMMENT, Original_ACTIVE, Original_SEQUENCE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_WM_IDX_BODY_TEXT, Original_WM_IDX_BODY_SUBSTR_LENGTH, Original_PATH_ORIGINAL, Original_ALLOW_XML_RECEIPTS, Original_GUID) + End Function End Class ''' @@ -9253,44 +9829,43 @@ Namespace MyDatasetTableAdapters End If If ((Not (Me._tBEMLP_POLL_PROFILESTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBEMLP_POLL_PROFILESTableAdapter.Connection) = false)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ - "s die gleiche Verbindungszeichenfolge verwendet werden.") + Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ + "tring.") End If If ((Not (Me._tBEMLP_POLL_PROCESSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBEMLP_POLL_PROCESSTableAdapter.Connection) = false)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ - "s die gleiche Verbindungszeichenfolge verwendet werden.") + Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ + "tring.") End If If ((Not (Me._tBEMLP_POLL_STEPSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBEMLP_POLL_STEPSTableAdapter.Connection) = false)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ - "s die gleiche Verbindungszeichenfolge verwendet werden.") + Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ + "tring.") End If If ((Not (Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBEMLP_POLL_INDEXING_STEPSTableAdapter.Connection) = false)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ - "s die gleiche Verbindungszeichenfolge verwendet werden.") + Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ + "tring.") End If If ((Not (Me._tBEMLP_HISTORYTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBEMLP_HISTORYTableAdapter.Connection) = false)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ - "s die gleiche Verbindungszeichenfolge verwendet werden.") + Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ + "tring.") End If If ((Not (Me._tBEMLP_CONFIGTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBEMLP_CONFIGTableAdapter.Connection) = false)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ - "s die gleiche Verbindungszeichenfolge verwendet werden.") + Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ + "tring.") End If If ((Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_EMAIL_ACCOUNTTableAdapter.Connection) = false)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ - "s die gleiche Verbindungszeichenfolge verwendet werden.") + Throw New Global.System.ArgumentException("All TableAdapters managed by a TableAdapterManager must use the same connection s"& _ + "tring.") End If Dim workConnection As Global.System.Data.IDbConnection = Me.Connection If (workConnection Is Nothing) Then - Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ - "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ - "t.") + Throw New Global.System.ApplicationException("TableAdapterManager contains no connection information. Set each TableAdapterMana"& _ + "ger TableAdapter property to a valid TableAdapter instance.") End If Dim workConnOpened As Boolean = false If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ @@ -9303,9 +9878,8 @@ Namespace MyDatasetTableAdapters End If Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction If (workTransaction Is Nothing) Then - Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ - "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ - "ion nicht zu.") + Throw New Global.System.ApplicationException("The transaction cannot begin. The current data connection does not support transa"& _ + "ctions or the current state is not allowing the transaction to begin.") End If Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() Dim allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() diff --git a/App/EmailProfiler.Form/MyDataset.xsd b/App/EmailProfiler.Form/MyDataset.xsd index c4ccf10..460282d 100644 --- a/App/EmailProfiler.Form/MyDataset.xsd +++ b/App/EmailProfiler.Form/MyDataset.xsd @@ -105,87 +105,160 @@ SELECT GUID, PROFILE_NAME, POLL_TYPE, EMAIL_CONF_ID, COMMENT, LAST_TICK, ACTIVE, - + - DELETE FROM TBEMLP_POLL_PROCESS -WHERE (GUID = @Original_GUID) + DELETE FROM [TBEMLP_POLL_PROCESS] WHERE (([GUID] = @Original_GUID) AND ([PROCESS_NAME] = @Original_PROCESS_NAME) AND ([STEP_NAME] = @Original_STEP_NAME) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([COPY_2_HDD] = @Original_COPY_2_HDD) AND ([WM_IMPORT] = @Original_WM_IMPORT) AND ((@IsNull_WM_OBJEKTTYPE = 1 AND [WM_OBJEKTTYPE] IS NULL) OR ([WM_OBJEKTTYPE] = @Original_WM_OBJEKTTYPE)) AND ((@IsNull_WM_VECTOR_LOG = 1 AND [WM_VECTOR_LOG] IS NULL) OR ([WM_VECTOR_LOG] = @Original_WM_VECTOR_LOG)) AND ((@IsNull_WM_PATH = 1 AND [WM_PATH] IS NULL) OR ([WM_PATH] = @Original_WM_PATH)) AND ((@IsNull_WM_FILE_NAME = 1 AND [WM_FILE_NAME] IS NULL) OR ([WM_FILE_NAME] = @Original_WM_FILE_NAME)) AND ((@IsNull_WM_REFERENCE_INDEX = 1 AND [WM_REFERENCE_INDEX] IS NULL) OR ([WM_REFERENCE_INDEX] = @Original_WM_REFERENCE_INDEX)) AND ([PATH_EMAIL_TEMP] = @Original_PATH_EMAIL_TEMP) AND ([PATH_EMAIL_ERRORS] = @Original_PATH_EMAIL_ERRORS) AND ([DELETE_MAIL] = @Original_DELETE_MAIL) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ACTIVE] = @Original_ACTIVE) AND ((@IsNull_SEQUENCE = 1 AND [SEQUENCE] IS NULL) OR ([SEQUENCE] = @Original_SEQUENCE)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([WM_IDX_BODY_TEXT] = @Original_WM_IDX_BODY_TEXT) AND ([WM_IDX_BODY_SUBSTR_LENGTH] = @Original_WM_IDX_BODY_SUBSTR_LENGTH) AND ((@IsNull_PATH_ORIGINAL = 1 AND [PATH_ORIGINAL] IS NULL) OR ([PATH_ORIGINAL] = @Original_PATH_ORIGINAL)) AND ((@IsNull_ALLOW_XML_RECEIPTS = 1 AND [ALLOW_XML_RECEIPTS] IS NULL) OR ([ALLOW_XML_RECEIPTS] = @Original_ALLOW_XML_RECEIPTS))) - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - - INSERT INTO TBEMLP_POLL_PROCESS - (PROCESS_NAME, STEP_NAME, PROFILE_ID, COPY_2_HDD, WM_IMPORT, WM_OBJEKTTYPE, WM_VECTOR_LOG, WM_PATH, WM_FILE_NAME, WM_REFERENCE_INDEX, PATH_EMAIL_TEMP, PATH_EMAIL_ERRORS, - DELETE_MAIL, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, WM_IDX_BODY_TEXT, WM_IDX_BODY_SUBSTR_LENGTH, PATH_ORIGINAL) -VALUES (@PROCESS_NAME,@STEP_NAME,@PROFILE_ID,@COPY_2_HDD,@WM_IMPORT,@WM_OBJEKTTYPE,@WM_VECTOR_LOG,@WM_PATH,@WM_FILE_NAME,@WM_REFERENCE_INDEX,@PATH_EMAIL_TEMP,@PATH_EMAIL_ERRORS,@DELETE_MAIL,@COMMENT,@ACTIVE,@SEQUENCE,@ADDED_WHO,@WM_IDX_BODY_TEXT,@WM_IDX_BODY_SUBSTR_LENGTH,@PATH_ORIGINAL); -SELECT GUID, PROCESS_NAME, STEP_NAME, PROFILE_ID, COPY_2_HDD, WM_IMPORT, WM_OBJEKTTYPE, WM_VECTOR_LOG, WM_PATH, WM_FILE_NAME, WM_REFERENCE_INDEX, PATH_EMAIL_TEMP, PATH_EMAIL_ERRORS, DELETE_MAIL, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, WM_IDX_BODY_TEXT, WM_IDX_BODY_SUBSTR_LENGTH FROM TBEMLP_POLL_PROCESS WHERE (GUID = SCOPE_IDENTITY()) + + INSERT INTO [TBEMLP_POLL_PROCESS] ([PROCESS_NAME], [STEP_NAME], [PROFILE_ID], [COPY_2_HDD], [WM_IMPORT], [WM_OBJEKTTYPE], [WM_VECTOR_LOG], [WM_PATH], [WM_FILE_NAME], [WM_REFERENCE_INDEX], [PATH_EMAIL_TEMP], [PATH_EMAIL_ERRORS], [DELETE_MAIL], [COMMENT], [ACTIVE], [SEQUENCE], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [WM_IDX_BODY_TEXT], [WM_IDX_BODY_SUBSTR_LENGTH], [PATH_ORIGINAL], [ALLOW_XML_RECEIPTS]) VALUES (@PROCESS_NAME, @STEP_NAME, @PROFILE_ID, @COPY_2_HDD, @WM_IMPORT, @WM_OBJEKTTYPE, @WM_VECTOR_LOG, @WM_PATH, @WM_FILE_NAME, @WM_REFERENCE_INDEX, @PATH_EMAIL_TEMP, @PATH_EMAIL_ERRORS, @DELETE_MAIL, @COMMENT, @ACTIVE, @SEQUENCE, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @WM_IDX_BODY_TEXT, @WM_IDX_BODY_SUBSTR_LENGTH, @PATH_ORIGINAL, @ALLOW_XML_RECEIPTS); +SELECT GUID, PROCESS_NAME, STEP_NAME, PROFILE_ID, COPY_2_HDD, WM_IMPORT, WM_OBJEKTTYPE, WM_VECTOR_LOG, WM_PATH, WM_FILE_NAME, WM_REFERENCE_INDEX, PATH_EMAIL_TEMP, PATH_EMAIL_ERRORS, DELETE_MAIL, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, WM_IDX_BODY_TEXT, WM_IDX_BODY_SUBSTR_LENGTH, PATH_ORIGINAL, ALLOW_XML_RECEIPTS FROM TBEMLP_POLL_PROCESS WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + - + SELECT GUID, PROCESS_NAME, STEP_NAME, PROFILE_ID, COPY_2_HDD, WM_IMPORT, WM_OBJEKTTYPE, WM_VECTOR_LOG, WM_PATH, WM_FILE_NAME, WM_REFERENCE_INDEX, PATH_EMAIL_TEMP, PATH_EMAIL_ERRORS, - DELETE_MAIL, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, WM_IDX_BODY_TEXT, WM_IDX_BODY_SUBSTR_LENGTH, PATH_ORIGINAL + DELETE_MAIL, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, WM_IDX_BODY_TEXT, WM_IDX_BODY_SUBSTR_LENGTH, PATH_ORIGINAL, ALLOW_XML_RECEIPTS FROM TBEMLP_POLL_PROCESS - - UPDATE TBEMLP_POLL_PROCESS -SET PROCESS_NAME = @PROCESS_NAME, STEP_NAME = @STEP_NAME, PROFILE_ID = @PROFILE_ID, COPY_2_HDD = @COPY_2_HDD, WM_IMPORT = @WM_IMPORT, WM_OBJEKTTYPE = @WM_OBJEKTTYPE, - WM_VECTOR_LOG = @WM_VECTOR_LOG, WM_PATH = @WM_PATH, WM_FILE_NAME = @WM_FILE_NAME, WM_REFERENCE_INDEX = @WM_REFERENCE_INDEX, PATH_EMAIL_TEMP = @PATH_EMAIL_TEMP, - PATH_EMAIL_ERRORS = @PATH_EMAIL_ERRORS, DELETE_MAIL = @DELETE_MAIL, COMMENT = @COMMENT, ACTIVE = @ACTIVE, SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO, - WM_IDX_BODY_TEXT = @WM_IDX_BODY_TEXT, WM_IDX_BODY_SUBSTR_LENGTH = @WM_IDX_BODY_SUBSTR_LENGTH, PATH_ORIGINAL = @PATH_ORIGINAL -WHERE (GUID = @Original_GUID); -SELECT GUID, PROCESS_NAME, STEP_NAME, PROFILE_ID, COPY_2_HDD, WM_IMPORT, WM_OBJEKTTYPE, WM_VECTOR_LOG, WM_PATH, WM_FILE_NAME, WM_REFERENCE_INDEX, PATH_EMAIL_TEMP, PATH_EMAIL_ERRORS, DELETE_MAIL, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, WM_IDX_BODY_TEXT, WM_IDX_BODY_SUBSTR_LENGTH FROM TBEMLP_POLL_PROCESS WHERE (GUID = @GUID) + + UPDATE [TBEMLP_POLL_PROCESS] SET [PROCESS_NAME] = @PROCESS_NAME, [STEP_NAME] = @STEP_NAME, [PROFILE_ID] = @PROFILE_ID, [COPY_2_HDD] = @COPY_2_HDD, [WM_IMPORT] = @WM_IMPORT, [WM_OBJEKTTYPE] = @WM_OBJEKTTYPE, [WM_VECTOR_LOG] = @WM_VECTOR_LOG, [WM_PATH] = @WM_PATH, [WM_FILE_NAME] = @WM_FILE_NAME, [WM_REFERENCE_INDEX] = @WM_REFERENCE_INDEX, [PATH_EMAIL_TEMP] = @PATH_EMAIL_TEMP, [PATH_EMAIL_ERRORS] = @PATH_EMAIL_ERRORS, [DELETE_MAIL] = @DELETE_MAIL, [COMMENT] = @COMMENT, [ACTIVE] = @ACTIVE, [SEQUENCE] = @SEQUENCE, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [WM_IDX_BODY_TEXT] = @WM_IDX_BODY_TEXT, [WM_IDX_BODY_SUBSTR_LENGTH] = @WM_IDX_BODY_SUBSTR_LENGTH, [PATH_ORIGINAL] = @PATH_ORIGINAL, [ALLOW_XML_RECEIPTS] = @ALLOW_XML_RECEIPTS WHERE (([GUID] = @Original_GUID) AND ([PROCESS_NAME] = @Original_PROCESS_NAME) AND ([STEP_NAME] = @Original_STEP_NAME) AND ([PROFILE_ID] = @Original_PROFILE_ID) AND ([COPY_2_HDD] = @Original_COPY_2_HDD) AND ([WM_IMPORT] = @Original_WM_IMPORT) AND ((@IsNull_WM_OBJEKTTYPE = 1 AND [WM_OBJEKTTYPE] IS NULL) OR ([WM_OBJEKTTYPE] = @Original_WM_OBJEKTTYPE)) AND ((@IsNull_WM_VECTOR_LOG = 1 AND [WM_VECTOR_LOG] IS NULL) OR ([WM_VECTOR_LOG] = @Original_WM_VECTOR_LOG)) AND ((@IsNull_WM_PATH = 1 AND [WM_PATH] IS NULL) OR ([WM_PATH] = @Original_WM_PATH)) AND ((@IsNull_WM_FILE_NAME = 1 AND [WM_FILE_NAME] IS NULL) OR ([WM_FILE_NAME] = @Original_WM_FILE_NAME)) AND ((@IsNull_WM_REFERENCE_INDEX = 1 AND [WM_REFERENCE_INDEX] IS NULL) OR ([WM_REFERENCE_INDEX] = @Original_WM_REFERENCE_INDEX)) AND ([PATH_EMAIL_TEMP] = @Original_PATH_EMAIL_TEMP) AND ([PATH_EMAIL_ERRORS] = @Original_PATH_EMAIL_ERRORS) AND ([DELETE_MAIL] = @Original_DELETE_MAIL) AND ((@IsNull_COMMENT = 1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([ACTIVE] = @Original_ACTIVE) AND ((@IsNull_SEQUENCE = 1 AND [SEQUENCE] IS NULL) OR ([SEQUENCE] = @Original_SEQUENCE)) AND ((@IsNull_ADDED_WHO = 1 AND [ADDED_WHO] IS NULL) OR ([ADDED_WHO] = @Original_ADDED_WHO)) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([WM_IDX_BODY_TEXT] = @Original_WM_IDX_BODY_TEXT) AND ([WM_IDX_BODY_SUBSTR_LENGTH] = @Original_WM_IDX_BODY_SUBSTR_LENGTH) AND ((@IsNull_PATH_ORIGINAL = 1 AND [PATH_ORIGINAL] IS NULL) OR ([PATH_ORIGINAL] = @Original_PATH_ORIGINAL)) AND ((@IsNull_ALLOW_XML_RECEIPTS = 1 AND [ALLOW_XML_RECEIPTS] IS NULL) OR ([ALLOW_XML_RECEIPTS] = @Original_ALLOW_XML_RECEIPTS))); +SELECT GUID, PROCESS_NAME, STEP_NAME, PROFILE_ID, COPY_2_HDD, WM_IMPORT, WM_OBJEKTTYPE, WM_VECTOR_LOG, WM_PATH, WM_FILE_NAME, WM_REFERENCE_INDEX, PATH_EMAIL_TEMP, PATH_EMAIL_ERRORS, DELETE_MAIL, COMMENT, ACTIVE, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, WM_IDX_BODY_TEXT, WM_IDX_BODY_SUBSTR_LENGTH, PATH_ORIGINAL, ALLOW_XML_RECEIPTS FROM TBEMLP_POLL_PROCESS WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -216,6 +289,7 @@ SELECT GUID, PROCESS_NAME, STEP_NAME, PROFILE_ID, COPY_2_HDD, WM_IMPORT, WM_OBJE + @@ -768,6 +842,7 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A + @@ -1073,9 +1148,9 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A - - - + + + \ No newline at end of file diff --git a/App/EmailProfiler.Form/frmMain.Designer.vb b/App/EmailProfiler.Form/frmMain.Designer.vb index 88fb098..d49c739 100644 --- a/App/EmailProfiler.Form/frmMain.Designer.vb +++ b/App/EmailProfiler.Form/frmMain.Designer.vb @@ -122,9 +122,10 @@ Partial Class frmMain Me.POLL_TYPEComboBox = New System.Windows.Forms.ComboBox() Me.XtraTabControl1 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() + Me.cbAllowXMLReceipt = New System.Windows.Forms.CheckBox() + Me.TBEMLP_POLL_PROCESSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.lblDownloadPath = New System.Windows.Forms.Label() Me.PATH_ORIGINALTextBox = New System.Windows.Forms.TextBox() - Me.TBEMLP_POLL_PROCESSBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.btnFBD_ErrorPath = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.btnFBD_DonwloadPath = New System.Windows.Forms.Button() @@ -970,7 +971,7 @@ Partial Class frmMain 'StatusStrip1 ' Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblstatus, Me.tslblRefresh, Me.ToolStripStatusLabel1}) - Me.StatusStrip1.Location = New System.Drawing.Point(0, 585) + Me.StatusStrip1.Location = New System.Drawing.Point(0, 593) Me.StatusStrip1.Name = "StatusStrip1" Me.StatusStrip1.Size = New System.Drawing.Size(1235, 22) Me.StatusStrip1.TabIndex = 0 @@ -1000,7 +1001,7 @@ Partial Class frmMain Me.TabControl1.Location = New System.Drawing.Point(0, 0) Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 - Me.TabControl1.Size = New System.Drawing.Size(1235, 585) + Me.TabControl1.Size = New System.Drawing.Size(1235, 593) Me.TabControl1.TabIndex = 2 ' 'tabProfile @@ -1034,7 +1035,7 @@ Partial Class frmMain Me.tabProfile.Location = New System.Drawing.Point(4, 22) Me.tabProfile.Name = "tabProfile" Me.tabProfile.Padding = New System.Windows.Forms.Padding(3) - Me.tabProfile.Size = New System.Drawing.Size(1227, 559) + Me.tabProfile.Size = New System.Drawing.Size(1227, 567) Me.tabProfile.TabIndex = 0 Me.tabProfile.Text = "Profilkonfiguration" Me.tabProfile.UseVisualStyleBackColor = True @@ -1073,7 +1074,7 @@ Partial Class frmMain Me.GridControl4.Location = New System.Drawing.Point(3, 31) Me.GridControl4.MainView = Me.GridView4 Me.GridControl4.Name = "GridControl4" - Me.GridControl4.Size = New System.Drawing.Size(245, 152) + Me.GridControl4.Size = New System.Drawing.Size(245, 160) Me.GridControl4.TabIndex = 33 Me.GridControl4.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView4}) ' @@ -1314,7 +1315,7 @@ Partial Class frmMain Me.XtraTabControl1.Location = New System.Drawing.Point(3, 197) Me.XtraTabControl1.Name = "XtraTabControl1" Me.XtraTabControl1.SelectedTabPage = Me.XtraTabPage1 - Me.XtraTabControl1.Size = New System.Drawing.Size(1221, 359) + Me.XtraTabControl1.Size = New System.Drawing.Size(1221, 367) Me.XtraTabControl1.TabIndex = 30 Me.XtraTabControl1.TabPages.AddRange(New DevExpress.XtraTab.XtraTabPage() {Me.XtraTabPage1, Me.XtraTabPage2, Me.XtraTabPage3}) ' @@ -1323,6 +1324,7 @@ Partial Class frmMain Me.XtraTabPage1.Appearance.Header.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.XtraTabPage1.Appearance.Header.Options.UseFont = True Me.XtraTabPage1.AutoScroll = True + Me.XtraTabPage1.Controls.Add(Me.cbAllowXMLReceipt) Me.XtraTabPage1.Controls.Add(Me.lblDownloadPath) Me.XtraTabPage1.Controls.Add(Me.PATH_ORIGINALTextBox) Me.XtraTabPage1.Controls.Add(Me.btnFBD_ErrorPath) @@ -1361,9 +1363,26 @@ Partial Class frmMain Me.XtraTabPage1.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.XtraTabPage1.ImageOptions.SvgImageSize = New System.Drawing.Size(18, 18) Me.XtraTabPage1.Name = "XtraTabPage1" - Me.XtraTabPage1.Size = New System.Drawing.Size(1219, 329) + Me.XtraTabPage1.Size = New System.Drawing.Size(1219, 337) Me.XtraTabPage1.Text = "Zugeordnete Prozesse" ' + 'cbAllowXMLReceipt + ' + Me.cbAllowXMLReceipt.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBEMLP_POLL_PROCESSBindingSource, "ALLOW_XML_RECEIPTS", True)) + Me.cbAllowXMLReceipt.Location = New System.Drawing.Point(319, 310) + Me.cbAllowXMLReceipt.Name = "cbAllowXMLReceipt" + Me.cbAllowXMLReceipt.Size = New System.Drawing.Size(182, 24) + Me.cbAllowXMLReceipt.TabIndex = 93 + Me.cbAllowXMLReceipt.Text = "Erlaube XML Belege (1. Anhang)" + Me.cbAllowXMLReceipt.UseVisualStyleBackColor = True + ' + 'TBEMLP_POLL_PROCESSBindingSource + ' + Me.TBEMLP_POLL_PROCESSBindingSource.AllowNew = True + Me.TBEMLP_POLL_PROCESSBindingSource.DataMember = "FK_TBEMLP_POLL_PROCESS_PROFILE_ID" + Me.TBEMLP_POLL_PROCESSBindingSource.DataSource = Me.TBEMLP_POLL_PROFILESBindingSource + Me.TBEMLP_POLL_PROCESSBindingSource.Sort = "SEQUENCE" + ' 'lblDownloadPath ' Me.lblDownloadPath.AutoSize = True @@ -1381,13 +1400,6 @@ Partial Class frmMain Me.PATH_ORIGINALTextBox.Size = New System.Drawing.Size(462, 21) Me.PATH_ORIGINALTextBox.TabIndex = 91 ' - 'TBEMLP_POLL_PROCESSBindingSource - ' - Me.TBEMLP_POLL_PROCESSBindingSource.AllowNew = True - Me.TBEMLP_POLL_PROCESSBindingSource.DataMember = "FK_TBEMLP_POLL_PROCESS_PROFILE_ID" - Me.TBEMLP_POLL_PROCESSBindingSource.DataSource = Me.TBEMLP_POLL_PROFILESBindingSource - Me.TBEMLP_POLL_PROCESSBindingSource.Sort = "SEQUENCE" - ' 'btnFBD_ErrorPath ' Me.btnFBD_ErrorPath.Location = New System.Drawing.Point(787, 243) @@ -1797,7 +1809,7 @@ Partial Class frmMain Me.GridControl1.Location = New System.Drawing.Point(0, 0) Me.GridControl1.MainView = Me.GridView1 Me.GridControl1.Name = "GridControl1" - Me.GridControl1.Size = New System.Drawing.Size(245, 329) + Me.GridControl1.Size = New System.Drawing.Size(245, 337) Me.GridControl1.TabIndex = 0 Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) ' @@ -1869,7 +1881,7 @@ Partial Class frmMain Me.XtraTabPage2.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage2.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.XtraTabPage2.ImageOptions.SvgImageSize = New System.Drawing.Size(18, 18) Me.XtraTabPage2.Name = "XtraTabPage2" - Me.XtraTabPage2.Size = New System.Drawing.Size(1219, 329) + Me.XtraTabPage2.Size = New System.Drawing.Size(1219, 337) Me.XtraTabPage2.Text = "Verarbeitungs-Schritte" ' 'NumericUpDown1 @@ -2097,7 +2109,7 @@ Partial Class frmMain Me.GridControl2.Location = New System.Drawing.Point(0, 0) Me.GridControl2.MainView = Me.GridView2 Me.GridControl2.Name = "GridControl2" - Me.GridControl2.Size = New System.Drawing.Size(245, 329) + Me.GridControl2.Size = New System.Drawing.Size(245, 337) Me.GridControl2.TabIndex = 1 Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) ' @@ -2161,7 +2173,7 @@ Partial Class frmMain Me.XtraTabPage3.ImageOptions.SvgImage = CType(resources.GetObject("XtraTabPage3.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) Me.XtraTabPage3.ImageOptions.SvgImageSize = New System.Drawing.Size(18, 18) Me.XtraTabPage3.Name = "XtraTabPage3" - Me.XtraTabPage3.Size = New System.Drawing.Size(1219, 329) + Me.XtraTabPage3.Size = New System.Drawing.Size(1219, 337) Me.XtraTabPage3.Text = "Indexierungs Schritte" ' 'SEQUENCENumericUpDown @@ -2392,7 +2404,7 @@ Partial Class frmMain Me.GridControl3.Location = New System.Drawing.Point(0, 0) Me.GridControl3.MainView = Me.GridView3 Me.GridControl3.Name = "GridControl3" - Me.GridControl3.Size = New System.Drawing.Size(245, 329) + Me.GridControl3.Size = New System.Drawing.Size(245, 337) Me.GridControl3.TabIndex = 34 Me.GridControl3.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView3}) ' @@ -2550,7 +2562,7 @@ Partial Class frmMain Me.tabEmail.Location = New System.Drawing.Point(4, 22) Me.tabEmail.Name = "tabEmail" Me.tabEmail.Padding = New System.Windows.Forms.Padding(3) - Me.tabEmail.Size = New System.Drawing.Size(1227, 559) + Me.tabEmail.Size = New System.Drawing.Size(1227, 567) Me.tabEmail.TabIndex = 3 Me.tabEmail.Text = "EMail-Konto Konfiguration" Me.tabEmail.UseVisualStyleBackColor = True @@ -2778,7 +2790,7 @@ Partial Class frmMain Me.GridControl6.Location = New System.Drawing.Point(3, 28) Me.GridControl6.MainView = Me.GridView6 Me.GridControl6.Name = "GridControl6" - Me.GridControl6.Size = New System.Drawing.Size(301, 528) + Me.GridControl6.Size = New System.Drawing.Size(301, 536) Me.GridControl6.TabIndex = 34 Me.GridControl6.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView6}) ' @@ -2854,8 +2866,8 @@ Partial Class frmMain 'BindingNavigatorCountItem1 ' Me.BindingNavigatorCountItem1.Name = "BindingNavigatorCountItem1" - Me.BindingNavigatorCountItem1.Size = New System.Drawing.Size(44, 22) - Me.BindingNavigatorCountItem1.Text = "von {0}" + Me.BindingNavigatorCountItem1.Size = New System.Drawing.Size(35, 22) + Me.BindingNavigatorCountItem1.Text = "of {0}" Me.BindingNavigatorCountItem1.ToolTipText = "Die Gesamtanzahl der Elemente." ' 'BindingNavigatorDeleteItem1 @@ -2955,7 +2967,7 @@ Partial Class frmMain Me.tabConfig.Location = New System.Drawing.Point(4, 22) Me.tabConfig.Name = "tabConfig" Me.tabConfig.Padding = New System.Windows.Forms.Padding(3) - Me.tabConfig.Size = New System.Drawing.Size(1227, 559) + Me.tabConfig.Size = New System.Drawing.Size(1227, 567) Me.tabConfig.TabIndex = 1 Me.tabConfig.Text = "Grundeinstellungen" Me.tabConfig.UseVisualStyleBackColor = True @@ -2971,7 +2983,7 @@ Partial Class frmMain Me.GroupBox4.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.GroupBox4.Location = New System.Drawing.Point(3, 358) Me.GroupBox4.Name = "GroupBox4" - Me.GroupBox4.Size = New System.Drawing.Size(1221, 198) + Me.GroupBox4.Size = New System.Drawing.Size(1221, 206) Me.GroupBox4.TabIndex = 69 Me.GroupBox4.TabStop = False Me.GroupBox4.Text = "Test RegEx" @@ -3013,7 +3025,7 @@ Partial Class frmMain Me.txtResultRegEx.Location = New System.Drawing.Point(659, 49) Me.txtResultRegEx.Multiline = True Me.txtResultRegEx.Name = "txtResultRegEx" - Me.txtResultRegEx.Size = New System.Drawing.Size(538, 143) + Me.txtResultRegEx.Size = New System.Drawing.Size(538, 151) Me.txtResultRegEx.TabIndex = 69 ' 'txthtmlEmail @@ -3025,7 +3037,7 @@ Partial Class frmMain Me.txthtmlEmail.Location = New System.Drawing.Point(9, 49) Me.txthtmlEmail.Multiline = True Me.txthtmlEmail.Name = "txthtmlEmail" - Me.txthtmlEmail.Size = New System.Drawing.Size(538, 143) + Me.txthtmlEmail.Size = New System.Drawing.Size(538, 151) Me.txthtmlEmail.TabIndex = 67 Me.txthtmlEmail.Text = Global.EmailProfiler.Form.My.MySettings.Default.MyTestHTML ' @@ -3373,7 +3385,7 @@ Partial Class frmMain Me.Appearance.Options.UseFont = True Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(1235, 607) + Me.ClientSize = New System.Drawing.Size(1235, 615) Me.Controls.Add(Me.TabControl1) Me.Controls.Add(Me.StatusStrip1) Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) @@ -3702,4 +3714,5 @@ Partial Class frmMain Friend WithEvents btnValidationSQL As DevExpress.XtraEditors.SimpleButton Friend WithEvents txtSQLValidation As DevExpress.XtraEditors.TextEdit Friend WithEvents Button1 As Button + Friend WithEvents cbAllowXMLReceipt As CheckBox End Class diff --git a/App/EmailProfiler.Form/frmMain.resx b/App/EmailProfiler.Form/frmMain.resx index 95dc884..3eb1a6a 100644 --- a/App/EmailProfiler.Form/frmMain.resx +++ b/App/EmailProfiler.Form/frmMain.resx @@ -753,7 +753,7 @@ 1005, 173 - 235 + 169 diff --git a/App/EmailProfiler.Form/frmMain.vb b/App/EmailProfiler.Form/frmMain.vb index 78d5f1d..70142d2 100644 --- a/App/EmailProfiler.Form/frmMain.vb +++ b/App/EmailProfiler.Form/frmMain.vb @@ -626,13 +626,20 @@ Public Class frmMain Select Case PROCESS_NAMEComboBox.Text Case "ProcessManager" txtSubjectExample.Text = "[ProcessManager][EA][DID#[%Dokument-ID]]" + cbAllowXMLReceipt.Enabled = False + cbAllowXMLReceipt.Checked = False Case "Attachment Sniffer" lblDownloadPath.Text = "Download-Path Attachments:" + cbAllowXMLReceipt.Enabled = True Case "ZugFeRD-Parser" lblDownloadPath.Text = "Download-Path Attachments:" + cbAllowXMLReceipt.Enabled = False + cbAllowXMLReceipt.Checked = False Case Else txtSubjectExample.Text = "" lblDownloadPath.Text = "Download-Path:" + cbAllowXMLReceipt.Enabled = False + cbAllowXMLReceipt.Checked = False End Select End If End Sub