From 937188031498bc3325bff2d403163a303a0fafc0 Mon Sep 17 00:00:00 2001 From: SchreiberM Date: Thu, 2 Jun 2016 12:18:52 +0200 Subject: [PATCH] MS_02.06.2016 --- .../ClassControlBuilder.vb | 19 +- .../ClassControlCommandsUI.vb | 6 +- app/DD-Record-Organiser/ClassControlValues.vb | 2 +- .../ClassImport_Windream.vb | 27 + app/DD-Record-Organiser/DD_DMSDataSet.xsd | 108 ++ app/DD-Record-Organiser/DD_DMSDataSet.xss | 127 +- .../DD_DMSDataSet1.Designer.vb | 1630 +++++++++++++---- .../frmConstructor_Main.vb | 2 +- .../frmDokumentart_NameConvention.designer.vb | 217 +++ .../frmDokumentart_NameConvention.resx | 678 ++++++- .../frmDokumentart_NameConvention.vb | 48 +- 11 files changed, 2349 insertions(+), 515 deletions(-) diff --git a/app/DD-Record-Organiser/ClassControlBuilder.vb b/app/DD-Record-Organiser/ClassControlBuilder.vb index 0f7ec3b..1eaa00a 100644 --- a/app/DD-Record-Organiser/ClassControlBuilder.vb +++ b/app/DD-Record-Organiser/ClassControlBuilder.vb @@ -214,7 +214,7 @@ Public Class ClassControlBuilder End Function).SingleOrDefault() ' Wir ersetzen den platzhalter im sql command mit dem übergebenen wert sqlcommand = sqlcommand.Replace(match.Groups(1).Value, value) - If LogErrorsOnly = False Then ClassLogger.Add(" >> " & String.Format("Executing SQL_COMMAND: '{0}' for controlID '{1}'", sqlcommand, dependingControlId)) + If LogErrorsOnly = False Then ClassLogger.Add(" >> " & String.Format("Executing SQL_COMMAND: '{0}' for controlID '{1}'", sqlcommand, dependingControlId), False) ' Jetzt wird das SQL Command ausgeführt, es MUSS einen Boolschen Wert zurückgeben, True, False, 0, 1 Dim dt As DataTable = ClassDatabase.Return_Datatable(sqlcommand) @@ -317,7 +317,12 @@ Public Class ClassControlBuilder End Select Select Case row.Item("CONTROL_TYPE_ID") Case 4 'DatePicker - value = CDate(value) + Try + value = CDate(value) + Catch ex As Exception + ClassLogger.Add("Unexpected Error in converting Value '" & value & "' to date - Control-ID: " & CONTROL_ID.ToString & "- Error: " & ex.Message) + End Try + End Select ' Diese Abfrage verhindert, dass Werte, die aus z.B. CheckedListBoxen kommen, ' nicht überschrieben werden. Diese Werte werden bereits mit UpdateMultipleValues gespeichert @@ -357,10 +362,14 @@ Public Class ClassControlBuilder If dt.Rows.Count = 1 Then Try Dim val = dt.Rows(0).Item(0) - Dim dateValue As String = CDate(dt.Rows(0).Item(0)) - If val = "1900-01-01" Then + Dim dateValue + Try + dateValue = CDate(val) + Catch ex As Exception + ClassLogger.Add("Unexpected Error in converting Value '" & value & "' to date - Control-ID: " & dependingControlId.ToString & "- Error: " & ex.Message) Continue For - End If + End Try + ControlLoader.DateTimePicker.LoadValue(dependingControl, dateValue) Dim sql1 = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", dependingControlId, CURRENT_RECORD_ID) Dim id = ClassDatabase.Execute_Scalar(sql1) diff --git a/app/DD-Record-Organiser/ClassControlCommandsUI.vb b/app/DD-Record-Organiser/ClassControlCommandsUI.vb index 82e7efc..fa5f65b 100644 --- a/app/DD-Record-Organiser/ClassControlCommandsUI.vb +++ b/app/DD-Record-Organiser/ClassControlCommandsUI.vb @@ -30,7 +30,7 @@ Public Class ClassControlCommandsUI _CtrlBuilder.MasterPanel.SuspendLayout() Dim sw As New SW("LoadControls") - + Dim SQL As String = String.Format("SELECT T.*, dbo.FNPMO_GET_CONTROL_CAPTION ('{2}', {3},T.CONTROL_ID) AS 'CAPTION' FROM VWPMO_CONTROL_SCREEN T WHERE SCREEN_ID = {0} AND FORM_ID = {1}", CURRENT_SCREEN_ID, FormId, USER_LANGUAGE, CURRENT_SCREEN_ID) ' "SELECT * FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = " & FormId & " and SCREEN_ID = 1" @@ -285,7 +285,7 @@ Public Class ClassControlCommandsUI parent) control = "DataGridViewCheckable - " & dr.Item("CONTROL_ID") End Select - + ' ContextMenuStrip zuweisen ' MasterDataID im ContextMenuStrip Speichern @@ -299,7 +299,7 @@ Public Class ClassControlCommandsUI sw.Done() _CtrlBuilder.MasterPanel.ResumeLayout() - + End Sub Function DeleteRecord(RecordID As Integer) diff --git a/app/DD-Record-Organiser/ClassControlValues.vb b/app/DD-Record-Organiser/ClassControlValues.vb index 5dd7550..18df710 100644 --- a/app/DD-Record-Organiser/ClassControlValues.vb +++ b/app/DD-Record-Organiser/ClassControlValues.vb @@ -499,7 +499,7 @@ Public Class ClassControlValues Case "TextBox" value = DirectCast(otherControl, TextBox).Text Case "CustomComboBox" - value = DirectCast(otherControl, CustomComboBox).SelectedText + value = DirectCast(otherControl, CustomComboBox).Text Case "DateEdit" value = DirectCast(otherControl, DevExpress.XtraEditors.DateEdit).EditValue End Select diff --git a/app/DD-Record-Organiser/ClassImport_Windream.vb b/app/DD-Record-Organiser/ClassImport_Windream.vb index 39a0a1c..ccaa4b7 100644 --- a/app/DD-Record-Organiser/ClassImport_Windream.vb +++ b/app/DD-Record-Organiser/ClassImport_Windream.vb @@ -232,6 +232,33 @@ Public Class ClassImport_Windream If IsDBNull(CONTROLVALUE) Then value = "" Else + Dim sql1 = "SELECT * FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE ID = (SELECT TOP 1 GUID FROM TBPMO_WD_FORMVIEW_DOKTYPES WHERE DOCTYPE_ID = " & DocTypeID & " AND FORMVIEW_ID = " & CURRENT_FORMVIEW_ID & ")" + Dim DT_FORMAT As DataTable = ClassDatabase.Return_Datatable(sql1) + If Not IsNothing(DT_FORMAT) Then + If DT_FORMAT.Rows.Count > 0 Then + Dim result + Try + result = (From FormatRow In DT_FORMAT.AsEnumerable + Select FormatRow Where FormatRow.Item("PATTERN") = APattern).Single() + Catch ex As Exception + + End Try + + If Not IsNothing(result) Then + Dim _rule = result.Item("FORMAT_RULE") + If Not IsNothing(_rule) Then + If IsDate(CONTROLVALUE) Then + Dim _date = CDate(CONTROLVALUE) + _rule = _rule.ToString.Replace("Y", "y") + _rule = _rule.ToString.Replace("D", "d") + Dim convertedvalue = _date.ToString(_rule) + CONTROLVALUE = convertedvalue + End If + End If + End If + End If + End If + value = CONTROLVALUE End If End If diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xsd b/app/DD-Record-Organiser/DD_DMSDataSet.xsd index 55073d2..06e40a6 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.xsd +++ b/app/DD-Record-Organiser/DD_DMSDataSet.xsd @@ -3179,6 +3179,72 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D + + + + + + DELETE FROM TBPMO_WD_NAMECONVENTION_FORMAT +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBPMO_WD_NAMECONVENTION_FORMAT + (ID, PATTERN, FORMAT_RULE, ADDED_WHO) +VALUES (@ID,@PATTERN,@FORMAT_RULE,@ADDED_WHO); +SELECT GUID, ID, PATTERN, FORMAT_RULE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + SELECT GUID, ID, PATTERN, FORMAT_RULE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN +FROM TBPMO_WD_NAMECONVENTION_FORMAT +WHERE (ID = @ID) + + + + + + + + UPDATE TBPMO_WD_NAMECONVENTION_FORMAT +SET ID = @ID, PATTERN = @PATTERN, FORMAT_RULE = @FORMAT_RULE, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +SELECT GUID, ID, PATTERN, FORMAT_RULE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + @@ -5448,6 +5514,44 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -5602,6 +5706,10 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D + + + + diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xss b/app/DD-Record-Organiser/DD_DMSDataSet.xss index b29eea6..26baeef 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.xss +++ b/app/DD-Record-Organiser/DD_DMSDataSet.xss @@ -4,55 +4,56 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + 437 @@ -68,7 +69,7 @@ - + 1701 @@ -80,7 +81,7 @@ - + 1627 @@ -92,7 +93,7 @@ - + 710 @@ -108,7 +109,7 @@ - + 1374 @@ -124,7 +125,7 @@ - + 842 @@ -136,7 +137,7 @@ - + 107 @@ -156,7 +157,7 @@ - + 1632 @@ -168,7 +169,7 @@ - + 1358 @@ -180,7 +181,7 @@ - + 601 @@ -196,7 +197,7 @@ - + 618 @@ -208,7 +209,7 @@ - + 2461 @@ -224,7 +225,7 @@ - + 2358 @@ -236,7 +237,7 @@ - + 2134 @@ -252,7 +253,7 @@ - + 2142 @@ -268,7 +269,7 @@ - + 141 @@ -284,7 +285,7 @@ - + 22 @@ -304,7 +305,7 @@ - + 14 diff --git a/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb b/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb index ab7bfcc..cc47052 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb +++ b/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb @@ -113,6 +113,8 @@ Partial Public Class DD_DMSDataSet Private tableTBPMO_RIGHT_GROUP As TBPMO_RIGHT_GROUPDataTable + Private tableTBPMO_WD_NAMECONVENTION_FORMAT As TBPMO_WD_NAMECONVENTION_FORMATDataTable + Private relationFK_TBPMO_FORM_VIEW_FORM_ID As Global.System.Data.DataRelation Private relationFK_TBDD_DOKUMENTART_EINGID As Global.System.Data.DataRelation @@ -310,6 +312,9 @@ Partial Public Class DD_DMSDataSet If (Not (ds.Tables("TBPMO_RIGHT_GROUP")) Is Nothing) Then MyBase.Tables.Add(New TBPMO_RIGHT_GROUPDataTable(ds.Tables("TBPMO_RIGHT_GROUP"))) End If + If (Not (ds.Tables("TBPMO_WD_NAMECONVENTION_FORMAT")) Is Nothing) Then + MyBase.Tables.Add(New TBPMO_WD_NAMECONVENTION_FORMATDataTable(ds.Tables("TBPMO_WD_NAMECONVENTION_FORMAT"))) + End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace @@ -767,6 +772,16 @@ Partial Public Class DD_DMSDataSet End Get End Property + _ + Public ReadOnly Property TBPMO_WD_NAMECONVENTION_FORMAT() As TBPMO_WD_NAMECONVENTION_FORMATDataTable + Get + Return Me.tableTBPMO_WD_NAMECONVENTION_FORMAT + End Get + End Property + _ + Private Function ShouldSerializeTBPMO_WD_NAMECONVENTION_FORMAT() As Boolean + Return false + End Function + _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) @@ -1870,6 +1902,9 @@ Partial Public Class DD_DMSDataSet _ Public Delegate Sub TBPMO_RIGHT_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RIGHT_GROUPRowChangeEvent) + _ + Public Delegate Sub TBPMO_WD_NAMECONVENTION_FORMATRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_NAMECONVENTION_FORMATRowChangeEvent) + ''' '''Represents the strongly named DataTable class. ''' @@ -20084,6 +20119,368 @@ Partial Public Class DD_DMSDataSet End Function End Class + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBPMO_WD_NAMECONVENTION_FORMATDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_NAMECONVENTION_FORMATRow) + + Private columnGUID As Global.System.Data.DataColumn + + Private columnID As Global.System.Data.DataColumn + + Private columnPATTERN As Global.System.Data.DataColumn + + Private columnFORMAT_RULE As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New + Me.TableName = "TBPMO_WD_NAMECONVENTION_FORMAT" + 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 IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnID + End Get + End Property + + _ + Public ReadOnly Property PATTERNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPATTERN + End Get + End Property + + _ + Public ReadOnly Property FORMAT_RULEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORMAT_RULE + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHO + End Get + End Property + + _ + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADDED_WHEN + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHO + End Get + End Property + + _ + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCHANGED_WHEN + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_WD_NAMECONVENTION_FORMATRow + Get + Return CType(Me.Rows(index),TBPMO_WD_NAMECONVENTION_FORMATRow) + End Get + End Property + + _ + Public Event TBPMO_WD_NAMECONVENTION_FORMATRowChanging As TBPMO_WD_NAMECONVENTION_FORMATRowChangeEventHandler + + _ + Public Event TBPMO_WD_NAMECONVENTION_FORMATRowChanged As TBPMO_WD_NAMECONVENTION_FORMATRowChangeEventHandler + + _ + Public Event TBPMO_WD_NAMECONVENTION_FORMATRowDeleting As TBPMO_WD_NAMECONVENTION_FORMATRowChangeEventHandler + + _ + Public Event TBPMO_WD_NAMECONVENTION_FORMATRowDeleted As TBPMO_WD_NAMECONVENTION_FORMATRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_WD_NAMECONVENTION_FORMATRow(ByVal row As TBPMO_WD_NAMECONVENTION_FORMATRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_WD_NAMECONVENTION_FORMATRow(ByVal ID As Integer, ByVal PATTERN As String, ByVal FORMAT_RULE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_WD_NAMECONVENTION_FORMATRow + Dim rowTBPMO_WD_NAMECONVENTION_FORMATRow As TBPMO_WD_NAMECONVENTION_FORMATRow = CType(Me.NewRow,TBPMO_WD_NAMECONVENTION_FORMATRow) + Dim columnValuesArray() As Object = New Object() {Nothing, ID, PATTERN, FORMAT_RULE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBPMO_WD_NAMECONVENTION_FORMATRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_WD_NAMECONVENTION_FORMATRow) + Return rowTBPMO_WD_NAMECONVENTION_FORMATRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_NAMECONVENTION_FORMATRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_NAMECONVENTION_FORMATRow) + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBPMO_WD_NAMECONVENTION_FORMATDataTable = CType(MyBase.Clone,TBPMO_WD_NAMECONVENTION_FORMATDataTable) + cln.InitVars + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBPMO_WD_NAMECONVENTION_FORMATDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnID = MyBase.Columns("ID") + Me.columnPATTERN = MyBase.Columns("PATTERN") + Me.columnFORMAT_RULE = MyBase.Columns("FORMAT_RULE") + 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.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me.columnPATTERN = New Global.System.Data.DataColumn("PATTERN", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPATTERN) + Me.columnFORMAT_RULE = New Global.System.Data.DataColumn("FORMAT_RULE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORMAT_RULE) + 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.columnID.AllowDBNull = false + Me.columnPATTERN.AllowDBNull = false + Me.columnPATTERN.MaxLength = 50 + Me.columnFORMAT_RULE.AllowDBNull = false + Me.columnFORMAT_RULE.MaxLength = 100 + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + End Sub + + _ + Public Function NewTBPMO_WD_NAMECONVENTION_FORMATRow() As TBPMO_WD_NAMECONVENTION_FORMATRow + Return CType(Me.NewRow,TBPMO_WD_NAMECONVENTION_FORMATRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBPMO_WD_NAMECONVENTION_FORMATRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBPMO_WD_NAMECONVENTION_FORMATRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBPMO_WD_NAMECONVENTION_FORMATRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_NAMECONVENTION_FORMATRowChanged(Me, New TBPMO_WD_NAMECONVENTION_FORMATRowChangeEvent(CType(e.Row,TBPMO_WD_NAMECONVENTION_FORMATRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBPMO_WD_NAMECONVENTION_FORMATRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_NAMECONVENTION_FORMATRowChanging(Me, New TBPMO_WD_NAMECONVENTION_FORMATRowChangeEvent(CType(e.Row,TBPMO_WD_NAMECONVENTION_FORMATRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBPMO_WD_NAMECONVENTION_FORMATRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_NAMECONVENTION_FORMATRowDeleted(Me, New TBPMO_WD_NAMECONVENTION_FORMATRowChangeEvent(CType(e.Row,TBPMO_WD_NAMECONVENTION_FORMATRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBPMO_WD_NAMECONVENTION_FORMATRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_NAMECONVENTION_FORMATRowDeleting(Me, New TBPMO_WD_NAMECONVENTION_FORMATRowChangeEvent(CType(e.Row,TBPMO_WD_NAMECONVENTION_FORMATRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBPMO_WD_NAMECONVENTION_FORMATRow(ByVal row As TBPMO_WD_NAMECONVENTION_FORMATRow) + 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_DMSDataSet = New DD_DMSDataSet() + 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 = "TBPMO_WD_NAMECONVENTION_FORMATDataTable" + 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. ''' @@ -30216,6 +30613,178 @@ Partial Public Class DD_DMSDataSet End Sub End Class + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_WD_NAMECONVENTION_FORMATRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_WD_NAMECONVENTION_FORMAT As TBPMO_WD_NAMECONVENTION_FORMATDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_WD_NAMECONVENTION_FORMAT = CType(Me.Table,TBPMO_WD_NAMECONVENTION_FORMATDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.GUIDColumn) = value + End Set + End Property + + _ + Public Property ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.IDColumn) = value + End Set + End Property + + _ + Public Property PATTERN() As String + Get + Return CType(Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.PATTERNColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.PATTERNColumn) = value + End Set + End Property + + _ + Public Property FORMAT_RULE() As String + Get + Return CType(Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.FORMAT_RULEColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.FORMAT_RULEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPMO_WD_NAMECONVENTION_FORMAT ist DBNul"& _ + "l.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_WD_NAMECONVENTION_FORMAT ist DBNu"& _ + "ll.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_WD_NAMECONVENTION_FORMAT ist DBN"& _ + "ull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_WD_NAMECONVENTION_FORMAT ist DB"& _ + "Null.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_WD_NAMECONVENTION_FORMAT.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + End Class + ''' '''Row event argument class ''' @@ -31799,6 +32368,42 @@ Partial Public Class DD_DMSDataSet End Get End Property End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_WD_NAMECONVENTION_FORMATRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_WD_NAMECONVENTION_FORMATRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_WD_NAMECONVENTION_FORMATRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_WD_NAMECONVENTION_FORMATRow + 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_DMSDataSetTableAdapters @@ -47382,16 +47987,357 @@ Namespace DD_DMSDataSetTableAdapters 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 = "TBPMO_RIGHT_GROUP" + tableMapping.DataSetTable = "TBPMO_RIGHT_GROUP" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") + tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") + tableMapping.ColumnMappings.Add("EDIT_REC", "EDIT_REC") + tableMapping.ColumnMappings.Add("ADD_REC", "ADD_REC") + tableMapping.ColumnMappings.Add("DELETE_REC", "DELETE_REC") + tableMapping.ColumnMappings.Add("ADD_DOC", "ADD_DOC") + tableMapping.ColumnMappings.Add("VIEW_DOC", "VIEW_DOC") + tableMapping.ColumnMappings.Add("DELETE_DOC", "DELETE_DOC") + 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 TBPMO_RIGHT_GROUP"&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 TBPMO_RIGHT_GROUP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (ENTITY_ID, GROUP_ID, EDI"& _ + "T_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_DOC, DELETE_DOC, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ + " (@ENTITY_ID,@GROUP_ID,@EDIT_REC,@ADD_REC,@DELETE_REC,@ADD_DOC,@VIEW_DOC,@DE"& _ + "LETE_DOC,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DEL"& _ + "ETE_REC, ADD_DOC, VIEW_DOC, DELETE_DOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHAN"& _ + "GED_WHEN FROM TBPMO_RIGHT_GROUP WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EDIT_REC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EDIT_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_REC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_REC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_DOC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_DOC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_DOC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_RIGHT_GROUP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET ENTITY_ID = @ENTITY_ID, GROUP_"& _ + "ID = @GROUP_ID, EDIT_REC = @EDIT_REC, ADD_REC = @ADD_REC, DELETE_REC = @DELETE_R"& _ + "EC, ADD_DOC = @ADD_DOC, VIEW_DOC = @VIEW_DOC, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" DELETE_"& _ + "DOC = @DELETE_DOC, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GU"& _ + "ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC,"& _ + " VIEW_DOC, DELETE_DOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBP"& _ + "MO_RIGHT_GROUP WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EDIT_REC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EDIT_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_REC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_REC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_DOC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_DOC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_DOC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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_Record_Organiser.My.MySettings.Default.DD_DMSConnectionString + 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 TBPMO_RIGHT_GROUP.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_RIGHT_GROUP" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_RIGHT_GROUPDataTable) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_RIGHT_GROUPDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.TBPMO_RIGHT_GROUPDataTable = New DD_DMSDataSet.TBPMO_RIGHT_GROUPDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_RIGHT_GROUPDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_RIGHT_GROUP") + 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 ENTITY_ID As Integer, ByVal GROUP_ID As Integer, ByVal EDIT_REC As Boolean, ByVal ADD_REC As Boolean, ByVal DELETE_REC As Boolean, ByVal ADD_DOC As Boolean, ByVal VIEW_DOC As Boolean, ByVal DELETE_DOC As Boolean, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(EDIT_REC,Boolean) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADD_REC,Boolean) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(DELETE_REC,Boolean) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADD_DOC,Boolean) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(VIEW_DOC,Boolean) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(DELETE_DOC,Boolean) + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(8).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 ENTITY_ID As Integer, ByVal GROUP_ID As Integer, ByVal EDIT_REC As Boolean, ByVal ADD_REC As Boolean, ByVal DELETE_REC As Boolean, ByVal ADD_DOC As Boolean, ByVal VIEW_DOC As Boolean, ByVal DELETE_DOC As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EDIT_REC,Boolean) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADD_REC,Boolean) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DELETE_REC,Boolean) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADD_DOC,Boolean) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(VIEW_DOC,Boolean) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DELETE_DOC,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(10).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 + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBPMO_WD_NAMECONVENTION_FORMATTableAdapter + 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 = "TBPMO_WD_NAMECONVENTION_FORMAT" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") - tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") - tableMapping.ColumnMappings.Add("EDIT_REC", "EDIT_REC") - tableMapping.ColumnMappings.Add("ADD_REC", "ADD_REC") - tableMapping.ColumnMappings.Add("DELETE_REC", "DELETE_REC") - tableMapping.ColumnMappings.Add("ADD_DOC", "ADD_DOC") - tableMapping.ColumnMappings.Add("VIEW_DOC", "VIEW_DOC") - tableMapping.ColumnMappings.Add("DELETE_DOC", "DELETE_DOC") + tableMapping.ColumnMappings.Add("ID", "ID") + tableMapping.ColumnMappings.Add("PATTERN", "PATTERN") + tableMapping.ColumnMappings.Add("FORMAT_RULE", "FORMAT_RULE") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") @@ -47399,45 +48345,31 @@ Namespace DD_DMSDataSetTableAdapters 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 TBPMO_RIGHT_GROUP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_WD_NAMECONVENTION_FORMAT"&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 TBPMO_RIGHT_GROUP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (ENTITY_ID, GROUP_ID, EDI"& _ - "T_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_DOC, DELETE_DOC, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ - " (@ENTITY_ID,@GROUP_ID,@EDIT_REC,@ADD_REC,@DELETE_REC,@ADD_DOC,@VIEW_DOC,@DE"& _ - "LETE_DOC,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DEL"& _ - "ETE_REC, ADD_DOC, VIEW_DOC, DELETE_DOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHAN"& _ - "GED_WHEN FROM TBPMO_RIGHT_GROUP WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_WD_NAMECONVENTION_FORMAT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (ID, PATTERN"& _ + ", FORMAT_RULE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@ID,@PATTERN,@FORMAT_RULE,@ADDED_WHO);"& _ + " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ID, PATTERN, FORMAT_RULE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CH"& _ + "ANGED_WHEN FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EDIT_REC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EDIT_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_REC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_REC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_DOC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_DOC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_DOC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATTERN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PATTERN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORMAT_RULE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "FORMAT_RULE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_RIGHT_GROUP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET ENTITY_ID = @ENTITY_ID, GROUP_"& _ - "ID = @GROUP_ID, EDIT_REC = @EDIT_REC, ADD_REC = @ADD_REC, DELETE_REC = @DELETE_R"& _ - "EC, ADD_DOC = @ADD_DOC, VIEW_DOC = @VIEW_DOC, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" DELETE_"& _ - "DOC = @DELETE_DOC, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GU"& _ - "ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC,"& _ - " VIEW_DOC, DELETE_DOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBP"& _ - "MO_RIGHT_GROUP WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_WD_NAMECONVENTION_FORMAT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET ID = @ID, PATTERN"& _ + " = @PATTERN, FORMAT_RULE = @FORMAT_RULE, CHANGED_WHO = @CHANGED_WHO"&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, ID, PATTERN, FORMAT_RULE, ADDED_WHO, A"& _ + "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_NAMECONVENTION_FORMAT WHERE ("& _ + "GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ENTITY_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ENTITY_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GROUP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GROUP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EDIT_REC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EDIT_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_REC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_REC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_REC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADD_DOC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ADD_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VIEW_DOC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VIEW_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DELETE_DOC", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "DELETE_DOC", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PATTERN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PATTERN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORMAT_RULE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "FORMAT_RULE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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, "", "", "")) @@ -47456,30 +48388,35 @@ Namespace DD_DMSDataSetTableAdapters 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 TBPMO_RIGHT_GROUP.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_RIGHT_GROUP" + Me._commandCollection(0).CommandText = "SELECT GUID, ID, PATTERN, FORMAT_RULE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO," & _ + " CHANGED_WHEN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_WD_NAMECONVENTION_FORMAT" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (ID " & _ + "= @ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_RIGHT_GROUPDataTable) As Integer + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMATDataTable, ByVal ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(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() As DD_DMSDataSet.TBPMO_RIGHT_GROUPDataTable + + _ + Public Overridable Overloads Function GetData(ByVal ID As Integer) As DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMATDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBPMO_RIGHT_GROUPDataTable = New DD_DMSDataSet.TBPMO_RIGHT_GROUPDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID, Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMATDataTable = New DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMATDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -47487,7 +48424,7 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_RIGHT_GROUPDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMATDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -47495,7 +48432,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overloads Overridable Function Update(ByVal dataSet As DD_DMSDataSet) As Integer - Return Me.Adapter.Update(dataSet, "TBPMO_RIGHT_GROUP") + Return Me.Adapter.Update(dataSet, "TBPMO_WD_NAMECONVENTION_FORMAT") 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 ENTITY_ID As Integer, ByVal GROUP_ID As Integer, ByVal EDIT_REC As Boolean, ByVal ADD_REC As Boolean, ByVal DELETE_REC As Boolean, ByVal ADD_DOC As Boolean, ByVal VIEW_DOC As Boolean, ByVal DELETE_DOC As Boolean, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer) - Me.Adapter.InsertCommand.Parameters(2).Value = CType(EDIT_REC,Boolean) - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADD_REC,Boolean) - Me.Adapter.InsertCommand.Parameters(4).Value = CType(DELETE_REC,Boolean) - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADD_DOC,Boolean) - Me.Adapter.InsertCommand.Parameters(6).Value = CType(VIEW_DOC,Boolean) - Me.Adapter.InsertCommand.Parameters(7).Value = CType(DELETE_DOC,Boolean) - If (ADDED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(8).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 ENTITY_ID As Integer, ByVal GROUP_ID As Integer, ByVal EDIT_REC As Boolean, ByVal ADD_REC As Boolean, ByVal DELETE_REC As Boolean, ByVal ADD_DOC As Boolean, ByVal VIEW_DOC As Boolean, ByVal DELETE_DOC As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(ENTITY_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EDIT_REC,Boolean) - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ADD_REC,Boolean) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DELETE_REC,Boolean) - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADD_DOC,Boolean) - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(VIEW_DOC,Boolean) - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(DELETE_DOC,Boolean) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(10).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 ''' @@ -47679,6 +48527,8 @@ Namespace DD_DMSDataSetTableAdapters Private _tBPMO_RIGHT_GROUPTableAdapter As TBPMO_RIGHT_GROUPTableAdapter + Private _tBPMO_WD_NAMECONVENTION_FORMATTableAdapter As TBPMO_WD_NAMECONVENTION_FORMATTableAdapter + Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection @@ -48142,6 +48992,20 @@ Namespace DD_DMSDataSetTableAdapters End Set End Property + _ + Public Property TBPMO_WD_NAMECONVENTION_FORMATTableAdapter() As TBPMO_WD_NAMECONVENTION_FORMATTableAdapter + Get + Return Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter + End Get + Set + Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter = value + End Set + End Property + _ Public Property BackupDataSetBeforeUpdate() As Boolean @@ -48289,6 +49153,10 @@ Namespace DD_DMSDataSetTableAdapters AndAlso (Not (Me._tBPMO_RIGHT_GROUPTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_RIGHT_GROUPTableAdapter.Connection End If + If ((Not (Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Connection + End If Return Nothing End Get Set @@ -48398,6 +49266,9 @@ Namespace DD_DMSDataSetTableAdapters If (Not (Me._tBPMO_RIGHT_GROUPTableAdapter) Is Nothing) Then count = (count + 1) End If + If (Not (Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter) Is Nothing) Then + count = (count + 1) + End If Return count End Get End Property @@ -48445,12 +49316,12 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_WD_IMPORT_PROFILETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE.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._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -48463,66 +49334,66 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_WD_IMPORT_PROFILETableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.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._tBPMO_WD_IMPORT_PROFILETableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.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._tBDD_DOKUMENTARTTableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_USERTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.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_USER_GROUPSTableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.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._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.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._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW.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._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_WORKFLOWTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE_IDX.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_EMAIL_ACCOUNTTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE_IDX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_CONSTRUCTOR_USER_SQL.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._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -48535,48 +49406,48 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_CONSTRUCTOR_USER_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_LANGUAGE_OBJECTTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LANGUAGE_OBJECT.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._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_VIEW.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._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_FORM_VIEWTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_TEMPLATE_PATTERNTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_PATTERN.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._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_TEMPLATE_PATTERNTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_PATTERN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD.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._tBPMO_TEMPLATE_PATTERNTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_RECORDTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_LANGUAGE_OBJECTTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LANGUAGE_OBJECT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.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._tBPMO_LANGUAGE_OBJECTTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -48589,75 +49460,84 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLOW_UP_EMAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.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._tBPMO_FOLLOW_UP_EMAILTableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_OBJECTTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_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._tBPMO_WD_OBJECTTYPETableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_VIEW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLOW_UP_EMAIL.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._tBPMO_FORM_VIEWTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_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._tBPMO_RECORDTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_FILES_USERTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_FVIEW_DT_INDEX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_OBJECTTYPE.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._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_WD_OBJECTTYPETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_STATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_RIGHT_GROUPTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RIGHT_GROUP.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._tBPMO_WORKFLOW_TASK_STATETableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_RIGHT_GROUPTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_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._tBPMO_WORKFLOWTableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_GROUPS_USERTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_FVIEW_DT_INDEX.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_INDEX_AUTOMTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_WD_FVIEW_DT_INDEXTableAdapter.Update(updatedRows)) + allChangedRows.AddRange(updatedRows) + End If + End If + If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_STATE.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._tBPMO_WORKFLOW_TASK_STATETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -48670,30 +49550,30 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.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_GROUPS_USERTableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.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._tBPMO_FILES_USERTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_RIGHT_GROUPTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RIGHT_GROUP.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) + If (Not (Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_NAMECONVENTION_FORMAT.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._tBPMO_RIGHT_GROUPTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -48739,11 +49619,11 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPMO_WD_IMPORT_PROFILETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -48755,59 +49635,59 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_WD_IMPORT_PROFILETableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Update(addedRows)) + result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.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._tBDD_DOKUMENTARTTableAdapter.Update(addedRows)) + result = (result + Me._tBDD_USERTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(addedRows)) + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.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._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.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._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_WORKFLOWTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE_IDX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE_IDX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_CONSTRUCTOR_USER_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -48819,43 +49699,43 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_CONSTRUCTOR_USER_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPMO_LANGUAGE_OBJECTTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LANGUAGE_OBJECT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_VIEW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_FORM_VIEWTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPMO_TEMPLATE_PATTERNTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_PATTERN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_TEMPLATE_PATTERNTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_PATTERN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_RECORDTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_LANGUAGE_OBJECTTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LANGUAGE_OBJECT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -48867,6 +49747,22 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If + If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLOW_UP_EMAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -48875,6 +49771,14 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If + If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If ((Not (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_FILES_USERTableAdapter.Update(addedRows)) + allAddedRows.AddRange(addedRows) + End If + End If If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_OBJECTTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -48883,19 +49787,19 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_VIEW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPMO_RIGHT_GROUPTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RIGHT_GROUP.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_FORM_VIEWTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_RIGHT_GROUPTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_RECORDTableAdapter.Update(addedRows)) + result = (result + Me._tBDD_GROUPS_USERTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -48915,22 +49819,6 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_WORKFLOWTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If - If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -48939,27 +49827,27 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBDD_INDEX_AUTOMTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_INDEX_AUTOM.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_GROUPS_USERTableAdapter.Update(addedRows)) + result = (result + Me._tBDD_INDEX_AUTOMTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_FILES_USERTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_RIGHT_GROUPTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RIGHT_GROUP.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + If (Not (Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_NAMECONVENTION_FORMAT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_RIGHT_GROUPTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -48973,35 +49861,19 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Private Function UpdateDeletedRows(ByVal dataSet As DD_DMSDataSet, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 - If (Not (Me._tBPMO_RIGHT_GROUPTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RIGHT_GROUP.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_RIGHT_GROUPTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If - If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_NAMECONVENTION_FORMAT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_FILES_USERTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_GROUPS_USERTableAdapter.Update(deletedRows)) - allChangedRows.AddRange(deletedRows) - End If - End If - If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_KONFIGURATIONTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -49013,11 +49885,11 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPMO_KONFIGURATIONTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_KONFIGURATION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_WORKFLOWTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_KONFIGURATIONTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -49037,19 +49909,19 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBDD_GROUPS_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_GROUPS_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_RECORDTableAdapter.Update(deletedRows)) + result = (result + Me._tBDD_GROUPS_USERTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_VIEW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPMO_RIGHT_GROUPTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RIGHT_GROUP.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_FORM_VIEWTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_RIGHT_GROUPTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -49061,6 +49933,14 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If + If (Not (Me._tBPMO_FILES_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FILES_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FILES_USERTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBPMO_FOLLOW_UP_EMAILTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLOW_UP_EMAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -49069,6 +49949,22 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If + If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If + If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If ((Not (deletedRows) Is Nothing) _ + AndAlso (0 < deletedRows.Length)) Then + result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(deletedRows)) + allChangedRows.AddRange(deletedRows) + End If + End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ @@ -49077,43 +49973,43 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_LANGUAGE_OBJECTTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LANGUAGE_OBJECT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_TEMPLATE_PATTERNTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_PATTERN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPMO_RECORDTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_RECORDTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_FOLLUPEMAIL_USERTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FOLLUPEMAIL_USER.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPMO_TEMPLATE_PATTERNTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_PATTERN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPMO_FORM_VIEWTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_VIEW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_FORM_VIEWTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_CONSTRUCTOR_USER_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPMO_LANGUAGE_OBJECTTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_LANGUAGE_OBJECT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_LANGUAGE_OBJECTTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -49125,59 +50021,59 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE_IDX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_CONSTRUCTOR_USER_SQL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBDD_EMAIL_ACCOUNTTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_EMAIL_ACCOUNT.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE_IDX.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_RECORD_LOG_CONFIGTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_RECORD_LOG_CONFIG.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_WORKFLOWTableAdapter.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._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.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._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(deletedRows)) + result = (result + Me._tBDD_DOKUMENTARTTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_DOKUMENTART.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._tBDD_DOKUMENTARTTableAdapter.Update(deletedRows)) + result = (result + Me._tBDD_USERTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_WD_IMPORT_PROFILETableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBDD_USER_GROUPSTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_USER_GROUPS.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Update(deletedRows)) + result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -49189,11 +50085,11 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPMO_WD_IMPORT_PROFILETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_IMPORT_PROFILE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -49430,6 +50326,11 @@ Namespace DD_DMSDataSetTableAdapters 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._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.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"& _ @@ -49752,6 +50653,15 @@ Namespace DD_DMSDataSetTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_RIGHT_GROUPTableAdapter.Adapter) End If End If + If (Not (Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter, Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Connection) + Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Adapter) + End If + End If ' '---- Perform updates ----------- ' @@ -49940,6 +50850,10 @@ Namespace DD_DMSDataSetTableAdapters Me._tBPMO_RIGHT_GROUPTableAdapter.Connection = CType(revertConnections(Me._tBPMO_RIGHT_GROUPTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_RIGHT_GROUPTableAdapter.Transaction = Nothing End If + If (Not (Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter) Is Nothing) Then + Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Connection = CType(revertConnections(Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_WD_NAMECONVENTION_FORMATTableAdapter.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-Record-Organiser/frmConstructor_Main.vb b/app/DD-Record-Organiser/frmConstructor_Main.vb index ae30561..68212d7 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.vb @@ -2719,7 +2719,7 @@ Public Class frmConstructor_Main End If If EBENE2_RECID > 0 Then PARENT_RECORDID = EBENE2_RECID - CURRENT_PARENT_RECORD_ID = PARENT_RECORDID + CURRENT_PARENT_RECORD_ID = PARENT_RECORDID End If End Select End If diff --git a/app/DD-Record-Organiser/frmDokumentart_NameConvention.designer.vb b/app/DD-Record-Organiser/frmDokumentart_NameConvention.designer.vb index 1bcbec5..f28ff4d 100644 --- a/app/DD-Record-Organiser/frmDokumentart_NameConvention.designer.vb +++ b/app/DD-Record-Organiser/frmDokumentart_NameConvention.designer.vb @@ -55,12 +55,40 @@ Partial Class frmDokumentart_NameConvention Me.Label5 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.TBPMO_WD_NAMECONVENTION_FORMATBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colGUID = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPATTERN = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colFORMAT_RULE = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colADDED_WHO = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colADDED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colCHANGED_WHEN = New DevExpress.XtraGrid.Columns.GridColumn() + Me.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter() + Me.BindingNavigator1 = New System.Windows.Forms.BindingNavigator(Me.components) + Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorCountItem = New System.Windows.Forms.ToolStripLabel() + Me.BindingNavigatorDeleteItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveFirstItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMovePreviousItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorPositionItem = New System.Windows.Forms.ToolStripTextBox() + Me.BindingNavigatorSeparator1 = New System.Windows.Forms.ToolStripSeparator() + Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton() + Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator() + Me.ToolStripButtonSave = New System.Windows.Forms.ToolStripButton() Me.GroupBox1.SuspendLayout() CType(Me.TBDD_INDEX_AUTOMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox2.SuspendLayout() CType(Me.TBPMO_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox3.SuspendLayout() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBPMO_WD_NAMECONVENTION_FORMATBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.BindingNavigator1.SuspendLayout() Me.SuspendLayout() ' 'Label1 @@ -242,6 +270,7 @@ Partial Class frmDokumentart_NameConvention Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILETableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing @@ -296,10 +325,169 @@ Partial Class frmDokumentart_NameConvention resources.ApplyResources(Me.Label7, "Label7") Me.Label7.Name = "Label7" ' + 'GridControl1 + ' + resources.ApplyResources(Me.GridControl1, "GridControl1") + Me.GridControl1.DataSource = Me.TBPMO_WD_NAMECONVENTION_FORMATBindingSource + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.ShowOnlyPredefinedDetails = True + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'TBPMO_WD_NAMECONVENTION_FORMATBindingSource + ' + Me.TBPMO_WD_NAMECONVENTION_FORMATBindingSource.DataMember = "TBPMO_WD_NAMECONVENTION_FORMAT" + Me.TBPMO_WD_NAMECONVENTION_FORMATBindingSource.DataSource = Me.DD_DMSDataSet + ' + 'GridView1 + ' + Me.GridView1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView1.Appearance.EvenRow.BackColor"), System.Drawing.Color) + Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True + Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colGUID, Me.colPATTERN, Me.colFORMAT_RULE, Me.colADDED_WHO, Me.colADDED_WHEN, Me.colCHANGED_WHEN}) + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[True] + Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[True] + Me.GridView1.OptionsClipboard.CopyColumnHeaders = DevExpress.Utils.DefaultBoolean.[False] + Me.GridView1.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridView1.OptionsView.ColumnAutoWidth = False + Me.GridView1.OptionsView.EnableAppearanceEvenRow = True + Me.GridView1.OptionsView.ShowAutoFilterRow = True + Me.GridView1.OptionsView.ShowGroupPanel = False + ' + 'colGUID + ' + resources.ApplyResources(Me.colGUID, "colGUID") + Me.colGUID.FieldName = "GUID" + Me.colGUID.Name = "colGUID" + Me.colGUID.OptionsColumn.AllowEdit = False + ' + 'colPATTERN + ' + resources.ApplyResources(Me.colPATTERN, "colPATTERN") + Me.colPATTERN.FieldName = "PATTERN" + Me.colPATTERN.Name = "colPATTERN" + ' + 'colFORMAT_RULE + ' + resources.ApplyResources(Me.colFORMAT_RULE, "colFORMAT_RULE") + Me.colFORMAT_RULE.FieldName = "FORMAT_RULE" + Me.colFORMAT_RULE.Name = "colFORMAT_RULE" + ' + 'colADDED_WHO + ' + resources.ApplyResources(Me.colADDED_WHO, "colADDED_WHO") + Me.colADDED_WHO.FieldName = "ADDED_WHO" + Me.colADDED_WHO.Name = "colADDED_WHO" + Me.colADDED_WHO.OptionsColumn.AllowEdit = False + ' + 'colADDED_WHEN + ' + resources.ApplyResources(Me.colADDED_WHEN, "colADDED_WHEN") + Me.colADDED_WHEN.FieldName = "ADDED_WHEN" + Me.colADDED_WHEN.Name = "colADDED_WHEN" + Me.colADDED_WHEN.OptionsColumn.AllowEdit = False + ' + 'colCHANGED_WHEN + ' + resources.ApplyResources(Me.colCHANGED_WHEN, "colCHANGED_WHEN") + Me.colCHANGED_WHEN.FieldName = "CHANGED_WHEN" + Me.colCHANGED_WHEN.Name = "colCHANGED_WHEN" + Me.colCHANGED_WHEN.OptionsColumn.AllowEdit = False + ' + 'TBPMO_WD_NAMECONVENTION_FORMATTableAdapter + ' + Me.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter.ClearBeforeFill = True + ' + 'BindingNavigator1 + ' + Me.BindingNavigator1.AddNewItem = Me.BindingNavigatorAddNewItem + Me.BindingNavigator1.BindingSource = Me.TBPMO_WD_NAMECONVENTION_FORMATBindingSource + Me.BindingNavigator1.CountItem = Me.BindingNavigatorCountItem + Me.BindingNavigator1.DeleteItem = Me.BindingNavigatorDeleteItem + resources.ApplyResources(Me.BindingNavigator1, "BindingNavigator1") + Me.BindingNavigator1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.ToolStripButtonSave}) + Me.BindingNavigator1.MoveFirstItem = Me.BindingNavigatorMoveFirstItem + Me.BindingNavigator1.MoveLastItem = Me.BindingNavigatorMoveLastItem + Me.BindingNavigator1.MoveNextItem = Me.BindingNavigatorMoveNextItem + Me.BindingNavigator1.MovePreviousItem = Me.BindingNavigatorMovePreviousItem + Me.BindingNavigator1.Name = "BindingNavigator1" + Me.BindingNavigator1.PositionItem = Me.BindingNavigatorPositionItem + ' + 'BindingNavigatorAddNewItem + ' + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem") + Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" + ' + 'BindingNavigatorCountItem + ' + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" + resources.ApplyResources(Me.BindingNavigatorCountItem, "BindingNavigatorCountItem") + ' + 'BindingNavigatorDeleteItem + ' + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.BindingNavigatorDeleteItem, "BindingNavigatorDeleteItem") + Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" + ' + 'BindingNavigatorMoveFirstItem + ' + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.BindingNavigatorMoveFirstItem, "BindingNavigatorMoveFirstItem") + Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" + ' + 'BindingNavigatorMovePreviousItem + ' + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.BindingNavigatorMovePreviousItem, "BindingNavigatorMovePreviousItem") + Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" + ' + 'BindingNavigatorSeparator + ' + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" + resources.ApplyResources(Me.BindingNavigatorSeparator, "BindingNavigatorSeparator") + ' + 'BindingNavigatorPositionItem + ' + resources.ApplyResources(Me.BindingNavigatorPositionItem, "BindingNavigatorPositionItem") + Me.BindingNavigatorPositionItem.Name = "BindingNavigatorPositionItem" + ' + 'BindingNavigatorSeparator1 + ' + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" + resources.ApplyResources(Me.BindingNavigatorSeparator1, "BindingNavigatorSeparator1") + ' + 'BindingNavigatorMoveNextItem + ' + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.BindingNavigatorMoveNextItem, "BindingNavigatorMoveNextItem") + Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" + ' + 'BindingNavigatorMoveLastItem + ' + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + resources.ApplyResources(Me.BindingNavigatorMoveLastItem, "BindingNavigatorMoveLastItem") + Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" + ' + 'BindingNavigatorSeparator2 + ' + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" + resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2") + ' + 'ToolStripButtonSave + ' + Me.ToolStripButtonSave.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image + Me.ToolStripButtonSave.Image = Global.DD_Record_Organiser.My.Resources.Resources.save + resources.ApplyResources(Me.ToolStripButtonSave, "ToolStripButtonSave") + Me.ToolStripButtonSave.Name = "ToolStripButtonSave" + ' 'frmDokumentart_NameConvention ' resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.Controls.Add(Me.BindingNavigator1) + Me.Controls.Add(Me.GridControl1) Me.Controls.Add(Me.Label7) Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.GroupBox3) @@ -325,6 +513,12 @@ Partial Class frmDokumentart_NameConvention CType(Me.TBPMO_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox3.ResumeLayout(False) Me.GroupBox3.PerformLayout() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBPMO_WD_NAMECONVENTION_FORMATBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() + Me.BindingNavigator1.ResumeLayout(False) + Me.BindingNavigator1.PerformLayout() Me.ResumeLayout(False) Me.PerformLayout() @@ -364,4 +558,27 @@ Partial Class frmDokumentart_NameConvention Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents Label7 As System.Windows.Forms.Label + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents TBPMO_WD_NAMECONVENTION_FORMATBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents TBPMO_WD_NAMECONVENTION_FORMATTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter + Friend WithEvents colGUID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPATTERN As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colFORMAT_RULE As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colADDED_WHO As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colADDED_WHEN As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colCHANGED_WHEN As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents BindingNavigator1 As System.Windows.Forms.BindingNavigator + Friend WithEvents BindingNavigatorAddNewItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorCountItem As System.Windows.Forms.ToolStripLabel + Friend WithEvents BindingNavigatorDeleteItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveFirstItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMovePreviousItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorPositionItem As System.Windows.Forms.ToolStripTextBox + Friend WithEvents BindingNavigatorSeparator1 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents BindingNavigatorMoveNextItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton + Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator + Friend WithEvents ToolStripButtonSave As System.Windows.Forms.ToolStripButton End Class diff --git a/app/DD-Record-Organiser/frmDokumentart_NameConvention.resx b/app/DD-Record-Organiser/frmDokumentart_NameConvention.resx index 0d343b9..5dd9398 100644 --- a/app/DD-Record-Organiser/frmDokumentart_NameConvention.resx +++ b/app/DD-Record-Organiser/frmDokumentart_NameConvention.resx @@ -149,7 +149,7 @@ Indizes und Textbausteinen zusammenzustellen. $this - 11 + 13 Segoe UI, 9pt @@ -173,7 +173,70 @@ Indizes und Textbausteinen zusammenzustellen. $this - 10 + 12 + + + Label2 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 0 + + + btnAddIndexM + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 1 + + + cmbIndex_AUTO + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 2 + + + Segoe UI, 9.75pt, style=Bold + + + 12, 124 + + + 237, 104 + + + 2 + + + Automatische Indexe: + + + GroupBox1 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 11 True @@ -252,39 +315,15 @@ genutzt werden. 2 - - Segoe UI, 9.75pt, style=Bold - - - 12, 124 - - - 237, 104 - - - 2 - - - Automatische Indexe: - - - GroupBox1 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 9 - 871, 17 17, 17 + + 17, 17 + True @@ -420,6 +459,78 @@ genutzt werden. 5 + + Button1 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 0 + + + btnTrennzeichen + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 1 + + + cmbDate + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 2 + + + Label20 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 3 + + + 255, 124 + + + 216, 104 + + + 3 + + + Variablen einfügen: + + + GroupBox2 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 10 + 180, 72 @@ -552,30 +663,6 @@ genutzt werden. 3 - - 255, 124 - - - 216, 104 - - - 3 - - - Variablen einfügen: - - - GroupBox2 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 8 - MiddleRight @@ -604,7 +691,7 @@ genutzt werden. $this - 7 + 9 MiddleLeft @@ -634,7 +721,7 @@ genutzt werden. $this - 6 + 8 MiddleLeft @@ -664,7 +751,7 @@ genutzt werden. $this - 5 + 7 160, 17 @@ -697,7 +784,7 @@ genutzt werden. $this - 4 + 6 31, 303 @@ -718,25 +805,7 @@ genutzt werden. $this - 3 - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 6, 21 - - - 448, 13 - - - 8 - - - Zur Dateibenennung können Sie auch Werte aus dem zur Laufzeit aktuellen Datensatz nutzen. + 5 Label5 @@ -775,7 +844,37 @@ genutzt werden. $this - 2 + 4 + + + True + + + Segoe UI, 8.25pt, style=Italic + + + 6, 21 + + + 448, 13 + + + 8 + + + Zur Dateibenennung können Sie auch Werte aus dem zur Laufzeit aktuellen Datensatz nutzen. + + + Label5 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox3 + + + 0 True @@ -805,7 +904,7 @@ genutzt werden. $this - 1 + 3 True @@ -832,6 +931,300 @@ genutzt werden. $this + 2 + + + + Top, Left, Right + + + 261, 56 + + + 15, 394 + + + Cyan + + + ID + + + + Left + + + True + + + 0 + + + 37 + + + Pattern + + + True + + + 1 + + + 120 + + + Format Rule + + + True + + + 2 + + + 173 + + + Added who + + + True + + + 3 + + + Added when + + + True + + + 4 + + + Changed when + + + True + + + 5 + + + 87 + + + 708, 241 + + + 87 + + + GridControl1 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 1 + + + 628, 56 + + + 990, 56 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + True + + + 23, 22 + + + Neu hinzufügen + + + 44, 22 + + + von {0} + + + Die Gesamtanzahl der Elemente. + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + True + + + 23, 22 + + + Löschen + + + None + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + True + + + 23, 22 + + + Erste verschieben + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + + + + True + + + 23, 22 + + + Vorherige verschieben + + + 6, 25 + + + Position + + + False + + + 50, 23 + + + 0 + + + Aktuelle Position + + + 6, 25 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + + + + True + + + 23, 22 + + + Nächste verschieben + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + True + + + 23, 22 + + + Letzte verschieben + + + 6, 25 + + + Magenta + + + 23, 22 + + + ToolStripButton1 + + + 15, 366 + + + 318, 25 + + + 88 + + + BindingNavigator1 + + + BindingNavigator1 + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + 0 @@ -841,12 +1234,11 @@ genutzt werden. 7, 17 - 733, 388 + 735, 655 Segoe UI, 9.75pt - 3, 4, 3, 4 @@ -892,6 +1284,132 @@ genutzt werden. DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + TBPMO_WD_NAMECONVENTION_FORMATBindingSource + + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GridView1 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colGUID + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colPATTERN + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colFORMAT_RULE + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colADDED_WHO + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colADDED_WHEN + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colCHANGED_WHEN + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.2, Version=15.2.9.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + TBPMO_WD_NAMECONVENTION_FORMATTableAdapter + + + DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + BindingNavigatorAddNewItem + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + BindingNavigatorCountItem + + + System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + BindingNavigatorDeleteItem + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + BindingNavigatorMoveFirstItem + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + BindingNavigatorMovePreviousItem + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + BindingNavigatorSeparator + + + System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + BindingNavigatorPositionItem + + + System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + BindingNavigatorSeparator1 + + + System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + BindingNavigatorMoveNextItem + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + BindingNavigatorMoveLastItem + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + BindingNavigatorSeparator2 + + + System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripButtonSave + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + frmDokumentart_NameConvention diff --git a/app/DD-Record-Organiser/frmDokumentart_NameConvention.vb b/app/DD-Record-Organiser/frmDokumentart_NameConvention.vb index 9225a3e..bdbea54 100644 --- a/app/DD-Record-Organiser/frmDokumentart_NameConvention.vb +++ b/app/DD-Record-Organiser/frmDokumentart_NameConvention.vb @@ -32,18 +32,25 @@ End Sub Private Sub frmNamenkonvention_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing - + If Save_Convention() = False Then + e.Cancel = True + End If End Sub Private Sub frmNamenkonvention_Load(sender As Object, e As EventArgs) Handles Me.Load + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMAT". Sie können sie bei Bedarf verschieben oder entfernen. + 'TODO: Diese Codezeile lädt Daten in die Tabelle "DD_DMSDataSet.TBPMO_KONFIGURATION". Sie können sie bei Bedarf verschieben oder entfernen. Try 'Me.TBINDEX_MANTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBDD_INDEX_AUTOMTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBPMO_KONFIGURATIONTableAdapter.Connection.ConnectionString = MyConnectionString Me.TBPMO_KONFIGURATIONTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_KONFIGURATION) + + Dim autoIIndex = "SELECT GUID, CASE WHEN INDEXNAME = '(ONLY for Nameconvention)' THEN 'NC_' + COMMENT ELSE INDEXNAME END as INDEXNAME FROM TBDD_INDEX_AUTOM WHERE DOCTYPE_ID = " & frmWD_Dokumentart_Konfig.akt_DokartID Dim DTAUTOINDEX As DataTable = ClassDatabase.Return_Datatable(autoIIndex, "LOAD AUTOINDEXE") @@ -73,14 +80,17 @@ End Sub Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click + Save_Convention + End Sub + Private Function Save_Convention() Dim sql = "UPDATE TBPMO_WD_FORMVIEW_DOKTYPES SET NAME_CONVENTION = '" & txtnamenKonv.Text & "', CHANGED_WHO = '" & Environment.UserName & "' WHERE GUID = " & TBPMO_WD_FORMVIEW_DOKTYPES_GUID If ClassDatabase.Execute_non_Query(sql, True) = True Then - Me.Close() + Return True Else MsgBox("Unexpected Error in Save NameConvention - Check logfile", MsgBoxStyle.Exclamation) + Return False End If - End Sub - + End Function Private Sub btnclose_Click(sender As Object, e As EventArgs) Handles btnclose.Click Me.Close() End Sub @@ -103,6 +113,7 @@ Private Sub cmbEntity_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmbEntity.SelectedIndexChanged Load_EntityData() + Load_Format_Rules() End Sub Sub Load_EntityData() Try @@ -119,6 +130,13 @@ MsgBox("Error in cmbEntity.SelectedIndexChanged: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub + Sub Load_Format_Rules() + Try + Me.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMAT, TBPMO_WD_FORMVIEW_DOKTYPES_GUID) + Catch ex As Exception + MsgBox("Error in load formatrules: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub Sub Load_Controls() If loaded = False Then Exit Sub Try @@ -144,6 +162,28 @@ If DT_ENTITIES.Rows.Count = 1 Then Load_Controls() Load_EntityData() + Load_Format_Rules() End If End Sub + + Private Sub TBPMO_WD_NAMECONVENTION_FORMATBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_WD_NAMECONVENTION_FORMATBindingSource.AddingNew + Try + DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMAT.ADDED_WHOColumn.DefaultValue = Environment.UserName + DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMAT.IDColumn.DefaultValue = TBPMO_WD_FORMVIEW_DOKTYPES_GUID + Catch ex As Exception + MsgBox("Error in Adding Format Rules: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub + + Private Sub ToolStripButtonSave_Click(sender As Object, e As EventArgs) Handles ToolStripButtonSave.Click + Try + Me.TBPMO_WD_NAMECONVENTION_FORMATBindingSource.EndEdit() + If DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMAT.GetChanges Is Nothing = False Then + Me.TBPMO_WD_NAMECONVENTION_FORMATTableAdapter.Update(Me.DD_DMSDataSet.TBPMO_WD_NAMECONVENTION_FORMAT) + Load_Format_Rules() + End If + Catch ex As Exception + MsgBox("Error in Save Format Rules: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub End Class \ No newline at end of file