From 0c8aeb6e5a5a1f8c89ce2b75e5fe77286f469b8c Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Wed, 11 Oct 2023 13:09:56 +0200 Subject: [PATCH] add PollType default value, fix insert command --- App/EmailProfiler.Form/MyDataset.Designer.vb | 4567 +++++++++--------- App/EmailProfiler.Form/MyDataset.xsd | 204 +- 2 files changed, 2379 insertions(+), 2392 deletions(-) diff --git a/App/EmailProfiler.Form/MyDataset.Designer.vb b/App/EmailProfiler.Form/MyDataset.Designer.vb index da4646d..4780e18 100644 --- a/App/EmailProfiler.Form/MyDataset.Designer.vb +++ b/App/EmailProfiler.Form/MyDataset.Designer.vb @@ -792,78 +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.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) 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() @@ -892,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 @@ -928,75 +931,75 @@ 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 - - _ + + 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 @@ -1012,268 +1015,268 @@ 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 Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBEMLP_POLL_PROCESSRow + + + Default Public 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, _ + + + 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 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} If (Not (parentTBEMLP_POLL_PROFILESRowByFK_TBEMLP_POLL_PROCESS_PROFILE_ID) Is Nothing) Then columnValuesArray(3) = parentTBEMLP_POLL_PROFILESRowByFK_TBEMLP_POLL_PROCESS_PROFILE_ID(0) @@ -1282,29 +1285,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") @@ -1331,9 +1334,9 @@ Partial Public Class MyDataset Me.columnWM_IDX_BODY_SUBSTR_LENGTH = MyBase.Columns("WM_IDX_BODY_SUBSTR_LENGTH") Me.columnPATH_ORIGINAL = MyBase.Columns("PATH_ORIGINAL") 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) @@ -1383,106 +1386,106 @@ 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.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() @@ -1511,35 +1514,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 @@ -1547,49 +1550,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 @@ -1605,141 +1608,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 - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBEMLP_POLL_STEPSRow + + + Default Public 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) @@ -1748,29 +1751,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") @@ -1784,9 +1787,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) @@ -1810,84 +1813,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() @@ -1916,35 +1919,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 @@ -1952,49 +1955,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 @@ -2010,141 +2013,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 - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBEMLP_POLL_INDEXING_STEPSRow + + + Default Public 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) @@ -2153,29 +2156,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") @@ -2189,9 +2192,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) @@ -2215,87 +2218,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() @@ -2324,35 +2327,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 @@ -2360,47 +2363,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 @@ -2416,161 +2419,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 - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBEMLP_HISTORYRow + + + Default Public 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") @@ -2583,9 +2586,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) @@ -2607,15 +2610,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 @@ -2623,69 +2626,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() @@ -2714,35 +2717,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 @@ -2750,49 +2753,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 @@ -2808,169 +2811,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 - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBEMLP_CONFIGRow + + + Default Public 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") @@ -2984,9 +2987,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) @@ -3010,84 +3013,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() @@ -3116,35 +3119,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 @@ -3152,61 +3155,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 @@ -3222,209 +3225,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 - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_EMAIL_ACCOUNTRow + + + Default Public 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") @@ -3443,9 +3446,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) @@ -3479,101 +3482,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() @@ -3602,35 +3605,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 @@ -3638,2286 +3641,2270 @@ 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) 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) 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) 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) 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) 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) 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) 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 - Try - Return CType(Me(Me.tableTBEMLP_POLL_PROFILES.VALIDATION_SQLColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALIDATION_SQL in Tabelle TBEMLP_POLL_PROFILES ist DBNull.", e) - End Try + 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 IsVALIDATION_SQLNull() As Boolean - Return Me.IsNull(Me.tableTBEMLP_POLL_PROFILES.VALIDATION_SQLColumn) - End Function - - _ - Public Sub SetVALIDATION_SQLNull() - Me(Me.tableTBEMLP_POLL_PROFILES.VALIDATION_SQLColumn) = 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) 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) 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) 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) 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."& _ + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WM_REFERENCE_INDEX in Tabelle TBEMLP_POLL_PROCESS ist DBNull." & "", 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) 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) 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) 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) 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) 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) 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) 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 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 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) 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) 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) 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) 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) End Try End Get Set - Me(Me.tableTBEMLP_POLL_STEPS.ADDED_WHENColumn) = value - End Set - End Property - - _ + 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) 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) 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) 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) 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) 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."& _ + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBEMLP_POLL_INDEXING_STEPS ist DBNull." & "", 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"& _ + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBEMLP_POLL_INDEXING_STEPS ist DBNull" & ".", 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) 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) 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) 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) 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) 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) 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) 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) 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 - - _ + 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) 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) 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) 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) 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) 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) 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) 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) 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) 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) 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 @@ -5927,129 +5914,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() @@ -6071,272 +6058,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.[Variant], 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 Overloads Overridable Function Fill(ByVal dataTable As MyDataset.TBEMLP_POLL_PROFILESDataTable) As Integer + + + Public Overridable Overloads 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 Overloads Overridable Function GetData() As MyDataset.TBEMLP_POLL_PROFILESDataTable + + + Public Overridable Overloads 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 Overloads Overridable Function Update(ByVal dataTable As MyDataset.TBEMLP_POLL_PROFILESDataTable) As Integer + + + Public Overridable Overloads Function Update(ByVal dataTable As MyDataset.TBEMLP_POLL_PROFILESDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As MyDataset) As Integer + + + Public Overridable Overloads Function Update(ByVal dataSet As MyDataset) As Integer Return Me.Adapter.Update(dataSet, "TBEMLP_POLL_PROFILES") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - 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) + + + 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) 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 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 Object) As Integer + + + 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 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,Object) + 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) _ @@ -6391,7 +6378,7 @@ Namespace MyDatasetTableAdapters Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) End If If (VALIDATION_SQL Is Nothing) Then - Throw New Global.System.ArgumentNullException("VALIDATION_SQL") + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else Me.Adapter.UpdateCommand.Parameters(8).Value = CType(VALIDATION_SQL,String) End If diff --git a/App/EmailProfiler.Form/MyDataset.xsd b/App/EmailProfiler.Form/MyDataset.xsd index 042b3dd..c4ccf10 100644 --- a/App/EmailProfiler.Form/MyDataset.xsd +++ b/App/EmailProfiler.Form/MyDataset.xsd @@ -51,7 +51,7 @@ SELECT GUID, PROFILE_NAME, POLL_TYPE, EMAIL_CONF_ID, COMMENT, LAST_TICK, ACTIVE, - + @@ -78,7 +78,7 @@ SELECT GUID, PROFILE_NAME, POLL_TYPE, EMAIL_CONF_ID, COMMENT, LAST_TICK, ACTIVE, - + @@ -608,160 +608,160 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A - + - - + + - + - - + + - - - - + + + + - - + + - - + + - + - - + + - + - - - - + + + + - + - + - + - + - + - + - - + + - - - + + + - - + + - - + + - - + + @@ -771,266 +771,266 @@ SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, PORT, ACTIVE, A - + - - - + + + - + - + - - - + + + - - + + - + - + - - - + + + - + - - - - + + + + - - + + - + - - + + - + - + - - + + - + - + - + - + - - + + - - - - + + + + - + - + - - + + - + - - + + - + - + - + - + - - - + + + - - + + - - - + + + - - + +