From ea8156e23c22a1a47015e2ce5c08561d43964a0d Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Thu, 21 Jan 2021 15:48:07 +0100 Subject: [PATCH] PM Administration Speicherung Fehler Marvin --- .../DD_DMSLiteDataSet.Designer.vb | 11470 ++++++++-------- app/DD_PM_WINDREAM/DD_DMSLiteDataSet.vb | 3 + app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsc | 9 - app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd | 878 +- app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss | 102 +- app/DD_PM_WINDREAM/clsPatterns.vb | 3 + app/DD_PM_WINDREAM/frmAdministration.resx | 2360 +--- app/DD_PM_WINDREAM/frmAdministration.vb | 145 +- app/DD_PM_WINDREAM/frmMain.vb | 8 +- app/DD_PM_WINDREAM/frmValidator.vb | 4 +- 10 files changed, 7005 insertions(+), 7977 deletions(-) diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb index 24ab8a8..4233328 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.Designer.vb @@ -41,8 +41,6 @@ Partial Public Class DD_DMSLiteDataSet Private tableTBPM_PROFILE_FILES As TBPM_PROFILE_FILESDataTable - Private tableTBPM_PROFILE As TBPM_PROFILEDataTable - Private tableTBWH_CHECK_PROFILE_CONTROLS As TBWH_CHECK_PROFILE_CONTROLSDataTable Private tableTBPM_PROFILE_CONTROLS As TBPM_PROFILE_CONTROLSDataTable @@ -65,18 +63,18 @@ Partial Public Class DD_DMSLiteDataSet Private tableVWPM_CHART_TOP5 As VWPM_CHART_TOP5DataTable - Private tableTBWH_CONNECTION As TBWH_CONNECTIONDataTable - - Private relationFK_TBPM_ERROR_LOG_PROFILE1 As Global.System.Data.DataRelation - - Private relationFK_TBPM_PROFILE_TYPE1 As Global.System.Data.DataRelation + Private tableTBPM_PROFILE As TBPM_PROFILEDataTable - Private relationFK_TBPM_PROFILE_CONTROLS_PROFILE1 As Global.System.Data.DataRelation + Private tableTBWH_CONNECTION As TBWH_CONNECTIONDataTable Private relationFK_TBPM_CONTROL_TABLE_CONTROL1 As Global.System.Data.DataRelation Private relationFK_TBPM_CONTROL_TABLE_CONTROL As Global.System.Data.DataRelation + Private relationFK_TBPM_PROFILE_CONTROLS_PROFILE As Global.System.Data.DataRelation + + Private relationFK_TBPM_PROFILE_TYPE As Global.System.Data.DataRelation + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ - Public ReadOnly Property TBPM_PROFILE() As TBPM_PROFILEDataTable - Get - Return Me.tableTBPM_PROFILE - End Get - End Property - _ + Public ReadOnly Property TBPM_PROFILE() As TBPM_PROFILEDataTable + Get + Return Me.tableTBPM_PROFILE + End Get + End Property + _ - Private Function ShouldSerializeTBPM_PROFILE() As Boolean - Return false - End Function - _ Private Function ShouldSerializeTBWH_CHECK_PROFILE_CONTROLS() As Boolean @@ -873,6 +862,12 @@ Partial Public Class DD_DMSLiteDataSet Return false End Function + _ + Private Function ShouldSerializeTBPM_PROFILE() As Boolean + Return false + End Function + _ Private Function ShouldSerializeTBWH_CONNECTION() As Boolean @@ -961,9 +956,6 @@ Partial Public Class DD_DMSLiteDataSet _ Public Delegate Sub TBPM_PROFILE_FILESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_PROFILE_FILESRowChangeEvent) - _ - Public Delegate Sub TBPM_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_PROFILERowChangeEvent) - _ Public Delegate Sub TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent) @@ -997,6 +989,9 @@ Partial Public Class DD_DMSLiteDataSet _ Public Delegate Sub VWPM_CHART_TOP5RowChangeEventHandler(ByVal sender As Object, ByVal e As VWPM_CHART_TOP5RowChangeEvent) + _ + Public Delegate Sub TBPM_PROFILERowChangeEventHandler(ByVal sender As Object, ByVal e As TBPM_PROFILERowChangeEvent) + _ Public Delegate Sub TBWH_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_CONNECTIONRowChangeEvent) @@ -2845,12 +2840,9 @@ Partial Public Class DD_DMSLiteDataSet _ - Public Overloads Function AddTBPM_ERROR_LOGRow(ByVal parentTBPM_PROFILERowByFK_TBPM_ERROR_LOG_PROFILE1 As TBPM_PROFILERow, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBPM_ERROR_LOGRow + Public Overloads Function AddTBPM_ERROR_LOGRow(ByVal PROFIL_ID As Integer, ByVal ERROR_MSG As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date) As TBPM_ERROR_LOGRow Dim rowTBPM_ERROR_LOGRow As TBPM_ERROR_LOGRow = CType(Me.NewRow,TBPM_ERROR_LOGRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, ERROR_MSG, ADDED_WHO, ADDED_WHEN} - If (Not (parentTBPM_PROFILERowByFK_TBPM_ERROR_LOG_PROFILE1) Is Nothing) Then - columnValuesArray(1) = parentTBPM_PROFILERowByFK_TBPM_ERROR_LOG_PROFILE1(0) - End If + Dim columnValuesArray() As Object = New Object() {Nothing, PROFIL_ID, ERROR_MSG, ADDED_WHO, ADDED_WHEN} rowTBPM_ERROR_LOGRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPM_ERROR_LOGRow) Return rowTBPM_ERROR_LOGRow @@ -4133,66 +4125,32 @@ Partial Public Class DD_DMSLiteDataSet ''' _ - Partial Public Class TBPM_PROFILEDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPM_PROFILERow) + Partial Public Class TBWH_CHECK_PROFILE_CONTROLSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_CHECK_PROFILE_CONTROLSRow) Private columnGUID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn - Private columnTITLE As Global.System.Data.DataColumn - - Private columnPRIORITY As Global.System.Data.DataColumn - - Private columnDESCRIPTION As Global.System.Data.DataColumn - - Private columnACTIVE As Global.System.Data.DataColumn - - Private columnWD_SEARCH As Global.System.Data.DataColumn - - Private columnNO_OF_DOCUMENTS 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 columnFINAL_PROFILE As Global.System.Data.DataColumn - - Private columnFINAL_TEXT As Global.System.Data.DataColumn - - Private columnMOVE2FOLDER As Global.System.Data.DataColumn - - Private columnTYPE As Global.System.Data.DataColumn - - Private columnWD_OBJECTTYPE As Global.System.Data.DataColumn - - Private columnSORT_BY_LATEST As Global.System.Data.DataColumn - - Private columnPM_VEKTOR_INDEX As Global.System.Data.DataColumn - - Private columnLOG_INDEX As Global.System.Data.DataColumn + Private columnCTRL_TYPE As Global.System.Data.DataColumn - Private columnSQL_VIEW As Global.System.Data.DataColumn + Private columnINDEX_NAME As Global.System.Data.DataColumn - Private columnANNOTATE_ALL_WORK_HISTORY_ENTRIES As Global.System.Data.DataColumn + Private columnTYP As Global.System.Data.DataColumn - Private columnANNOTATE_WORK_HISTORY_ENTRY As Global.System.Data.DataColumn + Private columnVALIDATION As Global.System.Data.DataColumn - Private columnWORK_HISTORY_ENTRY As Global.System.Data.DataColumn + Private columnCHOICE_LIST As Global.System.Data.DataColumn - Private columnDISPLAY_MODE As Global.System.Data.DataColumn + Private columnCONNECTION_ID As Global.System.Data.DataColumn - Private columnSQL_BTN_FINISH As Global.System.Data.DataColumn + Private columnSQL_UEBERPRUEFUNG As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBPM_PROFILE" + Me.TableName = "TBWH_CHECK_PROFILE_CONTROLS" Me.BeginInit Me.InitClass Me.EndInit @@ -4241,644 +4199,511 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CTRL_TYPEColumn() As Global.System.Data.DataColumn Get - Return Me.columnTITLE + Return Me.columnCTRL_TYPE End Get End Property _ - Public ReadOnly Property PRIORITYColumn() As Global.System.Data.DataColumn + Public ReadOnly Property INDEX_NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnPRIORITY + Return Me.columnINDEX_NAME End Get End Property _ - Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn + Public ReadOnly Property TYPColumn() As Global.System.Data.DataColumn Get - Return Me.columnDESCRIPTION + Return Me.columnTYP End Get End Property _ - Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property VALIDATIONColumn() As Global.System.Data.DataColumn Get - Return Me.columnACTIVE + Return Me.columnVALIDATION End Get End Property _ - Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHOICE_LISTColumn() As Global.System.Data.DataColumn Get - Return Me.columnWD_SEARCH + Return Me.columnCHOICE_LIST End Get End Property _ - Public ReadOnly Property NO_OF_DOCUMENTSColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnNO_OF_DOCUMENTS + Return Me.columnCONNECTION_ID End Get End Property _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SQL_UEBERPRUEFUNGColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHO + Return Me.columnSQL_UEBERPRUEFUNG End Get End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer Get - Return Me.columnADDED_WHEN + Return Me.Rows.Count End Get End Property _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_CHECK_PROFILE_CONTROLSRow Get - Return Me.columnCHANGED_WHO + Return CType(Me.Rows(index),TBWH_CHECK_PROFILE_CONTROLSRow) End Get End Property - _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHEN - End Get - End Property + _ + Public Event TBWH_CHECK_PROFILE_CONTROLSRowChanging As TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler - _ - Public ReadOnly Property FINAL_PROFILEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFINAL_PROFILE - End Get - End Property + _ + Public Event TBWH_CHECK_PROFILE_CONTROLSRowChanged As TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler + + _ + Public Event TBWH_CHECK_PROFILE_CONTROLSRowDeleting As TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler + + _ + Public Event TBWH_CHECK_PROFILE_CONTROLSRowDeleted As TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler _ - Public ReadOnly Property FINAL_TEXTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFINAL_TEXT - End Get - End Property + Public Overloads Sub AddTBWH_CHECK_PROFILE_CONTROLSRow(ByVal row As TBWH_CHECK_PROFILE_CONTROLSRow) + Me.Rows.Add(row) + End Sub _ - Public ReadOnly Property MOVE2FOLDERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnMOVE2FOLDER - End Get - End Property + Public Overloads Function AddTBWH_CHECK_PROFILE_CONTROLSRow(ByVal NAME As String, ByVal CTRL_TYPE As String, ByVal INDEX_NAME As String, ByVal TYP As String, ByVal VALIDATION As Boolean, ByVal CHOICE_LIST As String, ByVal CONNECTION_ID As Short, ByVal SQL_UEBERPRUEFUNG As String) As TBWH_CHECK_PROFILE_CONTROLSRow + Dim rowTBWH_CHECK_PROFILE_CONTROLSRow As TBWH_CHECK_PROFILE_CONTROLSRow = CType(Me.NewRow,TBWH_CHECK_PROFILE_CONTROLSRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, CTRL_TYPE, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG} + rowTBWH_CHECK_PROFILE_CONTROLSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_CHECK_PROFILE_CONTROLSRow) + Return rowTBWH_CHECK_PROFILE_CONTROLSRow + End Function _ - Public ReadOnly Property TYPEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTYPE - End Get - End Property + Public Function FindByGUID(ByVal GUID As Integer) As TBWH_CHECK_PROFILE_CONTROLSRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_CHECK_PROFILE_CONTROLSRow) + End Function _ - Public ReadOnly Property WD_OBJECTTYPEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWD_OBJECTTYPE - End Get - End Property + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_CHECK_PROFILE_CONTROLSDataTable = CType(MyBase.Clone,TBWH_CHECK_PROFILE_CONTROLSDataTable) + cln.InitVars + Return cln + End Function _ - Public ReadOnly Property SORT_BY_LATESTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSORT_BY_LATEST - End Get - End Property + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_CHECK_PROFILE_CONTROLSDataTable() + End Function _ - Public ReadOnly Property PM_VEKTOR_INDEXColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPM_VEKTOR_INDEX - End Get - End Property + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnCTRL_TYPE = MyBase.Columns("CTRL_TYPE") + Me.columnINDEX_NAME = MyBase.Columns("INDEX_NAME") + Me.columnTYP = MyBase.Columns("TYP") + Me.columnVALIDATION = MyBase.Columns("VALIDATION") + Me.columnCHOICE_LIST = MyBase.Columns("CHOICE_LIST") + Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") + Me.columnSQL_UEBERPRUEFUNG = MyBase.Columns("SQL_UEBERPRUEFUNG") + End Sub _ - Public ReadOnly Property LOG_INDEXColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLOG_INDEX - End Get - End Property + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnCTRL_TYPE = New Global.System.Data.DataColumn("CTRL_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRL_TYPE) + Me.columnINDEX_NAME = New Global.System.Data.DataColumn("INDEX_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnINDEX_NAME) + Me.columnTYP = New Global.System.Data.DataColumn("TYP", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTYP) + Me.columnVALIDATION = New Global.System.Data.DataColumn("VALIDATION", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVALIDATION) + Me.columnCHOICE_LIST = New Global.System.Data.DataColumn("CHOICE_LIST", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHOICE_LIST) + Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONNECTION_ID) + Me.columnSQL_UEBERPRUEFUNG = New Global.System.Data.DataColumn("SQL_UEBERPRUEFUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_UEBERPRUEFUNG) + 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.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 100 + Me.columnCTRL_TYPE.AllowDBNull = false + Me.columnCTRL_TYPE.MaxLength = 10 + Me.columnINDEX_NAME.MaxLength = 100 + Me.columnTYP.MaxLength = 50 + Me.columnVALIDATION.AllowDBNull = false + Me.columnCHOICE_LIST.MaxLength = 50 + Me.columnSQL_UEBERPRUEFUNG.MaxLength = 2000 + End Sub _ - Public ReadOnly Property SQL_VIEWColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSQL_VIEW - End Get - End Property + Public Function NewTBWH_CHECK_PROFILE_CONTROLSRow() As TBWH_CHECK_PROFILE_CONTROLSRow + Return CType(Me.NewRow,TBWH_CHECK_PROFILE_CONTROLSRow) + End Function _ - Public ReadOnly Property ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn() As Global.System.Data.DataColumn - Get - Return Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES - End Get - End Property + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_CHECK_PROFILE_CONTROLSRow(builder) + End Function _ - Public ReadOnly Property ANNOTATE_WORK_HISTORY_ENTRYColumn() As Global.System.Data.DataColumn - Get - Return Me.columnANNOTATE_WORK_HISTORY_ENTRY - End Get - End Property + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_CHECK_PROFILE_CONTROLSRow) + End Function _ - Public ReadOnly Property WORK_HISTORY_ENTRYColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWORK_HISTORY_ENTRY - End Get - End Property + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_CHECK_PROFILE_CONTROLSRowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_CHECK_PROFILE_CONTROLSRowChanged(Me, New TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent(CType(e.Row,TBWH_CHECK_PROFILE_CONTROLSRow), e.Action)) + End If + End Sub _ - Public ReadOnly Property DISPLAY_MODEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnDISPLAY_MODE - End Get - End Property + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_CHECK_PROFILE_CONTROLSRowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_CHECK_PROFILE_CONTROLSRowChanging(Me, New TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent(CType(e.Row,TBWH_CHECK_PROFILE_CONTROLSRow), e.Action)) + End If + End Sub _ - Public ReadOnly Property SQL_BTN_FINISHColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSQL_BTN_FINISH - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_CHECK_PROFILE_CONTROLSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_CHECK_PROFILE_CONTROLSRowDeleted(Me, New TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent(CType(e.Row,TBWH_CHECK_PROFILE_CONTROLSRow), e.Action)) + End If + End Sub _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_PROFILERow - Get - Return CType(Me.Rows(index),TBPM_PROFILERow) - End Get - End Property - - _ - Public Event TBPM_PROFILERowChanging As TBPM_PROFILERowChangeEventHandler - - _ - Public Event TBPM_PROFILERowChanged As TBPM_PROFILERowChangeEventHandler - - _ - Public Event TBPM_PROFILERowDeleting As TBPM_PROFILERowChangeEventHandler - - _ - Public Event TBPM_PROFILERowDeleted As TBPM_PROFILERowChangeEventHandler + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_CHECK_PROFILE_CONTROLSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_CHECK_PROFILE_CONTROLSRowDeleting(Me, New TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent(CType(e.Row,TBWH_CHECK_PROFILE_CONTROLSRow), e.Action)) + End If + End Sub _ - Public Overloads Sub AddTBPM_PROFILERow(ByVal row As TBPM_PROFILERow) - Me.Rows.Add(row) + Public Sub RemoveTBWH_CHECK_PROFILE_CONTROLSRow(ByVal row As TBWH_CHECK_PROFILE_CONTROLSRow) + Me.Rows.Remove(row) End Sub _ - Public Overloads Function AddTBPM_PROFILERow( _ - ByVal NAME As String, _ - ByVal TITLE As String, _ - ByVal PRIORITY As Integer, _ - ByVal DESCRIPTION As String, _ - ByVal ACTIVE As Boolean, _ - ByVal WD_SEARCH As String, _ - ByVal NO_OF_DOCUMENTS As Integer, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Date, _ - ByVal FINAL_PROFILE As Boolean, _ - ByVal FINAL_TEXT As String, _ - ByVal MOVE2FOLDER As String, _ - ByVal parentTBPM_TYPERowByFK_TBPM_PROFILE_TYPE1 As TBPM_TYPERow, _ - ByVal WD_OBJECTTYPE As String, _ - ByVal SORT_BY_LATEST As Boolean, _ - ByVal PM_VEKTOR_INDEX As String, _ - ByVal LOG_INDEX As String, _ - ByVal SQL_VIEW As String, _ - ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _ - ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ - ByVal WORK_HISTORY_ENTRY As String, _ - ByVal DISPLAY_MODE As String, _ - ByVal SQL_BTN_FINISH As String) As TBPM_PROFILERow - Dim rowTBPM_PROFILERow As TBPM_PROFILERow = CType(Me.NewRow,TBPM_PROFILERow) - Dim columnValuesArray() As Object = New Object() {Nothing, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, Nothing, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH} - If (Not (parentTBPM_TYPERowByFK_TBPM_PROFILE_TYPE1) Is Nothing) Then - columnValuesArray(15) = parentTBPM_TYPERowByFK_TBPM_PROFILE_TYPE1(0) + 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() + Dim ds As DD_DMSLiteDataSet = New DD_DMSLiteDataSet() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_CHECK_PROFILE_CONTROLSDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + 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 + 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) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + 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 + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try End If - rowTBPM_PROFILERow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPM_PROFILERow) - Return rowTBPM_PROFILERow + xs.Add(dsSchema) + Return type End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBPM_PROFILE_CONTROLSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPM_PROFILE_CONTROLSRow) - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPM_PROFILERow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_PROFILERow) - End Function + Private columnGUID As Global.System.Data.DataColumn - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPM_PROFILEDataTable = CType(MyBase.Clone,TBPM_PROFILEDataTable) - cln.InitVars - Return cln - End Function + Private columnPROFIL_ID As Global.System.Data.DataColumn - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPM_PROFILEDataTable() - End Function + Private columnNAME As Global.System.Data.DataColumn - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnNAME = MyBase.Columns("NAME") - Me.columnTITLE = MyBase.Columns("TITLE") - Me.columnPRIORITY = MyBase.Columns("PRIORITY") - Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") - Me.columnACTIVE = MyBase.Columns("ACTIVE") - Me.columnWD_SEARCH = MyBase.Columns("WD_SEARCH") - Me.columnNO_OF_DOCUMENTS = MyBase.Columns("NO_OF_DOCUMENTS") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnFINAL_PROFILE = MyBase.Columns("FINAL_PROFILE") - Me.columnFINAL_TEXT = MyBase.Columns("FINAL_TEXT") - Me.columnMOVE2FOLDER = MyBase.Columns("MOVE2FOLDER") - Me.columnTYPE = MyBase.Columns("TYPE") - Me.columnWD_OBJECTTYPE = MyBase.Columns("WD_OBJECTTYPE") - Me.columnSORT_BY_LATEST = MyBase.Columns("SORT_BY_LATEST") - Me.columnPM_VEKTOR_INDEX = MyBase.Columns("PM_VEKTOR_INDEX") - Me.columnLOG_INDEX = MyBase.Columns("LOG_INDEX") - Me.columnSQL_VIEW = MyBase.Columns("SQL_VIEW") - Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES = MyBase.Columns("ANNOTATE_ALL_WORK_HISTORY_ENTRIES") - Me.columnANNOTATE_WORK_HISTORY_ENTRY = MyBase.Columns("ANNOTATE_WORK_HISTORY_ENTRY") - Me.columnWORK_HISTORY_ENTRY = MyBase.Columns("WORK_HISTORY_ENTRY") - Me.columnDISPLAY_MODE = MyBase.Columns("DISPLAY_MODE") - Me.columnSQL_BTN_FINISH = MyBase.Columns("SQL_BTN_FINISH") - End Sub + Private columnCTRL_TYPE As Global.System.Data.DataColumn - _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNAME) - Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTITLE) - Me.columnPRIORITY = New Global.System.Data.DataColumn("PRIORITY", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPRIORITY) - Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnDESCRIPTION) - Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnACTIVE) - Me.columnWD_SEARCH = New Global.System.Data.DataColumn("WD_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWD_SEARCH) - Me.columnNO_OF_DOCUMENTS = New Global.System.Data.DataColumn("NO_OF_DOCUMENTS", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNO_OF_DOCUMENTS) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - 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.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - 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.columnFINAL_PROFILE = New Global.System.Data.DataColumn("FINAL_PROFILE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFINAL_PROFILE) - Me.columnFINAL_TEXT = New Global.System.Data.DataColumn("FINAL_TEXT", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFINAL_TEXT) - Me.columnMOVE2FOLDER = New Global.System.Data.DataColumn("MOVE2FOLDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnMOVE2FOLDER) - Me.columnTYPE = New Global.System.Data.DataColumn("TYPE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTYPE) - Me.columnWD_OBJECTTYPE = New Global.System.Data.DataColumn("WD_OBJECTTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWD_OBJECTTYPE) - Me.columnSORT_BY_LATEST = New Global.System.Data.DataColumn("SORT_BY_LATEST", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSORT_BY_LATEST) - Me.columnPM_VEKTOR_INDEX = New Global.System.Data.DataColumn("PM_VEKTOR_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPM_VEKTOR_INDEX) - Me.columnLOG_INDEX = New Global.System.Data.DataColumn("LOG_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnLOG_INDEX) - Me.columnSQL_VIEW = New Global.System.Data.DataColumn("SQL_VIEW", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSQL_VIEW) - Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES = New Global.System.Data.DataColumn("ANNOTATE_ALL_WORK_HISTORY_ENTRIES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES) - Me.columnANNOTATE_WORK_HISTORY_ENTRY = New Global.System.Data.DataColumn("ANNOTATE_WORK_HISTORY_ENTRY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnANNOTATE_WORK_HISTORY_ENTRY) - Me.columnWORK_HISTORY_ENTRY = New Global.System.Data.DataColumn("WORK_HISTORY_ENTRY", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWORK_HISTORY_ENTRY) - Me.columnDISPLAY_MODE = New Global.System.Data.DataColumn("DISPLAY_MODE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnDISPLAY_MODE) - Me.columnSQL_BTN_FINISH = New Global.System.Data.DataColumn("SQL_BTN_FINISH", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSQL_BTN_FINISH) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint2", New Global.System.Data.DataColumn() {Me.columnNAME}, false)) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint3", New Global.System.Data.DataColumn() {Me.columnTITLE}, false)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = 1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnNAME.AllowDBNull = false - Me.columnNAME.Unique = true - Me.columnNAME.MaxLength = 100 - Me.columnTITLE.AllowDBNull = false - Me.columnTITLE.Unique = true - Me.columnTITLE.MaxLength = 150 - Me.columnPRIORITY.AllowDBNull = false - Me.columnPRIORITY.DefaultValue = CType(1,Integer) - Me.columnDESCRIPTION.MaxLength = 250 - Me.columnACTIVE.AllowDBNull = false - Me.columnACTIVE.DefaultValue = CType(false,Boolean) - Me.columnWD_SEARCH.AllowDBNull = false - Me.columnWD_SEARCH.DefaultValue = CType("",String) - Me.columnWD_SEARCH.MaxLength = 500 - Me.columnNO_OF_DOCUMENTS.AllowDBNull = false - Me.columnNO_OF_DOCUMENTS.DefaultValue = CType(0,Integer) - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 30 - Me.columnCHANGED_WHO.MaxLength = 30 - Me.columnFINAL_PROFILE.AllowDBNull = false - Me.columnFINAL_PROFILE.DefaultValue = CType(false,Boolean) - Me.columnFINAL_TEXT.MaxLength = 250 - Me.columnMOVE2FOLDER.MaxLength = 1000 - Me.columnTYPE.AllowDBNull = false - Me.columnTYPE.DefaultValue = CType(1,Short) - Me.columnWD_OBJECTTYPE.AllowDBNull = false - Me.columnWD_OBJECTTYPE.DefaultValue = CType("",String) - Me.columnWD_OBJECTTYPE.MaxLength = 200 - Me.columnSORT_BY_LATEST.AllowDBNull = false - Me.columnSORT_BY_LATEST.DefaultValue = CType(true,Boolean) - Me.columnPM_VEKTOR_INDEX.AllowDBNull = false - Me.columnPM_VEKTOR_INDEX.DefaultValue = CType("",String) - Me.columnPM_VEKTOR_INDEX.MaxLength = 50 - Me.columnLOG_INDEX.AllowDBNull = false - Me.columnLOG_INDEX.DefaultValue = CType("",String) - Me.columnLOG_INDEX.MaxLength = 50 - Me.columnSQL_VIEW.AllowDBNull = false - Me.columnSQL_VIEW.DefaultValue = CType("select 'NONE'",String) - Me.columnSQL_VIEW.MaxLength = 2147483647 - Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES.AllowDBNull = false - Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES.DefaultValue = CType(false,Boolean) - Me.columnANNOTATE_WORK_HISTORY_ENTRY.AllowDBNull = false - Me.columnANNOTATE_WORK_HISTORY_ENTRY.DefaultValue = CType(false,Boolean) - Me.columnWORK_HISTORY_ENTRY.MaxLength = 500 - Me.columnDISPLAY_MODE.AllowDBNull = false - Me.columnDISPLAY_MODE.DefaultValue = CType("Overview and Detail",String) - Me.columnDISPLAY_MODE.MaxLength = 20 - Me.columnSQL_BTN_FINISH.AllowDBNull = false - Me.columnSQL_BTN_FINISH.DefaultValue = CType("",String) - Me.columnSQL_BTN_FINISH.MaxLength = 2147483647 - End Sub + Private columnCTRL_TEXT As Global.System.Data.DataColumn - _ - Public Function NewTBPM_PROFILERow() As TBPM_PROFILERow - Return CType(Me.NewRow,TBPM_PROFILERow) - End Function + Private columnX_LOC As Global.System.Data.DataColumn - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPM_PROFILERow(builder) - End Function + Private columnY_LOC As Global.System.Data.DataColumn - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPM_PROFILERow) - End Function + 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 columnINDEX_NAME As Global.System.Data.DataColumn + + Private columnTYP As Global.System.Data.DataColumn + + Private columnVALIDATION As Global.System.Data.DataColumn + + Private columnCHOICE_LIST As Global.System.Data.DataColumn + + Private columnCONNECTION_ID As Global.System.Data.DataColumn + + Private columnSQL_UEBERPRUEFUNG As Global.System.Data.DataColumn + + Private columnHEIGHT As Global.System.Data.DataColumn + + Private columnWIDTH As Global.System.Data.DataColumn + + Private columnFONT_STYLE As Global.System.Data.DataColumn + + Private columnFONT_SIZE As Global.System.Data.DataColumn + + Private columnFONT_FAMILY As Global.System.Data.DataColumn + + Private columnFONT_COLOR As Global.System.Data.DataColumn + + Private columnREAD_ONLY As Global.System.Data.DataColumn + + Private columnLOAD_IDX_VALUE As Global.System.Data.DataColumn + + Private columnDEFAULT_VALUE As Global.System.Data.DataColumn + + Private columnMULTISELECT As Global.System.Data.DataColumn + + Private columnVKT_ADD_ITEM As Global.System.Data.DataColumn + + Private columnVKT_PREVENT_MULTIPLE_VALUES As Global.System.Data.DataColumn + + Private columnREGEX_MATCH As Global.System.Data.DataColumn + + Private columnREGEX_MESSAGE_DE As Global.System.Data.DataColumn + + Private columnREGEX_MESSAGE_EN As Global.System.Data.DataColumn + + Private columnIMAGE_CONTROL As Global.System.Data.DataColumn + + Private columnSQL2 As Global.System.Data.DataColumn + + Private columnSQL_ENABLE As Global.System.Data.DataColumn + + Private columnSET_CONTROL_DATA As Global.System.Data.DataColumn + + Private columnSQL_ENABLE_ON_LOAD As Global.System.Data.DataColumn + + Private columnSQL_ENABLE_ON_LOAD_CONID As Global.System.Data.DataColumn + + Private columnCONTROL_ACTIVE As Global.System.Data.DataColumn _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBPM_PROFILERowChangedEvent) Is Nothing) Then - RaiseEvent TBPM_PROFILERowChanged(Me, New TBPM_PROFILERowChangeEvent(CType(e.Row,TBPM_PROFILERow), e.Action)) - End If + Public Sub New() + MyBase.New + Me.TableName = "TBPM_PROFILE_CONTROLS" + Me.BeginInit + Me.InitClass + Me.EndInit End Sub _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBPM_PROFILERowChangingEvent) Is Nothing) Then - RaiseEvent TBPM_PROFILERowChanging(Me, New TBPM_PROFILERowChangeEvent(CType(e.Row,TBPM_PROFILERow), e.Action)) + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity End Sub _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBPM_PROFILERowDeletedEvent) Is Nothing) Then - RaiseEvent TBPM_PROFILERowDeleted(Me, New TBPM_PROFILERowChangeEvent(CType(e.Row,TBPM_PROFILERow), e.Action)) - End If + 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 End Sub _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBPM_PROFILERowDeletingEvent) Is Nothing) Then - RaiseEvent TBPM_PROFILERowDeleting(Me, New TBPM_PROFILERowChangeEvent(CType(e.Row,TBPM_PROFILERow), e.Action)) - End If - End Sub + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGUID + End Get + End Property _ - Public Sub RemoveTBPM_PROFILERow(ByVal row As TBPM_PROFILERow) - Me.Rows.Remove(row) - End Sub + Public ReadOnly Property PROFIL_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPROFIL_ID + End Get + End Property _ - 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() - Dim ds As DD_DMSLiteDataSet = New DD_DMSLiteDataSet() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPM_PROFILEDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - 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 - 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) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - 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 - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBWH_CHECK_PROFILE_CONTROLSDataTable - Inherits Global.System.Data.TypedTableBase(Of TBWH_CHECK_PROFILE_CONTROLSRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnNAME As Global.System.Data.DataColumn - - Private columnCTRL_TYPE As Global.System.Data.DataColumn - - Private columnINDEX_NAME As Global.System.Data.DataColumn - - Private columnTYP As Global.System.Data.DataColumn - - Private columnVALIDATION As Global.System.Data.DataColumn - - Private columnCHOICE_LIST As Global.System.Data.DataColumn + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property - Private columnCONNECTION_ID As Global.System.Data.DataColumn + _ + Public ReadOnly Property CTRL_TYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRL_TYPE + End Get + End Property - Private columnSQL_UEBERPRUEFUNG As Global.System.Data.DataColumn + _ + Public ReadOnly Property CTRL_TEXTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCTRL_TEXT + End Get + End Property _ - Public Sub New() - MyBase.New - Me.TableName = "TBWH_CHECK_PROFILE_CONTROLS" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub + Public ReadOnly Property X_LOCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnX_LOC + End Get + End Property _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - Me.Prefix = table.Prefix - Me.MinimumCapacity = table.MinimumCapacity - End Sub + Public ReadOnly Property Y_LOCColumn() As Global.System.Data.DataColumn + Get + Return Me.columnY_LOC + End Get + End Property _ - 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 - End Sub + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnGUID + Return Me.columnADDED_WHEN End Get End Property _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnNAME + Return Me.columnCHANGED_WHO End Get End Property _ - Public ReadOnly Property CTRL_TYPEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnCTRL_TYPE + Return Me.columnCHANGED_WHEN End Get End Property @@ -4931,680 +4756,802 @@ Partial Public Class DD_DMSLiteDataSet End Property _ - Public ReadOnly Property Count() As Integer + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property HEIGHTColumn() As Global.System.Data.DataColumn Get - Return Me.Rows.Count + Return Me.columnHEIGHT End Get End Property _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_CHECK_PROFILE_CONTROLSRow + Public ReadOnly Property WIDTHColumn() As Global.System.Data.DataColumn Get - Return CType(Me.Rows(index),TBWH_CHECK_PROFILE_CONTROLSRow) + Return Me.columnWIDTH End Get End Property - _ - Public Event TBWH_CHECK_PROFILE_CONTROLSRowChanging As TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler - - _ - Public Event TBWH_CHECK_PROFILE_CONTROLSRowChanged As TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler - - _ - Public Event TBWH_CHECK_PROFILE_CONTROLSRowDeleting As TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler + _ + Public ReadOnly Property FONT_STYLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFONT_STYLE + End Get + End Property - _ - Public Event TBWH_CHECK_PROFILE_CONTROLSRowDeleted As TBWH_CHECK_PROFILE_CONTROLSRowChangeEventHandler + _ + Public ReadOnly Property FONT_SIZEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFONT_SIZE + End Get + End Property _ - Public Overloads Sub AddTBWH_CHECK_PROFILE_CONTROLSRow(ByVal row As TBWH_CHECK_PROFILE_CONTROLSRow) - Me.Rows.Add(row) - End Sub + Public ReadOnly Property FONT_FAMILYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFONT_FAMILY + End Get + End Property _ - Public Overloads Function AddTBWH_CHECK_PROFILE_CONTROLSRow(ByVal NAME As String, ByVal CTRL_TYPE As String, ByVal INDEX_NAME As String, ByVal TYP As String, ByVal VALIDATION As Boolean, ByVal CHOICE_LIST As String, ByVal CONNECTION_ID As Short, ByVal SQL_UEBERPRUEFUNG As String) As TBWH_CHECK_PROFILE_CONTROLSRow - Dim rowTBWH_CHECK_PROFILE_CONTROLSRow As TBWH_CHECK_PROFILE_CONTROLSRow = CType(Me.NewRow,TBWH_CHECK_PROFILE_CONTROLSRow) - Dim columnValuesArray() As Object = New Object() {Nothing, NAME, CTRL_TYPE, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG} - rowTBWH_CHECK_PROFILE_CONTROLSRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBWH_CHECK_PROFILE_CONTROLSRow) - Return rowTBWH_CHECK_PROFILE_CONTROLSRow - End Function + Public ReadOnly Property FONT_COLORColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFONT_COLOR + End Get + End Property _ - Public Function FindByGUID(ByVal GUID As Integer) As TBWH_CHECK_PROFILE_CONTROLSRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_CHECK_PROFILE_CONTROLSRow) - End Function + Public ReadOnly Property READ_ONLYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREAD_ONLY + End Get + End Property _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBWH_CHECK_PROFILE_CONTROLSDataTable = CType(MyBase.Clone,TBWH_CHECK_PROFILE_CONTROLSDataTable) - cln.InitVars - Return cln - End Function + Public ReadOnly Property LOAD_IDX_VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOAD_IDX_VALUE + End Get + End Property _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBWH_CHECK_PROFILE_CONTROLSDataTable() - End Function + Public ReadOnly Property DEFAULT_VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDEFAULT_VALUE + End Get + End Property _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnNAME = MyBase.Columns("NAME") - Me.columnCTRL_TYPE = MyBase.Columns("CTRL_TYPE") - Me.columnINDEX_NAME = MyBase.Columns("INDEX_NAME") - Me.columnTYP = MyBase.Columns("TYP") - Me.columnVALIDATION = MyBase.Columns("VALIDATION") - Me.columnCHOICE_LIST = MyBase.Columns("CHOICE_LIST") - Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") - Me.columnSQL_UEBERPRUEFUNG = MyBase.Columns("SQL_UEBERPRUEFUNG") - End Sub + Public ReadOnly Property MULTISELECTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMULTISELECT + End Get + End Property _ - Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNAME) - Me.columnCTRL_TYPE = New Global.System.Data.DataColumn("CTRL_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCTRL_TYPE) - Me.columnINDEX_NAME = New Global.System.Data.DataColumn("INDEX_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnINDEX_NAME) - Me.columnTYP = New Global.System.Data.DataColumn("TYP", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTYP) - Me.columnVALIDATION = New Global.System.Data.DataColumn("VALIDATION", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnVALIDATION) - Me.columnCHOICE_LIST = New Global.System.Data.DataColumn("CHOICE_LIST", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCHOICE_LIST) - Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCONNECTION_ID) - Me.columnSQL_UEBERPRUEFUNG = New Global.System.Data.DataColumn("SQL_UEBERPRUEFUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSQL_UEBERPRUEFUNG) - 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.columnNAME.AllowDBNull = false - Me.columnNAME.MaxLength = 100 - Me.columnCTRL_TYPE.AllowDBNull = false - Me.columnCTRL_TYPE.MaxLength = 10 - Me.columnINDEX_NAME.MaxLength = 100 - Me.columnTYP.MaxLength = 50 - Me.columnVALIDATION.AllowDBNull = false - Me.columnCHOICE_LIST.MaxLength = 50 - Me.columnSQL_UEBERPRUEFUNG.MaxLength = 2000 - End Sub + Public ReadOnly Property VKT_ADD_ITEMColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVKT_ADD_ITEM + End Get + End Property _ - Public Function NewTBWH_CHECK_PROFILE_CONTROLSRow() As TBWH_CHECK_PROFILE_CONTROLSRow - Return CType(Me.NewRow,TBWH_CHECK_PROFILE_CONTROLSRow) - End Function + Public ReadOnly Property VKT_PREVENT_MULTIPLE_VALUESColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVKT_PREVENT_MULTIPLE_VALUES + End Get + End Property _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBWH_CHECK_PROFILE_CONTROLSRow(builder) - End Function + Public ReadOnly Property REGEX_MATCHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREGEX_MATCH + End Get + End Property _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBWH_CHECK_PROFILE_CONTROLSRow) - End Function + Public ReadOnly Property REGEX_MESSAGE_DEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREGEX_MESSAGE_DE + End Get + End Property _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBWH_CHECK_PROFILE_CONTROLSRowChangedEvent) Is Nothing) Then - RaiseEvent TBWH_CHECK_PROFILE_CONTROLSRowChanged(Me, New TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent(CType(e.Row,TBWH_CHECK_PROFILE_CONTROLSRow), e.Action)) - End If - End Sub + Public ReadOnly Property REGEX_MESSAGE_ENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREGEX_MESSAGE_EN + End Get + End Property _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.TBWH_CHECK_PROFILE_CONTROLSRowChangingEvent) Is Nothing) Then - RaiseEvent TBWH_CHECK_PROFILE_CONTROLSRowChanging(Me, New TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent(CType(e.Row,TBWH_CHECK_PROFILE_CONTROLSRow), e.Action)) - End If - End Sub + Public ReadOnly Property IMAGE_CONTROLColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIMAGE_CONTROL + End Get + End Property _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.TBWH_CHECK_PROFILE_CONTROLSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBWH_CHECK_PROFILE_CONTROLSRowDeleted(Me, New TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent(CType(e.Row,TBWH_CHECK_PROFILE_CONTROLSRow), e.Action)) - End If - End Sub + Public ReadOnly Property SQL2Column() As Global.System.Data.DataColumn + Get + Return Me.columnSQL2 + End Get + End Property _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.TBWH_CHECK_PROFILE_CONTROLSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBWH_CHECK_PROFILE_CONTROLSRowDeleting(Me, New TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent(CType(e.Row,TBWH_CHECK_PROFILE_CONTROLSRow), e.Action)) - End If - End Sub + Public ReadOnly Property SQL_ENABLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_ENABLE + End Get + End Property _ - Public Sub RemoveTBWH_CHECK_PROFILE_CONTROLSRow(ByVal row As TBWH_CHECK_PROFILE_CONTROLSRow) - Me.Rows.Remove(row) - End Sub + Public ReadOnly Property SET_CONTROL_DATAColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSET_CONTROL_DATA + End Get + End Property _ - 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() - Dim ds As DD_DMSLiteDataSet = New DD_DMSLiteDataSet() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBWH_CHECK_PROFILE_CONTROLSDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - 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 - 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) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - 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 - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBPM_PROFILE_CONTROLSDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPM_PROFILE_CONTROLSRow) + Public ReadOnly Property SQL_ENABLE_ON_LOADColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_ENABLE_ON_LOAD + End Get + End Property - Private columnGUID As Global.System.Data.DataColumn + _ + Public ReadOnly Property SQL_ENABLE_ON_LOAD_CONIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_ENABLE_ON_LOAD_CONID + End Get + End Property - Private columnPROFIL_ID As Global.System.Data.DataColumn + _ + Public ReadOnly Property CONTROL_ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONTROL_ACTIVE + End Get + End Property - Private columnNAME As Global.System.Data.DataColumn + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property - Private columnCTRL_TYPE As Global.System.Data.DataColumn + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_PROFILE_CONTROLSRow + Get + Return CType(Me.Rows(index),TBPM_PROFILE_CONTROLSRow) + End Get + End Property - Private columnCTRL_TEXT As Global.System.Data.DataColumn + _ + Public Event TBPM_PROFILE_CONTROLSRowChanging As TBPM_PROFILE_CONTROLSRowChangeEventHandler - Private columnX_LOC As Global.System.Data.DataColumn + _ + Public Event TBPM_PROFILE_CONTROLSRowChanged As TBPM_PROFILE_CONTROLSRowChangeEventHandler - Private columnY_LOC As Global.System.Data.DataColumn + _ + Public Event TBPM_PROFILE_CONTROLSRowDeleting As TBPM_PROFILE_CONTROLSRowChangeEventHandler - 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 columnINDEX_NAME As Global.System.Data.DataColumn - - Private columnTYP As Global.System.Data.DataColumn - - Private columnVALIDATION As Global.System.Data.DataColumn - - Private columnCHOICE_LIST As Global.System.Data.DataColumn - - Private columnCONNECTION_ID As Global.System.Data.DataColumn - - Private columnSQL_UEBERPRUEFUNG As Global.System.Data.DataColumn - - Private columnHEIGHT As Global.System.Data.DataColumn - - Private columnWIDTH As Global.System.Data.DataColumn - - Private columnFONT_STYLE As Global.System.Data.DataColumn - - Private columnFONT_SIZE As Global.System.Data.DataColumn - - Private columnFONT_FAMILY As Global.System.Data.DataColumn - - Private columnFONT_COLOR As Global.System.Data.DataColumn - - Private columnREAD_ONLY As Global.System.Data.DataColumn - - Private columnLOAD_IDX_VALUE As Global.System.Data.DataColumn - - Private columnDEFAULT_VALUE As Global.System.Data.DataColumn - - Private columnMULTISELECT As Global.System.Data.DataColumn - - Private columnVKT_ADD_ITEM As Global.System.Data.DataColumn - - Private columnVKT_PREVENT_MULTIPLE_VALUES As Global.System.Data.DataColumn - - Private columnREGEX_MATCH As Global.System.Data.DataColumn - - Private columnREGEX_MESSAGE_DE As Global.System.Data.DataColumn - - Private columnREGEX_MESSAGE_EN As Global.System.Data.DataColumn - - Private columnIMAGE_CONTROL As Global.System.Data.DataColumn - - Private columnSQL2 As Global.System.Data.DataColumn - - Private columnSQL_ENABLE As Global.System.Data.DataColumn - - Private columnSET_CONTROL_DATA As Global.System.Data.DataColumn - - Private columnSQL_ENABLE_ON_LOAD As Global.System.Data.DataColumn - - Private columnSQL_ENABLE_ON_LOAD_CONID As Global.System.Data.DataColumn - - Private columnCONTROL_ACTIVE As Global.System.Data.DataColumn + _ + Public Event TBPM_PROFILE_CONTROLSRowDeleted As TBPM_PROFILE_CONTROLSRowChangeEventHandler _ - Public Sub New() - MyBase.New - Me.TableName = "TBPM_PROFILE_CONTROLS" - Me.BeginInit - Me.InitClass - Me.EndInit + Public Overloads Sub AddTBPM_PROFILE_CONTROLSRow(ByVal row As TBPM_PROFILE_CONTROLSRow) + Me.Rows.Add(row) End Sub _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace + Public Overloads Function AddTBPM_PROFILE_CONTROLSRow( _ + ByVal parentTBPM_PROFILERowByFK_TBPM_PROFILE_CONTROLS_PROFILE As TBPM_PROFILERow, _ + ByVal NAME As String, _ + ByVal CTRL_TYPE As String, _ + ByVal CTRL_TEXT As String, _ + ByVal X_LOC As Double, _ + ByVal Y_LOC As Double, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal INDEX_NAME As String, _ + ByVal TYP As String, _ + ByVal VALIDATION As Boolean, _ + ByVal CHOICE_LIST As String, _ + ByVal CONNECTION_ID As Short, _ + ByVal SQL_UEBERPRUEFUNG As String, _ + ByVal HEIGHT As Short, _ + ByVal WIDTH As Short, _ + ByVal FONT_STYLE As Short, _ + ByVal FONT_SIZE As Short, _ + ByVal FONT_FAMILY As String, _ + ByVal FONT_COLOR As Long, _ + ByVal READ_ONLY As Boolean, _ + ByVal LOAD_IDX_VALUE As Boolean, _ + ByVal DEFAULT_VALUE As String, _ + ByVal MULTISELECT As Boolean, _ + ByVal VKT_ADD_ITEM As Boolean, _ + ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, _ + ByVal REGEX_MATCH As String, _ + ByVal REGEX_MESSAGE_DE As String, _ + ByVal REGEX_MESSAGE_EN As String, _ + ByVal IMAGE_CONTROL() As Byte, _ + ByVal SQL2 As String, _ + ByVal SQL_ENABLE As String, _ + ByVal SET_CONTROL_DATA As String, _ + ByVal SQL_ENABLE_ON_LOAD As String, _ + ByVal SQL_ENABLE_ON_LOAD_CONID As Byte, _ + ByVal CONTROL_ACTIVE As Boolean) As TBPM_PROFILE_CONTROLSRow + Dim rowTBPM_PROFILE_CONTROLSRow As TBPM_PROFILE_CONTROLSRow = CType(Me.NewRow,TBPM_PROFILE_CONTROLSRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL2, SQL_ENABLE, SET_CONTROL_DATA, SQL_ENABLE_ON_LOAD, SQL_ENABLE_ON_LOAD_CONID, CONTROL_ACTIVE} + If (Not (parentTBPM_PROFILERowByFK_TBPM_PROFILE_CONTROLS_PROFILE) Is Nothing) Then + columnValuesArray(1) = parentTBPM_PROFILERowByFK_TBPM_PROFILE_CONTROLS_PROFILE(0) End If - 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 - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property PROFIL_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROFIL_ID - End Get - End Property - - _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnNAME - End Get - End Property - - _ - Public ReadOnly Property CTRL_TYPEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCTRL_TYPE - End Get - End Property - - _ - Public ReadOnly Property CTRL_TEXTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCTRL_TEXT - End Get - End Property - - _ - Public ReadOnly Property X_LOCColumn() As Global.System.Data.DataColumn - Get - Return Me.columnX_LOC - End Get - End Property + rowTBPM_PROFILE_CONTROLSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPM_PROFILE_CONTROLSRow) + Return rowTBPM_PROFILE_CONTROLSRow + End Function _ - Public ReadOnly Property Y_LOCColumn() As Global.System.Data.DataColumn - Get - Return Me.columnY_LOC - End Get - End Property + Public Function FindByGUID(ByVal GUID As Integer) As TBPM_PROFILE_CONTROLSRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_PROFILE_CONTROLSRow) + End Function _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHO - End Get - End Property + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPM_PROFILE_CONTROLSDataTable = CType(MyBase.Clone,TBPM_PROFILE_CONTROLSDataTable) + cln.InitVars + Return cln + End Function _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHEN - End Get - End Property + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPM_PROFILE_CONTROLSDataTable() + End Function _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHO - End Get - End Property + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnPROFIL_ID = MyBase.Columns("PROFIL_ID") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnCTRL_TYPE = MyBase.Columns("CTRL_TYPE") + Me.columnCTRL_TEXT = MyBase.Columns("CTRL_TEXT") + Me.columnX_LOC = MyBase.Columns("X_LOC") + Me.columnY_LOC = MyBase.Columns("Y_LOC") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnINDEX_NAME = MyBase.Columns("INDEX_NAME") + Me.columnTYP = MyBase.Columns("TYP") + Me.columnVALIDATION = MyBase.Columns("VALIDATION") + Me.columnCHOICE_LIST = MyBase.Columns("CHOICE_LIST") + Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") + Me.columnSQL_UEBERPRUEFUNG = MyBase.Columns("SQL_UEBERPRUEFUNG") + Me.columnHEIGHT = MyBase.Columns("HEIGHT") + Me.columnWIDTH = MyBase.Columns("WIDTH") + Me.columnFONT_STYLE = MyBase.Columns("FONT_STYLE") + Me.columnFONT_SIZE = MyBase.Columns("FONT_SIZE") + Me.columnFONT_FAMILY = MyBase.Columns("FONT_FAMILY") + Me.columnFONT_COLOR = MyBase.Columns("FONT_COLOR") + Me.columnREAD_ONLY = MyBase.Columns("READ_ONLY") + Me.columnLOAD_IDX_VALUE = MyBase.Columns("LOAD_IDX_VALUE") + Me.columnDEFAULT_VALUE = MyBase.Columns("DEFAULT_VALUE") + Me.columnMULTISELECT = MyBase.Columns("MULTISELECT") + Me.columnVKT_ADD_ITEM = MyBase.Columns("VKT_ADD_ITEM") + Me.columnVKT_PREVENT_MULTIPLE_VALUES = MyBase.Columns("VKT_PREVENT_MULTIPLE_VALUES") + Me.columnREGEX_MATCH = MyBase.Columns("REGEX_MATCH") + Me.columnREGEX_MESSAGE_DE = MyBase.Columns("REGEX_MESSAGE_DE") + Me.columnREGEX_MESSAGE_EN = MyBase.Columns("REGEX_MESSAGE_EN") + Me.columnIMAGE_CONTROL = MyBase.Columns("IMAGE_CONTROL") + Me.columnSQL2 = MyBase.Columns("SQL2") + Me.columnSQL_ENABLE = MyBase.Columns("SQL_ENABLE") + Me.columnSET_CONTROL_DATA = MyBase.Columns("SET_CONTROL_DATA") + Me.columnSQL_ENABLE_ON_LOAD = MyBase.Columns("SQL_ENABLE_ON_LOAD") + Me.columnSQL_ENABLE_ON_LOAD_CONID = MyBase.Columns("SQL_ENABLE_ON_LOAD_CONID") + Me.columnCONTROL_ACTIVE = MyBase.Columns("CONTROL_ACTIVE") + End Sub _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHEN - End Get - End Property - - _ - Public ReadOnly Property INDEX_NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnINDEX_NAME - End Get - End Property - - _ - Public ReadOnly Property TYPColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTYP - End Get - End Property - - _ - Public ReadOnly Property VALIDATIONColumn() As Global.System.Data.DataColumn - Get - Return Me.columnVALIDATION - End Get - End Property - - _ - Public ReadOnly Property CHOICE_LISTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHOICE_LIST - End Get - End Property - - _ - Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCONNECTION_ID - End Get - End Property - - _ - Public ReadOnly Property SQL_UEBERPRUEFUNGColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSQL_UEBERPRUEFUNG - End Get - End Property - - _ - Public ReadOnly Property HEIGHTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnHEIGHT - End Get - End Property + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnPROFIL_ID = New Global.System.Data.DataColumn("PROFIL_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFIL_ID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnCTRL_TYPE = New Global.System.Data.DataColumn("CTRL_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRL_TYPE) + Me.columnCTRL_TEXT = New Global.System.Data.DataColumn("CTRL_TEXT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCTRL_TEXT) + Me.columnX_LOC = New Global.System.Data.DataColumn("X_LOC", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnX_LOC) + Me.columnY_LOC = New Global.System.Data.DataColumn("Y_LOC", GetType(Double), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnY_LOC) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + 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.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + 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.columnINDEX_NAME = New Global.System.Data.DataColumn("INDEX_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnINDEX_NAME) + Me.columnTYP = New Global.System.Data.DataColumn("TYP", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTYP) + Me.columnVALIDATION = New Global.System.Data.DataColumn("VALIDATION", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVALIDATION) + Me.columnCHOICE_LIST = New Global.System.Data.DataColumn("CHOICE_LIST", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHOICE_LIST) + Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONNECTION_ID) + Me.columnSQL_UEBERPRUEFUNG = New Global.System.Data.DataColumn("SQL_UEBERPRUEFUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_UEBERPRUEFUNG) + Me.columnHEIGHT = New Global.System.Data.DataColumn("HEIGHT", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHEIGHT) + Me.columnWIDTH = New Global.System.Data.DataColumn("WIDTH", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWIDTH) + Me.columnFONT_STYLE = New Global.System.Data.DataColumn("FONT_STYLE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFONT_STYLE) + Me.columnFONT_SIZE = New Global.System.Data.DataColumn("FONT_SIZE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFONT_SIZE) + Me.columnFONT_FAMILY = New Global.System.Data.DataColumn("FONT_FAMILY", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFONT_FAMILY) + Me.columnFONT_COLOR = New Global.System.Data.DataColumn("FONT_COLOR", GetType(Long), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFONT_COLOR) + Me.columnREAD_ONLY = New Global.System.Data.DataColumn("READ_ONLY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnREAD_ONLY) + Me.columnLOAD_IDX_VALUE = New Global.System.Data.DataColumn("LOAD_IDX_VALUE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOAD_IDX_VALUE) + Me.columnDEFAULT_VALUE = New Global.System.Data.DataColumn("DEFAULT_VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDEFAULT_VALUE) + Me.columnMULTISELECT = New Global.System.Data.DataColumn("MULTISELECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMULTISELECT) + Me.columnVKT_ADD_ITEM = New Global.System.Data.DataColumn("VKT_ADD_ITEM", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVKT_ADD_ITEM) + Me.columnVKT_PREVENT_MULTIPLE_VALUES = New Global.System.Data.DataColumn("VKT_PREVENT_MULTIPLE_VALUES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVKT_PREVENT_MULTIPLE_VALUES) + Me.columnREGEX_MATCH = New Global.System.Data.DataColumn("REGEX_MATCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnREGEX_MATCH) + Me.columnREGEX_MESSAGE_DE = New Global.System.Data.DataColumn("REGEX_MESSAGE_DE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnREGEX_MESSAGE_DE) + Me.columnREGEX_MESSAGE_EN = New Global.System.Data.DataColumn("REGEX_MESSAGE_EN", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnREGEX_MESSAGE_EN) + Me.columnIMAGE_CONTROL = New Global.System.Data.DataColumn("IMAGE_CONTROL", GetType(Byte()), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIMAGE_CONTROL) + Me.columnSQL2 = New Global.System.Data.DataColumn("SQL2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL2) + Me.columnSQL_ENABLE = New Global.System.Data.DataColumn("SQL_ENABLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_ENABLE) + Me.columnSET_CONTROL_DATA = New Global.System.Data.DataColumn("SET_CONTROL_DATA", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSET_CONTROL_DATA) + Me.columnSQL_ENABLE_ON_LOAD = New Global.System.Data.DataColumn("SQL_ENABLE_ON_LOAD", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_ENABLE_ON_LOAD) + Me.columnSQL_ENABLE_ON_LOAD_CONID = New Global.System.Data.DataColumn("SQL_ENABLE_ON_LOAD_CONID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_ENABLE_ON_LOAD_CONID) + Me.columnCONTROL_ACTIVE = New Global.System.Data.DataColumn("CONTROL_ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONTROL_ACTIVE) + 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.columnPROFIL_ID.AllowDBNull = false + Me.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 100 + Me.columnCTRL_TYPE.AllowDBNull = false + Me.columnCTRL_TYPE.MaxLength = 10 + Me.columnCTRL_TEXT.MaxLength = 100 + Me.columnX_LOC.AllowDBNull = false + Me.columnY_LOC.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 30 + Me.columnADDED_WHEN.AllowDBNull = false + Me.columnCHANGED_WHO.MaxLength = 30 + Me.columnINDEX_NAME.MaxLength = 100 + Me.columnTYP.MaxLength = 50 + Me.columnVALIDATION.AllowDBNull = false + Me.columnCHOICE_LIST.MaxLength = 50 + Me.columnSQL_UEBERPRUEFUNG.MaxLength = 2000 + Me.columnHEIGHT.AllowDBNull = false + Me.columnWIDTH.AllowDBNull = false + Me.columnFONT_FAMILY.MaxLength = 30 + Me.columnREAD_ONLY.AllowDBNull = false + Me.columnREAD_ONLY.DefaultValue = CType(false,Boolean) + Me.columnLOAD_IDX_VALUE.AllowDBNull = false + Me.columnMULTISELECT.AllowDBNull = false + Me.columnVKT_ADD_ITEM.AllowDBNull = false + Me.columnVKT_PREVENT_MULTIPLE_VALUES.AllowDBNull = false + Me.columnREGEX_MATCH.MaxLength = 1000 + Me.columnREGEX_MESSAGE_DE.AllowDBNull = false + Me.columnREGEX_MESSAGE_DE.MaxLength = 1000 + Me.columnREGEX_MESSAGE_EN.AllowDBNull = false + Me.columnREGEX_MESSAGE_EN.MaxLength = 1000 + Me.columnSQL2.MaxLength = 2147483647 + Me.columnSQL_ENABLE.MaxLength = 2147483647 + Me.columnSET_CONTROL_DATA.MaxLength = 2147483647 + Me.columnSQL_ENABLE_ON_LOAD.MaxLength = 2147483647 + Me.columnCONTROL_ACTIVE.AllowDBNull = false + End Sub _ - Public ReadOnly Property WIDTHColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWIDTH - End Get - End Property + Public Function NewTBPM_PROFILE_CONTROLSRow() As TBPM_PROFILE_CONTROLSRow + Return CType(Me.NewRow,TBPM_PROFILE_CONTROLSRow) + End Function _ - Public ReadOnly Property FONT_STYLEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFONT_STYLE - End Get - End Property + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPM_PROFILE_CONTROLSRow(builder) + End Function _ - Public ReadOnly Property FONT_SIZEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFONT_SIZE - End Get - End Property + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPM_PROFILE_CONTROLSRow) + End Function _ - Public ReadOnly Property FONT_FAMILYColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFONT_FAMILY - End Get - End Property + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPM_PROFILE_CONTROLSRowChangedEvent) Is Nothing) Then + RaiseEvent TBPM_PROFILE_CONTROLSRowChanged(Me, New TBPM_PROFILE_CONTROLSRowChangeEvent(CType(e.Row,TBPM_PROFILE_CONTROLSRow), e.Action)) + End If + End Sub _ - Public ReadOnly Property FONT_COLORColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFONT_COLOR - End Get - End Property + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPM_PROFILE_CONTROLSRowChangingEvent) Is Nothing) Then + RaiseEvent TBPM_PROFILE_CONTROLSRowChanging(Me, New TBPM_PROFILE_CONTROLSRowChangeEvent(CType(e.Row,TBPM_PROFILE_CONTROLSRow), e.Action)) + End If + End Sub _ - Public ReadOnly Property READ_ONLYColumn() As Global.System.Data.DataColumn - Get - Return Me.columnREAD_ONLY - End Get - End Property + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPM_PROFILE_CONTROLSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPM_PROFILE_CONTROLSRowDeleted(Me, New TBPM_PROFILE_CONTROLSRowChangeEvent(CType(e.Row,TBPM_PROFILE_CONTROLSRow), e.Action)) + End If + End Sub _ - Public ReadOnly Property LOAD_IDX_VALUEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLOAD_IDX_VALUE - End Get - End Property + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPM_PROFILE_CONTROLSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPM_PROFILE_CONTROLSRowDeleting(Me, New TBPM_PROFILE_CONTROLSRowChangeEvent(CType(e.Row,TBPM_PROFILE_CONTROLSRow), e.Action)) + End If + End Sub _ - Public ReadOnly Property DEFAULT_VALUEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnDEFAULT_VALUE - End Get - End Property + Public Sub RemoveTBPM_PROFILE_CONTROLSRow(ByVal row As TBPM_PROFILE_CONTROLSRow) + Me.Rows.Remove(row) + End Sub _ - Public ReadOnly Property MULTISELECTColumn() As Global.System.Data.DataColumn + 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() + Dim ds As DD_DMSLiteDataSet = New DD_DMSLiteDataSet() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBPM_PROFILE_CONTROLSDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + 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 + 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) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + 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 + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBPM_CONTROL_TABLEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPM_CONTROL_TABLERow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnCONTROL_ID As Global.System.Data.DataColumn + + Private columnSPALTENNAME As Global.System.Data.DataColumn + + Private columnSPALTEN_HEADER As Global.System.Data.DataColumn + + Private columnSPALTENBREITE As Global.System.Data.DataColumn + + Private columnVALIDATION As Global.System.Data.DataColumn + + Private columnCHOICE_LIST As Global.System.Data.DataColumn + + Private columnCONNECTION_ID As Global.System.Data.DataColumn + + Private columnSQL_COMMAND As Global.System.Data.DataColumn + + Private columnREAD_ONLY As Global.System.Data.DataColumn + + Private columnLOAD_IDX_VALUE 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 columnREGEX_MATCH As Global.System.Data.DataColumn + + Private columnREGEX_MESSAGE_EN As Global.System.Data.DataColumn + + Private columnREGEX_MESSAGE_DE As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPM_CONTROL_TABLE" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + 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 + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Return Me.columnMULTISELECT + Return Me.columnGUID End Get End Property _ - Public ReadOnly Property VKT_ADD_ITEMColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CONTROL_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnVKT_ADD_ITEM + Return Me.columnCONTROL_ID End Get End Property _ - Public ReadOnly Property VKT_PREVENT_MULTIPLE_VALUESColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SPALTENNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnVKT_PREVENT_MULTIPLE_VALUES + Return Me.columnSPALTENNAME End Get End Property _ - Public ReadOnly Property REGEX_MATCHColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SPALTEN_HEADERColumn() As Global.System.Data.DataColumn Get - Return Me.columnREGEX_MATCH + Return Me.columnSPALTEN_HEADER End Get End Property _ - Public ReadOnly Property REGEX_MESSAGE_DEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SPALTENBREITEColumn() As Global.System.Data.DataColumn Get - Return Me.columnREGEX_MESSAGE_DE + Return Me.columnSPALTENBREITE End Get End Property _ - Public ReadOnly Property REGEX_MESSAGE_ENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property VALIDATIONColumn() As Global.System.Data.DataColumn Get - Return Me.columnREGEX_MESSAGE_EN + Return Me.columnVALIDATION End Get End Property _ - Public ReadOnly Property IMAGE_CONTROLColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHOICE_LISTColumn() As Global.System.Data.DataColumn Get - Return Me.columnIMAGE_CONTROL + Return Me.columnCHOICE_LIST End Get End Property _ - Public ReadOnly Property SQL2Column() As Global.System.Data.DataColumn + Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnSQL2 + Return Me.columnCONNECTION_ID End Get End Property _ - Public ReadOnly Property SQL_ENABLEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn Get - Return Me.columnSQL_ENABLE + Return Me.columnSQL_COMMAND End Get End Property _ - Public ReadOnly Property SET_CONTROL_DATAColumn() As Global.System.Data.DataColumn + Public ReadOnly Property READ_ONLYColumn() As Global.System.Data.DataColumn Get - Return Me.columnSET_CONTROL_DATA + Return Me.columnREAD_ONLY End Get End Property _ - Public ReadOnly Property SQL_ENABLE_ON_LOADColumn() As Global.System.Data.DataColumn + Public ReadOnly Property LOAD_IDX_VALUEColumn() As Global.System.Data.DataColumn Get - Return Me.columnSQL_ENABLE_ON_LOAD + Return Me.columnLOAD_IDX_VALUE End Get End Property _ - Public ReadOnly Property SQL_ENABLE_ON_LOAD_CONIDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnSQL_ENABLE_ON_LOAD_CONID + Return Me.columnADDED_WHO End Get End Property _ - Public ReadOnly Property CONTROL_ACTIVEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnCONTROL_ACTIVE + 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 REGEX_MATCHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREGEX_MATCH + End Get + End Property + + _ + Public ReadOnly Property REGEX_MESSAGE_ENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREGEX_MESSAGE_EN + End Get + End Property + + _ + Public ReadOnly Property REGEX_MESSAGE_DEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnREGEX_MESSAGE_DE End Get End Property @@ -5619,91 +5566,70 @@ Partial Public Class DD_DMSLiteDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_PROFILE_CONTROLSRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_CONTROL_TABLERow Get - Return CType(Me.Rows(index),TBPM_PROFILE_CONTROLSRow) + Return CType(Me.Rows(index),TBPM_CONTROL_TABLERow) End Get End Property _ - Public Event TBPM_PROFILE_CONTROLSRowChanging As TBPM_PROFILE_CONTROLSRowChangeEventHandler + Public Event TBPM_CONTROL_TABLERowChanging As TBPM_CONTROL_TABLERowChangeEventHandler _ - Public Event TBPM_PROFILE_CONTROLSRowChanged As TBPM_PROFILE_CONTROLSRowChangeEventHandler + Public Event TBPM_CONTROL_TABLERowChanged As TBPM_CONTROL_TABLERowChangeEventHandler _ - Public Event TBPM_PROFILE_CONTROLSRowDeleting As TBPM_PROFILE_CONTROLSRowChangeEventHandler + Public Event TBPM_CONTROL_TABLERowDeleting As TBPM_CONTROL_TABLERowChangeEventHandler _ - Public Event TBPM_PROFILE_CONTROLSRowDeleted As TBPM_PROFILE_CONTROLSRowChangeEventHandler + Public Event TBPM_CONTROL_TABLERowDeleted As TBPM_CONTROL_TABLERowChangeEventHandler _ - Public Overloads Sub AddTBPM_PROFILE_CONTROLSRow(ByVal row As TBPM_PROFILE_CONTROLSRow) + Public Overloads Sub AddTBPM_CONTROL_TABLERow(ByVal row As TBPM_CONTROL_TABLERow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPM_PROFILE_CONTROLSRow( _ - ByVal parentTBPM_PROFILERowByFK_TBPM_PROFILE_CONTROLS_PROFILE1 As TBPM_PROFILERow, _ - ByVal NAME As String, _ - ByVal CTRL_TYPE As String, _ - ByVal CTRL_TEXT As String, _ - ByVal X_LOC As Double, _ - ByVal Y_LOC As Double, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Date, _ - ByVal INDEX_NAME As String, _ - ByVal TYP As String, _ + Public Overloads Function AddTBPM_CONTROL_TABLERow( _ + ByVal parentTBPM_PROFILE_CONTROLSRowByFK_TBPM_CONTROL_TABLE_CONTROL1 As TBPM_PROFILE_CONTROLSRow, _ + ByVal SPALTENNAME As String, _ + ByVal SPALTEN_HEADER As String, _ + ByVal SPALTENBREITE As Integer, _ ByVal VALIDATION As Boolean, _ ByVal CHOICE_LIST As String, _ ByVal CONNECTION_ID As Short, _ - ByVal SQL_UEBERPRUEFUNG As String, _ - ByVal HEIGHT As Short, _ - ByVal WIDTH As Short, _ - ByVal FONT_STYLE As Short, _ - ByVal FONT_SIZE As Short, _ - ByVal FONT_FAMILY As String, _ - ByVal FONT_COLOR As Long, _ + ByVal SQL_COMMAND As String, _ ByVal READ_ONLY As Boolean, _ ByVal LOAD_IDX_VALUE As Boolean, _ - ByVal DEFAULT_VALUE As String, _ - ByVal MULTISELECT As Boolean, _ - ByVal VKT_ADD_ITEM As Boolean, _ - ByVal VKT_PREVENT_MULTIPLE_VALUES As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ ByVal REGEX_MATCH As String, _ - ByVal REGEX_MESSAGE_DE As String, _ ByVal REGEX_MESSAGE_EN As String, _ - ByVal IMAGE_CONTROL() As Byte, _ - ByVal SQL2 As String, _ - ByVal SQL_ENABLE As String, _ - ByVal SET_CONTROL_DATA As String, _ - ByVal SQL_ENABLE_ON_LOAD As String, _ - ByVal SQL_ENABLE_ON_LOAD_CONID As Byte, _ - ByVal CONTROL_ACTIVE As Boolean) As TBPM_PROFILE_CONTROLSRow - Dim rowTBPM_PROFILE_CONTROLSRow As TBPM_PROFILE_CONTROLSRow = CType(Me.NewRow,TBPM_PROFILE_CONTROLSRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, NAME, CTRL_TYPE, CTRL_TEXT, X_LOC, Y_LOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_UEBERPRUEFUNG, HEIGHT, WIDTH, FONT_STYLE, FONT_SIZE, FONT_FAMILY, FONT_COLOR, READ_ONLY, LOAD_IDX_VALUE, DEFAULT_VALUE, MULTISELECT, VKT_ADD_ITEM, VKT_PREVENT_MULTIPLE_VALUES, REGEX_MATCH, REGEX_MESSAGE_DE, REGEX_MESSAGE_EN, IMAGE_CONTROL, SQL2, SQL_ENABLE, SET_CONTROL_DATA, SQL_ENABLE_ON_LOAD, SQL_ENABLE_ON_LOAD_CONID, CONTROL_ACTIVE} - If (Not (parentTBPM_PROFILERowByFK_TBPM_PROFILE_CONTROLS_PROFILE1) Is Nothing) Then - columnValuesArray(1) = parentTBPM_PROFILERowByFK_TBPM_PROFILE_CONTROLS_PROFILE1(0) + ByVal REGEX_MESSAGE_DE As String) As TBPM_CONTROL_TABLERow + Dim rowTBPM_CONTROL_TABLERow As TBPM_CONTROL_TABLERow = CType(Me.NewRow,TBPM_CONTROL_TABLERow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, REGEX_MATCH, REGEX_MESSAGE_EN, REGEX_MESSAGE_DE} + If (Not (parentTBPM_PROFILE_CONTROLSRowByFK_TBPM_CONTROL_TABLE_CONTROL1) Is Nothing) Then + columnValuesArray(1) = parentTBPM_PROFILE_CONTROLSRowByFK_TBPM_CONTROL_TABLE_CONTROL1(0) End If - rowTBPM_PROFILE_CONTROLSRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPM_PROFILE_CONTROLSRow) - Return rowTBPM_PROFILE_CONTROLSRow + rowTBPM_CONTROL_TABLERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPM_CONTROL_TABLERow) + Return rowTBPM_CONTROL_TABLERow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPM_PROFILE_CONTROLSRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_PROFILE_CONTROLSRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPM_CONTROL_TABLERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_CONTROL_TABLERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPM_PROFILE_CONTROLSDataTable = CType(MyBase.Clone,TBPM_PROFILE_CONTROLSDataTable) + Dim cln As TBPM_CONTROL_TABLEDataTable = CType(MyBase.Clone,TBPM_CONTROL_TABLEDataTable) cln.InitVars Return cln End Function @@ -5711,51 +5637,30 @@ Partial Public Class DD_DMSLiteDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPM_PROFILE_CONTROLSDataTable() + Return New TBPM_CONTROL_TABLEDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnPROFIL_ID = MyBase.Columns("PROFIL_ID") - Me.columnNAME = MyBase.Columns("NAME") - Me.columnCTRL_TYPE = MyBase.Columns("CTRL_TYPE") - Me.columnCTRL_TEXT = MyBase.Columns("CTRL_TEXT") - Me.columnX_LOC = MyBase.Columns("X_LOC") - Me.columnY_LOC = MyBase.Columns("Y_LOC") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnINDEX_NAME = MyBase.Columns("INDEX_NAME") - Me.columnTYP = MyBase.Columns("TYP") + Me.columnCONTROL_ID = MyBase.Columns("CONTROL_ID") + Me.columnSPALTENNAME = MyBase.Columns("SPALTENNAME") + Me.columnSPALTEN_HEADER = MyBase.Columns("SPALTEN_HEADER") + Me.columnSPALTENBREITE = MyBase.Columns("SPALTENBREITE") Me.columnVALIDATION = MyBase.Columns("VALIDATION") Me.columnCHOICE_LIST = MyBase.Columns("CHOICE_LIST") Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") - Me.columnSQL_UEBERPRUEFUNG = MyBase.Columns("SQL_UEBERPRUEFUNG") - Me.columnHEIGHT = MyBase.Columns("HEIGHT") - Me.columnWIDTH = MyBase.Columns("WIDTH") - Me.columnFONT_STYLE = MyBase.Columns("FONT_STYLE") - Me.columnFONT_SIZE = MyBase.Columns("FONT_SIZE") - Me.columnFONT_FAMILY = MyBase.Columns("FONT_FAMILY") - Me.columnFONT_COLOR = MyBase.Columns("FONT_COLOR") + Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") Me.columnREAD_ONLY = MyBase.Columns("READ_ONLY") Me.columnLOAD_IDX_VALUE = MyBase.Columns("LOAD_IDX_VALUE") - Me.columnDEFAULT_VALUE = MyBase.Columns("DEFAULT_VALUE") - Me.columnMULTISELECT = MyBase.Columns("MULTISELECT") - Me.columnVKT_ADD_ITEM = MyBase.Columns("VKT_ADD_ITEM") - Me.columnVKT_PREVENT_MULTIPLE_VALUES = MyBase.Columns("VKT_PREVENT_MULTIPLE_VALUES") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") Me.columnREGEX_MATCH = MyBase.Columns("REGEX_MATCH") - Me.columnREGEX_MESSAGE_DE = MyBase.Columns("REGEX_MESSAGE_DE") Me.columnREGEX_MESSAGE_EN = MyBase.Columns("REGEX_MESSAGE_EN") - Me.columnIMAGE_CONTROL = MyBase.Columns("IMAGE_CONTROL") - Me.columnSQL2 = MyBase.Columns("SQL2") - Me.columnSQL_ENABLE = MyBase.Columns("SQL_ENABLE") - Me.columnSET_CONTROL_DATA = MyBase.Columns("SET_CONTROL_DATA") - Me.columnSQL_ENABLE_ON_LOAD = MyBase.Columns("SQL_ENABLE_ON_LOAD") - Me.columnSQL_ENABLE_ON_LOAD_CONID = MyBase.Columns("SQL_ENABLE_ON_LOAD_CONID") - Me.columnCONTROL_ACTIVE = MyBase.Columns("CONTROL_ACTIVE") + Me.columnREGEX_MESSAGE_DE = MyBase.Columns("REGEX_MESSAGE_DE") End Sub _ - Public Function NewTBPM_PROFILE_CONTROLSRow() As TBPM_PROFILE_CONTROLSRow - Return CType(Me.NewRow,TBPM_PROFILE_CONTROLSRow) + Public Function NewTBPM_CONTROL_TABLERow() As TBPM_CONTROL_TABLERow + Return CType(Me.NewRow,TBPM_CONTROL_TABLERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPM_PROFILE_CONTROLSRow(builder) + Return New TBPM_CONTROL_TABLERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPM_PROFILE_CONTROLSRow) + Return GetType(TBPM_CONTROL_TABLERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPM_PROFILE_CONTROLSRowChangedEvent) Is Nothing) Then - RaiseEvent TBPM_PROFILE_CONTROLSRowChanged(Me, New TBPM_PROFILE_CONTROLSRowChangeEvent(CType(e.Row,TBPM_PROFILE_CONTROLSRow), e.Action)) + If (Not (Me.TBPM_CONTROL_TABLERowChangedEvent) Is Nothing) Then + RaiseEvent TBPM_CONTROL_TABLERowChanged(Me, New TBPM_CONTROL_TABLERowChangeEvent(CType(e.Row,TBPM_CONTROL_TABLERow), e.Action)) End If End Sub @@ -5913,8 +5764,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPM_PROFILE_CONTROLSRowChangingEvent) Is Nothing) Then - RaiseEvent TBPM_PROFILE_CONTROLSRowChanging(Me, New TBPM_PROFILE_CONTROLSRowChangeEvent(CType(e.Row,TBPM_PROFILE_CONTROLSRow), e.Action)) + If (Not (Me.TBPM_CONTROL_TABLERowChangingEvent) Is Nothing) Then + RaiseEvent TBPM_CONTROL_TABLERowChanging(Me, New TBPM_CONTROL_TABLERowChangeEvent(CType(e.Row,TBPM_CONTROL_TABLERow), e.Action)) End If End Sub @@ -5922,8 +5773,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPM_PROFILE_CONTROLSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPM_PROFILE_CONTROLSRowDeleted(Me, New TBPM_PROFILE_CONTROLSRowChangeEvent(CType(e.Row,TBPM_PROFILE_CONTROLSRow), e.Action)) + If (Not (Me.TBPM_CONTROL_TABLERowDeletedEvent) Is Nothing) Then + RaiseEvent TBPM_CONTROL_TABLERowDeleted(Me, New TBPM_CONTROL_TABLERowChangeEvent(CType(e.Row,TBPM_CONTROL_TABLERow), e.Action)) End If End Sub @@ -5931,14 +5782,14 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPM_PROFILE_CONTROLSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPM_PROFILE_CONTROLSRowDeleting(Me, New TBPM_PROFILE_CONTROLSRowChangeEvent(CType(e.Row,TBPM_PROFILE_CONTROLSRow), e.Action)) + If (Not (Me.TBPM_CONTROL_TABLERowDeletingEvent) Is Nothing) Then + RaiseEvent TBPM_CONTROL_TABLERowDeleting(Me, New TBPM_CONTROL_TABLERowChangeEvent(CType(e.Row,TBPM_CONTROL_TABLERow), e.Action)) End If End Sub _ - Public Sub RemoveTBPM_PROFILE_CONTROLSRow(ByVal row As TBPM_PROFILE_CONTROLSRow) + Public Sub RemoveTBPM_CONTROL_TABLERow(ByVal row As TBPM_CONTROL_TABLERow) Me.Rows.Remove(row) End Sub @@ -5965,7 +5816,7 @@ Partial Public Class DD_DMSLiteDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPM_PROFILE_CONTROLSDataTable" + attribute2.FixedValue = "TBPM_CONTROL_TABLEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -6014,30 +5865,22 @@ Partial Public Class DD_DMSLiteDataSet ''' _ - Partial Public Class TBPM_CONTROL_TABLEDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPM_CONTROL_TABLERow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnCONTROL_ID As Global.System.Data.DataColumn - - Private columnSPALTENNAME As Global.System.Data.DataColumn - - Private columnSPALTEN_HEADER As Global.System.Data.DataColumn + Partial Public Class TBDD_GROUPSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPSRow) - Private columnSPALTENBREITE As Global.System.Data.DataColumn + Private columnGUID As Global.System.Data.DataColumn - Private columnVALIDATION As Global.System.Data.DataColumn + Private columnNAME As Global.System.Data.DataColumn - Private columnCHOICE_LIST As Global.System.Data.DataColumn + Private columnECM_FK_ID As Global.System.Data.DataColumn - Private columnCONNECTION_ID As Global.System.Data.DataColumn + Private columnAD_SYNC As Global.System.Data.DataColumn - Private columnSQL_COMMAND As Global.System.Data.DataColumn + Private columnINTERNAL As Global.System.Data.DataColumn - Private columnREAD_ONLY As Global.System.Data.DataColumn + Private columnACTIVE As Global.System.Data.DataColumn - Private columnLOAD_IDX_VALUE As Global.System.Data.DataColumn + Private columnCOMMENT As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn @@ -6047,17 +5890,11 @@ Partial Public Class DD_DMSLiteDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnREGEX_MATCH As Global.System.Data.DataColumn - - Private columnREGEX_MESSAGE_EN As Global.System.Data.DataColumn - - Private columnREGEX_MESSAGE_DE As Global.System.Data.DataColumn - _ Public Sub New() MyBase.New - Me.TableName = "TBPM_CONTROL_TABLE" + Me.TableName = "TBDD_GROUPS" Me.BeginInit Me.InitClass Me.EndInit @@ -6098,81 +5935,49 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property CONTROL_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCONTROL_ID - End Get - End Property - - _ - Public ReadOnly Property SPALTENNAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSPALTENNAME - End Get - End Property - - _ - Public ReadOnly Property SPALTEN_HEADERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSPALTEN_HEADER - End Get - End Property - - _ - Public ReadOnly Property SPALTENBREITEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSPALTENBREITE - End Get - End Property - - _ - Public ReadOnly Property VALIDATIONColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnVALIDATION + Return Me.columnNAME End Get End Property _ - Public ReadOnly Property CHOICE_LISTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ECM_FK_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHOICE_LIST + Return Me.columnECM_FK_ID End Get End Property _ - Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property AD_SYNCColumn() As Global.System.Data.DataColumn Get - Return Me.columnCONNECTION_ID + Return Me.columnAD_SYNC End Get End Property _ - Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property INTERNALColumn() As Global.System.Data.DataColumn Get - Return Me.columnSQL_COMMAND + Return Me.columnINTERNAL End Get End Property _ - Public ReadOnly Property READ_ONLYColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get - Return Me.columnREAD_ONLY + Return Me.columnACTIVE End Get End Property _ - Public ReadOnly Property LOAD_IDX_VALUEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get - Return Me.columnLOAD_IDX_VALUE + Return Me.columnCOMMENT End Get End Property @@ -6208,30 +6013,6 @@ Partial Public Class DD_DMSLiteDataSet End Get End Property - _ - Public ReadOnly Property REGEX_MATCHColumn() As Global.System.Data.DataColumn - Get - Return Me.columnREGEX_MATCH - End Get - End Property - - _ - Public ReadOnly Property REGEX_MESSAGE_ENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnREGEX_MESSAGE_EN - End Get - End Property - - _ - Public ReadOnly Property REGEX_MESSAGE_DEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnREGEX_MESSAGE_DE - End Get - End Property - _ @@ -6243,70 +6024,50 @@ Partial Public Class DD_DMSLiteDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_CONTROL_TABLERow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPSRow Get - Return CType(Me.Rows(index),TBPM_CONTROL_TABLERow) + Return CType(Me.Rows(index),TBDD_GROUPSRow) End Get End Property _ - Public Event TBPM_CONTROL_TABLERowChanging As TBPM_CONTROL_TABLERowChangeEventHandler + Public Event TBDD_GROUPSRowChanging As TBDD_GROUPSRowChangeEventHandler _ - Public Event TBPM_CONTROL_TABLERowChanged As TBPM_CONTROL_TABLERowChangeEventHandler + Public Event TBDD_GROUPSRowChanged As TBDD_GROUPSRowChangeEventHandler _ - Public Event TBPM_CONTROL_TABLERowDeleting As TBPM_CONTROL_TABLERowChangeEventHandler + Public Event TBDD_GROUPSRowDeleting As TBDD_GROUPSRowChangeEventHandler _ - Public Event TBPM_CONTROL_TABLERowDeleted As TBPM_CONTROL_TABLERowChangeEventHandler + Public Event TBDD_GROUPSRowDeleted As TBDD_GROUPSRowChangeEventHandler _ - Public Overloads Sub AddTBPM_CONTROL_TABLERow(ByVal row As TBPM_CONTROL_TABLERow) + Public Overloads Sub AddTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPM_CONTROL_TABLERow( _ - ByVal parentTBPM_PROFILE_CONTROLSRowByFK_TBPM_CONTROL_TABLE_CONTROL1 As TBPM_PROFILE_CONTROLSRow, _ - ByVal SPALTENNAME As String, _ - ByVal SPALTEN_HEADER As String, _ - ByVal SPALTENBREITE As Integer, _ - ByVal VALIDATION As Boolean, _ - ByVal CHOICE_LIST As String, _ - ByVal CONNECTION_ID As Short, _ - ByVal SQL_COMMAND As String, _ - ByVal READ_ONLY As Boolean, _ - ByVal LOAD_IDX_VALUE As Boolean, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Date, _ - ByVal REGEX_MATCH As String, _ - ByVal REGEX_MESSAGE_EN As String, _ - ByVal REGEX_MESSAGE_DE As String) As TBPM_CONTROL_TABLERow - Dim rowTBPM_CONTROL_TABLERow As TBPM_CONTROL_TABLERow = CType(Me.NewRow,TBPM_CONTROL_TABLERow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, SPALTENNAME, SPALTEN_HEADER, SPALTENBREITE, VALIDATION, CHOICE_LIST, CONNECTION_ID, SQL_COMMAND, READ_ONLY, LOAD_IDX_VALUE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, REGEX_MATCH, REGEX_MESSAGE_EN, REGEX_MESSAGE_DE} - If (Not (parentTBPM_PROFILE_CONTROLSRowByFK_TBPM_CONTROL_TABLE_CONTROL1) Is Nothing) Then - columnValuesArray(1) = parentTBPM_PROFILE_CONTROLSRowByFK_TBPM_CONTROL_TABLE_CONTROL1(0) - End If - rowTBPM_CONTROL_TABLERow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPM_CONTROL_TABLERow) - Return rowTBPM_CONTROL_TABLERow + Public Overloads Function AddTBDD_GROUPSRow(ByVal NAME As String, ByVal ECM_FK_ID As Integer, ByVal AD_SYNC As Boolean, ByVal INTERNAL As Boolean, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_GROUPSRow + Dim rowTBDD_GROUPSRow As TBDD_GROUPSRow = CType(Me.NewRow,TBDD_GROUPSRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBDD_GROUPSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_GROUPSRow) + Return rowTBDD_GROUPSRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPM_CONTROL_TABLERow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPM_CONTROL_TABLERow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPSRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPM_CONTROL_TABLEDataTable = CType(MyBase.Clone,TBPM_CONTROL_TABLEDataTable) + Dim cln As TBDD_GROUPSDataTable = CType(MyBase.Clone,TBDD_GROUPSDataTable) cln.InitVars Return cln End Function @@ -6314,30 +6075,23 @@ Partial Public Class DD_DMSLiteDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPM_CONTROL_TABLEDataTable() + Return New TBDD_GROUPSDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnCONTROL_ID = MyBase.Columns("CONTROL_ID") - Me.columnSPALTENNAME = MyBase.Columns("SPALTENNAME") - Me.columnSPALTEN_HEADER = MyBase.Columns("SPALTEN_HEADER") - Me.columnSPALTENBREITE = MyBase.Columns("SPALTENBREITE") - Me.columnVALIDATION = MyBase.Columns("VALIDATION") - Me.columnCHOICE_LIST = MyBase.Columns("CHOICE_LIST") - Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") - Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") - Me.columnREAD_ONLY = MyBase.Columns("READ_ONLY") - Me.columnLOAD_IDX_VALUE = MyBase.Columns("LOAD_IDX_VALUE") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnECM_FK_ID = MyBase.Columns("ECM_FK_ID") + Me.columnAD_SYNC = MyBase.Columns("AD_SYNC") + Me.columnINTERNAL = MyBase.Columns("INTERNAL") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnREGEX_MATCH = MyBase.Columns("REGEX_MATCH") - Me.columnREGEX_MESSAGE_EN = MyBase.Columns("REGEX_MESSAGE_EN") - Me.columnREGEX_MESSAGE_DE = MyBase.Columns("REGEX_MESSAGE_DE") End Sub _ - Public Function NewTBPM_CONTROL_TABLERow() As TBPM_CONTROL_TABLERow - Return CType(Me.NewRow,TBPM_CONTROL_TABLERow) + Public Function NewTBDD_GROUPSRow() As TBDD_GROUPSRow + Return CType(Me.NewRow,TBDD_GROUPSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPM_CONTROL_TABLERow(builder) + Return New TBDD_GROUPSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPM_CONTROL_TABLERow) + Return GetType(TBDD_GROUPSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPM_CONTROL_TABLERowChangedEvent) Is Nothing) Then - RaiseEvent TBPM_CONTROL_TABLERowChanged(Me, New TBPM_CONTROL_TABLERowChangeEvent(CType(e.Row,TBPM_CONTROL_TABLERow), e.Action)) + If (Not (Me.TBDD_GROUPSRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPSRowChanged(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) End If End Sub @@ -6441,8 +6167,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPM_CONTROL_TABLERowChangingEvent) Is Nothing) Then - RaiseEvent TBPM_CONTROL_TABLERowChanging(Me, New TBPM_CONTROL_TABLERowChangeEvent(CType(e.Row,TBPM_CONTROL_TABLERow), e.Action)) + If (Not (Me.TBDD_GROUPSRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPSRowChanging(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) End If End Sub @@ -6450,8 +6176,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPM_CONTROL_TABLERowDeletedEvent) Is Nothing) Then - RaiseEvent TBPM_CONTROL_TABLERowDeleted(Me, New TBPM_CONTROL_TABLERowChangeEvent(CType(e.Row,TBPM_CONTROL_TABLERow), e.Action)) + If (Not (Me.TBDD_GROUPSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPSRowDeleted(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) End If End Sub @@ -6459,14 +6185,14 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPM_CONTROL_TABLERowDeletingEvent) Is Nothing) Then - RaiseEvent TBPM_CONTROL_TABLERowDeleting(Me, New TBPM_CONTROL_TABLERowChangeEvent(CType(e.Row,TBPM_CONTROL_TABLERow), e.Action)) + If (Not (Me.TBDD_GROUPSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPSRowDeleting(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) End If End Sub _ - Public Sub RemoveTBPM_CONTROL_TABLERow(ByVal row As TBPM_CONTROL_TABLERow) + Public Sub RemoveTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow) Me.Rows.Remove(row) End Sub @@ -6493,7 +6219,7 @@ Partial Public Class DD_DMSLiteDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPM_CONTROL_TABLEDataTable" + attribute2.FixedValue = "TBDD_GROUPSDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -6542,19 +6268,13 @@ Partial Public Class DD_DMSLiteDataSet ''' _ - Partial Public Class TBDD_GROUPSDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPSRow) + Partial Public Class TBPROFILE_GROUPDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPROFILE_GROUPRow) Private columnGUID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn - Private columnECM_FK_ID As Global.System.Data.DataColumn - - Private columnAD_SYNC As Global.System.Data.DataColumn - - Private columnINTERNAL As Global.System.Data.DataColumn - Private columnACTIVE As Global.System.Data.DataColumn Private columnCOMMENT As Global.System.Data.DataColumn @@ -6571,7 +6291,7 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBDD_GROUPS" + Me.TableName = "TBPROFILE_GROUP" Me.BeginInit Me.InitClass Me.EndInit @@ -6618,30 +6338,6 @@ Partial Public Class DD_DMSLiteDataSet End Get End Property - _ - Public ReadOnly Property ECM_FK_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnECM_FK_ID - End Get - End Property - - _ - Public ReadOnly Property AD_SYNCColumn() As Global.System.Data.DataColumn - Get - Return Me.columnAD_SYNC - End Get - End Property - - _ - Public ReadOnly Property INTERNALColumn() As Global.System.Data.DataColumn - Get - Return Me.columnINTERNAL - End Get - End Property - _ Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn @@ -6701,50 +6397,50 @@ Partial Public Class DD_DMSLiteDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPSRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPROFILE_GROUPRow Get - Return CType(Me.Rows(index),TBDD_GROUPSRow) + Return CType(Me.Rows(index),TBPROFILE_GROUPRow) End Get End Property _ - Public Event TBDD_GROUPSRowChanging As TBDD_GROUPSRowChangeEventHandler + Public Event TBPROFILE_GROUPRowChanging As TBPROFILE_GROUPRowChangeEventHandler _ - Public Event TBDD_GROUPSRowChanged As TBDD_GROUPSRowChangeEventHandler + Public Event TBPROFILE_GROUPRowChanged As TBPROFILE_GROUPRowChangeEventHandler _ - Public Event TBDD_GROUPSRowDeleting As TBDD_GROUPSRowChangeEventHandler + Public Event TBPROFILE_GROUPRowDeleting As TBPROFILE_GROUPRowChangeEventHandler _ - Public Event TBDD_GROUPSRowDeleted As TBDD_GROUPSRowChangeEventHandler + Public Event TBPROFILE_GROUPRowDeleted As TBPROFILE_GROUPRowChangeEventHandler _ - Public Overloads Sub AddTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow) + Public Overloads Sub AddTBPROFILE_GROUPRow(ByVal row As TBPROFILE_GROUPRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBDD_GROUPSRow(ByVal NAME As String, ByVal ECM_FK_ID As Integer, ByVal AD_SYNC As Boolean, ByVal INTERNAL As Boolean, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_GROUPSRow - Dim rowTBDD_GROUPSRow As TBDD_GROUPSRow = CType(Me.NewRow,TBDD_GROUPSRow) - Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ECM_FK_ID, AD_SYNC, INTERNAL, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - rowTBDD_GROUPSRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_GROUPSRow) - Return rowTBDD_GROUPSRow + Public Overloads Function AddTBPROFILE_GROUPRow(ByVal NAME As String, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPROFILE_GROUPRow + Dim rowTBPROFILE_GROUPRow As TBPROFILE_GROUPRow = CType(Me.NewRow,TBPROFILE_GROUPRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBPROFILE_GROUPRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPROFILE_GROUPRow) + Return rowTBPROFILE_GROUPRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPSRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPSRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPROFILE_GROUPRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPROFILE_GROUPRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_GROUPSDataTable = CType(MyBase.Clone,TBDD_GROUPSDataTable) + Dim cln As TBPROFILE_GROUPDataTable = CType(MyBase.Clone,TBPROFILE_GROUPDataTable) cln.InitVars Return cln End Function @@ -6752,7 +6448,7 @@ Partial Public Class DD_DMSLiteDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_GROUPSDataTable() + Return New TBPROFILE_GROUPDataTable() End Function _ - Public Function NewTBDD_GROUPSRow() As TBDD_GROUPSRow - Return CType(Me.NewRow,TBDD_GROUPSRow) + Public Function NewTBPROFILE_GROUPRow() As TBPROFILE_GROUPRow + Return CType(Me.NewRow,TBPROFILE_GROUPRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_GROUPSRow(builder) + Return New TBPROFILE_GROUPRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_GROUPSRow) + Return GetType(TBPROFILE_GROUPRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_GROUPSRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPSRowChanged(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) + If (Not (Me.TBPROFILE_GROUPRowChangedEvent) Is Nothing) Then + RaiseEvent TBPROFILE_GROUPRowChanged(Me, New TBPROFILE_GROUPRowChangeEvent(CType(e.Row,TBPROFILE_GROUPRow), e.Action)) End If End Sub @@ -6844,8 +6528,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_GROUPSRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPSRowChanging(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) + If (Not (Me.TBPROFILE_GROUPRowChangingEvent) Is Nothing) Then + RaiseEvent TBPROFILE_GROUPRowChanging(Me, New TBPROFILE_GROUPRowChangeEvent(CType(e.Row,TBPROFILE_GROUPRow), e.Action)) End If End Sub @@ -6853,8 +6537,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_GROUPSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPSRowDeleted(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) + If (Not (Me.TBPROFILE_GROUPRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPROFILE_GROUPRowDeleted(Me, New TBPROFILE_GROUPRowChangeEvent(CType(e.Row,TBPROFILE_GROUPRow), e.Action)) End If End Sub @@ -6862,14 +6546,14 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_GROUPSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPSRowDeleting(Me, New TBDD_GROUPSRowChangeEvent(CType(e.Row,TBDD_GROUPSRow), e.Action)) + If (Not (Me.TBPROFILE_GROUPRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPROFILE_GROUPRowDeleting(Me, New TBPROFILE_GROUPRowChangeEvent(CType(e.Row,TBPROFILE_GROUPRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_GROUPSRow(ByVal row As TBDD_GROUPSRow) + Public Sub RemoveTBPROFILE_GROUPRow(ByVal row As TBPROFILE_GROUPRow) Me.Rows.Remove(row) End Sub @@ -6896,7 +6580,7 @@ Partial Public Class DD_DMSLiteDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_GROUPSDataTable" + attribute2.FixedValue = "TBPROFILE_GROUPDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -6945,30 +6629,32 @@ Partial Public Class DD_DMSLiteDataSet ''' _ - Partial Public Class TBPROFILE_GROUPDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPROFILE_GROUPRow) + Partial Public Class FNPM_GET_FREE_USER_FOR_PROFILEDataTable + Inherits Global.System.Data.TypedTableBase(Of FNPM_GET_FREE_USER_FOR_PROFILERow) - Private columnGUID As Global.System.Data.DataColumn + Private columnSequentialOrder As Global.System.Data.DataColumn - Private columnNAME As Global.System.Data.DataColumn + Private columnUSER_ID As Global.System.Data.DataColumn - Private columnACTIVE As Global.System.Data.DataColumn + Private columnUSER_NAME As Global.System.Data.DataColumn - Private columnCOMMENT As Global.System.Data.DataColumn + Private columnUSER_PRENAME As Global.System.Data.DataColumn - Private columnADDED_WHO As Global.System.Data.DataColumn + Private columnUSER_SURNAME As Global.System.Data.DataColumn - Private columnADDED_WHEN As Global.System.Data.DataColumn + Private columnUSER_SHORTNAME As Global.System.Data.DataColumn - Private columnCHANGED_WHO As Global.System.Data.DataColumn + Private columnUSER_EMAIL As Global.System.Data.DataColumn - Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnUSER_LANGUAGE As Global.System.Data.DataColumn + + Private columnUSER_COMMENT As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBPROFILE_GROUP" + Me.TableName = "FNPM_GET_FREE_USER_FOR_PROFILE" Me.BeginInit Me.InitClass Me.EndInit @@ -7001,65 +6687,73 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SequentialOrderColumn() As Global.System.Data.DataColumn Get - Return Me.columnGUID + Return Me.columnSequentialOrder End Get End Property _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnNAME + Return Me.columnUSER_ID End Get End Property _ - Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USER_NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnACTIVE + Return Me.columnUSER_NAME End Get End Property _ - Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USER_PRENAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnCOMMENT + Return Me.columnUSER_PRENAME End Get End Property _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USER_SURNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHO + Return Me.columnUSER_SURNAME End Get End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USER_SHORTNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHEN + Return Me.columnUSER_SHORTNAME End Get End Property _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USER_EMAILColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHO + Return Me.columnUSER_EMAIL End Get End Property _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USER_LANGUAGEColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHEN + Return Me.columnUSER_LANGUAGE + End Get + End Property + + _ + Public ReadOnly Property USER_COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_COMMENT End Get End Property @@ -7074,50 +6768,44 @@ Partial Public Class DD_DMSLiteDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPROFILE_GROUPRow + Public Default ReadOnly Property Item(ByVal index As Integer) As FNPM_GET_FREE_USER_FOR_PROFILERow Get - Return CType(Me.Rows(index),TBPROFILE_GROUPRow) + Return CType(Me.Rows(index),FNPM_GET_FREE_USER_FOR_PROFILERow) End Get End Property _ - Public Event TBPROFILE_GROUPRowChanging As TBPROFILE_GROUPRowChangeEventHandler + Public Event FNPM_GET_FREE_USER_FOR_PROFILERowChanging As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler _ - Public Event TBPROFILE_GROUPRowChanged As TBPROFILE_GROUPRowChangeEventHandler + Public Event FNPM_GET_FREE_USER_FOR_PROFILERowChanged As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler _ - Public Event TBPROFILE_GROUPRowDeleting As TBPROFILE_GROUPRowChangeEventHandler + Public Event FNPM_GET_FREE_USER_FOR_PROFILERowDeleting As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler _ - Public Event TBPROFILE_GROUPRowDeleted As TBPROFILE_GROUPRowChangeEventHandler + Public Event FNPM_GET_FREE_USER_FOR_PROFILERowDeleted As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler _ - Public Overloads Sub AddTBPROFILE_GROUPRow(ByVal row As TBPROFILE_GROUPRow) + Public Overloads Sub AddFNPM_GET_FREE_USER_FOR_PROFILERow(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPROFILE_GROUPRow(ByVal NAME As String, ByVal ACTIVE As Boolean, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPROFILE_GROUPRow - Dim rowTBPROFILE_GROUPRow As TBPROFILE_GROUPRow = CType(Me.NewRow,TBPROFILE_GROUPRow) - Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ACTIVE, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - rowTBPROFILE_GROUPRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPROFILE_GROUPRow) - Return rowTBPROFILE_GROUPRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPROFILE_GROUPRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPROFILE_GROUPRow) + Public Overloads Function AddFNPM_GET_FREE_USER_FOR_PROFILERow(ByVal USER_ID As Integer, ByVal USER_NAME As String, ByVal USER_PRENAME As String, ByVal USER_SURNAME As String, ByVal USER_SHORTNAME As String, ByVal USER_EMAIL As String, ByVal USER_LANGUAGE As String, ByVal USER_COMMENT As String) As FNPM_GET_FREE_USER_FOR_PROFILERow + Dim rowFNPM_GET_FREE_USER_FOR_PROFILERow As FNPM_GET_FREE_USER_FOR_PROFILERow = CType(Me.NewRow,FNPM_GET_FREE_USER_FOR_PROFILERow) + Dim columnValuesArray() As Object = New Object() {Nothing, USER_ID, USER_NAME, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_LANGUAGE, USER_COMMENT} + rowFNPM_GET_FREE_USER_FOR_PROFILERow.ItemArray = columnValuesArray + Me.Rows.Add(rowFNPM_GET_FREE_USER_FOR_PROFILERow) + Return rowFNPM_GET_FREE_USER_FOR_PROFILERow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPROFILE_GROUPDataTable = CType(MyBase.Clone,TBPROFILE_GROUPDataTable) + Dim cln As FNPM_GET_FREE_USER_FOR_PROFILEDataTable = CType(MyBase.Clone,FNPM_GET_FREE_USER_FOR_PROFILEDataTable) cln.InitVars Return cln End Function @@ -7125,79 +6813,82 @@ Partial Public Class DD_DMSLiteDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPROFILE_GROUPDataTable() + Return New FNPM_GET_FREE_USER_FOR_PROFILEDataTable() End Function _ Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnNAME = MyBase.Columns("NAME") - Me.columnACTIVE = MyBase.Columns("ACTIVE") - Me.columnCOMMENT = MyBase.Columns("COMMENT") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnSequentialOrder = MyBase.Columns("SequentialOrder") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnUSER_NAME = MyBase.Columns("USER_NAME") + Me.columnUSER_PRENAME = MyBase.Columns("USER_PRENAME") + Me.columnUSER_SURNAME = MyBase.Columns("USER_SURNAME") + Me.columnUSER_SHORTNAME = MyBase.Columns("USER_SHORTNAME") + Me.columnUSER_EMAIL = MyBase.Columns("USER_EMAIL") + Me.columnUSER_LANGUAGE = MyBase.Columns("USER_LANGUAGE") + Me.columnUSER_COMMENT = MyBase.Columns("USER_COMMENT") 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) - Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNAME) - Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnACTIVE) - Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCOMMENT) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - 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.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - 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.AutoIncrementSeed = -1 - Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnNAME.MaxLength = 50 - Me.columnACTIVE.AllowDBNull = false - Me.columnCOMMENT.MaxLength = 200 - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnSequentialOrder = New Global.System.Data.DataColumn("SequentialOrder", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSequentialOrder) + Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_ID) + Me.columnUSER_NAME = New Global.System.Data.DataColumn("USER_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_NAME) + Me.columnUSER_PRENAME = New Global.System.Data.DataColumn("USER_PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_PRENAME) + Me.columnUSER_SURNAME = New Global.System.Data.DataColumn("USER_SURNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_SURNAME) + Me.columnUSER_SHORTNAME = New Global.System.Data.DataColumn("USER_SHORTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_SHORTNAME) + Me.columnUSER_EMAIL = New Global.System.Data.DataColumn("USER_EMAIL", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_EMAIL) + Me.columnUSER_LANGUAGE = New Global.System.Data.DataColumn("USER_LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_LANGUAGE) + Me.columnUSER_COMMENT = New Global.System.Data.DataColumn("USER_COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_COMMENT) + Me.columnSequentialOrder.AutoIncrement = true + Me.columnSequentialOrder.AutoIncrementSeed = -1 + Me.columnSequentialOrder.AutoIncrementStep = -1 + Me.columnSequentialOrder.AllowDBNull = false + Me.columnSequentialOrder.ReadOnly = true + Me.columnUSER_NAME.MaxLength = 50 + Me.columnUSER_PRENAME.MaxLength = 50 + Me.columnUSER_SURNAME.MaxLength = 50 + Me.columnUSER_SHORTNAME.MaxLength = 50 + Me.columnUSER_EMAIL.MaxLength = 100 + Me.columnUSER_LANGUAGE.MaxLength = 10 + Me.columnUSER_COMMENT.MaxLength = 500 End Sub _ - Public Function NewTBPROFILE_GROUPRow() As TBPROFILE_GROUPRow - Return CType(Me.NewRow,TBPROFILE_GROUPRow) + Public Function NewFNPM_GET_FREE_USER_FOR_PROFILERow() As FNPM_GET_FREE_USER_FOR_PROFILERow + Return CType(Me.NewRow,FNPM_GET_FREE_USER_FOR_PROFILERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPROFILE_GROUPRow(builder) + Return New FNPM_GET_FREE_USER_FOR_PROFILERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPROFILE_GROUPRow) + Return GetType(FNPM_GET_FREE_USER_FOR_PROFILERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPROFILE_GROUPRowChangedEvent) Is Nothing) Then - RaiseEvent TBPROFILE_GROUPRowChanged(Me, New TBPROFILE_GROUPRowChangeEvent(CType(e.Row,TBPROFILE_GROUPRow), e.Action)) + If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowChangedEvent) Is Nothing) Then + RaiseEvent FNPM_GET_FREE_USER_FOR_PROFILERowChanged(Me, New FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent(CType(e.Row,FNPM_GET_FREE_USER_FOR_PROFILERow), e.Action)) End If End Sub @@ -7205,8 +6896,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPROFILE_GROUPRowChangingEvent) Is Nothing) Then - RaiseEvent TBPROFILE_GROUPRowChanging(Me, New TBPROFILE_GROUPRowChangeEvent(CType(e.Row,TBPROFILE_GROUPRow), e.Action)) + If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowChangingEvent) Is Nothing) Then + RaiseEvent FNPM_GET_FREE_USER_FOR_PROFILERowChanging(Me, New FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent(CType(e.Row,FNPM_GET_FREE_USER_FOR_PROFILERow), e.Action)) End If End Sub @@ -7214,8 +6905,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPROFILE_GROUPRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPROFILE_GROUPRowDeleted(Me, New TBPROFILE_GROUPRowChangeEvent(CType(e.Row,TBPROFILE_GROUPRow), e.Action)) + If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowDeletedEvent) Is Nothing) Then + RaiseEvent FNPM_GET_FREE_USER_FOR_PROFILERowDeleted(Me, New FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent(CType(e.Row,FNPM_GET_FREE_USER_FOR_PROFILERow), e.Action)) End If End Sub @@ -7223,14 +6914,14 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPROFILE_GROUPRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPROFILE_GROUPRowDeleting(Me, New TBPROFILE_GROUPRowChangeEvent(CType(e.Row,TBPROFILE_GROUPRow), e.Action)) + If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowDeletingEvent) Is Nothing) Then + RaiseEvent FNPM_GET_FREE_USER_FOR_PROFILERowDeleting(Me, New FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent(CType(e.Row,FNPM_GET_FREE_USER_FOR_PROFILERow), e.Action)) End If End Sub _ - Public Sub RemoveTBPROFILE_GROUPRow(ByVal row As TBPROFILE_GROUPRow) + Public Sub RemoveFNPM_GET_FREE_USER_FOR_PROFILERow(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow) Me.Rows.Remove(row) End Sub @@ -7257,7 +6948,7 @@ Partial Public Class DD_DMSLiteDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPROFILE_GROUPDataTable" + attribute2.FixedValue = "FNPM_GET_FREE_USER_FOR_PROFILEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -7306,32 +6997,34 @@ Partial Public Class DD_DMSLiteDataSet ''' _ - Partial Public Class FNPM_GET_FREE_USER_FOR_PROFILEDataTable - Inherits Global.System.Data.TypedTableBase(Of FNPM_GET_FREE_USER_FOR_PROFILERow) + Partial Public Class TBDD_EMAIL_TEMPLATEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_EMAIL_TEMPLATERow) - Private columnSequentialOrder As Global.System.Data.DataColumn + Private columnGUID As Global.System.Data.DataColumn - Private columnUSER_ID As Global.System.Data.DataColumn + Private columnTITLE As Global.System.Data.DataColumn - Private columnUSER_NAME As Global.System.Data.DataColumn + Private columnEMAIL_SUBJECT As Global.System.Data.DataColumn - Private columnUSER_PRENAME As Global.System.Data.DataColumn + Private columnEMAIL_BODY1 As Global.System.Data.DataColumn - Private columnUSER_SURNAME As Global.System.Data.DataColumn + Private columnEMAIL_BODY2 As Global.System.Data.DataColumn - Private columnUSER_SHORTNAME As Global.System.Data.DataColumn + Private columnEMAIL_BODY3 As Global.System.Data.DataColumn - Private columnUSER_EMAIL As Global.System.Data.DataColumn + Private columnADDED_WHO As Global.System.Data.DataColumn - Private columnUSER_LANGUAGE As Global.System.Data.DataColumn + Private columnADDED_WHEN As Global.System.Data.DataColumn - Private columnUSER_COMMENT 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 = "FNPM_GET_FREE_USER_FOR_PROFILE" + Me.TableName = "TBDD_EMAIL_TEMPLATE" Me.BeginInit Me.InitClass Me.EndInit @@ -7364,73 +7057,81 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property SequentialOrderColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Return Me.columnSequentialOrder + Return Me.columnGUID End Get End Property _ - Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSER_ID + Return Me.columnTITLE End Get End Property _ - Public ReadOnly Property USER_NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAIL_SUBJECTColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSER_NAME + Return Me.columnEMAIL_SUBJECT End Get End Property _ - Public ReadOnly Property USER_PRENAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAIL_BODY1Column() As Global.System.Data.DataColumn Get - Return Me.columnUSER_PRENAME + Return Me.columnEMAIL_BODY1 End Get End Property _ - Public ReadOnly Property USER_SURNAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAIL_BODY2Column() As Global.System.Data.DataColumn Get - Return Me.columnUSER_SURNAME + Return Me.columnEMAIL_BODY2 End Get End Property _ - Public ReadOnly Property USER_SHORTNAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAIL_BODY3Column() As Global.System.Data.DataColumn Get - Return Me.columnUSER_SHORTNAME + Return Me.columnEMAIL_BODY3 End Get End Property _ - Public ReadOnly Property USER_EMAILColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSER_EMAIL + Return Me.columnADDED_WHO End Get End Property _ - Public ReadOnly Property USER_LANGUAGEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSER_LANGUAGE + Return Me.columnADDED_WHEN End Get End Property _ - Public ReadOnly Property USER_COMMENTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSER_COMMENT + 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 @@ -7445,44 +7146,50 @@ Partial Public Class DD_DMSLiteDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As FNPM_GET_FREE_USER_FOR_PROFILERow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_EMAIL_TEMPLATERow Get - Return CType(Me.Rows(index),FNPM_GET_FREE_USER_FOR_PROFILERow) + Return CType(Me.Rows(index),TBDD_EMAIL_TEMPLATERow) End Get End Property _ - Public Event FNPM_GET_FREE_USER_FOR_PROFILERowChanging As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler + Public Event TBDD_EMAIL_TEMPLATERowChanging As TBDD_EMAIL_TEMPLATERowChangeEventHandler _ - Public Event FNPM_GET_FREE_USER_FOR_PROFILERowChanged As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler + Public Event TBDD_EMAIL_TEMPLATERowChanged As TBDD_EMAIL_TEMPLATERowChangeEventHandler _ - Public Event FNPM_GET_FREE_USER_FOR_PROFILERowDeleting As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler + Public Event TBDD_EMAIL_TEMPLATERowDeleting As TBDD_EMAIL_TEMPLATERowChangeEventHandler _ - Public Event FNPM_GET_FREE_USER_FOR_PROFILERowDeleted As FNPM_GET_FREE_USER_FOR_PROFILERowChangeEventHandler + Public Event TBDD_EMAIL_TEMPLATERowDeleted As TBDD_EMAIL_TEMPLATERowChangeEventHandler _ - Public Overloads Sub AddFNPM_GET_FREE_USER_FOR_PROFILERow(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow) + Public Overloads Sub AddTBDD_EMAIL_TEMPLATERow(ByVal row As TBDD_EMAIL_TEMPLATERow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddFNPM_GET_FREE_USER_FOR_PROFILERow(ByVal USER_ID As Integer, ByVal USER_NAME As String, ByVal USER_PRENAME As String, ByVal USER_SURNAME As String, ByVal USER_SHORTNAME As String, ByVal USER_EMAIL As String, ByVal USER_LANGUAGE As String, ByVal USER_COMMENT As String) As FNPM_GET_FREE_USER_FOR_PROFILERow - Dim rowFNPM_GET_FREE_USER_FOR_PROFILERow As FNPM_GET_FREE_USER_FOR_PROFILERow = CType(Me.NewRow,FNPM_GET_FREE_USER_FOR_PROFILERow) - Dim columnValuesArray() As Object = New Object() {Nothing, USER_ID, USER_NAME, USER_PRENAME, USER_SURNAME, USER_SHORTNAME, USER_EMAIL, USER_LANGUAGE, USER_COMMENT} - rowFNPM_GET_FREE_USER_FOR_PROFILERow.ItemArray = columnValuesArray - Me.Rows.Add(rowFNPM_GET_FREE_USER_FOR_PROFILERow) - Return rowFNPM_GET_FREE_USER_FOR_PROFILERow + Public Overloads Function AddTBDD_EMAIL_TEMPLATERow(ByVal TITLE As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_BODY1 As String, ByVal EMAIL_BODY2 As String, ByVal EMAIL_BODY3 As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_EMAIL_TEMPLATERow + Dim rowTBDD_EMAIL_TEMPLATERow As TBDD_EMAIL_TEMPLATERow = CType(Me.NewRow,TBDD_EMAIL_TEMPLATERow) + Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBDD_EMAIL_TEMPLATERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_EMAIL_TEMPLATERow) + Return rowTBDD_EMAIL_TEMPLATERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_EMAIL_TEMPLATERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EMAIL_TEMPLATERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As FNPM_GET_FREE_USER_FOR_PROFILEDataTable = CType(MyBase.Clone,FNPM_GET_FREE_USER_FOR_PROFILEDataTable) + Dim cln As TBDD_EMAIL_TEMPLATEDataTable = CType(MyBase.Clone,TBDD_EMAIL_TEMPLATEDataTable) cln.InitVars Return cln End Function @@ -7490,82 +7197,94 @@ Partial Public Class DD_DMSLiteDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New FNPM_GET_FREE_USER_FOR_PROFILEDataTable() + Return New TBDD_EMAIL_TEMPLATEDataTable() End Function _ Friend Sub InitVars() - Me.columnSequentialOrder = MyBase.Columns("SequentialOrder") - Me.columnUSER_ID = MyBase.Columns("USER_ID") - Me.columnUSER_NAME = MyBase.Columns("USER_NAME") - Me.columnUSER_PRENAME = MyBase.Columns("USER_PRENAME") - Me.columnUSER_SURNAME = MyBase.Columns("USER_SURNAME") - Me.columnUSER_SHORTNAME = MyBase.Columns("USER_SHORTNAME") - Me.columnUSER_EMAIL = MyBase.Columns("USER_EMAIL") - Me.columnUSER_LANGUAGE = MyBase.Columns("USER_LANGUAGE") - Me.columnUSER_COMMENT = MyBase.Columns("USER_COMMENT") + Me.columnGUID = MyBase.Columns("GUID") + Me.columnTITLE = MyBase.Columns("TITLE") + Me.columnEMAIL_SUBJECT = MyBase.Columns("EMAIL_SUBJECT") + Me.columnEMAIL_BODY1 = MyBase.Columns("EMAIL_BODY1") + Me.columnEMAIL_BODY2 = MyBase.Columns("EMAIL_BODY2") + Me.columnEMAIL_BODY3 = MyBase.Columns("EMAIL_BODY3") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub _ Private Sub InitClass() - Me.columnSequentialOrder = New Global.System.Data.DataColumn("SequentialOrder", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSequentialOrder) - Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSER_ID) - Me.columnUSER_NAME = New Global.System.Data.DataColumn("USER_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSER_NAME) - Me.columnUSER_PRENAME = New Global.System.Data.DataColumn("USER_PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSER_PRENAME) - Me.columnUSER_SURNAME = New Global.System.Data.DataColumn("USER_SURNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSER_SURNAME) - Me.columnUSER_SHORTNAME = New Global.System.Data.DataColumn("USER_SHORTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSER_SHORTNAME) - Me.columnUSER_EMAIL = New Global.System.Data.DataColumn("USER_EMAIL", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSER_EMAIL) - Me.columnUSER_LANGUAGE = New Global.System.Data.DataColumn("USER_LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSER_LANGUAGE) - Me.columnUSER_COMMENT = New Global.System.Data.DataColumn("USER_COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSER_COMMENT) - Me.columnSequentialOrder.AutoIncrement = true - Me.columnSequentialOrder.AutoIncrementSeed = -1 - Me.columnSequentialOrder.AutoIncrementStep = -1 - Me.columnSequentialOrder.AllowDBNull = false - Me.columnSequentialOrder.ReadOnly = true - Me.columnUSER_NAME.MaxLength = 50 - Me.columnUSER_PRENAME.MaxLength = 50 - Me.columnUSER_SURNAME.MaxLength = 50 - Me.columnUSER_SHORTNAME.MaxLength = 50 - Me.columnUSER_EMAIL.MaxLength = 100 - Me.columnUSER_LANGUAGE.MaxLength = 10 - Me.columnUSER_COMMENT.MaxLength = 500 - End Sub - - _ - Public Function NewFNPM_GET_FREE_USER_FOR_PROFILERow() As FNPM_GET_FREE_USER_FOR_PROFILERow - Return CType(Me.NewRow,FNPM_GET_FREE_USER_FOR_PROFILERow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New FNPM_GET_FREE_USER_FOR_PROFILERow(builder) - End Function - - _ + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTITLE) + Me.columnEMAIL_SUBJECT = New Global.System.Data.DataColumn("EMAIL_SUBJECT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_SUBJECT) + Me.columnEMAIL_BODY1 = New Global.System.Data.DataColumn("EMAIL_BODY1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_BODY1) + Me.columnEMAIL_BODY2 = New Global.System.Data.DataColumn("EMAIL_BODY2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_BODY2) + Me.columnEMAIL_BODY3 = New Global.System.Data.DataColumn("EMAIL_BODY3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_BODY3) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + 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.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + 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.AutoIncrementSeed = 1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnTITLE.AllowDBNull = false + Me.columnTITLE.MaxLength = 100 + Me.columnEMAIL_SUBJECT.AllowDBNull = false + Me.columnEMAIL_SUBJECT.MaxLength = 900 + Me.columnEMAIL_BODY1.AllowDBNull = false + Me.columnEMAIL_BODY1.MaxLength = 2147483647 + Me.columnEMAIL_BODY2.AllowDBNull = false + Me.columnEMAIL_BODY2.DefaultValue = CType("",String) + Me.columnEMAIL_BODY2.MaxLength = 2147483647 + Me.columnEMAIL_BODY3.AllowDBNull = false + Me.columnEMAIL_BODY3.DefaultValue = CType("",String) + Me.columnEMAIL_BODY3.MaxLength = 2147483647 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 100 + Me.columnCHANGED_WHO.MaxLength = 100 + End Sub + + _ + Public Function NewTBDD_EMAIL_TEMPLATERow() As TBDD_EMAIL_TEMPLATERow + Return CType(Me.NewRow,TBDD_EMAIL_TEMPLATERow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBDD_EMAIL_TEMPLATERow(builder) + End Function + + _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(FNPM_GET_FREE_USER_FOR_PROFILERow) + Return GetType(TBDD_EMAIL_TEMPLATERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowChangedEvent) Is Nothing) Then - RaiseEvent FNPM_GET_FREE_USER_FOR_PROFILERowChanged(Me, New FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent(CType(e.Row,FNPM_GET_FREE_USER_FOR_PROFILERow), e.Action)) + If (Not (Me.TBDD_EMAIL_TEMPLATERowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_EMAIL_TEMPLATERowChanged(Me, New TBDD_EMAIL_TEMPLATERowChangeEvent(CType(e.Row,TBDD_EMAIL_TEMPLATERow), e.Action)) End If End Sub @@ -7573,8 +7292,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowChangingEvent) Is Nothing) Then - RaiseEvent FNPM_GET_FREE_USER_FOR_PROFILERowChanging(Me, New FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent(CType(e.Row,FNPM_GET_FREE_USER_FOR_PROFILERow), e.Action)) + If (Not (Me.TBDD_EMAIL_TEMPLATERowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_EMAIL_TEMPLATERowChanging(Me, New TBDD_EMAIL_TEMPLATERowChangeEvent(CType(e.Row,TBDD_EMAIL_TEMPLATERow), e.Action)) End If End Sub @@ -7582,8 +7301,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowDeletedEvent) Is Nothing) Then - RaiseEvent FNPM_GET_FREE_USER_FOR_PROFILERowDeleted(Me, New FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent(CType(e.Row,FNPM_GET_FREE_USER_FOR_PROFILERow), e.Action)) + If (Not (Me.TBDD_EMAIL_TEMPLATERowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_EMAIL_TEMPLATERowDeleted(Me, New TBDD_EMAIL_TEMPLATERowChangeEvent(CType(e.Row,TBDD_EMAIL_TEMPLATERow), e.Action)) End If End Sub @@ -7591,14 +7310,14 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.FNPM_GET_FREE_USER_FOR_PROFILERowDeletingEvent) Is Nothing) Then - RaiseEvent FNPM_GET_FREE_USER_FOR_PROFILERowDeleting(Me, New FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent(CType(e.Row,FNPM_GET_FREE_USER_FOR_PROFILERow), e.Action)) + If (Not (Me.TBDD_EMAIL_TEMPLATERowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_EMAIL_TEMPLATERowDeleting(Me, New TBDD_EMAIL_TEMPLATERowChangeEvent(CType(e.Row,TBDD_EMAIL_TEMPLATERow), e.Action)) End If End Sub _ - Public Sub RemoveFNPM_GET_FREE_USER_FOR_PROFILERow(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow) + Public Sub RemoveTBDD_EMAIL_TEMPLATERow(ByVal row As TBDD_EMAIL_TEMPLATERow) Me.Rows.Remove(row) End Sub @@ -7625,7 +7344,7 @@ Partial Public Class DD_DMSLiteDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "FNPM_GET_FREE_USER_FOR_PROFILEDataTable" + attribute2.FixedValue = "TBDD_EMAIL_TEMPLATEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -7674,20 +7393,30 @@ Partial Public Class DD_DMSLiteDataSet ''' _ - Partial Public Class TBDD_EMAIL_TEMPLATEDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_EMAIL_TEMPLATERow) + Partial Public Class TBDD_GUI_LANGUAGE_PHRASEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_GUI_LANGUAGE_PHRASERow) Private columnGUID As Global.System.Data.DataColumn + Private columnMODULE As Global.System.Data.DataColumn + Private columnTITLE As Global.System.Data.DataColumn - Private columnEMAIL_SUBJECT As Global.System.Data.DataColumn + Private columnLANGUAGE As Global.System.Data.DataColumn - Private columnEMAIL_BODY1 As Global.System.Data.DataColumn + Private columnCAPT_TYPE As Global.System.Data.DataColumn - Private columnEMAIL_BODY2 As Global.System.Data.DataColumn + Private columnSTRING1 As Global.System.Data.DataColumn - Private columnEMAIL_BODY3 As Global.System.Data.DataColumn + Private columnSTRING2 As Global.System.Data.DataColumn + + Private columnSTRING3 As Global.System.Data.DataColumn + + Private columnSTRING4 As Global.System.Data.DataColumn + + Private columnSTRING5 As Global.System.Data.DataColumn + + Private columnSTRING6 As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn @@ -7697,11 +7426,15 @@ Partial Public Class DD_DMSLiteDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnOBJ_NAME As Global.System.Data.DataColumn + + Private columnINTERNAL As Global.System.Data.DataColumn + _ Public Sub New() MyBase.New - Me.TableName = "TBDD_EMAIL_TEMPLATE" + Me.TableName = "TBDD_GUI_LANGUAGE_PHRASE" Me.BeginInit Me.InitClass Me.EndInit @@ -7740,6 +7473,14 @@ Partial Public Class DD_DMSLiteDataSet End Get End Property + _ + Public ReadOnly Property MODULEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMODULE + End Get + End Property + _ Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn @@ -7750,33 +7491,65 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property EMAIL_SUBJECTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn Get - Return Me.columnEMAIL_SUBJECT + Return Me.columnLANGUAGE End Get End Property _ - Public ReadOnly Property EMAIL_BODY1Column() As Global.System.Data.DataColumn + Public ReadOnly Property CAPT_TYPEColumn() As Global.System.Data.DataColumn Get - Return Me.columnEMAIL_BODY1 + Return Me.columnCAPT_TYPE End Get End Property _ - Public ReadOnly Property EMAIL_BODY2Column() As Global.System.Data.DataColumn + Public ReadOnly Property STRING1Column() As Global.System.Data.DataColumn Get - Return Me.columnEMAIL_BODY2 + Return Me.columnSTRING1 End Get End Property _ - Public ReadOnly Property EMAIL_BODY3Column() As Global.System.Data.DataColumn + Public ReadOnly Property STRING2Column() As Global.System.Data.DataColumn Get - Return Me.columnEMAIL_BODY3 + Return Me.columnSTRING2 + End Get + End Property + + _ + Public ReadOnly Property STRING3Column() As Global.System.Data.DataColumn + Get + Return Me.columnSTRING3 + End Get + End Property + + _ + Public ReadOnly Property STRING4Column() As Global.System.Data.DataColumn + Get + Return Me.columnSTRING4 + End Get + End Property + + _ + Public ReadOnly Property STRING5Column() As Global.System.Data.DataColumn + Get + Return Me.columnSTRING5 + End Get + End Property + + _ + Public ReadOnly Property STRING6Column() As Global.System.Data.DataColumn + Get + Return Me.columnSTRING6 End Get End Property @@ -7812,6 +7585,22 @@ Partial Public Class DD_DMSLiteDataSet End Get End Property + _ + Public ReadOnly Property OBJ_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOBJ_NAME + End Get + End Property + + _ + Public ReadOnly Property INTERNALColumn() As Global.System.Data.DataColumn + Get + Return Me.columnINTERNAL + End Get + End Property + _ @@ -7823,50 +7612,66 @@ Partial Public Class DD_DMSLiteDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_EMAIL_TEMPLATERow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GUI_LANGUAGE_PHRASERow Get - Return CType(Me.Rows(index),TBDD_EMAIL_TEMPLATERow) + Return CType(Me.Rows(index),TBDD_GUI_LANGUAGE_PHRASERow) End Get End Property _ - Public Event TBDD_EMAIL_TEMPLATERowChanging As TBDD_EMAIL_TEMPLATERowChangeEventHandler + Public Event TBDD_GUI_LANGUAGE_PHRASERowChanging As TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler _ - Public Event TBDD_EMAIL_TEMPLATERowChanged As TBDD_EMAIL_TEMPLATERowChangeEventHandler + Public Event TBDD_GUI_LANGUAGE_PHRASERowChanged As TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler _ - Public Event TBDD_EMAIL_TEMPLATERowDeleting As TBDD_EMAIL_TEMPLATERowChangeEventHandler + Public Event TBDD_GUI_LANGUAGE_PHRASERowDeleting As TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler _ - Public Event TBDD_EMAIL_TEMPLATERowDeleted As TBDD_EMAIL_TEMPLATERowChangeEventHandler + Public Event TBDD_GUI_LANGUAGE_PHRASERowDeleted As TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler _ - Public Overloads Sub AddTBDD_EMAIL_TEMPLATERow(ByVal row As TBDD_EMAIL_TEMPLATERow) + Public Overloads Sub AddTBDD_GUI_LANGUAGE_PHRASERow(ByVal row As TBDD_GUI_LANGUAGE_PHRASERow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBDD_EMAIL_TEMPLATERow(ByVal TITLE As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_BODY1 As String, ByVal EMAIL_BODY2 As String, ByVal EMAIL_BODY3 As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_EMAIL_TEMPLATERow - Dim rowTBDD_EMAIL_TEMPLATERow As TBDD_EMAIL_TEMPLATERow = CType(Me.NewRow,TBDD_EMAIL_TEMPLATERow) - Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - rowTBDD_EMAIL_TEMPLATERow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_EMAIL_TEMPLATERow) - Return rowTBDD_EMAIL_TEMPLATERow + Public Overloads Function AddTBDD_GUI_LANGUAGE_PHRASERow( _ + ByVal _MODULE As String, _ + ByVal TITLE As String, _ + ByVal LANGUAGE As String, _ + ByVal CAPT_TYPE As String, _ + ByVal STRING1 As String, _ + ByVal STRING2 As String, _ + ByVal STRING3 As String, _ + ByVal STRING4 As String, _ + ByVal STRING5 As String, _ + ByVal STRING6 As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal OBJ_NAME As String, _ + ByVal INTERNAL As Boolean) As TBDD_GUI_LANGUAGE_PHRASERow + Dim rowTBDD_GUI_LANGUAGE_PHRASERow As TBDD_GUI_LANGUAGE_PHRASERow = CType(Me.NewRow,TBDD_GUI_LANGUAGE_PHRASERow) + Dim columnValuesArray() As Object = New Object() {Nothing, _MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRING4, STRING5, STRING6, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, OBJ_NAME, INTERNAL} + rowTBDD_GUI_LANGUAGE_PHRASERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_GUI_LANGUAGE_PHRASERow) + Return rowTBDD_GUI_LANGUAGE_PHRASERow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_EMAIL_TEMPLATERow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EMAIL_TEMPLATERow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GUI_LANGUAGE_PHRASERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GUI_LANGUAGE_PHRASERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_EMAIL_TEMPLATEDataTable = CType(MyBase.Clone,TBDD_EMAIL_TEMPLATEDataTable) + Dim cln As TBDD_GUI_LANGUAGE_PHRASEDataTable = CType(MyBase.Clone,TBDD_GUI_LANGUAGE_PHRASEDataTable) cln.InitVars Return cln End Function @@ -7874,22 +7679,29 @@ Partial Public Class DD_DMSLiteDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_EMAIL_TEMPLATEDataTable() + Return New TBDD_GUI_LANGUAGE_PHRASEDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") + Me.columnMODULE = MyBase.Columns("MODULE") Me.columnTITLE = MyBase.Columns("TITLE") - Me.columnEMAIL_SUBJECT = MyBase.Columns("EMAIL_SUBJECT") - Me.columnEMAIL_BODY1 = MyBase.Columns("EMAIL_BODY1") - Me.columnEMAIL_BODY2 = MyBase.Columns("EMAIL_BODY2") - Me.columnEMAIL_BODY3 = MyBase.Columns("EMAIL_BODY3") + Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") + Me.columnCAPT_TYPE = MyBase.Columns("CAPT_TYPE") + Me.columnSTRING1 = MyBase.Columns("STRING1") + Me.columnSTRING2 = MyBase.Columns("STRING2") + Me.columnSTRING3 = MyBase.Columns("STRING3") + Me.columnSTRING4 = MyBase.Columns("STRING4") + Me.columnSTRING5 = MyBase.Columns("STRING5") + Me.columnSTRING6 = MyBase.Columns("STRING6") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnOBJ_NAME = MyBase.Columns("OBJ_NAME") + Me.columnINTERNAL = MyBase.Columns("INTERNAL") End Sub _ - Public Function NewTBDD_EMAIL_TEMPLATERow() As TBDD_EMAIL_TEMPLATERow - Return CType(Me.NewRow,TBDD_EMAIL_TEMPLATERow) + Public Function NewTBDD_GUI_LANGUAGE_PHRASERow() As TBDD_GUI_LANGUAGE_PHRASERow + Return CType(Me.NewRow,TBDD_GUI_LANGUAGE_PHRASERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_EMAIL_TEMPLATERow(builder) + Return New TBDD_GUI_LANGUAGE_PHRASERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_EMAIL_TEMPLATERow) + Return GetType(TBDD_GUI_LANGUAGE_PHRASERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_EMAIL_TEMPLATERowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_EMAIL_TEMPLATERowChanged(Me, New TBDD_EMAIL_TEMPLATERowChangeEvent(CType(e.Row,TBDD_EMAIL_TEMPLATERow), e.Action)) + If (Not (Me.TBDD_GUI_LANGUAGE_PHRASERowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_GUI_LANGUAGE_PHRASERowChanged(Me, New TBDD_GUI_LANGUAGE_PHRASERowChangeEvent(CType(e.Row,TBDD_GUI_LANGUAGE_PHRASERow), e.Action)) End If End Sub @@ -7969,8 +7808,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_EMAIL_TEMPLATERowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_EMAIL_TEMPLATERowChanging(Me, New TBDD_EMAIL_TEMPLATERowChangeEvent(CType(e.Row,TBDD_EMAIL_TEMPLATERow), e.Action)) + If (Not (Me.TBDD_GUI_LANGUAGE_PHRASERowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_GUI_LANGUAGE_PHRASERowChanging(Me, New TBDD_GUI_LANGUAGE_PHRASERowChangeEvent(CType(e.Row,TBDD_GUI_LANGUAGE_PHRASERow), e.Action)) End If End Sub @@ -7978,8 +7817,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_EMAIL_TEMPLATERowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_EMAIL_TEMPLATERowDeleted(Me, New TBDD_EMAIL_TEMPLATERowChangeEvent(CType(e.Row,TBDD_EMAIL_TEMPLATERow), e.Action)) + If (Not (Me.TBDD_GUI_LANGUAGE_PHRASERowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_GUI_LANGUAGE_PHRASERowDeleted(Me, New TBDD_GUI_LANGUAGE_PHRASERowChangeEvent(CType(e.Row,TBDD_GUI_LANGUAGE_PHRASERow), e.Action)) End If End Sub @@ -7987,14 +7826,14 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_EMAIL_TEMPLATERowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_EMAIL_TEMPLATERowDeleting(Me, New TBDD_EMAIL_TEMPLATERowChangeEvent(CType(e.Row,TBDD_EMAIL_TEMPLATERow), e.Action)) + If (Not (Me.TBDD_GUI_LANGUAGE_PHRASERowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_GUI_LANGUAGE_PHRASERowDeleting(Me, New TBDD_GUI_LANGUAGE_PHRASERowChangeEvent(CType(e.Row,TBDD_GUI_LANGUAGE_PHRASERow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_EMAIL_TEMPLATERow(ByVal row As TBDD_EMAIL_TEMPLATERow) + Public Sub RemoveTBDD_GUI_LANGUAGE_PHRASERow(ByVal row As TBDD_GUI_LANGUAGE_PHRASERow) Me.Rows.Remove(row) End Sub @@ -8021,7 +7860,7 @@ Partial Public Class DD_DMSLiteDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_EMAIL_TEMPLATEDataTable" + attribute2.FixedValue = "TBDD_GUI_LANGUAGE_PHRASEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -8070,48 +7909,36 @@ Partial Public Class DD_DMSLiteDataSet ''' _ - Partial Public Class TBDD_GUI_LANGUAGE_PHRASEDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_GUI_LANGUAGE_PHRASERow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnMODULE As Global.System.Data.DataColumn - - Private columnTITLE As Global.System.Data.DataColumn - - Private columnLANGUAGE As Global.System.Data.DataColumn - - Private columnCAPT_TYPE As Global.System.Data.DataColumn - - Private columnSTRING1 As Global.System.Data.DataColumn + Partial Public Class VWPM_CHART_INVOICE_MONITORDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPM_CHART_INVOICE_MONITORRow) - Private columnSTRING2 As Global.System.Data.DataColumn + Private columnAnzahl_AI As Global.System.Data.DataColumn - Private columnSTRING3 As Global.System.Data.DataColumn + Private columnNettoSumme_AI As Global.System.Data.DataColumn - Private columnSTRING4 As Global.System.Data.DataColumn + Private columnAnzahl_PE As Global.System.Data.DataColumn - Private columnSTRING5 As Global.System.Data.DataColumn + Private columnNettoSumme_PE As Global.System.Data.DataColumn - Private columnSTRING6 As Global.System.Data.DataColumn + Private columnAnzahl_FF As Global.System.Data.DataColumn - Private columnADDED_WHO As Global.System.Data.DataColumn + Private columnNettoSumme_FF As Global.System.Data.DataColumn - Private columnADDED_WHEN As Global.System.Data.DataColumn + Private columnAnzahl_FIF As Global.System.Data.DataColumn - Private columnCHANGED_WHO As Global.System.Data.DataColumn + Private columnNettoSumme_FIF As Global.System.Data.DataColumn - Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnAnzahl_ZK As Global.System.Data.DataColumn - Private columnOBJ_NAME As Global.System.Data.DataColumn + Private columnWFState As Global.System.Data.DataColumn - Private columnINTERNAL As Global.System.Data.DataColumn + Private columnNettoSumme_ZK As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBDD_GUI_LANGUAGE_PHRASE" + Me.TableName = "VWPM_CHART_INVOICE_MONITOR" Me.BeginInit Me.InitClass Me.EndInit @@ -8144,137 +7971,89 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property MODULEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnMODULE - End Get - End Property - - _ - Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTITLE - End Get - End Property - - _ - Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLANGUAGE - End Get - End Property - - _ - Public ReadOnly Property CAPT_TYPEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCAPT_TYPE - End Get - End Property - - _ - Public ReadOnly Property STRING1Column() As Global.System.Data.DataColumn - Get - Return Me.columnSTRING1 - End Get - End Property - - _ - Public ReadOnly Property STRING2Column() As Global.System.Data.DataColumn + Public ReadOnly Property Anzahl_AIColumn() As Global.System.Data.DataColumn Get - Return Me.columnSTRING2 + Return Me.columnAnzahl_AI End Get End Property _ - Public ReadOnly Property STRING3Column() As Global.System.Data.DataColumn + Public ReadOnly Property NettoSumme_AIColumn() As Global.System.Data.DataColumn Get - Return Me.columnSTRING3 + Return Me.columnNettoSumme_AI End Get End Property _ - Public ReadOnly Property STRING4Column() As Global.System.Data.DataColumn + Public ReadOnly Property Anzahl_PEColumn() As Global.System.Data.DataColumn Get - Return Me.columnSTRING4 + Return Me.columnAnzahl_PE End Get End Property _ - Public ReadOnly Property STRING5Column() As Global.System.Data.DataColumn + Public ReadOnly Property NettoSumme_PEColumn() As Global.System.Data.DataColumn Get - Return Me.columnSTRING5 + Return Me.columnNettoSumme_PE End Get End Property _ - Public ReadOnly Property STRING6Column() As Global.System.Data.DataColumn + Public ReadOnly Property Anzahl_FFColumn() As Global.System.Data.DataColumn Get - Return Me.columnSTRING6 + Return Me.columnAnzahl_FF End Get End Property _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NettoSumme_FFColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHO + Return Me.columnNettoSumme_FF End Get End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property Anzahl_FIFColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHEN + Return Me.columnAnzahl_FIF End Get End Property _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NettoSumme_FIFColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHO + Return Me.columnNettoSumme_FIF End Get End Property _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property Anzahl_ZKColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHEN + Return Me.columnAnzahl_ZK End Get End Property _ - Public ReadOnly Property OBJ_NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property WFStateColumn() As Global.System.Data.DataColumn Get - Return Me.columnOBJ_NAME + Return Me.columnWFState End Get End Property _ - Public ReadOnly Property INTERNALColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NettoSumme_ZKColumn() As Global.System.Data.DataColumn Get - Return Me.columnINTERNAL + Return Me.columnNettoSumme_ZK End Get End Property @@ -8289,66 +8068,44 @@ Partial Public Class DD_DMSLiteDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GUI_LANGUAGE_PHRASERow + Public Default ReadOnly Property Item(ByVal index As Integer) As VWPM_CHART_INVOICE_MONITORRow Get - Return CType(Me.Rows(index),TBDD_GUI_LANGUAGE_PHRASERow) + Return CType(Me.Rows(index),VWPM_CHART_INVOICE_MONITORRow) End Get End Property _ - Public Event TBDD_GUI_LANGUAGE_PHRASERowChanging As TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler + Public Event VWPM_CHART_INVOICE_MONITORRowChanging As VWPM_CHART_INVOICE_MONITORRowChangeEventHandler _ - Public Event TBDD_GUI_LANGUAGE_PHRASERowChanged As TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler + Public Event VWPM_CHART_INVOICE_MONITORRowChanged As VWPM_CHART_INVOICE_MONITORRowChangeEventHandler _ - Public Event TBDD_GUI_LANGUAGE_PHRASERowDeleting As TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler + Public Event VWPM_CHART_INVOICE_MONITORRowDeleting As VWPM_CHART_INVOICE_MONITORRowChangeEventHandler _ - Public Event TBDD_GUI_LANGUAGE_PHRASERowDeleted As TBDD_GUI_LANGUAGE_PHRASERowChangeEventHandler + Public Event VWPM_CHART_INVOICE_MONITORRowDeleted As VWPM_CHART_INVOICE_MONITORRowChangeEventHandler _ - Public Overloads Sub AddTBDD_GUI_LANGUAGE_PHRASERow(ByVal row As TBDD_GUI_LANGUAGE_PHRASERow) + Public Overloads Sub AddVWPM_CHART_INVOICE_MONITORRow(ByVal row As VWPM_CHART_INVOICE_MONITORRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBDD_GUI_LANGUAGE_PHRASERow( _ - ByVal _MODULE As String, _ - ByVal TITLE As String, _ - ByVal LANGUAGE As String, _ - ByVal CAPT_TYPE As String, _ - ByVal STRING1 As String, _ - ByVal STRING2 As String, _ - ByVal STRING3 As String, _ - ByVal STRING4 As String, _ - ByVal STRING5 As String, _ - ByVal STRING6 As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Date, _ - ByVal OBJ_NAME As String, _ - ByVal INTERNAL As Boolean) As TBDD_GUI_LANGUAGE_PHRASERow - Dim rowTBDD_GUI_LANGUAGE_PHRASERow As TBDD_GUI_LANGUAGE_PHRASERow = CType(Me.NewRow,TBDD_GUI_LANGUAGE_PHRASERow) - Dim columnValuesArray() As Object = New Object() {Nothing, _MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRING4, STRING5, STRING6, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, OBJ_NAME, INTERNAL} - rowTBDD_GUI_LANGUAGE_PHRASERow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_GUI_LANGUAGE_PHRASERow) - Return rowTBDD_GUI_LANGUAGE_PHRASERow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GUI_LANGUAGE_PHRASERow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GUI_LANGUAGE_PHRASERow) + Public Overloads Function AddVWPM_CHART_INVOICE_MONITORRow(ByVal Anzahl_AI As Integer, ByVal NettoSumme_AI As String, ByVal Anzahl_PE As Integer, ByVal NettoSumme_PE As String, ByVal Anzahl_FF As Integer, ByVal NettoSumme_FF As String, ByVal Anzahl_FIF As Integer, ByVal NettoSumme_FIF As String, ByVal Anzahl_ZK As Integer, ByVal WFState As String, ByVal NettoSumme_ZK As String) As VWPM_CHART_INVOICE_MONITORRow + Dim rowVWPM_CHART_INVOICE_MONITORRow As VWPM_CHART_INVOICE_MONITORRow = CType(Me.NewRow,VWPM_CHART_INVOICE_MONITORRow) + Dim columnValuesArray() As Object = New Object() {Anzahl_AI, NettoSumme_AI, Anzahl_PE, NettoSumme_PE, Anzahl_FF, NettoSumme_FF, Anzahl_FIF, NettoSumme_FIF, Anzahl_ZK, WFState, NettoSumme_ZK} + rowVWPM_CHART_INVOICE_MONITORRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPM_CHART_INVOICE_MONITORRow) + Return rowVWPM_CHART_INVOICE_MONITORRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_GUI_LANGUAGE_PHRASEDataTable = CType(MyBase.Clone,TBDD_GUI_LANGUAGE_PHRASEDataTable) + Dim cln As VWPM_CHART_INVOICE_MONITORDataTable = CType(MyBase.Clone,VWPM_CHART_INVOICE_MONITORDataTable) cln.InitVars Return cln End Function @@ -8356,128 +8113,93 @@ Partial Public Class DD_DMSLiteDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_GUI_LANGUAGE_PHRASEDataTable() + Return New VWPM_CHART_INVOICE_MONITORDataTable() End Function _ Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnMODULE = MyBase.Columns("MODULE") - Me.columnTITLE = MyBase.Columns("TITLE") - Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") - Me.columnCAPT_TYPE = MyBase.Columns("CAPT_TYPE") - Me.columnSTRING1 = MyBase.Columns("STRING1") - Me.columnSTRING2 = MyBase.Columns("STRING2") - Me.columnSTRING3 = MyBase.Columns("STRING3") - Me.columnSTRING4 = MyBase.Columns("STRING4") - Me.columnSTRING5 = MyBase.Columns("STRING5") - Me.columnSTRING6 = MyBase.Columns("STRING6") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnOBJ_NAME = MyBase.Columns("OBJ_NAME") - Me.columnINTERNAL = MyBase.Columns("INTERNAL") + Me.columnAnzahl_AI = MyBase.Columns("Anzahl_AI") + Me.columnNettoSumme_AI = MyBase.Columns("NettoSumme_AI") + Me.columnAnzahl_PE = MyBase.Columns("Anzahl_PE") + Me.columnNettoSumme_PE = MyBase.Columns("NettoSumme_PE") + Me.columnAnzahl_FF = MyBase.Columns("Anzahl_FF") + Me.columnNettoSumme_FF = MyBase.Columns("NettoSumme_FF") + Me.columnAnzahl_FIF = MyBase.Columns("Anzahl_FIF") + Me.columnNettoSumme_FIF = MyBase.Columns("NettoSumme_FIF") + Me.columnAnzahl_ZK = MyBase.Columns("Anzahl_ZK") + Me.columnWFState = MyBase.Columns("WFState") + Me.columnNettoSumme_ZK = MyBase.Columns("NettoSumme_ZK") 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) - Me.columnMODULE = New Global.System.Data.DataColumn("MODULE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - Me.columnMODULE.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "MODULEColumn") - Me.columnMODULE.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnMODULE") - Me.columnMODULE.ExtendedProperties.Add("Generator_UserColumnName", "MODULE") - MyBase.Columns.Add(Me.columnMODULE) - Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTITLE) - Me.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnLANGUAGE) - Me.columnCAPT_TYPE = New Global.System.Data.DataColumn("CAPT_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCAPT_TYPE) - Me.columnSTRING1 = New Global.System.Data.DataColumn("STRING1", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSTRING1) - Me.columnSTRING2 = New Global.System.Data.DataColumn("STRING2", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSTRING2) - Me.columnSTRING3 = New Global.System.Data.DataColumn("STRING3", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSTRING3) - Me.columnSTRING4 = New Global.System.Data.DataColumn("STRING4", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSTRING4) - Me.columnSTRING5 = New Global.System.Data.DataColumn("STRING5", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSTRING5) - Me.columnSTRING6 = New Global.System.Data.DataColumn("STRING6", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSTRING6) - Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADDED_WHO) - 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.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) - 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.columnOBJ_NAME = New Global.System.Data.DataColumn("OBJ_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnOBJ_NAME) - Me.columnINTERNAL = New Global.System.Data.DataColumn("INTERNAL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnINTERNAL) - 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.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnMODULE.AllowDBNull = false - Me.columnMODULE.DefaultValue = CType("PM",String) - Me.columnMODULE.MaxLength = 50 - Me.columnTITLE.AllowDBNull = false - Me.columnTITLE.MaxLength = 100 - Me.columnLANGUAGE.AllowDBNull = false - Me.columnLANGUAGE.MaxLength = 5 - Me.columnCAPT_TYPE.AllowDBNull = false - Me.columnCAPT_TYPE.MaxLength = 50 - Me.columnSTRING1.AllowDBNull = false - Me.columnSTRING1.MaxLength = 900 - Me.columnSTRING2.AllowDBNull = false - Me.columnSTRING2.DefaultValue = CType("",String) - Me.columnSTRING2.MaxLength = 900 - Me.columnSTRING3.MaxLength = 900 - Me.columnSTRING4.MaxLength = 900 - Me.columnSTRING5.MaxLength = 900 - Me.columnSTRING6.MaxLength = 900 - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 100 - Me.columnCHANGED_WHO.MaxLength = 100 - Me.columnOBJ_NAME.AllowDBNull = false - Me.columnOBJ_NAME.MaxLength = 100 - Me.columnINTERNAL.AllowDBNull = false - Me.columnINTERNAL.DefaultValue = CType(false,Boolean) + Me.columnAnzahl_AI = New Global.System.Data.DataColumn("Anzahl_AI", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAnzahl_AI) + Me.columnNettoSumme_AI = New Global.System.Data.DataColumn("NettoSumme_AI", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNettoSumme_AI) + Me.columnAnzahl_PE = New Global.System.Data.DataColumn("Anzahl_PE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAnzahl_PE) + Me.columnNettoSumme_PE = New Global.System.Data.DataColumn("NettoSumme_PE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNettoSumme_PE) + Me.columnAnzahl_FF = New Global.System.Data.DataColumn("Anzahl_FF", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAnzahl_FF) + Me.columnNettoSumme_FF = New Global.System.Data.DataColumn("NettoSumme_FF", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNettoSumme_FF) + Me.columnAnzahl_FIF = New Global.System.Data.DataColumn("Anzahl_FIF", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAnzahl_FIF) + Me.columnNettoSumme_FIF = New Global.System.Data.DataColumn("NettoSumme_FIF", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNettoSumme_FIF) + Me.columnAnzahl_ZK = New Global.System.Data.DataColumn("Anzahl_ZK", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAnzahl_ZK) + Me.columnWFState = New Global.System.Data.DataColumn("WFState", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWFState) + Me.columnNettoSumme_ZK = New Global.System.Data.DataColumn("NettoSumme_ZK", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNettoSumme_ZK) + Me.columnAnzahl_AI.ReadOnly = true + Me.columnNettoSumme_AI.ReadOnly = true + Me.columnNettoSumme_AI.MaxLength = 30 + Me.columnAnzahl_PE.ReadOnly = true + Me.columnNettoSumme_PE.ReadOnly = true + Me.columnNettoSumme_PE.MaxLength = 30 + Me.columnAnzahl_FF.ReadOnly = true + Me.columnNettoSumme_FF.ReadOnly = true + Me.columnNettoSumme_FF.MaxLength = 30 + Me.columnAnzahl_FIF.ReadOnly = true + Me.columnNettoSumme_FIF.ReadOnly = true + Me.columnNettoSumme_FIF.MaxLength = 30 + Me.columnAnzahl_ZK.ReadOnly = true + Me.columnWFState.ReadOnly = true + Me.columnWFState.MaxLength = 12 + Me.columnNettoSumme_ZK.ReadOnly = true + Me.columnNettoSumme_ZK.MaxLength = 5 End Sub _ - Public Function NewTBDD_GUI_LANGUAGE_PHRASERow() As TBDD_GUI_LANGUAGE_PHRASERow - Return CType(Me.NewRow,TBDD_GUI_LANGUAGE_PHRASERow) + Public Function NewVWPM_CHART_INVOICE_MONITORRow() As VWPM_CHART_INVOICE_MONITORRow + Return CType(Me.NewRow,VWPM_CHART_INVOICE_MONITORRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_GUI_LANGUAGE_PHRASERow(builder) + Return New VWPM_CHART_INVOICE_MONITORRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_GUI_LANGUAGE_PHRASERow) + Return GetType(VWPM_CHART_INVOICE_MONITORRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_GUI_LANGUAGE_PHRASERowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_GUI_LANGUAGE_PHRASERowChanged(Me, New TBDD_GUI_LANGUAGE_PHRASERowChangeEvent(CType(e.Row,TBDD_GUI_LANGUAGE_PHRASERow), e.Action)) + If (Not (Me.VWPM_CHART_INVOICE_MONITORRowChangedEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_INVOICE_MONITORRowChanged(Me, New VWPM_CHART_INVOICE_MONITORRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITORRow), e.Action)) End If End Sub @@ -8485,8 +8207,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_GUI_LANGUAGE_PHRASERowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_GUI_LANGUAGE_PHRASERowChanging(Me, New TBDD_GUI_LANGUAGE_PHRASERowChangeEvent(CType(e.Row,TBDD_GUI_LANGUAGE_PHRASERow), e.Action)) + If (Not (Me.VWPM_CHART_INVOICE_MONITORRowChangingEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_INVOICE_MONITORRowChanging(Me, New VWPM_CHART_INVOICE_MONITORRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITORRow), e.Action)) End If End Sub @@ -8494,8 +8216,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_GUI_LANGUAGE_PHRASERowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_GUI_LANGUAGE_PHRASERowDeleted(Me, New TBDD_GUI_LANGUAGE_PHRASERowChangeEvent(CType(e.Row,TBDD_GUI_LANGUAGE_PHRASERow), e.Action)) + If (Not (Me.VWPM_CHART_INVOICE_MONITORRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_INVOICE_MONITORRowDeleted(Me, New VWPM_CHART_INVOICE_MONITORRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITORRow), e.Action)) End If End Sub @@ -8503,14 +8225,14 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_GUI_LANGUAGE_PHRASERowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_GUI_LANGUAGE_PHRASERowDeleting(Me, New TBDD_GUI_LANGUAGE_PHRASERowChangeEvent(CType(e.Row,TBDD_GUI_LANGUAGE_PHRASERow), e.Action)) + If (Not (Me.VWPM_CHART_INVOICE_MONITORRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_INVOICE_MONITORRowDeleting(Me, New VWPM_CHART_INVOICE_MONITORRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITORRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_GUI_LANGUAGE_PHRASERow(ByVal row As TBDD_GUI_LANGUAGE_PHRASERow) + Public Sub RemoveVWPM_CHART_INVOICE_MONITORRow(ByVal row As VWPM_CHART_INVOICE_MONITORRow) Me.Rows.Remove(row) End Sub @@ -8537,7 +8259,7 @@ Partial Public Class DD_DMSLiteDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_GUI_LANGUAGE_PHRASEDataTable" + attribute2.FixedValue = "VWPM_CHART_INVOICE_MONITORDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -8586,36 +8308,22 @@ Partial Public Class DD_DMSLiteDataSet ''' _ - Partial Public Class VWPM_CHART_INVOICE_MONITORDataTable - Inherits Global.System.Data.TypedTableBase(Of VWPM_CHART_INVOICE_MONITORRow) - - Private columnAnzahl_AI As Global.System.Data.DataColumn - - Private columnNettoSumme_AI As Global.System.Data.DataColumn - - Private columnAnzahl_PE As Global.System.Data.DataColumn - - Private columnNettoSumme_PE As Global.System.Data.DataColumn - - Private columnAnzahl_FF As Global.System.Data.DataColumn - - Private columnNettoSumme_FF As Global.System.Data.DataColumn - - Private columnAnzahl_FIF As Global.System.Data.DataColumn + Partial Public Class VWPM_CHART_INVOICE_MONITOR_SERIESDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPM_CHART_INVOICE_MONITOR_SERIESRow) - Private columnNettoSumme_FIF As Global.System.Data.DataColumn + Private columnTitle As Global.System.Data.DataColumn - Private columnAnzahl_ZK As Global.System.Data.DataColumn + Private columnAnzahl As Global.System.Data.DataColumn - Private columnWFState As Global.System.Data.DataColumn + Private columnNettoSumme As Global.System.Data.DataColumn - Private columnNettoSumme_ZK As Global.System.Data.DataColumn + Private columnSEQ As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "VWPM_CHART_INVOICE_MONITOR" + Me.TableName = "VWPM_CHART_INVOICE_MONITOR_SERIES" Me.BeginInit Me.InitClass Me.EndInit @@ -8648,141 +8356,85 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property Anzahl_AIColumn() As Global.System.Data.DataColumn + Public ReadOnly Property TitleColumn() As Global.System.Data.DataColumn Get - Return Me.columnAnzahl_AI + Return Me.columnTitle End Get End Property _ - Public ReadOnly Property NettoSumme_AIColumn() As Global.System.Data.DataColumn + Public ReadOnly Property AnzahlColumn() As Global.System.Data.DataColumn Get - Return Me.columnNettoSumme_AI + Return Me.columnAnzahl End Get End Property _ - Public ReadOnly Property Anzahl_PEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NettoSummeColumn() As Global.System.Data.DataColumn Get - Return Me.columnAnzahl_PE + Return Me.columnNettoSumme End Get End Property _ - Public ReadOnly Property NettoSumme_PEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SEQColumn() As Global.System.Data.DataColumn Get - Return Me.columnNettoSumme_PE + Return Me.columnSEQ End Get End Property _ - Public ReadOnly Property Anzahl_FFColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer Get - Return Me.columnAnzahl_FF + Return Me.Rows.Count End Get End Property _ - Public ReadOnly Property NettoSumme_FFColumn() As Global.System.Data.DataColumn + Public Default ReadOnly Property Item(ByVal index As Integer) As VWPM_CHART_INVOICE_MONITOR_SERIESRow Get - Return Me.columnNettoSumme_FF + Return CType(Me.Rows(index),VWPM_CHART_INVOICE_MONITOR_SERIESRow) End Get End Property - _ - Public ReadOnly Property Anzahl_FIFColumn() As Global.System.Data.DataColumn - Get - Return Me.columnAnzahl_FIF - End Get - End Property + _ + Public Event VWPM_CHART_INVOICE_MONITOR_SERIESRowChanging As VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler + + _ + Public Event VWPM_CHART_INVOICE_MONITOR_SERIESRowChanged As VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler + + _ + Public Event VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleting As VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler + + _ + Public Event VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleted As VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler _ - Public ReadOnly Property NettoSumme_FIFColumn() As Global.System.Data.DataColumn - Get - Return Me.columnNettoSumme_FIF - End Get - End Property + Public Overloads Sub AddVWPM_CHART_INVOICE_MONITOR_SERIESRow(ByVal row As VWPM_CHART_INVOICE_MONITOR_SERIESRow) + Me.Rows.Add(row) + End Sub _ - Public ReadOnly Property Anzahl_ZKColumn() As Global.System.Data.DataColumn - Get - Return Me.columnAnzahl_ZK - End Get - End Property - - _ - Public ReadOnly Property WFStateColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWFState - End Get - End Property - - _ - Public ReadOnly Property NettoSumme_ZKColumn() As Global.System.Data.DataColumn - Get - Return Me.columnNettoSumme_ZK - 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 VWPM_CHART_INVOICE_MONITORRow - Get - Return CType(Me.Rows(index),VWPM_CHART_INVOICE_MONITORRow) - End Get - End Property - - _ - Public Event VWPM_CHART_INVOICE_MONITORRowChanging As VWPM_CHART_INVOICE_MONITORRowChangeEventHandler - - _ - Public Event VWPM_CHART_INVOICE_MONITORRowChanged As VWPM_CHART_INVOICE_MONITORRowChangeEventHandler - - _ - Public Event VWPM_CHART_INVOICE_MONITORRowDeleting As VWPM_CHART_INVOICE_MONITORRowChangeEventHandler - - _ - Public Event VWPM_CHART_INVOICE_MONITORRowDeleted As VWPM_CHART_INVOICE_MONITORRowChangeEventHandler - - _ - Public Overloads Sub AddVWPM_CHART_INVOICE_MONITORRow(ByVal row As VWPM_CHART_INVOICE_MONITORRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddVWPM_CHART_INVOICE_MONITORRow(ByVal Anzahl_AI As Integer, ByVal NettoSumme_AI As String, ByVal Anzahl_PE As Integer, ByVal NettoSumme_PE As String, ByVal Anzahl_FF As Integer, ByVal NettoSumme_FF As String, ByVal Anzahl_FIF As Integer, ByVal NettoSumme_FIF As String, ByVal Anzahl_ZK As Integer, ByVal WFState As String, ByVal NettoSumme_ZK As String) As VWPM_CHART_INVOICE_MONITORRow - Dim rowVWPM_CHART_INVOICE_MONITORRow As VWPM_CHART_INVOICE_MONITORRow = CType(Me.NewRow,VWPM_CHART_INVOICE_MONITORRow) - Dim columnValuesArray() As Object = New Object() {Anzahl_AI, NettoSumme_AI, Anzahl_PE, NettoSumme_PE, Anzahl_FF, NettoSumme_FF, Anzahl_FIF, NettoSumme_FIF, Anzahl_ZK, WFState, NettoSumme_ZK} - rowVWPM_CHART_INVOICE_MONITORRow.ItemArray = columnValuesArray - Me.Rows.Add(rowVWPM_CHART_INVOICE_MONITORRow) - Return rowVWPM_CHART_INVOICE_MONITORRow + Public Overloads Function AddVWPM_CHART_INVOICE_MONITOR_SERIESRow(ByVal Title As String, ByVal Anzahl As Integer, ByVal NettoSumme As Decimal, ByVal SEQ As Integer) As VWPM_CHART_INVOICE_MONITOR_SERIESRow + Dim rowVWPM_CHART_INVOICE_MONITOR_SERIESRow As VWPM_CHART_INVOICE_MONITOR_SERIESRow = CType(Me.NewRow,VWPM_CHART_INVOICE_MONITOR_SERIESRow) + Dim columnValuesArray() As Object = New Object() {Title, Anzahl, NettoSumme, SEQ} + rowVWPM_CHART_INVOICE_MONITOR_SERIESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPM_CHART_INVOICE_MONITOR_SERIESRow) + Return rowVWPM_CHART_INVOICE_MONITOR_SERIESRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWPM_CHART_INVOICE_MONITORDataTable = CType(MyBase.Clone,VWPM_CHART_INVOICE_MONITORDataTable) + Dim cln As VWPM_CHART_INVOICE_MONITOR_SERIESDataTable = CType(MyBase.Clone,VWPM_CHART_INVOICE_MONITOR_SERIESDataTable) cln.InitVars Return cln End Function @@ -8790,93 +8442,60 @@ Partial Public Class DD_DMSLiteDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New VWPM_CHART_INVOICE_MONITORDataTable() + Return New VWPM_CHART_INVOICE_MONITOR_SERIESDataTable() End Function _ Friend Sub InitVars() - Me.columnAnzahl_AI = MyBase.Columns("Anzahl_AI") - Me.columnNettoSumme_AI = MyBase.Columns("NettoSumme_AI") - Me.columnAnzahl_PE = MyBase.Columns("Anzahl_PE") - Me.columnNettoSumme_PE = MyBase.Columns("NettoSumme_PE") - Me.columnAnzahl_FF = MyBase.Columns("Anzahl_FF") - Me.columnNettoSumme_FF = MyBase.Columns("NettoSumme_FF") - Me.columnAnzahl_FIF = MyBase.Columns("Anzahl_FIF") - Me.columnNettoSumme_FIF = MyBase.Columns("NettoSumme_FIF") - Me.columnAnzahl_ZK = MyBase.Columns("Anzahl_ZK") - Me.columnWFState = MyBase.Columns("WFState") - Me.columnNettoSumme_ZK = MyBase.Columns("NettoSumme_ZK") + Me.columnTitle = MyBase.Columns("Title") + Me.columnAnzahl = MyBase.Columns("Anzahl") + Me.columnNettoSumme = MyBase.Columns("NettoSumme") + Me.columnSEQ = MyBase.Columns("SEQ") End Sub _ Private Sub InitClass() - Me.columnAnzahl_AI = New Global.System.Data.DataColumn("Anzahl_AI", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnAnzahl_AI) - Me.columnNettoSumme_AI = New Global.System.Data.DataColumn("NettoSumme_AI", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNettoSumme_AI) - Me.columnAnzahl_PE = New Global.System.Data.DataColumn("Anzahl_PE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnAnzahl_PE) - Me.columnNettoSumme_PE = New Global.System.Data.DataColumn("NettoSumme_PE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNettoSumme_PE) - Me.columnAnzahl_FF = New Global.System.Data.DataColumn("Anzahl_FF", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnAnzahl_FF) - Me.columnNettoSumme_FF = New Global.System.Data.DataColumn("NettoSumme_FF", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNettoSumme_FF) - Me.columnAnzahl_FIF = New Global.System.Data.DataColumn("Anzahl_FIF", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnAnzahl_FIF) - Me.columnNettoSumme_FIF = New Global.System.Data.DataColumn("NettoSumme_FIF", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNettoSumme_FIF) - Me.columnAnzahl_ZK = New Global.System.Data.DataColumn("Anzahl_ZK", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnAnzahl_ZK) - Me.columnWFState = New Global.System.Data.DataColumn("WFState", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWFState) - Me.columnNettoSumme_ZK = New Global.System.Data.DataColumn("NettoSumme_ZK", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNettoSumme_ZK) - Me.columnAnzahl_AI.ReadOnly = true - Me.columnNettoSumme_AI.ReadOnly = true - Me.columnNettoSumme_AI.MaxLength = 30 - Me.columnAnzahl_PE.ReadOnly = true - Me.columnNettoSumme_PE.ReadOnly = true - Me.columnNettoSumme_PE.MaxLength = 30 - Me.columnAnzahl_FF.ReadOnly = true - Me.columnNettoSumme_FF.ReadOnly = true - Me.columnNettoSumme_FF.MaxLength = 30 - Me.columnAnzahl_FIF.ReadOnly = true - Me.columnNettoSumme_FIF.ReadOnly = true - Me.columnNettoSumme_FIF.MaxLength = 30 - Me.columnAnzahl_ZK.ReadOnly = true - Me.columnWFState.ReadOnly = true - Me.columnWFState.MaxLength = 12 - Me.columnNettoSumme_ZK.ReadOnly = true - Me.columnNettoSumme_ZK.MaxLength = 5 + Me.columnTitle = New Global.System.Data.DataColumn("Title", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTitle) + Me.columnAnzahl = New Global.System.Data.DataColumn("Anzahl", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAnzahl) + Me.columnNettoSumme = New Global.System.Data.DataColumn("NettoSumme", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNettoSumme) + Me.columnSEQ = New Global.System.Data.DataColumn("SEQ", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQ) + Me.columnTitle.AllowDBNull = false + Me.columnTitle.MaxLength = 18 + Me.columnAnzahl.AllowDBNull = false + Me.columnNettoSumme.AllowDBNull = false + Me.columnSEQ.AllowDBNull = false End Sub _ - Public Function NewVWPM_CHART_INVOICE_MONITORRow() As VWPM_CHART_INVOICE_MONITORRow - Return CType(Me.NewRow,VWPM_CHART_INVOICE_MONITORRow) + Public Function NewVWPM_CHART_INVOICE_MONITOR_SERIESRow() As VWPM_CHART_INVOICE_MONITOR_SERIESRow + Return CType(Me.NewRow,VWPM_CHART_INVOICE_MONITOR_SERIESRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New VWPM_CHART_INVOICE_MONITORRow(builder) + Return New VWPM_CHART_INVOICE_MONITOR_SERIESRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(VWPM_CHART_INVOICE_MONITORRow) + Return GetType(VWPM_CHART_INVOICE_MONITOR_SERIESRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.VWPM_CHART_INVOICE_MONITORRowChangedEvent) Is Nothing) Then - RaiseEvent VWPM_CHART_INVOICE_MONITORRowChanged(Me, New VWPM_CHART_INVOICE_MONITORRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITORRow), e.Action)) + If (Not (Me.VWPM_CHART_INVOICE_MONITOR_SERIESRowChangedEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_INVOICE_MONITOR_SERIESRowChanged(Me, New VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITOR_SERIESRow), e.Action)) End If End Sub @@ -8884,8 +8503,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.VWPM_CHART_INVOICE_MONITORRowChangingEvent) Is Nothing) Then - RaiseEvent VWPM_CHART_INVOICE_MONITORRowChanging(Me, New VWPM_CHART_INVOICE_MONITORRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITORRow), e.Action)) + If (Not (Me.VWPM_CHART_INVOICE_MONITOR_SERIESRowChangingEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_INVOICE_MONITOR_SERIESRowChanging(Me, New VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITOR_SERIESRow), e.Action)) End If End Sub @@ -8893,8 +8512,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.VWPM_CHART_INVOICE_MONITORRowDeletedEvent) Is Nothing) Then - RaiseEvent VWPM_CHART_INVOICE_MONITORRowDeleted(Me, New VWPM_CHART_INVOICE_MONITORRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITORRow), e.Action)) + If (Not (Me.VWPM_CHART_INVOICE_MONITOR_SERIESRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleted(Me, New VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITOR_SERIESRow), e.Action)) End If End Sub @@ -8902,14 +8521,14 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.VWPM_CHART_INVOICE_MONITORRowDeletingEvent) Is Nothing) Then - RaiseEvent VWPM_CHART_INVOICE_MONITORRowDeleting(Me, New VWPM_CHART_INVOICE_MONITORRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITORRow), e.Action)) + If (Not (Me.VWPM_CHART_INVOICE_MONITOR_SERIESRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleting(Me, New VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITOR_SERIESRow), e.Action)) End If End Sub _ - Public Sub RemoveVWPM_CHART_INVOICE_MONITORRow(ByVal row As VWPM_CHART_INVOICE_MONITORRow) + Public Sub RemoveVWPM_CHART_INVOICE_MONITOR_SERIESRow(ByVal row As VWPM_CHART_INVOICE_MONITOR_SERIESRow) Me.Rows.Remove(row) End Sub @@ -8936,7 +8555,7 @@ Partial Public Class DD_DMSLiteDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "VWPM_CHART_INVOICE_MONITORDataTable" + attribute2.FixedValue = "VWPM_CHART_INVOICE_MONITOR_SERIESDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -8985,22 +8604,22 @@ Partial Public Class DD_DMSLiteDataSet ''' _ - Partial Public Class VWPM_CHART_INVOICE_MONITOR_SERIESDataTable - Inherits Global.System.Data.TypedTableBase(Of VWPM_CHART_INVOICE_MONITOR_SERIESRow) + Partial Public Class VWPM_CHART_TOP5DataTable + Inherits Global.System.Data.TypedTableBase(Of VWPM_CHART_TOP5Row) - Private columnTitle As Global.System.Data.DataColumn + Private columnKRED_NAME As Global.System.Data.DataColumn - Private columnAnzahl As Global.System.Data.DataColumn + Private columnANZ_BELEG As Global.System.Data.DataColumn - Private columnNettoSumme As Global.System.Data.DataColumn + Private columnNetto As Global.System.Data.DataColumn - Private columnSEQ As Global.System.Data.DataColumn + Private columnSkonto As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "VWPM_CHART_INVOICE_MONITOR_SERIES" + Me.TableName = "VWPM_CHART_TOP5" Me.BeginInit Me.InitClass Me.EndInit @@ -9033,33 +8652,33 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property TitleColumn() As Global.System.Data.DataColumn + Public ReadOnly Property KRED_NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnTitle + Return Me.columnKRED_NAME End Get End Property _ - Public ReadOnly Property AnzahlColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ANZ_BELEGColumn() As Global.System.Data.DataColumn Get - Return Me.columnAnzahl + Return Me.columnANZ_BELEG End Get End Property _ - Public ReadOnly Property NettoSummeColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NettoColumn() As Global.System.Data.DataColumn Get - Return Me.columnNettoSumme + Return Me.columnNetto End Get End Property _ - Public ReadOnly Property SEQColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SkontoColumn() As Global.System.Data.DataColumn Get - Return Me.columnSEQ + Return Me.columnSkonto End Get End Property @@ -9074,44 +8693,44 @@ Partial Public Class DD_DMSLiteDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As VWPM_CHART_INVOICE_MONITOR_SERIESRow + Public Default ReadOnly Property Item(ByVal index As Integer) As VWPM_CHART_TOP5Row Get - Return CType(Me.Rows(index),VWPM_CHART_INVOICE_MONITOR_SERIESRow) + Return CType(Me.Rows(index),VWPM_CHART_TOP5Row) End Get End Property _ - Public Event VWPM_CHART_INVOICE_MONITOR_SERIESRowChanging As VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler + Public Event VWPM_CHART_TOP5RowChanging As VWPM_CHART_TOP5RowChangeEventHandler _ - Public Event VWPM_CHART_INVOICE_MONITOR_SERIESRowChanged As VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler + Public Event VWPM_CHART_TOP5RowChanged As VWPM_CHART_TOP5RowChangeEventHandler _ - Public Event VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleting As VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler + Public Event VWPM_CHART_TOP5RowDeleting As VWPM_CHART_TOP5RowChangeEventHandler _ - Public Event VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleted As VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEventHandler + Public Event VWPM_CHART_TOP5RowDeleted As VWPM_CHART_TOP5RowChangeEventHandler _ - Public Overloads Sub AddVWPM_CHART_INVOICE_MONITOR_SERIESRow(ByVal row As VWPM_CHART_INVOICE_MONITOR_SERIESRow) + Public Overloads Sub AddVWPM_CHART_TOP5Row(ByVal row As VWPM_CHART_TOP5Row) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddVWPM_CHART_INVOICE_MONITOR_SERIESRow(ByVal Title As String, ByVal Anzahl As Integer, ByVal NettoSumme As Decimal, ByVal SEQ As Integer) As VWPM_CHART_INVOICE_MONITOR_SERIESRow - Dim rowVWPM_CHART_INVOICE_MONITOR_SERIESRow As VWPM_CHART_INVOICE_MONITOR_SERIESRow = CType(Me.NewRow,VWPM_CHART_INVOICE_MONITOR_SERIESRow) - Dim columnValuesArray() As Object = New Object() {Title, Anzahl, NettoSumme, SEQ} - rowVWPM_CHART_INVOICE_MONITOR_SERIESRow.ItemArray = columnValuesArray - Me.Rows.Add(rowVWPM_CHART_INVOICE_MONITOR_SERIESRow) - Return rowVWPM_CHART_INVOICE_MONITOR_SERIESRow + Public Overloads Function AddVWPM_CHART_TOP5Row(ByVal KRED_NAME As String, ByVal ANZ_BELEG As Short, ByVal Netto As Decimal, ByVal Skonto As Decimal) As VWPM_CHART_TOP5Row + Dim rowVWPM_CHART_TOP5Row As VWPM_CHART_TOP5Row = CType(Me.NewRow,VWPM_CHART_TOP5Row) + Dim columnValuesArray() As Object = New Object() {KRED_NAME, ANZ_BELEG, Netto, Skonto} + rowVWPM_CHART_TOP5Row.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPM_CHART_TOP5Row) + Return rowVWPM_CHART_TOP5Row End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWPM_CHART_INVOICE_MONITOR_SERIESDataTable = CType(MyBase.Clone,VWPM_CHART_INVOICE_MONITOR_SERIESDataTable) + Dim cln As VWPM_CHART_TOP5DataTable = CType(MyBase.Clone,VWPM_CHART_TOP5DataTable) cln.InitVars Return cln End Function @@ -9119,60 +8738,58 @@ Partial Public Class DD_DMSLiteDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New VWPM_CHART_INVOICE_MONITOR_SERIESDataTable() + Return New VWPM_CHART_TOP5DataTable() End Function _ Friend Sub InitVars() - Me.columnTitle = MyBase.Columns("Title") - Me.columnAnzahl = MyBase.Columns("Anzahl") - Me.columnNettoSumme = MyBase.Columns("NettoSumme") - Me.columnSEQ = MyBase.Columns("SEQ") + Me.columnKRED_NAME = MyBase.Columns("KRED_NAME") + Me.columnANZ_BELEG = MyBase.Columns("ANZ_BELEG") + Me.columnNetto = MyBase.Columns("Netto") + Me.columnSkonto = MyBase.Columns("Skonto") End Sub _ Private Sub InitClass() - Me.columnTitle = New Global.System.Data.DataColumn("Title", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTitle) - Me.columnAnzahl = New Global.System.Data.DataColumn("Anzahl", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnAnzahl) - Me.columnNettoSumme = New Global.System.Data.DataColumn("NettoSumme", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNettoSumme) - Me.columnSEQ = New Global.System.Data.DataColumn("SEQ", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSEQ) - Me.columnTitle.AllowDBNull = false - Me.columnTitle.MaxLength = 18 - Me.columnAnzahl.AllowDBNull = false - Me.columnNettoSumme.AllowDBNull = false - Me.columnSEQ.AllowDBNull = false - End Sub - - _ - Public Function NewVWPM_CHART_INVOICE_MONITOR_SERIESRow() As VWPM_CHART_INVOICE_MONITOR_SERIESRow - Return CType(Me.NewRow,VWPM_CHART_INVOICE_MONITOR_SERIESRow) - End Function - - _ + Me.columnKRED_NAME = New Global.System.Data.DataColumn("KRED_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKRED_NAME) + Me.columnANZ_BELEG = New Global.System.Data.DataColumn("ANZ_BELEG", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnANZ_BELEG) + Me.columnNetto = New Global.System.Data.DataColumn("Netto", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNetto) + Me.columnSkonto = New Global.System.Data.DataColumn("Skonto", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSkonto) + Me.columnKRED_NAME.AllowDBNull = false + Me.columnKRED_NAME.MaxLength = 250 + Me.columnANZ_BELEG.AllowDBNull = false + End Sub + + _ + Public Function NewVWPM_CHART_TOP5Row() As VWPM_CHART_TOP5Row + Return CType(Me.NewRow,VWPM_CHART_TOP5Row) + End Function + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New VWPM_CHART_INVOICE_MONITOR_SERIESRow(builder) + Return New VWPM_CHART_TOP5Row(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(VWPM_CHART_INVOICE_MONITOR_SERIESRow) + Return GetType(VWPM_CHART_TOP5Row) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.VWPM_CHART_INVOICE_MONITOR_SERIESRowChangedEvent) Is Nothing) Then - RaiseEvent VWPM_CHART_INVOICE_MONITOR_SERIESRowChanged(Me, New VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITOR_SERIESRow), e.Action)) + If (Not (Me.VWPM_CHART_TOP5RowChangedEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_TOP5RowChanged(Me, New VWPM_CHART_TOP5RowChangeEvent(CType(e.Row,VWPM_CHART_TOP5Row), e.Action)) End If End Sub @@ -9180,8 +8797,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.VWPM_CHART_INVOICE_MONITOR_SERIESRowChangingEvent) Is Nothing) Then - RaiseEvent VWPM_CHART_INVOICE_MONITOR_SERIESRowChanging(Me, New VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITOR_SERIESRow), e.Action)) + If (Not (Me.VWPM_CHART_TOP5RowChangingEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_TOP5RowChanging(Me, New VWPM_CHART_TOP5RowChangeEvent(CType(e.Row,VWPM_CHART_TOP5Row), e.Action)) End If End Sub @@ -9189,8 +8806,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.VWPM_CHART_INVOICE_MONITOR_SERIESRowDeletedEvent) Is Nothing) Then - RaiseEvent VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleted(Me, New VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITOR_SERIESRow), e.Action)) + If (Not (Me.VWPM_CHART_TOP5RowDeletedEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_TOP5RowDeleted(Me, New VWPM_CHART_TOP5RowChangeEvent(CType(e.Row,VWPM_CHART_TOP5Row), e.Action)) End If End Sub @@ -9198,14 +8815,14 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.VWPM_CHART_INVOICE_MONITOR_SERIESRowDeletingEvent) Is Nothing) Then - RaiseEvent VWPM_CHART_INVOICE_MONITOR_SERIESRowDeleting(Me, New VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent(CType(e.Row,VWPM_CHART_INVOICE_MONITOR_SERIESRow), e.Action)) + If (Not (Me.VWPM_CHART_TOP5RowDeletingEvent) Is Nothing) Then + RaiseEvent VWPM_CHART_TOP5RowDeleting(Me, New VWPM_CHART_TOP5RowChangeEvent(CType(e.Row,VWPM_CHART_TOP5Row), e.Action)) End If End Sub _ - Public Sub RemoveVWPM_CHART_INVOICE_MONITOR_SERIESRow(ByVal row As VWPM_CHART_INVOICE_MONITOR_SERIESRow) + Public Sub RemoveVWPM_CHART_TOP5Row(ByVal row As VWPM_CHART_TOP5Row) Me.Rows.Remove(row) End Sub @@ -9232,7 +8849,7 @@ Partial Public Class DD_DMSLiteDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "VWPM_CHART_INVOICE_MONITOR_SERIESDataTable" + attribute2.FixedValue = "VWPM_CHART_TOP5DataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -9281,22 +8898,66 @@ Partial Public Class DD_DMSLiteDataSet ''' _ - Partial Public Class VWPM_CHART_TOP5DataTable - Inherits Global.System.Data.TypedTableBase(Of VWPM_CHART_TOP5Row) + Partial Public Class TBPM_PROFILEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPM_PROFILERow) - Private columnKRED_NAME As Global.System.Data.DataColumn + Private columnGUID As Global.System.Data.DataColumn - Private columnANZ_BELEG As Global.System.Data.DataColumn + Private columnNAME As Global.System.Data.DataColumn - Private columnNetto As Global.System.Data.DataColumn + Private columnTITLE As Global.System.Data.DataColumn - Private columnSkonto As Global.System.Data.DataColumn + Private columnPRIORITY As Global.System.Data.DataColumn + + Private columnDESCRIPTION As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn + + Private columnWD_SEARCH As Global.System.Data.DataColumn + + Private columnNO_OF_DOCUMENTS 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 columnFINAL_PROFILE As Global.System.Data.DataColumn + + Private columnFINAL_TEXT As Global.System.Data.DataColumn + + Private columnMOVE2FOLDER As Global.System.Data.DataColumn + + Private columnTYPE As Global.System.Data.DataColumn + + Private columnWD_OBJECTTYPE As Global.System.Data.DataColumn + + Private columnSORT_BY_LATEST As Global.System.Data.DataColumn + + Private columnPM_VEKTOR_INDEX As Global.System.Data.DataColumn + + Private columnLOG_INDEX As Global.System.Data.DataColumn + + Private columnSQL_VIEW As Global.System.Data.DataColumn + + Private columnANNOTATE_ALL_WORK_HISTORY_ENTRIES As Global.System.Data.DataColumn + + Private columnANNOTATE_WORK_HISTORY_ENTRY As Global.System.Data.DataColumn + + Private columnWORK_HISTORY_ENTRY As Global.System.Data.DataColumn + + Private columnDISPLAY_MODE As Global.System.Data.DataColumn + + Private columnSQL_BTN_FINISH As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "VWPM_CHART_TOP5" + Me.TableName = "TBPM_PROFILE" Me.BeginInit Me.InitClass Me.EndInit @@ -9329,417 +8990,209 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property KRED_NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Return Me.columnKRED_NAME + Return Me.columnGUID End Get End Property _ - Public ReadOnly Property ANZ_BELEGColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnANZ_BELEG + Return Me.columnNAME End Get End Property _ - Public ReadOnly Property NettoColumn() As Global.System.Data.DataColumn + Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn Get - Return Me.columnNetto + Return Me.columnTITLE End Get End Property _ - Public ReadOnly Property SkontoColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PRIORITYColumn() As Global.System.Data.DataColumn Get - Return Me.columnSkonto + Return Me.columnPRIORITY End Get End Property _ - Public ReadOnly Property Count() As Integer + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public ReadOnly Property DESCRIPTIONColumn() As Global.System.Data.DataColumn Get - Return Me.Rows.Count + Return Me.columnDESCRIPTION End Get End Property _ - Public Default ReadOnly Property Item(ByVal index As Integer) As VWPM_CHART_TOP5Row + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get - Return CType(Me.Rows(index),VWPM_CHART_TOP5Row) + Return Me.columnACTIVE End Get End Property - _ - Public Event VWPM_CHART_TOP5RowChanging As VWPM_CHART_TOP5RowChangeEventHandler - - _ - Public Event VWPM_CHART_TOP5RowChanged As VWPM_CHART_TOP5RowChangeEventHandler - - _ - Public Event VWPM_CHART_TOP5RowDeleting As VWPM_CHART_TOP5RowChangeEventHandler - - _ - Public Event VWPM_CHART_TOP5RowDeleted As VWPM_CHART_TOP5RowChangeEventHandler - _ - Public Overloads Sub AddVWPM_CHART_TOP5Row(ByVal row As VWPM_CHART_TOP5Row) - Me.Rows.Add(row) - End Sub + Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWD_SEARCH + End Get + End Property _ - Public Overloads Function AddVWPM_CHART_TOP5Row(ByVal KRED_NAME As String, ByVal ANZ_BELEG As Short, ByVal Netto As Decimal, ByVal Skonto As Decimal) As VWPM_CHART_TOP5Row - Dim rowVWPM_CHART_TOP5Row As VWPM_CHART_TOP5Row = CType(Me.NewRow,VWPM_CHART_TOP5Row) - Dim columnValuesArray() As Object = New Object() {KRED_NAME, ANZ_BELEG, Netto, Skonto} - rowVWPM_CHART_TOP5Row.ItemArray = columnValuesArray - Me.Rows.Add(rowVWPM_CHART_TOP5Row) - Return rowVWPM_CHART_TOP5Row - End Function + Public ReadOnly Property NO_OF_DOCUMENTSColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNO_OF_DOCUMENTS + End Get + End Property _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWPM_CHART_TOP5DataTable = CType(MyBase.Clone,VWPM_CHART_TOP5DataTable) - cln.InitVars - Return cln - End Function + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New VWPM_CHART_TOP5DataTable() - End Function + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property _ - Friend Sub InitVars() - Me.columnKRED_NAME = MyBase.Columns("KRED_NAME") - Me.columnANZ_BELEG = MyBase.Columns("ANZ_BELEG") - Me.columnNetto = MyBase.Columns("Netto") - Me.columnSkonto = MyBase.Columns("Skonto") - End Sub + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property _ - Private Sub InitClass() - Me.columnKRED_NAME = New Global.System.Data.DataColumn("KRED_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnKRED_NAME) - Me.columnANZ_BELEG = New Global.System.Data.DataColumn("ANZ_BELEG", GetType(Short), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnANZ_BELEG) - Me.columnNetto = New Global.System.Data.DataColumn("Netto", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNetto) - Me.columnSkonto = New Global.System.Data.DataColumn("Skonto", GetType(Decimal), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSkonto) - Me.columnKRED_NAME.AllowDBNull = false - Me.columnKRED_NAME.MaxLength = 250 - Me.columnANZ_BELEG.AllowDBNull = false - End Sub + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property _ - Public Function NewVWPM_CHART_TOP5Row() As VWPM_CHART_TOP5Row - Return CType(Me.NewRow,VWPM_CHART_TOP5Row) - End Function + Public ReadOnly Property FINAL_PROFILEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFINAL_PROFILE + End Get + End Property _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New VWPM_CHART_TOP5Row(builder) - End Function + Public ReadOnly Property FINAL_TEXTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFINAL_TEXT + End Get + End Property _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(VWPM_CHART_TOP5Row) - End Function + Public ReadOnly Property MOVE2FOLDERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnMOVE2FOLDER + End Get + End Property _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.VWPM_CHART_TOP5RowChangedEvent) Is Nothing) Then - RaiseEvent VWPM_CHART_TOP5RowChanged(Me, New VWPM_CHART_TOP5RowChangeEvent(CType(e.Row,VWPM_CHART_TOP5Row), e.Action)) - End If - End Sub + Public ReadOnly Property TYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTYPE + End Get + End Property _ - Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanging(e) - If (Not (Me.VWPM_CHART_TOP5RowChangingEvent) Is Nothing) Then - RaiseEvent VWPM_CHART_TOP5RowChanging(Me, New VWPM_CHART_TOP5RowChangeEvent(CType(e.Row,VWPM_CHART_TOP5Row), e.Action)) - End If - End Sub + Public ReadOnly Property WD_OBJECTTYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWD_OBJECTTYPE + End Get + End Property _ - Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleted(e) - If (Not (Me.VWPM_CHART_TOP5RowDeletedEvent) Is Nothing) Then - RaiseEvent VWPM_CHART_TOP5RowDeleted(Me, New VWPM_CHART_TOP5RowChangeEvent(CType(e.Row,VWPM_CHART_TOP5Row), e.Action)) - End If - End Sub - - _ - Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowDeleting(e) - If (Not (Me.VWPM_CHART_TOP5RowDeletingEvent) Is Nothing) Then - RaiseEvent VWPM_CHART_TOP5RowDeleting(Me, New VWPM_CHART_TOP5RowChangeEvent(CType(e.Row,VWPM_CHART_TOP5Row), e.Action)) - End If - End Sub - - _ - Public Sub RemoveVWPM_CHART_TOP5Row(ByVal row As VWPM_CHART_TOP5Row) - 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() - Dim ds As DD_DMSLiteDataSet = New DD_DMSLiteDataSet() - Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any1.Namespace = "http://www.w3.org/2001/XMLSchema" - any1.MinOccurs = New Decimal(0) - any1.MaxOccurs = Decimal.MaxValue - any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any1) - Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() - any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" - any2.MinOccurs = New Decimal(1) - any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax - sequence.Items.Add(any2) - Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute1.Name = "namespace" - attribute1.FixedValue = ds.Namespace - type.Attributes.Add(attribute1) - Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() - attribute2.Name = "tableTypeName" - attribute2.FixedValue = "VWPM_CHART_TOP5DataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - 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 - 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) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - 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 - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBWH_CONNECTIONDataTable - Inherits Global.System.Data.TypedTableBase(Of TBWH_CONNECTIONRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnBEZEICHNUNG As Global.System.Data.DataColumn - - Private columnSQL_PROVIDER As Global.System.Data.DataColumn - - Private columnSERVER As Global.System.Data.DataColumn - - Private columnDATENBANK As Global.System.Data.DataColumn - - Private columnUSERNAME As Global.System.Data.DataColumn - - Private columnPASSWORD As Global.System.Data.DataColumn - - Private columnBEMERKUNG As Global.System.Data.DataColumn - - Private columnAKTIV As Global.System.Data.DataColumn - - Private columnERSTELLTWER As Global.System.Data.DataColumn - - Private columnERSTELLTWANN As Global.System.Data.DataColumn - - Private columnGEANDERTWER As Global.System.Data.DataColumn - - Private columnGEAENDERTWANN As Global.System.Data.DataColumn - - _ - Public Sub New() - MyBase.New - Me.TableName = "TBWH_CONNECTION" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub - - _ - Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New - Me.TableName = table.TableName - If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then - Me.CaseSensitive = table.CaseSensitive - End If - If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then - Me.Locale = table.Locale - End If - If (table.Namespace <> table.DataSet.Namespace) Then - Me.Namespace = table.Namespace - End If - 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 - End Sub - - _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn - Get - Return Me.columnBEZEICHNUNG - End Get - End Property - - _ - Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSQL_PROVIDER - End Get - End Property - - _ - Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSERVER - End Get - End Property - - _ - Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SORT_BY_LATESTColumn() As Global.System.Data.DataColumn Get - Return Me.columnDATENBANK + Return Me.columnSORT_BY_LATEST End Get End Property _ - Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PM_VEKTOR_INDEXColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSERNAME + Return Me.columnPM_VEKTOR_INDEX End Get End Property _ - Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property LOG_INDEXColumn() As Global.System.Data.DataColumn Get - Return Me.columnPASSWORD + Return Me.columnLOG_INDEX End Get End Property _ - Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SQL_VIEWColumn() As Global.System.Data.DataColumn Get - Return Me.columnBEMERKUNG + Return Me.columnSQL_VIEW End Get End Property _ - Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn() As Global.System.Data.DataColumn Get - Return Me.columnAKTIV + Return Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES End Get End Property _ - Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ANNOTATE_WORK_HISTORY_ENTRYColumn() As Global.System.Data.DataColumn Get - Return Me.columnERSTELLTWER + Return Me.columnANNOTATE_WORK_HISTORY_ENTRY End Get End Property _ - Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Public ReadOnly Property WORK_HISTORY_ENTRYColumn() As Global.System.Data.DataColumn Get - Return Me.columnERSTELLTWANN + Return Me.columnWORK_HISTORY_ENTRY End Get End Property _ - Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property DISPLAY_MODEColumn() As Global.System.Data.DataColumn Get - Return Me.columnGEANDERTWER + Return Me.columnDISPLAY_MODE End Get End Property _ - Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SQL_BTN_FINISHColumn() As Global.System.Data.DataColumn Get - Return Me.columnGEAENDERTWANN + Return Me.columnSQL_BTN_FINISH End Get End Property @@ -9754,50 +9207,78 @@ Partial Public Class DD_DMSLiteDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_CONNECTIONRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPM_PROFILERow Get - Return CType(Me.Rows(index),TBWH_CONNECTIONRow) + Return CType(Me.Rows(index),TBPM_PROFILERow) End Get End Property _ - Public Event TBWH_CONNECTIONRowChanging As TBWH_CONNECTIONRowChangeEventHandler + Public Event TBPM_PROFILERowChanging As TBPM_PROFILERowChangeEventHandler _ - Public Event TBWH_CONNECTIONRowChanged As TBWH_CONNECTIONRowChangeEventHandler + Public Event TBPM_PROFILERowChanged As TBPM_PROFILERowChangeEventHandler _ - Public Event TBWH_CONNECTIONRowDeleting As TBWH_CONNECTIONRowChangeEventHandler + Public Event TBPM_PROFILERowDeleting As TBPM_PROFILERowChangeEventHandler _ - Public Event TBWH_CONNECTIONRowDeleted As TBWH_CONNECTIONRowChangeEventHandler + Public Event TBPM_PROFILERowDeleted As TBPM_PROFILERowChangeEventHandler _ - Public Overloads Sub AddTBWH_CONNECTIONRow(ByVal row As TBWH_CONNECTIONRow) + Public Overloads Sub AddTBPM_PROFILERow(ByVal row As TBPM_PROFILERow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBWH_CONNECTIONRow(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBWH_CONNECTIONRow - Dim rowTBWH_CONNECTIONRow As TBWH_CONNECTIONRow = CType(Me.NewRow,TBWH_CONNECTIONRow) - Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} - rowTBWH_CONNECTIONRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBWH_CONNECTIONRow) - Return rowTBWH_CONNECTIONRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Short) As TBWH_CONNECTIONRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_CONNECTIONRow) - End Function - - _ + Public Function FindByNAMETITLE(ByVal NAME As String, ByVal TITLE As String) As TBPM_PROFILERow + Return CType(Me.Rows.Find(New Object() {NAME, TITLE}),TBPM_PROFILERow) + End Function + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBWH_CONNECTIONDataTable = CType(MyBase.Clone,TBWH_CONNECTIONDataTable) + Dim cln As TBPM_PROFILEDataTable = CType(MyBase.Clone,TBPM_PROFILEDataTable) cln.InitVars Return cln End Function @@ -9805,101 +9286,174 @@ Partial Public Class DD_DMSLiteDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBWH_CONNECTIONDataTable() + Return New TBPM_PROFILEDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") - Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") - Me.columnSERVER = MyBase.Columns("SERVER") - Me.columnDATENBANK = MyBase.Columns("DATENBANK") - Me.columnUSERNAME = MyBase.Columns("USERNAME") - Me.columnPASSWORD = MyBase.Columns("PASSWORD") - Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG") - Me.columnAKTIV = MyBase.Columns("AKTIV") - Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") - Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") - Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") - Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnTITLE = MyBase.Columns("TITLE") + Me.columnPRIORITY = MyBase.Columns("PRIORITY") + Me.columnDESCRIPTION = MyBase.Columns("DESCRIPTION") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnWD_SEARCH = MyBase.Columns("WD_SEARCH") + Me.columnNO_OF_DOCUMENTS = MyBase.Columns("NO_OF_DOCUMENTS") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnFINAL_PROFILE = MyBase.Columns("FINAL_PROFILE") + Me.columnFINAL_TEXT = MyBase.Columns("FINAL_TEXT") + Me.columnMOVE2FOLDER = MyBase.Columns("MOVE2FOLDER") + Me.columnTYPE = MyBase.Columns("TYPE") + Me.columnWD_OBJECTTYPE = MyBase.Columns("WD_OBJECTTYPE") + Me.columnSORT_BY_LATEST = MyBase.Columns("SORT_BY_LATEST") + Me.columnPM_VEKTOR_INDEX = MyBase.Columns("PM_VEKTOR_INDEX") + Me.columnLOG_INDEX = MyBase.Columns("LOG_INDEX") + Me.columnSQL_VIEW = MyBase.Columns("SQL_VIEW") + Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES = MyBase.Columns("ANNOTATE_ALL_WORK_HISTORY_ENTRIES") + Me.columnANNOTATE_WORK_HISTORY_ENTRY = MyBase.Columns("ANNOTATE_WORK_HISTORY_ENTRY") + Me.columnWORK_HISTORY_ENTRY = MyBase.Columns("WORK_HISTORY_ENTRY") + Me.columnDISPLAY_MODE = MyBase.Columns("DISPLAY_MODE") + Me.columnSQL_BTN_FINISH = MyBase.Columns("SQL_BTN_FINISH") End Sub _ Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) - Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBEZEICHNUNG) - Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSQL_PROVIDER) - Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSERVER) - Me.columnDATENBANK = New Global.System.Data.DataColumn("DATENBANK", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnDATENBANK) - Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSERNAME) - Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPASSWORD) - Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBEMERKUNG) - Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnAKTIV) - Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnERSTELLTWER) - Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnERSTELLTWANN) - Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGEANDERTWER) - Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGEAENDERTWANN) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTITLE) + Me.columnPRIORITY = New Global.System.Data.DataColumn("PRIORITY", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPRIORITY) + Me.columnDESCRIPTION = New Global.System.Data.DataColumn("DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDESCRIPTION) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + Me.columnWD_SEARCH = New Global.System.Data.DataColumn("WD_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWD_SEARCH) + Me.columnNO_OF_DOCUMENTS = New Global.System.Data.DataColumn("NO_OF_DOCUMENTS", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNO_OF_DOCUMENTS) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + 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.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + 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.columnFINAL_PROFILE = New Global.System.Data.DataColumn("FINAL_PROFILE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFINAL_PROFILE) + Me.columnFINAL_TEXT = New Global.System.Data.DataColumn("FINAL_TEXT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFINAL_TEXT) + Me.columnMOVE2FOLDER = New Global.System.Data.DataColumn("MOVE2FOLDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnMOVE2FOLDER) + Me.columnTYPE = New Global.System.Data.DataColumn("TYPE", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTYPE) + Me.columnWD_OBJECTTYPE = New Global.System.Data.DataColumn("WD_OBJECTTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWD_OBJECTTYPE) + Me.columnSORT_BY_LATEST = New Global.System.Data.DataColumn("SORT_BY_LATEST", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSORT_BY_LATEST) + Me.columnPM_VEKTOR_INDEX = New Global.System.Data.DataColumn("PM_VEKTOR_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPM_VEKTOR_INDEX) + Me.columnLOG_INDEX = New Global.System.Data.DataColumn("LOG_INDEX", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOG_INDEX) + Me.columnSQL_VIEW = New Global.System.Data.DataColumn("SQL_VIEW", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_VIEW) + Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES = New Global.System.Data.DataColumn("ANNOTATE_ALL_WORK_HISTORY_ENTRIES", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES) + Me.columnANNOTATE_WORK_HISTORY_ENTRY = New Global.System.Data.DataColumn("ANNOTATE_WORK_HISTORY_ENTRY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnANNOTATE_WORK_HISTORY_ENTRY) + Me.columnWORK_HISTORY_ENTRY = New Global.System.Data.DataColumn("WORK_HISTORY_ENTRY", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORK_HISTORY_ENTRY) + Me.columnDISPLAY_MODE = New Global.System.Data.DataColumn("DISPLAY_MODE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDISPLAY_MODE) + Me.columnSQL_BTN_FINISH = New Global.System.Data.DataColumn("SQL_BTN_FINISH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_BTN_FINISH) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnNAME, Me.columnTITLE}, 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.columnBEZEICHNUNG.MaxLength = 100 - Me.columnSQL_PROVIDER.MaxLength = 100 - Me.columnSERVER.MaxLength = 150 - Me.columnDATENBANK.MaxLength = 100 - Me.columnUSERNAME.MaxLength = 100 - Me.columnPASSWORD.MaxLength = 100 - Me.columnBEMERKUNG.MaxLength = 400 - Me.columnAKTIV.AllowDBNull = false - Me.columnERSTELLTWER.AllowDBNull = false - Me.columnERSTELLTWER.MaxLength = 50 - Me.columnERSTELLTWANN.AllowDBNull = false - Me.columnGEANDERTWER.MaxLength = 50 + Me.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 100 + Me.columnTITLE.AllowDBNull = false + Me.columnTITLE.MaxLength = 150 + Me.columnPRIORITY.AllowDBNull = false + Me.columnPRIORITY.DefaultValue = CType(1,Integer) + Me.columnDESCRIPTION.MaxLength = 250 + Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.DefaultValue = CType(false,Boolean) + Me.columnWD_SEARCH.AllowDBNull = false + Me.columnWD_SEARCH.DefaultValue = CType("",String) + Me.columnWD_SEARCH.MaxLength = 2147483647 + Me.columnNO_OF_DOCUMENTS.AllowDBNull = false + Me.columnNO_OF_DOCUMENTS.DefaultValue = CType(0,Integer) + Me.columnADDED_WHO.MaxLength = 30 + Me.columnCHANGED_WHO.MaxLength = 30 + Me.columnFINAL_PROFILE.AllowDBNull = false + Me.columnFINAL_PROFILE.DefaultValue = CType(false,Boolean) + Me.columnFINAL_TEXT.MaxLength = 250 + Me.columnMOVE2FOLDER.MaxLength = 1000 + Me.columnTYPE.AllowDBNull = false + Me.columnTYPE.DefaultValue = CType(1,Short) + Me.columnWD_OBJECTTYPE.AllowDBNull = false + Me.columnWD_OBJECTTYPE.DefaultValue = CType("",String) + Me.columnWD_OBJECTTYPE.MaxLength = 200 + Me.columnSORT_BY_LATEST.AllowDBNull = false + Me.columnSORT_BY_LATEST.DefaultValue = CType(true,Boolean) + Me.columnPM_VEKTOR_INDEX.AllowDBNull = false + Me.columnPM_VEKTOR_INDEX.DefaultValue = CType("",String) + Me.columnPM_VEKTOR_INDEX.MaxLength = 50 + Me.columnLOG_INDEX.AllowDBNull = false + Me.columnLOG_INDEX.DefaultValue = CType("",String) + Me.columnLOG_INDEX.MaxLength = 50 + Me.columnSQL_VIEW.AllowDBNull = false + Me.columnSQL_VIEW.DefaultValue = CType("select 'NONE'",String) + Me.columnSQL_VIEW.MaxLength = 2147483647 + Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES.AllowDBNull = false + Me.columnANNOTATE_ALL_WORK_HISTORY_ENTRIES.DefaultValue = CType(false,Boolean) + Me.columnANNOTATE_WORK_HISTORY_ENTRY.AllowDBNull = false + Me.columnANNOTATE_WORK_HISTORY_ENTRY.DefaultValue = CType(false,Boolean) + Me.columnWORK_HISTORY_ENTRY.MaxLength = 500 + Me.columnDISPLAY_MODE.AllowDBNull = false + Me.columnDISPLAY_MODE.DefaultValue = CType("Overview and Detail",String) + Me.columnDISPLAY_MODE.MaxLength = 20 + Me.columnSQL_BTN_FINISH.AllowDBNull = false + Me.columnSQL_BTN_FINISH.DefaultValue = CType("",String) + Me.columnSQL_BTN_FINISH.MaxLength = 2147483647 End Sub _ - Public Function NewTBWH_CONNECTIONRow() As TBWH_CONNECTIONRow - Return CType(Me.NewRow,TBWH_CONNECTIONRow) + Public Function NewTBPM_PROFILERow() As TBPM_PROFILERow + Return CType(Me.NewRow,TBPM_PROFILERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBWH_CONNECTIONRow(builder) + Return New TBPM_PROFILERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBWH_CONNECTIONRow) + Return GetType(TBPM_PROFILERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBWH_CONNECTIONRowChangedEvent) Is Nothing) Then - RaiseEvent TBWH_CONNECTIONRowChanged(Me, New TBWH_CONNECTIONRowChangeEvent(CType(e.Row,TBWH_CONNECTIONRow), e.Action)) + If (Not (Me.TBPM_PROFILERowChangedEvent) Is Nothing) Then + RaiseEvent TBPM_PROFILERowChanged(Me, New TBPM_PROFILERowChangeEvent(CType(e.Row,TBPM_PROFILERow), e.Action)) End If End Sub @@ -9907,8 +9461,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBWH_CONNECTIONRowChangingEvent) Is Nothing) Then - RaiseEvent TBWH_CONNECTIONRowChanging(Me, New TBWH_CONNECTIONRowChangeEvent(CType(e.Row,TBWH_CONNECTIONRow), e.Action)) + If (Not (Me.TBPM_PROFILERowChangingEvent) Is Nothing) Then + RaiseEvent TBPM_PROFILERowChanging(Me, New TBPM_PROFILERowChangeEvent(CType(e.Row,TBPM_PROFILERow), e.Action)) End If End Sub @@ -9916,8 +9470,8 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBWH_CONNECTIONRowDeletedEvent) Is Nothing) Then - RaiseEvent TBWH_CONNECTIONRowDeleted(Me, New TBWH_CONNECTIONRowChangeEvent(CType(e.Row,TBWH_CONNECTIONRow), e.Action)) + If (Not (Me.TBPM_PROFILERowDeletedEvent) Is Nothing) Then + RaiseEvent TBPM_PROFILERowDeleted(Me, New TBPM_PROFILERowChangeEvent(CType(e.Row,TBPM_PROFILERow), e.Action)) End If End Sub @@ -9925,14 +9479,14 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBWH_CONNECTIONRowDeletingEvent) Is Nothing) Then - RaiseEvent TBWH_CONNECTIONRowDeleting(Me, New TBWH_CONNECTIONRowChangeEvent(CType(e.Row,TBWH_CONNECTIONRow), e.Action)) + If (Not (Me.TBPM_PROFILERowDeletingEvent) Is Nothing) Then + RaiseEvent TBPM_PROFILERowDeleting(Me, New TBPM_PROFILERowChangeEvent(CType(e.Row,TBPM_PROFILERow), e.Action)) End If End Sub _ - Public Sub RemoveTBWH_CONNECTIONRow(ByVal row As TBWH_CONNECTIONRow) + Public Sub RemoveTBPM_PROFILERow(ByVal row As TBPM_PROFILERow) Me.Rows.Remove(row) End Sub @@ -9959,7 +9513,7 @@ Partial Public Class DD_DMSLiteDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBWH_CONNECTIONDataTable" + attribute2.FixedValue = "TBPM_PROFILEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -10004,340 +9558,773 @@ Partial Public Class DD_DMSLiteDataSet End Class ''' - '''Represents strongly named DataRow class. + '''Represents the strongly named DataTable class. ''' - Partial Public Class TBPM_PROFILE_FINAL_INDEXINGRow - Inherits Global.System.Data.DataRow + _ + Partial Public Class TBWH_CONNECTIONDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_CONNECTIONRow) - Private tableTBPM_PROFILE_FINAL_INDEXING As TBPM_PROFILE_FINAL_INDEXINGDataTable + Private columnGUID As Global.System.Data.DataColumn - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBPM_PROFILE_FINAL_INDEXING = CType(Me.Table,TBPM_PROFILE_FINAL_INDEXINGDataTable) + Private columnBEZEICHNUNG As Global.System.Data.DataColumn + + Private columnSQL_PROVIDER As Global.System.Data.DataColumn + + Private columnSERVER As Global.System.Data.DataColumn + + Private columnDATENBANK As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnPASSWORD As Global.System.Data.DataColumn + + Private columnBEMERKUNG As Global.System.Data.DataColumn + + Private columnAKTIV As Global.System.Data.DataColumn + + Private columnERSTELLTWER As Global.System.Data.DataColumn + + Private columnERSTELLTWANN As Global.System.Data.DataColumn + + Private columnGEANDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBWH_CONNECTION" + Me.BeginInit + Me.InitClass + Me.EndInit End Sub _ - Public Property INDEXNAME() As String + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + 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 + End Sub + + _ + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.INDEXNAMEColumn),String) + Return Me.columnGUID End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.INDEXNAMEColumn) = value - End Set End Property _ - Public Property VALUE() As String + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.VALUEColumn),String) + Return Me.columnBEZEICHNUNG End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.VALUEColumn) = value - End Set End Property _ - Public Property ADDED_WHO() As String + Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHOColumn),String) + Return Me.columnSQL_PROVIDER End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHOColumn) = value - End Set End Property _ - Public Property ADDED_WHEN() As Date + Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHENColumn),Date) + Return Me.columnSERVER End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHENColumn) = value - End Set End Property _ - Public Property CHANGED_WHO() As String + Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_PROFILE_FINAL_INDEXING ist DBNull"& _ - ".", e) - End Try + Return Me.columnDATENBANK End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) = value - End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_PROFILE_FINAL_INDEXING ist DBNul"& _ - "l.", e) - End Try + Return Me.columnUSERNAME End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) = value - End Set End Property _ - Public Property GUID() As Integer + Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.GUIDColumn),Integer) + Return Me.columnPASSWORD End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.GUIDColumn) = value - End Set End Property _ - Public Property CONNECTION_ID() As Short + Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CONNECTION_IDColumn),Short) + Return Me.columnBEMERKUNG End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CONNECTION_IDColumn) = value - End Set End Property _ - Public Property SQL_COMMAND() As String + Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.SQL_COMMANDColumn),String) + Return Me.columnAKTIV End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.SQL_COMMANDColumn) = value - End Set End Property _ - Public Property DESCRIPTION() As String + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.DESCRIPTIONColumn),String) + Return Me.columnERSTELLTWER End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.DESCRIPTIONColumn) = value - End Set End Property _ - Public Property ACTIVE() As Boolean + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn),Boolean) + Return Me.columnERSTELLTWANN End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn) = value - End Set End Property _ - Public Property IF_VEKTOR_BEHAVIOUR() As String + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOURColumn),String) + Return Me.columnGEANDERTWER End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOURColumn) = value - End Set End Property _ - Public Property ALLOW_NEW_VALUES() As Boolean + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUESColumn),Boolean) + Return Me.columnGEAENDERTWANN End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUESColumn) = value - End Set End Property _ - Public Property PREVENT_DUPLICATES() As Boolean + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer Get - Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PREVENT_DUPLICATESColumn),Boolean) + Return Me.Rows.Count End Get - Set - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PREVENT_DUPLICATESColumn) = value - End Set End Property _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) - End Function + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_CONNECTIONRow + Get + Return CType(Me.Rows(index),TBWH_CONNECTIONRow) + End Get + End Property + + _ + Public Event TBWH_CONNECTIONRowChanging As TBWH_CONNECTIONRowChangeEventHandler + + _ + Public Event TBWH_CONNECTIONRowChanged As TBWH_CONNECTIONRowChangeEventHandler + + _ + Public Event TBWH_CONNECTIONRowDeleting As TBWH_CONNECTIONRowChangeEventHandler + + _ + Public Event TBWH_CONNECTIONRowDeleted As TBWH_CONNECTIONRowChangeEventHandler _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Public Overloads Sub AddTBWH_CONNECTIONRow(ByVal row As TBWH_CONNECTIONRow) + Me.Rows.Add(row) End Sub _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) + Public Overloads Function AddTBWH_CONNECTIONRow(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBWH_CONNECTIONRow + Dim rowTBWH_CONNECTIONRow As TBWH_CONNECTIONRow = CType(Me.NewRow,TBWH_CONNECTIONRow) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} + rowTBWH_CONNECTIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_CONNECTIONRow) + Return rowTBWH_CONNECTIONRow End Function _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBPM_KONFIGURATIONRow - Inherits Global.System.Data.DataRow + Public Function FindByGUID(ByVal GUID As Short) As TBWH_CONNECTIONRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_CONNECTIONRow) + End Function - Private tableTBPM_KONFIGURATION As TBPM_KONFIGURATIONDataTable + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_CONNECTIONDataTable = CType(MyBase.Clone,TBWH_CONNECTIONDataTable) + cln.InitVars + Return cln + End Function _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBPM_KONFIGURATION = CType(Me.Table,TBPM_KONFIGURATIONDataTable) - End Sub + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_CONNECTIONDataTable() + End Function _ - Public Property GUID() As Byte - Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.GUIDColumn),Byte) - End Get - Set - Me(Me.tableTBPM_KONFIGURATION.GUIDColumn) = value - End Set - End Property + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") + Me.columnSERVER = MyBase.Columns("SERVER") + Me.columnDATENBANK = MyBase.Columns("DATENBANK") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnPASSWORD = MyBase.Columns("PASSWORD") + Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG") + Me.columnAKTIV = MyBase.Columns("AKTIV") + Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") + Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + End Sub _ - Public Property LIZENZEN() As String - Get - Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.LIZENZENColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LIZENZEN in Tabelle TBPM_KONFIGURATION ist DBNull.", e) + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_PROVIDER) + Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERVER) + Me.columnDATENBANK = New Global.System.Data.DataColumn("DATENBANK", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATENBANK) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPASSWORD) + Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEMERKUNG) + Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAKTIV) + Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWER) + Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEANDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + 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.columnBEZEICHNUNG.MaxLength = 100 + Me.columnSQL_PROVIDER.MaxLength = 100 + Me.columnSERVER.MaxLength = 150 + Me.columnDATENBANK.MaxLength = 100 + Me.columnUSERNAME.MaxLength = 100 + Me.columnPASSWORD.MaxLength = 100 + Me.columnBEMERKUNG.MaxLength = 400 + Me.columnAKTIV.AllowDBNull = false + Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.MaxLength = 50 + Me.columnERSTELLTWANN.AllowDBNull = false + Me.columnGEANDERTWER.MaxLength = 50 + End Sub + + _ + Public Function NewTBWH_CONNECTIONRow() As TBWH_CONNECTIONRow + Return CType(Me.NewRow,TBWH_CONNECTIONRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_CONNECTIONRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_CONNECTIONRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_CONNECTIONRowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_CONNECTIONRowChanged(Me, New TBWH_CONNECTIONRowChangeEvent(CType(e.Row,TBWH_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_CONNECTIONRowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_CONNECTIONRowChanging(Me, New TBWH_CONNECTIONRowChangeEvent(CType(e.Row,TBWH_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_CONNECTIONRowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_CONNECTIONRowDeleted(Me, New TBWH_CONNECTIONRowChangeEvent(CType(e.Row,TBWH_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_CONNECTIONRowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_CONNECTIONRowDeleting(Me, New TBWH_CONNECTIONRowChangeEvent(CType(e.Row,TBWH_CONNECTIONRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBWH_CONNECTIONRow(ByVal row As TBWH_CONNECTIONRow) + 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() + Dim ds As DD_DMSLiteDataSet = New DD_DMSLiteDataSet() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_CONNECTIONDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + 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 + 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) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + 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 + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPM_PROFILE_FINAL_INDEXINGRow + Inherits Global.System.Data.DataRow + + Private tableTBPM_PROFILE_FINAL_INDEXING As TBPM_PROFILE_FINAL_INDEXINGDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPM_PROFILE_FINAL_INDEXING = CType(Me.Table,TBPM_PROFILE_FINAL_INDEXINGDataTable) + End Sub + + _ + Public Property INDEXNAME() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.INDEXNAMEColumn),String) End Get Set - Me(Me.tableTBPM_KONFIGURATION.LIZENZENColumn) = value + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.INDEXNAMEColumn) = value End Set End Property _ - Public Property ERFASSTWER() As String + Public Property VALUE() As String Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.ERFASSTWERColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.VALUEColumn),String) End Get Set - Me(Me.tableTBPM_KONFIGURATION.ERFASSTWERColumn) = value + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.VALUEColumn) = value End Set End Property _ - Public Property ERSTELLTWER() As String + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWERColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWERColumn) = value + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHOColumn) = value End Set End Property _ - Public Property ERSTELLTWANN() As Date + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWANNColumn),Date) + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHENColumn),Date) End Get Set - Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWANNColumn) = value + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ADDED_WHENColumn) = value End Set End Property _ - Public Property GEAENDERTWER() As String + Public Property CHANGED_WHO() As String Get Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle TBPM_KONFIGURATION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_PROFILE_FINAL_INDEXING ist DBNull"& _ + ".", e) End Try End Get Set - Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn) = value + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) = value End Set End Property _ - Public Property INTERVALL_CKECK_NO_OF_FILES() As Short + Public Property CHANGED_WHEN() As Date Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.INTERVALL_CKECK_NO_OF_FILESColumn),Short) + Try + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_PROFILE_FINAL_INDEXING ist DBNul"& _ + "l.", e) + End Try End Get Set - Me(Me.tableTBPM_KONFIGURATION.INTERVALL_CKECK_NO_OF_FILESColumn) = value + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) = value End Set End Property _ - Public Property GEAENDERTWANN() As Date + Public Property GUID() As Integer Get - Try - Return CType(Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBPM_KONFIGURATION ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.GUIDColumn),Integer) End Get Set - Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn) = value + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.GUIDColumn) = value End Set End Property _ - Public Property EMAIL_ACTIVE() As Boolean + Public Property CONNECTION_ID() As Short Get - Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_ACTIVEColumn),Boolean) + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CONNECTION_IDColumn),Short) End Get Set - Me(Me.tableTBPM_KONFIGURATION.EMAIL_ACTIVEColumn) = value + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CONNECTION_IDColumn) = value End Set End Property _ - Public Property EMAIL_FROM() As String + Public Property SQL_COMMAND() As String Get - Try + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.SQL_COMMANDColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.SQL_COMMANDColumn) = value + End Set + End Property + + _ + Public Property DESCRIPTION() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.DESCRIPTIONColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.DESCRIPTIONColumn) = value + End Set + End Property + + _ + Public Property ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ACTIVEColumn) = value + End Set + End Property + + _ + Public Property IF_VEKTOR_BEHAVIOUR() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOURColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.IF_VEKTOR_BEHAVIOURColumn) = value + End Set + End Property + + _ + Public Property ALLOW_NEW_VALUES() As Boolean + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUESColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.ALLOW_NEW_VALUESColumn) = value + End Set + End Property + + _ + Public Property PREVENT_DUPLICATES() As Boolean + Get + Return CType(Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PREVENT_DUPLICATESColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.PREVENT_DUPLICATESColumn) = value + End Set + End Property + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPM_PROFILE_FINAL_INDEXING.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPM_KONFIGURATIONRow + Inherits Global.System.Data.DataRow + + Private tableTBPM_KONFIGURATION As TBPM_KONFIGURATIONDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPM_KONFIGURATION = CType(Me.Table,TBPM_KONFIGURATIONDataTable) + End Sub + + _ + Public Property GUID() As Byte + Get + Return CType(Me(Me.tableTBPM_KONFIGURATION.GUIDColumn),Byte) + End Get + Set + Me(Me.tableTBPM_KONFIGURATION.GUIDColumn) = value + End Set + End Property + + _ + Public Property LIZENZEN() As String + Get + Try + Return CType(Me(Me.tableTBPM_KONFIGURATION.LIZENZENColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte LIZENZEN in Tabelle TBPM_KONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_KONFIGURATION.LIZENZENColumn) = value + End Set + End Property + + _ + Public Property ERFASSTWER() As String + Get + Return CType(Me(Me.tableTBPM_KONFIGURATION.ERFASSTWERColumn),String) + End Get + Set + Me(Me.tableTBPM_KONFIGURATION.ERFASSTWERColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWER() As String + Get + Return CType(Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWERColumn),String) + End Get + Set + Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWERColumn) = value + End Set + End Property + + _ + Public Property ERSTELLTWANN() As Date + Get + Return CType(Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWANNColumn),Date) + End Get + Set + Me(Me.tableTBPM_KONFIGURATION.ERSTELLTWANNColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWER in Tabelle TBPM_KONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWERColumn) = value + End Set + End Property + + _ + Public Property INTERVALL_CKECK_NO_OF_FILES() As Short + Get + Return CType(Me(Me.tableTBPM_KONFIGURATION.INTERVALL_CKECK_NO_OF_FILESColumn),Short) + End Get + Set + Me(Me.tableTBPM_KONFIGURATION.INTERVALL_CKECK_NO_OF_FILESColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBPM_KONFIGURATION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_KONFIGURATION.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Property EMAIL_ACTIVE() As Boolean + Get + Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_ACTIVEColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_KONFIGURATION.EMAIL_ACTIVEColumn) = value + End Set + End Property + + _ + Public Property EMAIL_FROM() As String + Get + Try Return CType(Me(Me.tableTBPM_KONFIGURATION.EMAIL_FROMColumn),String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte EMAIL_FROM in Tabelle TBPM_KONFIGURATION ist DBNull.", e) @@ -10964,10 +10951,10 @@ Partial Public Class DD_DMSLiteDataSet _ Public Function GetTBPM_PROFILERows() As TBPM_PROFILERow() - If (Me.Table.ChildRelations("FK_TBPM_PROFILE_TYPE1") Is Nothing) Then + If (Me.Table.ChildRelations("FK_TBPM_PROFILE_TYPE") Is Nothing) Then Return New TBPM_PROFILERow(-1) {} Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_PROFILE_TYPE1")),TBPM_PROFILERow()) + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_PROFILE_TYPE")),TBPM_PROFILERow()) End If End Function End Class @@ -11041,17 +11028,6 @@ Partial Public Class DD_DMSLiteDataSet Me(Me.tableTBPM_ERROR_LOG.ADDED_WHENColumn) = value End Set End Property - - _ - Public Property TBPM_PROFILERow() As TBPM_PROFILERow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_ERROR_LOG_PROFILE1")),TBPM_PROFILERow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_ERROR_LOG_PROFILE1")) - End Set - End Property End Class ''' @@ -11641,26 +11617,26 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBPM_PROFILERow + Partial Public Class TBWH_CHECK_PROFILE_CONTROLSRow Inherits Global.System.Data.DataRow - Private tableTBPM_PROFILE As TBPM_PROFILEDataTable + Private tableTBWH_CHECK_PROFILE_CONTROLS As TBWH_CHECK_PROFILE_CONTROLSDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBPM_PROFILE = CType(Me.Table,TBPM_PROFILEDataTable) + Me.tableTBWH_CHECK_PROFILE_CONTROLS = CType(Me.Table,TBWH_CHECK_PROFILE_CONTROLSDataTable) End Sub _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBPM_PROFILE.GUIDColumn),Integer) + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.GUIDColumn),Integer) End Get Set - Me(Me.tableTBPM_PROFILE.GUIDColumn) = value + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.GUIDColumn) = value End Set End Property @@ -11668,1294 +11644,849 @@ Partial Public Class DD_DMSLiteDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Public Property NAME() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.NAMEColumn),String) + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.NAMEColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE.NAMEColumn) = value + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.NAMEColumn) = value End Set End Property _ - Public Property TITLE() As String + Public Property CTRL_TYPE() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.TITLEColumn),String) + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CTRL_TYPEColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE.TITLEColumn) = value + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CTRL_TYPEColumn) = value End Set End Property _ - Public Property PRIORITY() As Integer + Public Property INDEX_NAME() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.PRIORITYColumn),Integer) + Try + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INDEX_NAME in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNull."& _ + "", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE.PRIORITYColumn) = value + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) = value End Set End Property _ - Public Property DESCRIPTION() As String + Public Property TYP() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn),String) + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DESCRIPTION in Tabelle TBPM_PROFILE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYP in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) = value + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) = value End Set End Property _ - Public Property ACTIVE() As Boolean + Public Property VALIDATION() As Boolean Get - Return CType(Me(Me.tableTBPM_PROFILE.ACTIVEColumn),Boolean) + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.VALIDATIONColumn),Boolean) End Get Set - Me(Me.tableTBPM_PROFILE.ACTIVEColumn) = value + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.VALIDATIONColumn) = value End Set End Property _ - Public Property WD_SEARCH() As String + Public Property CHOICE_LIST() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.WD_SEARCHColumn),String) + Try + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHOICE_LIST in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNull"& _ + ".", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE.WD_SEARCHColumn) = value + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) = value End Set End Property _ - Public Property NO_OF_DOCUMENTS() As Integer + Public Property CONNECTION_ID() As Short Get - Return CType(Me(Me.tableTBPM_PROFILE.NO_OF_DOCUMENTSColumn),Integer) + Try + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNu"& _ + "ll.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE.NO_OF_DOCUMENTSColumn) = value + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property SQL_UEBERPRUEFUNG() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHOColumn),String) + Try + Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_UEBERPRUEFUNG in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist "& _ + "DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE.ADDED_WHOColumn) = value + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Function IsINDEX_NAMENull() As Boolean + Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) + End Function + + _ + Public Sub SetINDEX_NAMENull() + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTYPNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) + End Function + + _ + Public Sub SetTYPNull() + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHOICE_LISTNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) + End Function + + _ + Public Sub SetCHOICE_LISTNull() + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCONNECTION_IDNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) + End Function + + _ + Public Sub SetCONNECTION_IDNull() + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSQL_UEBERPRUEFUNGNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) + End Function + + _ + Public Sub SetSQL_UEBERPRUEFUNGNull() + Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBPM_CONTROL_TABLERows() As TBPM_CONTROL_TABLERow() + If (Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL") Is Nothing) Then + Return New TBPM_CONTROL_TABLERow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL")),TBPM_CONTROL_TABLERow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPM_PROFILE_CONTROLSRow + Inherits Global.System.Data.DataRow + + Private tableTBPM_PROFILE_CONTROLS As TBPM_PROFILE_CONTROLSDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPM_PROFILE_CONTROLS = CType(Me.Table,TBPM_PROFILE_CONTROLSDataTable) + End Sub + + _ + Public Property GUID() As Integer Get - Try - Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPM_PROFILE ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.GUIDColumn),Integer) End Get Set - Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.GUIDColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property PROFIL_ID() As Integer Get - Try - Return CType(Me(Me.tableTBPM_PROFILE.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_PROFILE ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.PROFIL_IDColumn),Integer) End Get Set - Me(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.PROFIL_IDColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property NAME() As String Get - Try - Return CType(Me(Me.tableTBPM_PROFILE.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_PROFILE ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.NAMEColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.NAMEColumn) = value End Set End Property _ - Public Property FINAL_PROFILE() As Boolean + Public Property CTRL_TYPE() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.FINAL_PROFILEColumn),Boolean) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TYPEColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE.FINAL_PROFILEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TYPEColumn) = value End Set End Property _ - Public Property FINAL_TEXT() As String + Public Property CTRL_TEXT() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE.FINAL_TEXTColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FINAL_TEXT in Tabelle TBPM_PROFILE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CTRL_TEXT in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn) = value End Set End Property _ - Public Property MOVE2FOLDER() As String + Public Property X_LOC() As Double Get - Try - Return CType(Me(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MOVE2FOLDER in Tabelle TBPM_PROFILE ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.X_LOCColumn),Double) End Get Set - Me(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.X_LOCColumn) = value End Set End Property _ - Public Property TYPE() As Short + Public Property Y_LOC() As Double Get - Return CType(Me(Me.tableTBPM_PROFILE.TYPEColumn),Short) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.Y_LOCColumn),Double) End Get Set - Me(Me.tableTBPM_PROFILE.TYPEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.Y_LOCColumn) = value End Set End Property _ - Public Property WD_OBJECTTYPE() As String + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.WD_OBJECTTYPEColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHOColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE.WD_OBJECTTYPEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHOColumn) = value End Set End Property _ - Public Property SORT_BY_LATEST() As Boolean + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBPM_PROFILE.SORT_BY_LATESTColumn),Boolean) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHENColumn),Date) End Get Set - Me(Me.tableTBPM_PROFILE.SORT_BY_LATESTColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHENColumn) = value End Set End Property _ - Public Property PM_VEKTOR_INDEX() As String + Public Property CHANGED_WHO() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.PM_VEKTOR_INDEXColumn),String) + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE.PM_VEKTOR_INDEXColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) = value End Set End Property _ - Public Property LOG_INDEX() As String + Public Property CHANGED_WHEN() As Date Get - Return CType(Me(Me.tableTBPM_PROFILE.LOG_INDEXColumn),String) + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE.LOG_INDEXColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) = value End Set End Property _ - Public Property SQL_VIEW() As String + Public Property INDEX_NAME() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.SQL_VIEWColumn),String) + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INDEX_NAME in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE.SQL_VIEWColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) = value End Set End Property _ - Public Property ANNOTATE_ALL_WORK_HISTORY_ENTRIES() As Boolean + Public Property TYP() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn),Boolean) + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYP in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE.ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) = value End Set End Property _ - Public Property ANNOTATE_WORK_HISTORY_ENTRY() As Boolean + Public Property VALIDATION() As Boolean Get - Return CType(Me(Me.tableTBPM_PROFILE.ANNOTATE_WORK_HISTORY_ENTRYColumn),Boolean) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VALIDATIONColumn),Boolean) End Get Set - Me(Me.tableTBPM_PROFILE.ANNOTATE_WORK_HISTORY_ENTRYColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.VALIDATIONColumn) = value End Set End Property _ - Public Property WORK_HISTORY_ENTRY() As String + Public Property CHOICE_LIST() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORK_HISTORY_ENTRY in Tabelle TBPM_PROFILE ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHOICE_LIST in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) = value End Set End Property _ - Public Property DISPLAY_MODE() As String + Public Property CONNECTION_ID() As Short Get - Return CType(Me(Me.tableTBPM_PROFILE.DISPLAY_MODEColumn),String) + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE.DISPLAY_MODEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) = value End Set End Property _ - Public Property SQL_BTN_FINISH() As String + Public Property SQL_UEBERPRUEFUNG() As String Get - Return CType(Me(Me.tableTBPM_PROFILE.SQL_BTN_FINISHColumn),String) + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_UEBERPRUEFUNG in Tabelle TBPM_PROFILE_CONTROLS ist DBNull"& _ + ".", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE.SQL_BTN_FINISHColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = value End Set End Property _ - Public Property TBPM_TYPERow() As TBPM_TYPERow + Public Property HEIGHT() As Short Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_PROFILE_TYPE1")),TBPM_TYPERow) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.HEIGHTColumn),Short) End Get Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_PROFILE_TYPE1")) + Me(Me.tableTBPM_PROFILE_CONTROLS.HEIGHTColumn) = value End Set End Property _ - Public Function IsDESCRIPTIONNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) - End Function - - _ - Public Sub SetDESCRIPTIONNull() - Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsFINAL_TEXTNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) - End Function - - _ - Public Sub SetFINAL_TEXTNull() - Me(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsMOVE2FOLDERNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) - End Function - - _ - Public Sub SetMOVE2FOLDERNull() - Me(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsWORK_HISTORY_ENTRYNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) - End Function - - _ - Public Sub SetWORK_HISTORY_ENTRYNull() - Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) = Global.System.Convert.DBNull - End Sub + Public Property WIDTH() As Short + Get + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.WIDTHColumn),Short) + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.WIDTHColumn) = value + End Set + End Property _ - Public Function GetTBPM_ERROR_LOGRows() As TBPM_ERROR_LOGRow() - If (Me.Table.ChildRelations("FK_TBPM_ERROR_LOG_PROFILE1") Is Nothing) Then - Return New TBPM_ERROR_LOGRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_ERROR_LOG_PROFILE1")),TBPM_ERROR_LOGRow()) - End If - End Function + Public Property FONT_STYLE() As Short + Get + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_STYLE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) = value + End Set + End Property _ - Public Function GetTBPM_PROFILE_CONTROLSRows() As TBPM_PROFILE_CONTROLSRow() - If (Me.Table.ChildRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1") Is Nothing) Then - Return New TBPM_PROFILE_CONTROLSRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1")),TBPM_PROFILE_CONTROLSRow()) - End If - End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBWH_CHECK_PROFILE_CONTROLSRow - Inherits Global.System.Data.DataRow - - Private tableTBWH_CHECK_PROFILE_CONTROLS As TBWH_CHECK_PROFILE_CONTROLSDataTable + Public Property FONT_SIZE() As Short + Get + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn),Short) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_SIZE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) = value + End Set + End Property _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBWH_CHECK_PROFILE_CONTROLS = CType(Me.Table,TBWH_CHECK_PROFILE_CONTROLSDataTable) - End Sub + Public Property FONT_FAMILY() As String + Get + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_FAMILY in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn) = value + End Set + End Property _ - Public Property GUID() As Integer + Public Property FONT_COLOR() As Long Get - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.GUIDColumn),Integer) + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn),Long) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_COLOR in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.GUIDColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn) = value End Set End Property _ - Public Property NAME() As String + Public Property READ_ONLY() As Boolean Get - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.NAMEColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.READ_ONLYColumn),Boolean) End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.NAMEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.READ_ONLYColumn) = value End Set End Property _ - Public Property CTRL_TYPE() As String + Public Property LOAD_IDX_VALUE() As Boolean Get - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CTRL_TYPEColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.LOAD_IDX_VALUEColumn),Boolean) End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CTRL_TYPEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.LOAD_IDX_VALUEColumn) = value End Set End Property _ - Public Property INDEX_NAME() As String + Public Property DEFAULT_VALUE() As String Get Try - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INDEX_NAME in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNull."& _ - "", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DEFAULT_VALUE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn) = value End Set End Property _ - Public Property TYP() As String + Public Property MULTISELECT() As Boolean Get - Try - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYP in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.MULTISELECTColumn),Boolean) End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.MULTISELECTColumn) = value End Set End Property _ - Public Property VALIDATION() As Boolean + Public Property VKT_ADD_ITEM() As Boolean Get - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.VALIDATIONColumn),Boolean) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_ADD_ITEMColumn),Boolean) End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.VALIDATIONColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_ADD_ITEMColumn) = value End Set End Property _ - Public Property CHOICE_LIST() As String + Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean Get - Try - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHOICE_LIST in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNull"& _ - ".", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean) End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_PREVENT_MULTIPLE_VALUESColumn) = value End Set End Property _ - Public Property CONNECTION_ID() As Short + Public Property REGEX_MATCH() As String Get Try - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn),Short) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist DBNu"& _ - "ll.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte REGEX_MATCH in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn) = value End Set End Property _ - Public Property SQL_UEBERPRUEFUNG() As String + Public Property REGEX_MESSAGE_DE() As String Get - Try - Return CType(Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_UEBERPRUEFUNG in Tabelle TBWH_CHECK_PROFILE_CONTROLS ist "& _ - "DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_DEColumn),String) End Get Set - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_DEColumn) = value End Set End Property _ - Public Function IsINDEX_NAMENull() As Boolean - Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) - End Function - - _ - Public Sub SetINDEX_NAMENull() - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.INDEX_NAMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsTYPNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) - End Function - - _ - Public Sub SetTYPNull() - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.TYPColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHOICE_LISTNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) - End Function - - _ - Public Sub SetCHOICE_LISTNull() - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CHOICE_LISTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCONNECTION_IDNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) - End Function - - _ - Public Sub SetCONNECTION_IDNull() - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.CONNECTION_IDColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsSQL_UEBERPRUEFUNGNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) - End Function - - _ - Public Sub SetSQL_UEBERPRUEFUNGNull() - Me(Me.tableTBWH_CHECK_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function GetTBPM_CONTROL_TABLERows() As TBPM_CONTROL_TABLERow() - If (Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL") Is Nothing) Then - Return New TBPM_CONTROL_TABLERow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_CONTROL_TABLE_CONTROL")),TBPM_CONTROL_TABLERow()) - End If - End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBPM_PROFILE_CONTROLSRow - Inherits Global.System.Data.DataRow - - Private tableTBPM_PROFILE_CONTROLS As TBPM_PROFILE_CONTROLSDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBPM_PROFILE_CONTROLS = CType(Me.Table,TBPM_PROFILE_CONTROLSDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.GUIDColumn) = value - End Set - End Property - - _ - Public Property PROFIL_ID() As Integer - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.PROFIL_IDColumn),Integer) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.PROFIL_IDColumn) = value - End Set - End Property - - _ - Public Property NAME() As String - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.NAMEColumn),String) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.NAMEColumn) = value - End Set - End Property - - _ - Public Property CTRL_TYPE() As String + Public Property REGEX_MESSAGE_EN() As String Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TYPEColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_ENColumn),String) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TYPEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_ENColumn) = value End Set End Property _ - Public Property CTRL_TEXT() As String + Public Property IMAGE_CONTROL() As Byte() Get Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.IMAGE_CONTROLColumn),Byte()) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CTRL_TEXT in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IMAGE_CONTROL in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn) = value - End Set - End Property - - _ - Public Property X_LOC() As Double - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.X_LOCColumn),Double) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.X_LOCColumn) = value - End Set - End Property - - _ - Public Property Y_LOC() As Double - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.Y_LOCColumn),Double) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.Y_LOCColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHOColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.IMAGE_CONTROLColumn) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property SQL2() As String Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SQL2Column),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL2 in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.ADDED_WHENColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.SQL2Column) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property SQL_ENABLE() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLEColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_ENABLE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLEColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property SET_CONTROL_DATA() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn),Date) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SET_CONTROL_DATAColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SET_CONTROL_DATA in Tabelle TBPM_PROFILE_CONTROLS ist DBNull."& _ + "", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.SET_CONTROL_DATAColumn) = value End Set End Property _ - Public Property INDEX_NAME() As String + Public Property SQL_ENABLE_ON_LOAD() As String Get Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLE_ON_LOADColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte INDEX_NAME in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_ENABLE_ON_LOAD in Tabelle TBPM_PROFILE_CONTROLS ist DBNul"& _ + "l.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLE_ON_LOADColumn) = value End Set End Property _ - Public Property TYP() As String + Public Property SQL_ENABLE_ON_LOAD_CONID() As Byte Get Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLE_ON_LOAD_CONIDColumn),Byte) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TYP in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_ENABLE_ON_LOAD_CONID in Tabelle TBPM_PROFILE_CONTROLS ist"& _ + " DBNull.", e) End Try End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLE_ON_LOAD_CONIDColumn) = value End Set End Property _ - Public Property VALIDATION() As Boolean + Public Property CONTROL_ACTIVE() As Boolean Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VALIDATIONColumn),Boolean) + Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CONTROL_ACTIVEColumn),Boolean) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.VALIDATIONColumn) = value + Me(Me.tableTBPM_PROFILE_CONTROLS.CONTROL_ACTIVEColumn) = value End Set End Property _ - Public Property CHOICE_LIST() As String + Public Property TBPM_PROFILERow() As TBPM_PROFILERow Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHOICE_LIST in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE")),TBPM_PROFILERow) End Get Set - Me(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) = value + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE")) End Set End Property _ - Public Property CONNECTION_ID() As Short - Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn),Short) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CONNECTION_ID in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) = value - End Set - End Property + Public Function IsCTRL_TEXTNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn) + End Function _ - Public Property SQL_UEBERPRUEFUNG() As String - Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_UEBERPRUEFUNG in Tabelle TBPM_PROFILE_CONTROLS ist DBNull"& _ - ".", e) - End Try - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = value - End Set - End Property + Public Sub SetCTRL_TEXTNull() + Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property HEIGHT() As Short - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.HEIGHTColumn),Short) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.HEIGHTColumn) = value - End Set - End Property + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) + End Function _ - Public Property WIDTH() As Short - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.WIDTHColumn),Short) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.WIDTHColumn) = value - End Set - End Property + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property FONT_STYLE() As Short - Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn),Short) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_STYLE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) = value - End Set - End Property + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) + End Function _ - Public Property FONT_SIZE() As Short - Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn),Short) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_SIZE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) = value - End Set - End Property + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property FONT_FAMILY() As String - Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_FAMILY in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn) = value - End Set - End Property + Public Function IsINDEX_NAMENull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) + End Function _ - Public Property FONT_COLOR() As Long - Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn),Long) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FONT_COLOR in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_COLORColumn) = value - End Set - End Property + Public Sub SetINDEX_NAMENull() + Me(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property READ_ONLY() As Boolean - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.READ_ONLYColumn),Boolean) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.READ_ONLYColumn) = value - End Set - End Property + Public Function IsTYPNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) + End Function _ - Public Property LOAD_IDX_VALUE() As Boolean - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.LOAD_IDX_VALUEColumn),Boolean) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.LOAD_IDX_VALUEColumn) = value - End Set - End Property + Public Sub SetTYPNull() + Me(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property DEFAULT_VALUE() As String - Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DEFAULT_VALUE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.DEFAULT_VALUEColumn) = value - End Set - End Property + Public Function IsCHOICE_LISTNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) + End Function _ - Public Property MULTISELECT() As Boolean - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.MULTISELECTColumn),Boolean) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.MULTISELECTColumn) = value - End Set - End Property + Public Sub SetCHOICE_LISTNull() + Me(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property VKT_ADD_ITEM() As Boolean - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_ADD_ITEMColumn),Boolean) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_ADD_ITEMColumn) = value - End Set - End Property + Public Function IsCONNECTION_IDNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) + End Function _ - Public Property VKT_PREVENT_MULTIPLE_VALUES() As Boolean - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_PREVENT_MULTIPLE_VALUESColumn),Boolean) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.VKT_PREVENT_MULTIPLE_VALUESColumn) = value - End Set - End Property + Public Sub SetCONNECTION_IDNull() + Me(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property REGEX_MATCH() As String - Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte REGEX_MATCH in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MATCHColumn) = value - End Set - End Property + Public Function IsSQL_UEBERPRUEFUNGNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) + End Function _ - Public Property REGEX_MESSAGE_DE() As String - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_DEColumn),String) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_DEColumn) = value - End Set - End Property + Public Sub SetSQL_UEBERPRUEFUNGNull() + Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property REGEX_MESSAGE_EN() As String - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_ENColumn),String) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.REGEX_MESSAGE_ENColumn) = value - End Set - End Property + Public Function IsFONT_STYLENull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) + End Function _ - Public Property IMAGE_CONTROL() As Byte() - Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.IMAGE_CONTROLColumn),Byte()) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte IMAGE_CONTROL in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.IMAGE_CONTROLColumn) = value - End Set - End Property + Public Sub SetFONT_STYLENull() + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property SQL2() As String - Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SQL2Column),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL2 in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.SQL2Column) = value - End Set - End Property + Public Function IsFONT_SIZENull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) + End Function _ - Public Property SQL_ENABLE() As String - Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_ENABLE in Tabelle TBPM_PROFILE_CONTROLS ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLEColumn) = value - End Set - End Property + Public Sub SetFONT_SIZENull() + Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property SET_CONTROL_DATA() As String - Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SET_CONTROL_DATAColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SET_CONTROL_DATA in Tabelle TBPM_PROFILE_CONTROLS ist DBNull."& _ - "", e) - End Try - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.SET_CONTROL_DATAColumn) = value - End Set - End Property - - _ - Public Property SQL_ENABLE_ON_LOAD() As String - Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLE_ON_LOADColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_ENABLE_ON_LOAD in Tabelle TBPM_PROFILE_CONTROLS ist DBNul"& _ - "l.", e) - End Try - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLE_ON_LOADColumn) = value - End Set - End Property - - _ - Public Property SQL_ENABLE_ON_LOAD_CONID() As Byte - Get - Try - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLE_ON_LOAD_CONIDColumn),Byte) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_ENABLE_ON_LOAD_CONID in Tabelle TBPM_PROFILE_CONTROLS ist"& _ - " DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_ENABLE_ON_LOAD_CONIDColumn) = value - End Set - End Property - - _ - Public Property CONTROL_ACTIVE() As Boolean - Get - Return CType(Me(Me.tableTBPM_PROFILE_CONTROLS.CONTROL_ACTIVEColumn),Boolean) - End Get - Set - Me(Me.tableTBPM_PROFILE_CONTROLS.CONTROL_ACTIVEColumn) = value - End Set - End Property - - _ - Public Property TBPM_PROFILERow() As TBPM_PROFILERow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1")),TBPM_PROFILERow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE1")) - End Set - End Property - - _ - Public Function IsCTRL_TEXTNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn) - End Function - - _ - Public Sub SetCTRL_TEXTNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.CTRL_TEXTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsINDEX_NAMENull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) - End Function - - _ - Public Sub SetINDEX_NAMENull() - Me(Me.tableTBPM_PROFILE_CONTROLS.INDEX_NAMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsTYPNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) - End Function - - _ - Public Sub SetTYPNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.TYPColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHOICE_LISTNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) - End Function - - _ - Public Sub SetCHOICE_LISTNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.CHOICE_LISTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCONNECTION_IDNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) - End Function - - _ - Public Sub SetCONNECTION_IDNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.CONNECTION_IDColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsSQL_UEBERPRUEFUNGNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) - End Function - - _ - Public Sub SetSQL_UEBERPRUEFUNGNull() - Me(Me.tableTBPM_PROFILE_CONTROLS.SQL_UEBERPRUEFUNGColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsFONT_STYLENull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) - End Function - - _ - Public Sub SetFONT_STYLENull() - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_STYLEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsFONT_SIZENull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) - End Function - - _ - Public Sub SetFONT_SIZENull() - Me(Me.tableTBPM_PROFILE_CONTROLS.FONT_SIZEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsFONT_FAMILYNull() As Boolean - Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn) - End Function + Public Function IsFONT_FAMILYNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE_CONTROLS.FONT_FAMILYColumn) + End Function _ @@ -15044,572 +14575,771 @@ Partial Public Class DD_DMSLiteDataSet ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBWH_CONNECTIONRow + Partial Public Class TBPM_PROFILERow Inherits Global.System.Data.DataRow - Private tableTBWH_CONNECTION As TBWH_CONNECTIONDataTable + Private tableTBPM_PROFILE As TBPM_PROFILEDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBWH_CONNECTION = CType(Me.Table,TBWH_CONNECTIONDataTable) + Me.tableTBPM_PROFILE = CType(Me.Table,TBPM_PROFILEDataTable) End Sub _ - Public Property GUID() As Short + Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBWH_CONNECTION.GUIDColumn),Short) + Return CType(Me(Me.tableTBPM_PROFILE.GUIDColumn),Integer) End Get Set - Me(Me.tableTBWH_CONNECTION.GUIDColumn) = value + Me(Me.tableTBPM_PROFILE.GUIDColumn) = value End Set End Property _ - Public Property BEZEICHNUNG() As String + Public Property NAME() As String Get - Try - Return CType(Me(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBWH_CONNECTION ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE.NAMEColumn),String) End Get Set - Me(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) = value + Me(Me.tableTBPM_PROFILE.NAMEColumn) = value End Set End Property _ - Public Property SQL_PROVIDER() As String + Public Property TITLE() As String Get - Try - Return CType(Me(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBWH_CONNECTION ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE.TITLEColumn),String) End Get Set - Me(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) = value + Me(Me.tableTBPM_PROFILE.TITLEColumn) = value End Set End Property _ - Public Property SERVER() As String + Public Property PRIORITY() As Integer Get - Try - Return CType(Me(Me.tableTBWH_CONNECTION.SERVERColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBWH_CONNECTION ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE.PRIORITYColumn),Integer) End Get Set - Me(Me.tableTBWH_CONNECTION.SERVERColumn) = value + Me(Me.tableTBPM_PROFILE.PRIORITYColumn) = value End Set End Property _ - Public Property DATENBANK() As String + Public Property DESCRIPTION() As String Get Try - Return CType(Me(Me.tableTBWH_CONNECTION.DATENBANKColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBWH_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DESCRIPTION in Tabelle TBPM_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBWH_CONNECTION.DATENBANKColumn) = value + Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) = value End Set End Property _ - Public Property USERNAME() As String + Public Property ACTIVE() As Boolean Get - Try - Return CType(Me(Me.tableTBWH_CONNECTION.USERNAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBWH_CONNECTION ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE.ACTIVEColumn),Boolean) End Get Set - Me(Me.tableTBWH_CONNECTION.USERNAMEColumn) = value + Me(Me.tableTBPM_PROFILE.ACTIVEColumn) = value End Set End Property _ - Public Property PASSWORD() As String + Public Property WD_SEARCH() As String Get - Try - Return CType(Me(Me.tableTBWH_CONNECTION.PASSWORDColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBWH_CONNECTION ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE.WD_SEARCHColumn),String) End Get Set - Me(Me.tableTBWH_CONNECTION.PASSWORDColumn) = value + Me(Me.tableTBPM_PROFILE.WD_SEARCHColumn) = value End Set End Property _ - Public Property BEMERKUNG() As String + Public Property NO_OF_DOCUMENTS() As Integer Get - Try - Return CType(Me(Me.tableTBWH_CONNECTION.BEMERKUNGColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBWH_CONNECTION ist DBNull.", e) - End Try + Return CType(Me(Me.tableTBPM_PROFILE.NO_OF_DOCUMENTSColumn),Integer) End Get Set - Me(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) = value + Me(Me.tableTBPM_PROFILE.NO_OF_DOCUMENTSColumn) = value End Set End Property _ - Public Property AKTIV() As Boolean + Public Property ADDED_WHO() As String Get - Return CType(Me(Me.tableTBWH_CONNECTION.AKTIVColumn),Boolean) + Try + Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPM_PROFILE ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBWH_CONNECTION.AKTIVColumn) = value + Me(Me.tableTBPM_PROFILE.ADDED_WHOColumn) = value End Set End Property _ - Public Property ERSTELLTWER() As String + Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBWH_CONNECTION.ERSTELLTWERColumn),String) + Try + Return CType(Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPM_PROFILE ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBWH_CONNECTION.ERSTELLTWERColumn) = value + Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn) = value End Set End Property _ - Public Property ERSTELLTWANN() As Date + Public Property CHANGED_WHO() As String Get - Return CType(Me(Me.tableTBWH_CONNECTION.ERSTELLTWANNColumn),Date) + Try + Return CType(Me(Me.tableTBPM_PROFILE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPM_PROFILE ist DBNull.", e) + End Try End Get Set - Me(Me.tableTBWH_CONNECTION.ERSTELLTWANNColumn) = value + Me(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) = value End Set End Property _ - Public Property GEANDERTWER() As String + Public Property CHANGED_WHEN() As Date Get Try - Return CType(Me(Me.tableTBWH_CONNECTION.GEANDERTWERColumn),String) + Return CType(Me(Me.tableTBPM_PROFILE.CHANGED_WHENColumn),Date) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBWH_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPM_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) = value + Me(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) = value End Set End Property _ - Public Property GEAENDERTWANN() As Date + Public Property FINAL_PROFILE() As Boolean + Get + Return CType(Me(Me.tableTBPM_PROFILE.FINAL_PROFILEColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_PROFILE.FINAL_PROFILEColumn) = value + End Set + End Property + + _ + Public Property FINAL_TEXT() As String Get Try - Return CType(Me(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn),Date) + Return CType(Me(Me.tableTBPM_PROFILE.FINAL_TEXTColumn),String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBWH_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FINAL_TEXT in Tabelle TBPM_PROFILE ist DBNull.", e) End Try End Get Set - Me(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) = value + Me(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) = value End Set End Property _ - Public Function IsBEZEICHNUNGNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) - End Function + Public Property MOVE2FOLDER() As String + Get + Try + Return CType(Me(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MOVE2FOLDER in Tabelle TBPM_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) = value + End Set + End Property _ - Public Sub SetBEZEICHNUNGNull() - Me(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull - End Sub + Public Property TYPE() As Short + Get + Return CType(Me(Me.tableTBPM_PROFILE.TYPEColumn),Short) + End Get + Set + Me(Me.tableTBPM_PROFILE.TYPEColumn) = value + End Set + End Property _ - Public Function IsSQL_PROVIDERNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) - End Function + Public Property WD_OBJECTTYPE() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE.WD_OBJECTTYPEColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE.WD_OBJECTTYPEColumn) = value + End Set + End Property _ - Public Sub SetSQL_PROVIDERNull() - Me(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull - End Sub + Public Property SORT_BY_LATEST() As Boolean + Get + Return CType(Me(Me.tableTBPM_PROFILE.SORT_BY_LATESTColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_PROFILE.SORT_BY_LATESTColumn) = value + End Set + End Property _ - Public Function IsSERVERNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.SERVERColumn) - End Function + Public Property PM_VEKTOR_INDEX() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE.PM_VEKTOR_INDEXColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE.PM_VEKTOR_INDEXColumn) = value + End Set + End Property _ - Public Sub SetSERVERNull() - Me(Me.tableTBWH_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull - End Sub + Public Property LOG_INDEX() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE.LOG_INDEXColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE.LOG_INDEXColumn) = value + End Set + End Property _ - Public Function IsDATENBANKNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.DATENBANKColumn) - End Function + Public Property SQL_VIEW() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE.SQL_VIEWColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE.SQL_VIEWColumn) = value + End Set + End Property _ - Public Sub SetDATENBANKNull() - Me(Me.tableTBWH_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull - End Sub + Public Property ANNOTATE_ALL_WORK_HISTORY_ENTRIES() As Boolean + Get + Return CType(Me(Me.tableTBPM_PROFILE.ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_PROFILE.ANNOTATE_ALL_WORK_HISTORY_ENTRIESColumn) = value + End Set + End Property _ - Public Function IsUSERNAMENull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.USERNAMEColumn) - End Function + Public Property ANNOTATE_WORK_HISTORY_ENTRY() As Boolean + Get + Return CType(Me(Me.tableTBPM_PROFILE.ANNOTATE_WORK_HISTORY_ENTRYColumn),Boolean) + End Get + Set + Me(Me.tableTBPM_PROFILE.ANNOTATE_WORK_HISTORY_ENTRYColumn) = value + End Set + End Property _ - Public Sub SetUSERNAMENull() - Me(Me.tableTBWH_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull - End Sub + Public Property WORK_HISTORY_ENTRY() As String + Get + Try + Return CType(Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WORK_HISTORY_ENTRY in Tabelle TBPM_PROFILE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) = value + End Set + End Property _ - Public Function IsPASSWORDNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.PASSWORDColumn) - End Function + Public Property DISPLAY_MODE() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE.DISPLAY_MODEColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE.DISPLAY_MODEColumn) = value + End Set + End Property _ - Public Sub SetPASSWORDNull() - Me(Me.tableTBWH_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull - End Sub + Public Property SQL_BTN_FINISH() As String + Get + Return CType(Me(Me.tableTBPM_PROFILE.SQL_BTN_FINISHColumn),String) + End Get + Set + Me(Me.tableTBPM_PROFILE.SQL_BTN_FINISHColumn) = value + End Set + End Property _ - Public Function IsBEMERKUNGNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) + Public Property TBPM_TYPERow() As TBPM_TYPERow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPM_PROFILE_TYPE")),TBPM_TYPERow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPM_PROFILE_TYPE")) + End Set + End Property + + _ + Public Function IsDESCRIPTIONNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) End Function _ - Public Sub SetBEMERKUNGNull() - Me(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull + Public Sub SetDESCRIPTIONNull() + Me(Me.tableTBPM_PROFILE.DESCRIPTIONColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsGEANDERTWERNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE.ADDED_WHOColumn) End Function _ - Public Sub SetGEANDERTWERNull() - Me(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull + Public Sub SetADDED_WHONull() + Me(Me.tableTBPM_PROFILE.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsGEAENDERTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE.ADDED_WHENColumn) End Function _ - Public Sub SetGEAENDERTWANNNull() - Me(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPM_PROFILE.ADDED_WHENColumn) = Global.System.Convert.DBNull End Sub - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPM_PROFILE_FINAL_INDEXINGRow - Private eventAction As Global.System.Data.DataRowAction + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) + End Function _ - Public Sub New(ByVal row As TBPM_PROFILE_FINAL_INDEXINGRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPM_PROFILE.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub _ - Public ReadOnly Property Row() As TBPM_PROFILE_FINAL_INDEXINGRow - Get - Return Me.eventRow - End Get - End Property + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) + End Function _ - 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 TBPM_KONFIGURATIONRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPM_KONFIGURATIONRow + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPM_PROFILE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub - Private eventAction As Global.System.Data.DataRowAction + _ + Public Function IsFINAL_TEXTNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) + End Function _ - Public Sub New(ByVal row As TBPM_KONFIGURATIONRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Public Sub SetFINAL_TEXTNull() + Me(Me.tableTBPM_PROFILE.FINAL_TEXTColumn) = Global.System.Convert.DBNull End Sub _ - Public ReadOnly Property Row() As TBPM_KONFIGURATIONRow - Get - Return Me.eventRow - End Get - End Property + Public Function IsMOVE2FOLDERNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) + End Function _ - 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_USERRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_USERRow - - Private eventAction As Global.System.Data.DataRowAction + Public Sub SetMOVE2FOLDERNull() + Me(Me.tableTBPM_PROFILE.MOVE2FOLDERColumn) = Global.System.Convert.DBNull + End Sub _ - Public Sub New(ByVal row As TBDD_USERRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub + Public Function IsWORK_HISTORY_ENTRYNull() As Boolean + Return Me.IsNull(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) + End Function _ - Public ReadOnly Property Row() As TBDD_USERRow - Get - Return Me.eventRow - End Get - End Property + Public Sub SetWORK_HISTORY_ENTRYNull() + Me(Me.tableTBPM_PROFILE.WORK_HISTORY_ENTRYColumn) = Global.System.Convert.DBNull + End Sub _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property + Public Function GetTBPM_PROFILE_CONTROLSRows() As TBPM_PROFILE_CONTROLSRow() + If (Me.Table.ChildRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE") Is Nothing) Then + Return New TBPM_PROFILE_CONTROLSRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPM_PROFILE_CONTROLS_PROFILE")),TBPM_PROFILE_CONTROLSRow()) + End If + End Function End Class ''' - '''Row event argument class + '''Represents strongly named DataRow class. ''' - _ - Public Class TBPM_TYPERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPM_TYPERow + Partial Public Class TBWH_CONNECTIONRow + Inherits Global.System.Data.DataRow - Private eventAction As Global.System.Data.DataRowAction + Private tableTBWH_CONNECTION As TBWH_CONNECTIONDataTable _ - Public Sub New(ByVal row As TBPM_TYPERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_CONNECTION = CType(Me.Table,TBWH_CONNECTIONDataTable) End Sub _ - Public ReadOnly Property Row() As TBPM_TYPERow + Public Property GUID() As Short Get - Return Me.eventRow + Return CType(Me(Me.tableTBWH_CONNECTION.GUIDColumn),Short) End Get + Set + Me(Me.tableTBWH_CONNECTION.GUIDColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property BEZEICHNUNG() As String Get - Return Me.eventAction + Try + Return CType(Me(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPM_ERROR_LOGRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPM_ERROR_LOGRow - - Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBPM_ERROR_LOGRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub + Public Property SQL_PROVIDER() As String + Get + Try + Return CType(Me(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) = value + End Set + End Property _ - Public ReadOnly Property Row() As TBPM_ERROR_LOGRow + Public Property SERVER() As String Get - Return Me.eventRow + Try + Return CType(Me(Me.tableTBWH_CONNECTION.SERVERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBWH_CONNECTION.SERVERColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property DATENBANK() As String Get - Return Me.eventAction + Try + Return CType(Me(Me.tableTBWH_CONNECTION.DATENBANKColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBWH_CONNECTION.DATENBANKColumn) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBDD_CONNECTIONRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBDD_CONNECTIONRow - - Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub + Public Property USERNAME() As String + Get + Try + Return CType(Me(Me.tableTBWH_CONNECTION.USERNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_CONNECTION.USERNAMEColumn) = value + End Set + End Property _ - Public ReadOnly Property Row() As TBDD_CONNECTIONRow + Public Property PASSWORD() As String Get - Return Me.eventRow + Try + Return CType(Me(Me.tableTBWH_CONNECTION.PASSWORDColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBWH_CONNECTION.PASSWORDColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property BEMERKUNG() As String Get - Return Me.eventAction + Try + Return CType(Me(Me.tableTBWH_CONNECTION.BEMERKUNGColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try End Get + Set + Me(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) = value + End Set End Property - End Class - - ''' - '''Row event argument class - ''' - _ - Public Class TBPROFILE_USERRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPROFILE_USERRow - - Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBPROFILE_USERRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub + Public Property AKTIV() As Boolean + Get + Return CType(Me(Me.tableTBWH_CONNECTION.AKTIVColumn),Boolean) + End Get + Set + Me(Me.tableTBWH_CONNECTION.AKTIVColumn) = value + End Set + End Property _ - Public ReadOnly Property Row() As TBPROFILE_USERRow + Public Property ERSTELLTWER() As String Get - Return Me.eventRow + Return CType(Me(Me.tableTBWH_CONNECTION.ERSTELLTWERColumn),String) End Get + Set + Me(Me.tableTBWH_CONNECTION.ERSTELLTWERColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property ERSTELLTWANN() As Date Get - Return Me.eventAction + Return CType(Me(Me.tableTBWH_CONNECTION.ERSTELLTWANNColumn),Date) End Get + Set + Me(Me.tableTBWH_CONNECTION.ERSTELLTWANNColumn) = value + End Set End Property - End Class - + + _ + Public Property GEANDERTWER() As String + Get + Try + Return CType(Me(Me.tableTBWH_CONNECTION.GEANDERTWERColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) = value + End Set + End Property + + _ + Public Property GEAENDERTWANN() As Date + Get + Try + Return CType(Me(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBWH_CONNECTION ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) = value + End Set + End Property + + _ + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) + End Function + + _ + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableTBWH_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSQL_PROVIDERNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) + End Function + + _ + Public Sub SetSQL_PROVIDERNull() + Me(Me.tableTBWH_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSERVERNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.SERVERColumn) + End Function + + _ + Public Sub SetSERVERNull() + Me(Me.tableTBWH_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDATENBANKNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.DATENBANKColumn) + End Function + + _ + Public Sub SetDATENBANKNull() + Me(Me.tableTBWH_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.USERNAMEColumn) + End Function + + _ + Public Sub SetUSERNAMENull() + Me(Me.tableTBWH_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsPASSWORDNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.PASSWORDColumn) + End Function + + _ + Public Sub SetPASSWORDNull() + Me(Me.tableTBWH_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsBEMERKUNGNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) + End Function + + _ + Public Sub SetBEMERKUNGNull() + Me(Me.tableTBWH_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) + End Function + + _ + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBWH_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) + End Function + + _ + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBWH_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + End Sub + End Class + ''' '''Row event argument class ''' _ - Public Class TBPM_PROFILE_FILESRowChangeEvent + Public Class TBPM_PROFILE_FINAL_INDEXINGRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBPM_PROFILE_FILESRow + Private eventRow As TBPM_PROFILE_FINAL_INDEXINGRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBPM_PROFILE_FILESRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBPM_PROFILE_FINAL_INDEXINGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -15617,7 +15347,7 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property Row() As TBPM_PROFILE_FILESRow + Public ReadOnly Property Row() As TBPM_PROFILE_FINAL_INDEXINGRow Get Return Me.eventRow End Get @@ -15636,16 +15366,16 @@ Partial Public Class DD_DMSLiteDataSet '''Row event argument class ''' _ - Public Class TBPM_PROFILERowChangeEvent + Public Class TBPM_KONFIGURATIONRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBPM_PROFILERow + Private eventRow As TBPM_KONFIGURATIONRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBPM_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBPM_KONFIGURATIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -15653,7 +15383,7 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property Row() As TBPM_PROFILERow + Public ReadOnly Property Row() As TBPM_KONFIGURATIONRow Get Return Me.eventRow End Get @@ -15672,16 +15402,16 @@ Partial Public Class DD_DMSLiteDataSet '''Row event argument class ''' _ - Public Class TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent + Public Class TBDD_USERRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBWH_CHECK_PROFILE_CONTROLSRow + Private eventRow As TBDD_USERRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBWH_CHECK_PROFILE_CONTROLSRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBDD_USERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -15689,7 +15419,7 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property Row() As TBWH_CHECK_PROFILE_CONTROLSRow + Public ReadOnly Property Row() As TBDD_USERRow Get Return Me.eventRow End Get @@ -15708,16 +15438,16 @@ Partial Public Class DD_DMSLiteDataSet '''Row event argument class ''' _ - Public Class TBPM_PROFILE_CONTROLSRowChangeEvent + Public Class TBPM_TYPERowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBPM_PROFILE_CONTROLSRow + Private eventRow As TBPM_TYPERow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBPM_PROFILE_CONTROLSRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBPM_TYPERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -15725,7 +15455,7 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property Row() As TBPM_PROFILE_CONTROLSRow + Public ReadOnly Property Row() As TBPM_TYPERow Get Return Me.eventRow End Get @@ -15744,16 +15474,16 @@ Partial Public Class DD_DMSLiteDataSet '''Row event argument class ''' _ - Public Class TBPM_CONTROL_TABLERowChangeEvent + Public Class TBPM_ERROR_LOGRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBPM_CONTROL_TABLERow + Private eventRow As TBPM_ERROR_LOGRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBPM_CONTROL_TABLERow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBPM_ERROR_LOGRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -15761,7 +15491,7 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property Row() As TBPM_CONTROL_TABLERow + Public ReadOnly Property Row() As TBPM_ERROR_LOGRow Get Return Me.eventRow End Get @@ -15780,16 +15510,16 @@ Partial Public Class DD_DMSLiteDataSet '''Row event argument class ''' _ - Public Class TBDD_GROUPSRowChangeEvent + Public Class TBDD_CONNECTIONRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBDD_GROUPSRow + Private eventRow As TBDD_CONNECTIONRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBDD_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -15797,7 +15527,7 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property Row() As TBDD_GROUPSRow + Public ReadOnly Property Row() As TBDD_CONNECTIONRow Get Return Me.eventRow End Get @@ -15816,16 +15546,16 @@ Partial Public Class DD_DMSLiteDataSet '''Row event argument class ''' _ - Public Class TBPROFILE_GROUPRowChangeEvent + Public Class TBPROFILE_USERRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBPROFILE_GROUPRow + Private eventRow As TBPROFILE_USERRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBPROFILE_GROUPRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBPROFILE_USERRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -15833,7 +15563,7 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property Row() As TBPROFILE_GROUPRow + Public ReadOnly Property Row() As TBPROFILE_USERRow Get Return Me.eventRow End Get @@ -15852,16 +15582,16 @@ Partial Public Class DD_DMSLiteDataSet '''Row event argument class ''' _ - Public Class FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent + Public Class TBPM_PROFILE_FILESRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As FNPM_GET_FREE_USER_FOR_PROFILERow + Private eventRow As TBPM_PROFILE_FILESRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBPM_PROFILE_FILESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -15869,7 +15599,7 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property Row() As FNPM_GET_FREE_USER_FOR_PROFILERow + Public ReadOnly Property Row() As TBPM_PROFILE_FILESRow Get Return Me.eventRow End Get @@ -15888,16 +15618,16 @@ Partial Public Class DD_DMSLiteDataSet '''Row event argument class ''' _ - Public Class TBDD_EMAIL_TEMPLATERowChangeEvent + Public Class TBWH_CHECK_PROFILE_CONTROLSRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBDD_EMAIL_TEMPLATERow + Private eventRow As TBWH_CHECK_PROFILE_CONTROLSRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBDD_EMAIL_TEMPLATERow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBWH_CHECK_PROFILE_CONTROLSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -15905,7 +15635,7 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property Row() As TBDD_EMAIL_TEMPLATERow + Public ReadOnly Property Row() As TBWH_CHECK_PROFILE_CONTROLSRow Get Return Me.eventRow End Get @@ -15924,16 +15654,16 @@ Partial Public Class DD_DMSLiteDataSet '''Row event argument class ''' _ - Public Class TBDD_GUI_LANGUAGE_PHRASERowChangeEvent + Public Class TBPM_PROFILE_CONTROLSRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBDD_GUI_LANGUAGE_PHRASERow + Private eventRow As TBPM_PROFILE_CONTROLSRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBDD_GUI_LANGUAGE_PHRASERow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBPM_PROFILE_CONTROLSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -15941,7 +15671,7 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property Row() As TBDD_GUI_LANGUAGE_PHRASERow + Public ReadOnly Property Row() As TBPM_PROFILE_CONTROLSRow Get Return Me.eventRow End Get @@ -15960,16 +15690,16 @@ Partial Public Class DD_DMSLiteDataSet '''Row event argument class ''' _ - Public Class VWPM_CHART_INVOICE_MONITORRowChangeEvent + Public Class TBPM_CONTROL_TABLERowChangeEvent Inherits Global.System.EventArgs - Private eventRow As VWPM_CHART_INVOICE_MONITORRow + Private eventRow As TBPM_CONTROL_TABLERow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As VWPM_CHART_INVOICE_MONITORRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBPM_CONTROL_TABLERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -15977,7 +15707,7 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property Row() As VWPM_CHART_INVOICE_MONITORRow + Public ReadOnly Property Row() As TBPM_CONTROL_TABLERow Get Return Me.eventRow End Get @@ -15996,16 +15726,16 @@ Partial Public Class DD_DMSLiteDataSet '''Row event argument class ''' _ - Public Class VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent + Public Class TBDD_GROUPSRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As VWPM_CHART_INVOICE_MONITOR_SERIESRow + Private eventRow As TBDD_GROUPSRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As VWPM_CHART_INVOICE_MONITOR_SERIESRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBDD_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -16013,7 +15743,7 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property Row() As VWPM_CHART_INVOICE_MONITOR_SERIESRow + Public ReadOnly Property Row() As TBDD_GROUPSRow Get Return Me.eventRow End Get @@ -16032,16 +15762,16 @@ Partial Public Class DD_DMSLiteDataSet '''Row event argument class ''' _ - Public Class VWPM_CHART_TOP5RowChangeEvent + Public Class TBPROFILE_GROUPRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As VWPM_CHART_TOP5Row + Private eventRow As TBPROFILE_GROUPRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As VWPM_CHART_TOP5Row, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBPROFILE_GROUPRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -16049,7 +15779,7 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property Row() As VWPM_CHART_TOP5Row + Public ReadOnly Property Row() As TBPROFILE_GROUPRow Get Return Me.eventRow End Get @@ -16068,16 +15798,16 @@ Partial Public Class DD_DMSLiteDataSet '''Row event argument class ''' _ - Public Class TBWH_CONNECTIONRowChangeEvent + Public Class FNPM_GET_FREE_USER_FOR_PROFILERowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBWH_CONNECTIONRow + Private eventRow As FNPM_GET_FREE_USER_FOR_PROFILERow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBWH_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As FNPM_GET_FREE_USER_FOR_PROFILERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -16085,7 +15815,7 @@ Partial Public Class DD_DMSLiteDataSet _ - Public ReadOnly Property Row() As TBWH_CONNECTIONRow + Public ReadOnly Property Row() As FNPM_GET_FREE_USER_FOR_PROFILERow Get Return Me.eventRow End Get @@ -16099,12 +15829,264 @@ Partial Public Class DD_DMSLiteDataSet End Get End Property End Class -End Class - -Namespace DD_DMSLiteDataSetTableAdapters ''' - '''Represents the connection and commands used to retrieve and save data. + '''Row event argument class + ''' + _ + Public Class TBDD_EMAIL_TEMPLATERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_EMAIL_TEMPLATERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_EMAIL_TEMPLATERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_EMAIL_TEMPLATERow + 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_GUI_LANGUAGE_PHRASERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_GUI_LANGUAGE_PHRASERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_GUI_LANGUAGE_PHRASERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBDD_GUI_LANGUAGE_PHRASERow + 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 VWPM_CHART_INVOICE_MONITORRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPM_CHART_INVOICE_MONITORRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPM_CHART_INVOICE_MONITORRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPM_CHART_INVOICE_MONITORRow + 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 VWPM_CHART_INVOICE_MONITOR_SERIESRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPM_CHART_INVOICE_MONITOR_SERIESRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPM_CHART_INVOICE_MONITOR_SERIESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPM_CHART_INVOICE_MONITOR_SERIESRow + 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 VWPM_CHART_TOP5RowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPM_CHART_TOP5Row + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPM_CHART_TOP5Row, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPM_CHART_TOP5Row + 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 TBPM_PROFILERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPM_PROFILERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPM_PROFILERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPM_PROFILERow + 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 TBWH_CONNECTIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_CONNECTIONRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_CONNECTIONRow + 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 +End Class + +Namespace DD_DMSLiteDataSetTableAdapters + + ''' + '''Represents the connection and commands used to retrieve and save data. ''' _ - Partial Public Class TBPM_PROFILETableAdapter + Partial Public Class TBWH_CHECK_PROFILE_CONTROLSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -19811,163 +19793,17 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBPM_PROFILE" + tableMapping.DataSetTable = "TBWH_CHECK_PROFILE_CONTROLS" tableMapping.ColumnMappings.Add("GUID", "GUID") tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("TITLE", "TITLE") - tableMapping.ColumnMappings.Add("PRIORITY", "PRIORITY") - tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") - tableMapping.ColumnMappings.Add("WD_SEARCH", "WD_SEARCH") - tableMapping.ColumnMappings.Add("NO_OF_DOCUMENTS", "NO_OF_DOCUMENTS") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("FINAL_PROFILE", "FINAL_PROFILE") - tableMapping.ColumnMappings.Add("FINAL_TEXT", "FINAL_TEXT") - tableMapping.ColumnMappings.Add("MOVE2FOLDER", "MOVE2FOLDER") - tableMapping.ColumnMappings.Add("TYPE", "TYPE") - tableMapping.ColumnMappings.Add("WD_OBJECTTYPE", "WD_OBJECTTYPE") - tableMapping.ColumnMappings.Add("SORT_BY_LATEST", "SORT_BY_LATEST") - tableMapping.ColumnMappings.Add("PM_VEKTOR_INDEX", "PM_VEKTOR_INDEX") - tableMapping.ColumnMappings.Add("LOG_INDEX", "LOG_INDEX") - tableMapping.ColumnMappings.Add("SQL_VIEW", "SQL_VIEW") - tableMapping.ColumnMappings.Add("ANNOTATE_ALL_WORK_HISTORY_ENTRIES", "ANNOTATE_ALL_WORK_HISTORY_ENTRIES") - tableMapping.ColumnMappings.Add("ANNOTATE_WORK_HISTORY_ENTRY", "ANNOTATE_WORK_HISTORY_ENTRY") - tableMapping.ColumnMappings.Add("WORK_HISTORY_ENTRY", "WORK_HISTORY_ENTRY") - tableMapping.ColumnMappings.Add("DISPLAY_MODE", "DISPLAY_MODE") - tableMapping.ColumnMappings.Add("SQL_BTN_FINISH", "SQL_BTN_FINISH") + tableMapping.ColumnMappings.Add("CTRL_TYPE", "CTRL_TYPE") + tableMapping.ColumnMappings.Add("INDEX_NAME", "INDEX_NAME") + tableMapping.ColumnMappings.Add("TYP", "TYP") + tableMapping.ColumnMappings.Add("VALIDATION", "VALIDATION") + tableMapping.ColumnMappings.Add("CHOICE_LIST", "CHOICE_LIST") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("SQL_UEBERPRUEFUNG", "SQL_UEBERPRUEFUNG") 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 [TBPM_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Origin"& _ - "al_NAME) AND ([TITLE] = @Original_TITLE) AND ([PRIORITY] = @Original_PRIORITY) A"& _ - "ND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Ori"& _ - "ginal_DESCRIPTION)) AND ([ACTIVE] = @Original_ACTIVE) AND ([WD_SEARCH] = @Origin"& _ - "al_WD_SEARCH) AND ([NO_OF_DOCUMENTS] = @Original_NO_OF_DOCUMENTS) AND ([ADDED_WH"& _ - "O] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNul"& _ - "l_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANG"& _ - "ED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED"& _ - "_WHEN] = @Original_CHANGED_WHEN)) AND ([FINAL_PROFILE] = @Original_FINAL_PROFILE"& _ - ") AND ((@IsNull_FINAL_TEXT = 1 AND [FINAL_TEXT] IS NULL) OR ([FINAL_TEXT] = @Ori"& _ - "ginal_FINAL_TEXT)) AND ((@IsNull_MOVE2FOLDER = 1 AND [MOVE2FOLDER] IS NULL) OR ("& _ - "[MOVE2FOLDER] = @Original_MOVE2FOLDER)) AND ([TYPE] = @Original_TYPE) AND ([WD_O"& _ - "BJECTTYPE] = @Original_WD_OBJECTTYPE) AND ([SORT_BY_LATEST] = @Original_SORT_BY_"& _ - "LATEST) AND ([PM_VEKTOR_INDEX] = @Original_PM_VEKTOR_INDEX) AND ([LOG_INDEX] = @"& _ - "Original_LOG_INDEX) AND ([ANNOTATE_ALL_WORK_HISTORY_ENTRIES] = @Original_ANNOTAT"& _ - "E_ALL_WORK_HISTORY_ENTRIES) AND ([ANNOTATE_WORK_HISTORY_ENTRY] = @Original_ANNOT"& _ - "ATE_WORK_HISTORY_ENTRY) AND ((@IsNull_WORK_HISTORY_ENTRY = 1 AND [WORK_HISTORY_E"& _ - "NTRY] IS NULL) OR ([WORK_HISTORY_ENTRY] = @Original_WORK_HISTORY_ENTRY)))" - 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_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRIORITY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DESCRIPTION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", 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("@Original_WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Original, false, 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("@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_FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FINAL_TEXT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FINAL_TEXT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MOVE2FOLDER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MOVE2FOLDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_OBJECTTYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SORT_BY_LATEST", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SORT_BY_LATEST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOG_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", 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 TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, TITLE, PRIORITY, DESCRI"& _ - "PTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, FINAL_PROFILE, FINAL_TEXT,"& _ - " MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WORK_HISTORY_ENTRY, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, "& _ - "ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME"& _ - ",@TITLE,@PRIORITY,@DESCRIPTION,@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@F"& _ - "INAL_PROFILE,@FINAL_TEXT,@MOVE2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_V"& _ - "EKTOR_INDEX,@WORK_HISTORY_ENTRY,@SQL_VIEW,@ANNOTATE_ALL_WORK_HISTORY_ENTRIES,@AN"& _ - "NOTATE_WORK_HISTORY_ENTRY,@DISPLAY_MODE,@SQL_BTN_FINISH); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, "& _ - "NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WH"& _ - "O, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER"& _ - ", TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE 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("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRIORITY", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", 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("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", 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, 30, 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("@FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_TEXT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MOVE2FOLDER", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SORT_BY_LATEST", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SORT_BY_LATEST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_VIEW", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_BTN_FINISH", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_BTN_FINISH", 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 TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, TITLE = @TITLE, PRIOR"& _ - "ITY = @PRIORITY, DESCRIPTION = @DESCRIPTION, ACTIVE = @ACTIVE, WD_SEARCH = @WD_S"& _ - "EARCH, NO_OF_DOCUMENTS = @NO_OF_DOCUMENTS, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WH"& _ - "O = @CHANGED_WHO, FINAL_PROFILE = @FINAL_PROFILE, FINAL_TEXT = @FINAL_TEXT, MOVE"& _ - "2FOLDER = @MOVE2FOLDER, TYPE = @TYPE, WD_OBJECTTYPE = @WD_OBJECTTYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " SORT_BY_LATEST = @SORT_BY_LATEST, PM_VEKTOR_INDEX = @PM_VEKTOR_"& _ - "INDEX, LOG_INDEX = @LOG_INDEX, WORK_HISTORY_ENTRY = @WORK_HISTORY_ENTRY, SQL_VIE"& _ - "W = @SQL_VIEW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ANNOTATE_ALL_WORK_HISTORY_ENTRIES = @A"& _ - "NNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY = @ANNOTATE_WORK_H"& _ - "ISTORY_ENTRY, DISPLAY_MODE = @DISPLAY_MODE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_BTN_F"& _ - "INISH = @SQL_BTN_FINISH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ - "GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, AD"& _ - "DED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2"& _ - "FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = @GUI"& _ - "D)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRIORITY", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", 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("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", 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, 30, 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("@FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_TEXT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MOVE2FOLDER", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SORT_BY_LATEST", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SORT_BY_LATEST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_VIEW", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 20, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_BTN_FINISH", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_BTN_FINISH", 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 InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(8) {} + 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 GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_"& _ - "DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINA"& _ - "L_TEXT, MOVE2FOLDER, TYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WD_OBJECTTYPE, SORT_BY_LAT"& _ - "EST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, AN"& _ - "NOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " SQL_BTN_FINISH"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NAME" + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, CTRL_TYPE, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CO"& _ + "NNECTION_ID, SQL_UEBERPRUEFUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (PROFIL_ID = @P_ID) AND (CTRL_TYPE <> 'LBL')" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT COUNT(*) FROM TBPM_PROFILE" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "DELETE FROM TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).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._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(3).Connection = Me.Connection - Me._commandCollection(3).CommandText = "SELECT GUID FROM TBPM_PROFILE WHERE (FINAL_PROFILE = 1) AND (UPPER(NAME) = UPPER("& _ - "@name))" - Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@name", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(4) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(4).Connection = Me.Connection - Me._commandCollection(4).CommandText = "SELECT MAX(GUID) FROM TBPM_PROFILE" - Me._commandCollection(4).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(5) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(5).Connection = Me.Connection - Me._commandCollection(5).CommandText = "SELECT COUNT(GUID) FROM TBPM_PROFILE WHERE NAME = @NAME" - Me._commandCollection(5).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(5).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(6).Connection = Me.Connection - Me._commandCollection(6).CommandText = "UPDATE TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET LOG_INDEX = @LOG__INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION,"& _ - " ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _ - "_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATE"& _ - "ST,LOG_INDEX FROM TBPM_PROFILE WHERE (GUID = @GUID)" - Me._commandCollection(6).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(6).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG__INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(6).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._commandCollection(6).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._commandCollection(7) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(7).Connection = Me.Connection - Me._commandCollection(7).CommandText = "UPDATE TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NO_OF_DOCUMENTS = @NUMBER, CHANGED_"& _ - "WHO = @WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" - Me._commandCollection(7).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NUMBER", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(7).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WHO", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(7).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._commandCollection(8) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(8).Connection = Me.Connection - Me._commandCollection(8).CommandText = "UPDATE TBPM_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PM_VEKTOR_INDEX = @PM_VEKTOR_INDEX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ - "WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TITLE, PRIORITY, DES"& _ - "CRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO"& _ - ", CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SOR"& _ - "T_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = @GUID)" - Me._commandCollection(8).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(8).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(8).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._commandCollection(8).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._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@P_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILEDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBWH_CHECK_PROFILE_CONTROLSDataTable, ByVal P_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(P_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -20063,921 +19844,112 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_PROFILEDataTable + Public Overloads Overridable Function GetData(ByVal P_ID As Integer) As DD_DMSLiteDataSet.TBWH_CHECK_PROFILE_CONTROLSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILEDataTable = New DD_DMSLiteDataSet.TBPM_PROFILEDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(P_ID,Integer) + Dim dataTable As DD_DMSLiteDataSet.TBWH_CHECK_PROFILE_CONTROLSDataTable = New DD_DMSLiteDataSet.TBWH_CHECK_PROFILE_CONTROLSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPM_PROFILE_CONTROLSTableAdapter + 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 Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILEDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPM_PROFILE") - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + 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 + End If + i = (i + 1) + Loop + End Set + End Property _ - Public Overloads Overridable 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_NAME As String, _ - ByVal Original_TITLE As String, _ - ByVal Original_PRIORITY As Integer, _ - ByVal Original_DESCRIPTION As String, _ - ByVal Original_ACTIVE As Boolean, _ - ByVal Original_WD_SEARCH As String, _ - ByVal Original_NO_OF_DOCUMENTS As Integer, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_FINAL_PROFILE As Boolean, _ - ByVal Original_FINAL_TEXT As String, _ - ByVal Original_MOVE2FOLDER As String, _ - ByVal Original_TYPE As Short, _ - ByVal Original_WD_OBJECTTYPE As String, _ - ByVal Original_SORT_BY_LATEST As Boolean, _ - ByVal Original_PM_VEKTOR_INDEX As String, _ - ByVal Original_LOG_INDEX As String, _ - ByVal Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _ - ByVal Original_ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ - ByVal Original_WORK_HISTORY_ENTRY As String) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_NAME") - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_NAME,String) - End If - If (Original_TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_TITLE") - Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_TITLE,String) - End If - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_PRIORITY,Integer) - If (Original_DESCRIPTION Is Nothing) Then - 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_DESCRIPTION,String) - End If - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ACTIVE,Boolean) - If (Original_WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_WD_SEARCH") - Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_WD_SEARCH,String) - End If - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_NO_OF_DOCUMENTS,Integer) - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - 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_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value - End If - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_FINAL_PROFILE,Boolean) - If (Original_FINAL_TEXT Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(17).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_FINAL_TEXT,String) - End If - If (Original_MOVE2FOLDER Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_MOVE2FOLDER,String) - End If - Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_TYPE,Short) - If (Original_WD_OBJECTTYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_WD_OBJECTTYPE") - Else - Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_WD_OBJECTTYPE,String) - End If - Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_SORT_BY_LATEST,Boolean) - If (Original_PM_VEKTOR_INDEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_PM_VEKTOR_INDEX") - Else - Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_PM_VEKTOR_INDEX,String) - End If - If (Original_LOG_INDEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_LOG_INDEX") - Else - Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_LOG_INDEX,String) - End If - Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES,Boolean) - Me.Adapter.DeleteCommand.Parameters(26).Value = CType(Original_ANNOTATE_WORK_HISTORY_ENTRY,Boolean) - If (Original_WORK_HISTORY_ENTRY Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(27).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(28).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(27).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_WORK_HISTORY_ENTRY,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - 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 - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert( _ - ByVal NAME As String, _ - ByVal TITLE As String, _ - ByVal PRIORITY As Integer, _ - ByVal DESCRIPTION As String, _ - ByVal ACTIVE As Boolean, _ - ByVal WD_SEARCH As String, _ - ByVal NO_OF_DOCUMENTS As Integer, _ - ByVal ADDED_WHO As String, _ - ByVal FINAL_PROFILE As Boolean, _ - ByVal FINAL_TEXT As String, _ - ByVal MOVE2FOLDER As String, _ - ByVal TYPE As Short, _ - ByVal WD_OBJECTTYPE As String, _ - ByVal SORT_BY_LATEST As Boolean, _ - ByVal PM_VEKTOR_INDEX As String, _ - ByVal WORK_HISTORY_ENTRY As String, _ - ByVal SQL_VIEW As String, _ - ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _ - ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ - ByVal DISPLAY_MODE As String, _ - ByVal SQL_BTN_FINISH As String) As Integer - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) - End If - If (TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TITLE") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(TITLE,String) - End If - Me.Adapter.InsertCommand.Parameters(2).Value = CType(PRIORITY,Integer) - If (DESCRIPTION Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(DESCRIPTION,String) - End If - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) - If (WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_SEARCH") - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(WD_SEARCH,String) - End If - Me.Adapter.InsertCommand.Parameters(6).Value = CType(NO_OF_DOCUMENTS,Integer) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.InsertCommand.Parameters(8).Value = CType(FINAL_PROFILE,Boolean) - If (FINAL_TEXT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(9).Value = CType(FINAL_TEXT,String) - End If - If (MOVE2FOLDER Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(MOVE2FOLDER,String) - End If - Me.Adapter.InsertCommand.Parameters(11).Value = CType(TYPE,Short) - If (WD_OBJECTTYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_OBJECTTYPE") - Else - Me.Adapter.InsertCommand.Parameters(12).Value = CType(WD_OBJECTTYPE,String) - End If - Me.Adapter.InsertCommand.Parameters(13).Value = CType(SORT_BY_LATEST,Boolean) - If (PM_VEKTOR_INDEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("PM_VEKTOR_INDEX") - Else - Me.Adapter.InsertCommand.Parameters(14).Value = CType(PM_VEKTOR_INDEX,String) - End If - If (WORK_HISTORY_ENTRY Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(15).Value = CType(WORK_HISTORY_ENTRY,String) - End If - If (SQL_VIEW Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_VIEW") - Else - Me.Adapter.InsertCommand.Parameters(16).Value = CType(SQL_VIEW,String) - End If - Me.Adapter.InsertCommand.Parameters(17).Value = CType(ANNOTATE_ALL_WORK_HISTORY_ENTRIES,Boolean) - Me.Adapter.InsertCommand.Parameters(18).Value = CType(ANNOTATE_WORK_HISTORY_ENTRY,Boolean) - If (DISPLAY_MODE Is Nothing) Then - Throw New Global.System.ArgumentNullException("DISPLAY_MODE") - Else - Me.Adapter.InsertCommand.Parameters(19).Value = CType(DISPLAY_MODE,String) - End If - If (SQL_BTN_FINISH Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_BTN_FINISH") - Else - Me.Adapter.InsertCommand.Parameters(20).Value = CType(SQL_BTN_FINISH,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal NAME As String, _ - ByVal TITLE As String, _ - ByVal PRIORITY As Integer, _ - ByVal DESCRIPTION As String, _ - ByVal ACTIVE As Boolean, _ - ByVal WD_SEARCH As String, _ - ByVal NO_OF_DOCUMENTS As Integer, _ - ByVal CHANGED_WHO As String, _ - ByVal FINAL_PROFILE As Boolean, _ - ByVal FINAL_TEXT As String, _ - ByVal MOVE2FOLDER As String, _ - ByVal TYPE As Short, _ - ByVal WD_OBJECTTYPE As String, _ - ByVal SORT_BY_LATEST As Boolean, _ - ByVal PM_VEKTOR_INDEX As String, _ - ByVal LOG_INDEX As String, _ - ByVal WORK_HISTORY_ENTRY As String, _ - ByVal SQL_VIEW As String, _ - ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _ - ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ - ByVal DISPLAY_MODE As String, _ - ByVal SQL_BTN_FINISH As String, _ - ByVal Original_GUID As Integer, _ - ByVal GUID As Integer) As Integer - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) - End If - If (TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TITLE") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TITLE,String) - End If - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PRIORITY,Integer) - If (DESCRIPTION Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DESCRIPTION,String) - End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) - If (WD_SEARCH Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_SEARCH") - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(WD_SEARCH,String) - End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(NO_OF_DOCUMENTS,Integer) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(FINAL_PROFILE,Boolean) - If (FINAL_TEXT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(FINAL_TEXT,String) - End If - If (MOVE2FOLDER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(MOVE2FOLDER,String) - End If - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(TYPE,Short) - If (WD_OBJECTTYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("WD_OBJECTTYPE") - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(WD_OBJECTTYPE,String) - End If - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SORT_BY_LATEST,Boolean) - If (PM_VEKTOR_INDEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("PM_VEKTOR_INDEX") - Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(PM_VEKTOR_INDEX,String) - End If - If (LOG_INDEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("LOG_INDEX") - Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(LOG_INDEX,String) - End If - If (WORK_HISTORY_ENTRY Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(WORK_HISTORY_ENTRY,String) - End If - If (SQL_VIEW Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_VIEW") - Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(SQL_VIEW,String) - End If - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(ANNOTATE_ALL_WORK_HISTORY_ENTRIES,Boolean) - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(ANNOTATE_WORK_HISTORY_ENTRY,Boolean) - If (DISPLAY_MODE Is Nothing) Then - Throw New Global.System.ArgumentNullException("DISPLAY_MODE") - Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(DISPLAY_MODE,String) - End If - If (SQL_BTN_FINISH Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_BTN_FINISH") - Else - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(SQL_BTN_FINISH,String) - End If - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function cmdAnzProfile() As Global.System.Nullable(Of Integer) - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Integer)() - Else - Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) - End If - End Function - - _ - Public Overloads Overridable Function cmdDelete(ByVal GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - command.Parameters(0).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function - - _ - Public Overloads Overridable Function cmdFinalProfile(ByVal name As String) As Global.System.Nullable(Of Integer) - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) - If (name Is Nothing) Then - Throw New Global.System.ArgumentNullException("name") - Else - command.Parameters(0).Value = CType(name,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Integer)() - Else - Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) - End If - End Function - - _ - Public Overloads Overridable Function cmdMaxGuid() As Global.System.Nullable(Of Integer) - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(4) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Integer)() - Else - Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) - End If - End Function - - _ - Public Overloads Overridable Function cmdProfileExists(ByVal NAME As String) As Global.System.Nullable(Of Integer) - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(5) - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - command.Parameters(0).Value = CType(NAME,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return New Global.System.Nullable(Of Integer)() - Else - Return New Global.System.Nullable(Of Integer)(CType(returnValue,Integer)) - End If - End Function - - _ - Public Overloads Overridable Function cmdUpdatelogIndex(ByVal LOG__INDEX As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(6) - If (LOG__INDEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("LOG__INDEX") - Else - command.Parameters(0).Value = CType(LOG__INDEX,String) - End If - command.Parameters(1).Value = CType(Original_GUID,Integer) - command.Parameters(2).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function - - _ - Public Overloads Overridable Function cmdUpdateNo(ByVal NUMBER As Integer, ByVal WHO As String, ByVal GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(7) - command.Parameters(0).Value = CType(NUMBER,Integer) - If (WHO Is Nothing) Then - command.Parameters(1).Value = Global.System.DBNull.Value - Else - command.Parameters(1).Value = CType(WHO,String) - End If - command.Parameters(2).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function - - _ - Public Overloads Overridable Function CmdUpdateVKT_Index(ByVal PM_VEKTOR_INDEX As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(8) - If (PM_VEKTOR_INDEX Is Nothing) Then - Throw New Global.System.ArgumentNullException("PM_VEKTOR_INDEX") - Else - command.Parameters(0).Value = CType(PM_VEKTOR_INDEX,String) - End If - command.Parameters(1).Value = CType(Original_GUID,Integer) - command.Parameters(2).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBWH_CHECK_PROFILE_CONTROLSTableAdapter - 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 - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - 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 - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - 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 - 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 - 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) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - 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) _ - 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 - End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - 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() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBWH_CHECK_PROFILE_CONTROLS" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("CTRL_TYPE", "CTRL_TYPE") - tableMapping.ColumnMappings.Add("INDEX_NAME", "INDEX_NAME") - tableMapping.ColumnMappings.Add("TYP", "TYP") - tableMapping.ColumnMappings.Add("VALIDATION", "VALIDATION") - tableMapping.ColumnMappings.Add("CHOICE_LIST", "CHOICE_LIST") - tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") - tableMapping.ColumnMappings.Add("SQL_UEBERPRUEFUNG", "SQL_UEBERPRUEFUNG") - Me._adapter.TableMappings.Add(tableMapping) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString - 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 GUID, NAME, CTRL_TYPE, INDEX_NAME, TYP, VALIDATION, CHOICE_LIST, CO"& _ - "NNECTION_ID, SQL_UEBERPRUEFUNG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPM_PROFILE_CONTROLS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (PROFIL_ID = @P_ID) AND (CTRL_TYPE <> 'LBL')" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@P_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFIL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBWH_CHECK_PROFILE_CONTROLSDataTable, ByVal P_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(P_ID,Integer) - 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(ByVal P_ID As Integer) As DD_DMSLiteDataSet.TBWH_CHECK_PROFILE_CONTROLSDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(P_ID,Integer) - Dim dataTable As DD_DMSLiteDataSet.TBWH_CHECK_PROFILE_CONTROLSDataTable = New DD_DMSLiteDataSet.TBWH_CHECK_PROFILE_CONTROLSDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBPM_PROFILE_CONTROLSTableAdapter - 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 - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - 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 - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - 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 - 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 - 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) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - 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) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + 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) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + 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) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property _ @@ -23391,20 +22363,240 @@ Namespace DD_DMSLiteDataSetTableAdapters 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 SequentialOrder, USER_ID, USER_NAME, USER_PRENAME, USER_SURNAME, US"& _ - "ER_SHORTNAME, USER_EMAIL, USER_LANGUAGE, USER_COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM dbo.FNPM_"& _ - "GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE_USER_FOR_PROFILE_1" + Me._commandCollection(0).CommandText = "SELECT SequentialOrder, USER_ID, USER_NAME, USER_PRENAME, USER_SURNAME, US"& _ + "ER_SHORTNAME, USER_EMAIL, USER_LANGUAGE, USER_COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM dbo.FNPM_"& _ + "GET_FREE_USER_FOR_PROFILE(@PROFILE_ID) AS FNPM_GET_FREE_USER_FOR_PROFILE_1" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + 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(ByVal PROFILE_ID As Integer) As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + Dim dataTable As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable = New DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_EMAIL_TEMPLATETableAdapter + 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 + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + 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 + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + 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 + 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 + 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) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + 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) _ + 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 + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_EMAIL_TEMPLATE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("EMAIL_SUBJECT", "EMAIL_SUBJECT") + tableMapping.ColumnMappings.Add("EMAIL_BODY1", "EMAIL_BODY1") + tableMapping.ColumnMappings.Add("EMAIL_BODY2", "EMAIL_BODY2") + tableMapping.ColumnMappings.Add("EMAIL_BODY3", "EMAIL_BODY3") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + 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 TBDD_EMAIL_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_EMAIL_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TITLE, EMAIL_SUBJECT, "& _ + "EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TITLE,@EMAIL_"& _ + "SUBJECT,@EMAIL_BODY1,@EMAIL_BODY2,@EMAIL_BODY3,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE"& _ + ", EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO, ADDED_WHEN, C"& _ + "HANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_TEMPLATE WHERE (GUID = SCOPE_IDENTITY()"& _ + ")" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY1", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY2", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY3", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY3", 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, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_EMAIL_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, EMAIL_SUBJEC"& _ + "T = @EMAIL_SUBJECT, EMAIL_BODY1 = @EMAIL_BODY1, EMAIL_BODY2 = @EMAIL_BODY2, EMAI"& _ + "L_BODY3 = @EMAIL_BODY3, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origin"& _ + "al_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE, EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_B"& _ + "ODY3, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_TEMPLATE "& _ + "WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY1", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY2", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY3", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY3", 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, 30, 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("@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.DD_ProcessManager.My.MySettings.Default.ConnectionString + 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 TBDD_EMAIL_TEMPLATE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EMAIL_TEMPLATE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable, ByVal PROFILE_ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -23416,13 +22608,163 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal PROFILE_ID As Integer) As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) - Dim dataTable As DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable = New DD_DMSLiteDataSet.FNPM_GET_FREE_USER_FOR_PROFILEDataTable() + Dim dataTable As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable = New DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBDD_EMAIL_TEMPLATE") + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function + + _ + Public Overloads Overridable 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) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + 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 + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal TITLE As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_BODY1 As String, ByVal EMAIL_BODY2 As String, ByVal EMAIL_BODY3 As String, ByVal ADDED_WHO As String) As Integer + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(TITLE,String) + End If + If (EMAIL_SUBJECT Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_SUBJECT") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(EMAIL_SUBJECT,String) + End If + If (EMAIL_BODY1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY1") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(EMAIL_BODY1,String) + End If + If (EMAIL_BODY2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY2") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL_BODY2,String) + End If + If (EMAIL_BODY3 Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY3") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(EMAIL_BODY3,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_BODY1 As String, ByVal EMAIL_BODY2 As String, ByVal EMAIL_BODY3 As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TITLE,String) + End If + If (EMAIL_SUBJECT Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_SUBJECT") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EMAIL_SUBJECT,String) + End If + If (EMAIL_BODY1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY1") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EMAIL_BODY1,String) + End If + If (EMAIL_BODY2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY2") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL_BODY2,String) + End If + If (EMAIL_BODY3 Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY3") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL_BODY3,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function End Class ''' @@ -23434,7 +22776,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_EMAIL_TEMPLATETableAdapter + Partial Public Class TBDD_GUI_LANGUAGE_PHRASETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -23551,53 +22893,73 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_EMAIL_TEMPLATE" + tableMapping.DataSetTable = "TBDD_GUI_LANGUAGE_PHRASE" tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("MODULE", "MODULE") tableMapping.ColumnMappings.Add("TITLE", "TITLE") - tableMapping.ColumnMappings.Add("EMAIL_SUBJECT", "EMAIL_SUBJECT") - tableMapping.ColumnMappings.Add("EMAIL_BODY1", "EMAIL_BODY1") - tableMapping.ColumnMappings.Add("EMAIL_BODY2", "EMAIL_BODY2") - tableMapping.ColumnMappings.Add("EMAIL_BODY3", "EMAIL_BODY3") + tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") + tableMapping.ColumnMappings.Add("CAPT_TYPE", "CAPT_TYPE") + tableMapping.ColumnMappings.Add("STRING1", "STRING1") + tableMapping.ColumnMappings.Add("STRING2", "STRING2") + tableMapping.ColumnMappings.Add("STRING3", "STRING3") + tableMapping.ColumnMappings.Add("STRING4", "STRING4") + tableMapping.ColumnMappings.Add("STRING5", "STRING5") + tableMapping.ColumnMappings.Add("STRING6", "STRING6") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("OBJ_NAME", "OBJ_NAME") + tableMapping.ColumnMappings.Add("INTERNAL", "INTERNAL") 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 TBDD_EMAIL_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_GUI_LANGUAGE_PHRASE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_EMAIL_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TITLE, EMAIL_SUBJECT, "& _ - "EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TITLE,@EMAIL_"& _ - "SUBJECT,@EMAIL_BODY1,@EMAIL_BODY2,@EMAIL_BODY3,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE"& _ - ", EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_BODY3, ADDED_WHO, ADDED_WHEN, C"& _ - "HANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_TEMPLATE WHERE (GUID = SCOPE_IDENTITY()"& _ - ")" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GUI_LANGUAGE_PHRASE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (MODULE, TITLE, LA"& _ + "NGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRING4, STRING5, STRING6, ADDED_W"& _ + "HO, OBJ_NAME, INTERNAL)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES ('PM',@TITLE,@LANGUAGE,@CAPT_TYPE,@STRING"& _ + "1,@STRING2,@STRING3,@STRING4,@STRING5,@STRING6,@ADDED_WHO, '@OBJ_NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"@OBJ_NAME"& _ + "',@INTERNAL); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRI"& _ + "NG2, STRING3, STRING4, STRING5, STRING6, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHA"& _ + "NGED_WHEN FROM TBDD_GUI_LANGUAGE_PHRASE WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY1", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY2", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY3", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAPT_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CAPT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING3", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING4", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING5", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING6", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING6", 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, 30, 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("@INTERNAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_EMAIL_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, EMAIL_SUBJEC"& _ - "T = @EMAIL_SUBJECT, EMAIL_BODY1 = @EMAIL_BODY1, EMAIL_BODY2 = @EMAIL_BODY2, EMAI"& _ - "L_BODY3 = @EMAIL_BODY3, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origin"& _ - "al_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TITLE, EMAIL_SUBJECT, EMAIL_BODY1, EMAIL_BODY2, EMAIL_B"& _ - "ODY3, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_TEMPLATE "& _ - "WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_GUI_LANGUAGE_PHRASE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, LANGUAG"& _ + "E = @LANGUAGE, CAPT_TYPE = @CAPT_TYPE, STRING1 = @STRING1, STRING2 = @STRING2, S"& _ + "TRING3 = @STRING3, STRING4 = @STRING4, STRING5 = @STRING5, STRING6 = @STRING6, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHANGED_WHO, OBJ_NAME = @OBJ_NAME, INTE"& _ + "RNAL = @INTERNAL"&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, MODULE,"& _ + " TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRING4, STRING5, STRING"& _ + "6, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GUI_LANGUAGE_PHRAS"& _ + "E WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY1", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY2", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY3", Global.System.Data.SqlDbType.VarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAPT_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CAPT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING3", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING4", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING5", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING6", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, 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("@OBJ_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJ_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERNAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", 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 @@ -23615,7 +22977,10 @@ Namespace DD_DMSLiteDataSetTableAdapters 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 TBDD_EMAIL_TEMPLATE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EMAIL_TEMPLATE" + Me._commandCollection(0).CommandText = "SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3"& _ + ", STRING4, STRING5, STRING6, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, O"& _ + "BJ_NAME, INTERNAL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GUI_LANGUAGE_PHRASE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (MODUL"& _ + "E = 'PM')" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub @@ -23623,7 +22988,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -23636,9 +23001,9 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable = New DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable() + Dim dataTable As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable = New DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -23646,7 +23011,7 @@ Namespace DD_DMSLiteDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_EMAIL_TEMPLATEDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -23654,7 +23019,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_EMAIL_TEMPLATE") + Return Me.Adapter.Update(dataSet, "TBDD_GUI_LANGUAGE_PHRASE") End Function _ - Public Overloads Overridable Function Insert(ByVal TITLE As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_BODY1 As String, ByVal EMAIL_BODY2 As String, ByVal EMAIL_BODY3 As String, ByVal ADDED_WHO As String) As Integer + Public Overloads Overridable Function Insert(ByVal TITLE As String, ByVal LANGUAGE As String, ByVal CAPT_TYPE As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal STRING5 As String, ByVal STRING6 As String, ByVal ADDED_WHO As String, ByVal INTERNAL As Boolean) As Integer If (TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("TITLE") Else Me.Adapter.InsertCommand.Parameters(0).Value = CType(TITLE,String) End If - If (EMAIL_SUBJECT Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_SUBJECT") + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(EMAIL_SUBJECT,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(LANGUAGE,String) End If - If (EMAIL_BODY1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_BODY1") + If (CAPT_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("CAPT_TYPE") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(EMAIL_BODY1,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(CAPT_TYPE,String) End If - If (EMAIL_BODY2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_BODY2") + If (STRING1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("STRING1") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL_BODY2,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(STRING1,String) End If - If (EMAIL_BODY3 Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_BODY3") + If (STRING2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("STRING2") Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(EMAIL_BODY3,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(STRING2,String) + End If + If (STRING3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(STRING3,String) + End If + If (STRING4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(STRING4,String) + End If + If (STRING5 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(STRING5,String) + End If + If (STRING6 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(STRING6,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(9).Value = CType(ADDED_WHO,String) End If + Me.Adapter.InsertCommand.Parameters(10).Value = CType(INTERNAL,Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -23746,39 +23132,65 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal EMAIL_SUBJECT As String, ByVal EMAIL_BODY1 As String, ByVal EMAIL_BODY2 As String, ByVal EMAIL_BODY3 As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal LANGUAGE As String, ByVal CAPT_TYPE As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal STRING5 As String, ByVal STRING6 As String, ByVal CHANGED_WHO As String, ByVal OBJ_NAME As String, ByVal INTERNAL As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (TITLE Is Nothing) Then Throw New Global.System.ArgumentNullException("TITLE") Else Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TITLE,String) End If - If (EMAIL_SUBJECT Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_SUBJECT") + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EMAIL_SUBJECT,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LANGUAGE,String) End If - If (EMAIL_BODY1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_BODY1") + If (CAPT_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("CAPT_TYPE") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EMAIL_BODY1,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CAPT_TYPE,String) End If - If (EMAIL_BODY2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_BODY2") + If (STRING1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("STRING1") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL_BODY2,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(STRING1,String) End If - If (EMAIL_BODY3 Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_BODY3") + If (STRING2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("STRING2") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL_BODY3,String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(STRING2,String) End If - If (CHANGED_WHO Is Nothing) Then + If (STRING3 Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(STRING3,String) End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) + If (STRING4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(STRING4,String) + End If + If (STRING5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(STRING5,String) + End If + If (STRING6 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(STRING6,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHO,String) + End If + If (OBJ_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJ_NAME") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(OBJ_NAME,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(INTERNAL,Boolean) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -23804,7 +23216,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_GUI_LANGUAGE_PHRASETableAdapter + Partial Public Class VWPM_CHART_INVOICE_MONITORTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -23921,75 +23333,19 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_GUI_LANGUAGE_PHRASE" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("MODULE", "MODULE") - tableMapping.ColumnMappings.Add("TITLE", "TITLE") - tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") - tableMapping.ColumnMappings.Add("CAPT_TYPE", "CAPT_TYPE") - tableMapping.ColumnMappings.Add("STRING1", "STRING1") - tableMapping.ColumnMappings.Add("STRING2", "STRING2") - tableMapping.ColumnMappings.Add("STRING3", "STRING3") - tableMapping.ColumnMappings.Add("STRING4", "STRING4") - tableMapping.ColumnMappings.Add("STRING5", "STRING5") - tableMapping.ColumnMappings.Add("STRING6", "STRING6") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("OBJ_NAME", "OBJ_NAME") - tableMapping.ColumnMappings.Add("INTERNAL", "INTERNAL") + tableMapping.DataSetTable = "VWPM_CHART_INVOICE_MONITOR" + tableMapping.ColumnMappings.Add("Anzahl_AI", "Anzahl_AI") + tableMapping.ColumnMappings.Add("NettoSumme_AI", "NettoSumme_AI") + tableMapping.ColumnMappings.Add("Anzahl_PE", "Anzahl_PE") + tableMapping.ColumnMappings.Add("NettoSumme_PE", "NettoSumme_PE") + tableMapping.ColumnMappings.Add("Anzahl_FF", "Anzahl_FF") + tableMapping.ColumnMappings.Add("NettoSumme_FF", "NettoSumme_FF") + tableMapping.ColumnMappings.Add("Anzahl_FIF", "Anzahl_FIF") + tableMapping.ColumnMappings.Add("NettoSumme_FIF", "NettoSumme_FIF") + tableMapping.ColumnMappings.Add("Anzahl_ZK", "Anzahl_ZK") + tableMapping.ColumnMappings.Add("WFState", "WFState") + tableMapping.ColumnMappings.Add("NettoSumme_ZK", "NettoSumme_ZK") 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 TBDD_GUI_LANGUAGE_PHRASE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GUI_LANGUAGE_PHRASE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (MODULE, TITLE, LA"& _ - "NGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRING4, STRING5, STRING6, ADDED_W"& _ - "HO, OBJ_NAME, INTERNAL)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES ('PM',@TITLE,@LANGUAGE,@CAPT_TYPE,@STRING"& _ - "1,@STRING2,@STRING3,@STRING4,@STRING5,@STRING6,@ADDED_WHO, '@OBJ_NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"@OBJ_NAME"& _ - "',@INTERNAL); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, MODULE, TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRI"& _ - "NG2, STRING3, STRING4, STRING5, STRING6, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHA"& _ - "NGED_WHEN FROM TBDD_GUI_LANGUAGE_PHRASE WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAPT_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CAPT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING3", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING4", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING5", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING6", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING6", 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, 30, 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("@INTERNAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_GUI_LANGUAGE_PHRASE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TITLE = @TITLE, LANGUAG"& _ - "E = @LANGUAGE, CAPT_TYPE = @CAPT_TYPE, STRING1 = @STRING1, STRING2 = @STRING2, S"& _ - "TRING3 = @STRING3, STRING4 = @STRING4, STRING5 = @STRING5, STRING6 = @STRING6, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHANGED_WHO, OBJ_NAME = @OBJ_NAME, INTE"& _ - "RNAL = @INTERNAL"&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, MODULE,"& _ - " TITLE, LANGUAGE, CAPT_TYPE, STRING1, STRING2, STRING3, STRING4, STRING5, STRING"& _ - "6, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_GUI_LANGUAGE_PHRAS"& _ - "E WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAPT_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CAPT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING3", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING4", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING5", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING6", Global.System.Data.SqlDbType.VarChar, 900, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 30, 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("@OBJ_NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJ_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INTERNAL", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "INTERNAL", 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 _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITORDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -24029,209 +23383,188 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITORDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable = New DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable() + Dim dataTable As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITORDataTable = New DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITORDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBDD_GUI_LANGUAGE_PHRASEDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_GUI_LANGUAGE_PHRASE") - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + 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 + End If + i = (i + 1) + Loop + End Set + End Property _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - 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 + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + 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) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - End Try - End Function + 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) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property _ - Public Overloads Overridable Function Insert(ByVal TITLE As String, ByVal LANGUAGE As String, ByVal CAPT_TYPE As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal STRING5 As String, ByVal STRING6 As String, ByVal ADDED_WHO As String, ByVal INTERNAL As Boolean) As Integer - If (TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TITLE") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(TITLE,String) - End If - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(LANGUAGE,String) - End If - If (CAPT_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("CAPT_TYPE") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(CAPT_TYPE,String) - End If - If (STRING1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("STRING1") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(STRING1,String) - End If - If (STRING2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("STRING2") - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(STRING2,String) - End If - If (STRING3 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(STRING3,String) - End If - If (STRING4 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(STRING4,String) - End If - If (STRING5 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(STRING5,String) - End If - If (STRING6 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(STRING6,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(9).Value = CType(ADDED_WHO,String) - End If - Me.Adapter.InsertCommand.Parameters(10).Value = CType(INTERNAL,Boolean) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection End If - End Try - End Function + Return Me._commandCollection + End Get + End Property _ - Public Overloads Overridable Function Update(ByVal TITLE As String, ByVal LANGUAGE As String, ByVal CAPT_TYPE As String, ByVal STRING1 As String, ByVal STRING2 As String, ByVal STRING3 As String, ByVal STRING4 As String, ByVal STRING5 As String, ByVal STRING6 As String, ByVal CHANGED_WHO As String, ByVal OBJ_NAME As String, ByVal INTERNAL As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (TITLE Is Nothing) Then - Throw New Global.System.ArgumentNullException("TITLE") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TITLE,String) - End If - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LANGUAGE,String) - End If - If (CAPT_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("CAPT_TYPE") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CAPT_TYPE,String) - End If - If (STRING1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("STRING1") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(STRING1,String) - End If - If (STRING2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("STRING2") - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(STRING2,String) - End If - If (STRING3 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(STRING3,String) - End If - If (STRING4 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(STRING4,String) - End If - If (STRING5 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(STRING5,String) - End If - If (STRING6 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(STRING6,String) - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHO,String) - End If - If (OBJ_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJ_NAME") - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(OBJ_NAME,String) - End If - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(INTERNAL,Boolean) - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + 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() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "VWPM_CHART_INVOICE_MONITOR_SERIES" + tableMapping.ColumnMappings.Add("Title", "Title") + tableMapping.ColumnMappings.Add("Anzahl", "Anzahl") + tableMapping.ColumnMappings.Add("NettoSumme", "NettoSumme") + tableMapping.ColumnMappings.Add("SEQ", "SEQ") + Me._adapter.TableMappings.Add(tableMapping) + End Sub + + _ + Private Sub InitConnection() + Me._connection = New Global.System.Data.SqlClient.SqlConnection() + Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString + 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 Title, Anzahl, NettoSumme, SEQ"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPM_CHART_INVOICE_"& _ + "MONITOR_SERIES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY SEQ" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIESDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIESDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIESDataTable = New DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable End Function End Class @@ -24244,7 +23577,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class VWPM_CHART_INVOICE_MONITORTableAdapter + Partial Public Class VWPM_CHART_TOP5TableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -24361,18 +23694,11 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "VWPM_CHART_INVOICE_MONITOR" - tableMapping.ColumnMappings.Add("Anzahl_AI", "Anzahl_AI") - tableMapping.ColumnMappings.Add("NettoSumme_AI", "NettoSumme_AI") - tableMapping.ColumnMappings.Add("Anzahl_PE", "Anzahl_PE") - tableMapping.ColumnMappings.Add("NettoSumme_PE", "NettoSumme_PE") - tableMapping.ColumnMappings.Add("Anzahl_FF", "Anzahl_FF") - tableMapping.ColumnMappings.Add("NettoSumme_FF", "NettoSumme_FF") - tableMapping.ColumnMappings.Add("Anzahl_FIF", "Anzahl_FIF") - tableMapping.ColumnMappings.Add("NettoSumme_FIF", "NettoSumme_FIF") - tableMapping.ColumnMappings.Add("Anzahl_ZK", "Anzahl_ZK") - tableMapping.ColumnMappings.Add("WFState", "WFState") - tableMapping.ColumnMappings.Add("NettoSumme_ZK", "NettoSumme_ZK") + tableMapping.DataSetTable = "VWPM_CHART_TOP5" + tableMapping.ColumnMappings.Add("KRED_NAME", "KRED_NAME") + tableMapping.ColumnMappings.Add("ANZ_BELEG", "ANZ_BELEG") + tableMapping.ColumnMappings.Add("Netto", "Netto") + tableMapping.ColumnMappings.Add("Skonto", "Skonto") Me._adapter.TableMappings.Add(tableMapping) End Sub @@ -24389,8 +23715,8 @@ Namespace DD_DMSLiteDataSetTableAdapters 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 VWPM_CHART_INVOICE_MONITOR.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPM_CHART_INVOICE_MO"& _ - "NITOR" + Me._commandCollection(0).CommandText = "SELECT KRED_NAME, ANZ_BELEG, Netto, Skonto"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPM_CHART_TOP"& _ + "5"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Netto DESC" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub @@ -24398,7 +23724,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITORDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.VWPM_CHART_TOP5DataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -24411,9 +23737,9 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITORDataTable + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.VWPM_CHART_TOP5DataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITORDataTable = New DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITORDataTable() + Dim dataTable As DD_DMSLiteDataSet.VWPM_CHART_TOP5DataTable = New DD_DMSLiteDataSet.VWPM_CHART_TOP5DataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -24428,7 +23754,7 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class VWPM_CHART_INVOICE_MONITOR_SERIESTableAdapter + Partial Public Class TBPM_PROFILETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -24545,12 +23871,220 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "VWPM_CHART_INVOICE_MONITOR_SERIES" - tableMapping.ColumnMappings.Add("Title", "Title") - tableMapping.ColumnMappings.Add("Anzahl", "Anzahl") - tableMapping.ColumnMappings.Add("NettoSumme", "NettoSumme") - tableMapping.ColumnMappings.Add("SEQ", "SEQ") + tableMapping.DataSetTable = "TBPM_PROFILE" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("TITLE", "TITLE") + tableMapping.ColumnMappings.Add("PRIORITY", "PRIORITY") + tableMapping.ColumnMappings.Add("DESCRIPTION", "DESCRIPTION") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("WD_SEARCH", "WD_SEARCH") + tableMapping.ColumnMappings.Add("NO_OF_DOCUMENTS", "NO_OF_DOCUMENTS") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("FINAL_PROFILE", "FINAL_PROFILE") + tableMapping.ColumnMappings.Add("FINAL_TEXT", "FINAL_TEXT") + tableMapping.ColumnMappings.Add("MOVE2FOLDER", "MOVE2FOLDER") + tableMapping.ColumnMappings.Add("TYPE", "TYPE") + tableMapping.ColumnMappings.Add("WD_OBJECTTYPE", "WD_OBJECTTYPE") + tableMapping.ColumnMappings.Add("SORT_BY_LATEST", "SORT_BY_LATEST") + tableMapping.ColumnMappings.Add("PM_VEKTOR_INDEX", "PM_VEKTOR_INDEX") + tableMapping.ColumnMappings.Add("LOG_INDEX", "LOG_INDEX") + tableMapping.ColumnMappings.Add("SQL_VIEW", "SQL_VIEW") + tableMapping.ColumnMappings.Add("ANNOTATE_ALL_WORK_HISTORY_ENTRIES", "ANNOTATE_ALL_WORK_HISTORY_ENTRIES") + tableMapping.ColumnMappings.Add("ANNOTATE_WORK_HISTORY_ENTRY", "ANNOTATE_WORK_HISTORY_ENTRY") + tableMapping.ColumnMappings.Add("WORK_HISTORY_ENTRY", "WORK_HISTORY_ENTRY") + tableMapping.ColumnMappings.Add("DISPLAY_MODE", "DISPLAY_MODE") + tableMapping.ColumnMappings.Add("SQL_BTN_FINISH", "SQL_BTN_FINISH") 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 [TBPM_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Origin"& _ + "al_NAME) AND ([TITLE] = @Original_TITLE) AND ([PRIORITY] = @Original_PRIORITY) A"& _ + "ND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Ori"& _ + "ginal_DESCRIPTION)) AND ([ACTIVE] = @Original_ACTIVE) AND ([NO_OF_DOCUMENTS] = @"& _ + "Original_NO_OF_DOCUMENTS) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WH"& _ + "EN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS N"& _ + "ULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 "& _ + "AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND (["& _ + "FINAL_PROFILE] = @Original_FINAL_PROFILE) AND ((@IsNull_FINAL_TEXT = 1 AND [FINA"& _ + "L_TEXT] IS NULL) OR ([FINAL_TEXT] = @Original_FINAL_TEXT)) AND ((@IsNull_MOVE2FO"& _ + "LDER = 1 AND [MOVE2FOLDER] IS NULL) OR ([MOVE2FOLDER] = @Original_MOVE2FOLDER)) "& _ + "AND ([TYPE] = @Original_TYPE) AND ([WD_OBJECTTYPE] = @Original_WD_OBJECTTYPE) AN"& _ + "D ([SORT_BY_LATEST] = @Original_SORT_BY_LATEST) AND ([PM_VEKTOR_INDEX] = @Origin"& _ + "al_PM_VEKTOR_INDEX) AND ([LOG_INDEX] = @Original_LOG_INDEX) AND ([ANNOTATE_ALL_W"& _ + "ORK_HISTORY_ENTRIES] = @Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES) AND ([ANNOTA"& _ + "TE_WORK_HISTORY_ENTRY] = @Original_ANNOTATE_WORK_HISTORY_ENTRY) AND ((@IsNull_WO"& _ + "RK_HISTORY_ENTRY = 1 AND [WORK_HISTORY_ENTRY] IS NULL) OR ([WORK_HISTORY_ENTRY] "& _ + "= @Original_WORK_HISTORY_ENTRY)) AND ([DISPLAY_MODE] = @Original_DISPLAY_MODE))" + 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_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRIORITY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DESCRIPTION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", 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("@Original_NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Original, false, 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("@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_FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FINAL_TEXT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FINAL_TEXT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MOVE2FOLDER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MOVE2FOLDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_OBJECTTYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SORT_BY_LATEST", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SORT_BY_LATEST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOG_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", 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 [TBPM_PROFILE] ([NAME], [TITLE], [PRIORITY], [DESCRIPTION], [ACTIVE],"& _ + " [WD_SEARCH], [NO_OF_DOCUMENTS], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHAN"& _ + "GED_WHEN], [FINAL_PROFILE], [FINAL_TEXT], [MOVE2FOLDER], [TYPE], [WD_OBJECTTYPE]"& _ + ", [SORT_BY_LATEST], [PM_VEKTOR_INDEX], [LOG_INDEX], [SQL_VIEW], [ANNOTATE_ALL_WO"& _ + "RK_HISTORY_ENTRIES], [ANNOTATE_WORK_HISTORY_ENTRY], [WORK_HISTORY_ENTRY], [DISPL"& _ + "AY_MODE], [SQL_BTN_FINISH]) VALUES (@NAME, @TITLE, @PRIORITY, @DESCRIPTION, @ACT"& _ + "IVE, @WD_SEARCH, @NO_OF_DOCUMENTS, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANG"& _ + "ED_WHEN, @FINAL_PROFILE, @FINAL_TEXT, @MOVE2FOLDER, @TYPE, @WD_OBJECTTYPE, @SORT"& _ + "_BY_LATEST, @PM_VEKTOR_INDEX, @LOG_INDEX, @SQL_VIEW, @ANNOTATE_ALL_WORK_HISTORY_"& _ + "ENTRIES, @ANNOTATE_WORK_HISTORY_ENTRY, @WORK_HISTORY_ENTRY, @DISPLAY_MODE, @SQL_"& _ + "BTN_FINISH);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH"& _ + ", NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFI"& _ + "LE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDE"& _ + "X, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY"& _ + "_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH FROM TBPM_PROFILE WHERE"& _ + " (GUID = SCOPE_IDENTITY()) ORDER BY NAME" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRIORITY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_TEXT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MOVE2FOLDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SORT_BY_LATEST", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SORT_BY_LATEST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_BTN_FINISH", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_BTN_FINISH", 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 [TBPM_PROFILE] SET [NAME] = @NAME, [TITLE] = @TITLE, [PRIORITY] = @PRIORIT"& _ + "Y, [DESCRIPTION] = @DESCRIPTION, [ACTIVE] = @ACTIVE, [WD_SEARCH] = @WD_SEARCH, ["& _ + "NO_OF_DOCUMENTS] = @NO_OF_DOCUMENTS, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @A"& _ + "DDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [FINAL_"& _ + "PROFILE] = @FINAL_PROFILE, [FINAL_TEXT] = @FINAL_TEXT, [MOVE2FOLDER] = @MOVE2FOL"& _ + "DER, [TYPE] = @TYPE, [WD_OBJECTTYPE] = @WD_OBJECTTYPE, [SORT_BY_LATEST] = @SORT_"& _ + "BY_LATEST, [PM_VEKTOR_INDEX] = @PM_VEKTOR_INDEX, [LOG_INDEX] = @LOG_INDEX, [SQL_"& _ + "VIEW] = @SQL_VIEW, [ANNOTATE_ALL_WORK_HISTORY_ENTRIES] = @ANNOTATE_ALL_WORK_HIST"& _ + "ORY_ENTRIES, [ANNOTATE_WORK_HISTORY_ENTRY] = @ANNOTATE_WORK_HISTORY_ENTRY, [WORK"& _ + "_HISTORY_ENTRY] = @WORK_HISTORY_ENTRY, [DISPLAY_MODE] = @DISPLAY_MODE, [SQL_BTN_"& _ + "FINISH] = @SQL_BTN_FINISH WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Origin"& _ + "al_NAME) AND ([TITLE] = @Original_TITLE) AND ([PRIORITY] = @Original_PRIORITY) A"& _ + "ND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Ori"& _ + "ginal_DESCRIPTION)) AND ([ACTIVE] = @Original_ACTIVE) AND ([NO_OF_DOCUMENTS] = @"& _ + "Original_NO_OF_DOCUMENTS) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WH"& _ + "EN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS N"& _ + "ULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 "& _ + "AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND (["& _ + "FINAL_PROFILE] = @Original_FINAL_PROFILE) AND ((@IsNull_FINAL_TEXT = 1 AND [FINA"& _ + "L_TEXT] IS NULL) OR ([FINAL_TEXT] = @Original_FINAL_TEXT)) AND ((@IsNull_MOVE2FO"& _ + "LDER = 1 AND [MOVE2FOLDER] IS NULL) OR ([MOVE2FOLDER] = @Original_MOVE2FOLDER)) "& _ + "AND ([TYPE] = @Original_TYPE) AND ([WD_OBJECTTYPE] = @Original_WD_OBJECTTYPE) AN"& _ + "D ([SORT_BY_LATEST] = @Original_SORT_BY_LATEST) AND ([PM_VEKTOR_INDEX] = @Origin"& _ + "al_PM_VEKTOR_INDEX) AND ([LOG_INDEX] = @Original_LOG_INDEX) AND ([ANNOTATE_ALL_W"& _ + "ORK_HISTORY_ENTRIES] = @Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES) AND ([ANNOTA"& _ + "TE_WORK_HISTORY_ENTRY] = @Original_ANNOTATE_WORK_HISTORY_ENTRY) AND ((@IsNull_WO"& _ + "RK_HISTORY_ENTRY = 1 AND [WORK_HISTORY_ENTRY] IS NULL) OR ([WORK_HISTORY_ENTRY] "& _ + "= @Original_WORK_HISTORY_ENTRY)) AND ([DISPLAY_MODE] = @Original_DISPLAY_MODE));"& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCU"& _ + "MENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TE"& _ + "XT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX"& _ + ", SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK"& _ + "_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH FROM TBPM_PROFILE WHERE (GUID = @GU"& _ + "ID) ORDER BY NAME" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRIORITY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FINAL_TEXT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MOVE2FOLDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SORT_BY_LATEST", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SORT_BY_LATEST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_INDEX", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_VIEW", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_BTN_FINISH", Global.System.Data.SqlDbType.NVarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_BTN_FINISH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TITLE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TITLE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PRIORITY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PRIORITY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DESCRIPTION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ACTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_NO_OF_DOCUMENTS", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "NO_OF_DOCUMENTS", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FINAL_PROFILE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_PROFILE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_FINAL_TEXT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FINAL_TEXT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FINAL_TEXT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_MOVE2FOLDER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_MOVE2FOLDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "MOVE2FOLDER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_TYPE", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_OBJECTTYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SORT_BY_LATEST", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SORT_BY_LATEST", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PM_VEKTOR_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PM_VEKTOR_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LOG_INDEX", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_INDEX", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_ALL_WORK_HISTORY_ENTRIES", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ANNOTATE_WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORK_HISTORY_ENTRY", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORK_HISTORY_ENTRY", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DISPLAY_MODE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DISPLAY_MODE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIESDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILEDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -24588,188 +24126,620 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIESDataTable + Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.TBPM_PROFILEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIESDataTable = New DD_DMSLiteDataSet.VWPM_CHART_INVOICE_MONITOR_SERIESDataTable() + Dim dataTable As DD_DMSLiteDataSet.TBPM_PROFILEDataTable = New DD_DMSLiteDataSet.TBPM_PROFILEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class VWPM_CHART_TOP5TableAdapter - 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 Overloads Overridable Function Update(ByVal dataTable As DD_DMSLiteDataSet.TBPM_PROFILEDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSLiteDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPM_PROFILE") + End Function _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - 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 - End If - i = (i + 1) - Loop - End Set - End Property + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - 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) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - 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) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _ + Public Overloads Overridable Function Delete( _ + ByVal Original_GUID As Integer, _ + ByVal Original_NAME As String, _ + ByVal Original_TITLE As String, _ + ByVal Original_PRIORITY As Integer, _ + ByVal Original_DESCRIPTION As String, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_NO_OF_DOCUMENTS As Integer, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_FINAL_PROFILE As Boolean, _ + ByVal Original_FINAL_TEXT As String, _ + ByVal Original_MOVE2FOLDER As String, _ + ByVal Original_TYPE As Short, _ + ByVal Original_WD_OBJECTTYPE As String, _ + ByVal Original_SORT_BY_LATEST As Boolean, _ + ByVal Original_PM_VEKTOR_INDEX As String, _ + ByVal Original_LOG_INDEX As String, _ + ByVal Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _ + ByVal Original_ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ + ByVal Original_WORK_HISTORY_ENTRY As String, _ + ByVal Original_DISPLAY_MODE As String) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_NAME") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_NAME,String) + End If + If (Original_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TITLE") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_TITLE,String) + End If + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_PRIORITY,Integer) + If (Original_DESCRIPTION Is Nothing) Then + 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_DESCRIPTION,String) + End If + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_ACTIVE,Boolean) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_NO_OF_DOCUMENTS,Integer) + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value + End If + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_FINAL_PROFILE,Boolean) + If (Original_FINAL_TEXT Is Nothing) Then + 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_FINAL_TEXT,String) + End If + If (Original_MOVE2FOLDER Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(Original_MOVE2FOLDER,String) + End If + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_TYPE,Short) + If (Original_WD_OBJECTTYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_WD_OBJECTTYPE") + Else + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(Original_WD_OBJECTTYPE,String) + End If + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_SORT_BY_LATEST,Boolean) + If (Original_PM_VEKTOR_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PM_VEKTOR_INDEX") + Else + Me.Adapter.DeleteCommand.Parameters(22).Value = CType(Original_PM_VEKTOR_INDEX,String) + End If + If (Original_LOG_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LOG_INDEX") + Else + Me.Adapter.DeleteCommand.Parameters(23).Value = CType(Original_LOG_INDEX,String) + End If + Me.Adapter.DeleteCommand.Parameters(24).Value = CType(Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES,Boolean) + Me.Adapter.DeleteCommand.Parameters(25).Value = CType(Original_ANNOTATE_WORK_HISTORY_ENTRY,Boolean) + If (Original_WORK_HISTORY_ENTRY Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(26).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(27).Value = CType(Original_WORK_HISTORY_ENTRY,String) + End If + If (Original_DISPLAY_MODE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_DISPLAY_MODE") + Else + Me.Adapter.DeleteCommand.Parameters(28).Value = CType(Original_DISPLAY_MODE,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.DeleteCommand.Connection.Open + End If + 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 End If - End Set - End Property + End Try + End Function _ - Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() - Get - If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ + Public Overloads Overridable Function Insert( _ + ByVal NAME As String, _ + ByVal TITLE As String, _ + ByVal PRIORITY As Integer, _ + ByVal DESCRIPTION As String, _ + ByVal ACTIVE As Boolean, _ + ByVal WD_SEARCH As String, _ + ByVal NO_OF_DOCUMENTS As Integer, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal FINAL_PROFILE As Boolean, _ + ByVal FINAL_TEXT As String, _ + ByVal MOVE2FOLDER As String, _ + ByVal TYPE As Short, _ + ByVal WD_OBJECTTYPE As String, _ + ByVal SORT_BY_LATEST As Boolean, _ + ByVal PM_VEKTOR_INDEX As String, _ + ByVal LOG_INDEX As String, _ + ByVal SQL_VIEW As String, _ + ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _ + ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ + ByVal WORK_HISTORY_ENTRY As String, _ + ByVal DISPLAY_MODE As String, _ + ByVal SQL_BTN_FINISH As String) As Integer + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) + End If + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(TITLE,String) + End If + Me.Adapter.InsertCommand.Parameters(2).Value = CType(PRIORITY,Integer) + If (DESCRIPTION Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(DESCRIPTION,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (WD_SEARCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("WD_SEARCH") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(WD_SEARCH,String) + End If + Me.Adapter.InsertCommand.Parameters(6).Value = CType(NO_OF_DOCUMENTS,Integer) + 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) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(8).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(10).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + Me.Adapter.InsertCommand.Parameters(11).Value = CType(FINAL_PROFILE,Boolean) + If (FINAL_TEXT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(FINAL_TEXT,String) + End If + If (MOVE2FOLDER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(MOVE2FOLDER,String) + End If + Me.Adapter.InsertCommand.Parameters(14).Value = CType(TYPE,Short) + If (WD_OBJECTTYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("WD_OBJECTTYPE") + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(WD_OBJECTTYPE,String) + End If + Me.Adapter.InsertCommand.Parameters(16).Value = CType(SORT_BY_LATEST,Boolean) + If (PM_VEKTOR_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("PM_VEKTOR_INDEX") + Else + Me.Adapter.InsertCommand.Parameters(17).Value = CType(PM_VEKTOR_INDEX,String) + End If + If (LOG_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("LOG_INDEX") + Else + Me.Adapter.InsertCommand.Parameters(18).Value = CType(LOG_INDEX,String) + End If + If (SQL_VIEW Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_VIEW") + Else + Me.Adapter.InsertCommand.Parameters(19).Value = CType(SQL_VIEW,String) + End If + Me.Adapter.InsertCommand.Parameters(20).Value = CType(ANNOTATE_ALL_WORK_HISTORY_ENTRIES,Boolean) + Me.Adapter.InsertCommand.Parameters(21).Value = CType(ANNOTATE_WORK_HISTORY_ENTRY,Boolean) + If (WORK_HISTORY_ENTRY Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(22).Value = CType(WORK_HISTORY_ENTRY,String) + End If + If (DISPLAY_MODE Is Nothing) Then + Throw New Global.System.ArgumentNullException("DISPLAY_MODE") + Else + Me.Adapter.InsertCommand.Parameters(23).Value = CType(DISPLAY_MODE,String) + End If + If (SQL_BTN_FINISH Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_BTN_FINISH") + Else + Me.Adapter.InsertCommand.Parameters(24).Value = CType(SQL_BTN_FINISH,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close End If - Return Me._commandCollection - End Get - End Property - - _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - 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() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "VWPM_CHART_TOP5" - tableMapping.ColumnMappings.Add("KRED_NAME", "KRED_NAME") - tableMapping.ColumnMappings.Add("ANZ_BELEG", "ANZ_BELEG") - tableMapping.ColumnMappings.Add("Netto", "Netto") - tableMapping.ColumnMappings.Add("Skonto", "Skonto") - Me._adapter.TableMappings.Add(tableMapping) - End Sub - - _ - Private Sub InitConnection() - Me._connection = New Global.System.Data.SqlClient.SqlConnection() - Me._connection.ConnectionString = Global.DD_ProcessManager.My.MySettings.Default.ConnectionString - 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 KRED_NAME, ANZ_BELEG, Netto, Skonto"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPM_CHART_TOP"& _ - "5"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY Netto DESC" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - End Sub + End Try + End Function _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSLiteDataSet.VWPM_CHART_TOP5DataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update( _ + ByVal NAME As String, _ + ByVal TITLE As String, _ + ByVal PRIORITY As Integer, _ + ByVal DESCRIPTION As String, _ + ByVal ACTIVE As Boolean, _ + ByVal WD_SEARCH As String, _ + ByVal NO_OF_DOCUMENTS As Integer, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal FINAL_PROFILE As Boolean, _ + ByVal FINAL_TEXT As String, _ + ByVal MOVE2FOLDER As String, _ + ByVal TYPE As Short, _ + ByVal WD_OBJECTTYPE As String, _ + ByVal SORT_BY_LATEST As Boolean, _ + ByVal PM_VEKTOR_INDEX As String, _ + ByVal LOG_INDEX As String, _ + ByVal SQL_VIEW As String, _ + ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _ + ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ + ByVal WORK_HISTORY_ENTRY As String, _ + ByVal DISPLAY_MODE As String, _ + ByVal SQL_BTN_FINISH As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_NAME As String, _ + ByVal Original_TITLE As String, _ + ByVal Original_PRIORITY As Integer, _ + ByVal Original_DESCRIPTION As String, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_NO_OF_DOCUMENTS As Integer, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_FINAL_PROFILE As Boolean, _ + ByVal Original_FINAL_TEXT As String, _ + ByVal Original_MOVE2FOLDER As String, _ + ByVal Original_TYPE As Short, _ + ByVal Original_WD_OBJECTTYPE As String, _ + ByVal Original_SORT_BY_LATEST As Boolean, _ + ByVal Original_PM_VEKTOR_INDEX As String, _ + ByVal Original_LOG_INDEX As String, _ + ByVal Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _ + ByVal Original_ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ + ByVal Original_WORK_HISTORY_ENTRY As String, _ + ByVal Original_DISPLAY_MODE As String, _ + ByVal GUID As Integer) As Integer + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue + If (TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TITLE,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PRIORITY,Integer) + If (DESCRIPTION Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DESCRIPTION,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ACTIVE,Boolean) + If (WD_SEARCH Is Nothing) Then + Throw New Global.System.ArgumentNullException("WD_SEARCH") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(WD_SEARCH,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(NO_OF_DOCUMENTS,Integer) + If (ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(FINAL_PROFILE,Boolean) + If (FINAL_TEXT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(FINAL_TEXT,String) + End If + If (MOVE2FOLDER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(MOVE2FOLDER,String) + End If + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(TYPE,Short) + If (WD_OBJECTTYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("WD_OBJECTTYPE") + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(WD_OBJECTTYPE,String) + End If + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(SORT_BY_LATEST,Boolean) + If (PM_VEKTOR_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("PM_VEKTOR_INDEX") + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(PM_VEKTOR_INDEX,String) + End If + If (LOG_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("LOG_INDEX") + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(LOG_INDEX,String) + End If + If (SQL_VIEW Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_VIEW") + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(SQL_VIEW,String) + End If + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(ANNOTATE_ALL_WORK_HISTORY_ENTRIES,Boolean) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(ANNOTATE_WORK_HISTORY_ENTRY,Boolean) + If (WORK_HISTORY_ENTRY Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(WORK_HISTORY_ENTRY,String) + End If + If (DISPLAY_MODE Is Nothing) Then + Throw New Global.System.ArgumentNullException("DISPLAY_MODE") + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(DISPLAY_MODE,String) + End If + If (SQL_BTN_FINISH Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_BTN_FINISH") + Else + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(SQL_BTN_FINISH,String) + End If + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_GUID,Integer) + If (Original_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_NAME") + Else + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_NAME,String) + End If + If (Original_TITLE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_TITLE") + Else + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_TITLE,String) + End If + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_PRIORITY,Integer) + If (Original_DESCRIPTION Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(30).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(Original_DESCRIPTION,String) + End If + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_ACTIVE,Boolean) + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(Original_NO_OF_DOCUMENTS,Integer) + If (Original_ADDED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(34).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(36).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(35).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(36).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(38).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(37).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(38).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(39).Value = CType(Original_FINAL_PROFILE,Boolean) + If (Original_FINAL_TEXT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(41).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(40).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(41).Value = CType(Original_FINAL_TEXT,String) + End If + If (Original_MOVE2FOLDER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(43).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(42).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(43).Value = CType(Original_MOVE2FOLDER,String) + End If + Me.Adapter.UpdateCommand.Parameters(44).Value = CType(Original_TYPE,Short) + If (Original_WD_OBJECTTYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_WD_OBJECTTYPE") + Else + Me.Adapter.UpdateCommand.Parameters(45).Value = CType(Original_WD_OBJECTTYPE,String) + End If + Me.Adapter.UpdateCommand.Parameters(46).Value = CType(Original_SORT_BY_LATEST,Boolean) + If (Original_PM_VEKTOR_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PM_VEKTOR_INDEX") + Else + Me.Adapter.UpdateCommand.Parameters(47).Value = CType(Original_PM_VEKTOR_INDEX,String) + End If + If (Original_LOG_INDEX Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LOG_INDEX") + Else + Me.Adapter.UpdateCommand.Parameters(48).Value = CType(Original_LOG_INDEX,String) + End If + Me.Adapter.UpdateCommand.Parameters(49).Value = CType(Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES,Boolean) + Me.Adapter.UpdateCommand.Parameters(50).Value = CType(Original_ANNOTATE_WORK_HISTORY_ENTRY,Boolean) + If (Original_WORK_HISTORY_ENTRY Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(52).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(51).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(52).Value = CType(Original_WORK_HISTORY_ENTRY,String) + End If + If (Original_DISPLAY_MODE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_DISPLAY_MODE") + Else + Me.Adapter.UpdateCommand.Parameters(53).Value = CType(Original_DISPLAY_MODE,String) + End If + Me.Adapter.UpdateCommand.Parameters(54).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try End Function _ - Public Overloads Overridable Function GetData() As DD_DMSLiteDataSet.VWPM_CHART_TOP5DataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSLiteDataSet.VWPM_CHART_TOP5DataTable = New DD_DMSLiteDataSet.VWPM_CHART_TOP5DataTable() - Me.Adapter.Fill(dataTable) - Return dataTable + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update( _ + ByVal PRIORITY As Integer, _ + ByVal DESCRIPTION As String, _ + ByVal ACTIVE As Boolean, _ + ByVal WD_SEARCH As String, _ + ByVal NO_OF_DOCUMENTS As Integer, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal FINAL_PROFILE As Boolean, _ + ByVal FINAL_TEXT As String, _ + ByVal MOVE2FOLDER As String, _ + ByVal TYPE As Short, _ + ByVal WD_OBJECTTYPE As String, _ + ByVal SORT_BY_LATEST As Boolean, _ + ByVal PM_VEKTOR_INDEX As String, _ + ByVal LOG_INDEX As String, _ + ByVal SQL_VIEW As String, _ + ByVal ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _ + ByVal ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ + ByVal WORK_HISTORY_ENTRY As String, _ + ByVal DISPLAY_MODE As String, _ + ByVal SQL_BTN_FINISH As String, _ + ByVal Original_GUID As Integer, _ + ByVal Original_NAME As String, _ + ByVal Original_TITLE As String, _ + ByVal Original_PRIORITY As Integer, _ + ByVal Original_DESCRIPTION As String, _ + ByVal Original_ACTIVE As Boolean, _ + ByVal Original_NO_OF_DOCUMENTS As Integer, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_FINAL_PROFILE As Boolean, _ + ByVal Original_FINAL_TEXT As String, _ + ByVal Original_MOVE2FOLDER As String, _ + ByVal Original_TYPE As Short, _ + ByVal Original_WD_OBJECTTYPE As String, _ + ByVal Original_SORT_BY_LATEST As Boolean, _ + ByVal Original_PM_VEKTOR_INDEX As String, _ + ByVal Original_LOG_INDEX As String, _ + ByVal Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES As Boolean, _ + ByVal Original_ANNOTATE_WORK_HISTORY_ENTRY As Boolean, _ + ByVal Original_WORK_HISTORY_ENTRY As String, _ + ByVal Original_DISPLAY_MODE As String, _ + ByVal GUID As Integer) As Integer + Return Me.Update(Original_NAME, Original_TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH, Original_GUID, Original_NAME, Original_TITLE, Original_PRIORITY, Original_DESCRIPTION, Original_ACTIVE, Original_NO_OF_DOCUMENTS, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_FINAL_PROFILE, Original_FINAL_TEXT, Original_MOVE2FOLDER, Original_TYPE, Original_WD_OBJECTTYPE, Original_SORT_BY_LATEST, Original_PM_VEKTOR_INDEX, Original_LOG_INDEX, Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES, Original_ANNOTATE_WORK_HISTORY_ENTRY, Original_WORK_HISTORY_ENTRY, Original_DISPLAY_MODE, GUID) End Function End Class @@ -24800,8 +24770,6 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _tBPM_PROFILE_FILESTableAdapter As TBPM_PROFILE_FILESTableAdapter - Private _tBPM_PROFILETableAdapter As TBPM_PROFILETableAdapter - Private _tBPM_PROFILE_CONTROLSTableAdapter As TBPM_PROFILE_CONTROLSTableAdapter Private _tBPM_CONTROL_TABLETableAdapter As TBPM_CONTROL_TABLETableAdapter @@ -24810,6 +24778,8 @@ Namespace DD_DMSLiteDataSetTableAdapters Private _tBDD_GUI_LANGUAGE_PHRASETableAdapter As TBDD_GUI_LANGUAGE_PHRASETableAdapter + Private _tBPM_PROFILETableAdapter As TBPM_PROFILETableAdapter + Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection @@ -24923,20 +24893,6 @@ Namespace DD_DMSLiteDataSetTableAdapters End Set End Property - _ - Public Property TBPM_PROFILETableAdapter() As TBPM_PROFILETableAdapter - Get - Return Me._tBPM_PROFILETableAdapter - End Get - Set - Me._tBPM_PROFILETableAdapter = value - End Set - End Property - _ + Public Property TBPM_PROFILETableAdapter() As TBPM_PROFILETableAdapter + Get + Return Me._tBPM_PROFILETableAdapter + End Get + Set + Me._tBPM_PROFILETableAdapter = value + End Set + End Property + _ Public Property BackupDataSetBeforeUpdate() As Boolean @@ -25040,10 +25010,6 @@ Namespace DD_DMSLiteDataSetTableAdapters AndAlso (Not (Me._tBPM_PROFILE_FILESTableAdapter.Connection) Is Nothing)) Then Return Me._tBPM_PROFILE_FILESTableAdapter.Connection End If - If ((Not (Me._tBPM_PROFILETableAdapter) Is Nothing) _ - AndAlso (Not (Me._tBPM_PROFILETableAdapter.Connection) Is Nothing)) Then - Return Me._tBPM_PROFILETableAdapter.Connection - End If If ((Not (Me._tBPM_PROFILE_CONTROLSTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPM_PROFILE_CONTROLSTableAdapter.Connection) Is Nothing)) Then Return Me._tBPM_PROFILE_CONTROLSTableAdapter.Connection @@ -25060,6 +25026,10 @@ Namespace DD_DMSLiteDataSetTableAdapters AndAlso (Not (Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter.Connection End If + If ((Not (Me._tBPM_PROFILETableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPM_PROFILETableAdapter.Connection) Is Nothing)) Then + Return Me._tBPM_PROFILETableAdapter.Connection + End If Return Nothing End Get Set @@ -25094,9 +25064,6 @@ Namespace DD_DMSLiteDataSetTableAdapters If (Not (Me._tBPM_PROFILE_FILESTableAdapter) Is Nothing) Then count = (count + 1) End If - If (Not (Me._tBPM_PROFILETableAdapter) Is Nothing) Then - count = (count + 1) - End If If (Not (Me._tBPM_PROFILE_CONTROLSTableAdapter) Is Nothing) Then count = (count + 1) End If @@ -25109,6 +25076,9 @@ Namespace DD_DMSLiteDataSetTableAdapters If (Not (Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter) Is Nothing) Then count = (count + 1) End If + If (Not (Me._tBPM_PROFILETableAdapter) Is Nothing) Then + count = (count + 1) + End If Return count End Get End Property @@ -25147,6 +25117,15 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If + If (Not (Me._tBPM_ERROR_LOGTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_ERROR_LOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPM_ERROR_LOGTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If If (Not (Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_GUI_LANGUAGE_PHRASE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -25165,21 +25144,21 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_USERTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPM_KONFIGURATIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter.Update(updatedRows)) + result = (result + Me._tBPM_KONFIGURATIONTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -25201,30 +25180,21 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPM_ERROR_LOGTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_ERROR_LOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) - updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ - AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPM_ERROR_LOGTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If - If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBDD_USERTableAdapter.Update(updatedRows)) + result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPM_KONFIGURATIONTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then - result = (result + Me._tBPM_KONFIGURATIONTableAdapter.Update(updatedRows)) + result = (result + Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -25262,6 +25232,14 @@ Namespace DD_DMSLiteDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBPM_ERROR_LOGTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_ERROR_LOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPM_ERROR_LOGTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If If (Not (Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_GUI_LANGUAGE_PHRASE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -25278,19 +25256,19 @@ Namespace DD_DMSLiteDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(addedRows)) + result = (result + Me._tBDD_USERTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPM_KONFIGURATIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter.Update(addedRows)) + result = (result + Me._tBPM_KONFIGURATIONTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -25310,27 +25288,19 @@ Namespace DD_DMSLiteDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPM_ERROR_LOGTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_ERROR_LOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPM_ERROR_LOGTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If - If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_USERTableAdapter.Update(addedRows)) + result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPM_KONFIGURATIONTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPM_KONFIGURATIONTableAdapter.Update(addedRows)) + result = (result + Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -25344,27 +25314,19 @@ Namespace DD_DMSLiteDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "16.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DD_DMSLiteDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 - If (Not (Me._tBPM_KONFIGURATIONTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPM_KONFIGURATIONTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If - If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_USERTableAdapter.Update(deletedRows)) + result = (result + Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPM_ERROR_LOGTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_ERROR_LOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPM_ERROR_LOGTableAdapter.Update(deletedRows)) + result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -25384,19 +25346,19 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_FINAL_INDEXING.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPM_KONFIGURATIONTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPM_PROFILE_FINAL_INDEXINGTableAdapter.Update(deletedRows)) + result = (result + Me._tBPM_KONFIGURATIONTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPM_CONTROL_TABLETableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_CONTROL_TABLE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBDD_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPM_CONTROL_TABLETableAdapter.Update(deletedRows)) + result = (result + Me._tBDD_USERTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -25416,6 +25378,14 @@ Namespace DD_DMSLiteDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If + If (Not (Me._tBPM_ERROR_LOGTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_ERROR_LOG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPM_ERROR_LOGTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBPM_PROFILE_CONTROLSTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPM_PROFILE_CONTROLS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -25516,11 +25486,6 @@ Namespace DD_DMSLiteDataSetTableAdapters Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If - If ((Not (Me._tBPM_PROFILETableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBPM_PROFILETableAdapter.Connection) = false)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ - "s die gleiche Verbindungszeichenfolge verwendet werden.") - End If If ((Not (Me._tBPM_PROFILE_CONTROLSTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBPM_PROFILE_CONTROLSTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ @@ -25541,6 +25506,11 @@ Namespace DD_DMSLiteDataSetTableAdapters Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ "s die gleiche Verbindungszeichenfolge verwendet werden.") End If + If ((Not (Me._tBPM_PROFILETableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPM_PROFILETableAdapter.Connection) = false)) Then + Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + "s die gleiche Verbindungszeichenfolge verwendet werden.") + End If Dim workConnection As Global.System.Data.IDbConnection = Me.Connection If (workConnection Is Nothing) Then Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA"& _ @@ -25638,15 +25608,6 @@ Namespace DD_DMSLiteDataSetTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPM_PROFILE_FILESTableAdapter.Adapter) End If End If - If (Not (Me._tBPM_PROFILETableAdapter) Is Nothing) Then - revertConnections.Add(Me._tBPM_PROFILETableAdapter, Me._tBPM_PROFILETableAdapter.Connection) - Me._tBPM_PROFILETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBPM_PROFILETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) - If Me._tBPM_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBPM_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate = false - adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPM_PROFILETableAdapter.Adapter) - End If - End If If (Not (Me._tBPM_PROFILE_CONTROLSTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPM_PROFILE_CONTROLSTableAdapter, Me._tBPM_PROFILE_CONTROLSTableAdapter.Connection) Me._tBPM_PROFILE_CONTROLSTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) @@ -25683,6 +25644,15 @@ Namespace DD_DMSLiteDataSetTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter.Adapter) End If End If + If (Not (Me._tBPM_PROFILETableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPM_PROFILETableAdapter, Me._tBPM_PROFILETableAdapter.Connection) + Me._tBPM_PROFILETableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPM_PROFILETableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPM_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPM_PROFILETableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPM_PROFILETableAdapter.Adapter) + End If + End If ' '---- Perform updates ----------- ' @@ -25771,10 +25741,6 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._tBPM_PROFILE_FILESTableAdapter.Connection = CType(revertConnections(Me._tBPM_PROFILE_FILESTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPM_PROFILE_FILESTableAdapter.Transaction = Nothing End If - If (Not (Me._tBPM_PROFILETableAdapter) Is Nothing) Then - Me._tBPM_PROFILETableAdapter.Connection = CType(revertConnections(Me._tBPM_PROFILETableAdapter),Global.System.Data.SqlClient.SqlConnection) - Me._tBPM_PROFILETableAdapter.Transaction = Nothing - End If If (Not (Me._tBPM_PROFILE_CONTROLSTableAdapter) Is Nothing) Then Me._tBPM_PROFILE_CONTROLSTableAdapter.Connection = CType(revertConnections(Me._tBPM_PROFILE_CONTROLSTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPM_PROFILE_CONTROLSTableAdapter.Transaction = Nothing @@ -25791,6 +25757,10 @@ Namespace DD_DMSLiteDataSetTableAdapters Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter.Connection = CType(revertConnections(Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_GUI_LANGUAGE_PHRASETableAdapter.Transaction = Nothing End If + If (Not (Me._tBPM_PROFILETableAdapter) Is Nothing) Then + Me._tBPM_PROFILETableAdapter.Connection = CType(revertConnections(Me._tBPM_PROFILETableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPM_PROFILETableAdapter.Transaction = Nothing + End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then Dim adapters((adaptersWithAcceptChangesDuringUpdate.Count) - 1) As Global.System.Data.Common.DataAdapter adaptersWithAcceptChangesDuringUpdate.CopyTo(adapters) diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.vb b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.vb index d5c7d67..fb5fc2a 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.vb +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.vb @@ -25,6 +25,9 @@ Partial Public Class DD_DMSLiteDataSet End Class Namespace DD_DMSLiteDataSetTableAdapters + Partial Public Class TBPM_PROFILETableAdapter + End Class + Partial Public Class TBDD_USERTableAdapter End Class diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsc b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsc index 42ae5d1..b42fbf2 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsc +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsc @@ -53,15 +53,6 @@ - - - - - - - - - diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd index 334382b..ee318fb 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xsd @@ -927,249 +927,6 @@ WHERE (GUID = @GUID) - - - - - - DELETE FROM [TBPM_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME) AND ([TITLE] = @Original_TITLE) AND ([PRIORITY] = @Original_PRIORITY) AND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND ([ACTIVE] = @Original_ACTIVE) AND ([WD_SEARCH] = @Original_WD_SEARCH) AND ([NO_OF_DOCUMENTS] = @Original_NO_OF_DOCUMENTS) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([FINAL_PROFILE] = @Original_FINAL_PROFILE) AND ((@IsNull_FINAL_TEXT = 1 AND [FINAL_TEXT] IS NULL) OR ([FINAL_TEXT] = @Original_FINAL_TEXT)) AND ((@IsNull_MOVE2FOLDER = 1 AND [MOVE2FOLDER] IS NULL) OR ([MOVE2FOLDER] = @Original_MOVE2FOLDER)) AND ([TYPE] = @Original_TYPE) AND ([WD_OBJECTTYPE] = @Original_WD_OBJECTTYPE) AND ([SORT_BY_LATEST] = @Original_SORT_BY_LATEST) AND ([PM_VEKTOR_INDEX] = @Original_PM_VEKTOR_INDEX) AND ([LOG_INDEX] = @Original_LOG_INDEX) AND ([ANNOTATE_ALL_WORK_HISTORY_ENTRIES] = @Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES) AND ([ANNOTATE_WORK_HISTORY_ENTRY] = @Original_ANNOTATE_WORK_HISTORY_ENTRY) AND ((@IsNull_WORK_HISTORY_ENTRY = 1 AND [WORK_HISTORY_ENTRY] IS NULL) OR ([WORK_HISTORY_ENTRY] = @Original_WORK_HISTORY_ENTRY))) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - INSERT INTO TBPM_PROFILE - (NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, - WORK_HISTORY_ENTRY, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH) -VALUES (@NAME,@TITLE,@PRIORITY,@DESCRIPTION,@ACTIVE,@WD_SEARCH,@NO_OF_DOCUMENTS,@ADDED_WHO,@FINAL_PROFILE,@FINAL_TEXT,@MOVE2FOLDER,@TYPE,@WD_OBJECTTYPE,@SORT_BY_LATEST,@PM_VEKTOR_INDEX,@WORK_HISTORY_ENTRY,@SQL_VIEW,@ANNOTATE_ALL_WORK_HISTORY_ENTRIES,@ANNOTATE_WORK_HISTORY_ENTRY,@DISPLAY_MODE,@SQL_BTN_FINISH); -SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - - - - - - - - - - - - - - - - SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, - WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, - SQL_BTN_FINISH -FROM TBPM_PROFILE -ORDER BY NAME - - - - - - UPDATE TBPM_PROFILE -SET NAME = @NAME, TITLE = @TITLE, PRIORITY = @PRIORITY, DESCRIPTION = @DESCRIPTION, ACTIVE = @ACTIVE, WD_SEARCH = @WD_SEARCH, NO_OF_DOCUMENTS = @NO_OF_DOCUMENTS, - CHANGED_WHO = @CHANGED_WHO, FINAL_PROFILE = @FINAL_PROFILE, FINAL_TEXT = @FINAL_TEXT, MOVE2FOLDER = @MOVE2FOLDER, TYPE = @TYPE, WD_OBJECTTYPE = @WD_OBJECTTYPE, - SORT_BY_LATEST = @SORT_BY_LATEST, PM_VEKTOR_INDEX = @PM_VEKTOR_INDEX, LOG_INDEX = @LOG_INDEX, WORK_HISTORY_ENTRY = @WORK_HISTORY_ENTRY, SQL_VIEW = @SQL_VIEW, - ANNOTATE_ALL_WORK_HISTORY_ENTRIES = @ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY = @ANNOTATE_WORK_HISTORY_ENTRY, DISPLAY_MODE = @DISPLAY_MODE, - SQL_BTN_FINISH = @SQL_BTN_FINISH -WHERE (GUID = @Original_GUID); -SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - SELECT COUNT(*) FROM TBPM_PROFILE - - - - - - - - DELETE FROM TBPM_PROFILE -WHERE (GUID = @GUID) - - - - - - - - - - SELECT GUID FROM TBPM_PROFILE WHERE (FINAL_PROFILE = 1) AND (UPPER(NAME) = UPPER(@name)) - - - - - - - - - - SELECT MAX(GUID) FROM TBPM_PROFILE - - - - - - - - SELECT COUNT(GUID) FROM TBPM_PROFILE WHERE NAME = @NAME - - - - - - - - - - UPDATE TBPM_PROFILE -SET LOG_INDEX = @LOG__INDEX -WHERE (GUID = @Original_GUID); -SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST,LOG_INDEX FROM TBPM_PROFILE WHERE (GUID = @GUID) - - - - - - - - - - - - UPDATE TBPM_PROFILE -SET NO_OF_DOCUMENTS = @NUMBER, CHANGED_WHO = @WHO -WHERE (GUID = @GUID) - - - - - - - - - - - - UPDATE TBPM_PROFILE -SET PM_VEKTOR_INDEX = @PM_VEKTOR_INDEX -WHERE (GUID = @Original_GUID); -SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST FROM TBPM_PROFILE WHERE (GUID = @GUID) - - - - - - - - - - @@ -2051,6 +1808,183 @@ ORDER BY Netto DESC + + + + + + DELETE FROM [TBPM_PROFILE] WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME) AND ([TITLE] = @Original_TITLE) AND ([PRIORITY] = @Original_PRIORITY) AND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND ([ACTIVE] = @Original_ACTIVE) AND ([NO_OF_DOCUMENTS] = @Original_NO_OF_DOCUMENTS) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([FINAL_PROFILE] = @Original_FINAL_PROFILE) AND ((@IsNull_FINAL_TEXT = 1 AND [FINAL_TEXT] IS NULL) OR ([FINAL_TEXT] = @Original_FINAL_TEXT)) AND ((@IsNull_MOVE2FOLDER = 1 AND [MOVE2FOLDER] IS NULL) OR ([MOVE2FOLDER] = @Original_MOVE2FOLDER)) AND ([TYPE] = @Original_TYPE) AND ([WD_OBJECTTYPE] = @Original_WD_OBJECTTYPE) AND ([SORT_BY_LATEST] = @Original_SORT_BY_LATEST) AND ([PM_VEKTOR_INDEX] = @Original_PM_VEKTOR_INDEX) AND ([LOG_INDEX] = @Original_LOG_INDEX) AND ([ANNOTATE_ALL_WORK_HISTORY_ENTRIES] = @Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES) AND ([ANNOTATE_WORK_HISTORY_ENTRY] = @Original_ANNOTATE_WORK_HISTORY_ENTRY) AND ((@IsNull_WORK_HISTORY_ENTRY = 1 AND [WORK_HISTORY_ENTRY] IS NULL) OR ([WORK_HISTORY_ENTRY] = @Original_WORK_HISTORY_ENTRY)) AND ([DISPLAY_MODE] = @Original_DISPLAY_MODE)) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + INSERT INTO [TBPM_PROFILE] ([NAME], [TITLE], [PRIORITY], [DESCRIPTION], [ACTIVE], [WD_SEARCH], [NO_OF_DOCUMENTS], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN], [FINAL_PROFILE], [FINAL_TEXT], [MOVE2FOLDER], [TYPE], [WD_OBJECTTYPE], [SORT_BY_LATEST], [PM_VEKTOR_INDEX], [LOG_INDEX], [SQL_VIEW], [ANNOTATE_ALL_WORK_HISTORY_ENTRIES], [ANNOTATE_WORK_HISTORY_ENTRY], [WORK_HISTORY_ENTRY], [DISPLAY_MODE], [SQL_BTN_FINISH]) VALUES (@NAME, @TITLE, @PRIORITY, @DESCRIPTION, @ACTIVE, @WD_SEARCH, @NO_OF_DOCUMENTS, @ADDED_WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN, @FINAL_PROFILE, @FINAL_TEXT, @MOVE2FOLDER, @TYPE, @WD_OBJECTTYPE, @SORT_BY_LATEST, @PM_VEKTOR_INDEX, @LOG_INDEX, @SQL_VIEW, @ANNOTATE_ALL_WORK_HISTORY_ENTRIES, @ANNOTATE_WORK_HISTORY_ENTRY, @WORK_HISTORY_ENTRY, @DISPLAY_MODE, @SQL_BTN_FINISH); +SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH FROM TBPM_PROFILE WHERE (GUID = SCOPE_IDENTITY()) ORDER BY NAME + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, + WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, + SQL_BTN_FINISH +FROM TBPM_PROFILE +ORDER BY NAME + + + + + + UPDATE [TBPM_PROFILE] SET [NAME] = @NAME, [TITLE] = @TITLE, [PRIORITY] = @PRIORITY, [DESCRIPTION] = @DESCRIPTION, [ACTIVE] = @ACTIVE, [WD_SEARCH] = @WD_SEARCH, [NO_OF_DOCUMENTS] = @NO_OF_DOCUMENTS, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN, [FINAL_PROFILE] = @FINAL_PROFILE, [FINAL_TEXT] = @FINAL_TEXT, [MOVE2FOLDER] = @MOVE2FOLDER, [TYPE] = @TYPE, [WD_OBJECTTYPE] = @WD_OBJECTTYPE, [SORT_BY_LATEST] = @SORT_BY_LATEST, [PM_VEKTOR_INDEX] = @PM_VEKTOR_INDEX, [LOG_INDEX] = @LOG_INDEX, [SQL_VIEW] = @SQL_VIEW, [ANNOTATE_ALL_WORK_HISTORY_ENTRIES] = @ANNOTATE_ALL_WORK_HISTORY_ENTRIES, [ANNOTATE_WORK_HISTORY_ENTRY] = @ANNOTATE_WORK_HISTORY_ENTRY, [WORK_HISTORY_ENTRY] = @WORK_HISTORY_ENTRY, [DISPLAY_MODE] = @DISPLAY_MODE, [SQL_BTN_FINISH] = @SQL_BTN_FINISH WHERE (([GUID] = @Original_GUID) AND ([NAME] = @Original_NAME) AND ([TITLE] = @Original_TITLE) AND ([PRIORITY] = @Original_PRIORITY) AND ((@IsNull_DESCRIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND ([ACTIVE] = @Original_ACTIVE) AND ([NO_OF_DOCUMENTS] = @Original_NO_OF_DOCUMENTS) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)) AND ([FINAL_PROFILE] = @Original_FINAL_PROFILE) AND ((@IsNull_FINAL_TEXT = 1 AND [FINAL_TEXT] IS NULL) OR ([FINAL_TEXT] = @Original_FINAL_TEXT)) AND ((@IsNull_MOVE2FOLDER = 1 AND [MOVE2FOLDER] IS NULL) OR ([MOVE2FOLDER] = @Original_MOVE2FOLDER)) AND ([TYPE] = @Original_TYPE) AND ([WD_OBJECTTYPE] = @Original_WD_OBJECTTYPE) AND ([SORT_BY_LATEST] = @Original_SORT_BY_LATEST) AND ([PM_VEKTOR_INDEX] = @Original_PM_VEKTOR_INDEX) AND ([LOG_INDEX] = @Original_LOG_INDEX) AND ([ANNOTATE_ALL_WORK_HISTORY_ENTRIES] = @Original_ANNOTATE_ALL_WORK_HISTORY_ENTRIES) AND ([ANNOTATE_WORK_HISTORY_ENTRY] = @Original_ANNOTATE_WORK_HISTORY_ENTRY) AND ((@IsNull_WORK_HISTORY_ENTRY = 1 AND [WORK_HISTORY_ENTRY] IS NULL) OR ([WORK_HISTORY_ENTRY] = @Original_WORK_HISTORY_ENTRY)) AND ([DISPLAY_MODE] = @Original_DISPLAY_MODE)); +SELECT GUID, NAME, TITLE, PRIORITY, DESCRIPTION, ACTIVE, WD_SEARCH, NO_OF_DOCUMENTS, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FINAL_PROFILE, FINAL_TEXT, MOVE2FOLDER, TYPE, WD_OBJECTTYPE, SORT_BY_LATEST, PM_VEKTOR_INDEX, LOG_INDEX, SQL_VIEW, ANNOTATE_ALL_WORK_HISTORY_ENTRIES, ANNOTATE_WORK_HISTORY_ENTRY, WORK_HISTORY_ENTRY, DISPLAY_MODE, SQL_BTN_FINISH FROM TBPM_PROFILE WHERE (GUID = @GUID) ORDER BY NAME + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -2059,7 +1993,7 @@ ORDER BY Netto DESC - + @@ -2121,7 +2055,7 @@ ORDER BY Netto DESC - + @@ -2217,7 +2151,7 @@ ORDER BY Netto DESC - + @@ -2272,330 +2206,208 @@ ORDER BY Netto DESC - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + - + - + + + + + + + + - + - + - + + + - + - + + - + + + + + + + + - + - - + + - + + + + + + + + - - + - + - - + - + - - + - + - - + - + - - - + + - + - + + - + - - + + + + + + + + + + - + - - + - + - + - + - - - + - + - + - + + + + + + + + - + + - + @@ -2668,7 +2480,7 @@ ORDER BY Netto DESC - + @@ -2719,7 +2531,7 @@ ORDER BY Netto DESC - + @@ -2866,7 +2678,7 @@ ORDER BY Netto DESC - + @@ -2944,7 +2756,7 @@ ORDER BY Netto DESC - + @@ -2985,7 +2797,7 @@ ORDER BY Netto DESC - + @@ -3023,7 +2835,7 @@ ORDER BY Netto DESC - + @@ -3080,7 +2892,7 @@ ORDER BY Netto DESC - + @@ -3138,7 +2950,7 @@ ORDER BY Netto DESC - + @@ -3239,7 +3051,7 @@ ORDER BY Netto DESC - + @@ -3292,7 +3104,7 @@ ORDER BY Netto DESC - + @@ -3308,7 +3120,7 @@ ORDER BY Netto DESC - + @@ -3324,6 +3136,128 @@ ORDER BY Netto DESC + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -3358,18 +3292,6 @@ ORDER BY Netto DESC - - - - - - - - - - - - @@ -3402,14 +3324,18 @@ ORDER BY Netto DESC + + + + + - - - - - + + + + \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss index 7f8619a..de53c2e 100644 --- a/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss +++ b/app/DD_PM_WINDREAM/DD_DMSLiteDataSet.xss @@ -6,94 +6,82 @@ --> - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + - + - 549 - 315 + 1249 + 541 - 549 - 24 + 1300 + 541 - + - 175 - 299 - - - 448 - 299 - - - 448 - 315 + 141 + 96 - - - - - 603 - 499 + 141 + 343 - 949 - 499 + 1300 + 343 - + - 1249 - 541 + 968 + 245 - 1300 - 541 + 968 + 399 - + - 141 - 96 + 158 + 113 - 141 - 343 + 158 + 19 - 1300 - 343 + 863 + 19 diff --git a/app/DD_PM_WINDREAM/clsPatterns.vb b/app/DD_PM_WINDREAM/clsPatterns.vb index 6c18eff..e09a7de 100644 --- a/app/DD_PM_WINDREAM/clsPatterns.vb +++ b/app/DD_PM_WINDREAM/clsPatterns.vb @@ -139,6 +139,9 @@ Public Class clsPatterns result = ReplacePattern(result, PATTERN_USER, CURRENT_CLICKED_PROFILE_ID) End While While ContainsPatternAndValue(result, PATTERN_USER, VALUE_PROFILE_TITLE) + If CURRENT_CLICKED_PROFILE_TITLE Is Nothing Then + CURRENT_CLICKED_PROFILE_TITLE = "EXCEPTIONTitleNothing" + End If result = ReplacePattern(result, PATTERN_USER, CURRENT_CLICKED_PROFILE_TITLE) End While LOGGER.Debug("pInput AFTER ReplaceUserValues: " & input) diff --git a/app/DD_PM_WINDREAM/frmAdministration.resx b/app/DD_PM_WINDREAM/frmAdministration.resx index 38af9c5..98d9fe2 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.resx +++ b/app/DD_PM_WINDREAM/frmAdministration.resx @@ -264,6 +264,24 @@ 0 + + Left + + + 0, 0 + + + 194, 25 + + + 0 + + + Zugeordnete Benutzer: + + + MiddleLeft + Label20 @@ -414,6 +432,24 @@ 0 + + Left + + + 0, 0 + + + 194, 25 + + + 0 + + + Verfügbare Benutzer: + + + MiddleLeft + Label19 @@ -483,69 +519,6 @@ 0 - - 206, 17 - - - Left - - - 0, 0 - - - 194, 25 - - - 0 - - - Zugeordnete Benutzer: - - - MiddleLeft - - - Label20 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel1 - - - 0 - - - Left - - - 0, 0 - - - 194, 25 - - - 0 - - - Verfügbare Benutzer: - - - MiddleLeft - - - Label19 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel2 - - - 0 - Fill @@ -609,6 +582,27 @@ 0 + + Left + + + NoControl + + + 0, 0 + + + 194, 25 + + + 0 + + + Zugeordnete Gruppen: + + + MiddleLeft + Label22 @@ -711,6 +705,27 @@ 0 + + Left + + + NoControl + + + 0, 0 + + + 194, 25 + + + 0 + + + Verfügbare Gruppen: + + + MiddleLeft + Label23 @@ -780,72 +795,6 @@ 0 - - Left - - - NoControl - - - 0, 0 - - - 194, 25 - - - 0 - - - Zugeordnete Gruppen: - - - MiddleLeft - - - Label22 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel3 - - - 0 - - - Left - - - NoControl - - - 0, 0 - - - 194, 25 - - - 0 - - - Verfügbare Gruppen: - - - MiddleLeft - - - Label23 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel4 - - - 0 - False @@ -1590,191 +1539,89 @@ 205, 56 - - TabPage1 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Top, Bottom, Left, Right - - TabControl1 + + True - - 0 + + True - - TabPage2 + + Tahoma, 9.75pt - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 553, 14 - - TabControl1 + + 53, 16 - + 1 - - TabPage3 + + Priorität - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + lblPriority - - TabControl1 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 2 + + TabPage5 - - Fill + + 0 - - 276, 0 - - - 1090, 468 - - - 3 - - - TabControl1 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - pnlMain - - - 0 - - - tabctrl_Profilkonfig - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 0 - - - SORT_BY_LATESTCheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 7 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1082, 439 + + True - - 0 + + Tahoma, 9.75pt - - Profil-Verwaltung + + 16, 104 - - TabPage1 + + 45, 16 - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 89 - - TabControl1 + + Label7 - - 0 + + lblSearch - - Top, Bottom, Left, Right + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + TabPage5 - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tabctrl_Profilkonfig - - - 0 - - - TabPageAfterIndex - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - tabctrl_Profilkonfig - - + 1 - - 6, 62 - - - 984, 377 - - - 6 - - - tabctrl_Profilkonfig - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 0 - - + True - - lblPriority - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 0 + + Tahoma, 9.75pt - - lblSearch + + 15, 161 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 130, 16 - - TabPage5 + + 88 - - 1 + + Use Vektor for Index: Label4 @@ -1788,6 +1635,24 @@ 2 + + True + + + Tahoma, 9.75pt + + + 16, 191 + + + 92, 16 + + + 87 + + + Index Logging: + Label9 @@ -1800,6 +1665,27 @@ 3 + + Tahoma, 9.75pt + + + Overview and Detail + + + Overview + + + Detail + + + 202, 42 + + + 345, 24 + + + 3 + DISPLAY_MODEComboBox @@ -1812,6 +1698,18 @@ 7 + + Tahoma, 9.75pt + + + 202, 188 + + + 345, 24 + + + 10 + cmbLOGIndex @@ -1824,6 +1722,18 @@ 8 + + Tahoma, 9.75pt + + + 202, 158 + + + 345, 24 + + + 9 + PM_VEKTOR_INDEXComboBox @@ -1866,261 +1776,372 @@ 0 - + True - - Tahoma, 9.75pt + + Top, Bottom, Left, Right - - 553, 14 + + 471, 212 + + + 17, 212 + + + Fill - - 53, 16 + + 0, 0 - - 1 + + Index - - Priorität + + True - - lblPriority + + 0 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 116 - - TabPage5 - - - 0 + + Fester Wert - + True - - Tahoma, 9.75pt + + 2 - - 16, 104 + + 241 - - 45, 16 + + SQL Befehl - - 89 + + 150 - - Label7 + + Doppelte Werte vermeiden - - lblSearch + + Neue Werte erlauben - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Beschreibung - - TabPage5 + + True - + 1 - - True + + 246 - - Tahoma, 9.75pt + + 630, 299 - - 15, 161 + + 93 - - 130, 16 + + gridFinalIndex - - 88 + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Use Vektor for Index: + + Panel5 - - Label4 + + 0 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Right - - TabPage5 + + False - - 2 + + 630, 0 - - True + + 323, 299 - - Tahoma, 9.75pt + + 91 - - 16, 191 + + PropertyGrid1 - - 92, 16 + + System.Windows.Forms.PropertyGrid, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 87 + + Panel5 - - Index Logging: + + 1 - - Label9 + + 3, 23 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 953, 299 - - TabPage5 + + 94 - - 3 + + Panel5 - - Tahoma, 9.75pt + + System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Overview and Detail + + TabPage11 - - Overview + + 0 - - Detail + + True - - 202, 42 + + Segoe UI, 9.75pt, style=Italic - - 345, 24 + + -4, 3 - - 3 + + 583, 17 - - DISPLAY_MODEComboBox + + 75 - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Diese Indexe werden nach erfolgreicher Indexierung automatisch bei dem indexierten Dokument gesetzt. - - TabPage5 + + Label6 - - 7 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Tahoma, 9.75pt + + TabPage11 - - 202, 188 + + 1 - - 345, 24 + + Tahoma, 9pt - - 10 + + 4, 25 - - cmbLOGIndex + + 3, 3, 3, 3 - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 962, 313 - - TabPage5 + + 0 - - 8 + + Finale Indexe - - Tahoma, 9.75pt + + TabPage11 - - 202, 158 + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 345, 24 + + TabControl2 - - 9 + + 0 - - PM_VEKTOR_INDEXComboBox + + True - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Segoe UI, 9pt - - TabPage5 + + 9, 21 - - 9 + + 862, 23 - - True + + 0 - - TabControl2 + + MOVE2FOLDERTextBox - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPageAfterIndex + + GroupBox3 - + 0 - - 4, 25 - - - 3, 3, 3, 3 + + Segoe UI, 9.75pt, style=Bold - - 976, 348 + + NoControl - - 1 + + 877, 19 - - Aktionen nach erfolgreicher Indexierung: + + 29, 23 - - TabPageAfterIndex + + 72 - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ... - - tabctrl_Profilkonfig + + btnmovetoFolderDialog - + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox3 + + 1 - - TabPage11 + + Tahoma, 9.75pt - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 9, 6 - - TabControl2 + + 941, 57 - + + 74 + + + Wählen Sie hier einen Ordner, in welchen die Datei, nach erfolgreicher Indexierung verschoben werden soll: + + + GroupBox3 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage12 + + 0 + + Tahoma, 9.75pt + + + 9, 144 + + + 260, 24 + + + 11 + + + ANNOTATE WORK HISTORY ENTRY + + + ANNOTATE_WORK_HISTORY_ENTRYCheckBox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage12 + + + 1 + + + Tahoma, 9.75pt + + + 9, 114 + + + 292, 24 + + + 9 + + + ANNOTATE ALL WORK_HISTORY_ENTRIES + + + ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage12 + + + 2 + + + 9, 85 + + + 875, 23 + + + 1 + + + WORK_HISTORY_ENTRYTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage12 + + + 4 + + + 4, 25 + + + 3, 3, 3, 3 + + + 962, 313 + + + 1 + + + Nachbearbeitungsfunktionen 2 + TabPage12 @@ -2160,1217 +2181,215 @@ 0 - - Panel5 + + 4, 25 - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 3, 3, 3, 3 - - TabPage11 + + 976, 348 - - 0 + + 1 - - Label6 + + Aktionen nach erfolgreicher Indexierung: - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TabPageAfterIndex - - TabPage11 + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + + tabctrl_Profilkonfig + + 1 - - Tahoma, 9pt + + 6, 62 - - 4, 25 + + 984, 377 - - 3, 3, 3, 3 + + 6 - - 962, 313 + + tabctrl_Profilkonfig - - 0 + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Finale Indexe + + TabPage1 - - TabPage11 + + 0 - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Tahoma, 9.75pt - - TabControl2 + + 703, 33 - - 0 + + 238, 24 - - Top, Bottom, Left, Right + + 3 - - gridFinalIndex + + Neueste Dokumente zuerst anzeigen - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + SORT_BY_LATESTCheckBox - - Panel5 + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 0 + + TabPage1 - - PropertyGrid1 + + 7 - - System.Windows.Forms.PropertyGrid, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 4, 25 - - Panel5 + + 3, 3, 3, 3 - - 1 - - - 3, 23 - - - 953, 299 - - - 94 - - - Panel5 - - - System.Windows.Forms.Panel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 + + 1082, 439 - + 0 - - 471, 212 - - - 17, 212 - - - Fill + + Profil-Verwaltung - - 0, 0 + + TabPage1 - - Index + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - True + + TabControl1 - + 0 - - 116 - - - Fester Wert - - - True - - - 2 - - - 241 - - - SQL Befehl - - - 150 - - - Doppelte Werte vermeiden - - - Neue Werte erlauben - - - Beschreibung - - - True - - - 1 - - - 246 - - - 630, 299 - - - 93 - - - gridFinalIndex + + 4, 25 - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 3, 3, 3, 3 - - Panel5 + + 1068, 404 - + 0 - - 17, 212 - - - Right - - - False - - - 630, 0 - - - 323, 299 - - - 91 - - - PropertyGrid1 - - - System.Windows.Forms.PropertyGrid, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Panel5 - - - 1 - - - True - - - Segoe UI, 9.75pt, style=Italic - - - -4, 3 - - - 583, 17 - - - 75 - - - Diese Indexe werden nach erfolgreicher Indexierung automatisch bei dem indexierten Dokument gesetzt. - - - Label6 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage11 - - - 1 - - - True + + Benutzer - - GroupBox3 + + TabPage7 - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage12 + + TabControlProfilZuordnung - + 0 - - ANNOTATE_WORK_HISTORY_ENTRYCheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 1 - - - ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 2 - - - WORK_HISTORY_ENTRYTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 4 - - + 4, 25 - + 3, 3, 3, 3 - - 962, 316 - - - 1 - - - Nachbearbeitungsfunktionen 2 - - - TabPage12 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl2 + + 1068, 404 - + 1 - - MOVE2FOLDERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 + + Gruppen - - 0 - - - btnmovetoFolderDialog - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 1 - - - Tahoma, 9.75pt - - - 9, 6 - - - 941, 57 - - - 74 - - - Wählen Sie hier einen Ordner, in welchen die Datei, nach erfolgreicher Indexierung verschoben werden soll: - - - GroupBox3 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 0 - - - Segoe UI, 9pt - - - 9, 21 - - - 862, 23 - - - 0 - - - MOVE2FOLDERTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 0 - - - Segoe UI, 9.75pt, style=Bold - - - NoControl - - - 877, 19 - - - 29, 23 - - - 72 - - - ... - - - btnmovetoFolderDialog - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 1 - - - Tahoma, 9.75pt - - - 9, 144 - - - 260, 24 - - - 11 - - - ANNOTATE WORK HISTORY ENTRY - - - ANNOTATE_WORK_HISTORY_ENTRYCheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 1 - - - Tahoma, 9.75pt - - - 9, 114 - - - 292, 24 - - - 9 - - - ANNOTATE ALL WORK_HISTORY_ENTRIES - - - ANNOTATE_ALL_WORK_HISTORY_ENTRIESCheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 2 - - - 9, 85 - - - 875, 23 - - - 1 - - - WORK_HISTORY_ENTRYTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage12 - - - 4 - - - Tahoma, 9.75pt - - - 703, 33 - - - 238, 24 - - - 3 - - - Neueste Dokumente zuerst anzeigen - - - SORT_BY_LATESTCheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 7 - - - TabControlProfilZuordnung - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 0 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1082, 439 - - - 1 - - - Profil-Zuordnung - - - TabPage2 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 1 - - - TabPage7 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlProfilZuordnung - - - 0 - - - TabPage8 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlProfilZuordnung - - - 1 - - - Fill - - - 3, 3 - - - 1076, 433 - - - 1 - - - TabControlProfilZuordnung - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 0 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1068, 404 - - - 0 - - - Benutzer - - - TabPage7 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlProfilZuordnung - - - 0 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1068, 404 - - - 1 - - - Gruppen - - - TabPage8 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControlProfilZuordnung - - - 1 - - - GroupBox2 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 0 - - - GroupBox1 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage3 - - - 1 - - - 4, 25 - - - 3, 3, 3, 3 - - - 1082, 439 - - - 2 - - - Dashboard - - - TabPage3 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 2 - - - Top, Bottom, Left, Right - - - Label14 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 0 - - - Button4 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 1 - - - Button3 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 2 - - - Button2 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 3 - - - Button1 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 4 - - - Series4Sequence - - - System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 5 - - - Series3Sequence - - - System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 6 - - - Series2Sequence - - - System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 7 - - - Series1Sequence - - - System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 8 - - - Series4Title - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 9 - - - Series4SQL - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 10 - - - Series4Column - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 11 - - - Series4Type - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 12 - - - Series4Argument - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 13 - - - Series4GUID - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 14 - - - Series3Title - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 15 - - - Series3SQL - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 16 - - - Series3Column - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 17 - - - Series3Type - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 18 - - - Series3Argument - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 19 - - - Series3GUID - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 20 - - - Series2Title - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 21 - - - Series2SQL - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 22 - - - Series2Column - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 23 - - - Series2Type - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 24 - - - Series2Argument - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 25 - - - Series2GUID - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 26 - - - Series1Title - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 27 - - - Label13 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 28 - - - Series1SQL - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 29 - - - Series1Column - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 30 - - - Label12 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 31 - - - Series1Type - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 32 - - - Label11 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 33 - - - Series1Argument - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 34 - - - Label10 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 35 + + TabPage8 - - Series1GUID + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TabControlProfilZuordnung - - GroupBox2 + + 1 - - 36 + + Fill - - Label8 + + 3, 3 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 1076, 433 - - GroupBox2 + + 1 - - 37 + + TabControlProfilZuordnung - - Label7 + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TabPage2 - - GroupBox2 + + 0 - - 38 + + 4, 25 - - 6, 89 + + 3, 3, 3, 3 - - 1070, 344 + + 1082, 439 - + 1 - - Chart 1-4 + + Profil-Zuordnung - - GroupBox2 + + TabPage2 - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage3 + + TabControl1 - - 0 + + 1 + + + Top, Bottom, Left, Right True @@ -4362,65 +3381,29 @@ 38 - - Label5 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 0 - - - Label3 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 6, 89 - - GroupBox1 + + 1070, 344 - + 1 - - Label1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 2 - - - 6, 6 - - - 984, 77 - - - 0 - - - Verteilung und Top Kreditoren + + Chart 1-4 - - GroupBox1 + + GroupBox2 - + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + TabPage3 - - 1 + + 0 True @@ -4511,6 +3494,81 @@ Top Kreditoren: 2 + + 6, 6 + + + 984, 77 + + + 0 + + + Verteilung und Top Kreditoren + + + GroupBox1 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 1 + + + 4, 25 + + + 3, 3, 3, 3 + + + 1082, 439 + + + 2 + + + Dashboard + + + TabPage3 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 2 + + + Fill + + + 276, 0 + + + 1090, 468 + + + 3 + + + TabControl1 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + pnlMain + + + 0 + Left @@ -4562,6 +3620,12 @@ Top Kreditoren: 274, 95 + + 20, 20 + + + False + 0, 614 @@ -4586,12 +3650,6 @@ Top Kreditoren: 1 - - 20, 20 - - - False - 794, 56 @@ -5495,9 +4553,21 @@ Top Kreditoren: 0, 0 + + Profil-Verwaltung + + + Finale Indexe + + + Dashboard + Start + + Grundeinstellungen + Grundeinstellungen @@ -5534,18 +4604,6 @@ Top Kreditoren: 3 - - Profil-Verwaltung - - - Finale Indexe - - - Dashboard - - - Grundeinstellungen - RibbonPage2 diff --git a/app/DD_PM_WINDREAM/frmAdministration.vb b/app/DD_PM_WINDREAM/frmAdministration.vb index 3d17983..1df9553 100644 --- a/app/DD_PM_WINDREAM/frmAdministration.vb +++ b/app/DD_PM_WINDREAM/frmAdministration.vb @@ -12,9 +12,14 @@ Public Class frmAdministration Private email As New ClassEmail Public profile_guid As Integer = 0 Dim formloaded As Boolean - Dim change_BindingSource As Boolean + Dim change_BindingSource As Boolean = False Private INSERT_ACTIVE As Boolean = False Dim DT_CHART_CONFIG As DataTable + Dim DT2Compare As DataTable + Dim PROF_ORIGIN As DataTable + Private CURR_TEXT_CONTROL_CONTENT As String + Private CURR_BOOL_CONTROL_CONTENT As Boolean + Private CURR_COMBOBOX_CONTROL_CONTENT As String Private Sub frmFormDesigner_Load(sender As Object, e As System.EventArgs) Handles Me.Load formloaded = False @@ -22,6 +27,7 @@ Public Class frmAdministration Try TBPM_KONFIGURATIONTableAdapter.Connection.ConnectionString = CONNECTION_STRING TBPM_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING + PROF_ORIGIN = DD_DMSLiteDataSet.TBPM_PROFILE TBPM_TYPETableAdapter.Connection.ConnectionString = CONNECTION_STRING TBDD_USERTableAdapter.Connection.ConnectionString = CONNECTION_STRING FNPM_GET_FREE_USER_FOR_PROFILETableAdapter.Connection.ConnectionString = CONNECTION_STRING @@ -168,6 +174,7 @@ Public Class frmAdministration End Sub Sub Refresh_Profildaten() Try + change_BindingSource = True TBPM_PROFILETableAdapter.Fill(DD_DMSLiteDataSet.TBPM_PROFILE) TBPM_TYPETableAdapter.Fill(DD_DMSLiteDataSet.TBPM_TYPE) TBPM_KONFIGURATIONTableAdapter.Fill(DD_DMSLiteDataSet.TBPM_KONFIGURATION) @@ -186,7 +193,7 @@ Public Class frmAdministration LOGGER.Error(ex) MsgBox("Fehler bei Refresh_Profildaten: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Achtung:") End Try - + change_BindingSource = False End Sub Private Sub ObjekttypenEintragen() Me.cmbObjekttypen.Items.Clear() @@ -439,7 +446,7 @@ Public Class frmAdministration RibbonPageGroup2.Enabled = False RibbonPageGroup4.Enabled = True GridControl1.Enabled = False - Load_Chart_Konfig + Load_Chart_Konfig() End Select End Sub Sub Load_Chart_Konfig() @@ -703,11 +710,13 @@ Public Class frmAdministration Private Sub ACTIVECheckBox_CheckedChanged(sender As Object, e As EventArgs) Handles ACTIVECheckBox.CheckedChanged + If ACTIVECheckBox.Checked Then ACTIVECheckBox.BackColor = Color.LightSteelBlue Else ACTIVECheckBox.BackColor = Color.Transparent End If + End Sub Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) @@ -882,7 +891,7 @@ Public Class frmAdministration 'End Sub Private Sub frmProfileDesigner_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing - If UNSAVED_CHANGES_PROFILE = True Or UNSAVED_CHANGES_FI = True Then + If UNSAVED_CHANGES_PROFILE Or UNSAVED_CHANGES_FI = True Then Dim oQuestion As String If USER_LANGUAGE <> "de-DE" Then oQuestion = "You have unsaved changes! Do You want to save them now?" @@ -892,7 +901,7 @@ Public Class frmAdministration Dim result As MsgBoxResult = MsgBox(oQuestion, MsgBoxStyle.YesNo, ADDITIONAL_TITLE) 'wenn Speichern ja If result = MsgBoxResult.Yes Then - If UNSAVED_CHANGES_PROFILE = True Then + If UNSAVED_CHANGES_PROFILE Then Save_Profile() End If If UNSAVED_CHANGES_FI = True Then @@ -1107,7 +1116,7 @@ Public Class frmAdministration Sub Save_Profile() Try Me.TBPM_PROFILEBindingSource.EndEdit() - If DD_DMSLiteDataSet.TBPM_PROFILE.GetChanges Is Nothing = False Or UNSAVED_CHANGES_PROFILE = True Then + If DD_DMSLiteDataSet.TBPM_PROFILE.GetChanges Is Nothing = False Or UNSAVED_CHANGES_PROFILE Then CHANGED_WHOTextBox.Text = USER_USERNAME Me.TBPM_PROFILEBindingSource.EndEdit() Me.TBPM_PROFILETableAdapter.Update(DD_DMSLiteDataSet.TBPM_PROFILE) @@ -1128,7 +1137,7 @@ Public Class frmAdministration End Sub Private Sub BarButtonItem8_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem8.ItemClick - If TBPM_PROFILETableAdapter.cmdAnzProfile + 1 > LICENSE_PROFILES Then + If DD_DMSLiteDataSet.TBPM_PROFILE.Count + 1 > LICENSE_PROFILES Then MsgBox("Sie haben die maximale Anzahl (" & LICENSE_PROFILES & ") von lizensierten Profilen erreicht!" & vbNewLine & "Bitte löschen Sie Profile oder setzen sich mit Digital Data in Verbindung!", MsgBoxStyle.Exclamation, "Achtung Lizenzhinweis:") Else Try @@ -1364,7 +1373,13 @@ Public Class frmAdministration End Try End Sub Private Sub TBPM_PROFILEBindingSource_CurrentItemChanged(sender As Object, e As EventArgs) Handles TBPM_PROFILEBindingSource.CurrentItemChanged - Check_Changes() + If formloaded = False Then + Exit Sub + End If + If UNSAVED_CHANGES_PROFILE Then + CHECK_QUESTION_CHANGES() + End If + ' Check_Changes() change_BindingSource = True CHECK_QUESTION_CHANGES() End Sub @@ -1372,7 +1387,10 @@ Public Class frmAdministration If formloaded = False Then Exit Sub End If - Check_Changes() + If UNSAVED_CHANGES_PROFILE Then + CHECK_QUESTION_CHANGES() + End If + 'Check_Changes() change_BindingSource = False tsbStaticInfo.Caption = "" @@ -1385,7 +1403,7 @@ Public Class frmAdministration If formloaded = False Then Exit Sub End If - If UNSAVED_CHANGES_PROFILE = True Or UNSAVED_CHANGES_FI = True Then + If UNSAVED_CHANGES_PROFILE Or UNSAVED_CHANGES_FI = True Then Dim oQuestion As String If USER_LANGUAGE <> "de-DE" Then oQuestion = "You have unsaved changes! Do You want to save them now?" @@ -1395,24 +1413,20 @@ Public Class frmAdministration Dim result As MsgBoxResult = MsgBox(oQuestion, MsgBoxStyle.YesNo, ADDITIONAL_TITLE) 'wenn Speichern ja If result = MsgBoxResult.Yes Then - If UNSAVED_CHANGES_PROFILE = True Then + If UNSAVED_CHANGES_PROFILE Then Save_Profile() End If If UNSAVED_CHANGES_FI = True Then Save_FI() End If - Else - UNSAVED_CHANGES_PROFILE = False - UNSAVED_CHANGES_FI = False - DD_DMSLiteDataSet.AcceptChanges() End If End If End Sub Private Sub Check_Changes() - If formloaded = False Or UNSAVED_CHANGES_PROFILE = True Or change_BindingSource = True Then + If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then Exit Sub End If - TBPM_PROFILEBindingSource.EndEdit() + ' TBPM_PROFILEBindingSource.EndEdit() If Not IsNothing(DD_DMSLiteDataSet.TBPM_PROFILE.GetChanges) Then UNSAVED_CHANGES_PROFILE = True Else @@ -1422,30 +1436,62 @@ Public Class frmAdministration Private Sub NAMETextBox_TextChanged(sender As Object, e As EventArgs) Handles WD_SEARCHTextBox.TextChanged, TITLETextBox.TextChanged, NAMETextBox.TextChanged, FINAL_TEXTTextBox.TextChanged, DESCRIPTIONTextBox.TextChanged, WORK_HISTORY_ENTRYTextBox.TextChanged, MOVE2FOLDERTextBox.TextChanged - If formloaded = False Or UNSAVED_CHANGES_PROFILE = True Or change_BindingSource = True Then + If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then Exit Sub End If 'UNSAVED_CHANGES_PROFILE = True End Sub + Private Sub ACTIVECheckBox_Enter(sender As Object, e As EventArgs) Handles ACTIVECheckBox.Enter, SORT_BY_LATESTCheckBox.Enter, FINAL_PROFILECheckBox.Enter + Dim ochk As CheckBox = sender + If formloaded = False Then + Exit Sub + End If + If change_BindingSource = True Then + Exit Sub + End If + If CURR_BOOL_CONTROL_CONTENT <> ochk.Checked Then + CURR_BOOL_CONTROL_CONTENT = ochk.Checked + End If + End Sub Private Sub ACTIVECheckBox_CheckStateChanged(sender As Object, e As EventArgs) Handles SORT_BY_LATESTCheckBox.CheckStateChanged, FINAL_PROFILECheckBox.CheckStateChanged, ACTIVECheckBox.CheckStateChanged - If formloaded = False Or UNSAVED_CHANGES_PROFILE = True Or change_BindingSource = True Then + If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then Exit Sub End If - 'UNSAVED_CHANGES_PROFILE = True + Dim ochk As CheckBox = sender + If CURR_BOOL_CONTROL_CONTENT <> ochk.Checked Then + UNSAVED_CHANGES_PROFILE = True + End If End Sub Private Sub cmbObjekttypen_SelectedIndexChanged_1(sender As Object, e As EventArgs) Handles PM_VEKTOR_INDEXComboBox.SelectedIndexChanged, DISPLAY_MODEComboBox.SelectedIndexChanged, cmbObjekttypen.SelectedIndexChanged, cmbLOGIndex.SelectedIndexChanged - If formloaded = False Or UNSAVED_CHANGES_PROFILE = True Or change_BindingSource = True Then + If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then Exit Sub End If - 'UNSAVED_CHANGES_PROFILE = True + Dim ocmb As ComboBox = sender + Dim oSelectedValue = ocmb.SelectedValue + If CURR_COMBOBOX_CONTROL_CONTENT <> oSelectedValue Then + UNSAVED_CHANGES_PROFILE = True + End If + End Sub + Private Sub PM_VEKTOR_INDEXComboBox_Click(sender As Object, e As EventArgs) Handles PM_VEKTOR_INDEXComboBox.Click + If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then + Exit Sub + End If + Dim ocmb As ComboBox = sender + If ocmb.SelectedIndex <> -1 Then + Dim oSelectedValue = ocmb.SelectedValue + If CURR_COMBOBOX_CONTROL_CONTENT <> oSelectedValue Then + CURR_COMBOBOX_CONTROL_CONTENT = oSelectedValue + End If + End If End Sub Private Sub GridView1_FocusedRowChanged(sender As Object, e As Views.Base.FocusedRowChangedEventArgs) Handles GridViewProfile.FocusedRowChanged - If formloaded = False Or UNSAVED_CHANGES_PROFILE = True Or change_BindingSource = True Then + If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then Exit Sub End If + change_BindingSource = True If TabControl1.SelectedIndex = 1 And formloaded Then Try Dim profileId As Integer = GetCurrentProfileId() @@ -1457,11 +1503,11 @@ Public Class frmAdministration MsgBox($"Error while calling FillProfile_User", MsgBoxStyle.Critical) End Try End If - 'change_BindingSource = True + ' End Sub Private Sub GridView1_ValidateRow(sender As Object, e As ValidateRowEventArgs) Handles GridViewProfile.ValidateRow - If formloaded = False Or UNSAVED_CHANGES_PROFILE = True Or change_BindingSource = True Then + If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then Exit Sub End If @@ -1469,12 +1515,13 @@ Public Class frmAdministration End Sub Private Sub TBPM_PROFILEBindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBPM_PROFILEBindingSource.CurrentChanged - If formloaded = False Or UNSAVED_CHANGES_PROFILE = True Or change_BindingSource = True Then + If formloaded = False Or UNSAVED_CHANGES_PROFILE Or change_BindingSource = True Then Exit Sub End If + change_BindingSource = True - Check_Changes() + ' Check_Changes() End Sub Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter @@ -1611,13 +1658,13 @@ Public Class frmAdministration Private Sub Series2SQL_Click(sender As Object, e As EventArgs) Handles Series1SQL.Click, Series2SQL.Click, Series3SQL.Click, Series4SQL.Click Dim obutton As Button = sender - Dim oForm As New frmSQL_DESIGNER() With { .SQLCommand = obutton.Tag} + Dim oForm As New frmSQL_DESIGNER() With {.SQLCommand = obutton.Tag} Dim oResult = oForm.ShowDialog() If oResult = DialogResult.OK Then If oForm.SQLCommand <> obutton.Tag Then obutton.Tag = oForm.SQLCommand.Replace(" '", "''") - End If + End If End If End Sub @@ -1649,7 +1696,45 @@ Public Class frmAdministration End If End Sub - Private Sub GridViewProfile_Click(sender As Object, e As EventArgs) Handles GridViewProfile.Click + Private Sub PROFILGUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles PROFILGUIDTextBox.TextChanged + + If IsNumeric(PROFILGUIDTextBox.Text) Then + CURRENT_ProfilGUID = PROFILGUIDTextBox.Text + End If + End Sub + + Private Sub TextBox_GotFocus(sender As Object, e As EventArgs) Handles NAMETextBox.GotFocus, TITLETextBox.GotFocus, DESCRIPTIONTextBox.GotFocus, WD_SEARCHTextBox.GotFocus, FINAL_TEXTTextBox.GotFocus, MOVE2FOLDERTextBox.GotFocus, + WORK_HISTORY_ENTRYTextBox.GotFocus + If formloaded = False Or UNSAVED_CHANGES_PROFILE Then + Exit Sub + End If + If change_BindingSource = True Then + Exit Sub + End If + Dim oBox As TextBox = sender + If Len(oBox.Text) > 0 Then + If CURR_TEXT_CONTROL_CONTENT <> oBox.Text Then + CURR_TEXT_CONTROL_CONTENT = oBox.Text + End If + End If + End Sub + + + Private Sub TextBox_Leave(sender As Object, e As EventArgs) Handles NAMETextBox.Leave, TITLETextBox.Leave, DESCRIPTIONTextBox.Leave, WD_SEARCHTextBox.Leave, FINAL_TEXTTextBox.Leave, MOVE2FOLDERTextBox.Leave, WORK_HISTORY_ENTRYTextBox.Leave + If formloaded = False Then + Exit Sub + End If + If change_BindingSource = True Then + Exit Sub + End If + Dim oBox As TextBox = sender + If Len(oBox.Text) > 0 Then + If CURR_TEXT_CONTROL_CONTENT <> oBox.Text Then + UNSAVED_CHANGES_PROFILE = True + End If + End If End Sub + + End Class \ No newline at end of file diff --git a/app/DD_PM_WINDREAM/frmMain.vb b/app/DD_PM_WINDREAM/frmMain.vb index eea482a..695b62e 100644 --- a/app/DD_PM_WINDREAM/frmMain.vb +++ b/app/DD_PM_WINDREAM/frmMain.vb @@ -1108,7 +1108,6 @@ Public Class frmMain If GRID_LOAD_TYPE = "OVERVIEW" Then For Each orow As DataRow In CURRENT_DT_PROFILES.Rows - If orow.Item("GUID") = CURRENT_CLICKED_PROFILE_ID Then CURRENT_CLICKED_PROFILE_TITLE = orow.Item("TITLE") Exit For @@ -1394,7 +1393,12 @@ Public Class frmMain Else End If - + If Len(PROFIL_TITLE) > 0 Then + CURRENT_CLICKED_PROFILE_TITLE = PROFIL_TITLE + End If + If Len(oHitProfilID) > 0 Then + CURRENT_CLICKED_PROFILE_ID = CURRENT_CLICKED_PROFILE_ID + End If If Not IsNothing(oHitProfilID) And IsNumeric(oHitProfilID) Then LOGGER.Debug($"Item_Scope: Not IsNothing(PROFIL_ID) And IsNumeric(PROFIL_ID)") diff --git a/app/DD_PM_WINDREAM/frmValidator.vb b/app/DD_PM_WINDREAM/frmValidator.vb index f3e24ea..3f873ac 100644 --- a/app/DD_PM_WINDREAM/frmValidator.vb +++ b/app/DD_PM_WINDREAM/frmValidator.vb @@ -1509,7 +1509,7 @@ Public Class frmValidator LookupControl_EnablingControls(oLookup, SelectedValues) LookupControl_DependingColumn(oLookup, SelectedValues) Else - LOGGER.Debug("Uups onLookUpselectedValue: SelectedValues.Count <> 1 ") + LOGGER.Debug("Attention: onLookUpselectedValue: SelectedValues.Count <> 1 ") End If End If Catch ex As Exception @@ -1564,7 +1564,7 @@ Public Class frmValidator If SelectedValues.Count = 1 Then SetControlValues(oLookup, SelectedValues) Else - LOGGER.Debug("Uups2: SelectedValues.Count <> 1 ") + LOGGER.Debug("Attention - onLookUpselectedValue_Control2Set: SelectedValues.Count <> 1 - Not implemented multiple selections!") End If End If Catch ex As Exception