From d1eb7ecb5bc0f2f39790188146558e8770b9ed96 Mon Sep 17 00:00:00 2001 From: SchreiberM Date: Tue, 5 Apr 2016 17:28:12 +0200 Subject: [PATCH] MS_05042016 --- .../ClassControlBuilder.vb | 7 +- .../ClassControlCommandsUI.vb | 47 +- app/DD-Record-Organiser/ClassControlLoader.vb | 2 +- app/DD-Record-Organiser/ClassControlValues.vb | 55 +- app/DD-Record-Organiser/ClassDragDrop.vb | 10 +- app/DD-Record-Organiser/ClassFolderWatcher.vb | 2 +- .../ClassImport_Windream.vb | 22 +- app/DD-Record-Organiser/ClassLogger.vb | 6 +- .../ClassOfficeTemplate.vb | 6 +- app/DD-Record-Organiser/ClassWindream.vb | 169 +- .../DD-Record-Organiser.vbproj | 12 + app/DD-Record-Organiser/DD_DMSDataSet.xsc | 5 + app/DD-Record-Organiser/DD_DMSDataSet.xsd | 588 +- app/DD-Record-Organiser/DD_DMSDataSet.xss | 178 +- .../DD_DMSDataSet1.Designer.vb | 20871 ++++++++-------- .../DD_ECMAdmin.Designer.vb | 4232 +++- app/DD-Record-Organiser/DD_ECMAdmin.xsd | 105 + .../ModuleHelperMethods.vb | 2 +- app/DD-Record-Organiser/ModuleMySettings.vb | 21 +- .../My Project/AssemblyInfo.vb | 2 +- .../My Project/Resources.Designer.vb | 10 + .../My Project/Resources.resx | 61 +- .../frmCockpit.Designer.vb | 169 +- app/DD-Record-Organiser/frmCockpit.resx | 928 +- app/DD-Record-Organiser/frmCockpit.vb | 67 +- .../frmConfig_Basic.Designer.vb | 36 + .../frmConfig_Basic.en-US.resx | 21 + app/DD-Record-Organiser/frmConfig_Basic.resx | 237 +- app/DD-Record-Organiser/frmConfig_Basic.vb | 8 +- .../frmConstructorDesigner.Designer.vb | 1 - .../frmConstructorDesigner.vb | 2 +- .../frmConstructor_Main.Designer.vb | 11 +- .../frmConstructor_Main.resx | 18 +- .../frmConstructor_Main.vb | 212 +- .../frmDD_EMAIL_ACCOUNT.Designer.vb | 1 - .../frmDokumentart_NameConvention.designer.vb | 34 +- .../frmDokumentart_NameConvention.en-US.resx | 18 +- .../frmDokumentart_NameConvention.resx | 1009 +- .../frmEntities.Designer.vb | 1 - .../frmForm_Input.Designer.vb | 1 - .../frmLanguage_Translator.Designer.vb | 1 - app/DD-Record-Organiser/frmLevel_Designer.vb | 5 - .../frmLogRecord.Designer.vb | 1 - app/DD-Record-Organiser/frmMain.Designer.vb | 102 +- app/DD-Record-Organiser/frmMain.resx | 1801 +- app/DD-Record-Organiser/frmMain.vb | 36 +- .../frmQuickEdit.Designer.vb | 1 - .../frmRecord_Changes.Designer.vb | 1 - .../frmSQLEditor.Designer.vb | 1 - .../frmTask_Editor.Designer.vb | 160 +- app/DD-Record-Organiser/frmTask_Editor.resx | 493 +- app/DD-Record-Organiser/frmTask_Editor.vb | 41 +- .../frmTask_Management.designer.vb | 34 +- .../frmTask_Management.resx | 91 +- app/DD-Record-Organiser/frmTask_Management.vb | 18 +- .../frmTask_Overview.designer.vb | 1 - .../frmTemplates.Designer.vb | 1 - app/DD-Record-Organiser/frmTemplates.vb | 2 +- .../frmUserKonfig.Designer.vb | 2 +- app/DD-Record-Organiser/frmUserKonfig.resx | 2560 +- .../frmUserKonfig_AddUsers.Designer.vb | 196 +- .../frmUserKonfig_AddUsers.en-US.resx | 214 +- .../frmUserKonfig_AddUsers.resx | 985 +- .../frmUserKonfig_AddUsers.vb | 135 +- .../frmWD_Dokumentart_Konfig.Designer.vb | 16 +- .../frmWD_Dokumentart_Konfig.resx | 442 +- .../frmWD_Dokumentart_Konfig.vb | 6 +- app/DD-Record-Organiser/frmWD_EntityImport.vb | 16 +- .../frmWD_Index_Dokart.Designer.vb | 2 +- app/DD-Record-Organiser/frmWD_Index_Dokart.vb | 10 +- .../frmWD_ObjecttypeConfig.Designer.vb | 2 +- .../frmWiedervorlage.Designer.vb | 2 +- 72 files changed, 19680 insertions(+), 16885 deletions(-) diff --git a/app/DD-Record-Organiser/ClassControlBuilder.vb b/app/DD-Record-Organiser/ClassControlBuilder.vb index cb3989a..2636c82 100644 --- a/app/DD-Record-Organiser/ClassControlBuilder.vb +++ b/app/DD-Record-Organiser/ClassControlBuilder.vb @@ -675,7 +675,12 @@ Public Class ClassControlBuilder 'SQL-Command vorhanden also Ausführen des SQL If sqlcommand.Length > 1 Then - Dim result = ClassDatabase.Execute_Scalar(sqlcommand) + Dim result + If sqlcommand.Contains("@RECORD_ID") Or sqlcommand.Contains("@RECORDID") Or sqlcommand.Contains("@PARENTRECORD_ID") Or sqlcommand.Contains("@PARENTRECORDID") Then + result = Nothing + Else + result = ClassDatabase.Execute_Scalar(sqlcommand, True) + End If If Not IsNothing(result) Then If Not IsDBNull(result) Then If Not IsNothing(result) Then diff --git a/app/DD-Record-Organiser/ClassControlCommandsUI.vb b/app/DD-Record-Organiser/ClassControlCommandsUI.vb index 3843641..8a79e5c 100644 --- a/app/DD-Record-Organiser/ClassControlCommandsUI.vb +++ b/app/DD-Record-Organiser/ClassControlCommandsUI.vb @@ -27,22 +27,21 @@ Public Class ClassControlCommandsUI Sub LoadControls(FormId As Integer) _CtrlBuilder.ClearControls() - + Dim sw As New Stopwatch + sw.Start() + Dim elapsed As Double 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" Dim DT As DataTable = ClassDatabase.Return_Datatable(SQL) - _CtrlBuilder.MasterPanel.SuspendLayout() - For Each dr As DataRow In DT.Rows - Dim parent As GroupBox = Nothing If (dr.Item("CONTROL_PARENT_ID") <> 0) Then Dim parentname As String = Get_Name_for_ControlID(dr.Item("CONTROL_PARENT_ID"), FormId) parent = _CtrlBuilder.GetControlByName(parentname) End If - + Dim control As String Select Case dr.Item("CTRLTYPE_ID") Case 1 ' Label _CtrlBuilder.AddLabel(dr.Item("CONTROL_ID"), @@ -57,6 +56,7 @@ Public Class ClassControlCommandsUI dr.Item("CONTROL_SQLCOMMAND_1"), False, parent) + control = "Label - " & dr.Item("CONTROL_ID") Case 2 ' TextBox _CtrlBuilder.AddTextBox(dr.Item("CONTROL_ID"), dr.Item("CONTROL_NAME"), @@ -76,6 +76,7 @@ Public Class ClassControlCommandsUI dr.Item("CONTROL_FORMAT_TYPE"), False, parent) + control = "Text - " & dr.Item("CONTROL_ID") Case 3 ' ComboBox _CtrlBuilder.AddComboBox(dr.Item("CONTROL_ID"), dr.Item("CONTROL_NAME"), @@ -112,6 +113,7 @@ Public Class ClassControlCommandsUI dr.Item("CONTROL_REQUIRED"), False, parent) + control = "DatePicker - " & dr.Item("CONTROL_ID") Case 5 ' GroupBox _CtrlBuilder.AddGroupBox(dr.Item("CONTROL_ID"), dr.Item("CONTROL_NAME"), @@ -127,6 +129,7 @@ Public Class ClassControlCommandsUI dr.Item("CTRLSCR_FONT_STYLE"), False, parent) + control = "GroupBox - " & dr.Item("CONTROL_ID") Case 6 ' PictureBox _CtrlBuilder.AddPictureBox(dr.Item("CONTROL_ID"), dr.Item("CONTROL_NAME"), @@ -150,6 +153,7 @@ Public Class ClassControlCommandsUI dr.Item("CONTROL_REQUIRED"), dr.Item("CONTROL_COL_NAME"), parent) + control = "Datagridview - " & dr.Item("CONTROL_ID") Case 10 ' Checkbox Dim Checked As Boolean = False 'If IsDBNull(dr.Item("CONTROL_DEF_VALUE")) Then @@ -175,6 +179,7 @@ Public Class ClassControlCommandsUI dr.Item("CONTROL_READ_ONLY"), dr.Item("CONTROL_REQUIRED"), parent) + control = "CheckBox - " & dr.Item("CONTROL_ID") Case 8 ' Function AddAppointment _CtrlBuilder.FunctionAddAppointment(dr.Item("CONTROL_ID"), dr.Item("CONTROL_NAME"), @@ -186,6 +191,7 @@ Public Class ClassControlCommandsUI False, parent) AddHandler _CtrlBuilder.CurrentControl.Click, _AddAppointmentHandler + control = "Appointment - " & dr.Item("CONTROL_ID") Case 9 ' Function AddFormData _CtrlBuilder.FunctionAddFormData(dr.Item("CONTROL_ID"), dr.Item("CONTROL_NAME"), @@ -197,6 +203,7 @@ Public Class ClassControlCommandsUI False, parent) AddHandler _CtrlBuilder.CurrentControl.Click, _AddFormDataHandler + control = "AddFormData - " & dr.Item("CONTROL_ID") Case 11 ' RadioButton Dim Checked As Boolean = False 'If IsDBNull(dr.Item("CONTROL_DEF_VALUE")) Then @@ -222,6 +229,7 @@ Public Class ClassControlCommandsUI dr.Item("CONTROL_READ_ONLY"), dr.Item("CONTROL_REQUIRED"), parent) + control = "Radiobutton - " & dr.Item("CONTROL_ID") Case 12 'CheckedListBox CtrlBuilder.AddCheckedListBox(dr.Item("CONTROL_ID"), dr.Item("CONTROL_NAME"), @@ -241,6 +249,7 @@ Public Class ClassControlCommandsUI dr.Item("CONTROL_STATIC_LIST"), dr.Item("CONTROL_SQLCOMMAND_1"), parent) + control = "CheckedlistBox - " & dr.Item("CONTROL_ID") Case 13 'CheckedListBox CtrlBuilder.AddListBox(dr.Item("CONTROL_ID"), dr.Item("CONTROL_NAME"), @@ -260,8 +269,9 @@ Public Class ClassControlCommandsUI dr.Item("CONTROL_STATIC_LIST"), dr.Item("CONTROL_SQLCOMMAND_1"), parent) + control = "Listbox - " & dr.Item("CONTROL_ID") End Select - + _CtrlBuilder.MasterPanel.ResumeLayout() ' ContextMenuStrip zuweisen @@ -271,6 +281,9 @@ Public Class ClassControlCommandsUI ' Tag wird für ControlId verwendet, master data id bei rechtsklick herausfinden '_CtrlBuilder.CurrentControl.Tag = dr.Item("CTRLSCR_MASTER_DATA_ID") End If + If LogErrorsOnly = False Then ClassLogger.Add(" >> Adding Control '" & control & "' took " & Format(elapsed, "0.000000000") & " seconds", False) + sw.Stop() + sw.Reset() Next End Sub @@ -299,7 +312,7 @@ Public Class ClassControlCommandsUI Dim RECORD_ID As Integer If IsInsert Then - If LogErrorsOnly = False Then ClassLogger.Add(">> (SaveRecord) Insert", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> (SaveRecord) Insert", False) ' Den Record erstellen If CreateRecord(FormID) = False Then @@ -312,7 +325,7 @@ Public Class ClassControlCommandsUI CURRENT_RECORD_ID = RECORD_ID ' Wenn gegeben, foreignrecordID mit Record verknüpfen If foreignRecordID > 0 Then - If LogErrorsOnly = False Then ClassLogger.Add(">> foreignRecordID: " & foreignRecordID & "; Record-ID: " & RECORD_ID, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> foreignRecordID: " & foreignRecordID & "; Record-ID: " & RECORD_ID, False) ConnectRecord(foreignRecordID, RECORD_ID) End If @@ -326,7 +339,7 @@ Public Class ClassControlCommandsUI Return "Neuer Datensatz eingefügt - " & Now ElseIf IsInsert = False Then - If LogErrorsOnly = False Then ClassLogger.Add(">> (SaveRecord) Update RecordID: " & RECORD_ID, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> (SaveRecord) Update RecordID: " & RECORD_ID, False) UpdateAllControls(FormID, RecordID, _CtrlBuilder.AllControls) Return "Datensatz aktualisiert - " & Now @@ -481,7 +494,7 @@ Public Class ClassControlCommandsUI Try For Each ctrl As Control In controls Dim CONTROL_ID As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id 'GetControlID_for_RecordID(ctrl.Name, RecordID) - If LogErrorsOnly = False Then ClassLogger.Add(">> CONTROL_ID: " & CONTROL_ID, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> CONTROL_ID: " & CONTROL_ID, False) Dim CONTROL_VALUE As String = GetControlValue(ctrl) If TypeOf ctrl Is PictureBox Then @@ -513,7 +526,7 @@ Public Class ClassControlCommandsUI If ValueExists Then ' Control Updaten UpdateControlValue(CONTROL_ID, RecordID, CONTROL_VALUE) Else ' Neues Control - If LogErrorsOnly = False Then ClassLogger.Add(">> InsertControlValue: " & CONTROL_ID & "|" & RecordID & "|" & CONTROL_VALUE, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> InsertControlValue: " & CONTROL_ID & "|" & RecordID & "|" & CONTROL_VALUE, False) InsertControlValue(CONTROL_ID, RecordID, CONTROL_VALUE) End If Next @@ -552,14 +565,14 @@ Public Class ClassControlCommandsUI Dim type = ctrl.GetType().Name Dim CONTROL_ID As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id ' GetControlID_for_RecordID(ctrl.Name, CURRENT_RECORD_ID) - If LogErrorsOnly = False Then ClassLogger.Add(">> GetControlValue CONTROL_ID: " & CONTROL_ID, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> GetControlValue CONTROL_ID: " & CONTROL_ID, False) Dim CONTROL_VALUE As String = Nothing - If LogErrorsOnly = False Then ClassLogger.Add(">> type = " & type.ToString, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> type = " & type.ToString, False) Select Case type Case "TextBox" Return DirectCast(ctrl, TextBox).Text Case "ComboBox" - If LogErrorsOnly = False Then ClassLogger.Add(">> Return Value: " & DirectCast(ctrl, ComboBox).Text, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Return Value: " & DirectCast(ctrl, ComboBox).Text, False) Return DirectCast(ctrl, ComboBox).Text Case "CheckBox" Return DirectCast(ctrl, CheckBox).Checked.ToString() @@ -608,7 +621,7 @@ Public Class ClassControlCommandsUI If ClassDatabase.Execute_Scalar(SQL) = 1 Then SQL = "DELETE FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0)) If ClassDatabase.Execute_non_Query(SQL) = True Then - If LogErrorsOnly = False Then ClassLogger.Add(">> TBPMO_RECORD_CONNECT-Entry after 'deselect CheckedListBox' deleted", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> TBPMO_RECORD_CONNECT-Entry after 'deselect CheckedListBox' deleted", False) End If End If End If @@ -633,7 +646,7 @@ Public Class ClassControlCommandsUI MsgBox("Attention: no current record Selected!", MsgBoxStyle.Exclamation) Else If ConnectRecord(CURRENT_RECORD_ID, CInt(row(0)), "CheckedListBox;" & ctrl.Name) = True Then - If LogErrorsOnly = False Then ClassLogger.Add(">> Checked ListBox record '" & rid.ToString & "' was linked successfully.", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Checked ListBox record '" & rid.ToString & "' was linked successfully.", False) End If End If @@ -765,7 +778,7 @@ Public Class ClassControlCommandsUI Public Shared Function ConnectRecord(PARENT_RECORD As Integer, LINK_RECORD As Integer, Optional Comment As String = "") Dim ADDED_WHO As String = Environment.UserName Dim SQL = "INSERT INTO TBPMO_RECORD_CONNECT(RECORD1_ID,RECORD2_ID,COMMENT,ADDED_WHO) VALUES (" & PARENT_RECORD & "," & LINK_RECORD & ",'" & Comment & "','" & ADDED_WHO & "')" - If LogErrorsOnly = False Then ClassLogger.Add(">> ConnectRecord SQL: " & SQL, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> ConnectRecord SQL: " & SQL, False) Return ClassDatabase.Execute_non_Query(SQL, True) End Function End Class diff --git a/app/DD-Record-Organiser/ClassControlLoader.vb b/app/DD-Record-Organiser/ClassControlLoader.vb index eb34685..7b05512 100644 --- a/app/DD-Record-Organiser/ClassControlLoader.vb +++ b/app/DD-Record-Organiser/ClassControlLoader.vb @@ -26,7 +26,7 @@ If Not IsNothing(CONNID) Then AutoValue = ClassDatabase.Execute_ScalarWithConnection(CONNID, SQL) Else - AutoValue = ClassDatabase.Execute_Scalar(SQL) + AutoValue = ClassDatabase.Execute_Scalar(SQL, True) End If ' AutoValue = ClassDatabase.Execute_Scalar(SQL) diff --git a/app/DD-Record-Organiser/ClassControlValues.vb b/app/DD-Record-Organiser/ClassControlValues.vb index 6d26953..fd2e2e3 100644 --- a/app/DD-Record-Organiser/ClassControlValues.vb +++ b/app/DD-Record-Organiser/ClassControlValues.vb @@ -200,69 +200,72 @@ Public Class ClassControlValues Private Shared Sub LoadControlValue(recordId As Integer, parentRecordId As Integer, controlId As Integer, control As Control, values As List(Of Object)) Try + Dim sw As New Stopwatch + sw.Start() + Dim elapsed As Double ' Für die meisten Controls wird nur das erste Element der Liste benötigt Dim value As String = Nothing If values.Count > 0 Then value = values.Item(0) End If - - - Select Case control.GetType() Case GetType(TextBox) - If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(TextBox) ", False) Dim textbox As TextBox = DirectCast(control, TextBox) ControlLoader.TextBox.LoadValue(textbox, recordId, parentRecordId, value) - + elapsed = sw.Elapsed.TotalSeconds + If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue TextBox took " & Format(elapsed, "0.000000000") & " seconds", False) Case GetType(Label) - If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(Label) ", False) Dim label As Label = DirectCast(control, Label) ControlLoader.Label.LoadValue(label, recordId, parentRecordId, value) - + elapsed = sw.Elapsed.TotalSeconds + If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue Label took " & Format(elapsed, "0.000000000") & " seconds", False) Case GetType(ComboBox) - If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(ComboBox) ", False) Dim combobox As ComboBox = DirectCast(control, ComboBox) ControlLoader.Combobox.LoadValue(combobox, recordId, parentRecordId, value) - + elapsed = sw.Elapsed.TotalSeconds + If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue ComboBox took " & Format(elapsed, "0.000000000") & " seconds", False) Case GetType(CheckBox) - If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(CheckBox) ", False) Dim checkbox As CheckBox = DirectCast(control, CheckBox) ControlLoader.Checkbox.LoadValue(checkbox, value) - + elapsed = sw.Elapsed.TotalSeconds + If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue Checkbox took " & Format(elapsed, "0.000000000") & " seconds", False) Case GetType(RadioButton) - If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(RadioButton) ", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Sub LoadControlValueNeu - GetType(RadioButton) ", False) Dim radiobutton As RadioButton = DirectCast(control, RadioButton) ControlLoader.RadioButton.LoadValue(radiobutton, value) - + elapsed = sw.Elapsed.TotalSeconds + If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue RadioButton took " & Format(elapsed, "0.000000000") & " seconds", False) Case GetType(DevExpress.XtraEditors.DateEdit) - If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(DateEdit) ", False) Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit) ControlLoader.DateTimePicker.LoadValue(datepicker, value) - + elapsed = sw.Elapsed.TotalSeconds + If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue DateEdit took " & Format(elapsed, "0.000000000") & " seconds", False) Case GetType(DevExpress.XtraEditors.ListBoxControl) - If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(ListBoxControl) ", False) Dim listbox As DevExpress.XtraEditors.ListBoxControl = DirectCast(control, DevExpress.XtraEditors.ListBoxControl) ControlLoader.ListBox.LoadValue(listbox, value) - + elapsed = sw.Elapsed.TotalSeconds + If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue ListBoxControl took " & Format(elapsed, "0.000000000") & " seconds", False) Case GetType(DevExpress.XtraEditors.CheckedListBoxControl) - If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(CheckedListBoxControl) ", False) Dim checkedlistbox As DevExpress.XtraEditors.CheckedListBoxControl = DirectCast(control, DevExpress.XtraEditors.CheckedListBoxControl) ControlLoader.CheckedListBox.LoadValue(checkedlistbox, values) - + elapsed = sw.Elapsed.TotalSeconds + If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue CheckedListBoxControl took " & Format(elapsed, "0.000000000") & " seconds", False) Case GetType(PictureBox) - If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(PictureBox) ", False) Dim picturebox = DirectCast(control, PictureBox) LoadImage(recordId, controlId, picturebox) - + elapsed = sw.Elapsed.TotalSeconds + If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue PictureBox took " & Format(elapsed, "0.000000000") & " seconds", False) Case GetType(DataGridView) - If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValueNeu - GetType(DataGridView) ", False) Dim gridview = DirectCast(control, DataGridView) ControlLoader.DataGridView.LoadValue(gridview, values) - + elapsed = sw.Elapsed.TotalSeconds + If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue DataGridView took " & Format(elapsed, "0.000000000") & " seconds", False) Case Else - If LogErrorsOnly = False Then ClassLogger.Add(">> Sub LoadControlValue - Control-Type nicht berücksichtigt: " & GetType(Control).ToString(), False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Sub LoadControlValue - Control-Type nicht berücksichtigt: " & GetType(Control).ToString(), False) End Select + sw.Stop() + sw.Reset() Catch ex As Exception ClassLogger.Add("Unexpected Error in LoadControlValue: " & ex.Message, True) MsgBox("Error in LoadControlValue:" & vbNewLine & ex.Message) @@ -288,7 +291,7 @@ Public Class ClassControlValues Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL) swsql.Stop() - If LogErrorsOnly = False Then ClassLogger.Add(String.Format(">>LoadControlValuesList - Database took {0} milliseconds to load", swsql.ElapsedMilliseconds), False) + If LogErrorsOnly = False Then ClassLogger.Add(String.Format(">> LoadControlValuesList - Database took {0} milliseconds to load", swsql.ElapsedMilliseconds), False) If dt.Rows.Count = 0 Then Exit Sub @@ -335,7 +338,7 @@ Public Class ClassControlValues elapsed = SW.Elapsed.TotalSeconds SW.Stop() SW.Reset() - If LogErrorsOnly = False Then ClassLogger.Add(">> LoadControlValuesList took " & Format(elapsed, "0.000000000") & " seconds", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValuesList took " & Format(elapsed, "0.000000000") & " seconds", False) Catch ex As Exception ClassLogger.Add("Unexpected Error in LoadControlValuesList: " & ex.Message, True) MsgBox("Unexpected Error in LoadControlValuesList:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) diff --git a/app/DD-Record-Organiser/ClassDragDrop.vb b/app/DD-Record-Organiser/ClassDragDrop.vb index 5c7a7d6..8e37e78 100644 --- a/app/DD-Record-Organiser/ClassDragDrop.vb +++ b/app/DD-Record-Organiser/ClassDragDrop.vb @@ -6,14 +6,14 @@ Public Class ClassDragDrop Public Shared Function Drop_File(e As DragEventArgs) Try Try - If LogErrorsOnly = False Then ClassLogger.Add(">> In Drop_File....", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> In Drop_File....", False) files_dropped = Nothing Dim sql As String = "DELETE FROM TBPMO_FILES_USER WHERE HANDLE_TYPE <> 'SCAN' AND UPPER(USER_WORK) = UPPER('" & Environment.UserName & "')" ClassDatabase.Execute_non_Query(sql) If e.Data.GetDataPresent(DataFormats.FileDrop) Then - If LogErrorsOnly = False Then ClassLogger.Add(">> DataFormats.FileDrop", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> DataFormats.FileDrop", False) Dim MyFiles() As String Dim i As Integer ' Assign the files to an array. @@ -35,7 +35,7 @@ Public Class ClassDragDrop Try If e.Data.GetDataPresent("FileGroupDescriptor") AndAlso (e.Data.GetDataPresent("FileContents")) Then Console.WriteLine(">> FileGroupDescriptor/FileContents") - If LogErrorsOnly = False Then ClassLogger.Add(">> FileGroupDescriptor/FileContents", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> FileGroupDescriptor/FileContents", False) '// the first step here is to get the stbFileName '// of the attachment and '// build a full-path name so we can store it @@ -88,7 +88,7 @@ Public Class ClassDragDrop ReDim Preserve files_dropped(0) files_dropped(0) = "@OUTLOOK_ATTMNT@" & strOutFile TEMP_FILES.Add(strOutFile) - If LogErrorsOnly = False Then ClassLogger.Add(">> Drop an Attachment - File: " & strOutFile, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Drop an Attachment - File: " & strOutFile, False) Return files_dropped Else ClassLogger.Add(">> Attachment File from Outlook could not be created", False) @@ -104,7 +104,7 @@ Public Class ClassDragDrop Try If e.Data.GetDataPresent("FileGroupDescriptor") Then Console.WriteLine(">> FileGroupDescriptor") - If LogErrorsOnly = False Then ClassLogger.Add(">> Drop of OutlookMessage", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Drop of OutlookMessage", False) Dim oApp As New Outlook.Application 'supports a drop of a Outlook message diff --git a/app/DD-Record-Organiser/ClassFolderWatcher.vb b/app/DD-Record-Organiser/ClassFolderWatcher.vb index 5ac967f..59979db 100644 --- a/app/DD-Record-Organiser/ClassFolderWatcher.vb +++ b/app/DD-Record-Organiser/ClassFolderWatcher.vb @@ -82,7 +82,7 @@ Public Class ClassFolderWatcher handleType = "SCAN" End If 'Die Datei übergeben - If LogErrorsOnly = False Then ClassLogger.Add(">> OnCreated-File:" & e.FullPath, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> OnCreated-File:" & e.FullPath, False) If FileExistsinDropTable(CURRENT_FILENAME) = False Then Insert_SCAN_File(e.FullPath, handleType) Else diff --git a/app/DD-Record-Organiser/ClassImport_Windream.vb b/app/DD-Record-Organiser/ClassImport_Windream.vb index e7e1340..35bdcf9 100644 --- a/app/DD-Record-Organiser/ClassImport_Windream.vb +++ b/app/DD-Record-Organiser/ClassImport_Windream.vb @@ -37,7 +37,7 @@ Public Class ClassImport_Windream idxvalue = idxvalue.ToString.Replace("@Dokart", Dokart) End Select End If - If LogErrorsOnly = False Then ClassLogger.Add(">> Indexvalue: " & idxvalue.ToString, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue: " & idxvalue.ToString, False) Count += 1 indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) If indexierung_erfolgreich = False Then @@ -57,7 +57,7 @@ Public Class ClassImport_Windream If dt.Rows.Count = 1 Then Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString Dim idxvalue = CURRENT_FORM_ID - If LogErrorsOnly = False Then ClassLogger.Add(">> Entity-ID: " & idxvalue.ToString, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Entity-ID: " & idxvalue.ToString, False) indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) If indexierung_erfolgreich = False Then err = True @@ -66,7 +66,7 @@ Public Class ClassImport_Windream End If indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString idxvalue = CURRENT_PARENT_ID - If LogErrorsOnly = False Then ClassLogger.Add(" - Parent-ID: " & idxvalue.ToString, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-ID: " & idxvalue.ToString, False) indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) If indexierung_erfolgreich = False Then err = True @@ -77,7 +77,7 @@ Public Class ClassImport_Windream ''den Record-Key auslesen 'indexname = dt.Rows(0).Item("IDXNAME_RECORDID").ToString 'idxvalue = CURRENT_RECORD_ID - 'If LogErrorsOnly = False Then ClassLogger.Add(" - Record-ID: " & idxvalue.ToString, False) + 'If LogErrorsOnly = False Then ClassLogger.Add(" >> Record-ID: " & idxvalue.ToString, False) 'indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) 'If indexierung_erfolgreich = False Then ' err = True @@ -87,7 +87,7 @@ Public Class ClassImport_Windream ''den Doctype-Key auslesen 'indexname = dt.Rows(0).Item("IDXNAME_DOCTYPE").ToString 'idxvalue = CURRENT_DOKARTSTRING - 'If LogErrorsOnly = False Then ClassLogger.Add(" - Doctype: " & idxvalue.ToString, False) + 'If LogErrorsOnly = False Then ClassLogger.Add(" >> Doctype: " & idxvalue.ToString, False) 'indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) 'If indexierung_erfolgreich = False Then ' err = True @@ -159,7 +159,7 @@ Public Class ClassImport_Windream End If 'schonmal den gesamten Pfad laden Dim DATEINAME As String = Zielordner & "\" & NameConv - If LogErrorsOnly = False Then ClassLogger.Add(">> DATEINAME: " & DATEINAME, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> DATEINAME: " & DATEINAME, False) ' einen Regulären Ausdruck laden Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg) @@ -168,7 +168,7 @@ Public Class ClassImport_Windream '#### ' alle Vorkommen innerhalbd er Namenkonvention durchlaufen For Each element As System.Text.RegularExpressions.Match In elemente - If LogErrorsOnly = False Then ClassLogger.Add(">> element in RegeX: " & element.Value, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> element in RegeX: " & element.Value, False) Select Case element.Value.Substring(2, 1).ToUpper 'Nur automatische Indizes auswerten Case "A" @@ -192,7 +192,7 @@ Public Class ClassImport_Windream If IsNumeric(INDEX_ID) Then Dim sql_AUTOindexresult = ClassDatabase.Execute_Scalar("SELECT SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE GUID = " & INDEX_ID, True) If IsNothing(sql_AUTOindexresult) Then - If LogErrorsOnly = False Then ClassLogger.Add(">> unexpected: sql_AUTOindexresult is nothing!!", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> unexpected: sql_AUTOindexresult is nothing!!", False) value = "" Else If IsDBNull(sql_AUTOindexresult) Then @@ -219,14 +219,14 @@ Public Class ClassImport_Windream End If ElseIf APattern.Contains("#") Then - If LogErrorsOnly = False Then ClassLogger.Add(">> element filled with Record-Data.......: ", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> element filled with Record-Data.......: ", False) Dim split() As String = APattern.Split("#") If split.Length = 2 Then Dim CONTROL_ID = split(1) If IsNumeric(CONTROL_ID) Then Dim CONTROLVALUE = ClassControlValues.Get_Control_Value_for_ID(CONTROL_ID, CURRENT_RECORD_ID) If IsNothing(CONTROLVALUE) Then - If LogErrorsOnly = False Then ClassLogger.Add(">> unexpected: CONTROLVALUE is nothing!!", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> unexpected: CONTROLVALUE is nothing!!", False) value = "" Else If IsDBNull(CONTROLVALUE) Then @@ -245,7 +245,7 @@ Public Class ClassImport_Windream If value <> String.Empty Then DATEINAME = DATEINAME.Replace(element.Value, value) _NewFileString = DATEINAME - If LogErrorsOnly = False Then ClassLogger.Add(">> Actual NEWFILESTRING: " & _NewFileString, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Actual NEWFILESTRING: " & _NewFileString, False) ' sql_history_INSERT_INTO = sql_history_INSERT_INTO & ", INDEX" & AnzahlIndexe.ToString AnzahlIndexe += 1 ' sql_history_Index_Values = sql_history_Index_Values & ", '" & value & "'" diff --git a/app/DD-Record-Organiser/ClassLogger.vb b/app/DD-Record-Organiser/ClassLogger.vb index d4635aa..efc1f3a 100644 --- a/app/DD-Record-Organiser/ClassLogger.vb +++ b/app/DD-Record-Organiser/ClassLogger.vb @@ -190,9 +190,9 @@ Public Class ClassLogger Private Shared Sub ShowErrorMessage() If Not ClassLogger.HasInformedAboutError Then - MsgBox("Beim Öffnen der Logdatei ist ein Fehler aufgetreten. Bitte stellen Sie sicher das Sie sowohl über entsprechende Schreibrechte im Verzeichnis, als auch über ausreichend Speicherplatz zum Speichern der Logdatei verfügen." & _ - vbNewLine & vbNewLine & "Es wird keine Logdatei angelegt oder beschrieben." & vbNewLine & vbNewLine & "Im folgenden werden Sie über Fehler, den Log betreffend nicht weiter informiert, um den Ablauf von " & My.Application.Info.ProductName & " nicht zu stören.", _ - MsgBoxStyle.Information, "Fehler beim Öffnen der Logdatei") + MsgBox("Please make sure You can access the logpath and are able to write to the file. This may be due to security privileges or storage place in the drive." & _ + vbNewLine & vbNewLine & "A logfile won't be written from now on." & vbNewLine & vbNewLine & "You won't be informed about further logdetails from now on.", _ + MsgBoxStyle.Information, "Error opening Logfile") ClassLogger.HasInformedAboutError = True End If End Sub diff --git a/app/DD-Record-Organiser/ClassOfficeTemplate.vb b/app/DD-Record-Organiser/ClassOfficeTemplate.vb index 6f8e142..b419223 100644 --- a/app/DD-Record-Organiser/ClassOfficeTemplate.vb +++ b/app/DD-Record-Organiser/ClassOfficeTemplate.vb @@ -41,7 +41,7 @@ Public Class ClassOfficeTemplate ' word.Visible = (True) 'Word sichtbar For Each cc In doc.ContentControls - If LogErrorsOnly = False Then ClassLogger.Add(">> Office-Pattern: " & cc.Tag, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Office-Pattern: " & cc.Tag, False) For Each patternrow As System.Data.DataRow In DT_PATTERNS.Rows If patternrow.Item("NAME_PATTERN").ToString.ToUpper = cc.Tag.ToString.ToUpper Then If Not IsDBNull(patternrow.Item("FIXED_VALUE")) Then @@ -53,7 +53,7 @@ Public Class ClassOfficeTemplate Dim Control_ID = fvalue '.Replace("@CONTROLID:", "") Try If CInt(Control_ID) Then - If LogErrorsOnly = False Then ClassLogger.Add(">> Get Value for Control-ID: " & Control_ID.ToString, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Get Value for Control-ID: " & Control_ID.ToString, False) Dim value_akt = ClassDatabase.Execute_Scalar("SELECT VALUE FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = " & Control_ID & " AND RECORD_ID = " & Record_ID) If Not IsNothing(value_akt) Then cc.Range.Text = value_akt.ToString @@ -66,7 +66,7 @@ Public Class ClassOfficeTemplate End Try 'End If 'Else - ' If LogErrorsOnly = False Then ClassLogger.Add(">> Pattern wird mit festem Wert '" & patternrow.Item("FIXED_VALUE") & "' gefüllt!", False) + ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Pattern wird mit festem Wert '" & patternrow.Item("FIXED_VALUE") & "' gefüllt!", False) ' cc.Range.Text = patternrow.Item("FIXED_VALUE").ToString 'End If End If diff --git a/app/DD-Record-Organiser/ClassWindream.vb b/app/DD-Record-Organiser/ClassWindream.vb index c978508..76f995e 100644 --- a/app/DD-Record-Organiser/ClassWindream.vb +++ b/app/DD-Record-Organiser/ClassWindream.vb @@ -197,7 +197,7 @@ Public Class ClassWindream Try ' Session-Objekt instanziieren und mit dem im Client ausgewählten Server belegen oSession = CreateObject("Windream.WMSession", GetCurrentServer) - If LogErrorsOnly = False Then ClassLogger.Add(">> windream-Server: '" & GetCurrentServer() & "'", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> windream-Server: '" & GetCurrentServer() & "'", False) ' Connection-Objekt instanziieren oConnect = CreateObject("Windream.WMConnect") 'MsgBox("windrem init 'ed") @@ -541,25 +541,23 @@ Public Class ClassWindream aktWMObject = Nothing If My.Computer.FileSystem.DirectoryExists(zielpfad) = False Then My.Computer.FileSystem.CreateDirectory(zielpfad) - ClassLogger.Add(" - Zielverzeichnis neu erzeugt!", False) + ClassLogger.Add(">> Zielverzeichnis neu erzeugt!", False) End If Const STREAM_BinaryObject = "BinaryObject" - If LogErrorsOnly = False Then ClassLogger.Add(" - Stream_File wurde gestartet", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Stream_File wurde gestartet", False) Dim endgültigerDateiname As String = "" ' Objekt für Datei und Zielverzeichnis anlegen ' Dim Quelldatei_Name As String = Path.GetFileName(filenameQuelle) - If LogErrorsOnly = False Then ClassLogger.Add(" - Quelldatei gelesen", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Quelldatei gelesen", False) '######## Dim Zielverzeichnis As String = zielpfad endgültigerDateiname = CURRENT_NEWFILENAME.Substring(2) - - If LogErrorsOnly = False Then ClassLogger.Add(" - Zielverzeichnis erzeugt", False) If My.Computer.FileSystem.DirectoryExists(Zielverzeichnis) Then - If LogErrorsOnly = False Then ClassLogger.Add(" - targetPath exisitiert", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> targetPath exisitiert", False) ' Überprüfen ob der zu Kopieren notwendige Speicherplatz auf Ziellaufwerk vorhanden ist Dim dvr As New DriveInfo(vWLaufwerk & ":") Dim freeSpace = dvr.TotalFreeSpace @@ -572,7 +570,7 @@ Public Class ClassWindream Return -10 End If - If LogErrorsOnly = False Then ClassLogger.Add(" - Datei kopieren von " & filenameQuelle & " nach " & endgültigerDateiname & ".", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei kopieren von " & filenameQuelle & " nach " & endgültigerDateiname & ".", False) Dim Connect Dim Session Dim WMObject @@ -580,15 +578,15 @@ Public Class ClassWindream Dim aWMStream Dim wmbrwsr Dim dmsServer As String - If LogErrorsOnly = False Then ClassLogger.Add(" - Connect definieren: CreateObject('Windream.WMConnect')", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Connect definieren: CreateObject('Windream.WMConnect')", False) Connect = CreateObject("Windream.WMConnect") aFileIO = New WMOTOOLLib.WMFileIO 'If My.Settings.DLL_WMOTOOL = "" Then ' aFileIO = New WMOTOOLLib.WMFileIO - ' If LogErrorsOnly = False Then ClassLogger.Add(" - Direkter Verweis auf New WMOTOOLLib.WMFileIO", False) + ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Direkter Verweis auf New WMOTOOLLib.WMFileIO", False) 'Else ' aFileIO = CreateObject(My.Settings.DLL_WMOTOOL) 'WMOTool.WMFileIO oder WMOTOOLLib.WMFileIO - ' If LogErrorsOnly = False Then ClassLogger.Add(" - Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'", False) + ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Verwendeter Verweis aus Anwendungsstring: '" & My.Settings.DLL_WMOTOOL & "'", False) 'End If wmbrwsr = CreateObject("WMOBrws.ServerBrowser") @@ -606,10 +604,10 @@ Public Class ClassWindream Connect.LoginSession(Session) Dim LoggedIn = Session.aLoggedin If LoggedIn Then - If LogErrorsOnly = False Then ClassLogger.Add(" - Login ok. You are logged in as '" & Connect.UserName & "' on Server '" & dmsServer, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Login ok. You are logged in as '" & Connect.UserName & "' on Server '" & dmsServer, False) 'MsgBox("Login ok. You are logged in as '" + Connect.UserName + "' on Server '" + dmsServer + "'") Else - ClassLogger.Add(" - Login on dms-Server failed", False) + ClassLogger.Add(">> Login on dms-Server failed", False) ' MsgBox("Login failed. ") End If Const WMCOMEventWMSessionNeedIndex = 1 @@ -619,13 +617,13 @@ Public Class ClassWindream '================================================================== ' check if files exist '================================================================== - If LogErrorsOnly = False Then ClassLogger.Add(" - ÜBERPRÜFTER DATEINAME => " & endgültigerDateiname, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> ÜBERPRÜFTER DATEINAME => " & endgültigerDateiname, False) Dim wdFilexists As Boolean - If LogErrorsOnly = False Then ClassLogger.Add(" - Versuch auf die Datei in W: zuzugreifen und zu sperren...", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch auf die Datei in W: zuzugreifen und zu sperren...", False) wdFilexists = Session.WMObjectExists(WMEntityDocument, endgültigerDateiname, 0, 0) If wdFilexists = False Then - If LogErrorsOnly = False Then ClassLogger.Add(" - Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei ist NICHT vorhanden, kann also einfach neu angelegt werden", False) Err.Clear() '================================================================== ' create an object @@ -638,17 +636,17 @@ Public Class ClassWindream ' MsgBox("Created file: " + endgültigerDateiname) Else ' wenn auf die Datei zugeriffen werden konnte ist sie bereits vorhanden -> Datum anhängen - If LogErrorsOnly = False Then ClassLogger.Add(" - Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Es konnte zugegriffen werden -> DATEI IST BEREITS VORHANDEN", False) Err.Clear() - + WMObject = Session.GetNewWMObjectFS(WMEntityDocument, endgültigerDateiname, WMObjectEditModeObject) If Err.Number > 0 Then ClassLogger.Add(" FEHLER: Neues WMObject (Kopie) konnte nicht erzeugt werden - Error: '" & Err.Description & "'") 'MsgBox(Err.Description) End If - If LogErrorsOnly = False Then ClassLogger.Add(" - WMObject zugewiesen", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> WMObject zugewiesen", False) End If - If LogErrorsOnly = False Then ClassLogger.Add(" - ENDGÜLTIGER DATEINAME => " & endgültigerDateiname, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> ENDGÜLTIGER DATEINAME => " & endgültigerDateiname, False) If WMObject IsNot Nothing Then ' lock object for file system access (to change the file itself) WMObject.lock() @@ -672,7 +670,7 @@ Public Class ClassWindream Return False 'MsgBox(Err.Description) End If - If LogErrorsOnly = False Then ClassLogger.Add(" - oWMStream erzeugt", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> oWMStream erzeugt", False) ' give fileIO helper object the windream stream aFileIO.aWMStream = aWMStream If Err.Number > 0 Then @@ -691,7 +689,7 @@ Public Class ClassWindream Return False ' MsgBox(Err.Description) End If - If LogErrorsOnly = False Then ClassLogger.Add(" - Inhalt der Datei konnte übertragen werden", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Inhalt der Datei konnte übertragen werden", False) ' close the windream file stream aWMStream.Close() If Err.Number > 0 Then @@ -710,7 +708,7 @@ Public Class ClassWindream Return Err.Number 'MsgBox(Err.Description) End If - If LogErrorsOnly = False Then ClassLogger.Add(" - Datei konnte gespeichert werden", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei konnte gespeichert werden", False) ' unlock the windream object WMObject.unlock() If Err.Number > 0 Then @@ -723,7 +721,6 @@ Public Class ClassWindream 'DATEI GRÖSSE ERMITTELN - MANCHMAL KOMMT ES VOR DAS DATEIGRÖße 0 ist Dim info2 As New FileInfo(vWLaufwerk & ":\" & endgültigerDateiname) Dim length1 As Long = info2.Length - If LogErrorsOnly = False Then ClassLogger.Add(" - Length der Zieldatei: " & length1.ToString, False) If length1 > 0 And Err.Number = 0 Then If endgültigerDateiname.StartsWith("\") Then If endgültigerDateiname.StartsWith("\\") Then @@ -735,7 +732,7 @@ Public Class ClassWindream endgültigerDateiname = "\" & endgültigerDateiname End If CURRENT_FILEIN_WD = vWLaufwerk & ":" & endgültigerDateiname - ClassLogger.Add(" - Datei '" & CURRENT_FILEIN_WD & "' wurde erfolgreich importiert!", False) + ClassLogger.Add(">> Datei '" & CURRENT_FILEIN_WD & "' wurde erfolgreich importiert!", False) aktWMObject = WMObject Return True Else @@ -747,7 +744,7 @@ Public Class ClassWindream Return False End If Else - If LogErrorsOnly = False Then ClassLogger.Add(" - targetPath exisitiert NICHT", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> targetPath exisitiert NICHT", False) Return False End If @@ -761,7 +758,7 @@ Public Class ClassWindream ''' Public Shared Function DateiIndexieren(ByVal WD_File As String, ByVal _Indexname As String, ByVal _Value As String) Try - If LogErrorsOnly = False Then ClassLogger.Add(" - DateiIndexieren wurde aufgerufen", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> DateiIndexieren wurde aufgerufen", False) ' das entsprechende Attribut aus windream auslesen Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, _Indexname) ' den Variablentyp (String, Integer, ...) auslesen @@ -772,7 +769,7 @@ Public Class ClassWindream Dim WMObject As WINDREAMLib.WMObject '= CreateObject("WINDREAMLib.WMObject") 'New WINDREAMLib.WMObject 'MsgBox("DateiIndexieren:" & vbNewLine & ClassDateiimportWindream.GetWindreamDriveLetter & filenameZiel & vbNewLine & Me.selectedProfile.DokumenttypString) ' den Dokumenttyp schreiben - If LogErrorsOnly = False Then ClassLogger.Add(" ## Indexieren wird gestartet ##", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexieren wird gestartet", False) ' ein windream-Objekt der Datei anlegen WMObject = aktWMObject 'oSession.GetWMObjectByPath(WINDREAMLib.WMEntity.WMEntityDocument, WD_File) Try @@ -788,9 +785,9 @@ Public Class ClassWindream ' ihr den entsprechenden Dokumenttyp zuweisen WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp) ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp - If LogErrorsOnly = False Then ClassLogger.Add(" - Objekttyp wird gesetzt", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Objekttyp wird gesetzt", False) Else - If LogErrorsOnly = False Then ClassLogger.Add(" - Objekttyp war bereits gesetzt", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Objekttyp war bereits gesetzt", False) End If Try @@ -806,46 +803,46 @@ Public Class ClassWindream Catch ex As Exception ' wenn das entsperren nicht geklappt hat, dann war die Datei auch nicht gesperrt End Try - If LogErrorsOnly = False Then ClassLogger.Add(" - Datei wurde gespeichert / Unlock wurde durchgeführt", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Datei wurde gespeichert / Unlock wurde durchgeführt", False) ' wenn bis hierher alles geklappt hat wurde ein Dokumenttyp übergeben - If LogErrorsOnly = False Then ClassLogger.Add(" - Objekttyp: " & _WDObjekttyp, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Objekttyp: " & _WDObjekttyp, False) ' wenn keine Werte vorhanden sind, soll wenigstens der Dokumenttyp eingetragen werden Dim indexe As String = "" - If LogErrorsOnly = False Then ClassLogger.Add(" - Indexname: '" & _Indexname & "'", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexname: '" & _Indexname & "'", False) Dim werte = New ArrayList 'Den Typ des Index-Feldes auslesen 'MsgBox(value.GetType.ToString) - + If (GetTypeOfIndexAsIntByName(_Indexname) = WMObjectVariableValueTypeVector) Or GetTypeOfIndexAsIntByName(_Indexname) = 4097 Then - If LogErrorsOnly = False Then ClassLogger.Add(" - Es handelt sich um ein Vektor-Feld", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Es handelt sich um ein Vektor-Feld", False) 'Am 04.08.2014 aktualisiert: um zu verhindern das die vorangegangene Versionierung "Tilde-Werte" schreibt - If LogErrorsOnly = False Then ClassLogger.Add(" - Wert vor Überprüfung: " & _Value, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Wert vor Überprüfung: " & _Value, False) _Value = CheckIndexValue(_Value) 'Ausstieg da Fehler in der Überprüfung If _Value Is Nothing Then Return False End If - If LogErrorsOnly = False Then ClassLogger.Add(" - Value für Indexierung: " & _Value, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Value für Indexierung: " & _Value, False) werte.Add(_Value) - If LogErrorsOnly = False Then ClassLogger.Add(" - Werte zu Array hinzugefügt!", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Werte zu Array hinzugefügt!", False) Else 'Am 04.08.2014 aktualisiert: um zu verhindern das die vorangegangene Versionierung "Tilde-Werte" schreibt - If LogErrorsOnly = False Then ClassLogger.Add(" - Value vor Überprüfung: " & _Value, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Value vor Überprüfung: " & _Value, False) _Value = CheckIndexValue(_Value) 'Ausstieg da Fehler in der Überprüfung If _Value Is Nothing Then Return False End If - If LogErrorsOnly = False Then ClassLogger.Add(" - Value für Indexierung: " & _Value, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Value für Indexierung: " & _Value, False) werte.Add(_Value) End If @@ -872,7 +869,37 @@ Public Class ClassWindream Return False End Try End Function - Private Shared Function RunIndexing(ByVal oDocument As WMObject, ByVal Indizes() As String, ByVal aValues() As Object) + Public Shared Function File_SetBooleanIndex(ByVal _value As Boolean, ByVal _dok As WINDREAMLib.WMObject, ByVal _Indexname As String, Optional SetOType As Boolean = True) + Try + If _Indexname <> "" Then + 'Überprüfen ob Boolean-Value bereits gesetzt wurde? + Dim akt_Status As Boolean = CBool(_dok.GetVariableValue(_Indexname)) + If akt_Status <> _value Then + 'Index muß angepasst werden + If LogErrorsOnly = False Then ClassLogger.Add(" >> Index not set to '" & _value.ToString & "'", False) + Dim arrIndex() As String = Nothing + Dim arrValue() As String = Nothing + 'Nun die Datei indexieren + arrIndex = Nothing + arrValue = Nothing + ReDim Preserve arrIndex(0) + ReDim Preserve arrValue(0) + arrIndex(0) = _Indexname + arrValue(0) = _value.ToString + RunIndexing(_dok, arrIndex, arrValue, SetOType) + Else + 'Validation muß nicht angepasst werden + If LogErrorsOnly = False Then ClassLogger.Add(" >> Index already set to '" & _value.ToString & "'", False) + End If + End If + Catch ex As Exception + ClassLogger.Add("Unexpected Error in File_SetBooleanIndex!") + ClassLogger.Add("Error-Description: " & ex.Message) + End Try + + + End Function + Private Shared Function RunIndexing(ByVal oDocument As WMObject, ByVal Indizes() As String, ByVal aValues() As Object, Optional setOType As Boolean = True) Dim vektInsState As Integer = 1 Try If Indizes IsNot Nothing And aValues IsNot Nothing Then @@ -881,32 +908,33 @@ Public Class ClassWindream Dim i As Integer = 0 Dim indexname As String If aValues.Length = 1 And aValues(0) = "" Then - If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexwert ist leer/Nothing - Keine Nachindexierung", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue is empty - No indexing", False) End If ' wenn der Datei noch kein Dokumenttyp zugewiesen wurde - If oDocument.aObjectType.aName <> _WDObjekttyp Then + If oDocument.aObjectType.aName <> _WDObjekttyp And setOType = True Then ' ihr den entsprechenden Dokumenttyp zuweisen oDocument.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp) ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp - If LogErrorsOnly = False Then ClassLogger.Add(" >> Objekttyp '" & oDocument.aObjectType.aName & "' wurde in '" & _WDObjekttyp & "' geändert.", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Objecttype '" & oDocument.aObjectType.aName & "' was changed to '" & _WDObjekttyp, False) Else - If LogErrorsOnly = False Then ClassLogger.Add(" >> Objekttyp war bereits gesetzt", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Objecttype was set already.", False) + End If + If setOType = True Then + Try + oDocument.Save() + Catch ex As Exception + ' wenn es einen Fehler beim speichern gab, dann konnte auch kein Objekttyp gesetzt werden -> es kann also auch keine + ' Indexierung stattfinden und die Indexierung muss nicht fortgesetzt werden + Return False + End Try End If - - Try - oDocument.Save() - Catch ex As Exception - ' wenn es einen Fehler beim speichern gab, dann konnte auch kein Dokumenttyp gesetzt werden -> es kann also auch keine - ' Indexierung stattfinden und die Indexierung muss nicht fortgesetzt werden - Return False - End Try 'Jetzt jeden Indexwert durchlaufen For Each aName As String In Indizes indexname = aName If LogErrorsOnly = False Then ClassLogger.Add(" ", False) - ClassLogger.Add(" >> Indexierung von Index '" & indexname & "'", False) + ClassLogger.Add(" >> Indexing of index '" & indexname & "'", False) End If ' das entsprechende Attribut aus windream auslesen Dim oAttribute = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityAttribute, Indizes(i)) @@ -938,7 +966,7 @@ Public Class ClassWindream If LogErrorsOnly = False Then ClassLogger.Add(" >> type of windreamIndex WMObjectVariableValueTypeInteger", False) value = value.ToString.Replace(" ", "") If IsNumeric(value) = False Then - If LogErrorsOnly = False Then ClassLogger.Add(" >> Achtung: Value '" & value & "' kann nicht in Zahl konvertiert werden!", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Attention: Value '" & value & "' can not be converted to integer!", False) End If value = value.ToString.Replace(" ", "") convertValue = CInt(value) @@ -1022,7 +1050,7 @@ Public Class ClassWindream End Select If vektor = False Then If convertValue.ToString Is Nothing = False Then - If LogErrorsOnly = False Then ClassLogger.Add(" >> Konvertierter Wert: '" & convertValue.ToString & "'", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Converted valuet: '" & convertValue.ToString & "'", False) End If End If '############################################################################################ @@ -1031,7 +1059,7 @@ Public Class ClassWindream If vektor = False Then Try If convertValue.ToString Is Nothing = False Then - If LogErrorsOnly = False Then ClassLogger.Add(" >> Versuch dem Dok einen Index zuzuweisen: oDocument.SetVariableValue(" & aName & ", " & convertValue & ")", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Now: oDocument.SetVariableValue(" & aName & ", " & convertValue & ")", False) If _int = True Then convertValue = convertValue.ToString.Replace(" ", "") oDocument.SetVariableValue(aName, CInt(convertValue)) @@ -1048,11 +1076,11 @@ Public Class ClassWindream 'Die Datei speichern oDocument.Save() If LogErrorsOnly = False Then - ClassLogger.Add(" >> Index '" & aName & "' wurde geschrieben", False) + ClassLogger.Add(" >> index '" & aName & "' was written", False) ClassLogger.Add("", False) End If Else - ClassLogger.Add(" >> Kein Indexwert vorhanden", False) + ClassLogger.Add(" >> No indexvalue exists", False) End If Catch ex As Exception ClassLogger.Add("Unexpected Error in SetVariableValue für Index '" & aName & "': " & ex.Message, True) @@ -1060,7 +1088,7 @@ Public Class ClassWindream oDocument.unlock() Return False End Try - + Else 'VEKTORFELDER, ALSO ÜBERPRÜFEN OB ERGEBNIS-ARRAY GEFÜLLT IST If LogErrorsOnly = False Then ClassLogger.Add(" >> Vectorfield: Preparing of Array", False) @@ -1074,7 +1102,7 @@ Public Class ClassWindream Dim Anzahl As Integer = aValues.Length 'Vektorfeld wird mit EINEM Wert gefüllt If Anzahl = 0 Then - If LogErrorsOnly = False Then ClassLogger.Add(" >> Vectorfield willl be filled with ONE VALUE", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Vectorfield will be filled with ONE VALUE", False) ReDim myArray(0) Select Case vType Case 36865 @@ -1238,19 +1266,18 @@ Public Class ClassWindream End If Else - If LogErrorsOnly = False Then ClassLogger.Add(" >> Array der Indexwerte ist leer/Nothing - Keine Nachindexierung", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Array of indexvalues is nothing - No indexing", False) End If i += 1 Next oDocument.unlock() If LogErrorsOnly = False Then - ClassLogger.Add(">> ...und Unlock durchgeführt)", False) - ClassLogger.Add("", False) + ClassLogger.Add(" >> ...and unlock.", False) End If Return True Else - ClassLogger.Add(" >> Dokument ist gesperrt, Indexierung erst im nächsten Durchlauf!", False) + ClassLogger.Add(" >> document is locked!", False) 'oDocument.unlock() Return False End If @@ -1364,7 +1391,7 @@ Public Class ClassWindream ''' Liefert True wenn das Indexieren erfolgreich war, sonst False ''' Private Shared Function Indexiere(ByVal filenameZiel As String, ByVal index As String, ByVal werte As Object) - If LogErrorsOnly = False Then ClassLogger.Add(" - In Indexierungsvorgang für: " & filenameZiel, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> In Indexierungsvorgang für: " & filenameZiel, False) Try Dim WMObject As WINDREAMLib.WMObject = Nothing '= CreateObject("WINDREAMLib.WMObject") '= New WINDREAMLib.WMObject 'CreateObject("WINDREAMLib.WMObject") 'MsgBox("Indexiere: " & vbNewLine & filenameZiel) @@ -1450,7 +1477,7 @@ Public Class ClassWindream ' wenn es sich bei dem Index NICHT um ein Vektorfeld handelt If TypDesIndexes < WMObjectVariableValueTypeVector Then - If LogErrorsOnly = False Then ClassLogger.Add(" - Bei dem Zielindex handelt es sich um einen Einzelindex.", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Bei dem Zielindex handelt es sich um einen Einzelindex.", False) Else If LogErrorsOnly = False Then ClassLogger.Add(" Bei dem Zielindex handelt es sich um ein Vektorfeld.", False) ' ein Backup der Indexwerte anlegen @@ -1460,7 +1487,7 @@ Public Class ClassWindream ' dann soll nur der letzte Wert des Arrays übernommen werden, damit nicht versucht wird ein ' Array in einen Einzelindex zu speichern werte = temp - If LogErrorsOnly = False Then ClassLogger.Add(" - Array geleert und erneuert!", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Array geleert und erneuert!", False) End If Catch ex As Exception ClassLogger.Add("Hinweis: Beim Initialisieren der Datei auf dem windream-Laufwerk ist ein Fehler aufgetreten.", False) @@ -1470,7 +1497,7 @@ Public Class ClassWindream 'Try ' den Typ des Zielindexes - If LogErrorsOnly = False Then ClassLogger.Add(" - Typ des Indexes: " & TypDesIndexes.ToString, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Typ des Indexes: " & TypDesIndexes.ToString, False) Select Case (TypDesIndexes) Case WMObjectVariableValueTypeUndefined ' zu klären !!!! 'convertValue = vbEmpty @@ -1688,13 +1715,13 @@ Public Class ClassWindream ' die Indexinformationen des Dokuments speichern WMObject.Save() - If LogErrorsOnly = False Then ClassLogger.Add(" - die Indexinformationen des Dokuments speichern", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> die Indexinformationen des Dokuments speichern", False) ' Unlock in einem unbehandelten Try-Block um Fehler abzufangen, ' wenn eine Datei nicht gesperrt ist Try ' die Sperrung des Dokuments aufheben WMObject.unlock() - If LogErrorsOnly = False Then ClassLogger.Add(" - die Sperrung des Dokuments aufheben", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> die Sperrung des Dokuments aufheben", False) Catch ex As Exception ' nichts tun (Datei war nicht gesperrt) End Try diff --git a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj index 08e235b..1f6dd0f 100644 --- a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj +++ b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj @@ -248,6 +248,12 @@ + + frmGroup_Rights.vb + + + Form + frmWD_Import_Doc_Record.vb @@ -596,6 +602,9 @@ frmConstructor_Main.vb + + frmGroup_Rights.vb + frmWD_Import_Doc_Record.vb @@ -666,6 +675,7 @@ frmConstructor_Main.vb + Designer frmLanguage_Translator.vb @@ -784,6 +794,7 @@ frmEntities.vb + Designer frmForm_Input.vb @@ -1150,6 +1161,7 @@ + diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xsc b/app/DD-Record-Organiser/DD_DMSDataSet.xsc index d66e3da..6cf7288 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.xsc +++ b/app/DD-Record-Organiser/DD_DMSDataSet.xsc @@ -127,6 +127,11 @@ + + + + + diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xsd b/app/DD-Record-Organiser/DD_DMSDataSet.xsd index 7eb509d..ee39252 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.xsd +++ b/app/DD-Record-Organiser/DD_DMSDataSet.xsd @@ -609,7 +609,7 @@ SELECT GUID, STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR - SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), GUID), 1) AS ASSTATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR, + SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), GUID), 1) AS STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLOR, LANGUAGE FROM TBPMO_WORKFLOW_TASK_STATE WHERE (GUID IN @@ -715,137 +715,6 @@ SELECT GUID, TITLE, DESCRIPTION, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHE - - - - - - DELETE FROM TBPMO_WORKFLOW_FORM -WHERE (GUID = @Original_GUID) - - - - - - - - INSERT INTO TBPMO_WORKFLOW_FORM - (FORM_ID, WF_ID, SEQUENCE, ADDED_WHO) -VALUES (@FORM_ID,@WF_ID,@SEQUENCE,@ADDED_WHO); -SELECT GUID, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WORKFLOW_FORM WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - SELECT GUID, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN -FROM TBPMO_WORKFLOW_FORM -WHERE (FORM_ID = @FORM_ID) - - - - - - - - UPDATE TBPMO_WORKFLOW_FORM -SET FORM_ID = @FORM_ID, WF_ID = @WF_ID, SEQUENCE = @SEQUENCE, CHANGED_WHO = @CHANGED_WHO -WHERE (GUID = @Original_GUID); -SELECT GUID, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WORKFLOW_FORM WHERE (GUID = @GUID) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - SELECT T2.GUID AS WF_TASK_ID, T3.TITLE, T2.RECORD_ID, T2.STATE_ID, T2.COMMENT, T2.DUE_DATE, @USER AS USERNAME, T2.ADDED_WHEN, T2.CHANGED_WHO, T2.CHANGED_WHEN, T2.TASK_DATE -FROM TBPMO_WORKFLOW_TASK AS T2 INNER JOIN - TBPMO_WORKFLOW AS T3 ON T2.WF_ID = T3.GUID -WHERE (T2.GUID NOT IN - (SELECT WF_TASK_ID - FROM VWPMO_WF_USER_EXCLUSIV - WHERE (WF_TASK_ID NOT IN - (SELECT WF_TASK_ID - FROM VWPMO_WF_USER_EXCLUSIV AS VWPMO_WF_USER_EXCLUSIV_1 - WHERE (UPPER(USERNAME) = UPPER(@USER)))))) AND (T2.STATE_ID NOT IN - (SELECT WORKFLOW_FINAL_STATE1 - FROM TBPMO_KONFIGURATION - WHERE (GUID = 1))) AND (T2.ACTIVE = 1) - - - - - - - - - - - - - - - - - - - - - - - - - SELECT T2.GUID AS WF_TASK_ID, T3.TITLE, T2.RECORD_ID, T2.STATE_ID, T2.COMMENT, T2.DUE_DATE, @USER_NAME AS USERNAME, T2.ADDED_WHEN, T2.CHANGED_WHO, T2.CHANGED_WHEN, - T2.TASK_DATE -FROM TBPMO_WORKFLOW_TASK AS T2 INNER JOIN - TBPMO_WORKFLOW AS T3 ON T2.WF_ID = T3.GUID -WHERE (T2.GUID NOT IN - (SELECT WF_TASK_ID - FROM VWPMO_WF_USER_EXCLUSIV - WHERE (WF_TASK_ID NOT IN - (SELECT WF_TASK_ID - FROM VWPMO_WF_USER_EXCLUSIV AS VWPMO_WF_USER_EXCLUSIV_1 - WHERE (UPPER(USERNAME) = UPPER(@USER_NAME)))))) AND (T2.STATE_ID NOT IN - (SELECT WORKFLOW_FINAL_STATE1 - FROM TBPMO_KONFIGURATION - WHERE (GUID = 1))) AND (T2.ACTIVE = 1) AND (T2.RECORD_ID = @RECORD) - - - - - - - - - @@ -2159,60 +2028,6 @@ WHERE (RECORD_ID = @RECORD_ID) - - - - - - SELECT WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, WF_ENT_GUID, WF_ID -FROM VWPMO_WF_ACTIVE -WHERE (WF_TASK_ID NOT IN - (SELECT GUID - FROM VWPMO_WF_USER_EXCLUSIV - WHERE (UPPER(USERNAME) <> UPPER(@USERNAME)))) - - - - - - - - - - - - - - - - - - - - - - - - - - - - - SELECT TOP (1) WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, WF_ENT_GUID, WF_ID -FROM VWPMO_WF_ACTIVE -WHERE (RECORD_ID = @RECID) AND (WF_TASK_ID NOT IN - (SELECT GUID - FROM VWPMO_WF_USER_EXCLUSIV - WHERE (UPPER(USERNAME) <> UPPER(@USERNAME)))) - - - - - - - - - @@ -3178,6 +2993,157 @@ SELECT GUID, PROFILE_ID, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CH + + + + + + SELECT WF_TASK_ID, WF_ID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'TASK_TITLE' + CONVERT(VARCHAR(5), WF_ID), 1) AS WF_TITLE, RECORD_ID, STATE_ID, + dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), STATE_ID), 1) AS STATE_TITLE, FORM_VIEW_ID, ENTITY_ID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, + 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), 1) AS 'ENTITY_TITLE', COMMENT, DUE_DATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, FINAL, COLOR, + @USER AS USERNAME, dbo.FNPMO_GET_ENTITY_COLUMN_CONTENT(RECORD_ID) AS RECORD_DESCRIPTION +FROM VWPMO_WF_ACTIVE AS T +WHERE (WF_TASK_ID NOT IN + (SELECT WF_TASK_ID + FROM VWPMO_WF_USER_EXCLUSIV + WHERE (WF_TASK_ID NOT IN + (SELECT WF_TASK_ID + FROM VWPMO_WF_USER_EXCLUSIV AS VWPMO_WF_USER_EXCLUSIV_1 + WHERE (UPPER(USERNAME) = UPPER(@USER)))))) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + SELECT WF_TASK_ID, WF_ID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'TASK_TITLE' + CONVERT(VARCHAR(5), WF_ID), 1) AS WF_TITLE, RECORD_ID, STATE_ID, + dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), STATE_ID), 1) AS STATE_TITLE, FORM_VIEW_ID, ENTITY_ID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, + 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), 1) AS 'ENTITY_TITLE', COMMENT, DUE_DATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, FINAL, COLOR, + @USER AS USERNAME, dbo.FNPMO_GET_ENTITY_COLUMN_CONTENT(RECORD_ID) AS RECORD_DESCRIPTION +FROM VWPMO_WF_ACTIVE AS T +WHERE (WF_TASK_ID NOT IN + (SELECT WF_TASK_ID + FROM VWPMO_WF_USER_EXCLUSIV + WHERE (WF_TASK_ID NOT IN + (SELECT WF_TASK_ID + FROM VWPMO_WF_USER_EXCLUSIV AS VWPMO_WF_USER_EXCLUSIV_1 + WHERE (UPPER(USERNAME) = UPPER(@USER)))))) AND (RECORD_ID = @RECORD_ID) + + + + + + + + + + + + + + + + DELETE FROM TBPMO_RIGHT_GROUP +WHERE (GUID = @Original_GUID) + + + + + + + + INSERT INTO TBPMO_RIGHT_GROUP + (ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_DOC, DELETE_DOC, ADDED_WHO) +VALUES (@ENTITY_ID,@GROUP_ID,@EDIT_REC,@ADD_REC,@DELETE_REC,@ADD_DOC,@VIEW_DOC,@DELETE_DOC,@ADDED_WHO); +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 TBPMO_RIGHT_GROUP WHERE (GUID = SCOPE_IDENTITY()) + + + + + + + + + + + + + + + + SELECT TBPMO_RIGHT_GROUP.* +FROM TBPMO_RIGHT_GROUP + + + + + + UPDATE TBPMO_RIGHT_GROUP +SET ENTITY_ID = @ENTITY_ID, GROUP_ID = @GROUP_ID, EDIT_REC = @EDIT_REC, ADD_REC = @ADD_REC, DELETE_REC = @DELETE_REC, ADD_DOC = @ADD_DOC, VIEW_DOC = @VIEW_DOC, + DELETE_DOC = @DELETE_DOC, CHANGED_WHO = @CHANGED_WHO +WHERE (GUID = @Original_GUID); +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 TBPMO_RIGHT_GROUP WHERE (GUID = @GUID) + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -3643,73 +3609,6 @@ SELECT GUID, PROFILE_ID, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -4680,63 +4579,6 @@ SELECT GUID, PROFILE_ID, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CH - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - @@ -5440,6 +5282,110 @@ SELECT GUID, PROFILE_ID, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CH + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -5470,14 +5416,6 @@ SELECT GUID, PROFILE_ID, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CH - - - - - - - - @@ -5546,10 +5484,6 @@ SELECT GUID, PROFILE_ID, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CH - - - - @@ -5602,14 +5536,14 @@ SELECT GUID, PROFILE_ID, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CH + + + + - - - - @@ -5625,6 +5559,8 @@ SELECT GUID, PROFILE_ID, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CH + + \ No newline at end of file diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xss b/app/DD-Record-Organiser/DD_DMSDataSet.xss index 83cd8a8..28f5aa8 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.xss +++ b/app/DD-Record-Organiser/DD_DMSDataSet.xss @@ -4,56 +4,54 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + - + 437 @@ -69,63 +67,7 @@ - - - - 413 - 652 - - - 413 - 932 - - - - - - - 325 - 888 - - - 325 - 932 - - - - - - - 1084 - 580 - - - 1084 - 597 - - - 1878 - 597 - - - - - - - 1233 - 736 - - - 1233 - 651 - - - 1878 - 651 - - - - + 1701 @@ -137,7 +79,7 @@ - + 1627 @@ -149,7 +91,7 @@ - + 710 @@ -165,7 +107,7 @@ - + 1374 @@ -181,7 +123,7 @@ - + 842 @@ -193,7 +135,7 @@ - + 107 @@ -213,7 +155,7 @@ - + 1632 @@ -225,7 +167,7 @@ - + 1358 @@ -237,7 +179,7 @@ - + 601 @@ -253,7 +195,7 @@ - + 618 @@ -265,7 +207,7 @@ - + 2461 @@ -281,7 +223,7 @@ - + 2358 @@ -293,7 +235,7 @@ - + 2134 @@ -309,7 +251,7 @@ - + 2142 @@ -325,7 +267,7 @@ - + 141 diff --git a/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb b/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb index 86d3a47..97f6eb8 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb +++ b/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb @@ -45,10 +45,6 @@ Partial Public Class DD_DMSDataSet Private tableTBPMO_WORKFLOW As TBPMO_WORKFLOWDataTable - Private tableTBPMO_WORKFLOW_FORM As TBPMO_WORKFLOW_FORMDataTable - - Private tableVWPMO_WF_USER_ACTIVE As VWPMO_WF_USER_ACTIVEDataTable - Private tableVWPMO_WF_OVERVIEW_AUTHORITY As VWPMO_WF_OVERVIEW_AUTHORITYDataTable Private tableTBDD_DOKUMENTART As TBDD_DOKUMENTARTDataTable @@ -87,8 +83,6 @@ Partial Public Class DD_DMSDataSet Private tableVWPMO_RECORD_CHANGES As VWPMO_RECORD_CHANGESDataTable - Private tableVWPMO_WF_ACTIVE As VWPMO_WF_ACTIVEDataTable - Private tableTBDD_EMAIL_ACCOUNT As TBDD_EMAIL_ACCOUNTDataTable Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable @@ -115,15 +109,11 @@ Partial Public Class DD_DMSDataSet Private tableTBPMO_WD_IMPORT_PROFILE_IDX As TBPMO_WD_IMPORT_PROFILE_IDXDataTable - Private relationFK_TBPMO_FORM_VIEW_FORM_ID As Global.System.Data.DataRelation - - Private relationFK_TBPMO_WORKFLOW_FORM_FV_ID As Global.System.Data.DataRelation - - Private relationFK_TTBPMO_WORKFLOW_FORM_WF_ID As Global.System.Data.DataRelation + Private tableVWPMO_WF_ACTIVE As VWPMO_WF_ACTIVEDataTable - Private relationFK_TBPMO_WORKFLOW_TASK_RECORD_ID As Global.System.Data.DataRelation + Private tableTBPMO_RIGHT_GROUP As TBPMO_RIGHT_GROUPDataTable - Private relationFK_TBPMO_WORKFLOW_TASK_STATE_ID As Global.System.Data.DataRelation + Private relationFK_TBPMO_FORM_VIEW_FORM_ID As Global.System.Data.DataRelation Private relationFK_TBDD_DOKUMENTART_EINGID As Global.System.Data.DataRelation @@ -155,6 +145,10 @@ Partial Public Class DD_DMSDataSet Private relationFK_TBPMO_WD_IMPORT_PROFILE_IDX_1 As Global.System.Data.DataRelation + Private relationFK_TBPMO_RIGHT_GROUP_ENTITY_ID As Global.System.Data.DataRelation + + Private relationFK_TBPMO_RIGHT_GROUP_GROUP_ID As Global.System.Data.DataRelation + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema _ - Public ReadOnly Property TBPMO_WORKFLOW_FORM() As TBPMO_WORKFLOW_FORMDataTable - Get - Return Me.tableTBPMO_WORKFLOW_FORM - End Get - End Property - - _ - Public ReadOnly Property VWPMO_WF_USER_ACTIVE() As VWPMO_WF_USER_ACTIVEDataTable - Get - Return Me.tableVWPMO_WF_USER_ACTIVE - End Get - End Property - _ - Public ReadOnly Property VWPMO_WF_ACTIVE() As VWPMO_WF_ACTIVEDataTable - Get - Return Me.tableVWPMO_WF_ACTIVE - End Get - End Property - _ + Public ReadOnly Property VWPMO_WF_ACTIVE() As VWPMO_WF_ACTIVEDataTable + Get + Return Me.tableVWPMO_WF_ACTIVE + End Get + End Property + + _ + Public ReadOnly Property TBPMO_RIGHT_GROUP() As TBPMO_RIGHT_GROUPDataTable + Get + Return Me.tableTBPMO_RIGHT_GROUP + End Get + End Property + _ - Private Function ShouldSerializeTBPMO_WORKFLOW_FORM() As Boolean - Return false - End Function - - _ - Private Function ShouldSerializeVWPMO_WF_USER_ACTIVE() As Boolean - Return false - End Function - _ Private Function ShouldSerializeVWPMO_WF_OVERVIEW_AUTHORITY() As Boolean @@ -1638,12 +1590,6 @@ Partial Public Class DD_DMSDataSet Return false End Function - _ - Private Function ShouldSerializeVWPMO_WF_ACTIVE() As Boolean - Return false - End Function - _ Private Function ShouldSerializeTBDD_EMAIL_ACCOUNT() As Boolean @@ -1722,6 +1668,18 @@ Partial Public Class DD_DMSDataSet Return false End Function + _ + Private Function ShouldSerializeVWPMO_WF_ACTIVE() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBPMO_RIGHT_GROUP() As Boolean + Return false + End Function + _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) @@ -1810,12 +1768,6 @@ Partial Public Class DD_DMSDataSet _ Public Delegate Sub TBPMO_WORKFLOWRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOWRowChangeEvent) - _ - Public Delegate Sub TBPMO_WORKFLOW_FORMRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WORKFLOW_FORMRowChangeEvent) - - _ - Public Delegate Sub VWPMO_WF_USER_ACTIVERowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_USER_ACTIVERowChangeEvent) - _ Public Delegate Sub VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent) @@ -1873,9 +1825,6 @@ Partial Public Class DD_DMSDataSet _ Public Delegate Sub VWPMO_RECORD_CHANGESRowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_RECORD_CHANGESRowChangeEvent) - _ - Public Delegate Sub VWPMO_WF_ACTIVERowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_ACTIVERowChangeEvent) - _ Public Delegate Sub TBDD_EMAIL_ACCOUNTRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_EMAIL_ACCOUNTRowChangeEvent) @@ -1915,6 +1864,12 @@ Partial Public Class DD_DMSDataSet _ Public Delegate Sub TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEvent) + _ + Public Delegate Sub VWPMO_WF_ACTIVERowChangeEventHandler(ByVal sender As Object, ByVal e As VWPMO_WF_ACTIVERowChangeEvent) + + _ + Public Delegate Sub TBPMO_RIGHT_GROUPRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_RIGHT_GROUPRowChangeEvent) + ''' '''Represents the strongly named DataTable class. ''' @@ -6069,20 +6024,22 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBPMO_WORKFLOW_FORMDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPMO_WORKFLOW_FORMRow) + Partial Public Class VWPMO_WF_OVERVIEW_AUTHORITYDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_WF_OVERVIEW_AUTHORITYRow) - Private columnGUID As Global.System.Data.DataColumn + Private columnSTATE As Global.System.Data.DataColumn - Private columnFORM_ID As Global.System.Data.DataColumn + Private columnSTATE_ID As Global.System.Data.DataColumn - Private columnWF_ID As Global.System.Data.DataColumn + Private columnAuthority As Global.System.Data.DataColumn - Private columnSEQUENCE As Global.System.Data.DataColumn + Private columnString As Global.System.Data.DataColumn - Private columnADDED_WHO As Global.System.Data.DataColumn + Private columnWF_ID As Global.System.Data.DataColumn - Private columnADDED_WHEN As Global.System.Data.DataColumn + Private columnRECORD_ID As Global.System.Data.DataColumn + + Private columnCOLOR As Global.System.Data.DataColumn Private columnCHANGED_WHO As Global.System.Data.DataColumn @@ -6092,7 +6049,7 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBPMO_WORKFLOW_FORM" + Me.TableName = "VWPMO_WF_OVERVIEW_AUTHORITY" Me.BeginInit Me.InitClass Me.EndInit @@ -6125,49 +6082,57 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property STATEColumn() As Global.System.Data.DataColumn Get - Return Me.columnGUID + Return Me.columnSTATE End Get End Property _ - Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnFORM_ID + Return Me.columnSTATE_ID End Get End Property _ - Public ReadOnly Property WF_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property AuthorityColumn() As Global.System.Data.DataColumn Get - Return Me.columnWF_ID + Return Me.columnAuthority End Get End Property _ - Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn Get - Return Me.columnSEQUENCE + Return Me.columnString End Get End Property _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property WF_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHO + Return Me.columnWF_ID End Get End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHEN + Return Me.columnRECORD_ID + End Get + End Property + + _ + Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOLOR End Get End Property @@ -6198,56 +6163,44 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_WORKFLOW_FORMRow + Public Default ReadOnly Property Item(ByVal index As Integer) As VWPMO_WF_OVERVIEW_AUTHORITYRow Get - Return CType(Me.Rows(index),TBPMO_WORKFLOW_FORMRow) + Return CType(Me.Rows(index),VWPMO_WF_OVERVIEW_AUTHORITYRow) End Get End Property _ - Public Event TBPMO_WORKFLOW_FORMRowChanging As TBPMO_WORKFLOW_FORMRowChangeEventHandler + Public Event VWPMO_WF_OVERVIEW_AUTHORITYRowChanging As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler _ - Public Event TBPMO_WORKFLOW_FORMRowChanged As TBPMO_WORKFLOW_FORMRowChangeEventHandler + Public Event VWPMO_WF_OVERVIEW_AUTHORITYRowChanged As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler _ - Public Event TBPMO_WORKFLOW_FORMRowDeleting As TBPMO_WORKFLOW_FORMRowChangeEventHandler + Public Event VWPMO_WF_OVERVIEW_AUTHORITYRowDeleting As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler _ - Public Event TBPMO_WORKFLOW_FORMRowDeleted As TBPMO_WORKFLOW_FORMRowChangeEventHandler + Public Event VWPMO_WF_OVERVIEW_AUTHORITYRowDeleted As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler _ - Public Overloads Sub AddTBPMO_WORKFLOW_FORMRow(ByVal row As TBPMO_WORKFLOW_FORMRow) + Public Overloads Sub AddVWPMO_WF_OVERVIEW_AUTHORITYRow(ByVal row As VWPMO_WF_OVERVIEW_AUTHORITYRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPMO_WORKFLOW_FORMRow(ByVal parentTBPMO_FORMRowByFK_TBPMO_WORKFLOW_FORM_FV_ID As TBPMO_FORMRow, ByVal parentTBPMO_WORKFLOWRowByFK_TTBPMO_WORKFLOW_FORM_WF_ID As TBPMO_WORKFLOWRow, ByVal SEQUENCE As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_WORKFLOW_FORMRow - Dim rowTBPMO_WORKFLOW_FORMRow As TBPMO_WORKFLOW_FORMRow = CType(Me.NewRow,TBPMO_WORKFLOW_FORMRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - If (Not (parentTBPMO_FORMRowByFK_TBPMO_WORKFLOW_FORM_FV_ID) Is Nothing) Then - columnValuesArray(1) = parentTBPMO_FORMRowByFK_TBPMO_WORKFLOW_FORM_FV_ID(0) - End If - If (Not (parentTBPMO_WORKFLOWRowByFK_TTBPMO_WORKFLOW_FORM_WF_ID) Is Nothing) Then - columnValuesArray(2) = parentTBPMO_WORKFLOWRowByFK_TTBPMO_WORKFLOW_FORM_WF_ID(0) - End If - rowTBPMO_WORKFLOW_FORMRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPMO_WORKFLOW_FORMRow) - Return rowTBPMO_WORKFLOW_FORMRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WORKFLOW_FORMRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WORKFLOW_FORMRow) + Public Overloads Function AddVWPMO_WF_OVERVIEW_AUTHORITYRow(ByVal STATE As String, ByVal Authority As String, ByVal _String As String, ByVal WF_ID As Integer, ByVal RECORD_ID As Integer, ByVal COLOR As String, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As VWPMO_WF_OVERVIEW_AUTHORITYRow + Dim rowVWPMO_WF_OVERVIEW_AUTHORITYRow As VWPMO_WF_OVERVIEW_AUTHORITYRow = CType(Me.NewRow,VWPMO_WF_OVERVIEW_AUTHORITYRow) + Dim columnValuesArray() As Object = New Object() {STATE, Nothing, Authority, _String, WF_ID, RECORD_ID, COLOR, CHANGED_WHO, CHANGED_WHEN} + rowVWPMO_WF_OVERVIEW_AUTHORITYRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_WF_OVERVIEW_AUTHORITYRow) + Return rowVWPMO_WF_OVERVIEW_AUTHORITYRow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_WORKFLOW_FORMDataTable = CType(MyBase.Clone,TBPMO_WORKFLOW_FORMDataTable) + Dim cln As VWPMO_WF_OVERVIEW_AUTHORITYDataTable = CType(MyBase.Clone,VWPMO_WF_OVERVIEW_AUTHORITYDataTable) cln.InitVars Return cln End Function @@ -6255,18 +6208,19 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPMO_WORKFLOW_FORMDataTable() + Return New VWPMO_WF_OVERVIEW_AUTHORITYDataTable() End Function _ Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnFORM_ID = MyBase.Columns("FORM_ID") + Me.columnSTATE = MyBase.Columns("STATE") + Me.columnSTATE_ID = MyBase.Columns("STATE_ID") + Me.columnAuthority = MyBase.Columns("Authority") + Me.columnString = MyBase.Columns("String") Me.columnWF_ID = MyBase.Columns("WF_ID") - Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") + Me.columnCOLOR = MyBase.Columns("COLOR") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") End Sub @@ -6274,58 +6228,68 @@ Partial Public Class DD_DMSDataSet _ 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.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFORM_ID) + Me.columnSTATE = New Global.System.Data.DataColumn("STATE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATE) + Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATE_ID) + Me.columnAuthority = New Global.System.Data.DataColumn("Authority", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAuthority) + Me.columnString = New Global.System.Data.DataColumn("String", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me.columnString.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "StringColumn") + Me.columnString.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnString") + Me.columnString.ExtendedProperties.Add("Generator_UserColumnName", "String") + MyBase.Columns.Add(Me.columnString) Me.columnWF_ID = New Global.System.Data.DataColumn("WF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnWF_ID) - Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSEQUENCE) - 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.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRECORD_ID) + Me.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLOR) 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.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnFORM_ID.AllowDBNull = false + Me.columnSTATE.ReadOnly = true + Me.columnSTATE.MaxLength = 153 + Me.columnSTATE_ID.AutoIncrement = true + Me.columnSTATE_ID.AutoIncrementSeed = -1 + Me.columnSTATE_ID.AutoIncrementStep = -1 + Me.columnSTATE_ID.AllowDBNull = false + Me.columnSTATE_ID.ReadOnly = true + Me.columnAuthority.ReadOnly = true + Me.columnAuthority.MaxLength = 102 + Me.columnString.ReadOnly = true + Me.columnString.MaxLength = 258 Me.columnWF_ID.AllowDBNull = false - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 + Me.columnRECORD_ID.AllowDBNull = false + Me.columnCOLOR.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ - Public Function NewTBPMO_WORKFLOW_FORMRow() As TBPMO_WORKFLOW_FORMRow - Return CType(Me.NewRow,TBPMO_WORKFLOW_FORMRow) + Public Function NewVWPMO_WF_OVERVIEW_AUTHORITYRow() As VWPMO_WF_OVERVIEW_AUTHORITYRow + Return CType(Me.NewRow,VWPMO_WF_OVERVIEW_AUTHORITYRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPMO_WORKFLOW_FORMRow(builder) + Return New VWPMO_WF_OVERVIEW_AUTHORITYRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPMO_WORKFLOW_FORMRow) + Return GetType(VWPMO_WF_OVERVIEW_AUTHORITYRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPMO_WORKFLOW_FORMRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_WORKFLOW_FORMRowChanged(Me, New TBPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_FORMRow), e.Action)) + If (Not (Me.VWPMO_WF_OVERVIEW_AUTHORITYRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_OVERVIEW_AUTHORITYRowChanged(Me, New VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent(CType(e.Row,VWPMO_WF_OVERVIEW_AUTHORITYRow), e.Action)) End If End Sub @@ -6333,8 +6297,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPMO_WORKFLOW_FORMRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_WORKFLOW_FORMRowChanging(Me, New TBPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_FORMRow), e.Action)) + If (Not (Me.VWPMO_WF_OVERVIEW_AUTHORITYRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_OVERVIEW_AUTHORITYRowChanging(Me, New VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent(CType(e.Row,VWPMO_WF_OVERVIEW_AUTHORITYRow), e.Action)) End If End Sub @@ -6342,8 +6306,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPMO_WORKFLOW_FORMRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_WORKFLOW_FORMRowDeleted(Me, New TBPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_FORMRow), e.Action)) + If (Not (Me.VWPMO_WF_OVERVIEW_AUTHORITYRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_OVERVIEW_AUTHORITYRowDeleted(Me, New VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent(CType(e.Row,VWPMO_WF_OVERVIEW_AUTHORITYRow), e.Action)) End If End Sub @@ -6351,14 +6315,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPMO_WORKFLOW_FORMRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_WORKFLOW_FORMRowDeleting(Me, New TBPMO_WORKFLOW_FORMRowChangeEvent(CType(e.Row,TBPMO_WORKFLOW_FORMRow), e.Action)) + If (Not (Me.VWPMO_WF_OVERVIEW_AUTHORITYRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_OVERVIEW_AUTHORITYRowDeleting(Me, New VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent(CType(e.Row,VWPMO_WF_OVERVIEW_AUTHORITYRow), e.Action)) End If End Sub _ - Public Sub RemoveTBPMO_WORKFLOW_FORMRow(ByVal row As TBPMO_WORKFLOW_FORMRow) + Public Sub RemoveVWPMO_WF_OVERVIEW_AUTHORITYRow(ByVal row As VWPMO_WF_OVERVIEW_AUTHORITYRow) Me.Rows.Remove(row) End Sub @@ -6385,7 +6349,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPMO_WORKFLOW_FORMDataTable" + attribute2.FixedValue = "VWPMO_WF_OVERVIEW_AUTHORITYDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -6434,36 +6398,40 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class VWPMO_WF_USER_ACTIVEDataTable - Inherits Global.System.Data.TypedTableBase(Of VWPMO_WF_USER_ACTIVERow) + Partial Public Class TBDD_DOKUMENTARTDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_DOKUMENTARTRow) - Private columnWF_TASK_ID As Global.System.Data.DataColumn + Private columnGUID As Global.System.Data.DataColumn - Private columnTITLE As Global.System.Data.DataColumn + Private columnBEZEICHNUNG As Global.System.Data.DataColumn - Private columnRECORD_ID As Global.System.Data.DataColumn + Private columnEINGANGSART_ID As Global.System.Data.DataColumn - Private columnSTATE_ID As Global.System.Data.DataColumn + Private columnKURZNAME As Global.System.Data.DataColumn - Private columnCOMMENT As Global.System.Data.DataColumn + Private columnZIEL_PFAD As Global.System.Data.DataColumn - Private columnDUE_DATE As Global.System.Data.DataColumn + Private columnBESCHREIBUNG As Global.System.Data.DataColumn - Private columnUSERNAME As Global.System.Data.DataColumn + Private columnAKTIV As Global.System.Data.DataColumn - Private columnADDED_WHEN As Global.System.Data.DataColumn + Private columnNAMENKONVENTION As Global.System.Data.DataColumn - Private columnCHANGED_WHO As Global.System.Data.DataColumn + Private columnERSTELLTWER As Global.System.Data.DataColumn - Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnERSTELLTWANN As Global.System.Data.DataColumn - Private columnTASK_DATE As Global.System.Data.DataColumn + Private columnGEANDERTWER As Global.System.Data.DataColumn + + Private columnGEAENDERTWANN As Global.System.Data.DataColumn + + Private columnOBJEKTTYP As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "VWPMO_WF_USER_ACTIVE" + Me.TableName = "TBDD_DOKUMENTART" Me.BeginInit Me.InitClass Me.EndInit @@ -6496,89 +6464,105 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property WF_TASK_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Return Me.columnWF_TASK_ID + Return Me.columnGUID End Get End Property _ - Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get - Return Me.columnTITLE + Return Me.columnBEZEICHNUNG End Get End Property _ - Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EINGANGSART_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnRECORD_ID + Return Me.columnEINGANGSART_ID End Get End Property _ - Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnSTATE_ID + Return Me.columnKURZNAME End Get End Property _ - Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ZIEL_PFADColumn() As Global.System.Data.DataColumn Get - Return Me.columnCOMMENT + Return Me.columnZIEL_PFAD End Get End Property _ - Public ReadOnly Property DUE_DATEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn Get - Return Me.columnDUE_DATE + Return Me.columnBESCHREIBUNG End Get End Property _ - Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSERNAME + Return Me.columnAKTIV End Get End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NAMENKONVENTIONColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHEN + Return Me.columnNAMENKONVENTION End Get End Property _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHO + Return Me.columnERSTELLTWER End Get End Property _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHEN + Return Me.columnERSTELLTWANN End Get End Property _ - Public ReadOnly Property TASK_DATEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn Get - Return Me.columnTASK_DATE + Return Me.columnGEANDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN + End Get + End Property + + _ + Public ReadOnly Property OBJEKTTYPColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOBJEKTTYP End Get End Property @@ -6593,56 +6577,53 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As VWPMO_WF_USER_ACTIVERow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_DOKUMENTARTRow Get - Return CType(Me.Rows(index),VWPMO_WF_USER_ACTIVERow) + Return CType(Me.Rows(index),TBDD_DOKUMENTARTRow) End Get End Property _ - Public Event VWPMO_WF_USER_ACTIVERowChanging As VWPMO_WF_USER_ACTIVERowChangeEventHandler + Public Event TBDD_DOKUMENTARTRowChanging As TBDD_DOKUMENTARTRowChangeEventHandler _ - Public Event VWPMO_WF_USER_ACTIVERowChanged As VWPMO_WF_USER_ACTIVERowChangeEventHandler + Public Event TBDD_DOKUMENTARTRowChanged As TBDD_DOKUMENTARTRowChangeEventHandler _ - Public Event VWPMO_WF_USER_ACTIVERowDeleting As VWPMO_WF_USER_ACTIVERowChangeEventHandler + Public Event TBDD_DOKUMENTARTRowDeleting As TBDD_DOKUMENTARTRowChangeEventHandler _ - Public Event VWPMO_WF_USER_ACTIVERowDeleted As VWPMO_WF_USER_ACTIVERowChangeEventHandler + Public Event TBDD_DOKUMENTARTRowDeleted As TBDD_DOKUMENTARTRowChangeEventHandler _ - Public Overloads Sub AddVWPMO_WF_USER_ACTIVERow(ByVal row As VWPMO_WF_USER_ACTIVERow) + Public Overloads Sub AddTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddVWPMO_WF_USER_ACTIVERow(ByVal TITLE As String, ByVal parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID As TBPMO_RECORDRow, ByVal parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID As TBPMO_WORKFLOW_TASK_STATERow, ByVal COMMENT As String, ByVal DUE_DATE As Date, ByVal USERNAME As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal TASK_DATE As Date) As VWPMO_WF_USER_ACTIVERow - Dim rowVWPMO_WF_USER_ACTIVERow As VWPMO_WF_USER_ACTIVERow = CType(Me.NewRow,VWPMO_WF_USER_ACTIVERow) - Dim columnValuesArray() As Object = New Object() {Nothing, TITLE, Nothing, Nothing, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE} - If (Not (parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID) Is Nothing) Then - columnValuesArray(2) = parentTBPMO_RECORDRowByFK_TBPMO_WORKFLOW_TASK_RECORD_ID(0) - End If - If (Not (parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID) Is Nothing) Then - columnValuesArray(3) = parentTBPMO_WORKFLOW_TASK_STATERowByFK_TBPMO_WORKFLOW_TASK_STATE_ID(0) + Public Overloads Function AddTBDD_DOKUMENTARTRow(ByVal BEZEICHNUNG As String, ByVal parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID As TBDD_EINGANGSARTENRow, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal OBJEKTTYP As String) As TBDD_DOKUMENTARTRow + Dim rowTBDD_DOKUMENTARTRow As TBDD_DOKUMENTARTRow = CType(Me.NewRow,TBDD_DOKUMENTARTRow) + Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, Nothing, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP} + If (Not (parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID(0) End If - rowVWPMO_WF_USER_ACTIVERow.ItemArray = columnValuesArray - Me.Rows.Add(rowVWPMO_WF_USER_ACTIVERow) - Return rowVWPMO_WF_USER_ACTIVERow + rowTBDD_DOKUMENTARTRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_DOKUMENTARTRow) + Return rowTBDD_DOKUMENTARTRow End Function _ - Public Function FindByWF_TASK_ID(ByVal WF_TASK_ID As Integer) As VWPMO_WF_USER_ACTIVERow - Return CType(Me.Rows.Find(New Object() {WF_TASK_ID}),VWPMO_WF_USER_ACTIVERow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_DOKUMENTARTRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_DOKUMENTARTRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWPMO_WF_USER_ACTIVEDataTable = CType(MyBase.Clone,VWPMO_WF_USER_ACTIVEDataTable) + Dim cln As TBDD_DOKUMENTARTDataTable = CType(MyBase.Clone,TBDD_DOKUMENTARTDataTable) cln.InitVars Return cln End Function @@ -6650,92 +6631,103 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New VWPMO_WF_USER_ACTIVEDataTable() + Return New TBDD_DOKUMENTARTDataTable() End Function _ Friend Sub InitVars() - Me.columnWF_TASK_ID = MyBase.Columns("WF_TASK_ID") - Me.columnTITLE = MyBase.Columns("TITLE") - Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") - Me.columnSTATE_ID = MyBase.Columns("STATE_ID") - Me.columnCOMMENT = MyBase.Columns("COMMENT") - Me.columnDUE_DATE = MyBase.Columns("DUE_DATE") - Me.columnUSERNAME = MyBase.Columns("USERNAME") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnTASK_DATE = MyBase.Columns("TASK_DATE") + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnEINGANGSART_ID = MyBase.Columns("EINGANGSART_ID") + Me.columnKURZNAME = MyBase.Columns("KURZNAME") + Me.columnZIEL_PFAD = MyBase.Columns("ZIEL_PFAD") + Me.columnBESCHREIBUNG = MyBase.Columns("BESCHREIBUNG") + Me.columnAKTIV = MyBase.Columns("AKTIV") + Me.columnNAMENKONVENTION = MyBase.Columns("NAMENKONVENTION") + Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") + Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnOBJEKTTYP = MyBase.Columns("OBJEKTTYP") End Sub _ Private Sub InitClass() - Me.columnWF_TASK_ID = New Global.System.Data.DataColumn("WF_TASK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWF_TASK_ID) - Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTITLE) - Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnRECORD_ID) - Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSTATE_ID) - Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCOMMENT) - Me.columnDUE_DATE = New Global.System.Data.DataColumn("DUE_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnDUE_DATE) - Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSERNAME) - 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.columnTASK_DATE = New Global.System.Data.DataColumn("TASK_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTASK_DATE) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnWF_TASK_ID}, true)) - Me.columnWF_TASK_ID.AutoIncrement = true - Me.columnWF_TASK_ID.AutoIncrementSeed = -1 - Me.columnWF_TASK_ID.AutoIncrementStep = -1 - Me.columnWF_TASK_ID.AllowDBNull = false - Me.columnWF_TASK_ID.ReadOnly = true - Me.columnWF_TASK_ID.Unique = true - Me.columnTITLE.AllowDBNull = false - Me.columnTITLE.MaxLength = 100 - Me.columnRECORD_ID.AllowDBNull = false - Me.columnSTATE_ID.AllowDBNull = false - Me.columnCOMMENT.MaxLength = 500 - Me.columnUSERNAME.ReadOnly = true - Me.columnUSERNAME.MaxLength = 1024 - Me.columnADDED_WHEN.AllowDBNull = false - Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnEINGANGSART_ID = New Global.System.Data.DataColumn("EINGANGSART_ID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEINGANGSART_ID) + Me.columnKURZNAME = New Global.System.Data.DataColumn("KURZNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnKURZNAME) + Me.columnZIEL_PFAD = New Global.System.Data.DataColumn("ZIEL_PFAD", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnZIEL_PFAD) + Me.columnBESCHREIBUNG = New Global.System.Data.DataColumn("BESCHREIBUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESCHREIBUNG) + Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAKTIV) + Me.columnNAMENKONVENTION = New Global.System.Data.DataColumn("NAMENKONVENTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAMENKONVENTION) + Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWER) + Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEANDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnOBJEKTTYP = New Global.System.Data.DataColumn("OBJEKTTYP", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOBJEKTTYP) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.MaxLength = 50 + Me.columnEINGANGSART_ID.AllowDBNull = false + Me.columnEINGANGSART_ID.DefaultValue = CType(1,Byte) + Me.columnKURZNAME.AllowDBNull = false + Me.columnKURZNAME.MaxLength = 50 + Me.columnZIEL_PFAD.AllowDBNull = false + Me.columnZIEL_PFAD.MaxLength = 250 + Me.columnBESCHREIBUNG.MaxLength = 250 + Me.columnAKTIV.AllowDBNull = false + Me.columnAKTIV.DefaultValue = CType(false,Boolean) + Me.columnNAMENKONVENTION.DefaultValue = CType("NONE",String) + Me.columnNAMENKONVENTION.MaxLength = 500 + Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.MaxLength = 50 + Me.columnGEANDERTWER.MaxLength = 50 + Me.columnOBJEKTTYP.MaxLength = 50 End Sub _ - Public Function NewVWPMO_WF_USER_ACTIVERow() As VWPMO_WF_USER_ACTIVERow - Return CType(Me.NewRow,VWPMO_WF_USER_ACTIVERow) + Public Function NewTBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow + Return CType(Me.NewRow,TBDD_DOKUMENTARTRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New VWPMO_WF_USER_ACTIVERow(builder) + Return New TBDD_DOKUMENTARTRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(VWPMO_WF_USER_ACTIVERow) + Return GetType(TBDD_DOKUMENTARTRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.VWPMO_WF_USER_ACTIVERowChangedEvent) Is Nothing) Then - RaiseEvent VWPMO_WF_USER_ACTIVERowChanged(Me, New VWPMO_WF_USER_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_USER_ACTIVERow), e.Action)) + If (Not (Me.TBDD_DOKUMENTARTRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowChanged(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) End If End Sub @@ -6743,8 +6735,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.VWPMO_WF_USER_ACTIVERowChangingEvent) Is Nothing) Then - RaiseEvent VWPMO_WF_USER_ACTIVERowChanging(Me, New VWPMO_WF_USER_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_USER_ACTIVERow), e.Action)) + If (Not (Me.TBDD_DOKUMENTARTRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowChanging(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) End If End Sub @@ -6752,8 +6744,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.VWPMO_WF_USER_ACTIVERowDeletedEvent) Is Nothing) Then - RaiseEvent VWPMO_WF_USER_ACTIVERowDeleted(Me, New VWPMO_WF_USER_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_USER_ACTIVERow), e.Action)) + If (Not (Me.TBDD_DOKUMENTARTRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowDeleted(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) End If End Sub @@ -6761,14 +6753,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.VWPMO_WF_USER_ACTIVERowDeletingEvent) Is Nothing) Then - RaiseEvent VWPMO_WF_USER_ACTIVERowDeleting(Me, New VWPMO_WF_USER_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_USER_ACTIVERow), e.Action)) + If (Not (Me.TBDD_DOKUMENTARTRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_DOKUMENTARTRowDeleting(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) End If End Sub _ - Public Sub RemoveVWPMO_WF_USER_ACTIVERow(ByVal row As VWPMO_WF_USER_ACTIVERow) + Public Sub RemoveTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow) Me.Rows.Remove(row) End Sub @@ -6795,7 +6787,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "VWPMO_WF_USER_ACTIVEDataTable" + attribute2.FixedValue = "TBDD_DOKUMENTARTDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -6844,32 +6836,28 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class VWPMO_WF_OVERVIEW_AUTHORITYDataTable - Inherits Global.System.Data.TypedTableBase(Of VWPMO_WF_OVERVIEW_AUTHORITYRow) - - Private columnSTATE As Global.System.Data.DataColumn - - Private columnSTATE_ID As Global.System.Data.DataColumn + Partial Public Class TBDD_EINGANGSARTENDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_EINGANGSARTENRow) - Private columnAuthority As Global.System.Data.DataColumn + Private columnGUID As Global.System.Data.DataColumn - Private columnString As Global.System.Data.DataColumn + Private columnBEZEICHNUNG As Global.System.Data.DataColumn - Private columnWF_ID As Global.System.Data.DataColumn + Private columnBESCHREIBUNG As Global.System.Data.DataColumn - Private columnRECORD_ID As Global.System.Data.DataColumn + Private columnERSTELLTWER As Global.System.Data.DataColumn - Private columnCOLOR As Global.System.Data.DataColumn + Private columnERSTELLTWANN As Global.System.Data.DataColumn - Private columnCHANGED_WHO As Global.System.Data.DataColumn + Private columnGEANDERTWER As Global.System.Data.DataColumn - Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnGEAENDERTWANN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "VWPMO_WF_OVERVIEW_AUTHORITY" + Me.TableName = "TBDD_EINGANGSARTEN" Me.BeginInit Me.InitClass Me.EndInit @@ -6902,73 +6890,57 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property STATEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSTATE - End Get - End Property - - _ - Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSTATE_ID - End Get - End Property - - _ - Public ReadOnly Property AuthorityColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Return Me.columnAuthority + Return Me.columnGUID End Get End Property _ - Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get - Return Me.columnString + Return Me.columnBEZEICHNUNG End Get End Property _ - Public ReadOnly Property WF_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn Get - Return Me.columnWF_ID + Return Me.columnBESCHREIBUNG End Get End Property _ - Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn Get - Return Me.columnRECORD_ID + Return Me.columnERSTELLTWER End Get End Property _ - Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn Get - Return Me.columnCOLOR + Return Me.columnERSTELLTWANN End Get End Property _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHO + Return Me.columnGEANDERTWER End Get End Property _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHEN + Return Me.columnGEAENDERTWANN End Get End Property @@ -6983,44 +6955,50 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As VWPMO_WF_OVERVIEW_AUTHORITYRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_EINGANGSARTENRow Get - Return CType(Me.Rows(index),VWPMO_WF_OVERVIEW_AUTHORITYRow) + Return CType(Me.Rows(index),TBDD_EINGANGSARTENRow) End Get End Property _ - Public Event VWPMO_WF_OVERVIEW_AUTHORITYRowChanging As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler + Public Event TBDD_EINGANGSARTENRowChanging As TBDD_EINGANGSARTENRowChangeEventHandler _ - Public Event VWPMO_WF_OVERVIEW_AUTHORITYRowChanged As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler + Public Event TBDD_EINGANGSARTENRowChanged As TBDD_EINGANGSARTENRowChangeEventHandler _ - Public Event VWPMO_WF_OVERVIEW_AUTHORITYRowDeleting As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler + Public Event TBDD_EINGANGSARTENRowDeleting As TBDD_EINGANGSARTENRowChangeEventHandler _ - Public Event VWPMO_WF_OVERVIEW_AUTHORITYRowDeleted As VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEventHandler + Public Event TBDD_EINGANGSARTENRowDeleted As TBDD_EINGANGSARTENRowChangeEventHandler _ - Public Overloads Sub AddVWPMO_WF_OVERVIEW_AUTHORITYRow(ByVal row As VWPMO_WF_OVERVIEW_AUTHORITYRow) + Public Overloads Sub AddTBDD_EINGANGSARTENRow(ByVal row As TBDD_EINGANGSARTENRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddVWPMO_WF_OVERVIEW_AUTHORITYRow(ByVal STATE As String, ByVal Authority As String, ByVal _String As String, ByVal WF_ID As Integer, ByVal RECORD_ID As Integer, ByVal COLOR As String, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As VWPMO_WF_OVERVIEW_AUTHORITYRow - Dim rowVWPMO_WF_OVERVIEW_AUTHORITYRow As VWPMO_WF_OVERVIEW_AUTHORITYRow = CType(Me.NewRow,VWPMO_WF_OVERVIEW_AUTHORITYRow) - Dim columnValuesArray() As Object = New Object() {STATE, Nothing, Authority, _String, WF_ID, RECORD_ID, COLOR, CHANGED_WHO, CHANGED_WHEN} - rowVWPMO_WF_OVERVIEW_AUTHORITYRow.ItemArray = columnValuesArray - Me.Rows.Add(rowVWPMO_WF_OVERVIEW_AUTHORITYRow) - Return rowVWPMO_WF_OVERVIEW_AUTHORITYRow + Public Overloads Function AddTBDD_EINGANGSARTENRow(ByVal GUID As Byte, ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_EINGANGSARTENRow + Dim rowTBDD_EINGANGSARTENRow As TBDD_EINGANGSARTENRow = CType(Me.NewRow,TBDD_EINGANGSARTENRow) + Dim columnValuesArray() As Object = New Object() {GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} + rowTBDD_EINGANGSARTENRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_EINGANGSARTENRow) + Return rowTBDD_EINGANGSARTENRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Byte) As TBDD_EINGANGSARTENRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EINGANGSARTENRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWPMO_WF_OVERVIEW_AUTHORITYDataTable = CType(MyBase.Clone,VWPMO_WF_OVERVIEW_AUTHORITYDataTable) + Dim cln As TBDD_EINGANGSARTENDataTable = CType(MyBase.Clone,TBDD_EINGANGSARTENDataTable) cln.InitVars Return cln End Function @@ -7028,88 +7006,74 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New VWPMO_WF_OVERVIEW_AUTHORITYDataTable() + Return New TBDD_EINGANGSARTENDataTable() End Function _ Friend Sub InitVars() - Me.columnSTATE = MyBase.Columns("STATE") - Me.columnSTATE_ID = MyBase.Columns("STATE_ID") - Me.columnAuthority = MyBase.Columns("Authority") - Me.columnString = MyBase.Columns("String") - Me.columnWF_ID = MyBase.Columns("WF_ID") - Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") - Me.columnCOLOR = MyBase.Columns("COLOR") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnGUID = MyBase.Columns("GUID") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnBESCHREIBUNG = MyBase.Columns("BESCHREIBUNG") + Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") + Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") End Sub _ Private Sub InitClass() - Me.columnSTATE = New Global.System.Data.DataColumn("STATE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSTATE) - Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSTATE_ID) - Me.columnAuthority = New Global.System.Data.DataColumn("Authority", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnAuthority) - Me.columnString = New Global.System.Data.DataColumn("String", GetType(String), Nothing, Global.System.Data.MappingType.Element) - Me.columnString.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "StringColumn") - Me.columnString.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnString") - Me.columnString.ExtendedProperties.Add("Generator_UserColumnName", "String") - MyBase.Columns.Add(Me.columnString) - Me.columnWF_ID = New Global.System.Data.DataColumn("WF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWF_ID) - Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnRECORD_ID) - Me.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCOLOR) - 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.columnSTATE.ReadOnly = true - Me.columnSTATE.MaxLength = 153 - Me.columnSTATE_ID.AutoIncrement = true - Me.columnSTATE_ID.AutoIncrementSeed = -1 - Me.columnSTATE_ID.AutoIncrementStep = -1 - Me.columnSTATE_ID.AllowDBNull = false - Me.columnSTATE_ID.ReadOnly = true - Me.columnAuthority.ReadOnly = true - Me.columnAuthority.MaxLength = 102 - Me.columnString.ReadOnly = true - Me.columnString.MaxLength = 258 - Me.columnWF_ID.AllowDBNull = false - Me.columnRECORD_ID.AllowDBNull = false - Me.columnCOLOR.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnBESCHREIBUNG = New Global.System.Data.DataColumn("BESCHREIBUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBESCHREIBUNG) + Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWER) + Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEANDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 100 + Me.columnBESCHREIBUNG.MaxLength = 500 + Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.MaxLength = 50 + Me.columnGEANDERTWER.MaxLength = 50 End Sub _ - Public Function NewVWPMO_WF_OVERVIEW_AUTHORITYRow() As VWPMO_WF_OVERVIEW_AUTHORITYRow - Return CType(Me.NewRow,VWPMO_WF_OVERVIEW_AUTHORITYRow) + Public Function NewTBDD_EINGANGSARTENRow() As TBDD_EINGANGSARTENRow + Return CType(Me.NewRow,TBDD_EINGANGSARTENRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New VWPMO_WF_OVERVIEW_AUTHORITYRow(builder) + Return New TBDD_EINGANGSARTENRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(VWPMO_WF_OVERVIEW_AUTHORITYRow) + Return GetType(TBDD_EINGANGSARTENRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.VWPMO_WF_OVERVIEW_AUTHORITYRowChangedEvent) Is Nothing) Then - RaiseEvent VWPMO_WF_OVERVIEW_AUTHORITYRowChanged(Me, New VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent(CType(e.Row,VWPMO_WF_OVERVIEW_AUTHORITYRow), e.Action)) + If (Not (Me.TBDD_EINGANGSARTENRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_EINGANGSARTENRowChanged(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) End If End Sub @@ -7117,8 +7081,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.VWPMO_WF_OVERVIEW_AUTHORITYRowChangingEvent) Is Nothing) Then - RaiseEvent VWPMO_WF_OVERVIEW_AUTHORITYRowChanging(Me, New VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent(CType(e.Row,VWPMO_WF_OVERVIEW_AUTHORITYRow), e.Action)) + If (Not (Me.TBDD_EINGANGSARTENRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_EINGANGSARTENRowChanging(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) End If End Sub @@ -7126,8 +7090,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.VWPMO_WF_OVERVIEW_AUTHORITYRowDeletedEvent) Is Nothing) Then - RaiseEvent VWPMO_WF_OVERVIEW_AUTHORITYRowDeleted(Me, New VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent(CType(e.Row,VWPMO_WF_OVERVIEW_AUTHORITYRow), e.Action)) + If (Not (Me.TBDD_EINGANGSARTENRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_EINGANGSARTENRowDeleted(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) End If End Sub @@ -7135,14 +7099,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.VWPMO_WF_OVERVIEW_AUTHORITYRowDeletingEvent) Is Nothing) Then - RaiseEvent VWPMO_WF_OVERVIEW_AUTHORITYRowDeleting(Me, New VWPMO_WF_OVERVIEW_AUTHORITYRowChangeEvent(CType(e.Row,VWPMO_WF_OVERVIEW_AUTHORITYRow), e.Action)) + If (Not (Me.TBDD_EINGANGSARTENRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_EINGANGSARTENRowDeleting(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) End If End Sub _ - Public Sub RemoveVWPMO_WF_OVERVIEW_AUTHORITYRow(ByVal row As VWPMO_WF_OVERVIEW_AUTHORITYRow) + Public Sub RemoveTBDD_EINGANGSARTENRow(ByVal row As TBDD_EINGANGSARTENRow) Me.Rows.Remove(row) End Sub @@ -7169,7 +7133,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "VWPMO_WF_OVERVIEW_AUTHORITYDataTable" + attribute2.FixedValue = "TBDD_EINGANGSARTENDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -7218,40 +7182,40 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBDD_DOKUMENTARTDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_DOKUMENTARTRow) + Partial Public Class TBDD_INDEX_AUTOMDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_INDEX_AUTOMRow) Private columnGUID As Global.System.Data.DataColumn - Private columnBEZEICHNUNG As Global.System.Data.DataColumn + Private columnDOCTYPE_ID As Global.System.Data.DataColumn - Private columnEINGANGSART_ID As Global.System.Data.DataColumn + Private columnINDEXNAME As Global.System.Data.DataColumn - Private columnKURZNAME As Global.System.Data.DataColumn + Private columnVALUE As Global.System.Data.DataColumn - Private columnZIEL_PFAD As Global.System.Data.DataColumn + Private columnCONNECTION_ID As Global.System.Data.DataColumn - Private columnBESCHREIBUNG As Global.System.Data.DataColumn + Private columnCOMMENT As Global.System.Data.DataColumn - Private columnAKTIV As Global.System.Data.DataColumn + Private columnACTIVE As Global.System.Data.DataColumn - Private columnNAMENKONVENTION As Global.System.Data.DataColumn + Private columnADDED_WHO As Global.System.Data.DataColumn - Private columnERSTELLTWER As Global.System.Data.DataColumn + Private columnADDED_WHEN As Global.System.Data.DataColumn - Private columnERSTELLTWANN As Global.System.Data.DataColumn + Private columnCHANGED_WHO As Global.System.Data.DataColumn - Private columnGEANDERTWER As Global.System.Data.DataColumn + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnGEAENDERTWANN As Global.System.Data.DataColumn + Private columnSQL_ACTIVE As Global.System.Data.DataColumn - Private columnOBJEKTTYP As Global.System.Data.DataColumn + Private columnSQL_RESULT As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBDD_DOKUMENTART" + Me.TableName = "TBDD_INDEX_AUTOM" Me.BeginInit Me.InitClass Me.EndInit @@ -7292,97 +7256,97 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnBEZEICHNUNG + Return Me.columnDOCTYPE_ID End Get End Property _ - Public ReadOnly Property EINGANGSART_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnEINGANGSART_ID + Return Me.columnINDEXNAME End Get End Property _ - Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn Get - Return Me.columnKURZNAME + Return Me.columnVALUE End Get End Property _ - Public ReadOnly Property ZIEL_PFADColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnZIEL_PFAD + Return Me.columnCONNECTION_ID End Get End Property _ - Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get - Return Me.columnBESCHREIBUNG + Return Me.columnCOMMENT End Get End Property _ - Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get - Return Me.columnAKTIV + Return Me.columnACTIVE End Get End Property _ - Public ReadOnly Property NAMENKONVENTIONColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnNAMENKONVENTION + Return Me.columnADDED_WHO End Get End Property _ - Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnERSTELLTWER + Return Me.columnADDED_WHEN End Get End Property _ - Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnERSTELLTWANN + Return Me.columnCHANGED_WHO End Get End Property _ - Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnGEANDERTWER + Return Me.columnCHANGED_WHEN End Get End Property _ - Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SQL_ACTIVEColumn() As Global.System.Data.DataColumn Get - Return Me.columnGEAENDERTWANN + Return Me.columnSQL_ACTIVE End Get End Property _ - Public ReadOnly Property OBJEKTTYPColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn Get - Return Me.columnOBJEKTTYP + Return Me.columnSQL_RESULT End Get End Property @@ -7397,53 +7361,53 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_DOKUMENTARTRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_INDEX_AUTOMRow Get - Return CType(Me.Rows(index),TBDD_DOKUMENTARTRow) + Return CType(Me.Rows(index),TBDD_INDEX_AUTOMRow) End Get End Property _ - Public Event TBDD_DOKUMENTARTRowChanging As TBDD_DOKUMENTARTRowChangeEventHandler + Public Event TBDD_INDEX_AUTOMRowChanging As TBDD_INDEX_AUTOMRowChangeEventHandler _ - Public Event TBDD_DOKUMENTARTRowChanged As TBDD_DOKUMENTARTRowChangeEventHandler + Public Event TBDD_INDEX_AUTOMRowChanged As TBDD_INDEX_AUTOMRowChangeEventHandler _ - Public Event TBDD_DOKUMENTARTRowDeleting As TBDD_DOKUMENTARTRowChangeEventHandler + Public Event TBDD_INDEX_AUTOMRowDeleting As TBDD_INDEX_AUTOMRowChangeEventHandler _ - Public Event TBDD_DOKUMENTARTRowDeleted As TBDD_DOKUMENTARTRowChangeEventHandler + Public Event TBDD_INDEX_AUTOMRowDeleted As TBDD_INDEX_AUTOMRowChangeEventHandler _ - Public Overloads Sub AddTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow) + Public Overloads Sub AddTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBDD_DOKUMENTARTRow(ByVal BEZEICHNUNG As String, ByVal parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID As TBDD_EINGANGSARTENRow, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal NAMENKONVENTION As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date, ByVal OBJEKTTYP As String) As TBDD_DOKUMENTARTRow - Dim rowTBDD_DOKUMENTARTRow As TBDD_DOKUMENTARTRow = CType(Me.NewRow,TBDD_DOKUMENTARTRow) - Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, Nothing, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP} - If (Not (parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID) Is Nothing) Then - columnValuesArray(2) = parentTBDD_EINGANGSARTENRowByFK_TBDD_DOKUMENTART_EINGID(0) + Public Overloads Function AddTBDD_INDEX_AUTOMRow(ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID As TBDD_DOKUMENTARTRow, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SQL_ACTIVE As Boolean, ByVal SQL_RESULT As String) As TBDD_INDEX_AUTOMRow + Dim rowTBDD_INDEX_AUTOMRow As TBDD_INDEX_AUTOMRow = CType(Me.NewRow,TBDD_INDEX_AUTOMRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_ACTIVE, SQL_RESULT} + If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID(0) End If - rowTBDD_DOKUMENTARTRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_DOKUMENTARTRow) - Return rowTBDD_DOKUMENTARTRow + rowTBDD_INDEX_AUTOMRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_INDEX_AUTOMRow) + Return rowTBDD_INDEX_AUTOMRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_DOKUMENTARTRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_DOKUMENTARTRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_INDEX_AUTOMRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_INDEX_AUTOMRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_DOKUMENTARTDataTable = CType(MyBase.Clone,TBDD_DOKUMENTARTDataTable) + Dim cln As TBDD_INDEX_AUTOMDataTable = CType(MyBase.Clone,TBDD_INDEX_AUTOMDataTable) cln.InitVars Return cln End Function @@ -7451,25 +7415,25 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_DOKUMENTARTDataTable() + Return New TBDD_INDEX_AUTOMDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") - Me.columnEINGANGSART_ID = MyBase.Columns("EINGANGSART_ID") - Me.columnKURZNAME = MyBase.Columns("KURZNAME") - Me.columnZIEL_PFAD = MyBase.Columns("ZIEL_PFAD") - Me.columnBESCHREIBUNG = MyBase.Columns("BESCHREIBUNG") - Me.columnAKTIV = MyBase.Columns("AKTIV") - Me.columnNAMENKONVENTION = MyBase.Columns("NAMENKONVENTION") - Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") - Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") - Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") - Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") - Me.columnOBJEKTTYP = MyBase.Columns("OBJEKTTYP") + Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") + Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") + Me.columnVALUE = MyBase.Columns("VALUE") + Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE") + Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT") End Sub _ - Public Function NewTBDD_DOKUMENTARTRow() As TBDD_DOKUMENTARTRow - Return CType(Me.NewRow,TBDD_DOKUMENTARTRow) + Public Function NewTBDD_INDEX_AUTOMRow() As TBDD_INDEX_AUTOMRow + Return CType(Me.NewRow,TBDD_INDEX_AUTOMRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_DOKUMENTARTRow(builder) + Return New TBDD_INDEX_AUTOMRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_DOKUMENTARTRow) + Return GetType(TBDD_INDEX_AUTOMRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_DOKUMENTARTRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_DOKUMENTARTRowChanged(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + If (Not (Me.TBDD_INDEX_AUTOMRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowChanged(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) End If End Sub @@ -7555,8 +7519,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_DOKUMENTARTRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_DOKUMENTARTRowChanging(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + If (Not (Me.TBDD_INDEX_AUTOMRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowChanging(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) End If End Sub @@ -7564,8 +7528,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_DOKUMENTARTRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_DOKUMENTARTRowDeleted(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + If (Not (Me.TBDD_INDEX_AUTOMRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowDeleted(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) End If End Sub @@ -7573,14 +7537,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_DOKUMENTARTRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_DOKUMENTARTRowDeleting(Me, New TBDD_DOKUMENTARTRowChangeEvent(CType(e.Row,TBDD_DOKUMENTARTRow), e.Action)) + If (Not (Me.TBDD_INDEX_AUTOMRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_INDEX_AUTOMRowDeleting(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_DOKUMENTARTRow(ByVal row As TBDD_DOKUMENTARTRow) + Public Sub RemoveTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow) Me.Rows.Remove(row) End Sub @@ -7607,7 +7571,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_DOKUMENTARTDataTable" + attribute2.FixedValue = "TBDD_INDEX_AUTOMDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -7656,28 +7620,32 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBDD_EINGANGSARTENDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_EINGANGSARTENRow) + Partial Public Class TBPMO_WD_FORMVIEW_DOKTYPESDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_FORMVIEW_DOKTYPESRow) Private columnGUID As Global.System.Data.DataColumn - Private columnBEZEICHNUNG As Global.System.Data.DataColumn + Private columnFORMVIEW_ID As Global.System.Data.DataColumn - Private columnBESCHREIBUNG As Global.System.Data.DataColumn + Private columnFORM_TITLE As Global.System.Data.DataColumn - Private columnERSTELLTWER As Global.System.Data.DataColumn + Private columnDOCTYPE_ID As Global.System.Data.DataColumn - Private columnERSTELLTWANN As Global.System.Data.DataColumn + Private columnBEZEICHNUNG As Global.System.Data.DataColumn - Private columnGEANDERTWER As Global.System.Data.DataColumn + Private columnADDED_WHO As Global.System.Data.DataColumn - Private columnGEAENDERTWANN 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 = "TBDD_EINGANGSARTEN" + Me.TableName = "TBPMO_WD_FORMVIEW_DOKTYPES" Me.BeginInit Me.InitClass Me.EndInit @@ -7718,49 +7686,65 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Public ReadOnly Property FORMVIEW_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnBEZEICHNUNG + Return Me.columnFORMVIEW_ID End Get End Property _ - Public ReadOnly Property BESCHREIBUNGColumn() As Global.System.Data.DataColumn + Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn Get - Return Me.columnBESCHREIBUNG + Return Me.columnFORM_TITLE End Get End Property _ - Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnERSTELLTWER + Return Me.columnDOCTYPE_ID End Get End Property _ - Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get - Return Me.columnERSTELLTWANN + Return Me.columnBEZEICHNUNG End Get End Property _ - Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnGEANDERTWER + Return Me.columnADDED_WHO End Get End Property _ - Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnGEAENDERTWANN + 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 @@ -7775,50 +7759,50 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_EINGANGSARTENRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_WD_FORMVIEW_DOKTYPESRow Get - Return CType(Me.Rows(index),TBDD_EINGANGSARTENRow) + Return CType(Me.Rows(index),TBPMO_WD_FORMVIEW_DOKTYPESRow) End Get End Property _ - Public Event TBDD_EINGANGSARTENRowChanging As TBDD_EINGANGSARTENRowChangeEventHandler + Public Event TBPMO_WD_FORMVIEW_DOKTYPESRowChanging As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler _ - Public Event TBDD_EINGANGSARTENRowChanged As TBDD_EINGANGSARTENRowChangeEventHandler + Public Event TBPMO_WD_FORMVIEW_DOKTYPESRowChanged As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler _ - Public Event TBDD_EINGANGSARTENRowDeleting As TBDD_EINGANGSARTENRowChangeEventHandler + Public Event TBPMO_WD_FORMVIEW_DOKTYPESRowDeleting As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler _ - Public Event TBDD_EINGANGSARTENRowDeleted As TBDD_EINGANGSARTENRowChangeEventHandler + Public Event TBPMO_WD_FORMVIEW_DOKTYPESRowDeleted As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler _ - Public Overloads Sub AddTBDD_EINGANGSARTENRow(ByVal row As TBDD_EINGANGSARTENRow) + Public Overloads Sub AddTBPMO_WD_FORMVIEW_DOKTYPESRow(ByVal row As TBPMO_WD_FORMVIEW_DOKTYPESRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBDD_EINGANGSARTENRow(ByVal GUID As Byte, ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_EINGANGSARTENRow - Dim rowTBDD_EINGANGSARTENRow As TBDD_EINGANGSARTENRow = CType(Me.NewRow,TBDD_EINGANGSARTENRow) - Dim columnValuesArray() As Object = New Object() {GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} - rowTBDD_EINGANGSARTENRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_EINGANGSARTENRow) - Return rowTBDD_EINGANGSARTENRow + Public Overloads Function AddTBPMO_WD_FORMVIEW_DOKTYPESRow(ByVal FORMVIEW_ID As Integer, ByVal FORM_TITLE As String, ByVal DOCTYPE_ID As Integer, ByVal BEZEICHNUNG 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_FORMVIEW_DOKTYPESRow + Dim rowTBPMO_WD_FORMVIEW_DOKTYPESRow As TBPMO_WD_FORMVIEW_DOKTYPESRow = CType(Me.NewRow,TBPMO_WD_FORMVIEW_DOKTYPESRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FORMVIEW_ID, FORM_TITLE, DOCTYPE_ID, BEZEICHNUNG, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBPMO_WD_FORMVIEW_DOKTYPESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_WD_FORMVIEW_DOKTYPESRow) + Return rowTBPMO_WD_FORMVIEW_DOKTYPESRow End Function _ - Public Function FindByGUID(ByVal GUID As Byte) As TBDD_EINGANGSARTENRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EINGANGSARTENRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_FORMVIEW_DOKTYPESRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_FORMVIEW_DOKTYPESRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_EINGANGSARTENDataTable = CType(MyBase.Clone,TBDD_EINGANGSARTENDataTable) + Dim cln As TBPMO_WD_FORMVIEW_DOKTYPESDataTable = CType(MyBase.Clone,TBPMO_WD_FORMVIEW_DOKTYPESDataTable) cln.InitVars Return cln End Function @@ -7826,74 +7810,86 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_EINGANGSARTENDataTable() + Return New TBPMO_WD_FORMVIEW_DOKTYPESDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") + Me.columnFORMVIEW_ID = MyBase.Columns("FORMVIEW_ID") + Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") + Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") - Me.columnBESCHREIBUNG = MyBase.Columns("BESCHREIBUNG") - Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") - Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") - Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") - Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + 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(Byte), Nothing, Global.System.Data.MappingType.Element) + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) + Me.columnFORMVIEW_ID = New Global.System.Data.DataColumn("FORMVIEW_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORMVIEW_ID) + Me.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_TITLE) + Me.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOCTYPE_ID) Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnBEZEICHNUNG) - Me.columnBESCHREIBUNG = New Global.System.Data.DataColumn("BESCHREIBUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBESCHREIBUNG) - Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnERSTELLTWER) - Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnERSTELLTWANN) - Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGEANDERTWER) - Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHO) + Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) + Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true + Me.columnFORMVIEW_ID.AllowDBNull = false + Me.columnFORM_TITLE.AllowDBNull = false + Me.columnFORM_TITLE.MaxLength = 50 + Me.columnDOCTYPE_ID.AllowDBNull = false Me.columnBEZEICHNUNG.AllowDBNull = false - Me.columnBEZEICHNUNG.MaxLength = 100 - Me.columnBESCHREIBUNG.MaxLength = 500 - Me.columnERSTELLTWER.AllowDBNull = false - Me.columnERSTELLTWER.MaxLength = 50 - Me.columnGEANDERTWER.MaxLength = 50 + Me.columnBEZEICHNUNG.MaxLength = 50 + Me.columnADDED_WHO.AllowDBNull = false + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ - Public Function NewTBDD_EINGANGSARTENRow() As TBDD_EINGANGSARTENRow - Return CType(Me.NewRow,TBDD_EINGANGSARTENRow) + Public Function NewTBPMO_WD_FORMVIEW_DOKTYPESRow() As TBPMO_WD_FORMVIEW_DOKTYPESRow + Return CType(Me.NewRow,TBPMO_WD_FORMVIEW_DOKTYPESRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_EINGANGSARTENRow(builder) + Return New TBPMO_WD_FORMVIEW_DOKTYPESRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_EINGANGSARTENRow) + Return GetType(TBPMO_WD_FORMVIEW_DOKTYPESRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_EINGANGSARTENRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_EINGANGSARTENRowChanged(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) + If (Not (Me.TBPMO_WD_FORMVIEW_DOKTYPESRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_FORMVIEW_DOKTYPESRowChanged(Me, New TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent(CType(e.Row,TBPMO_WD_FORMVIEW_DOKTYPESRow), e.Action)) End If End Sub @@ -7901,8 +7897,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_EINGANGSARTENRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_EINGANGSARTENRowChanging(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) + If (Not (Me.TBPMO_WD_FORMVIEW_DOKTYPESRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_FORMVIEW_DOKTYPESRowChanging(Me, New TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent(CType(e.Row,TBPMO_WD_FORMVIEW_DOKTYPESRow), e.Action)) End If End Sub @@ -7910,8 +7906,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_EINGANGSARTENRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_EINGANGSARTENRowDeleted(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) + If (Not (Me.TBPMO_WD_FORMVIEW_DOKTYPESRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_FORMVIEW_DOKTYPESRowDeleted(Me, New TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent(CType(e.Row,TBPMO_WD_FORMVIEW_DOKTYPESRow), e.Action)) End If End Sub @@ -7919,14 +7915,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_EINGANGSARTENRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_EINGANGSARTENRowDeleting(Me, New TBDD_EINGANGSARTENRowChangeEvent(CType(e.Row,TBDD_EINGANGSARTENRow), e.Action)) + If (Not (Me.TBPMO_WD_FORMVIEW_DOKTYPESRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_FORMVIEW_DOKTYPESRowDeleting(Me, New TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent(CType(e.Row,TBPMO_WD_FORMVIEW_DOKTYPESRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_EINGANGSARTENRow(ByVal row As TBDD_EINGANGSARTENRow) + Public Sub RemoveTBPMO_WD_FORMVIEW_DOKTYPESRow(ByVal row As TBPMO_WD_FORMVIEW_DOKTYPESRow) Me.Rows.Remove(row) End Sub @@ -7953,7 +7949,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_EINGANGSARTENDataTable" + attribute2.FixedValue = "TBPMO_WD_FORMVIEW_DOKTYPESDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -8002,22 +7998,32 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBDD_INDEX_AUTOMDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_INDEX_AUTOMRow) + Partial Public Class TBPMO_KONFIGURATIONDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_KONFIGURATIONRow) Private columnGUID As Global.System.Data.DataColumn - Private columnDOCTYPE_ID As Global.System.Data.DataColumn + Private columnLICENSE As Global.System.Data.DataColumn - Private columnINDEXNAME As Global.System.Data.DataColumn + Private columnVEKTOR_DELIMITER As Global.System.Data.DataColumn - Private columnVALUE As Global.System.Data.DataColumn + Private columnEMAIL_ACTIVE As Global.System.Data.DataColumn - Private columnCONNECTION_ID As Global.System.Data.DataColumn + Private columnEMAIL_FROM As Global.System.Data.DataColumn - Private columnCOMMENT As Global.System.Data.DataColumn + Private columnEMAIL_SMTP As Global.System.Data.DataColumn - Private columnACTIVE As Global.System.Data.DataColumn + Private columnEMAIL_USER As Global.System.Data.DataColumn + + Private columnEMAIL_PW As Global.System.Data.DataColumn + + Private columnEMAIL_REMINDER_HEADER As Global.System.Data.DataColumn + + Private columnEMAIL_REMINDER_FOOTER As Global.System.Data.DataColumn + + Private columnADMIN_PW As Global.System.Data.DataColumn + + Private columnADMIN_SECURITY As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn @@ -8027,15 +8033,35 @@ Partial Public Class DD_DMSDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnSQL_ACTIVE As Global.System.Data.DataColumn + Private columnSQL_RECORD_SQL1 As Global.System.Data.DataColumn - Private columnSQL_RESULT As Global.System.Data.DataColumn + Private columnSQL_RECORD_SQL2 As Global.System.Data.DataColumn + + Private columnWORKFLOW_FINAL_STATE1 As Global.System.Data.DataColumn + + Private columnWORKFLOW_FINAL_STATE2 As Global.System.Data.DataColumn + + Private columnWORKFLOW_FINAL_STATE3 As Global.System.Data.DataColumn + + Private columnWORKFLOW_FINAL_STATE4 As Global.System.Data.DataColumn + + Private columnWORKFLOW_FINAL_STATE5 As Global.System.Data.DataColumn + + Private columnVERSION_DELIMITER As Global.System.Data.DataColumn + + Private columnFILE_DELIMITER As Global.System.Data.DataColumn + + Private columnWD_UNICODE As Global.System.Data.DataColumn + + Private columnFOLLOW_UP_LOG_ERR_ONLY As Global.System.Data.DataColumn + + Private columnFOLLOW_UP_EMAIL_PROFILE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBDD_INDEX_AUTOM" + Me.TableName = "TBPMO_KONFIGURATION" Me.BeginInit Me.InitClass Me.EndInit @@ -8076,49 +8102,89 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property LICENSEColumn() As Global.System.Data.DataColumn Get - Return Me.columnDOCTYPE_ID + Return Me.columnLICENSE End Get End Property _ - Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property VEKTOR_DELIMITERColumn() As Global.System.Data.DataColumn Get - Return Me.columnINDEXNAME + Return Me.columnVEKTOR_DELIMITER End Get End Property _ - Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAIL_ACTIVEColumn() As Global.System.Data.DataColumn Get - Return Me.columnVALUE + Return Me.columnEMAIL_ACTIVE End Get End Property _ - Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAIL_FROMColumn() As Global.System.Data.DataColumn Get - Return Me.columnCONNECTION_ID + Return Me.columnEMAIL_FROM End Get End Property _ - Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAIL_SMTPColumn() As Global.System.Data.DataColumn Get - Return Me.columnCOMMENT + Return Me.columnEMAIL_SMTP End Get End Property _ - Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAIL_USERColumn() As Global.System.Data.DataColumn Get - Return Me.columnACTIVE + Return Me.columnEMAIL_USER + End Get + End Property + + _ + Public ReadOnly Property EMAIL_PWColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_PW + End Get + End Property + + _ + Public ReadOnly Property EMAIL_REMINDER_HEADERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_REMINDER_HEADER + End Get + End Property + + _ + Public ReadOnly Property EMAIL_REMINDER_FOOTERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_REMINDER_FOOTER + End Get + End Property + + _ + Public ReadOnly Property ADMIN_PWColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADMIN_PW + End Get + End Property + + _ + Public ReadOnly Property ADMIN_SECURITYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnADMIN_SECURITY End Get End Property @@ -8156,78 +8222,183 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property SQL_ACTIVEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SQL_RECORD_SQL1Column() As Global.System.Data.DataColumn Get - Return Me.columnSQL_ACTIVE + Return Me.columnSQL_RECORD_SQL1 End Get End Property _ - Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SQL_RECORD_SQL2Column() As Global.System.Data.DataColumn Get - Return Me.columnSQL_RESULT + Return Me.columnSQL_RECORD_SQL2 End Get End Property _ - Public ReadOnly Property Count() As Integer + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ + Public ReadOnly Property WORKFLOW_FINAL_STATE1Column() As Global.System.Data.DataColumn Get - Return Me.Rows.Count + Return Me.columnWORKFLOW_FINAL_STATE1 End Get End Property _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_INDEX_AUTOMRow + Public ReadOnly Property WORKFLOW_FINAL_STATE2Column() As Global.System.Data.DataColumn Get - Return CType(Me.Rows(index),TBDD_INDEX_AUTOMRow) + Return Me.columnWORKFLOW_FINAL_STATE2 End Get End Property - _ - Public Event TBDD_INDEX_AUTOMRowChanging As TBDD_INDEX_AUTOMRowChangeEventHandler - - _ - Public Event TBDD_INDEX_AUTOMRowChanged As TBDD_INDEX_AUTOMRowChangeEventHandler - - _ - Public Event TBDD_INDEX_AUTOMRowDeleting As TBDD_INDEX_AUTOMRowChangeEventHandler - - _ - Public Event TBDD_INDEX_AUTOMRowDeleted As TBDD_INDEX_AUTOMRowChangeEventHandler + _ + Public ReadOnly Property WORKFLOW_FINAL_STATE3Column() As Global.System.Data.DataColumn + Get + Return Me.columnWORKFLOW_FINAL_STATE3 + End Get + End Property _ - Public Overloads Sub AddTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow) - Me.Rows.Add(row) - End Sub + Public ReadOnly Property WORKFLOW_FINAL_STATE4Column() As Global.System.Data.DataColumn + Get + Return Me.columnWORKFLOW_FINAL_STATE4 + End Get + End Property _ - Public Overloads Function AddTBDD_INDEX_AUTOMRow(ByVal parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID As TBDD_DOKUMENTARTRow, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal SQL_ACTIVE As Boolean, ByVal SQL_RESULT As String) As TBDD_INDEX_AUTOMRow - Dim rowTBDD_INDEX_AUTOMRow As TBDD_INDEX_AUTOMRow = CType(Me.NewRow,TBDD_INDEX_AUTOMRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_ACTIVE, SQL_RESULT} - If (Not (parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID) Is Nothing) Then - columnValuesArray(1) = parentTBDD_DOKUMENTARTRowByFK_TBDD_INDEX_AUTOM_DOCID(0) - End If - rowTBDD_INDEX_AUTOMRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_INDEX_AUTOMRow) - Return rowTBDD_INDEX_AUTOMRow + Public ReadOnly Property WORKFLOW_FINAL_STATE5Column() As Global.System.Data.DataColumn + Get + Return Me.columnWORKFLOW_FINAL_STATE5 + End Get + End Property + + _ + Public ReadOnly Property VERSION_DELIMITERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVERSION_DELIMITER + End Get + End Property + + _ + Public ReadOnly Property FILE_DELIMITERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFILE_DELIMITER + End Get + End Property + + _ + Public ReadOnly Property WD_UNICODEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnWD_UNICODE + End Get + End Property + + _ + Public ReadOnly Property FOLLOW_UP_LOG_ERR_ONLYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFOLLOW_UP_LOG_ERR_ONLY + End Get + End Property + + _ + Public ReadOnly Property FOLLOW_UP_EMAIL_PROFILEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFOLLOW_UP_EMAIL_PROFILE + 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_KONFIGURATIONRow + Get + Return CType(Me.Rows(index),TBPMO_KONFIGURATIONRow) + End Get + End Property + + _ + Public Event TBPMO_KONFIGURATIONRowChanging As TBPMO_KONFIGURATIONRowChangeEventHandler + + _ + Public Event TBPMO_KONFIGURATIONRowChanged As TBPMO_KONFIGURATIONRowChangeEventHandler + + _ + Public Event TBPMO_KONFIGURATIONRowDeleting As TBPMO_KONFIGURATIONRowChangeEventHandler + + _ + Public Event TBPMO_KONFIGURATIONRowDeleted As TBPMO_KONFIGURATIONRowChangeEventHandler + + _ + Public Overloads Sub AddTBPMO_KONFIGURATIONRow(ByVal row As TBPMO_KONFIGURATIONRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBPMO_KONFIGURATIONRow( _ + ByVal GUID As Byte, _ + ByVal LICENSE As String, _ + ByVal VEKTOR_DELIMITER As String, _ + ByVal EMAIL_ACTIVE As Boolean, _ + ByVal EMAIL_FROM As String, _ + ByVal EMAIL_SMTP As String, _ + ByVal EMAIL_USER As String, _ + ByVal EMAIL_PW As String, _ + ByVal EMAIL_REMINDER_HEADER As String, _ + ByVal EMAIL_REMINDER_FOOTER As String, _ + ByVal ADMIN_PW As String, _ + ByVal ADMIN_SECURITY As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal SQL_RECORD_SQL1 As String, _ + ByVal SQL_RECORD_SQL2 As String, _ + ByVal WORKFLOW_FINAL_STATE1 As Integer, _ + ByVal WORKFLOW_FINAL_STATE2 As Integer, _ + ByVal WORKFLOW_FINAL_STATE3 As Integer, _ + ByVal WORKFLOW_FINAL_STATE4 As Integer, _ + ByVal WORKFLOW_FINAL_STATE5 As Integer, _ + ByVal VERSION_DELIMITER As String, _ + ByVal FILE_DELIMITER As String, _ + ByVal WD_UNICODE As Boolean, _ + ByVal FOLLOW_UP_LOG_ERR_ONLY As Boolean, _ + ByVal FOLLOW_UP_EMAIL_PROFILE As Integer) As TBPMO_KONFIGURATIONRow + Dim rowTBPMO_KONFIGURATIONRow As TBPMO_KONFIGURATIONRow = CType(Me.NewRow,TBPMO_KONFIGURATIONRow) + Dim columnValuesArray() As Object = New Object() {GUID, LICENSE, VEKTOR_DELIMITER, EMAIL_ACTIVE, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTER, ADMIN_PW, ADMIN_SECURITY, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RECORD_SQL1, SQL_RECORD_SQL2, WORKFLOW_FINAL_STATE1, WORKFLOW_FINAL_STATE2, WORKFLOW_FINAL_STATE3, WORKFLOW_FINAL_STATE4, WORKFLOW_FINAL_STATE5, VERSION_DELIMITER, FILE_DELIMITER, WD_UNICODE, FOLLOW_UP_LOG_ERR_ONLY, FOLLOW_UP_EMAIL_PROFILE} + rowTBPMO_KONFIGURATIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_KONFIGURATIONRow) + Return rowTBPMO_KONFIGURATIONRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_INDEX_AUTOMRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_INDEX_AUTOMRow) + Public Function FindByGUID(ByVal GUID As Byte) As TBPMO_KONFIGURATIONRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_KONFIGURATIONRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_INDEX_AUTOMDataTable = CType(MyBase.Clone,TBDD_INDEX_AUTOMDataTable) + Dim cln As TBPMO_KONFIGURATIONDataTable = CType(MyBase.Clone,TBPMO_KONFIGURATIONDataTable) cln.InitVars Return cln End Function @@ -8235,44 +8406,69 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_INDEX_AUTOMDataTable() + Return New TBPMO_KONFIGURATIONDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") - Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") - Me.columnVALUE = MyBase.Columns("VALUE") - Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") - Me.columnCOMMENT = MyBase.Columns("COMMENT") - Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnLICENSE = MyBase.Columns("LICENSE") + Me.columnVEKTOR_DELIMITER = MyBase.Columns("VEKTOR_DELIMITER") + Me.columnEMAIL_ACTIVE = MyBase.Columns("EMAIL_ACTIVE") + Me.columnEMAIL_FROM = MyBase.Columns("EMAIL_FROM") + Me.columnEMAIL_SMTP = MyBase.Columns("EMAIL_SMTP") + Me.columnEMAIL_USER = MyBase.Columns("EMAIL_USER") + Me.columnEMAIL_PW = MyBase.Columns("EMAIL_PW") + Me.columnEMAIL_REMINDER_HEADER = MyBase.Columns("EMAIL_REMINDER_HEADER") + Me.columnEMAIL_REMINDER_FOOTER = MyBase.Columns("EMAIL_REMINDER_FOOTER") + Me.columnADMIN_PW = MyBase.Columns("ADMIN_PW") + Me.columnADMIN_SECURITY = MyBase.Columns("ADMIN_SECURITY") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE") - Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT") + Me.columnSQL_RECORD_SQL1 = MyBase.Columns("SQL_RECORD_SQL1") + Me.columnSQL_RECORD_SQL2 = MyBase.Columns("SQL_RECORD_SQL2") + Me.columnWORKFLOW_FINAL_STATE1 = MyBase.Columns("WORKFLOW_FINAL_STATE1") + Me.columnWORKFLOW_FINAL_STATE2 = MyBase.Columns("WORKFLOW_FINAL_STATE2") + Me.columnWORKFLOW_FINAL_STATE3 = MyBase.Columns("WORKFLOW_FINAL_STATE3") + Me.columnWORKFLOW_FINAL_STATE4 = MyBase.Columns("WORKFLOW_FINAL_STATE4") + Me.columnWORKFLOW_FINAL_STATE5 = MyBase.Columns("WORKFLOW_FINAL_STATE5") + Me.columnVERSION_DELIMITER = MyBase.Columns("VERSION_DELIMITER") + Me.columnFILE_DELIMITER = MyBase.Columns("FILE_DELIMITER") + Me.columnWD_UNICODE = MyBase.Columns("WD_UNICODE") + Me.columnFOLLOW_UP_LOG_ERR_ONLY = MyBase.Columns("FOLLOW_UP_LOG_ERR_ONLY") + Me.columnFOLLOW_UP_EMAIL_PROFILE = MyBase.Columns("FOLLOW_UP_EMAIL_PROFILE") End Sub _ Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) - Me.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnDOCTYPE_ID) - Me.columnINDEXNAME = New Global.System.Data.DataColumn("INDEXNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnINDEXNAME) - Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnVALUE) - Me.columnCONNECTION_ID = New Global.System.Data.DataColumn("CONNECTION_ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCONNECTION_ID) - Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCOMMENT) - Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnACTIVE) + Me.columnLICENSE = New Global.System.Data.DataColumn("LICENSE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLICENSE) + Me.columnVEKTOR_DELIMITER = New Global.System.Data.DataColumn("VEKTOR_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVEKTOR_DELIMITER) + Me.columnEMAIL_ACTIVE = New Global.System.Data.DataColumn("EMAIL_ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_ACTIVE) + Me.columnEMAIL_FROM = New Global.System.Data.DataColumn("EMAIL_FROM", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_FROM) + Me.columnEMAIL_SMTP = New Global.System.Data.DataColumn("EMAIL_SMTP", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_SMTP) + Me.columnEMAIL_USER = New Global.System.Data.DataColumn("EMAIL_USER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_USER) + Me.columnEMAIL_PW = New Global.System.Data.DataColumn("EMAIL_PW", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_PW) + Me.columnEMAIL_REMINDER_HEADER = New Global.System.Data.DataColumn("EMAIL_REMINDER_HEADER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_REMINDER_HEADER) + Me.columnEMAIL_REMINDER_FOOTER = New Global.System.Data.DataColumn("EMAIL_REMINDER_FOOTER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEMAIL_REMINDER_FOOTER) + Me.columnADMIN_PW = New Global.System.Data.DataColumn("ADMIN_PW", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADMIN_PW) + Me.columnADMIN_SECURITY = New Global.System.Data.DataColumn("ADMIN_SECURITY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnADMIN_SECURITY) 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) @@ -8281,57 +8477,88 @@ Partial Public Class DD_DMSDataSet 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.columnSQL_ACTIVE = New Global.System.Data.DataColumn("SQL_ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSQL_ACTIVE) - Me.columnSQL_RESULT = New Global.System.Data.DataColumn("SQL_RESULT", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSQL_RESULT) + Me.columnSQL_RECORD_SQL1 = New Global.System.Data.DataColumn("SQL_RECORD_SQL1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_RECORD_SQL1) + Me.columnSQL_RECORD_SQL2 = New Global.System.Data.DataColumn("SQL_RECORD_SQL2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_RECORD_SQL2) + Me.columnWORKFLOW_FINAL_STATE1 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE1", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE1) + Me.columnWORKFLOW_FINAL_STATE2 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE2", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE2) + Me.columnWORKFLOW_FINAL_STATE3 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE3", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE3) + Me.columnWORKFLOW_FINAL_STATE4 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE4", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE4) + Me.columnWORKFLOW_FINAL_STATE5 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE5", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE5) + Me.columnVERSION_DELIMITER = New Global.System.Data.DataColumn("VERSION_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVERSION_DELIMITER) + Me.columnFILE_DELIMITER = New Global.System.Data.DataColumn("FILE_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFILE_DELIMITER) + Me.columnWD_UNICODE = New Global.System.Data.DataColumn("WD_UNICODE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWD_UNICODE) + Me.columnFOLLOW_UP_LOG_ERR_ONLY = New Global.System.Data.DataColumn("FOLLOW_UP_LOG_ERR_ONLY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFOLLOW_UP_LOG_ERR_ONLY) + Me.columnFOLLOW_UP_EMAIL_PROFILE = New Global.System.Data.DataColumn("FOLLOW_UP_EMAIL_PROFILE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFOLLOW_UP_EMAIL_PROFILE) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true - Me.columnDOCTYPE_ID.AllowDBNull = false - Me.columnINDEXNAME.AllowDBNull = false - Me.columnINDEXNAME.MaxLength = 50 - Me.columnVALUE.MaxLength = 2000 - Me.columnCONNECTION_ID.AllowDBNull = false - Me.columnCONNECTION_ID.DefaultValue = CType(0,Short) - Me.columnCOMMENT.MaxLength = 400 - Me.columnACTIVE.AllowDBNull = false - Me.columnACTIVE.DefaultValue = CType(true,Boolean) + Me.columnLICENSE.MaxLength = 2000 + Me.columnVEKTOR_DELIMITER.AllowDBNull = false + Me.columnVEKTOR_DELIMITER.MaxLength = 1 + Me.columnEMAIL_ACTIVE.AllowDBNull = false + Me.columnEMAIL_FROM.MaxLength = 50 + Me.columnEMAIL_SMTP.MaxLength = 50 + Me.columnEMAIL_USER.MaxLength = 50 + Me.columnEMAIL_PW.MaxLength = 50 + Me.columnEMAIL_REMINDER_HEADER.MaxLength = 250 + Me.columnEMAIL_REMINDER_FOOTER.MaxLength = 250 + Me.columnADMIN_PW.AllowDBNull = false + Me.columnADMIN_PW.MaxLength = 100 + Me.columnADMIN_SECURITY.AllowDBNull = false + Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 + Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnSQL_ACTIVE.AllowDBNull = false - Me.columnSQL_ACTIVE.DefaultValue = CType(false,Boolean) - Me.columnSQL_RESULT.AllowDBNull = false - Me.columnSQL_RESULT.DefaultValue = CType("",String) - Me.columnSQL_RESULT.MaxLength = 2000 + Me.columnSQL_RECORD_SQL1.AllowDBNull = false + Me.columnSQL_RECORD_SQL1.MaxLength = 500 + Me.columnSQL_RECORD_SQL2.AllowDBNull = false + Me.columnSQL_RECORD_SQL2.MaxLength = 500 + Me.columnWORKFLOW_FINAL_STATE1.AllowDBNull = false + Me.columnVERSION_DELIMITER.AllowDBNull = false + Me.columnVERSION_DELIMITER.MaxLength = 1 + Me.columnFILE_DELIMITER.AllowDBNull = false + Me.columnFILE_DELIMITER.MaxLength = 1 + Me.columnWD_UNICODE.AllowDBNull = false + Me.columnFOLLOW_UP_LOG_ERR_ONLY.AllowDBNull = false + Me.columnFOLLOW_UP_EMAIL_PROFILE.AllowDBNull = false End Sub _ - Public Function NewTBDD_INDEX_AUTOMRow() As TBDD_INDEX_AUTOMRow - Return CType(Me.NewRow,TBDD_INDEX_AUTOMRow) + Public Function NewTBPMO_KONFIGURATIONRow() As TBPMO_KONFIGURATIONRow + Return CType(Me.NewRow,TBPMO_KONFIGURATIONRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_INDEX_AUTOMRow(builder) + Return New TBPMO_KONFIGURATIONRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_INDEX_AUTOMRow) + Return GetType(TBPMO_KONFIGURATIONRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_INDEX_AUTOMRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_INDEX_AUTOMRowChanged(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + If (Not (Me.TBPMO_KONFIGURATIONRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_KONFIGURATIONRowChanged(Me, New TBPMO_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_KONFIGURATIONRow), e.Action)) End If End Sub @@ -8339,8 +8566,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_INDEX_AUTOMRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_INDEX_AUTOMRowChanging(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + If (Not (Me.TBPMO_KONFIGURATIONRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_KONFIGURATIONRowChanging(Me, New TBPMO_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_KONFIGURATIONRow), e.Action)) End If End Sub @@ -8348,8 +8575,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_INDEX_AUTOMRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_INDEX_AUTOMRowDeleted(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + If (Not (Me.TBPMO_KONFIGURATIONRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_KONFIGURATIONRowDeleted(Me, New TBPMO_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_KONFIGURATIONRow), e.Action)) End If End Sub @@ -8357,14 +8584,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_INDEX_AUTOMRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_INDEX_AUTOMRowDeleting(Me, New TBDD_INDEX_AUTOMRowChangeEvent(CType(e.Row,TBDD_INDEX_AUTOMRow), e.Action)) + If (Not (Me.TBPMO_KONFIGURATIONRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_KONFIGURATIONRowDeleting(Me, New TBPMO_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_KONFIGURATIONRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_INDEX_AUTOMRow(ByVal row As TBDD_INDEX_AUTOMRow) + Public Sub RemoveTBPMO_KONFIGURATIONRow(ByVal row As TBPMO_KONFIGURATIONRow) Me.Rows.Remove(row) End Sub @@ -8391,7 +8618,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_INDEX_AUTOMDataTable" + attribute2.FixedValue = "TBPMO_KONFIGURATIONDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -8440,18 +8667,26 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBPMO_WD_FORMVIEW_DOKTYPESDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_FORMVIEW_DOKTYPESRow) + Partial Public Class TBDD_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_USERRow) Private columnGUID As Global.System.Data.DataColumn - Private columnFORMVIEW_ID As Global.System.Data.DataColumn + Private columnPRENAME As Global.System.Data.DataColumn - Private columnFORM_TITLE As Global.System.Data.DataColumn + Private columnNAME As Global.System.Data.DataColumn - Private columnDOCTYPE_ID As Global.System.Data.DataColumn + Private columnUSERNAME As Global.System.Data.DataColumn - Private columnBEZEICHNUNG As Global.System.Data.DataColumn + Private columnEMAIL As Global.System.Data.DataColumn + + Private columnLOGGED_IN As Global.System.Data.DataColumn + + Private columnLOGGED_WHERE As Global.System.Data.DataColumn + + Private columnLOG_IN_WHEN As Global.System.Data.DataColumn + + Private columnLOG_OUT_WHEN As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn @@ -8461,11 +8696,15 @@ Partial Public Class DD_DMSDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnRECORD_ADMIN As Global.System.Data.DataColumn + + Private columnLANGUAGE As Global.System.Data.DataColumn + _ Public Sub New() MyBase.New - Me.TableName = "TBPMO_WD_FORMVIEW_DOKTYPES" + Me.TableName = "TBDD_USER" Me.BeginInit Me.InitClass Me.EndInit @@ -8506,33 +8745,65 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property FORMVIEW_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnFORMVIEW_ID + Return Me.columnPRENAME End Get End Property _ - Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnFORM_TITLE + Return Me.columnNAME End Get End Property _ - Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnDOCTYPE_ID + Return Me.columnUSERNAME End Get End Property _ - Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn Get - Return Me.columnBEZEICHNUNG + Return Me.columnEMAIL + End Get + End Property + + _ + Public ReadOnly Property LOGGED_INColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOGGED_IN + End Get + End Property + + _ + Public ReadOnly Property LOGGED_WHEREColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOGGED_WHERE + End Get + End Property + + _ + Public ReadOnly Property LOG_IN_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOG_IN_WHEN + End Get + End Property + + _ + Public ReadOnly Property LOG_OUT_WHENColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOG_OUT_WHEN End Get End Property @@ -8568,6 +8839,22 @@ Partial Public Class DD_DMSDataSet End Get End Property + _ + Public ReadOnly Property RECORD_ADMINColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRECORD_ADMIN + End Get + End Property + + _ + Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLANGUAGE + End Get + End Property + _ @@ -8579,50 +8866,50 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_WD_FORMVIEW_DOKTYPESRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USERRow Get - Return CType(Me.Rows(index),TBPMO_WD_FORMVIEW_DOKTYPESRow) + Return CType(Me.Rows(index),TBDD_USERRow) End Get End Property _ - Public Event TBPMO_WD_FORMVIEW_DOKTYPESRowChanging As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler + Public Event TBDD_USERRowChanging As TBDD_USERRowChangeEventHandler _ - Public Event TBPMO_WD_FORMVIEW_DOKTYPESRowChanged As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler + Public Event TBDD_USERRowChanged As TBDD_USERRowChangeEventHandler _ - Public Event TBPMO_WD_FORMVIEW_DOKTYPESRowDeleting As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler + Public Event TBDD_USERRowDeleting As TBDD_USERRowChangeEventHandler _ - Public Event TBPMO_WD_FORMVIEW_DOKTYPESRowDeleted As TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEventHandler + Public Event TBDD_USERRowDeleted As TBDD_USERRowChangeEventHandler _ - Public Overloads Sub AddTBPMO_WD_FORMVIEW_DOKTYPESRow(ByVal row As TBPMO_WD_FORMVIEW_DOKTYPESRow) + Public Overloads Sub AddTBDD_USERRow(ByVal row As TBDD_USERRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPMO_WD_FORMVIEW_DOKTYPESRow(ByVal FORMVIEW_ID As Integer, ByVal FORM_TITLE As String, ByVal DOCTYPE_ID As Integer, ByVal BEZEICHNUNG 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_FORMVIEW_DOKTYPESRow - Dim rowTBPMO_WD_FORMVIEW_DOKTYPESRow As TBPMO_WD_FORMVIEW_DOKTYPESRow = CType(Me.NewRow,TBPMO_WD_FORMVIEW_DOKTYPESRow) - Dim columnValuesArray() As Object = New Object() {Nothing, FORMVIEW_ID, FORM_TITLE, DOCTYPE_ID, BEZEICHNUNG, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - rowTBPMO_WD_FORMVIEW_DOKTYPESRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPMO_WD_FORMVIEW_DOKTYPESRow) - Return rowTBPMO_WD_FORMVIEW_DOKTYPESRow + Public Overloads Function AddTBDD_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal LOGGED_WHERE As String, ByVal LOG_IN_WHEN As Date, ByVal LOG_OUT_WHEN As Date, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal RECORD_ADMIN As Boolean, ByVal LANGUAGE As String) As TBDD_USERRow + Dim rowTBDD_USERRow As TBDD_USERRow = CType(Me.NewRow,TBDD_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, RECORD_ADMIN, LANGUAGE} + rowTBDD_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_USERRow) + Return rowTBDD_USERRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_FORMVIEW_DOKTYPESRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_FORMVIEW_DOKTYPESRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USERRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_WD_FORMVIEW_DOKTYPESDataTable = CType(MyBase.Clone,TBPMO_WD_FORMVIEW_DOKTYPESDataTable) + Dim cln As TBDD_USERDataTable = CType(MyBase.Clone,TBDD_USERDataTable) cln.InitVars Return cln End Function @@ -8630,21 +8917,27 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPMO_WD_FORMVIEW_DOKTYPESDataTable() + Return New TBDD_USERDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnFORMVIEW_ID = MyBase.Columns("FORMVIEW_ID") - Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") - Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") - Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnPRENAME = MyBase.Columns("PRENAME") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnEMAIL = MyBase.Columns("EMAIL") + Me.columnLOGGED_IN = MyBase.Columns("LOGGED_IN") + Me.columnLOGGED_WHERE = MyBase.Columns("LOGGED_WHERE") + Me.columnLOG_IN_WHEN = MyBase.Columns("LOG_IN_WHEN") + Me.columnLOG_OUT_WHEN = MyBase.Columns("LOG_OUT_WHEN") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnRECORD_ADMIN = MyBase.Columns("RECORD_ADMIN") + Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") End Sub _ - Public Function NewTBPMO_WD_FORMVIEW_DOKTYPESRow() As TBPMO_WD_FORMVIEW_DOKTYPESRow - Return CType(Me.NewRow,TBPMO_WD_FORMVIEW_DOKTYPESRow) + Public Function NewTBDD_USERRow() As TBDD_USERRow + Return CType(Me.NewRow,TBDD_USERRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPMO_WD_FORMVIEW_DOKTYPESRow(builder) + Return New TBDD_USERRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPMO_WD_FORMVIEW_DOKTYPESRow) + Return GetType(TBDD_USERRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPMO_WD_FORMVIEW_DOKTYPESRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_WD_FORMVIEW_DOKTYPESRowChanged(Me, New TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent(CType(e.Row,TBPMO_WD_FORMVIEW_DOKTYPESRow), e.Action)) + If (Not (Me.TBDD_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowChanged(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) End If End Sub @@ -8717,8 +9027,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPMO_WD_FORMVIEW_DOKTYPESRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_WD_FORMVIEW_DOKTYPESRowChanging(Me, New TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent(CType(e.Row,TBPMO_WD_FORMVIEW_DOKTYPESRow), e.Action)) + If (Not (Me.TBDD_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowChanging(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) End If End Sub @@ -8726,8 +9036,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPMO_WD_FORMVIEW_DOKTYPESRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_WD_FORMVIEW_DOKTYPESRowDeleted(Me, New TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent(CType(e.Row,TBPMO_WD_FORMVIEW_DOKTYPESRow), e.Action)) + If (Not (Me.TBDD_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowDeleted(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) End If End Sub @@ -8735,14 +9045,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPMO_WD_FORMVIEW_DOKTYPESRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_WD_FORMVIEW_DOKTYPESRowDeleting(Me, New TBPMO_WD_FORMVIEW_DOKTYPESRowChangeEvent(CType(e.Row,TBPMO_WD_FORMVIEW_DOKTYPESRow), e.Action)) + If (Not (Me.TBDD_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_USERRowDeleting(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) End If End Sub _ - Public Sub RemoveTBPMO_WD_FORMVIEW_DOKTYPESRow(ByVal row As TBPMO_WD_FORMVIEW_DOKTYPESRow) + Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow) Me.Rows.Remove(row) End Sub @@ -8769,7 +9079,7 @@ Partial Public Class DD_DMSDataSet 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_FORMVIEW_DOKTYPESDataTable" + attribute2.FixedValue = "TBDD_USERDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -8818,32 +9128,12 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBPMO_KONFIGURATIONDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPMO_KONFIGURATIONRow) + Partial Public Class TBPMO_FORM_TYPEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_TYPERow) Private columnGUID As Global.System.Data.DataColumn - Private columnLICENSE As Global.System.Data.DataColumn - - Private columnVEKTOR_DELIMITER As Global.System.Data.DataColumn - - Private columnEMAIL_ACTIVE As Global.System.Data.DataColumn - - Private columnEMAIL_FROM As Global.System.Data.DataColumn - - Private columnEMAIL_SMTP As Global.System.Data.DataColumn - - Private columnEMAIL_USER As Global.System.Data.DataColumn - - Private columnEMAIL_PW As Global.System.Data.DataColumn - - Private columnEMAIL_REMINDER_HEADER As Global.System.Data.DataColumn - - Private columnEMAIL_REMINDER_FOOTER As Global.System.Data.DataColumn - - Private columnADMIN_PW As Global.System.Data.DataColumn - - Private columnADMIN_SECURITY As Global.System.Data.DataColumn + Private columnFORM_TYPE As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn @@ -8853,35 +9143,11 @@ Partial Public Class DD_DMSDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnSQL_RECORD_SQL1 As Global.System.Data.DataColumn - - Private columnSQL_RECORD_SQL2 As Global.System.Data.DataColumn - - Private columnWORKFLOW_FINAL_STATE1 As Global.System.Data.DataColumn - - Private columnWORKFLOW_FINAL_STATE2 As Global.System.Data.DataColumn - - Private columnWORKFLOW_FINAL_STATE3 As Global.System.Data.DataColumn - - Private columnWORKFLOW_FINAL_STATE4 As Global.System.Data.DataColumn - - Private columnWORKFLOW_FINAL_STATE5 As Global.System.Data.DataColumn - - Private columnVERSION_DELIMITER As Global.System.Data.DataColumn - - Private columnFILE_DELIMITER As Global.System.Data.DataColumn - - Private columnWD_UNICODE As Global.System.Data.DataColumn - - Private columnFOLLOW_UP_LOG_ERR_ONLY As Global.System.Data.DataColumn - - Private columnFOLLOW_UP_EMAIL_PROFILE As Global.System.Data.DataColumn - _ Public Sub New() MyBase.New - Me.TableName = "TBPMO_KONFIGURATION" + Me.TableName = "TBPMO_FORM_TYPE" Me.BeginInit Me.InitClass Me.EndInit @@ -8922,89 +9188,9 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property LICENSEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLICENSE - End Get - End Property - - _ - Public ReadOnly Property VEKTOR_DELIMITERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnVEKTOR_DELIMITER - End Get - End Property - - _ - Public ReadOnly Property EMAIL_ACTIVEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEMAIL_ACTIVE - End Get - End Property - - _ - Public ReadOnly Property EMAIL_FROMColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEMAIL_FROM - End Get - End Property - - _ - Public ReadOnly Property EMAIL_SMTPColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEMAIL_SMTP - End Get - End Property - - _ - Public ReadOnly Property EMAIL_USERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEMAIL_USER - End Get - End Property - - _ - Public ReadOnly Property EMAIL_PWColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEMAIL_PW - End Get - End Property - - _ - Public ReadOnly Property EMAIL_REMINDER_HEADERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEMAIL_REMINDER_HEADER - End Get - End Property - - _ - Public ReadOnly Property EMAIL_REMINDER_FOOTERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEMAIL_REMINDER_FOOTER - End Get - End Property - - _ - Public ReadOnly Property ADMIN_PWColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADMIN_PW - End Get - End Property - - _ - Public ReadOnly Property ADMIN_SECURITYColumn() As Global.System.Data.DataColumn + Public ReadOnly Property FORM_TYPEColumn() As Global.System.Data.DataColumn Get - Return Me.columnADMIN_SECURITY + Return Me.columnFORM_TYPE End Get End Property @@ -9040,102 +9226,6 @@ Partial Public Class DD_DMSDataSet End Get End Property - _ - Public ReadOnly Property SQL_RECORD_SQL1Column() As Global.System.Data.DataColumn - Get - Return Me.columnSQL_RECORD_SQL1 - End Get - End Property - - _ - Public ReadOnly Property SQL_RECORD_SQL2Column() As Global.System.Data.DataColumn - Get - Return Me.columnSQL_RECORD_SQL2 - End Get - End Property - - _ - Public ReadOnly Property WORKFLOW_FINAL_STATE1Column() As Global.System.Data.DataColumn - Get - Return Me.columnWORKFLOW_FINAL_STATE1 - End Get - End Property - - _ - Public ReadOnly Property WORKFLOW_FINAL_STATE2Column() As Global.System.Data.DataColumn - Get - Return Me.columnWORKFLOW_FINAL_STATE2 - End Get - End Property - - _ - Public ReadOnly Property WORKFLOW_FINAL_STATE3Column() As Global.System.Data.DataColumn - Get - Return Me.columnWORKFLOW_FINAL_STATE3 - End Get - End Property - - _ - Public ReadOnly Property WORKFLOW_FINAL_STATE4Column() As Global.System.Data.DataColumn - Get - Return Me.columnWORKFLOW_FINAL_STATE4 - End Get - End Property - - _ - Public ReadOnly Property WORKFLOW_FINAL_STATE5Column() As Global.System.Data.DataColumn - Get - Return Me.columnWORKFLOW_FINAL_STATE5 - End Get - End Property - - _ - Public ReadOnly Property VERSION_DELIMITERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnVERSION_DELIMITER - End Get - End Property - - _ - Public ReadOnly Property FILE_DELIMITERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFILE_DELIMITER - End Get - End Property - - _ - Public ReadOnly Property WD_UNICODEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWD_UNICODE - End Get - End Property - - _ - Public ReadOnly Property FOLLOW_UP_LOG_ERR_ONLYColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFOLLOW_UP_LOG_ERR_ONLY - End Get - End Property - - _ - Public ReadOnly Property FOLLOW_UP_EMAIL_PROFILEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFOLLOW_UP_EMAIL_PROFILE - End Get - End Property - _ @@ -9147,78 +9237,50 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_KONFIGURATIONRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_TYPERow Get - Return CType(Me.Rows(index),TBPMO_KONFIGURATIONRow) + Return CType(Me.Rows(index),TBPMO_FORM_TYPERow) End Get End Property _ - Public Event TBPMO_KONFIGURATIONRowChanging As TBPMO_KONFIGURATIONRowChangeEventHandler + Public Event TBPMO_FORM_TYPERowChanging As TBPMO_FORM_TYPERowChangeEventHandler _ - Public Event TBPMO_KONFIGURATIONRowChanged As TBPMO_KONFIGURATIONRowChangeEventHandler + Public Event TBPMO_FORM_TYPERowChanged As TBPMO_FORM_TYPERowChangeEventHandler _ - Public Event TBPMO_KONFIGURATIONRowDeleting As TBPMO_KONFIGURATIONRowChangeEventHandler + Public Event TBPMO_FORM_TYPERowDeleting As TBPMO_FORM_TYPERowChangeEventHandler _ - Public Event TBPMO_KONFIGURATIONRowDeleted As TBPMO_KONFIGURATIONRowChangeEventHandler + Public Event TBPMO_FORM_TYPERowDeleted As TBPMO_FORM_TYPERowChangeEventHandler _ - Public Overloads Sub AddTBPMO_KONFIGURATIONRow(ByVal row As TBPMO_KONFIGURATIONRow) + Public Overloads Sub AddTBPMO_FORM_TYPERow(ByVal row As TBPMO_FORM_TYPERow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPMO_KONFIGURATIONRow( _ - ByVal GUID As Byte, _ - ByVal LICENSE As String, _ - ByVal VEKTOR_DELIMITER As String, _ - ByVal EMAIL_ACTIVE As Boolean, _ - ByVal EMAIL_FROM As String, _ - ByVal EMAIL_SMTP As String, _ - ByVal EMAIL_USER As String, _ - ByVal EMAIL_PW As String, _ - ByVal EMAIL_REMINDER_HEADER As String, _ - ByVal EMAIL_REMINDER_FOOTER As String, _ - ByVal ADMIN_PW As String, _ - ByVal ADMIN_SECURITY As Boolean, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Date, _ - ByVal SQL_RECORD_SQL1 As String, _ - ByVal SQL_RECORD_SQL2 As String, _ - ByVal WORKFLOW_FINAL_STATE1 As Integer, _ - ByVal WORKFLOW_FINAL_STATE2 As Integer, _ - ByVal WORKFLOW_FINAL_STATE3 As Integer, _ - ByVal WORKFLOW_FINAL_STATE4 As Integer, _ - ByVal WORKFLOW_FINAL_STATE5 As Integer, _ - ByVal VERSION_DELIMITER As String, _ - ByVal FILE_DELIMITER As String, _ - ByVal WD_UNICODE As Boolean, _ - ByVal FOLLOW_UP_LOG_ERR_ONLY As Boolean, _ - ByVal FOLLOW_UP_EMAIL_PROFILE As Integer) As TBPMO_KONFIGURATIONRow - Dim rowTBPMO_KONFIGURATIONRow As TBPMO_KONFIGURATIONRow = CType(Me.NewRow,TBPMO_KONFIGURATIONRow) - Dim columnValuesArray() As Object = New Object() {GUID, LICENSE, VEKTOR_DELIMITER, EMAIL_ACTIVE, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTER, ADMIN_PW, ADMIN_SECURITY, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_RECORD_SQL1, SQL_RECORD_SQL2, WORKFLOW_FINAL_STATE1, WORKFLOW_FINAL_STATE2, WORKFLOW_FINAL_STATE3, WORKFLOW_FINAL_STATE4, WORKFLOW_FINAL_STATE5, VERSION_DELIMITER, FILE_DELIMITER, WD_UNICODE, FOLLOW_UP_LOG_ERR_ONLY, FOLLOW_UP_EMAIL_PROFILE} - rowTBPMO_KONFIGURATIONRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPMO_KONFIGURATIONRow) - Return rowTBPMO_KONFIGURATIONRow + Public Overloads Function AddTBPMO_FORM_TYPERow(ByVal FORM_TYPE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_FORM_TYPERow + Dim rowTBPMO_FORM_TYPERow As TBPMO_FORM_TYPERow = CType(Me.NewRow,TBPMO_FORM_TYPERow) + Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TYPE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBPMO_FORM_TYPERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FORM_TYPERow) + Return rowTBPMO_FORM_TYPERow End Function _ - Public Function FindByGUID(ByVal GUID As Byte) As TBPMO_KONFIGURATIONRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_KONFIGURATIONRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_TYPERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_TYPERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_KONFIGURATIONDataTable = CType(MyBase.Clone,TBPMO_KONFIGURATIONDataTable) + Dim cln As TBPMO_FORM_TYPEDataTable = CType(MyBase.Clone,TBPMO_FORM_TYPEDataTable) cln.InitVars Return cln End Function @@ -9226,69 +9288,27 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPMO_KONFIGURATIONDataTable() + Return New TBPMO_FORM_TYPEDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnLICENSE = MyBase.Columns("LICENSE") - Me.columnVEKTOR_DELIMITER = MyBase.Columns("VEKTOR_DELIMITER") - Me.columnEMAIL_ACTIVE = MyBase.Columns("EMAIL_ACTIVE") - Me.columnEMAIL_FROM = MyBase.Columns("EMAIL_FROM") - Me.columnEMAIL_SMTP = MyBase.Columns("EMAIL_SMTP") - Me.columnEMAIL_USER = MyBase.Columns("EMAIL_USER") - Me.columnEMAIL_PW = MyBase.Columns("EMAIL_PW") - Me.columnEMAIL_REMINDER_HEADER = MyBase.Columns("EMAIL_REMINDER_HEADER") - Me.columnEMAIL_REMINDER_FOOTER = MyBase.Columns("EMAIL_REMINDER_FOOTER") - Me.columnADMIN_PW = MyBase.Columns("ADMIN_PW") - Me.columnADMIN_SECURITY = MyBase.Columns("ADMIN_SECURITY") + Me.columnFORM_TYPE = MyBase.Columns("FORM_TYPE") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnSQL_RECORD_SQL1 = MyBase.Columns("SQL_RECORD_SQL1") - Me.columnSQL_RECORD_SQL2 = MyBase.Columns("SQL_RECORD_SQL2") - Me.columnWORKFLOW_FINAL_STATE1 = MyBase.Columns("WORKFLOW_FINAL_STATE1") - Me.columnWORKFLOW_FINAL_STATE2 = MyBase.Columns("WORKFLOW_FINAL_STATE2") - Me.columnWORKFLOW_FINAL_STATE3 = MyBase.Columns("WORKFLOW_FINAL_STATE3") - Me.columnWORKFLOW_FINAL_STATE4 = MyBase.Columns("WORKFLOW_FINAL_STATE4") - Me.columnWORKFLOW_FINAL_STATE5 = MyBase.Columns("WORKFLOW_FINAL_STATE5") - Me.columnVERSION_DELIMITER = MyBase.Columns("VERSION_DELIMITER") - Me.columnFILE_DELIMITER = MyBase.Columns("FILE_DELIMITER") - Me.columnWD_UNICODE = MyBase.Columns("WD_UNICODE") - Me.columnFOLLOW_UP_LOG_ERR_ONLY = MyBase.Columns("FOLLOW_UP_LOG_ERR_ONLY") - Me.columnFOLLOW_UP_EMAIL_PROFILE = MyBase.Columns("FOLLOW_UP_EMAIL_PROFILE") End Sub _ Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Byte), Nothing, Global.System.Data.MappingType.Element) + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) - Me.columnLICENSE = New Global.System.Data.DataColumn("LICENSE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnLICENSE) - Me.columnVEKTOR_DELIMITER = New Global.System.Data.DataColumn("VEKTOR_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnVEKTOR_DELIMITER) - Me.columnEMAIL_ACTIVE = New Global.System.Data.DataColumn("EMAIL_ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEMAIL_ACTIVE) - Me.columnEMAIL_FROM = New Global.System.Data.DataColumn("EMAIL_FROM", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEMAIL_FROM) - Me.columnEMAIL_SMTP = New Global.System.Data.DataColumn("EMAIL_SMTP", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEMAIL_SMTP) - Me.columnEMAIL_USER = New Global.System.Data.DataColumn("EMAIL_USER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEMAIL_USER) - Me.columnEMAIL_PW = New Global.System.Data.DataColumn("EMAIL_PW", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEMAIL_PW) - Me.columnEMAIL_REMINDER_HEADER = New Global.System.Data.DataColumn("EMAIL_REMINDER_HEADER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEMAIL_REMINDER_HEADER) - Me.columnEMAIL_REMINDER_FOOTER = New Global.System.Data.DataColumn("EMAIL_REMINDER_FOOTER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnEMAIL_REMINDER_FOOTER) - Me.columnADMIN_PW = New Global.System.Data.DataColumn("ADMIN_PW", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADMIN_PW) - Me.columnADMIN_SECURITY = New Global.System.Data.DataColumn("ADMIN_SECURITY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnADMIN_SECURITY) + Me.columnFORM_TYPE = New Global.System.Data.DataColumn("FORM_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_TYPE) 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) @@ -9297,88 +9317,42 @@ Partial Public Class DD_DMSDataSet 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.columnSQL_RECORD_SQL1 = New Global.System.Data.DataColumn("SQL_RECORD_SQL1", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSQL_RECORD_SQL1) - Me.columnSQL_RECORD_SQL2 = New Global.System.Data.DataColumn("SQL_RECORD_SQL2", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSQL_RECORD_SQL2) - Me.columnWORKFLOW_FINAL_STATE1 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE1", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE1) - Me.columnWORKFLOW_FINAL_STATE2 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE2", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE2) - Me.columnWORKFLOW_FINAL_STATE3 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE3", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE3) - Me.columnWORKFLOW_FINAL_STATE4 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE4", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE4) - Me.columnWORKFLOW_FINAL_STATE5 = New Global.System.Data.DataColumn("WORKFLOW_FINAL_STATE5", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWORKFLOW_FINAL_STATE5) - Me.columnVERSION_DELIMITER = New Global.System.Data.DataColumn("VERSION_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnVERSION_DELIMITER) - Me.columnFILE_DELIMITER = New Global.System.Data.DataColumn("FILE_DELIMITER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFILE_DELIMITER) - Me.columnWD_UNICODE = New Global.System.Data.DataColumn("WD_UNICODE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWD_UNICODE) - Me.columnFOLLOW_UP_LOG_ERR_ONLY = New Global.System.Data.DataColumn("FOLLOW_UP_LOG_ERR_ONLY", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFOLLOW_UP_LOG_ERR_ONLY) - Me.columnFOLLOW_UP_EMAIL_PROFILE = New Global.System.Data.DataColumn("FOLLOW_UP_EMAIL_PROFILE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFOLLOW_UP_EMAIL_PROFILE) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true - Me.columnLICENSE.MaxLength = 2000 - Me.columnVEKTOR_DELIMITER.AllowDBNull = false - Me.columnVEKTOR_DELIMITER.MaxLength = 1 - Me.columnEMAIL_ACTIVE.AllowDBNull = false - Me.columnEMAIL_FROM.MaxLength = 50 - Me.columnEMAIL_SMTP.MaxLength = 50 - Me.columnEMAIL_USER.MaxLength = 50 - Me.columnEMAIL_PW.MaxLength = 50 - Me.columnEMAIL_REMINDER_HEADER.MaxLength = 250 - Me.columnEMAIL_REMINDER_FOOTER.MaxLength = 250 - Me.columnADMIN_PW.AllowDBNull = false - Me.columnADMIN_PW.MaxLength = 100 - Me.columnADMIN_SECURITY.AllowDBNull = false + Me.columnFORM_TYPE.AllowDBNull = false + Me.columnFORM_TYPE.MaxLength = 50 Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 - Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnSQL_RECORD_SQL1.AllowDBNull = false - Me.columnSQL_RECORD_SQL1.MaxLength = 500 - Me.columnSQL_RECORD_SQL2.AllowDBNull = false - Me.columnSQL_RECORD_SQL2.MaxLength = 500 - Me.columnWORKFLOW_FINAL_STATE1.AllowDBNull = false - Me.columnVERSION_DELIMITER.AllowDBNull = false - Me.columnVERSION_DELIMITER.MaxLength = 1 - Me.columnFILE_DELIMITER.AllowDBNull = false - Me.columnFILE_DELIMITER.MaxLength = 1 - Me.columnWD_UNICODE.AllowDBNull = false - Me.columnFOLLOW_UP_LOG_ERR_ONLY.AllowDBNull = false - Me.columnFOLLOW_UP_EMAIL_PROFILE.AllowDBNull = false End Sub _ - Public Function NewTBPMO_KONFIGURATIONRow() As TBPMO_KONFIGURATIONRow - Return CType(Me.NewRow,TBPMO_KONFIGURATIONRow) + Public Function NewTBPMO_FORM_TYPERow() As TBPMO_FORM_TYPERow + Return CType(Me.NewRow,TBPMO_FORM_TYPERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPMO_KONFIGURATIONRow(builder) + Return New TBPMO_FORM_TYPERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPMO_KONFIGURATIONRow) + Return GetType(TBPMO_FORM_TYPERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPMO_KONFIGURATIONRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_KONFIGURATIONRowChanged(Me, New TBPMO_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_KONFIGURATIONRow), e.Action)) + If (Not (Me.TBPMO_FORM_TYPERowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_TYPERowChanged(Me, New TBPMO_FORM_TYPERowChangeEvent(CType(e.Row,TBPMO_FORM_TYPERow), e.Action)) End If End Sub @@ -9386,8 +9360,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPMO_KONFIGURATIONRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_KONFIGURATIONRowChanging(Me, New TBPMO_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_KONFIGURATIONRow), e.Action)) + If (Not (Me.TBPMO_FORM_TYPERowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_TYPERowChanging(Me, New TBPMO_FORM_TYPERowChangeEvent(CType(e.Row,TBPMO_FORM_TYPERow), e.Action)) End If End Sub @@ -9395,8 +9369,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPMO_KONFIGURATIONRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_KONFIGURATIONRowDeleted(Me, New TBPMO_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_KONFIGURATIONRow), e.Action)) + If (Not (Me.TBPMO_FORM_TYPERowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_TYPERowDeleted(Me, New TBPMO_FORM_TYPERowChangeEvent(CType(e.Row,TBPMO_FORM_TYPERow), e.Action)) End If End Sub @@ -9404,14 +9378,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPMO_KONFIGURATIONRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_KONFIGURATIONRowDeleting(Me, New TBPMO_KONFIGURATIONRowChangeEvent(CType(e.Row,TBPMO_KONFIGURATIONRow), e.Action)) + If (Not (Me.TBPMO_FORM_TYPERowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_TYPERowDeleting(Me, New TBPMO_FORM_TYPERowChangeEvent(CType(e.Row,TBPMO_FORM_TYPERow), e.Action)) End If End Sub _ - Public Sub RemoveTBPMO_KONFIGURATIONRow(ByVal row As TBPMO_KONFIGURATIONRow) + Public Sub RemoveTBPMO_FORM_TYPERow(ByVal row As TBPMO_FORM_TYPERow) Me.Rows.Remove(row) End Sub @@ -9438,7 +9412,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPMO_KONFIGURATIONDataTable" + attribute2.FixedValue = "TBPMO_FORM_TYPEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -9487,27 +9461,13 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBDD_USERDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_USERRow) + Partial Public Class TBDD_USER_GROUPSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_USER_GROUPSRow) Private columnGUID As Global.System.Data.DataColumn - Private columnPRENAME As Global.System.Data.DataColumn - Private columnNAME As Global.System.Data.DataColumn - Private columnUSERNAME As Global.System.Data.DataColumn - - Private columnEMAIL As Global.System.Data.DataColumn - - Private columnLOGGED_IN As Global.System.Data.DataColumn - - Private columnLOGGED_WHERE As Global.System.Data.DataColumn - - Private columnLOG_IN_WHEN As Global.System.Data.DataColumn - - Private columnLOG_OUT_WHEN As Global.System.Data.DataColumn - Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn @@ -9516,15 +9476,13 @@ Partial Public Class DD_DMSDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnRECORD_ADMIN As Global.System.Data.DataColumn - - Private columnLANGUAGE As Global.System.Data.DataColumn + Private columnCOMMENT As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBDD_USER" + Me.TableName = "TBDD_USER_GROUPS" Me.BeginInit Me.InitClass Me.EndInit @@ -9563,14 +9521,6 @@ Partial Public Class DD_DMSDataSet End Get End Property - _ - Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPRENAME - End Get - End Property - _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn @@ -9581,155 +9531,99 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSERNAME + Return Me.columnADDED_WHO End Get End Property _ - Public ReadOnly Property EMAILColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnEMAIL + Return Me.columnADDED_WHEN End Get End Property _ - Public ReadOnly Property LOGGED_INColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnLOGGED_IN + Return Me.columnCHANGED_WHO End Get End Property _ - Public ReadOnly Property LOGGED_WHEREColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnLOGGED_WHERE + Return Me.columnCHANGED_WHEN End Get End Property _ - Public ReadOnly Property LOG_IN_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get - Return Me.columnLOG_IN_WHEN + Return Me.columnCOMMENT End Get End Property _ - Public ReadOnly Property LOG_OUT_WHENColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer Get - Return Me.columnLOG_OUT_WHEN + Return Me.Rows.Count End Get End Property _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USER_GROUPSRow Get - Return Me.columnADDED_WHO + Return CType(Me.Rows(index),TBDD_USER_GROUPSRow) End Get End Property + _ + Public Event TBDD_USER_GROUPSRowChanging As TBDD_USER_GROUPSRowChangeEventHandler + + _ + Public Event TBDD_USER_GROUPSRowChanged As TBDD_USER_GROUPSRowChangeEventHandler + + _ + Public Event TBDD_USER_GROUPSRowDeleting As TBDD_USER_GROUPSRowChangeEventHandler + + _ + Public Event TBDD_USER_GROUPSRowDeleted As TBDD_USER_GROUPSRowChangeEventHandler + _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHEN - End Get - End Property + Public Overloads Sub AddTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow) + Me.Rows.Add(row) + End Sub _ - 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 RECORD_ADMINColumn() As Global.System.Data.DataColumn - Get - Return Me.columnRECORD_ADMIN - End Get - End Property - - _ - Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLANGUAGE - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USERRow - Get - Return CType(Me.Rows(index),TBDD_USERRow) - End Get - End Property - - _ - Public Event TBDD_USERRowChanging As TBDD_USERRowChangeEventHandler - - _ - Public Event TBDD_USERRowChanged As TBDD_USERRowChangeEventHandler - - _ - Public Event TBDD_USERRowDeleting As TBDD_USERRowChangeEventHandler - - _ - Public Event TBDD_USERRowDeleted As TBDD_USERRowChangeEventHandler - - _ - Public Overloads Sub AddTBDD_USERRow(ByVal row As TBDD_USERRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBDD_USERRow(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal LOGGED_WHERE As String, ByVal LOG_IN_WHEN As Date, ByVal LOG_OUT_WHEN As Date, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal RECORD_ADMIN As Boolean, ByVal LANGUAGE As String) As TBDD_USERRow - Dim rowTBDD_USERRow As TBDD_USERRow = CType(Me.NewRow,TBDD_USERRow) - Dim columnValuesArray() As Object = New Object() {Nothing, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LOG_OUT_WHEN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, RECORD_ADMIN, LANGUAGE} - rowTBDD_USERRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_USERRow) - Return rowTBDD_USERRow + Public Overloads Function AddTBDD_USER_GROUPSRow(ByVal NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COMMENT As String) As TBDD_USER_GROUPSRow + Dim rowTBDD_USER_GROUPSRow As TBDD_USER_GROUPSRow = CType(Me.NewRow,TBDD_USER_GROUPSRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMMENT} + rowTBDD_USER_GROUPSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_USER_GROUPSRow) + Return rowTBDD_USER_GROUPSRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USERRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USERRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USER_GROUPSRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USER_GROUPSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_USERDataTable = CType(MyBase.Clone,TBDD_USERDataTable) + Dim cln As TBDD_USER_GROUPSDataTable = CType(MyBase.Clone,TBDD_USER_GROUPSDataTable) cln.InitVars Return cln End Function @@ -9737,27 +9631,19 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_USERDataTable() + Return New TBDD_USER_GROUPSDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnPRENAME = MyBase.Columns("PRENAME") Me.columnNAME = MyBase.Columns("NAME") - Me.columnUSERNAME = MyBase.Columns("USERNAME") - Me.columnEMAIL = MyBase.Columns("EMAIL") - Me.columnLOGGED_IN = MyBase.Columns("LOGGED_IN") - Me.columnLOGGED_WHERE = MyBase.Columns("LOGGED_WHERE") - Me.columnLOG_IN_WHEN = MyBase.Columns("LOG_IN_WHEN") - Me.columnLOG_OUT_WHEN = MyBase.Columns("LOG_OUT_WHEN") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnRECORD_ADMIN = MyBase.Columns("RECORD_ADMIN") - Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") + Me.columnCOMMENT = MyBase.Columns("COMMENT") End Sub _ - Public Function NewTBDD_USERRow() As TBDD_USERRow - Return CType(Me.NewRow,TBDD_USERRow) + Public Function NewTBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow + Return CType(Me.NewRow,TBDD_USER_GROUPSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_USERRow(builder) + Return New TBDD_USER_GROUPSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_USERRow) + Return GetType(TBDD_USER_GROUPSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_USERRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_USERRowChanged(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + If (Not (Me.TBDD_USER_GROUPSRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_USER_GROUPSRowChanged(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) End If End Sub @@ -9847,8 +9708,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_USERRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_USERRowChanging(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + If (Not (Me.TBDD_USER_GROUPSRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_USER_GROUPSRowChanging(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) End If End Sub @@ -9856,8 +9717,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_USERRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_USERRowDeleted(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + If (Not (Me.TBDD_USER_GROUPSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_USER_GROUPSRowDeleted(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) End If End Sub @@ -9865,14 +9726,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_USERRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_USERRowDeleting(Me, New TBDD_USERRowChangeEvent(CType(e.Row,TBDD_USERRow), e.Action)) + If (Not (Me.TBDD_USER_GROUPSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_USER_GROUPSRowDeleting(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_USERRow(ByVal row As TBDD_USERRow) + Public Sub RemoveTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow) Me.Rows.Remove(row) End Sub @@ -9899,7 +9760,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_USERDataTable" + attribute2.FixedValue = "TBDD_USER_GROUPSDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -9948,26 +9809,28 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBPMO_FORM_TYPEDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_TYPERow) + Partial Public Class VWPMO_USERS_GROUPSDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_USERS_GROUPSRow) Private columnGUID As Global.System.Data.DataColumn - Private columnFORM_TYPE As Global.System.Data.DataColumn + Private columnUSER_ID As Global.System.Data.DataColumn - Private columnADDED_WHO As Global.System.Data.DataColumn + Private columnGROUP_ID As Global.System.Data.DataColumn - Private columnADDED_WHEN As Global.System.Data.DataColumn + Private columnUSERNAME As Global.System.Data.DataColumn - Private columnCHANGED_WHO As Global.System.Data.DataColumn + Private columnNAME As Global.System.Data.DataColumn - Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnPRENAME As Global.System.Data.DataColumn + + Private columnGROUP_NAME As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBPMO_FORM_TYPE" + Me.TableName = "VWPMO_USERS_GROUPS" Me.BeginInit Me.InitClass Me.EndInit @@ -10008,41 +9871,49 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property FORM_TYPEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnFORM_TYPE + Return Me.columnUSER_ID End Get End Property _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHO + Return Me.columnGROUP_ID End Get End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHEN + Return Me.columnUSERNAME End Get End Property _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHO + Return Me.columnNAME End Get End Property _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHEN + Return Me.columnPRENAME + End Get + End Property + + _ + Public ReadOnly Property GROUP_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGROUP_NAME End Get End Property @@ -10057,50 +9928,50 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_TYPERow + Public Default ReadOnly Property Item(ByVal index As Integer) As VWPMO_USERS_GROUPSRow Get - Return CType(Me.Rows(index),TBPMO_FORM_TYPERow) + Return CType(Me.Rows(index),VWPMO_USERS_GROUPSRow) End Get End Property _ - Public Event TBPMO_FORM_TYPERowChanging As TBPMO_FORM_TYPERowChangeEventHandler + Public Event VWPMO_USERS_GROUPSRowChanging As VWPMO_USERS_GROUPSRowChangeEventHandler _ - Public Event TBPMO_FORM_TYPERowChanged As TBPMO_FORM_TYPERowChangeEventHandler + Public Event VWPMO_USERS_GROUPSRowChanged As VWPMO_USERS_GROUPSRowChangeEventHandler _ - Public Event TBPMO_FORM_TYPERowDeleting As TBPMO_FORM_TYPERowChangeEventHandler + Public Event VWPMO_USERS_GROUPSRowDeleting As VWPMO_USERS_GROUPSRowChangeEventHandler _ - Public Event TBPMO_FORM_TYPERowDeleted As TBPMO_FORM_TYPERowChangeEventHandler + Public Event VWPMO_USERS_GROUPSRowDeleted As VWPMO_USERS_GROUPSRowChangeEventHandler _ - Public Overloads Sub AddTBPMO_FORM_TYPERow(ByVal row As TBPMO_FORM_TYPERow) + Public Overloads Sub AddVWPMO_USERS_GROUPSRow(ByVal row As VWPMO_USERS_GROUPSRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPMO_FORM_TYPERow(ByVal FORM_TYPE As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_FORM_TYPERow - Dim rowTBPMO_FORM_TYPERow As TBPMO_FORM_TYPERow = CType(Me.NewRow,TBPMO_FORM_TYPERow) - Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TYPE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - rowTBPMO_FORM_TYPERow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPMO_FORM_TYPERow) - Return rowTBPMO_FORM_TYPERow + Public Overloads Function AddVWPMO_USERS_GROUPSRow(ByVal GUID As Integer, ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal USERNAME As String, ByVal NAME As String, ByVal PRENAME As String, ByVal GROUP_NAME As String) As VWPMO_USERS_GROUPSRow + Dim rowVWPMO_USERS_GROUPSRow As VWPMO_USERS_GROUPSRow = CType(Me.NewRow,VWPMO_USERS_GROUPSRow) + Dim columnValuesArray() As Object = New Object() {GUID, USER_ID, GROUP_ID, USERNAME, NAME, PRENAME, GROUP_NAME} + rowVWPMO_USERS_GROUPSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_USERS_GROUPSRow) + Return rowVWPMO_USERS_GROUPSRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_TYPERow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_TYPERow) + Public Function FindByGUID(ByVal GUID As Integer) As VWPMO_USERS_GROUPSRow + Return CType(Me.Rows.Find(New Object() {GUID}),VWPMO_USERS_GROUPSRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_FORM_TYPEDataTable = CType(MyBase.Clone,TBPMO_FORM_TYPEDataTable) + Dim cln As VWPMO_USERS_GROUPSDataTable = CType(MyBase.Clone,VWPMO_USERS_GROUPSDataTable) cln.InitVars Return cln End Function @@ -10108,18 +9979,19 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPMO_FORM_TYPEDataTable() + Return New VWPMO_USERS_GROUPSDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnFORM_TYPE = MyBase.Columns("FORM_TYPE") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnPRENAME = MyBase.Columns("PRENAME") + Me.columnGROUP_NAME = MyBase.Columns("GROUP_NAME") End Sub _ - Public Function NewTBPMO_FORM_TYPERow() As TBPMO_FORM_TYPERow - Return CType(Me.NewRow,TBPMO_FORM_TYPERow) + Public Function NewVWPMO_USERS_GROUPSRow() As VWPMO_USERS_GROUPSRow + Return CType(Me.NewRow,VWPMO_USERS_GROUPSRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPMO_FORM_TYPERow(builder) + Return New VWPMO_USERS_GROUPSRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPMO_FORM_TYPERow) + Return GetType(VWPMO_USERS_GROUPSRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPMO_FORM_TYPERowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_FORM_TYPERowChanged(Me, New TBPMO_FORM_TYPERowChangeEvent(CType(e.Row,TBPMO_FORM_TYPERow), e.Action)) + If (Not (Me.VWPMO_USERS_GROUPSRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_USERS_GROUPSRowChanged(Me, New VWPMO_USERS_GROUPSRowChangeEvent(CType(e.Row,VWPMO_USERS_GROUPSRow), e.Action)) End If End Sub @@ -10180,8 +10054,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPMO_FORM_TYPERowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_FORM_TYPERowChanging(Me, New TBPMO_FORM_TYPERowChangeEvent(CType(e.Row,TBPMO_FORM_TYPERow), e.Action)) + If (Not (Me.VWPMO_USERS_GROUPSRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_USERS_GROUPSRowChanging(Me, New VWPMO_USERS_GROUPSRowChangeEvent(CType(e.Row,VWPMO_USERS_GROUPSRow), e.Action)) End If End Sub @@ -10189,8 +10063,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPMO_FORM_TYPERowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_FORM_TYPERowDeleted(Me, New TBPMO_FORM_TYPERowChangeEvent(CType(e.Row,TBPMO_FORM_TYPERow), e.Action)) + If (Not (Me.VWPMO_USERS_GROUPSRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_USERS_GROUPSRowDeleted(Me, New VWPMO_USERS_GROUPSRowChangeEvent(CType(e.Row,VWPMO_USERS_GROUPSRow), e.Action)) End If End Sub @@ -10198,14 +10072,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPMO_FORM_TYPERowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_FORM_TYPERowDeleting(Me, New TBPMO_FORM_TYPERowChangeEvent(CType(e.Row,TBPMO_FORM_TYPERow), e.Action)) + If (Not (Me.VWPMO_USERS_GROUPSRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_USERS_GROUPSRowDeleting(Me, New VWPMO_USERS_GROUPSRowChangeEvent(CType(e.Row,VWPMO_USERS_GROUPSRow), e.Action)) End If End Sub _ - Public Sub RemoveTBPMO_FORM_TYPERow(ByVal row As TBPMO_FORM_TYPERow) + Public Sub RemoveVWPMO_USERS_GROUPSRow(ByVal row As VWPMO_USERS_GROUPSRow) Me.Rows.Remove(row) End Sub @@ -10232,7 +10106,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPMO_FORM_TYPEDataTable" + attribute2.FixedValue = "VWPMO_USERS_GROUPSDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -10281,12 +10155,14 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBDD_USER_GROUPSDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_USER_GROUPSRow) + Partial Public Class TBDD_GROUPS_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPS_USERRow) Private columnGUID As Global.System.Data.DataColumn - Private columnNAME As Global.System.Data.DataColumn + Private columnUSER_ID As Global.System.Data.DataColumn + + Private columnGROUP_ID As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn @@ -10302,7 +10178,7 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBDD_USER_GROUPS" + Me.TableName = "TBDD_GROUPS_USER" Me.BeginInit Me.InitClass Me.EndInit @@ -10343,9 +10219,17 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnNAME + Return Me.columnUSER_ID + End Get + End Property + + _ + Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGROUP_ID End Get End Property @@ -10400,50 +10284,56 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_USER_GROUPSRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPS_USERRow Get - Return CType(Me.Rows(index),TBDD_USER_GROUPSRow) + Return CType(Me.Rows(index),TBDD_GROUPS_USERRow) End Get End Property _ - Public Event TBDD_USER_GROUPSRowChanging As TBDD_USER_GROUPSRowChangeEventHandler + Public Event TBDD_GROUPS_USERRowChanging As TBDD_GROUPS_USERRowChangeEventHandler _ - Public Event TBDD_USER_GROUPSRowChanged As TBDD_USER_GROUPSRowChangeEventHandler + Public Event TBDD_GROUPS_USERRowChanged As TBDD_GROUPS_USERRowChangeEventHandler _ - Public Event TBDD_USER_GROUPSRowDeleting As TBDD_USER_GROUPSRowChangeEventHandler + Public Event TBDD_GROUPS_USERRowDeleting As TBDD_GROUPS_USERRowChangeEventHandler _ - Public Event TBDD_USER_GROUPSRowDeleted As TBDD_USER_GROUPSRowChangeEventHandler + Public Event TBDD_GROUPS_USERRowDeleted As TBDD_GROUPS_USERRowChangeEventHandler _ - Public Overloads Sub AddTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow) + Public Overloads Sub AddTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBDD_USER_GROUPSRow(ByVal NAME As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COMMENT As String) As TBDD_USER_GROUPSRow - Dim rowTBDD_USER_GROUPSRow As TBDD_USER_GROUPSRow = CType(Me.NewRow,TBDD_USER_GROUPSRow) - Dim columnValuesArray() As Object = New Object() {Nothing, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMMENT} - rowTBDD_USER_GROUPSRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_USER_GROUPSRow) - Return rowTBDD_USER_GROUPSRow + Public Overloads Function AddTBDD_GROUPS_USERRow(ByVal parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID As TBDD_USERRow, ByVal parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID As TBDD_USER_GROUPSRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COMMENT As String) As TBDD_GROUPS_USERRow + Dim rowTBDD_GROUPS_USERRow As TBDD_GROUPS_USERRow = CType(Me.NewRow,TBDD_GROUPS_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMMENT} + If (Not (parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID) Is Nothing) Then + columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID(0) + End If + If (Not (parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID(0) + End If + rowTBDD_GROUPS_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_GROUPS_USERRow) + Return rowTBDD_GROUPS_USERRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_USER_GROUPSRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_USER_GROUPSRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPS_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPS_USERRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_USER_GROUPSDataTable = CType(MyBase.Clone,TBDD_USER_GROUPSDataTable) + Dim cln As TBDD_GROUPS_USERDataTable = CType(MyBase.Clone,TBDD_GROUPS_USERDataTable) cln.InitVars Return cln End Function @@ -10451,14 +10341,15 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_USER_GROUPSDataTable() + Return New TBDD_GROUPS_USERDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnNAME = MyBase.Columns("NAME") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") @@ -10471,8 +10362,10 @@ Partial Public Class DD_DMSDataSet Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) - Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNAME) + Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSER_ID) + Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGROUP_ID) 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) @@ -10490,7 +10383,8 @@ Partial Public Class DD_DMSDataSet Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true - Me.columnNAME.MaxLength = 50 + Me.columnUSER_ID.AllowDBNull = false + Me.columnGROUP_ID.AllowDBNull = false Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 @@ -10499,28 +10393,28 @@ Partial Public Class DD_DMSDataSet _ - Public Function NewTBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow - Return CType(Me.NewRow,TBDD_USER_GROUPSRow) + Public Function NewTBDD_GROUPS_USERRow() As TBDD_GROUPS_USERRow + Return CType(Me.NewRow,TBDD_GROUPS_USERRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_USER_GROUPSRow(builder) + Return New TBDD_GROUPS_USERRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_USER_GROUPSRow) + Return GetType(TBDD_GROUPS_USERRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_USER_GROUPSRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_USER_GROUPSRowChanged(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + If (Not (Me.TBDD_GROUPS_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowChanged(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) End If End Sub @@ -10528,8 +10422,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_USER_GROUPSRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_USER_GROUPSRowChanging(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + If (Not (Me.TBDD_GROUPS_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowChanging(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) End If End Sub @@ -10537,8 +10431,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_USER_GROUPSRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_USER_GROUPSRowDeleted(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + If (Not (Me.TBDD_GROUPS_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowDeleted(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) End If End Sub @@ -10546,14 +10440,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_USER_GROUPSRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_USER_GROUPSRowDeleting(Me, New TBDD_USER_GROUPSRowChangeEvent(CType(e.Row,TBDD_USER_GROUPSRow), e.Action)) + If (Not (Me.TBDD_GROUPS_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_GROUPS_USERRowDeleting(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_USER_GROUPSRow(ByVal row As TBDD_USER_GROUPSRow) + Public Sub RemoveTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) Me.Rows.Remove(row) End Sub @@ -10580,7 +10474,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_USER_GROUPSDataTable" + attribute2.FixedValue = "TBDD_GROUPS_USERDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -10629,28 +10523,18 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class VWPMO_USERS_GROUPSDataTable - Inherits Global.System.Data.TypedTableBase(Of VWPMO_USERS_GROUPSRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnUSER_ID As Global.System.Data.DataColumn - - Private columnGROUP_ID As Global.System.Data.DataColumn + Partial Public Class TBWH_DOKART_MODULEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_DOKART_MODULERow) - Private columnUSERNAME As Global.System.Data.DataColumn + Private columnBEZEICHNUNG As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn - Private columnPRENAME As Global.System.Data.DataColumn - - Private columnGROUP_NAME As Global.System.Data.DataColumn - _ Public Sub New() MyBase.New - Me.TableName = "VWPMO_USERS_GROUPS" + Me.TableName = "TBWH_DOKART_MODULE" Me.BeginInit Me.InitClass Me.EndInit @@ -10683,33 +10567,9 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnUSER_ID - End Get - End Property - - _ - Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGROUP_ID - End Get - End Property - - _ - Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSERNAME + Return Me.columnBEZEICHNUNG End Get End Property @@ -10721,22 +10581,6 @@ Partial Public Class DD_DMSDataSet End Get End Property - _ - Public ReadOnly Property PRENAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPRENAME - End Get - End Property - - _ - Public ReadOnly Property GROUP_NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGROUP_NAME - End Get - End Property - _ @@ -10748,50 +10592,44 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As VWPMO_USERS_GROUPSRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_DOKART_MODULERow Get - Return CType(Me.Rows(index),VWPMO_USERS_GROUPSRow) + Return CType(Me.Rows(index),TBWH_DOKART_MODULERow) End Get End Property _ - Public Event VWPMO_USERS_GROUPSRowChanging As VWPMO_USERS_GROUPSRowChangeEventHandler + Public Event TBWH_DOKART_MODULERowChanging As TBWH_DOKART_MODULERowChangeEventHandler _ - Public Event VWPMO_USERS_GROUPSRowChanged As VWPMO_USERS_GROUPSRowChangeEventHandler + Public Event TBWH_DOKART_MODULERowChanged As TBWH_DOKART_MODULERowChangeEventHandler _ - Public Event VWPMO_USERS_GROUPSRowDeleting As VWPMO_USERS_GROUPSRowChangeEventHandler + Public Event TBWH_DOKART_MODULERowDeleting As TBWH_DOKART_MODULERowChangeEventHandler _ - Public Event VWPMO_USERS_GROUPSRowDeleted As VWPMO_USERS_GROUPSRowChangeEventHandler + Public Event TBWH_DOKART_MODULERowDeleted As TBWH_DOKART_MODULERowChangeEventHandler _ - Public Overloads Sub AddVWPMO_USERS_GROUPSRow(ByVal row As VWPMO_USERS_GROUPSRow) + Public Overloads Sub AddTBWH_DOKART_MODULERow(ByVal row As TBWH_DOKART_MODULERow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddVWPMO_USERS_GROUPSRow(ByVal GUID As Integer, ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal USERNAME As String, ByVal NAME As String, ByVal PRENAME As String, ByVal GROUP_NAME As String) As VWPMO_USERS_GROUPSRow - Dim rowVWPMO_USERS_GROUPSRow As VWPMO_USERS_GROUPSRow = CType(Me.NewRow,VWPMO_USERS_GROUPSRow) - Dim columnValuesArray() As Object = New Object() {GUID, USER_ID, GROUP_ID, USERNAME, NAME, PRENAME, GROUP_NAME} - rowVWPMO_USERS_GROUPSRow.ItemArray = columnValuesArray - Me.Rows.Add(rowVWPMO_USERS_GROUPSRow) - Return rowVWPMO_USERS_GROUPSRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As VWPMO_USERS_GROUPSRow - Return CType(Me.Rows.Find(New Object() {GUID}),VWPMO_USERS_GROUPSRow) + Public Overloads Function AddTBWH_DOKART_MODULERow(ByVal BEZEICHNUNG As String, ByVal NAME As String) As TBWH_DOKART_MODULERow + Dim rowTBWH_DOKART_MODULERow As TBWH_DOKART_MODULERow = CType(Me.NewRow,TBWH_DOKART_MODULERow) + Dim columnValuesArray() As Object = New Object() {BEZEICHNUNG, NAME} + rowTBWH_DOKART_MODULERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_DOKART_MODULERow) + Return rowTBWH_DOKART_MODULERow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWPMO_USERS_GROUPSDataTable = CType(MyBase.Clone,VWPMO_USERS_GROUPSDataTable) + Dim cln As TBWH_DOKART_MODULEDataTable = CType(MyBase.Clone,TBWH_DOKART_MODULEDataTable) cln.InitVars Return cln End Function @@ -10799,74 +10637,52 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New VWPMO_USERS_GROUPSDataTable() + Return New TBWH_DOKART_MODULEDataTable() End Function _ Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnUSER_ID = MyBase.Columns("USER_ID") - Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") - Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") Me.columnNAME = MyBase.Columns("NAME") - Me.columnPRENAME = MyBase.Columns("PRENAME") - Me.columnGROUP_NAME = MyBase.Columns("GROUP_NAME") 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.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSER_ID) - Me.columnGROUP_ID = New Global.System.Data.DataColumn("GROUP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGROUP_ID) - Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnNAME) - Me.columnPRENAME = New Global.System.Data.DataColumn("PRENAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPRENAME) - Me.columnGROUP_NAME = New Global.System.Data.DataColumn("GROUP_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGROUP_NAME) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AllowDBNull = false - Me.columnGUID.Unique = true - Me.columnUSER_ID.AllowDBNull = false - Me.columnGROUP_ID.AllowDBNull = false - Me.columnUSERNAME.AllowDBNull = false - Me.columnUSERNAME.MaxLength = 50 + Me.columnBEZEICHNUNG.AllowDBNull = false + Me.columnBEZEICHNUNG.MaxLength = 50 Me.columnNAME.MaxLength = 50 - Me.columnPRENAME.MaxLength = 50 - Me.columnGROUP_NAME.MaxLength = 50 End Sub _ - Public Function NewVWPMO_USERS_GROUPSRow() As VWPMO_USERS_GROUPSRow - Return CType(Me.NewRow,VWPMO_USERS_GROUPSRow) + Public Function NewTBWH_DOKART_MODULERow() As TBWH_DOKART_MODULERow + Return CType(Me.NewRow,TBWH_DOKART_MODULERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New VWPMO_USERS_GROUPSRow(builder) + Return New TBWH_DOKART_MODULERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(VWPMO_USERS_GROUPSRow) + Return GetType(TBWH_DOKART_MODULERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.VWPMO_USERS_GROUPSRowChangedEvent) Is Nothing) Then - RaiseEvent VWPMO_USERS_GROUPSRowChanged(Me, New VWPMO_USERS_GROUPSRowChangeEvent(CType(e.Row,VWPMO_USERS_GROUPSRow), e.Action)) + If (Not (Me.TBWH_DOKART_MODULERowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_DOKART_MODULERowChanged(Me, New TBWH_DOKART_MODULERowChangeEvent(CType(e.Row,TBWH_DOKART_MODULERow), e.Action)) End If End Sub @@ -10874,8 +10690,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.VWPMO_USERS_GROUPSRowChangingEvent) Is Nothing) Then - RaiseEvent VWPMO_USERS_GROUPSRowChanging(Me, New VWPMO_USERS_GROUPSRowChangeEvent(CType(e.Row,VWPMO_USERS_GROUPSRow), e.Action)) + If (Not (Me.TBWH_DOKART_MODULERowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_DOKART_MODULERowChanging(Me, New TBWH_DOKART_MODULERowChangeEvent(CType(e.Row,TBWH_DOKART_MODULERow), e.Action)) End If End Sub @@ -10883,8 +10699,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.VWPMO_USERS_GROUPSRowDeletedEvent) Is Nothing) Then - RaiseEvent VWPMO_USERS_GROUPSRowDeleted(Me, New VWPMO_USERS_GROUPSRowChangeEvent(CType(e.Row,VWPMO_USERS_GROUPSRow), e.Action)) + If (Not (Me.TBWH_DOKART_MODULERowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_DOKART_MODULERowDeleted(Me, New TBWH_DOKART_MODULERowChangeEvent(CType(e.Row,TBWH_DOKART_MODULERow), e.Action)) End If End Sub @@ -10892,14 +10708,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.VWPMO_USERS_GROUPSRowDeletingEvent) Is Nothing) Then - RaiseEvent VWPMO_USERS_GROUPSRowDeleting(Me, New VWPMO_USERS_GROUPSRowChangeEvent(CType(e.Row,VWPMO_USERS_GROUPSRow), e.Action)) + If (Not (Me.TBWH_DOKART_MODULERowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_DOKART_MODULERowDeleting(Me, New TBWH_DOKART_MODULERowChangeEvent(CType(e.Row,TBWH_DOKART_MODULERow), e.Action)) End If End Sub _ - Public Sub RemoveVWPMO_USERS_GROUPSRow(ByVal row As VWPMO_USERS_GROUPSRow) + Public Sub RemoveTBWH_DOKART_MODULERow(ByVal row As TBWH_DOKART_MODULERow) Me.Rows.Remove(row) End Sub @@ -10926,7 +10742,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "VWPMO_USERS_GROUPSDataTable" + attribute2.FixedValue = "TBWH_DOKART_MODULEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -10975,14 +10791,14 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBDD_GROUPS_USERDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_GROUPS_USERRow) + Partial Public Class TBPMO_FORM_CONSTRUCTORDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTORRow) Private columnGUID As Global.System.Data.DataColumn - Private columnUSER_ID As Global.System.Data.DataColumn + Private columnFORM_TITLE As Global.System.Data.DataColumn - Private columnGROUP_ID As Global.System.Data.DataColumn + Private columnSEQUENCE_MENU As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn @@ -10992,13 +10808,17 @@ Partial Public Class DD_DMSDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnCOMMENT As Global.System.Data.DataColumn + Private columnMENU_IMG As Global.System.Data.DataColumn + + Private columnSHORT_TITLE As Global.System.Data.DataColumn + + Private columnLANGUAGE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBDD_GROUPS_USER" + Me.TableName = "TBPMO_FORM_CONSTRUCTOR" Me.BeginInit Me.InitClass Me.EndInit @@ -11039,17 +10859,17 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSER_ID + Return Me.columnFORM_TITLE End Get End Property _ - Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SEQUENCE_MENUColumn() As Global.System.Data.DataColumn Get - Return Me.columnGROUP_ID + Return Me.columnSEQUENCE_MENU End Get End Property @@ -11087,9 +10907,25 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property MENU_IMGColumn() As Global.System.Data.DataColumn Get - Return Me.columnCOMMENT + Return Me.columnMENU_IMG + End Get + End Property + + _ + Public ReadOnly Property SHORT_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSHORT_TITLE + End Get + End Property + + _ + Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLANGUAGE End Get End Property @@ -11104,56 +10940,50 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_GROUPS_USERRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTORRow Get - Return CType(Me.Rows(index),TBDD_GROUPS_USERRow) + Return CType(Me.Rows(index),TBPMO_FORM_CONSTRUCTORRow) End Get End Property _ - Public Event TBDD_GROUPS_USERRowChanging As TBDD_GROUPS_USERRowChangeEventHandler + Public Event TBPMO_FORM_CONSTRUCTORRowChanging As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler _ - Public Event TBDD_GROUPS_USERRowChanged As TBDD_GROUPS_USERRowChangeEventHandler + Public Event TBPMO_FORM_CONSTRUCTORRowChanged As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler _ - Public Event TBDD_GROUPS_USERRowDeleting As TBDD_GROUPS_USERRowChangeEventHandler + Public Event TBPMO_FORM_CONSTRUCTORRowDeleting As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler _ - Public Event TBDD_GROUPS_USERRowDeleted As TBDD_GROUPS_USERRowChangeEventHandler + Public Event TBPMO_FORM_CONSTRUCTORRowDeleted As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler _ - Public Overloads Sub AddTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) + Public Overloads Sub AddTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBDD_GROUPS_USERRow(ByVal parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID As TBDD_USERRow, ByVal parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID As TBDD_USER_GROUPSRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal COMMENT As String) As TBDD_GROUPS_USERRow - Dim rowTBDD_GROUPS_USERRow As TBDD_GROUPS_USERRow = CType(Me.NewRow,TBDD_GROUPS_USERRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMMENT} - If (Not (parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID) Is Nothing) Then - columnValuesArray(1) = parentTBDD_USERRowByFK_TBDD_GROUPS_USER_USER_ID(0) - End If - If (Not (parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID) Is Nothing) Then - columnValuesArray(2) = parentTBDD_USER_GROUPSRowByFK_TBDD_GROUPS_USER_GROUP_ID(0) - End If - rowTBDD_GROUPS_USERRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_GROUPS_USERRow) - Return rowTBDD_GROUPS_USERRow + Public Overloads Function AddTBPMO_FORM_CONSTRUCTORRow(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String) As TBPMO_FORM_CONSTRUCTORRow + Dim rowTBPMO_FORM_CONSTRUCTORRow As TBPMO_FORM_CONSTRUCTORRow = CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE, LANGUAGE} + rowTBPMO_FORM_CONSTRUCTORRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTORRow) + Return rowTBPMO_FORM_CONSTRUCTORRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_GROUPS_USERRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_GROUPS_USERRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTORRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_CONSTRUCTORRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_GROUPS_USERDataTable = CType(MyBase.Clone,TBDD_GROUPS_USERDataTable) + Dim cln As TBPMO_FORM_CONSTRUCTORDataTable = CType(MyBase.Clone,TBPMO_FORM_CONSTRUCTORDataTable) cln.InitVars Return cln End Function @@ -11161,20 +10991,22 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_GROUPS_USERDataTable() + Return New TBPMO_FORM_CONSTRUCTORDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnUSER_ID = MyBase.Columns("USER_ID") - Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") + Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") + Me.columnSEQUENCE_MENU = MyBase.Columns("SEQUENCE_MENU") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnMENU_IMG = MyBase.Columns("MENU_IMG") + Me.columnSHORT_TITLE = MyBase.Columns("SHORT_TITLE") + Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") End Sub _ - Public Function NewTBDD_GROUPS_USERRow() As TBDD_GROUPS_USERRow - Return CType(Me.NewRow,TBDD_GROUPS_USERRow) + Public Function NewTBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow + Return CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_GROUPS_USERRow(builder) + Return New TBPMO_FORM_CONSTRUCTORRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_GROUPS_USERRow) + Return GetType(TBPMO_FORM_CONSTRUCTORRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_GROUPS_USERRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_USERRowChanged(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanged(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) End If End Sub @@ -11242,8 +11079,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_GROUPS_USERRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_USERRowChanging(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanging(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) End If End Sub @@ -11251,8 +11088,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_GROUPS_USERRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_USERRowDeleted(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleted(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) End If End Sub @@ -11260,14 +11097,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_GROUPS_USERRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_GROUPS_USERRowDeleting(Me, New TBDD_GROUPS_USERRowChangeEvent(CType(e.Row,TBDD_GROUPS_USERRow), e.Action)) + If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleting(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_GROUPS_USERRow(ByVal row As TBDD_GROUPS_USERRow) + Public Sub RemoveTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) Me.Rows.Remove(row) End Sub @@ -11294,7 +11131,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_GROUPS_USERDataTable" + attribute2.FixedValue = "TBPMO_FORM_CONSTRUCTORDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -11343,18 +11180,34 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBWH_DOKART_MODULEDataTable - Inherits Global.System.Data.TypedTableBase(Of TBWH_DOKART_MODULERow) + Partial Public Class TBPMO_WD_OBJECTTYPEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_OBJECTTYPERow) - Private columnBEZEICHNUNG As Global.System.Data.DataColumn + Private columnGUID As Global.System.Data.DataColumn - Private columnNAME As Global.System.Data.DataColumn + Private columnOBJECT_TYPE As Global.System.Data.DataColumn + + Private columnIDXNAME_ENTITYID As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnIDXNAME_PARENTID As Global.System.Data.DataColumn + + Private columnIDXNAME_RECORDID As Global.System.Data.DataColumn + + Private columnIDXNAME_DOCTYPE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBWH_DOKART_MODULE" + Me.TableName = "TBPMO_WD_OBJECTTYPE" Me.BeginInit Me.InitClass Me.EndInit @@ -11387,17 +11240,81 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Return Me.columnBEZEICHNUNG + Return Me.columnGUID End Get End Property _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property OBJECT_TYPEColumn() As Global.System.Data.DataColumn Get - Return Me.columnNAME + Return Me.columnOBJECT_TYPE + End Get + End Property + + _ + Public ReadOnly Property IDXNAME_ENTITYIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDXNAME_ENTITYID + 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 IDXNAME_PARENTIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDXNAME_PARENTID + End Get + End Property + + _ + Public ReadOnly Property IDXNAME_RECORDIDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDXNAME_RECORDID + End Get + End Property + + _ + Public ReadOnly Property IDXNAME_DOCTYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDXNAME_DOCTYPE End Get End Property @@ -11412,44 +11329,50 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_DOKART_MODULERow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_WD_OBJECTTYPERow Get - Return CType(Me.Rows(index),TBWH_DOKART_MODULERow) + Return CType(Me.Rows(index),TBPMO_WD_OBJECTTYPERow) End Get End Property _ - Public Event TBWH_DOKART_MODULERowChanging As TBWH_DOKART_MODULERowChangeEventHandler + Public Event TBPMO_WD_OBJECTTYPERowChanging As TBPMO_WD_OBJECTTYPERowChangeEventHandler _ - Public Event TBWH_DOKART_MODULERowChanged As TBWH_DOKART_MODULERowChangeEventHandler + Public Event TBPMO_WD_OBJECTTYPERowChanged As TBPMO_WD_OBJECTTYPERowChangeEventHandler _ - Public Event TBWH_DOKART_MODULERowDeleting As TBWH_DOKART_MODULERowChangeEventHandler + Public Event TBPMO_WD_OBJECTTYPERowDeleting As TBPMO_WD_OBJECTTYPERowChangeEventHandler _ - Public Event TBWH_DOKART_MODULERowDeleted As TBWH_DOKART_MODULERowChangeEventHandler + Public Event TBPMO_WD_OBJECTTYPERowDeleted As TBPMO_WD_OBJECTTYPERowChangeEventHandler _ - Public Overloads Sub AddTBWH_DOKART_MODULERow(ByVal row As TBWH_DOKART_MODULERow) + Public Overloads Sub AddTBPMO_WD_OBJECTTYPERow(ByVal row As TBPMO_WD_OBJECTTYPERow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBWH_DOKART_MODULERow(ByVal BEZEICHNUNG As String, ByVal NAME As String) As TBWH_DOKART_MODULERow - Dim rowTBWH_DOKART_MODULERow As TBWH_DOKART_MODULERow = CType(Me.NewRow,TBWH_DOKART_MODULERow) - Dim columnValuesArray() As Object = New Object() {BEZEICHNUNG, NAME} - rowTBWH_DOKART_MODULERow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBWH_DOKART_MODULERow) - Return rowTBWH_DOKART_MODULERow + Public Overloads Function AddTBPMO_WD_OBJECTTYPERow(ByVal OBJECT_TYPE As String, ByVal IDXNAME_ENTITYID As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal IDXNAME_PARENTID As String, ByVal IDXNAME_RECORDID As String, ByVal IDXNAME_DOCTYPE As String) As TBPMO_WD_OBJECTTYPERow + Dim rowTBPMO_WD_OBJECTTYPERow As TBPMO_WD_OBJECTTYPERow = CType(Me.NewRow,TBPMO_WD_OBJECTTYPERow) + Dim columnValuesArray() As Object = New Object() {Nothing, OBJECT_TYPE, IDXNAME_ENTITYID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, IDXNAME_PARENTID, IDXNAME_RECORDID, IDXNAME_DOCTYPE} + rowTBPMO_WD_OBJECTTYPERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_WD_OBJECTTYPERow) + Return rowTBPMO_WD_OBJECTTYPERow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_OBJECTTYPERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_OBJECTTYPERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBWH_DOKART_MODULEDataTable = CType(MyBase.Clone,TBWH_DOKART_MODULEDataTable) + Dim cln As TBPMO_WD_OBJECTTYPEDataTable = CType(MyBase.Clone,TBPMO_WD_OBJECTTYPEDataTable) cln.InitVars Return cln End Function @@ -11457,52 +11380,88 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBWH_DOKART_MODULEDataTable() + Return New TBPMO_WD_OBJECTTYPEDataTable() End Function _ Friend Sub InitVars() - Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") - Me.columnNAME = MyBase.Columns("NAME") + Me.columnGUID = MyBase.Columns("GUID") + Me.columnOBJECT_TYPE = MyBase.Columns("OBJECT_TYPE") + Me.columnIDXNAME_ENTITYID = MyBase.Columns("IDXNAME_ENTITYID") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnIDXNAME_PARENTID = MyBase.Columns("IDXNAME_PARENTID") + Me.columnIDXNAME_RECORDID = MyBase.Columns("IDXNAME_RECORDID") + Me.columnIDXNAME_DOCTYPE = MyBase.Columns("IDXNAME_DOCTYPE") End Sub _ Private Sub InitClass() - Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBEZEICHNUNG) - Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnNAME) - Me.columnBEZEICHNUNG.AllowDBNull = false - Me.columnBEZEICHNUNG.MaxLength = 50 - Me.columnNAME.MaxLength = 50 + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnOBJECT_TYPE = New Global.System.Data.DataColumn("OBJECT_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnOBJECT_TYPE) + Me.columnIDXNAME_ENTITYID = New Global.System.Data.DataColumn("IDXNAME_ENTITYID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDXNAME_ENTITYID) + 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.columnIDXNAME_PARENTID = New Global.System.Data.DataColumn("IDXNAME_PARENTID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDXNAME_PARENTID) + Me.columnIDXNAME_RECORDID = New Global.System.Data.DataColumn("IDXNAME_RECORDID", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDXNAME_RECORDID) + Me.columnIDXNAME_DOCTYPE = New Global.System.Data.DataColumn("IDXNAME_DOCTYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnIDXNAME_DOCTYPE) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnOBJECT_TYPE.AllowDBNull = false + Me.columnOBJECT_TYPE.MaxLength = 100 + Me.columnIDXNAME_ENTITYID.AllowDBNull = false + Me.columnIDXNAME_ENTITYID.MaxLength = 100 + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnIDXNAME_PARENTID.AllowDBNull = false + Me.columnIDXNAME_PARENTID.MaxLength = 100 + Me.columnIDXNAME_RECORDID.MaxLength = 100 + Me.columnIDXNAME_DOCTYPE.MaxLength = 100 End Sub _ - Public Function NewTBWH_DOKART_MODULERow() As TBWH_DOKART_MODULERow - Return CType(Me.NewRow,TBWH_DOKART_MODULERow) + Public Function NewTBPMO_WD_OBJECTTYPERow() As TBPMO_WD_OBJECTTYPERow + Return CType(Me.NewRow,TBPMO_WD_OBJECTTYPERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBWH_DOKART_MODULERow(builder) + Return New TBPMO_WD_OBJECTTYPERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBWH_DOKART_MODULERow) + Return GetType(TBPMO_WD_OBJECTTYPERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBWH_DOKART_MODULERowChangedEvent) Is Nothing) Then - RaiseEvent TBWH_DOKART_MODULERowChanged(Me, New TBWH_DOKART_MODULERowChangeEvent(CType(e.Row,TBWH_DOKART_MODULERow), e.Action)) + If (Not (Me.TBPMO_WD_OBJECTTYPERowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_OBJECTTYPERowChanged(Me, New TBPMO_WD_OBJECTTYPERowChangeEvent(CType(e.Row,TBPMO_WD_OBJECTTYPERow), e.Action)) End If End Sub @@ -11510,8 +11469,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBWH_DOKART_MODULERowChangingEvent) Is Nothing) Then - RaiseEvent TBWH_DOKART_MODULERowChanging(Me, New TBWH_DOKART_MODULERowChangeEvent(CType(e.Row,TBWH_DOKART_MODULERow), e.Action)) + If (Not (Me.TBPMO_WD_OBJECTTYPERowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_OBJECTTYPERowChanging(Me, New TBPMO_WD_OBJECTTYPERowChangeEvent(CType(e.Row,TBPMO_WD_OBJECTTYPERow), e.Action)) End If End Sub @@ -11519,8 +11478,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBWH_DOKART_MODULERowDeletedEvent) Is Nothing) Then - RaiseEvent TBWH_DOKART_MODULERowDeleted(Me, New TBWH_DOKART_MODULERowChangeEvent(CType(e.Row,TBWH_DOKART_MODULERow), e.Action)) + If (Not (Me.TBPMO_WD_OBJECTTYPERowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_OBJECTTYPERowDeleted(Me, New TBPMO_WD_OBJECTTYPERowChangeEvent(CType(e.Row,TBPMO_WD_OBJECTTYPERow), e.Action)) End If End Sub @@ -11528,14 +11487,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBWH_DOKART_MODULERowDeletingEvent) Is Nothing) Then - RaiseEvent TBWH_DOKART_MODULERowDeleting(Me, New TBWH_DOKART_MODULERowChangeEvent(CType(e.Row,TBWH_DOKART_MODULERow), e.Action)) + If (Not (Me.TBPMO_WD_OBJECTTYPERowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_OBJECTTYPERowDeleting(Me, New TBPMO_WD_OBJECTTYPERowChangeEvent(CType(e.Row,TBPMO_WD_OBJECTTYPERow), e.Action)) End If End Sub _ - Public Sub RemoveTBWH_DOKART_MODULERow(ByVal row As TBWH_DOKART_MODULERow) + Public Sub RemoveTBPMO_WD_OBJECTTYPERow(ByVal row As TBPMO_WD_OBJECTTYPERow) Me.Rows.Remove(row) End Sub @@ -11562,7 +11521,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBWH_DOKART_MODULEDataTable" + attribute2.FixedValue = "TBPMO_WD_OBJECTTYPEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -11611,34 +11570,26 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBPMO_FORM_CONSTRUCTORDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTORRow) + Partial Public Class TBPMO_FILES_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FILES_USERRow) Private columnGUID As Global.System.Data.DataColumn - Private columnFORM_TITLE As Global.System.Data.DataColumn - - Private columnSEQUENCE_MENU 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 columnFILENAME2WORK As Global.System.Data.DataColumn - Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnUSER_WORK As Global.System.Data.DataColumn - Private columnMENU_IMG As Global.System.Data.DataColumn + Private columnHANDLE_TYPE As Global.System.Data.DataColumn - Private columnSHORT_TITLE As Global.System.Data.DataColumn + Private columnWORKED As Global.System.Data.DataColumn - Private columnLANGUAGE As Global.System.Data.DataColumn + Private columnADDED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBPMO_FORM_CONSTRUCTOR" + Me.TableName = "TBPMO_FILES_USER" Me.BeginInit Me.InitClass Me.EndInit @@ -11679,73 +11630,41 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFORM_TITLE - End Get - End Property - - _ - Public ReadOnly Property SEQUENCE_MENUColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSEQUENCE_MENU - 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 + Public ReadOnly Property FILENAME2WORKColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHO + Return Me.columnFILENAME2WORK End Get End Property _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USER_WORKColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHEN + Return Me.columnUSER_WORK End Get End Property _ - Public ReadOnly Property MENU_IMGColumn() As Global.System.Data.DataColumn + Public ReadOnly Property HANDLE_TYPEColumn() As Global.System.Data.DataColumn Get - Return Me.columnMENU_IMG + Return Me.columnHANDLE_TYPE End Get End Property _ - Public ReadOnly Property SHORT_TITLEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property WORKEDColumn() As Global.System.Data.DataColumn Get - Return Me.columnSHORT_TITLE + Return Me.columnWORKED End Get End Property _ - Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnLANGUAGE + Return Me.columnADDED_WHEN End Get End Property @@ -11760,50 +11679,50 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTORRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FILES_USERRow Get - Return CType(Me.Rows(index),TBPMO_FORM_CONSTRUCTORRow) + Return CType(Me.Rows(index),TBPMO_FILES_USERRow) End Get End Property _ - Public Event TBPMO_FORM_CONSTRUCTORRowChanging As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler + Public Event TBPMO_FILES_USERRowChanging As TBPMO_FILES_USERRowChangeEventHandler _ - Public Event TBPMO_FORM_CONSTRUCTORRowChanged As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler + Public Event TBPMO_FILES_USERRowChanged As TBPMO_FILES_USERRowChangeEventHandler _ - Public Event TBPMO_FORM_CONSTRUCTORRowDeleting As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler + Public Event TBPMO_FILES_USERRowDeleting As TBPMO_FILES_USERRowChangeEventHandler _ - Public Event TBPMO_FORM_CONSTRUCTORRowDeleted As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler + Public Event TBPMO_FILES_USERRowDeleted As TBPMO_FILES_USERRowChangeEventHandler _ - Public Overloads Sub AddTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) + Public Overloads Sub AddTBPMO_FILES_USERRow(ByVal row As TBPMO_FILES_USERRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPMO_FORM_CONSTRUCTORRow(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String) As TBPMO_FORM_CONSTRUCTORRow - Dim rowTBPMO_FORM_CONSTRUCTORRow As TBPMO_FORM_CONSTRUCTORRow = CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow) - Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE, LANGUAGE} - rowTBPMO_FORM_CONSTRUCTORRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTORRow) - Return rowTBPMO_FORM_CONSTRUCTORRow + Public Overloads Function AddTBPMO_FILES_USERRow(ByVal FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date) As TBPMO_FILES_USERRow + Dim rowTBPMO_FILES_USERRow As TBPMO_FILES_USERRow = CType(Me.NewRow,TBPMO_FILES_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN} + rowTBPMO_FILES_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FILES_USERRow) + Return rowTBPMO_FILES_USERRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTORRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_CONSTRUCTORRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FILES_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FILES_USERRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_FORM_CONSTRUCTORDataTable = CType(MyBase.Clone,TBPMO_FORM_CONSTRUCTORDataTable) + Dim cln As TBPMO_FILES_USERDataTable = CType(MyBase.Clone,TBPMO_FILES_USERDataTable) cln.InitVars Return cln End Function @@ -11811,22 +11730,18 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPMO_FORM_CONSTRUCTORDataTable() + Return New TBPMO_FILES_USERDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") - Me.columnSEQUENCE_MENU = MyBase.Columns("SEQUENCE_MENU") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnFILENAME2WORK = MyBase.Columns("FILENAME2WORK") + Me.columnUSER_WORK = MyBase.Columns("USER_WORK") + Me.columnHANDLE_TYPE = MyBase.Columns("HANDLE_TYPE") + Me.columnWORKED = MyBase.Columns("WORKED") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnMENU_IMG = MyBase.Columns("MENU_IMG") - Me.columnSHORT_TITLE = MyBase.Columns("SHORT_TITLE") - Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") End Sub _ - Public Function NewTBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow - Return CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow) + Public Function NewTBPMO_FILES_USERRow() As TBPMO_FILES_USERRow + Return CType(Me.NewRow,TBPMO_FILES_USERRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPMO_FORM_CONSTRUCTORRow(builder) + Return New TBPMO_FILES_USERRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPMO_FORM_CONSTRUCTORRow) + Return GetType(TBPMO_FILES_USERRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanged(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) + If (Not (Me.TBPMO_FILES_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FILES_USERRowChanged(Me, New TBPMO_FILES_USERRowChangeEvent(CType(e.Row,TBPMO_FILES_USERRow), e.Action)) End If End Sub @@ -11899,8 +11807,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanging(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) + If (Not (Me.TBPMO_FILES_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FILES_USERRowChanging(Me, New TBPMO_FILES_USERRowChangeEvent(CType(e.Row,TBPMO_FILES_USERRow), e.Action)) End If End Sub @@ -11908,8 +11816,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleted(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) + If (Not (Me.TBPMO_FILES_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FILES_USERRowDeleted(Me, New TBPMO_FILES_USERRowChangeEvent(CType(e.Row,TBPMO_FILES_USERRow), e.Action)) End If End Sub @@ -11917,14 +11825,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPMO_FORM_CONSTRUCTORRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleting(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) + If (Not (Me.TBPMO_FILES_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FILES_USERRowDeleting(Me, New TBPMO_FILES_USERRowChangeEvent(CType(e.Row,TBPMO_FILES_USERRow), e.Action)) End If End Sub _ - Public Sub RemoveTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) + Public Sub RemoveTBPMO_FILES_USERRow(ByVal row As TBPMO_FILES_USERRow) Me.Rows.Remove(row) End Sub @@ -11951,7 +11859,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPMO_FORM_CONSTRUCTORDataTable" + attribute2.FixedValue = "TBPMO_FILES_USERDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -12000,14 +11908,40 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBPMO_WD_OBJECTTYPEDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_OBJECTTYPERow) + Partial Public Class TBPMO_FOLLOW_UP_EMAILDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FOLLOW_UP_EMAILRow) Private columnGUID As Global.System.Data.DataColumn - Private columnOBJECT_TYPE As Global.System.Data.DataColumn + Private columnFOLLOW_UP_SEQUENCE As Global.System.Data.DataColumn - Private columnIDXNAME_ENTITYID As Global.System.Data.DataColumn + Private columnFOLLOW_UP_DAYS As Global.System.Data.DataColumn + + Private columnFOLLOW_UP_TIME_SPAN As Global.System.Data.DataColumn + + Private columnDEPENDENT_DATE_CTRL_ID As Global.System.Data.DataColumn + + Private columnDEPENDENT_DONE_CTRL_ID As Global.System.Data.DataColumn + + Private columnPARENT_ID As Global.System.Data.DataColumn + + Private columnTIME_UNITY As Global.System.Data.DataColumn + + Private columnTIME_SPAN As Global.System.Data.DataColumn + + Private columnEMAIL_SUBJECT As Global.System.Data.DataColumn + + Private columnEMAIL_BODY As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT1 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT2 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT3 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT4 As Global.System.Data.DataColumn + + Private columnACTIVE As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn @@ -12017,17 +11951,29 @@ Partial Public Class DD_DMSDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnIDXNAME_PARENTID As Global.System.Data.DataColumn + Private columnTIME_DIST As Global.System.Data.DataColumn - Private columnIDXNAME_RECORDID As Global.System.Data.DataColumn + Private columnPROCESS_SELECT5 As Global.System.Data.DataColumn - Private columnIDXNAME_DOCTYPE As Global.System.Data.DataColumn + Private columnPROCESS_SELECT6 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT7 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT8 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT9 As Global.System.Data.DataColumn + + Private columnPROCESS_SELECT10 As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn + + Private columnCONSTRUCTOR_ID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBPMO_WD_OBJECTTYPE" + Me.TableName = "TBPMO_FOLLOW_UP_EMAIL" Me.BeginInit Me.InitClass Me.EndInit @@ -12068,17 +12014,121 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property OBJECT_TYPEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property FOLLOW_UP_SEQUENCEColumn() As Global.System.Data.DataColumn Get - Return Me.columnOBJECT_TYPE + Return Me.columnFOLLOW_UP_SEQUENCE End Get End Property _ - Public ReadOnly Property IDXNAME_ENTITYIDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property FOLLOW_UP_DAYSColumn() As Global.System.Data.DataColumn Get - Return Me.columnIDXNAME_ENTITYID + Return Me.columnFOLLOW_UP_DAYS + End Get + End Property + + _ + Public ReadOnly Property FOLLOW_UP_TIME_SPANColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFOLLOW_UP_TIME_SPAN + End Get + End Property + + _ + Public ReadOnly Property DEPENDENT_DATE_CTRL_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDEPENDENT_DATE_CTRL_ID + End Get + End Property + + _ + Public ReadOnly Property DEPENDENT_DONE_CTRL_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDEPENDENT_DONE_CTRL_ID + End Get + End Property + + _ + Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPARENT_ID + End Get + End Property + + _ + Public ReadOnly Property TIME_UNITYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTIME_UNITY + End Get + End Property + + _ + Public ReadOnly Property TIME_SPANColumn() As Global.System.Data.DataColumn + Get + Return Me.columnTIME_SPAN + End Get + End Property + + _ + Public ReadOnly Property EMAIL_SUBJECTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_SUBJECT + End Get + End Property + + _ + Public ReadOnly Property EMAIL_BODYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEMAIL_BODY + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT1Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT1 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT2Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT2 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT3Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT3 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT4Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT4 + End Get + End Property + + _ + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnACTIVE End Get End Property @@ -12116,25 +12166,73 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property IDXNAME_PARENTIDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property TIME_DISTColumn() As Global.System.Data.DataColumn Get - Return Me.columnIDXNAME_PARENTID + Return Me.columnTIME_DIST End Get End Property _ - Public ReadOnly Property IDXNAME_RECORDIDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PROCESS_SELECT5Column() As Global.System.Data.DataColumn Get - Return Me.columnIDXNAME_RECORDID + Return Me.columnPROCESS_SELECT5 End Get End Property _ - Public ReadOnly Property IDXNAME_DOCTYPEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PROCESS_SELECT6Column() As Global.System.Data.DataColumn Get - Return Me.columnIDXNAME_DOCTYPE + Return Me.columnPROCESS_SELECT6 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT7Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT7 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT8Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT8 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT9Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT9 + End Get + End Property + + _ + Public ReadOnly Property PROCESS_SELECT10Column() As Global.System.Data.DataColumn + Get + Return Me.columnPROCESS_SELECT10 + End Get + End Property + + _ + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnNAME + End Get + End Property + + _ + Public ReadOnly Property CONSTRUCTOR_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONSTRUCTOR_ID End Get End Property @@ -12149,50 +12247,84 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_WD_OBJECTTYPERow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FOLLOW_UP_EMAILRow Get - Return CType(Me.Rows(index),TBPMO_WD_OBJECTTYPERow) + Return CType(Me.Rows(index),TBPMO_FOLLOW_UP_EMAILRow) End Get End Property _ - Public Event TBPMO_WD_OBJECTTYPERowChanging As TBPMO_WD_OBJECTTYPERowChangeEventHandler + Public Event TBPMO_FOLLOW_UP_EMAILRowChanging As TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler _ - Public Event TBPMO_WD_OBJECTTYPERowChanged As TBPMO_WD_OBJECTTYPERowChangeEventHandler + Public Event TBPMO_FOLLOW_UP_EMAILRowChanged As TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler _ - Public Event TBPMO_WD_OBJECTTYPERowDeleting As TBPMO_WD_OBJECTTYPERowChangeEventHandler + Public Event TBPMO_FOLLOW_UP_EMAILRowDeleting As TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler _ - Public Event TBPMO_WD_OBJECTTYPERowDeleted As TBPMO_WD_OBJECTTYPERowChangeEventHandler + Public Event TBPMO_FOLLOW_UP_EMAILRowDeleted As TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler _ - Public Overloads Sub AddTBPMO_WD_OBJECTTYPERow(ByVal row As TBPMO_WD_OBJECTTYPERow) + Public Overloads Sub AddTBPMO_FOLLOW_UP_EMAILRow(ByVal row As TBPMO_FOLLOW_UP_EMAILRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPMO_WD_OBJECTTYPERow(ByVal OBJECT_TYPE As String, ByVal IDXNAME_ENTITYID As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal IDXNAME_PARENTID As String, ByVal IDXNAME_RECORDID As String, ByVal IDXNAME_DOCTYPE As String) As TBPMO_WD_OBJECTTYPERow - Dim rowTBPMO_WD_OBJECTTYPERow As TBPMO_WD_OBJECTTYPERow = CType(Me.NewRow,TBPMO_WD_OBJECTTYPERow) - Dim columnValuesArray() As Object = New Object() {Nothing, OBJECT_TYPE, IDXNAME_ENTITYID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, IDXNAME_PARENTID, IDXNAME_RECORDID, IDXNAME_DOCTYPE} - rowTBPMO_WD_OBJECTTYPERow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPMO_WD_OBJECTTYPERow) - Return rowTBPMO_WD_OBJECTTYPERow + Public Overloads Function AddTBPMO_FOLLOW_UP_EMAILRow( _ + ByVal FOLLOW_UP_SEQUENCE As String, _ + ByVal FOLLOW_UP_DAYS As String, _ + ByVal FOLLOW_UP_TIME_SPAN As String, _ + ByVal parentTBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID As TBTEMP_QUICKDISPLAYRow, _ + ByVal parentTBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID As TBTEMP_QUICKDISPLAYRow, _ + ByVal PARENT_ID As Integer, _ + ByVal TIME_UNITY As String, _ + ByVal TIME_SPAN As Integer, _ + ByVal EMAIL_SUBJECT As String, _ + ByVal EMAIL_BODY As String, _ + ByVal PROCESS_SELECT1 As String, _ + ByVal PROCESS_SELECT2 As String, _ + ByVal PROCESS_SELECT3 As String, _ + ByVal PROCESS_SELECT4 As String, _ + ByVal ACTIVE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal TIME_DIST As String, _ + ByVal PROCESS_SELECT5 As String, _ + ByVal PROCESS_SELECT6 As String, _ + ByVal PROCESS_SELECT7 As String, _ + ByVal PROCESS_SELECT8 As String, _ + ByVal PROCESS_SELECT9 As String, _ + ByVal PROCESS_SELECT10 As String, _ + ByVal NAME As String, _ + ByVal CONSTRUCTOR_ID As Integer) As TBPMO_FOLLOW_UP_EMAILRow + Dim rowTBPMO_FOLLOW_UP_EMAILRow As TBPMO_FOLLOW_UP_EMAILRow = CType(Me.NewRow,TBPMO_FOLLOW_UP_EMAILRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, Nothing, Nothing, PARENT_ID, TIME_UNITY, TIME_SPAN, EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TIME_DIST, PROCESS_SELECT5, PROCESS_SELECT6, PROCESS_SELECT7, PROCESS_SELECT8, PROCESS_SELECT9, PROCESS_SELECT10, NAME, CONSTRUCTOR_ID} + If (Not (parentTBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID) Is Nothing) Then + columnValuesArray(4) = parentTBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID(0) + End If + If (Not (parentTBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID) Is Nothing) Then + columnValuesArray(5) = parentTBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID(0) + End If + rowTBPMO_FOLLOW_UP_EMAILRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FOLLOW_UP_EMAILRow) + Return rowTBPMO_FOLLOW_UP_EMAILRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_OBJECTTYPERow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_OBJECTTYPERow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FOLLOW_UP_EMAILRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FOLLOW_UP_EMAILRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_WD_OBJECTTYPEDataTable = CType(MyBase.Clone,TBPMO_WD_OBJECTTYPEDataTable) + Dim cln As TBPMO_FOLLOW_UP_EMAILDataTable = CType(MyBase.Clone,TBPMO_FOLLOW_UP_EMAILDataTable) cln.InitVars Return cln End Function @@ -12200,22 +12332,41 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPMO_WD_OBJECTTYPEDataTable() + Return New TBPMO_FOLLOW_UP_EMAILDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnOBJECT_TYPE = MyBase.Columns("OBJECT_TYPE") - Me.columnIDXNAME_ENTITYID = MyBase.Columns("IDXNAME_ENTITYID") + Me.columnFOLLOW_UP_SEQUENCE = MyBase.Columns("FOLLOW_UP_SEQUENCE") + Me.columnFOLLOW_UP_DAYS = MyBase.Columns("FOLLOW_UP_DAYS") + Me.columnFOLLOW_UP_TIME_SPAN = MyBase.Columns("FOLLOW_UP_TIME_SPAN") + Me.columnDEPENDENT_DATE_CTRL_ID = MyBase.Columns("DEPENDENT_DATE_CTRL_ID") + Me.columnDEPENDENT_DONE_CTRL_ID = MyBase.Columns("DEPENDENT_DONE_CTRL_ID") + Me.columnPARENT_ID = MyBase.Columns("PARENT_ID") + Me.columnTIME_UNITY = MyBase.Columns("TIME_UNITY") + Me.columnTIME_SPAN = MyBase.Columns("TIME_SPAN") + Me.columnEMAIL_SUBJECT = MyBase.Columns("EMAIL_SUBJECT") + Me.columnEMAIL_BODY = MyBase.Columns("EMAIL_BODY") + Me.columnPROCESS_SELECT1 = MyBase.Columns("PROCESS_SELECT1") + Me.columnPROCESS_SELECT2 = MyBase.Columns("PROCESS_SELECT2") + Me.columnPROCESS_SELECT3 = MyBase.Columns("PROCESS_SELECT3") + Me.columnPROCESS_SELECT4 = MyBase.Columns("PROCESS_SELECT4") + Me.columnACTIVE = MyBase.Columns("ACTIVE") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnIDXNAME_PARENTID = MyBase.Columns("IDXNAME_PARENTID") - Me.columnIDXNAME_RECORDID = MyBase.Columns("IDXNAME_RECORDID") - Me.columnIDXNAME_DOCTYPE = MyBase.Columns("IDXNAME_DOCTYPE") + Me.columnTIME_DIST = MyBase.Columns("TIME_DIST") + Me.columnPROCESS_SELECT5 = MyBase.Columns("PROCESS_SELECT5") + Me.columnPROCESS_SELECT6 = MyBase.Columns("PROCESS_SELECT6") + Me.columnPROCESS_SELECT7 = MyBase.Columns("PROCESS_SELECT7") + Me.columnPROCESS_SELECT8 = MyBase.Columns("PROCESS_SELECT8") + Me.columnPROCESS_SELECT9 = MyBase.Columns("PROCESS_SELECT9") + Me.columnPROCESS_SELECT10 = MyBase.Columns("PROCESS_SELECT10") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnCONSTRUCTOR_ID = MyBase.Columns("CONSTRUCTOR_ID") End Sub _ - Public Function NewTBPMO_WD_OBJECTTYPERow() As TBPMO_WD_OBJECTTYPERow - Return CType(Me.NewRow,TBPMO_WD_OBJECTTYPERow) + Public Function NewTBPMO_FOLLOW_UP_EMAILRow() As TBPMO_FOLLOW_UP_EMAILRow + Return CType(Me.NewRow,TBPMO_FOLLOW_UP_EMAILRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPMO_WD_OBJECTTYPERow(builder) + Return New TBPMO_FOLLOW_UP_EMAILRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPMO_WD_OBJECTTYPERow) + Return GetType(TBPMO_FOLLOW_UP_EMAILRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPMO_WD_OBJECTTYPERowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_WD_OBJECTTYPERowChanged(Me, New TBPMO_WD_OBJECTTYPERowChangeEvent(CType(e.Row,TBPMO_WD_OBJECTTYPERow), e.Action)) + If (Not (Me.TBPMO_FOLLOW_UP_EMAILRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLOW_UP_EMAILRowChanged(Me, New TBPMO_FOLLOW_UP_EMAILRowChangeEvent(CType(e.Row,TBPMO_FOLLOW_UP_EMAILRow), e.Action)) End If End Sub @@ -12289,8 +12526,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPMO_WD_OBJECTTYPERowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_WD_OBJECTTYPERowChanging(Me, New TBPMO_WD_OBJECTTYPERowChangeEvent(CType(e.Row,TBPMO_WD_OBJECTTYPERow), e.Action)) + If (Not (Me.TBPMO_FOLLOW_UP_EMAILRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLOW_UP_EMAILRowChanging(Me, New TBPMO_FOLLOW_UP_EMAILRowChangeEvent(CType(e.Row,TBPMO_FOLLOW_UP_EMAILRow), e.Action)) End If End Sub @@ -12298,8 +12535,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPMO_WD_OBJECTTYPERowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_WD_OBJECTTYPERowDeleted(Me, New TBPMO_WD_OBJECTTYPERowChangeEvent(CType(e.Row,TBPMO_WD_OBJECTTYPERow), e.Action)) + If (Not (Me.TBPMO_FOLLOW_UP_EMAILRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLOW_UP_EMAILRowDeleted(Me, New TBPMO_FOLLOW_UP_EMAILRowChangeEvent(CType(e.Row,TBPMO_FOLLOW_UP_EMAILRow), e.Action)) End If End Sub @@ -12307,14 +12544,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPMO_WD_OBJECTTYPERowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_WD_OBJECTTYPERowDeleting(Me, New TBPMO_WD_OBJECTTYPERowChangeEvent(CType(e.Row,TBPMO_WD_OBJECTTYPERow), e.Action)) + If (Not (Me.TBPMO_FOLLOW_UP_EMAILRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLOW_UP_EMAILRowDeleting(Me, New TBPMO_FOLLOW_UP_EMAILRowChangeEvent(CType(e.Row,TBPMO_FOLLOW_UP_EMAILRow), e.Action)) End If End Sub _ - Public Sub RemoveTBPMO_WD_OBJECTTYPERow(ByVal row As TBPMO_WD_OBJECTTYPERow) + Public Sub RemoveTBPMO_FOLLOW_UP_EMAILRow(ByVal row As TBPMO_FOLLOW_UP_EMAILRow) Me.Rows.Remove(row) End Sub @@ -12341,7 +12578,7 @@ Partial Public Class DD_DMSDataSet 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_OBJECTTYPEDataTable" + attribute2.FixedValue = "TBPMO_FOLLOW_UP_EMAILDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -12390,26 +12627,28 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBPMO_FILES_USERDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPMO_FILES_USERRow) + Partial Public Class TBPMO_FOLLUPEMAIL_USERDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FOLLUPEMAIL_USERRow) Private columnGUID As Global.System.Data.DataColumn - Private columnFILENAME2WORK As Global.System.Data.DataColumn - - Private columnUSER_WORK As Global.System.Data.DataColumn + Private columnUSER_ID As Global.System.Data.DataColumn - Private columnHANDLE_TYPE As Global.System.Data.DataColumn + Private columnFOLLOW_UP_ID As Global.System.Data.DataColumn - Private columnWORKED 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_FILES_USER" + Me.TableName = "TBPMO_FOLLUPEMAIL_USER" Me.BeginInit Me.InitClass Me.EndInit @@ -12450,41 +12689,49 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property FILENAME2WORKColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnFILENAME2WORK + Return Me.columnUSER_ID End Get End Property _ - Public ReadOnly Property USER_WORKColumn() As Global.System.Data.DataColumn + Public ReadOnly Property FOLLOW_UP_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSER_WORK + Return Me.columnFOLLOW_UP_ID End Get End Property _ - Public ReadOnly Property HANDLE_TYPEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnHANDLE_TYPE + Return Me.columnADDED_WHO End Get End Property _ - Public ReadOnly Property WORKEDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnWORKED + Return Me.columnADDED_WHEN End Get End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHEN + 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 @@ -12499,50 +12746,53 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FILES_USERRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FOLLUPEMAIL_USERRow Get - Return CType(Me.Rows(index),TBPMO_FILES_USERRow) + Return CType(Me.Rows(index),TBPMO_FOLLUPEMAIL_USERRow) End Get End Property _ - Public Event TBPMO_FILES_USERRowChanging As TBPMO_FILES_USERRowChangeEventHandler + Public Event TBPMO_FOLLUPEMAIL_USERRowChanging As TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler _ - Public Event TBPMO_FILES_USERRowChanged As TBPMO_FILES_USERRowChangeEventHandler + Public Event TBPMO_FOLLUPEMAIL_USERRowChanged As TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler _ - Public Event TBPMO_FILES_USERRowDeleting As TBPMO_FILES_USERRowChangeEventHandler + Public Event TBPMO_FOLLUPEMAIL_USERRowDeleting As TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler _ - Public Event TBPMO_FILES_USERRowDeleted As TBPMO_FILES_USERRowChangeEventHandler + Public Event TBPMO_FOLLUPEMAIL_USERRowDeleted As TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler _ - Public Overloads Sub AddTBPMO_FILES_USERRow(ByVal row As TBPMO_FILES_USERRow) + Public Overloads Sub AddTBPMO_FOLLUPEMAIL_USERRow(ByVal row As TBPMO_FOLLUPEMAIL_USERRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPMO_FILES_USERRow(ByVal FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date) As TBPMO_FILES_USERRow - Dim rowTBPMO_FILES_USERRow As TBPMO_FILES_USERRow = CType(Me.NewRow,TBPMO_FILES_USERRow) - Dim columnValuesArray() As Object = New Object() {Nothing, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN} - rowTBPMO_FILES_USERRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPMO_FILES_USERRow) - Return rowTBPMO_FILES_USERRow + Public Overloads Function AddTBPMO_FOLLUPEMAIL_USERRow(ByVal USER_ID As Integer, ByVal parentTBDD_USERRowByFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID As TBDD_USERRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_FOLLUPEMAIL_USERRow + Dim rowTBPMO_FOLLUPEMAIL_USERRow As TBPMO_FOLLUPEMAIL_USERRow = CType(Me.NewRow,TBPMO_FOLLUPEMAIL_USERRow) + Dim columnValuesArray() As Object = New Object() {Nothing, USER_ID, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBDD_USERRowByFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_USERRowByFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID(0) + End If + rowTBPMO_FOLLUPEMAIL_USERRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FOLLUPEMAIL_USERRow) + Return rowTBPMO_FOLLUPEMAIL_USERRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FILES_USERRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FILES_USERRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FOLLUPEMAIL_USERRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FOLLUPEMAIL_USERRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_FILES_USERDataTable = CType(MyBase.Clone,TBPMO_FILES_USERDataTable) + Dim cln As TBPMO_FOLLUPEMAIL_USERDataTable = CType(MyBase.Clone,TBPMO_FOLLUPEMAIL_USERDataTable) cln.InitVars Return cln End Function @@ -12550,18 +12800,19 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPMO_FILES_USERDataTable() + Return New TBPMO_FOLLUPEMAIL_USERDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnFILENAME2WORK = MyBase.Columns("FILENAME2WORK") - Me.columnUSER_WORK = MyBase.Columns("USER_WORK") - Me.columnHANDLE_TYPE = MyBase.Columns("HANDLE_TYPE") - Me.columnWORKED = MyBase.Columns("WORKED") + Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnFOLLOW_UP_ID = MyBase.Columns("FOLLOW_UP_ID") + 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 _ - Public Function NewTBPMO_FILES_USERRow() As TBPMO_FILES_USERRow - Return CType(Me.NewRow,TBPMO_FILES_USERRow) + Public Function NewTBPMO_FOLLUPEMAIL_USERRow() As TBPMO_FOLLUPEMAIL_USERRow + Return CType(Me.NewRow,TBPMO_FOLLUPEMAIL_USERRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPMO_FILES_USERRow(builder) + Return New TBPMO_FOLLUPEMAIL_USERRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPMO_FILES_USERRow) + Return GetType(TBPMO_FOLLUPEMAIL_USERRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPMO_FILES_USERRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_FILES_USERRowChanged(Me, New TBPMO_FILES_USERRowChangeEvent(CType(e.Row,TBPMO_FILES_USERRow), e.Action)) + If (Not (Me.TBPMO_FOLLUPEMAIL_USERRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLUPEMAIL_USERRowChanged(Me, New TBPMO_FOLLUPEMAIL_USERRowChangeEvent(CType(e.Row,TBPMO_FOLLUPEMAIL_USERRow), e.Action)) End If End Sub @@ -12627,8 +12875,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPMO_FILES_USERRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_FILES_USERRowChanging(Me, New TBPMO_FILES_USERRowChangeEvent(CType(e.Row,TBPMO_FILES_USERRow), e.Action)) + If (Not (Me.TBPMO_FOLLUPEMAIL_USERRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLUPEMAIL_USERRowChanging(Me, New TBPMO_FOLLUPEMAIL_USERRowChangeEvent(CType(e.Row,TBPMO_FOLLUPEMAIL_USERRow), e.Action)) End If End Sub @@ -12636,8 +12884,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPMO_FILES_USERRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_FILES_USERRowDeleted(Me, New TBPMO_FILES_USERRowChangeEvent(CType(e.Row,TBPMO_FILES_USERRow), e.Action)) + If (Not (Me.TBPMO_FOLLUPEMAIL_USERRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLUPEMAIL_USERRowDeleted(Me, New TBPMO_FOLLUPEMAIL_USERRowChangeEvent(CType(e.Row,TBPMO_FOLLUPEMAIL_USERRow), e.Action)) End If End Sub @@ -12645,14 +12893,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPMO_FILES_USERRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_FILES_USERRowDeleting(Me, New TBPMO_FILES_USERRowChangeEvent(CType(e.Row,TBPMO_FILES_USERRow), e.Action)) + If (Not (Me.TBPMO_FOLLUPEMAIL_USERRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FOLLUPEMAIL_USERRowDeleting(Me, New TBPMO_FOLLUPEMAIL_USERRowChangeEvent(CType(e.Row,TBPMO_FOLLUPEMAIL_USERRow), e.Action)) End If End Sub _ - Public Sub RemoveTBPMO_FILES_USERRow(ByVal row As TBPMO_FILES_USERRow) + Public Sub RemoveTBPMO_FOLLUPEMAIL_USERRow(ByVal row As TBPMO_FOLLUPEMAIL_USERRow) Me.Rows.Remove(row) End Sub @@ -12679,7 +12927,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPMO_FILES_USERDataTable" + attribute2.FixedValue = "TBPMO_FOLLUPEMAIL_USERDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -12728,42 +12976,16 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBPMO_FOLLOW_UP_EMAILDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPMO_FOLLOW_UP_EMAILRow) + Partial Public Class TBPMO_RECORD_LOG_CONFIGDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_RECORD_LOG_CONFIGRow) Private columnGUID As Global.System.Data.DataColumn - Private columnFOLLOW_UP_SEQUENCE As Global.System.Data.DataColumn - - Private columnFOLLOW_UP_DAYS As Global.System.Data.DataColumn - - Private columnFOLLOW_UP_TIME_SPAN As Global.System.Data.DataColumn - - Private columnDEPENDENT_DATE_CTRL_ID As Global.System.Data.DataColumn - - Private columnDEPENDENT_DONE_CTRL_ID As Global.System.Data.DataColumn - - Private columnPARENT_ID As Global.System.Data.DataColumn - - Private columnTIME_UNITY As Global.System.Data.DataColumn - - Private columnTIME_SPAN As Global.System.Data.DataColumn - - Private columnEMAIL_SUBJECT As Global.System.Data.DataColumn - - Private columnEMAIL_BODY As Global.System.Data.DataColumn - - Private columnPROCESS_SELECT1 As Global.System.Data.DataColumn - - Private columnPROCESS_SELECT2 As Global.System.Data.DataColumn - - Private columnPROCESS_SELECT3 As Global.System.Data.DataColumn - - Private columnPROCESS_SELECT4 As Global.System.Data.DataColumn + Private columnCONTROL_ID As Global.System.Data.DataColumn - Private columnACTIVE As Global.System.Data.DataColumn + Private columnLOG_DELETE As Global.System.Data.DataColumn - Private columnADDED_WHO As Global.System.Data.DataColumn + Private columnLOG_UPDATE As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn @@ -12771,29 +12993,19 @@ Partial Public Class DD_DMSDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnTIME_DIST As Global.System.Data.DataColumn - - Private columnPROCESS_SELECT5 As Global.System.Data.DataColumn - - Private columnPROCESS_SELECT6 As Global.System.Data.DataColumn - - Private columnPROCESS_SELECT7 As Global.System.Data.DataColumn - - Private columnPROCESS_SELECT8 As Global.System.Data.DataColumn - - Private columnPROCESS_SELECT9 As Global.System.Data.DataColumn - - Private columnPROCESS_SELECT10 As Global.System.Data.DataColumn + Private columnFORM_ID As Global.System.Data.DataColumn Private columnNAME As Global.System.Data.DataColumn - Private columnCONSTRUCTOR_ID As Global.System.Data.DataColumn + Private columnFORM_ID1 As Global.System.Data.DataColumn + + Private columnString As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBPMO_FOLLOW_UP_EMAIL" + Me.TableName = "TBPMO_RECORD_LOG_CONFIG" Me.BeginInit Me.InitClass Me.EndInit @@ -12834,129 +13046,25 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property FOLLOW_UP_SEQUENCEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFOLLOW_UP_SEQUENCE - End Get - End Property - - _ - Public ReadOnly Property FOLLOW_UP_DAYSColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFOLLOW_UP_DAYS - End Get - End Property - - _ - Public ReadOnly Property FOLLOW_UP_TIME_SPANColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFOLLOW_UP_TIME_SPAN - End Get - End Property - - _ - Public ReadOnly Property DEPENDENT_DATE_CTRL_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnDEPENDENT_DATE_CTRL_ID - End Get - End Property - - _ - Public ReadOnly Property DEPENDENT_DONE_CTRL_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnDEPENDENT_DONE_CTRL_ID - End Get - End Property - - _ - Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPARENT_ID - End Get - End Property - - _ - Public ReadOnly Property TIME_UNITYColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTIME_UNITY - End Get - End Property - - _ - Public ReadOnly Property TIME_SPANColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTIME_SPAN - End Get - End Property - - _ - Public ReadOnly Property EMAIL_SUBJECTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEMAIL_SUBJECT - End Get - End Property - - _ - Public ReadOnly Property EMAIL_BODYColumn() As Global.System.Data.DataColumn - Get - Return Me.columnEMAIL_BODY - End Get - End Property - - _ - Public ReadOnly Property PROCESS_SELECT1Column() As Global.System.Data.DataColumn - Get - Return Me.columnPROCESS_SELECT1 - End Get - End Property - - _ - Public ReadOnly Property PROCESS_SELECT2Column() As Global.System.Data.DataColumn - Get - Return Me.columnPROCESS_SELECT2 - End Get - End Property - - _ - Public ReadOnly Property PROCESS_SELECT3Column() As Global.System.Data.DataColumn - Get - Return Me.columnPROCESS_SELECT3 - End Get - End Property - - _ - Public ReadOnly Property PROCESS_SELECT4Column() As Global.System.Data.DataColumn + Public ReadOnly Property CONTROL_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnPROCESS_SELECT4 + Return Me.columnCONTROL_ID End Get End Property _ - Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property LOG_DELETEColumn() As Global.System.Data.DataColumn Get - Return Me.columnACTIVE + Return Me.columnLOG_DELETE End Get End Property _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property LOG_UPDATEColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHO + Return Me.columnLOG_UPDATE End Get End Property @@ -12986,73 +13094,33 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property TIME_DISTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTIME_DIST - End Get - End Property - - _ - Public ReadOnly Property PROCESS_SELECT5Column() As Global.System.Data.DataColumn - Get - Return Me.columnPROCESS_SELECT5 - End Get - End Property - - _ - Public ReadOnly Property PROCESS_SELECT6Column() As Global.System.Data.DataColumn - Get - Return Me.columnPROCESS_SELECT6 - End Get - End Property - - _ - Public ReadOnly Property PROCESS_SELECT7Column() As Global.System.Data.DataColumn - Get - Return Me.columnPROCESS_SELECT7 - End Get - End Property - - _ - Public ReadOnly Property PROCESS_SELECT8Column() As Global.System.Data.DataColumn - Get - Return Me.columnPROCESS_SELECT8 - End Get - End Property - - _ - Public ReadOnly Property PROCESS_SELECT9Column() As Global.System.Data.DataColumn + Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnPROCESS_SELECT9 + Return Me.columnFORM_ID End Get End Property _ - Public ReadOnly Property PROCESS_SELECT10Column() As Global.System.Data.DataColumn + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnPROCESS_SELECT10 + Return Me.columnNAME End Get End Property _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property FORM_ID1Column() As Global.System.Data.DataColumn Get - Return Me.columnNAME + Return Me.columnFORM_ID1 End Get End Property _ - Public ReadOnly Property CONSTRUCTOR_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn Get - Return Me.columnCONSTRUCTOR_ID + Return Me.columnString End Get End Property @@ -13067,84 +13135,50 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FOLLOW_UP_EMAILRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_RECORD_LOG_CONFIGRow Get - Return CType(Me.Rows(index),TBPMO_FOLLOW_UP_EMAILRow) + Return CType(Me.Rows(index),TBPMO_RECORD_LOG_CONFIGRow) End Get End Property _ - Public Event TBPMO_FOLLOW_UP_EMAILRowChanging As TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler + Public Event TBPMO_RECORD_LOG_CONFIGRowChanging As TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler _ - Public Event TBPMO_FOLLOW_UP_EMAILRowChanged As TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler + Public Event TBPMO_RECORD_LOG_CONFIGRowChanged As TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler _ - Public Event TBPMO_FOLLOW_UP_EMAILRowDeleting As TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler + Public Event TBPMO_RECORD_LOG_CONFIGRowDeleting As TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler _ - Public Event TBPMO_FOLLOW_UP_EMAILRowDeleted As TBPMO_FOLLOW_UP_EMAILRowChangeEventHandler + Public Event TBPMO_RECORD_LOG_CONFIGRowDeleted As TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler _ - Public Overloads Sub AddTBPMO_FOLLOW_UP_EMAILRow(ByVal row As TBPMO_FOLLOW_UP_EMAILRow) + Public Overloads Sub AddTBPMO_RECORD_LOG_CONFIGRow(ByVal row As TBPMO_RECORD_LOG_CONFIGRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPMO_FOLLOW_UP_EMAILRow( _ - ByVal FOLLOW_UP_SEQUENCE As String, _ - ByVal FOLLOW_UP_DAYS As String, _ - ByVal FOLLOW_UP_TIME_SPAN As String, _ - ByVal parentTBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID As TBTEMP_QUICKDISPLAYRow, _ - ByVal parentTBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID As TBTEMP_QUICKDISPLAYRow, _ - ByVal PARENT_ID As Integer, _ - ByVal TIME_UNITY As String, _ - ByVal TIME_SPAN As Integer, _ - ByVal EMAIL_SUBJECT As String, _ - ByVal EMAIL_BODY As String, _ - ByVal PROCESS_SELECT1 As String, _ - ByVal PROCESS_SELECT2 As String, _ - ByVal PROCESS_SELECT3 As String, _ - ByVal PROCESS_SELECT4 As String, _ - ByVal ACTIVE As Boolean, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Date, _ - ByVal TIME_DIST As String, _ - ByVal PROCESS_SELECT5 As String, _ - ByVal PROCESS_SELECT6 As String, _ - ByVal PROCESS_SELECT7 As String, _ - ByVal PROCESS_SELECT8 As String, _ - ByVal PROCESS_SELECT9 As String, _ - ByVal PROCESS_SELECT10 As String, _ - ByVal NAME As String, _ - ByVal CONSTRUCTOR_ID As Integer) As TBPMO_FOLLOW_UP_EMAILRow - Dim rowTBPMO_FOLLOW_UP_EMAILRow As TBPMO_FOLLOW_UP_EMAILRow = CType(Me.NewRow,TBPMO_FOLLOW_UP_EMAILRow) - Dim columnValuesArray() As Object = New Object() {Nothing, FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, Nothing, Nothing, PARENT_ID, TIME_UNITY, TIME_SPAN, EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TIME_DIST, PROCESS_SELECT5, PROCESS_SELECT6, PROCESS_SELECT7, PROCESS_SELECT8, PROCESS_SELECT9, PROCESS_SELECT10, NAME, CONSTRUCTOR_ID} - If (Not (parentTBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID) Is Nothing) Then - columnValuesArray(4) = parentTBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DATE_CTRL_ID(0) - End If - If (Not (parentTBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID) Is Nothing) Then - columnValuesArray(5) = parentTBTEMP_QUICKDISPLAYRowByFK_TBPMO_FOLLOW_UP_EMAIL_DONE_CTRL_ID(0) - End If - rowTBPMO_FOLLOW_UP_EMAILRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPMO_FOLLOW_UP_EMAILRow) - Return rowTBPMO_FOLLOW_UP_EMAILRow + Public Overloads Function AddTBPMO_RECORD_LOG_CONFIGRow(ByVal CONTROL_ID As Integer, ByVal LOG_DELETE As Boolean, ByVal LOG_UPDATE As Boolean, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal FORM_ID As Integer, ByVal NAME As String, ByVal _String As String) As TBPMO_RECORD_LOG_CONFIGRow + Dim rowTBPMO_RECORD_LOG_CONFIGRow As TBPMO_RECORD_LOG_CONFIGRow = CType(Me.NewRow,TBPMO_RECORD_LOG_CONFIGRow) + Dim columnValuesArray() As Object = New Object() {Nothing, CONTROL_ID, LOG_DELETE, LOG_UPDATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FORM_ID, NAME, Nothing, _String} + rowTBPMO_RECORD_LOG_CONFIGRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_RECORD_LOG_CONFIGRow) + Return rowTBPMO_RECORD_LOG_CONFIGRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FOLLOW_UP_EMAILRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FOLLOW_UP_EMAILRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_RECORD_LOG_CONFIGRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_RECORD_LOG_CONFIGRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_FOLLOW_UP_EMAILDataTable = CType(MyBase.Clone,TBPMO_FOLLOW_UP_EMAILDataTable) + Dim cln As TBPMO_RECORD_LOG_CONFIGDataTable = CType(MyBase.Clone,TBPMO_RECORD_LOG_CONFIGDataTable) cln.InitVars Return cln End Function @@ -13152,41 +13186,23 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPMO_FOLLOW_UP_EMAILDataTable() + Return New TBPMO_RECORD_LOG_CONFIGDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnFOLLOW_UP_SEQUENCE = MyBase.Columns("FOLLOW_UP_SEQUENCE") - Me.columnFOLLOW_UP_DAYS = MyBase.Columns("FOLLOW_UP_DAYS") - Me.columnFOLLOW_UP_TIME_SPAN = MyBase.Columns("FOLLOW_UP_TIME_SPAN") - Me.columnDEPENDENT_DATE_CTRL_ID = MyBase.Columns("DEPENDENT_DATE_CTRL_ID") - Me.columnDEPENDENT_DONE_CTRL_ID = MyBase.Columns("DEPENDENT_DONE_CTRL_ID") - Me.columnPARENT_ID = MyBase.Columns("PARENT_ID") - Me.columnTIME_UNITY = MyBase.Columns("TIME_UNITY") - Me.columnTIME_SPAN = MyBase.Columns("TIME_SPAN") - Me.columnEMAIL_SUBJECT = MyBase.Columns("EMAIL_SUBJECT") - Me.columnEMAIL_BODY = MyBase.Columns("EMAIL_BODY") - Me.columnPROCESS_SELECT1 = MyBase.Columns("PROCESS_SELECT1") - Me.columnPROCESS_SELECT2 = MyBase.Columns("PROCESS_SELECT2") - Me.columnPROCESS_SELECT3 = MyBase.Columns("PROCESS_SELECT3") - Me.columnPROCESS_SELECT4 = MyBase.Columns("PROCESS_SELECT4") - Me.columnACTIVE = MyBase.Columns("ACTIVE") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnCONTROL_ID = MyBase.Columns("CONTROL_ID") + Me.columnLOG_DELETE = MyBase.Columns("LOG_DELETE") + Me.columnLOG_UPDATE = MyBase.Columns("LOG_UPDATE") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnTIME_DIST = MyBase.Columns("TIME_DIST") - Me.columnPROCESS_SELECT5 = MyBase.Columns("PROCESS_SELECT5") - Me.columnPROCESS_SELECT6 = MyBase.Columns("PROCESS_SELECT6") - Me.columnPROCESS_SELECT7 = MyBase.Columns("PROCESS_SELECT7") - Me.columnPROCESS_SELECT8 = MyBase.Columns("PROCESS_SELECT8") - Me.columnPROCESS_SELECT9 = MyBase.Columns("PROCESS_SELECT9") - Me.columnPROCESS_SELECT10 = MyBase.Columns("PROCESS_SELECT10") + Me.columnFORM_ID = MyBase.Columns("FORM_ID") Me.columnNAME = MyBase.Columns("NAME") - Me.columnCONSTRUCTOR_ID = MyBase.Columns("CONSTRUCTOR_ID") + Me.columnFORM_ID1 = MyBase.Columns("FORM_ID1") + Me.columnString = MyBase.Columns("String") End Sub _ - Public Function NewTBPMO_FOLLOW_UP_EMAILRow() As TBPMO_FOLLOW_UP_EMAILRow - Return CType(Me.NewRow,TBPMO_FOLLOW_UP_EMAILRow) + Public Function NewTBPMO_RECORD_LOG_CONFIGRow() As TBPMO_RECORD_LOG_CONFIGRow + Return CType(Me.NewRow,TBPMO_RECORD_LOG_CONFIGRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPMO_FOLLOW_UP_EMAILRow(builder) + Return New TBPMO_RECORD_LOG_CONFIGRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPMO_FOLLOW_UP_EMAILRow) + Return GetType(TBPMO_RECORD_LOG_CONFIGRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPMO_FOLLOW_UP_EMAILRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_FOLLOW_UP_EMAILRowChanged(Me, New TBPMO_FOLLOW_UP_EMAILRowChangeEvent(CType(e.Row,TBPMO_FOLLOW_UP_EMAILRow), e.Action)) + If (Not (Me.TBPMO_RECORD_LOG_CONFIGRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_RECORD_LOG_CONFIGRowChanged(Me, New TBPMO_RECORD_LOG_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RECORD_LOG_CONFIGRow), e.Action)) End If End Sub @@ -13346,8 +13286,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPMO_FOLLOW_UP_EMAILRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_FOLLOW_UP_EMAILRowChanging(Me, New TBPMO_FOLLOW_UP_EMAILRowChangeEvent(CType(e.Row,TBPMO_FOLLOW_UP_EMAILRow), e.Action)) + If (Not (Me.TBPMO_RECORD_LOG_CONFIGRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_RECORD_LOG_CONFIGRowChanging(Me, New TBPMO_RECORD_LOG_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RECORD_LOG_CONFIGRow), e.Action)) End If End Sub @@ -13355,8 +13295,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPMO_FOLLOW_UP_EMAILRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_FOLLOW_UP_EMAILRowDeleted(Me, New TBPMO_FOLLOW_UP_EMAILRowChangeEvent(CType(e.Row,TBPMO_FOLLOW_UP_EMAILRow), e.Action)) + If (Not (Me.TBPMO_RECORD_LOG_CONFIGRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_RECORD_LOG_CONFIGRowDeleted(Me, New TBPMO_RECORD_LOG_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RECORD_LOG_CONFIGRow), e.Action)) End If End Sub @@ -13364,14 +13304,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPMO_FOLLOW_UP_EMAILRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_FOLLOW_UP_EMAILRowDeleting(Me, New TBPMO_FOLLOW_UP_EMAILRowChangeEvent(CType(e.Row,TBPMO_FOLLOW_UP_EMAILRow), e.Action)) + If (Not (Me.TBPMO_RECORD_LOG_CONFIGRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_RECORD_LOG_CONFIGRowDeleting(Me, New TBPMO_RECORD_LOG_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RECORD_LOG_CONFIGRow), e.Action)) End If End Sub _ - Public Sub RemoveTBPMO_FOLLOW_UP_EMAILRow(ByVal row As TBPMO_FOLLOW_UP_EMAILRow) + Public Sub RemoveTBPMO_RECORD_LOG_CONFIGRow(ByVal row As TBPMO_RECORD_LOG_CONFIGRow) Me.Rows.Remove(row) End Sub @@ -13398,7 +13338,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPMO_FOLLOW_UP_EMAILDataTable" + attribute2.FixedValue = "TBPMO_RECORD_LOG_CONFIGDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -13447,28 +13387,24 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBPMO_FOLLUPEMAIL_USERDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPMO_FOLLUPEMAIL_USERRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnUSER_ID As Global.System.Data.DataColumn + Partial Public Class VWPMO_RECORD_CHANGESDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_RECORD_CHANGESRow) - Private columnFOLLOW_UP_ID As Global.System.Data.DataColumn + Private columnID As Global.System.Data.DataColumn - Private columnADDED_WHO As Global.System.Data.DataColumn + Private _columnControl_Name As Global.System.Data.DataColumn - Private columnADDED_WHEN As Global.System.Data.DataColumn + Private _columnLog_Description As Global.System.Data.DataColumn - Private columnCHANGED_WHO As Global.System.Data.DataColumn + Private columnAdded_who As Global.System.Data.DataColumn - Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnAdded_When As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBPMO_FOLLUPEMAIL_USER" + Me.TableName = "VWPMO_RECORD_CHANGES" Me.BeginInit Me.InitClass Me.EndInit @@ -13501,57 +13437,41 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGUID - End Get - End Property - - _ - Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnUSER_ID - End Get - End Property - - _ - Public ReadOnly Property FOLLOW_UP_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnFOLLOW_UP_ID + Return Me.columnID End Get End Property _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property _Control_NameColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHO + Return Me._columnControl_Name End Get End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property _Log_DescriptionColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHEN + Return Me._columnLog_Description End Get End Property _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property Added_whoColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHO + Return Me.columnAdded_who End Get End Property _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property Added_WhenColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHEN + Return Me.columnAdded_When End Get End Property @@ -13566,53 +13486,50 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FOLLUPEMAIL_USERRow + Public Default ReadOnly Property Item(ByVal index As Integer) As VWPMO_RECORD_CHANGESRow Get - Return CType(Me.Rows(index),TBPMO_FOLLUPEMAIL_USERRow) + Return CType(Me.Rows(index),VWPMO_RECORD_CHANGESRow) End Get End Property _ - Public Event TBPMO_FOLLUPEMAIL_USERRowChanging As TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler + Public Event VWPMO_RECORD_CHANGESRowChanging As VWPMO_RECORD_CHANGESRowChangeEventHandler _ - Public Event TBPMO_FOLLUPEMAIL_USERRowChanged As TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler + Public Event VWPMO_RECORD_CHANGESRowChanged As VWPMO_RECORD_CHANGESRowChangeEventHandler _ - Public Event TBPMO_FOLLUPEMAIL_USERRowDeleting As TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler + Public Event VWPMO_RECORD_CHANGESRowDeleting As VWPMO_RECORD_CHANGESRowChangeEventHandler _ - Public Event TBPMO_FOLLUPEMAIL_USERRowDeleted As TBPMO_FOLLUPEMAIL_USERRowChangeEventHandler + Public Event VWPMO_RECORD_CHANGESRowDeleted As VWPMO_RECORD_CHANGESRowChangeEventHandler _ - Public Overloads Sub AddTBPMO_FOLLUPEMAIL_USERRow(ByVal row As TBPMO_FOLLUPEMAIL_USERRow) + Public Overloads Sub AddVWPMO_RECORD_CHANGESRow(ByVal row As VWPMO_RECORD_CHANGESRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPMO_FOLLUPEMAIL_USERRow(ByVal USER_ID As Integer, ByVal parentTBDD_USERRowByFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID As TBDD_USERRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_FOLLUPEMAIL_USERRow - Dim rowTBPMO_FOLLUPEMAIL_USERRow As TBPMO_FOLLUPEMAIL_USERRow = CType(Me.NewRow,TBPMO_FOLLUPEMAIL_USERRow) - Dim columnValuesArray() As Object = New Object() {Nothing, USER_ID, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - If (Not (parentTBDD_USERRowByFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID) Is Nothing) Then - columnValuesArray(2) = parentTBDD_USERRowByFK_TBPMO_FOLLUPEMAIL_USER_FOLLUP_ID(0) - End If - rowTBPMO_FOLLUPEMAIL_USERRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPMO_FOLLUPEMAIL_USERRow) - Return rowTBPMO_FOLLUPEMAIL_USERRow + Public Overloads Function AddVWPMO_RECORD_CHANGESRow(ByVal ID As Integer, ByVal _Control_Name As String, ByVal _Log_Description As String, ByVal Added_who As String, ByVal Added_When As Date) As VWPMO_RECORD_CHANGESRow + Dim rowVWPMO_RECORD_CHANGESRow As VWPMO_RECORD_CHANGESRow = CType(Me.NewRow,VWPMO_RECORD_CHANGESRow) + Dim columnValuesArray() As Object = New Object() {ID, _Control_Name, _Log_Description, Added_who, Added_When} + rowVWPMO_RECORD_CHANGESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_RECORD_CHANGESRow) + Return rowVWPMO_RECORD_CHANGESRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FOLLUPEMAIL_USERRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FOLLUPEMAIL_USERRow) + Public Function FindByID(ByVal ID As Integer) As VWPMO_RECORD_CHANGESRow + Return CType(Me.Rows.Find(New Object() {ID}),VWPMO_RECORD_CHANGESRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_FOLLUPEMAIL_USERDataTable = CType(MyBase.Clone,TBPMO_FOLLUPEMAIL_USERDataTable) + Dim cln As VWPMO_RECORD_CHANGESDataTable = CType(MyBase.Clone,VWPMO_RECORD_CHANGESDataTable) cln.InitVars Return cln End Function @@ -13620,74 +13537,70 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPMO_FOLLUPEMAIL_USERDataTable() + Return New VWPMO_RECORD_CHANGESDataTable() End Function _ Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnUSER_ID = MyBase.Columns("USER_ID") - Me.columnFOLLOW_UP_ID = MyBase.Columns("FOLLOW_UP_ID") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnID = MyBase.Columns("ID") + Me._columnControl_Name = MyBase.Columns("Control-Name") + Me._columnLog_Description = MyBase.Columns("Log-Description") + Me.columnAdded_who = MyBase.Columns("Added who") + Me.columnAdded_When = MyBase.Columns("Added When") End Sub _ Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGUID) - Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSER_ID) - Me.columnFOLLOW_UP_ID = New Global.System.Data.DataColumn("FOLLOW_UP_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnFOLLOW_UP_ID) - 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.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnUSER_ID.AllowDBNull = false - Me.columnFOLLOW_UP_ID.AllowDBNull = false - Me.columnADDED_WHO.AllowDBNull = false - Me.columnADDED_WHO.MaxLength = 50 - Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnID) + Me._columnControl_Name = New Global.System.Data.DataColumn("Control-Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnControl_Name.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnControl_Name") + Me._columnControl_Name.ExtendedProperties.Add("Generator_UserColumnName", "Control-Name") + MyBase.Columns.Add(Me._columnControl_Name) + Me._columnLog_Description = New Global.System.Data.DataColumn("Log-Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) + Me._columnLog_Description.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnLog_Description") + Me._columnLog_Description.ExtendedProperties.Add("Generator_UserColumnName", "Log-Description") + MyBase.Columns.Add(Me._columnLog_Description) + 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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) + Me.columnID.AllowDBNull = false + Me.columnID.Unique = true + Me._columnControl_Name.AllowDBNull = false + Me._columnControl_Name.MaxLength = 100 + Me._columnLog_Description.AllowDBNull = false + Me._columnLog_Description.MaxLength = 1000 + Me.columnAdded_who.MaxLength = 100 End Sub _ - Public Function NewTBPMO_FOLLUPEMAIL_USERRow() As TBPMO_FOLLUPEMAIL_USERRow - Return CType(Me.NewRow,TBPMO_FOLLUPEMAIL_USERRow) + Public Function NewVWPMO_RECORD_CHANGESRow() As VWPMO_RECORD_CHANGESRow + Return CType(Me.NewRow,VWPMO_RECORD_CHANGESRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPMO_FOLLUPEMAIL_USERRow(builder) + Return New VWPMO_RECORD_CHANGESRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPMO_FOLLUPEMAIL_USERRow) + Return GetType(VWPMO_RECORD_CHANGESRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPMO_FOLLUPEMAIL_USERRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_FOLLUPEMAIL_USERRowChanged(Me, New TBPMO_FOLLUPEMAIL_USERRowChangeEvent(CType(e.Row,TBPMO_FOLLUPEMAIL_USERRow), e.Action)) + If (Not (Me.VWPMO_RECORD_CHANGESRowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_RECORD_CHANGESRowChanged(Me, New VWPMO_RECORD_CHANGESRowChangeEvent(CType(e.Row,VWPMO_RECORD_CHANGESRow), e.Action)) End If End Sub @@ -13695,8 +13608,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPMO_FOLLUPEMAIL_USERRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_FOLLUPEMAIL_USERRowChanging(Me, New TBPMO_FOLLUPEMAIL_USERRowChangeEvent(CType(e.Row,TBPMO_FOLLUPEMAIL_USERRow), e.Action)) + If (Not (Me.VWPMO_RECORD_CHANGESRowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_RECORD_CHANGESRowChanging(Me, New VWPMO_RECORD_CHANGESRowChangeEvent(CType(e.Row,VWPMO_RECORD_CHANGESRow), e.Action)) End If End Sub @@ -13704,8 +13617,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPMO_FOLLUPEMAIL_USERRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_FOLLUPEMAIL_USERRowDeleted(Me, New TBPMO_FOLLUPEMAIL_USERRowChangeEvent(CType(e.Row,TBPMO_FOLLUPEMAIL_USERRow), e.Action)) + If (Not (Me.VWPMO_RECORD_CHANGESRowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_RECORD_CHANGESRowDeleted(Me, New VWPMO_RECORD_CHANGESRowChangeEvent(CType(e.Row,VWPMO_RECORD_CHANGESRow), e.Action)) End If End Sub @@ -13713,14 +13626,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPMO_FOLLUPEMAIL_USERRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_FOLLUPEMAIL_USERRowDeleting(Me, New TBPMO_FOLLUPEMAIL_USERRowChangeEvent(CType(e.Row,TBPMO_FOLLUPEMAIL_USERRow), e.Action)) + If (Not (Me.VWPMO_RECORD_CHANGESRowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_RECORD_CHANGESRowDeleting(Me, New VWPMO_RECORD_CHANGESRowChangeEvent(CType(e.Row,VWPMO_RECORD_CHANGESRow), e.Action)) End If End Sub _ - Public Sub RemoveTBPMO_FOLLUPEMAIL_USERRow(ByVal row As TBPMO_FOLLUPEMAIL_USERRow) + Public Sub RemoveVWPMO_RECORD_CHANGESRow(ByVal row As VWPMO_RECORD_CHANGESRow) Me.Rows.Remove(row) End Sub @@ -13747,7 +13660,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPMO_FOLLUPEMAIL_USERDataTable" + attribute2.FixedValue = "VWPMO_RECORD_CHANGESDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -13796,36 +13709,36 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBPMO_RECORD_LOG_CONFIGDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPMO_RECORD_LOG_CONFIGRow) + Partial Public Class TBDD_EMAIL_ACCOUNTDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_EMAIL_ACCOUNTRow) Private columnGUID As Global.System.Data.DataColumn - Private columnCONTROL_ID As Global.System.Data.DataColumn + Private columnNAME As Global.System.Data.DataColumn - Private columnLOG_DELETE As Global.System.Data.DataColumn + Private columnEMAIL_FROM As Global.System.Data.DataColumn - Private columnLOG_UPDATE As Global.System.Data.DataColumn + Private columnEMAIL_SMTP As Global.System.Data.DataColumn - Private columnADDED_WHEN As Global.System.Data.DataColumn + Private columnEMAIL_USER As Global.System.Data.DataColumn - Private columnCHANGED_WHO As Global.System.Data.DataColumn + Private columnEMAIL_PW As Global.System.Data.DataColumn - Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnACTIVE As Global.System.Data.DataColumn - Private columnFORM_ID As Global.System.Data.DataColumn + Private columnADDED_WHO As Global.System.Data.DataColumn - Private columnNAME As Global.System.Data.DataColumn + Private columnADDED_WHEN As Global.System.Data.DataColumn - Private columnFORM_ID1 As Global.System.Data.DataColumn + Private columnCHANGED_WHO As Global.System.Data.DataColumn - Private columnString As Global.System.Data.DataColumn + Private columnCHANGED_WHEN As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBPMO_RECORD_LOG_CONFIG" + Me.TableName = "TBDD_EMAIL_ACCOUNT" Me.BeginInit Me.InitClass Me.EndInit @@ -13866,81 +13779,81 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property CONTROL_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnCONTROL_ID + Return Me.columnNAME End Get End Property _ - Public ReadOnly Property LOG_DELETEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAIL_FROMColumn() As Global.System.Data.DataColumn Get - Return Me.columnLOG_DELETE + Return Me.columnEMAIL_FROM End Get End Property _ - Public ReadOnly Property LOG_UPDATEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAIL_SMTPColumn() As Global.System.Data.DataColumn Get - Return Me.columnLOG_UPDATE + Return Me.columnEMAIL_SMTP End Get End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAIL_USERColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHEN + Return Me.columnEMAIL_USER End Get End Property _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EMAIL_PWColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHO + Return Me.columnEMAIL_PW End Get End Property _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHEN + Return Me.columnACTIVE End Get End Property _ - Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnFORM_ID + Return Me.columnADDED_WHO End Get End Property _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnNAME + Return Me.columnADDED_WHEN End Get End Property _ - Public ReadOnly Property FORM_ID1Column() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnFORM_ID1 + Return Me.columnCHANGED_WHO End Get End Property _ - Public ReadOnly Property StringColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnString + Return Me.columnCHANGED_WHEN End Get End Property @@ -13955,50 +13868,50 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_RECORD_LOG_CONFIGRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_EMAIL_ACCOUNTRow Get - Return CType(Me.Rows(index),TBPMO_RECORD_LOG_CONFIGRow) + Return CType(Me.Rows(index),TBDD_EMAIL_ACCOUNTRow) End Get End Property _ - Public Event TBPMO_RECORD_LOG_CONFIGRowChanging As TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler + Public Event TBDD_EMAIL_ACCOUNTRowChanging As TBDD_EMAIL_ACCOUNTRowChangeEventHandler _ - Public Event TBPMO_RECORD_LOG_CONFIGRowChanged As TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler + Public Event TBDD_EMAIL_ACCOUNTRowChanged As TBDD_EMAIL_ACCOUNTRowChangeEventHandler _ - Public Event TBPMO_RECORD_LOG_CONFIGRowDeleting As TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler + Public Event TBDD_EMAIL_ACCOUNTRowDeleting As TBDD_EMAIL_ACCOUNTRowChangeEventHandler _ - Public Event TBPMO_RECORD_LOG_CONFIGRowDeleted As TBPMO_RECORD_LOG_CONFIGRowChangeEventHandler + Public Event TBDD_EMAIL_ACCOUNTRowDeleted As TBDD_EMAIL_ACCOUNTRowChangeEventHandler _ - Public Overloads Sub AddTBPMO_RECORD_LOG_CONFIGRow(ByVal row As TBPMO_RECORD_LOG_CONFIGRow) + Public Overloads Sub AddTBDD_EMAIL_ACCOUNTRow(ByVal row As TBDD_EMAIL_ACCOUNTRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPMO_RECORD_LOG_CONFIGRow(ByVal CONTROL_ID As Integer, ByVal LOG_DELETE As Boolean, ByVal LOG_UPDATE As Boolean, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal FORM_ID As Integer, ByVal NAME As String, ByVal _String As String) As TBPMO_RECORD_LOG_CONFIGRow - Dim rowTBPMO_RECORD_LOG_CONFIGRow As TBPMO_RECORD_LOG_CONFIGRow = CType(Me.NewRow,TBPMO_RECORD_LOG_CONFIGRow) - Dim columnValuesArray() As Object = New Object() {Nothing, CONTROL_ID, LOG_DELETE, LOG_UPDATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, FORM_ID, NAME, Nothing, _String} - rowTBPMO_RECORD_LOG_CONFIGRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPMO_RECORD_LOG_CONFIGRow) - Return rowTBPMO_RECORD_LOG_CONFIGRow + Public Overloads Function AddTBDD_EMAIL_ACCOUNTRow(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_EMAIL_ACCOUNTRow + Dim rowTBDD_EMAIL_ACCOUNTRow As TBDD_EMAIL_ACCOUNTRow = CType(Me.NewRow,TBDD_EMAIL_ACCOUNTRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBDD_EMAIL_ACCOUNTRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_EMAIL_ACCOUNTRow) + Return rowTBDD_EMAIL_ACCOUNTRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_RECORD_LOG_CONFIGRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_RECORD_LOG_CONFIGRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_EMAIL_ACCOUNTRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EMAIL_ACCOUNTRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_RECORD_LOG_CONFIGDataTable = CType(MyBase.Clone,TBPMO_RECORD_LOG_CONFIGDataTable) + Dim cln As TBDD_EMAIL_ACCOUNTDataTable = CType(MyBase.Clone,TBDD_EMAIL_ACCOUNTDataTable) cln.InitVars Return cln End Function @@ -14006,23 +13919,23 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPMO_RECORD_LOG_CONFIGDataTable() + Return New TBDD_EMAIL_ACCOUNTDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnCONTROL_ID = MyBase.Columns("CONTROL_ID") - Me.columnLOG_DELETE = MyBase.Columns("LOG_DELETE") - Me.columnLOG_UPDATE = MyBase.Columns("LOG_UPDATE") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnEMAIL_FROM = MyBase.Columns("EMAIL_FROM") + Me.columnEMAIL_SMTP = MyBase.Columns("EMAIL_SMTP") + Me.columnEMAIL_USER = MyBase.Columns("EMAIL_USER") + Me.columnEMAIL_PW = MyBase.Columns("EMAIL_PW") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnFORM_ID = MyBase.Columns("FORM_ID") - Me.columnNAME = MyBase.Columns("NAME") - Me.columnFORM_ID1 = MyBase.Columns("FORM_ID1") - Me.columnString = MyBase.Columns("String") End Sub _ - Public Function NewTBPMO_RECORD_LOG_CONFIGRow() As TBPMO_RECORD_LOG_CONFIGRow - Return CType(Me.NewRow,TBPMO_RECORD_LOG_CONFIGRow) + Public Function NewTBDD_EMAIL_ACCOUNTRow() As TBDD_EMAIL_ACCOUNTRow + Return CType(Me.NewRow,TBDD_EMAIL_ACCOUNTRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPMO_RECORD_LOG_CONFIGRow(builder) + Return New TBDD_EMAIL_ACCOUNTRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPMO_RECORD_LOG_CONFIGRow) + Return GetType(TBDD_EMAIL_ACCOUNTRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPMO_RECORD_LOG_CONFIGRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_RECORD_LOG_CONFIGRowChanged(Me, New TBPMO_RECORD_LOG_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RECORD_LOG_CONFIGRow), e.Action)) + If (Not (Me.TBDD_EMAIL_ACCOUNTRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_EMAIL_ACCOUNTRowChanged(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) End If End Sub @@ -14106,8 +14015,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPMO_RECORD_LOG_CONFIGRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_RECORD_LOG_CONFIGRowChanging(Me, New TBPMO_RECORD_LOG_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RECORD_LOG_CONFIGRow), e.Action)) + If (Not (Me.TBDD_EMAIL_ACCOUNTRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_EMAIL_ACCOUNTRowChanging(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) End If End Sub @@ -14115,8 +14024,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPMO_RECORD_LOG_CONFIGRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_RECORD_LOG_CONFIGRowDeleted(Me, New TBPMO_RECORD_LOG_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RECORD_LOG_CONFIGRow), e.Action)) + If (Not (Me.TBDD_EMAIL_ACCOUNTRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_EMAIL_ACCOUNTRowDeleted(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) End If End Sub @@ -14124,14 +14033,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPMO_RECORD_LOG_CONFIGRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_RECORD_LOG_CONFIGRowDeleting(Me, New TBPMO_RECORD_LOG_CONFIGRowChangeEvent(CType(e.Row,TBPMO_RECORD_LOG_CONFIGRow), e.Action)) + If (Not (Me.TBDD_EMAIL_ACCOUNTRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_EMAIL_ACCOUNTRowDeleting(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) End If End Sub _ - Public Sub RemoveTBPMO_RECORD_LOG_CONFIGRow(ByVal row As TBPMO_RECORD_LOG_CONFIGRow) + Public Sub RemoveTBDD_EMAIL_ACCOUNTRow(ByVal row As TBDD_EMAIL_ACCOUNTRow) Me.Rows.Remove(row) End Sub @@ -14158,7 +14067,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPMO_RECORD_LOG_CONFIGDataTable" + attribute2.FixedValue = "TBDD_EMAIL_ACCOUNTDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -14207,30 +14116,46 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class VWPMO_RECORD_CHANGESDataTable - Inherits Global.System.Data.TypedTableBase(Of VWPMO_RECORD_CHANGESRow) + Partial Public Class TBDD_CONNECTIONDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_CONNECTIONRow) - Private columnID As Global.System.Data.DataColumn + Private columnGUID As Global.System.Data.DataColumn - Private _columnControl_Name As Global.System.Data.DataColumn + Private columnSQL_PROVIDER As Global.System.Data.DataColumn - Private _columnLog_Description As Global.System.Data.DataColumn + Private columnSERVER As Global.System.Data.DataColumn - Private columnAdded_who As Global.System.Data.DataColumn + Private columnUSERNAME As Global.System.Data.DataColumn - Private columnAdded_When As Global.System.Data.DataColumn + Private columnPASSWORD As Global.System.Data.DataColumn - _ - Public Sub New() - MyBase.New - Me.TableName = "VWPMO_RECORD_CHANGES" - Me.BeginInit - Me.InitClass - Me.EndInit - End Sub + Private columnBEZEICHNUNG As Global.System.Data.DataColumn - _ + Public Sub New() + MyBase.New + Me.TableName = "TBDD_CONNECTION" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) MyBase.New @@ -14257,41 +14182,105 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Return Me.columnID + Return Me.columnGUID End Get End Property _ - Public ReadOnly Property _Control_NameColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn Get - Return Me._columnControl_Name + Return Me.columnSQL_PROVIDER End Get End Property _ - Public ReadOnly Property _Log_DescriptionColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn Get - Return Me._columnLog_Description + Return Me.columnSERVER End Get End Property _ - Public ReadOnly Property Added_whoColumn() As Global.System.Data.DataColumn + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnAdded_who + Return Me.columnUSERNAME End Get End Property _ - Public ReadOnly Property Added_WhenColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn Get - Return Me.columnAdded_When + Return Me.columnPASSWORD + End Get + End Property + + _ + Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEZEICHNUNG + End Get + End Property + + _ + Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDATENBANK + End Get + End Property + + _ + Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnBEMERKUNG + End Get + End Property + + _ + Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn + Get + Return Me.columnAKTIV + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWER + End Get + End Property + + _ + Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnERSTELLTWANN + End Get + End Property + + _ + Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEANDERTWER + End Get + End Property + + _ + Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn + Get + Return Me.columnGEAENDERTWANN End Get End Property @@ -14306,50 +14295,50 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As VWPMO_RECORD_CHANGESRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CONNECTIONRow Get - Return CType(Me.Rows(index),VWPMO_RECORD_CHANGESRow) + Return CType(Me.Rows(index),TBDD_CONNECTIONRow) End Get End Property _ - Public Event VWPMO_RECORD_CHANGESRowChanging As VWPMO_RECORD_CHANGESRowChangeEventHandler + Public Event TBDD_CONNECTIONRowChanging As TBDD_CONNECTIONRowChangeEventHandler _ - Public Event VWPMO_RECORD_CHANGESRowChanged As VWPMO_RECORD_CHANGESRowChangeEventHandler + Public Event TBDD_CONNECTIONRowChanged As TBDD_CONNECTIONRowChangeEventHandler _ - Public Event VWPMO_RECORD_CHANGESRowDeleting As VWPMO_RECORD_CHANGESRowChangeEventHandler + Public Event TBDD_CONNECTIONRowDeleting As TBDD_CONNECTIONRowChangeEventHandler _ - Public Event VWPMO_RECORD_CHANGESRowDeleted As VWPMO_RECORD_CHANGESRowChangeEventHandler + Public Event TBDD_CONNECTIONRowDeleted As TBDD_CONNECTIONRowChangeEventHandler _ - Public Overloads Sub AddVWPMO_RECORD_CHANGESRow(ByVal row As VWPMO_RECORD_CHANGESRow) + Public Overloads Sub AddTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddVWPMO_RECORD_CHANGESRow(ByVal ID As Integer, ByVal _Control_Name As String, ByVal _Log_Description As String, ByVal Added_who As String, ByVal Added_When As Date) As VWPMO_RECORD_CHANGESRow - Dim rowVWPMO_RECORD_CHANGESRow As VWPMO_RECORD_CHANGESRow = CType(Me.NewRow,VWPMO_RECORD_CHANGESRow) - Dim columnValuesArray() As Object = New Object() {ID, _Control_Name, _Log_Description, Added_who, Added_When} - rowVWPMO_RECORD_CHANGESRow.ItemArray = columnValuesArray - Me.Rows.Add(rowVWPMO_RECORD_CHANGESRow) - Return rowVWPMO_RECORD_CHANGESRow + Public Overloads Function AddTBDD_CONNECTIONRow(ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEZEICHNUNG As String, ByVal DATENBANK As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_CONNECTIONRow + Dim rowTBDD_CONNECTIONRow As TBDD_CONNECTIONRow = CType(Me.NewRow,TBDD_CONNECTIONRow) + Dim columnValuesArray() As Object = New Object() {Nothing, SQL_PROVIDER, SERVER, USERNAME, PASSWORD, BEZEICHNUNG, DATENBANK, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} + rowTBDD_CONNECTIONRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_CONNECTIONRow) + Return rowTBDD_CONNECTIONRow End Function _ - Public Function FindByID(ByVal ID As Integer) As VWPMO_RECORD_CHANGESRow - Return CType(Me.Rows.Find(New Object() {ID}),VWPMO_RECORD_CHANGESRow) + Public Function FindByGUID(ByVal GUID As Short) As TBDD_CONNECTIONRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CONNECTIONRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWPMO_RECORD_CHANGESDataTable = CType(MyBase.Clone,VWPMO_RECORD_CHANGESDataTable) + Dim cln As TBDD_CONNECTIONDataTable = CType(MyBase.Clone,TBDD_CONNECTIONDataTable) cln.InitVars Return cln End Function @@ -14357,70 +14346,101 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New VWPMO_RECORD_CHANGESDataTable() + Return New TBDD_CONNECTIONDataTable() End Function _ Friend Sub InitVars() - Me.columnID = MyBase.Columns("ID") - Me._columnControl_Name = MyBase.Columns("Control-Name") - Me._columnLog_Description = MyBase.Columns("Log-Description") - Me.columnAdded_who = MyBase.Columns("Added who") - Me.columnAdded_When = MyBase.Columns("Added When") + Me.columnGUID = MyBase.Columns("GUID") + Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") + Me.columnSERVER = MyBase.Columns("SERVER") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnPASSWORD = MyBase.Columns("PASSWORD") + Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") + Me.columnDATENBANK = MyBase.Columns("DATENBANK") + Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG") + Me.columnAKTIV = MyBase.Columns("AKTIV") + Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") + Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") + Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") + Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") End Sub _ Private Sub InitClass() - Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnID) - Me._columnControl_Name = New Global.System.Data.DataColumn("Control-Name", GetType(String), Nothing, Global.System.Data.MappingType.Element) - Me._columnControl_Name.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnControl_Name") - Me._columnControl_Name.ExtendedProperties.Add("Generator_UserColumnName", "Control-Name") - MyBase.Columns.Add(Me._columnControl_Name) - Me._columnLog_Description = New Global.System.Data.DataColumn("Log-Description", GetType(String), Nothing, Global.System.Data.MappingType.Element) - Me._columnLog_Description.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnLog_Description") - Me._columnLog_Description.ExtendedProperties.Add("Generator_UserColumnName", "Log-Description") - MyBase.Columns.Add(Me._columnLog_Description) - 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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnID}, true)) - Me.columnID.AllowDBNull = false - Me.columnID.Unique = true - Me._columnControl_Name.AllowDBNull = false - Me._columnControl_Name.MaxLength = 100 - Me._columnLog_Description.AllowDBNull = false - Me._columnLog_Description.MaxLength = 1000 - Me.columnAdded_who.MaxLength = 100 + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_PROVIDER) + Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSERVER) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPASSWORD) + Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEZEICHNUNG) + Me.columnDATENBANK = New Global.System.Data.DataColumn("DATENBANK", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDATENBANK) + Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnBEMERKUNG) + Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnAKTIV) + Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWER) + Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnERSTELLTWANN) + Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEANDERTWER) + Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnSQL_PROVIDER.MaxLength = 100 + Me.columnSERVER.MaxLength = 150 + Me.columnUSERNAME.MaxLength = 100 + Me.columnPASSWORD.MaxLength = 100 + Me.columnBEZEICHNUNG.MaxLength = 100 + Me.columnDATENBANK.MaxLength = 100 + Me.columnBEMERKUNG.MaxLength = 400 + Me.columnAKTIV.AllowDBNull = false + Me.columnERSTELLTWER.AllowDBNull = false + Me.columnERSTELLTWER.MaxLength = 50 + Me.columnERSTELLTWANN.AllowDBNull = false + Me.columnGEANDERTWER.MaxLength = 50 End Sub _ - Public Function NewVWPMO_RECORD_CHANGESRow() As VWPMO_RECORD_CHANGESRow - Return CType(Me.NewRow,VWPMO_RECORD_CHANGESRow) + Public Function NewTBDD_CONNECTIONRow() As TBDD_CONNECTIONRow + Return CType(Me.NewRow,TBDD_CONNECTIONRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New VWPMO_RECORD_CHANGESRow(builder) + Return New TBDD_CONNECTIONRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(VWPMO_RECORD_CHANGESRow) + Return GetType(TBDD_CONNECTIONRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.VWPMO_RECORD_CHANGESRowChangedEvent) Is Nothing) Then - RaiseEvent VWPMO_RECORD_CHANGESRowChanged(Me, New VWPMO_RECORD_CHANGESRowChangeEvent(CType(e.Row,VWPMO_RECORD_CHANGESRow), e.Action)) + If (Not (Me.TBDD_CONNECTIONRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowChanged(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) End If End Sub @@ -14428,8 +14448,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.VWPMO_RECORD_CHANGESRowChangingEvent) Is Nothing) Then - RaiseEvent VWPMO_RECORD_CHANGESRowChanging(Me, New VWPMO_RECORD_CHANGESRowChangeEvent(CType(e.Row,VWPMO_RECORD_CHANGESRow), e.Action)) + If (Not (Me.TBDD_CONNECTIONRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowChanging(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) End If End Sub @@ -14437,8 +14457,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.VWPMO_RECORD_CHANGESRowDeletedEvent) Is Nothing) Then - RaiseEvent VWPMO_RECORD_CHANGESRowDeleted(Me, New VWPMO_RECORD_CHANGESRowChangeEvent(CType(e.Row,VWPMO_RECORD_CHANGESRow), e.Action)) + If (Not (Me.TBDD_CONNECTIONRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowDeleted(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) End If End Sub @@ -14446,14 +14466,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.VWPMO_RECORD_CHANGESRowDeletingEvent) Is Nothing) Then - RaiseEvent VWPMO_RECORD_CHANGESRowDeleting(Me, New VWPMO_RECORD_CHANGESRowChangeEvent(CType(e.Row,VWPMO_RECORD_CHANGESRow), e.Action)) + If (Not (Me.TBDD_CONNECTIONRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_CONNECTIONRowDeleting(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) End If End Sub _ - Public Sub RemoveVWPMO_RECORD_CHANGESRow(ByVal row As VWPMO_RECORD_CHANGESRow) + Public Sub RemoveTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) Me.Rows.Remove(row) End Sub @@ -14480,7 +14500,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "VWPMO_RECORD_CHANGESDataTable" + attribute2.FixedValue = "TBDD_CONNECTIONDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -14529,26 +14549,26 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class VWPMO_WF_ACTIVEDataTable - Inherits Global.System.Data.TypedTableBase(Of VWPMO_WF_ACTIVERow) + Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTOR_DETAILRow) - Private columnWF_TASK_ID As Global.System.Data.DataColumn + Private columnGUID As Global.System.Data.DataColumn - Private columnTITLE As Global.System.Data.DataColumn + Private columnCONSTRUCT_ID As Global.System.Data.DataColumn - Private columnRECORD_ID As Global.System.Data.DataColumn + Private columnFORM_ID As Global.System.Data.DataColumn - Private columnSTATE_ID As Global.System.Data.DataColumn + Private columnPARENT_ID As Global.System.Data.DataColumn - Private columnSTATE_DESC As Global.System.Data.DataColumn + Private columnLEVEL1_SELECT As Global.System.Data.DataColumn - Private columnCOLOR As Global.System.Data.DataColumn + Private columnSEQUENCE As Global.System.Data.DataColumn - Private columnCOMMENT As Global.System.Data.DataColumn + Private columnSQL_SELECT_EBENE1 As Global.System.Data.DataColumn - Private columnDUE_DATE As Global.System.Data.DataColumn + Private columnSQL_SELECT_EBENE2 As Global.System.Data.DataColumn - Private columnUSERNAME As Global.System.Data.DataColumn + Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn @@ -14556,17 +14576,31 @@ Partial Public Class DD_DMSDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnTASK_DATE As Global.System.Data.DataColumn + Private columnCOLUMN_NAME1 As Global.System.Data.DataColumn - Private columnWF_ENT_GUID As Global.System.Data.DataColumn + Private columnCOLUMN_NAME2 As Global.System.Data.DataColumn - Private columnWF_ID As Global.System.Data.DataColumn + Private columnWINDREAM_SEARCH As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN1 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN2 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN3 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN4 As Global.System.Data.DataColumn + + Private columnSEARCH_PATTERN5 As Global.System.Data.DataColumn + + Private columnLOAD_DIRECT As Global.System.Data.DataColumn + + Private columnSQL_QUICK_VIEW As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "VWPMO_WF_ACTIVE" + Me.TableName = "TBPMO_FORM_CONSTRUCTOR_DETAIL" Me.BeginInit Me.InitClass Me.EndInit @@ -14599,73 +14633,73 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property WF_TASK_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Return Me.columnWF_TASK_ID + Return Me.columnGUID End Get End Property _ - Public ReadOnly Property TITLEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CONSTRUCT_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnTITLE + Return Me.columnCONSTRUCT_ID End Get End Property _ - Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnRECORD_ID + Return Me.columnFORM_ID End Get End Property _ - Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnSTATE_ID + Return Me.columnPARENT_ID End Get End Property _ - Public ReadOnly Property STATE_DESCColumn() As Global.System.Data.DataColumn + Public ReadOnly Property LEVEL1_SELECTColumn() As Global.System.Data.DataColumn Get - Return Me.columnSTATE_DESC + Return Me.columnLEVEL1_SELECT End Get End Property _ - Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn Get - Return Me.columnCOLOR + Return Me.columnSEQUENCE End Get End Property _ - Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SQL_SELECT_EBENE1Column() As Global.System.Data.DataColumn Get - Return Me.columnCOMMENT + Return Me.columnSQL_SELECT_EBENE1 End Get End Property _ - Public ReadOnly Property DUE_DATEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SQL_SELECT_EBENE2Column() As Global.System.Data.DataColumn Get - Return Me.columnDUE_DATE + Return Me.columnSQL_SELECT_EBENE2 End Get End Property _ - Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSERNAME + Return Me.columnADDED_WHO End Get End Property @@ -14695,25 +14729,81 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property TASK_DATEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property COLUMN_NAME1Column() As Global.System.Data.DataColumn Get - Return Me.columnTASK_DATE + Return Me.columnCOLUMN_NAME1 End Get End Property _ - Public ReadOnly Property WF_ENT_GUIDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property COLUMN_NAME2Column() As Global.System.Data.DataColumn Get - Return Me.columnWF_ENT_GUID + Return Me.columnCOLUMN_NAME2 End Get End Property _ - Public ReadOnly Property WF_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property WINDREAM_SEARCHColumn() As Global.System.Data.DataColumn Get - Return Me.columnWF_ID + Return Me.columnWINDREAM_SEARCH + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN1Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN1 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN2Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN2 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN3Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN3 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN4Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN4 + End Get + End Property + + _ + Public ReadOnly Property SEARCH_PATTERN5Column() As Global.System.Data.DataColumn + Get + Return Me.columnSEARCH_PATTERN5 + End Get + End Property + + _ + Public ReadOnly Property LOAD_DIRECTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnLOAD_DIRECT + End Get + End Property + + _ + Public ReadOnly Property SQL_QUICK_VIEWColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_QUICK_VIEW End Get End Property @@ -14728,50 +14818,77 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As VWPMO_WF_ACTIVERow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow Get - Return CType(Me.Rows(index),VWPMO_WF_ACTIVERow) + Return CType(Me.Rows(index),TBPMO_FORM_CONSTRUCTOR_DETAILRow) End Get End Property _ - Public Event VWPMO_WF_ACTIVERowChanging As VWPMO_WF_ACTIVERowChangeEventHandler + Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler _ - Public Event VWPMO_WF_ACTIVERowChanged As VWPMO_WF_ACTIVERowChangeEventHandler + Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler _ - Public Event VWPMO_WF_ACTIVERowDeleting As VWPMO_WF_ACTIVERowChangeEventHandler + Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler _ - Public Event VWPMO_WF_ACTIVERowDeleted As VWPMO_WF_ACTIVERowChangeEventHandler + Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler _ - Public Overloads Sub AddVWPMO_WF_ACTIVERow(ByVal row As VWPMO_WF_ACTIVERow) + Public Overloads Sub AddTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddVWPMO_WF_ACTIVERow(ByVal WF_TASK_ID As Integer, ByVal TITLE As String, ByVal RECORD_ID As Integer, ByVal STATE_ID As Integer, ByVal STATE_DESC As String, ByVal COLOR As String, ByVal COMMENT As String, ByVal DUE_DATE As Date, ByVal USERNAME As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal TASK_DATE As Date, ByVal WF_ENT_GUID As Integer, ByVal WF_ID As Integer) As VWPMO_WF_ACTIVERow - Dim rowVWPMO_WF_ACTIVERow As VWPMO_WF_ACTIVERow = CType(Me.NewRow,VWPMO_WF_ACTIVERow) - Dim columnValuesArray() As Object = New Object() {WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, WF_ENT_GUID, WF_ID} - rowVWPMO_WF_ACTIVERow.ItemArray = columnValuesArray - Me.Rows.Add(rowVWPMO_WF_ACTIVERow) - Return rowVWPMO_WF_ACTIVERow + Public Overloads Function AddTBPMO_FORM_CONSTRUCTOR_DETAILRow( _ + ByVal parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As TBPMO_FORM_CONSTRUCTORRow, _ + ByVal parentTBPMO_FORMRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID As TBPMO_FORMRow, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String, _ + ByVal LOAD_DIRECT As Boolean, _ + ByVal SQL_QUICK_VIEW As String) As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Dim rowTBPMO_FORM_CONSTRUCTOR_DETAILRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow = CType(Me.NewRow,TBPMO_FORM_CONSTRUCTOR_DETAILRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5, LOAD_DIRECT, SQL_QUICK_VIEW} + If (Not (parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID) Is Nothing) Then + columnValuesArray(1) = parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID(0) + End If + If (Not (parentTBPMO_FORMRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID) Is Nothing) Then + columnValuesArray(2) = parentTBPMO_FORMRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID(0) + End If + rowTBPMO_FORM_CONSTRUCTOR_DETAILRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTOR_DETAILRow) + Return rowTBPMO_FORM_CONSTRUCTOR_DETAILRow End Function _ - Public Function FindByWF_TASK_ID(ByVal WF_TASK_ID As Integer) As VWPMO_WF_ACTIVERow - Return CType(Me.Rows.Find(New Object() {WF_TASK_ID}),VWPMO_WF_ACTIVERow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_CONSTRUCTOR_DETAILRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWPMO_WF_ACTIVEDataTable = CType(MyBase.Clone,VWPMO_WF_ACTIVEDataTable) + Dim cln As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = CType(MyBase.Clone,TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) cln.InitVars Return cln End Function @@ -14779,104 +14896,139 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New VWPMO_WF_ACTIVEDataTable() + Return New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() End Function _ Friend Sub InitVars() - Me.columnWF_TASK_ID = MyBase.Columns("WF_TASK_ID") - Me.columnTITLE = MyBase.Columns("TITLE") - Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") - Me.columnSTATE_ID = MyBase.Columns("STATE_ID") - Me.columnSTATE_DESC = MyBase.Columns("STATE_DESC") - Me.columnCOLOR = MyBase.Columns("COLOR") - Me.columnCOMMENT = MyBase.Columns("COMMENT") - Me.columnDUE_DATE = MyBase.Columns("DUE_DATE") - Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnGUID = MyBase.Columns("GUID") + Me.columnCONSTRUCT_ID = MyBase.Columns("CONSTRUCT_ID") + Me.columnFORM_ID = MyBase.Columns("FORM_ID") + Me.columnPARENT_ID = MyBase.Columns("PARENT_ID") + Me.columnLEVEL1_SELECT = MyBase.Columns("LEVEL1_SELECT") + Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") + Me.columnSQL_SELECT_EBENE1 = MyBase.Columns("SQL_SELECT_EBENE1") + Me.columnSQL_SELECT_EBENE2 = MyBase.Columns("SQL_SELECT_EBENE2") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnTASK_DATE = MyBase.Columns("TASK_DATE") - Me.columnWF_ENT_GUID = MyBase.Columns("WF_ENT_GUID") - Me.columnWF_ID = MyBase.Columns("WF_ID") + Me.columnCOLUMN_NAME1 = MyBase.Columns("COLUMN_NAME1") + Me.columnCOLUMN_NAME2 = MyBase.Columns("COLUMN_NAME2") + Me.columnWINDREAM_SEARCH = MyBase.Columns("WINDREAM_SEARCH") + Me.columnSEARCH_PATTERN1 = MyBase.Columns("SEARCH_PATTERN1") + Me.columnSEARCH_PATTERN2 = MyBase.Columns("SEARCH_PATTERN2") + Me.columnSEARCH_PATTERN3 = MyBase.Columns("SEARCH_PATTERN3") + Me.columnSEARCH_PATTERN4 = MyBase.Columns("SEARCH_PATTERN4") + Me.columnSEARCH_PATTERN5 = MyBase.Columns("SEARCH_PATTERN5") + Me.columnLOAD_DIRECT = MyBase.Columns("LOAD_DIRECT") + Me.columnSQL_QUICK_VIEW = MyBase.Columns("SQL_QUICK_VIEW") End Sub _ Private Sub InitClass() - Me.columnWF_TASK_ID = New Global.System.Data.DataColumn("WF_TASK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWF_TASK_ID) - Me.columnTITLE = New Global.System.Data.DataColumn("TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTITLE) - Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnRECORD_ID) - Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSTATE_ID) - Me.columnSTATE_DESC = New Global.System.Data.DataColumn("STATE_DESC", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSTATE_DESC) - Me.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCOLOR) - Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCOMMENT) - Me.columnDUE_DATE = New Global.System.Data.DataColumn("DUE_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnDUE_DATE) - Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSERNAME) - 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.columnTASK_DATE = New Global.System.Data.DataColumn("TASK_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTASK_DATE) - Me.columnWF_ENT_GUID = New Global.System.Data.DataColumn("WF_ENT_GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWF_ENT_GUID) - Me.columnWF_ID = New Global.System.Data.DataColumn("WF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnWF_ID) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnWF_TASK_ID}, true)) - Me.columnWF_TASK_ID.AllowDBNull = false - Me.columnWF_TASK_ID.Unique = true - Me.columnTITLE.AllowDBNull = false - Me.columnTITLE.MaxLength = 100 - Me.columnRECORD_ID.AllowDBNull = false - Me.columnSTATE_ID.AllowDBNull = false - Me.columnSTATE_DESC.AllowDBNull = false - Me.columnSTATE_DESC.MaxLength = 50 - Me.columnCOLOR.MaxLength = 50 - Me.columnCOMMENT.MaxLength = 500 - Me.columnUSERNAME.ReadOnly = true - Me.columnUSERNAME.MaxLength = 1 + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnCONSTRUCT_ID = New Global.System.Data.DataColumn("CONSTRUCT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONSTRUCT_ID) + Me.columnFORM_ID = New Global.System.Data.DataColumn("FORM_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_ID) + Me.columnPARENT_ID = New Global.System.Data.DataColumn("PARENT_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPARENT_ID) + Me.columnLEVEL1_SELECT = New Global.System.Data.DataColumn("LEVEL1_SELECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLEVEL1_SELECT) + Me.columnSEQUENCE = New Global.System.Data.DataColumn("SEQUENCE", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEQUENCE) + Me.columnSQL_SELECT_EBENE1 = New Global.System.Data.DataColumn("SQL_SELECT_EBENE1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_SELECT_EBENE1) + Me.columnSQL_SELECT_EBENE2 = New Global.System.Data.DataColumn("SQL_SELECT_EBENE2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_SELECT_EBENE2) + 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.columnCOLUMN_NAME1 = New Global.System.Data.DataColumn("COLUMN_NAME1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLUMN_NAME1) + Me.columnCOLUMN_NAME2 = New Global.System.Data.DataColumn("COLUMN_NAME2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLUMN_NAME2) + Me.columnWINDREAM_SEARCH = New Global.System.Data.DataColumn("WINDREAM_SEARCH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWINDREAM_SEARCH) + Me.columnSEARCH_PATTERN1 = New Global.System.Data.DataColumn("SEARCH_PATTERN1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN1) + Me.columnSEARCH_PATTERN2 = New Global.System.Data.DataColumn("SEARCH_PATTERN2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN2) + Me.columnSEARCH_PATTERN3 = New Global.System.Data.DataColumn("SEARCH_PATTERN3", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN3) + Me.columnSEARCH_PATTERN4 = New Global.System.Data.DataColumn("SEARCH_PATTERN4", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN4) + Me.columnSEARCH_PATTERN5 = New Global.System.Data.DataColumn("SEARCH_PATTERN5", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSEARCH_PATTERN5) + Me.columnLOAD_DIRECT = New Global.System.Data.DataColumn("LOAD_DIRECT", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLOAD_DIRECT) + Me.columnSQL_QUICK_VIEW = New Global.System.Data.DataColumn("SQL_QUICK_VIEW", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_QUICK_VIEW) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) + Me.columnGUID.AutoIncrement = true + Me.columnGUID.AllowDBNull = false + Me.columnGUID.ReadOnly = true + Me.columnGUID.Unique = true + Me.columnCONSTRUCT_ID.AllowDBNull = false + Me.columnFORM_ID.AllowDBNull = false + Me.columnPARENT_ID.AllowDBNull = false + Me.columnPARENT_ID.DefaultValue = CType(0,Integer) + Me.columnLEVEL1_SELECT.AllowDBNull = false + Me.columnSEQUENCE.AllowDBNull = false + Me.columnSQL_SELECT_EBENE1.MaxLength = 4000 + Me.columnSQL_SELECT_EBENE2.AllowDBNull = false + Me.columnSQL_SELECT_EBENE2.MaxLength = 4000 + Me.columnADDED_WHO.MaxLength = 50 + Me.columnADDED_WHEN.AllowDBNull = false Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnWF_ENT_GUID.AllowDBNull = false - Me.columnWF_ID.AllowDBNull = false + Me.columnCOLUMN_NAME1.AllowDBNull = false + Me.columnCOLUMN_NAME1.MaxLength = 100 + Me.columnCOLUMN_NAME2.AllowDBNull = false + Me.columnCOLUMN_NAME2.MaxLength = 100 + Me.columnWINDREAM_SEARCH.MaxLength = 300 + Me.columnSEARCH_PATTERN1.MaxLength = 50 + Me.columnSEARCH_PATTERN2.MaxLength = 50 + Me.columnSEARCH_PATTERN3.MaxLength = 50 + Me.columnSEARCH_PATTERN4.MaxLength = 50 + Me.columnSEARCH_PATTERN5.MaxLength = 50 + Me.columnLOAD_DIRECT.AllowDBNull = false + Me.columnSQL_QUICK_VIEW.AllowDBNull = false + Me.columnSQL_QUICK_VIEW.MaxLength = 2147483647 End Sub _ - Public Function NewVWPMO_WF_ACTIVERow() As VWPMO_WF_ACTIVERow - Return CType(Me.NewRow,VWPMO_WF_ACTIVERow) + Public Function NewTBPMO_FORM_CONSTRUCTOR_DETAILRow() As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Return CType(Me.NewRow,TBPMO_FORM_CONSTRUCTOR_DETAILRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New VWPMO_WF_ACTIVERow(builder) + Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(VWPMO_WF_ACTIVERow) + Return GetType(TBPMO_FORM_CONSTRUCTOR_DETAILRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.VWPMO_WF_ACTIVERowChangedEvent) Is Nothing) Then - RaiseEvent VWPMO_WF_ACTIVERowChanged(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action)) + If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) End If End Sub @@ -14884,8 +15036,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.VWPMO_WF_ACTIVERowChangingEvent) Is Nothing) Then - RaiseEvent VWPMO_WF_ACTIVERowChanging(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action)) + If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) End If End Sub @@ -14893,8 +15045,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.VWPMO_WF_ACTIVERowDeletedEvent) Is Nothing) Then - RaiseEvent VWPMO_WF_ACTIVERowDeleted(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action)) + If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) End If End Sub @@ -14902,14 +15054,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.VWPMO_WF_ACTIVERowDeletingEvent) Is Nothing) Then - RaiseEvent VWPMO_WF_ACTIVERowDeleting(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action)) + If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) End If End Sub _ - Public Sub RemoveVWPMO_WF_ACTIVERow(ByVal row As VWPMO_WF_ACTIVERow) + Public Sub RemoveTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow) Me.Rows.Remove(row) End Sub @@ -14936,7 +15088,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "VWPMO_WF_ACTIVEDataTable" + attribute2.FixedValue = "TBPMO_FORM_CONSTRUCTOR_DETAILDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -14985,36 +15137,46 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBDD_EMAIL_ACCOUNTDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_EMAIL_ACCOUNTRow) + Partial Public Class VWDDINDEX_AUTOMDataTable + Inherits Global.System.Data.TypedTableBase(Of VWDDINDEX_AUTOMRow) Private columnGUID As Global.System.Data.DataColumn - Private columnNAME As Global.System.Data.DataColumn + Private columnINDEXNAME As Global.System.Data.DataColumn - Private columnEMAIL_FROM As Global.System.Data.DataColumn + Private columnCOMMENT As Global.System.Data.DataColumn - Private columnEMAIL_SMTP As Global.System.Data.DataColumn + Private columnDOCTYPE_ID As Global.System.Data.DataColumn - Private columnEMAIL_USER As Global.System.Data.DataColumn + Private columnDOKUMENTART As Global.System.Data.DataColumn - Private columnEMAIL_PW As Global.System.Data.DataColumn + Private columnKURZNAME As Global.System.Data.DataColumn - Private columnACTIVE As Global.System.Data.DataColumn + Private columnCONNECTION_ID As Global.System.Data.DataColumn - Private columnADDED_WHO As Global.System.Data.DataColumn + Private columnCONNECTION As Global.System.Data.DataColumn - Private columnADDED_WHEN As Global.System.Data.DataColumn + Private columnSQL_PROVIDER As Global.System.Data.DataColumn - Private columnCHANGED_WHO As Global.System.Data.DataColumn + Private columnSERVER As Global.System.Data.DataColumn - Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnDATENBANK As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnPASSWORD As Global.System.Data.DataColumn + + Private columnSQL_RESULT As Global.System.Data.DataColumn + + Private columnSQL_ACTIVE As Global.System.Data.DataColumn + + Private columnVALUE As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBDD_EMAIL_ACCOUNT" + Me.TableName = "VWDDINDEX_AUTOM" Me.BeginInit Me.InitClass Me.EndInit @@ -15055,81 +15217,121 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnNAME + Return Me.columnINDEXNAME End Get End Property _ - Public ReadOnly Property EMAIL_FROMColumn() As Global.System.Data.DataColumn + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get - Return Me.columnEMAIL_FROM + Return Me.columnCOMMENT End Get End Property _ - Public ReadOnly Property EMAIL_SMTPColumn() As Global.System.Data.DataColumn + Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnEMAIL_SMTP + Return Me.columnDOCTYPE_ID End Get End Property _ - Public ReadOnly Property EMAIL_USERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property DOKUMENTARTColumn() As Global.System.Data.DataColumn Get - Return Me.columnEMAIL_USER + Return Me.columnDOKUMENTART End Get End Property _ - Public ReadOnly Property EMAIL_PWColumn() As Global.System.Data.DataColumn + Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnEMAIL_PW + Return Me.columnKURZNAME End Get End Property _ - Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnACTIVE + Return Me.columnCONNECTION_ID End Get End Property _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CONNECTIONColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHO + Return Me.columnCONNECTION End Get End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHEN + Return Me.columnSQL_PROVIDER End Get End Property _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHO + Return Me.columnSERVER End Get End Property _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHEN + Return Me.columnDATENBANK + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPASSWORD + End Get + End Property + + _ + Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_RESULT + End Get + End Property + + _ + Public ReadOnly Property SQL_ACTIVEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_ACTIVE + End Get + End Property + + _ + Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnVALUE End Get End Property @@ -15144,50 +15346,66 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_EMAIL_ACCOUNTRow + Public Default ReadOnly Property Item(ByVal index As Integer) As VWDDINDEX_AUTOMRow Get - Return CType(Me.Rows(index),TBDD_EMAIL_ACCOUNTRow) + Return CType(Me.Rows(index),VWDDINDEX_AUTOMRow) End Get End Property _ - Public Event TBDD_EMAIL_ACCOUNTRowChanging As TBDD_EMAIL_ACCOUNTRowChangeEventHandler + Public Event VWDDINDEX_AUTOMRowChanging As VWDDINDEX_AUTOMRowChangeEventHandler _ - Public Event TBDD_EMAIL_ACCOUNTRowChanged As TBDD_EMAIL_ACCOUNTRowChangeEventHandler + Public Event VWDDINDEX_AUTOMRowChanged As VWDDINDEX_AUTOMRowChangeEventHandler _ - Public Event TBDD_EMAIL_ACCOUNTRowDeleting As TBDD_EMAIL_ACCOUNTRowChangeEventHandler + Public Event VWDDINDEX_AUTOMRowDeleting As VWDDINDEX_AUTOMRowChangeEventHandler _ - Public Event TBDD_EMAIL_ACCOUNTRowDeleted As TBDD_EMAIL_ACCOUNTRowChangeEventHandler + Public Event VWDDINDEX_AUTOMRowDeleted As VWDDINDEX_AUTOMRowChangeEventHandler _ - Public Overloads Sub AddTBDD_EMAIL_ACCOUNTRow(ByVal row As TBDD_EMAIL_ACCOUNTRow) + Public Overloads Sub AddVWDDINDEX_AUTOMRow(ByVal row As VWDDINDEX_AUTOMRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBDD_EMAIL_ACCOUNTRow(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_EMAIL_ACCOUNTRow - Dim rowTBDD_EMAIL_ACCOUNTRow As TBDD_EMAIL_ACCOUNTRow = CType(Me.NewRow,TBDD_EMAIL_ACCOUNTRow) - Dim columnValuesArray() As Object = New Object() {Nothing, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - rowTBDD_EMAIL_ACCOUNTRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_EMAIL_ACCOUNTRow) - Return rowTBDD_EMAIL_ACCOUNTRow + Public Overloads Function AddVWDDINDEX_AUTOMRow( _ + ByVal GUID As Integer, _ + ByVal INDEXNAME As String, _ + ByVal COMMENT As String, _ + ByVal DOCTYPE_ID As Integer, _ + ByVal DOKUMENTART As String, _ + ByVal KURZNAME As String, _ + ByVal CONNECTION_ID As Short, _ + ByVal CONNECTION As String, _ + ByVal SQL_PROVIDER As String, _ + ByVal SERVER As String, _ + ByVal DATENBANK As String, _ + ByVal USERNAME As String, _ + ByVal PASSWORD As String, _ + ByVal SQL_RESULT As String, _ + ByVal SQL_ACTIVE As Boolean, _ + ByVal VALUE As String) As VWDDINDEX_AUTOMRow + Dim rowVWDDINDEX_AUTOMRow As VWDDINDEX_AUTOMRow = CType(Me.NewRow,VWDDINDEX_AUTOMRow) + Dim columnValuesArray() As Object = New Object() {GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, SQL_ACTIVE, VALUE} + rowVWDDINDEX_AUTOMRow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWDDINDEX_AUTOMRow) + Return rowVWDDINDEX_AUTOMRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_EMAIL_ACCOUNTRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_EMAIL_ACCOUNTRow) + Public Function FindByGUID(ByVal GUID As Integer) As VWDDINDEX_AUTOMRow + Return CType(Me.Rows.Find(New Object() {GUID}),VWDDINDEX_AUTOMRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_EMAIL_ACCOUNTDataTable = CType(MyBase.Clone,TBDD_EMAIL_ACCOUNTDataTable) + Dim cln As VWDDINDEX_AUTOMDataTable = CType(MyBase.Clone,VWDDINDEX_AUTOMDataTable) cln.InitVars Return cln End Function @@ -15195,23 +15413,28 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_EMAIL_ACCOUNTDataTable() + Return New VWDDINDEX_AUTOMDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnNAME = MyBase.Columns("NAME") - Me.columnEMAIL_FROM = MyBase.Columns("EMAIL_FROM") - Me.columnEMAIL_SMTP = MyBase.Columns("EMAIL_SMTP") - Me.columnEMAIL_USER = MyBase.Columns("EMAIL_USER") - Me.columnEMAIL_PW = MyBase.Columns("EMAIL_PW") - Me.columnACTIVE = MyBase.Columns("ACTIVE") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") + Me.columnDOKUMENTART = MyBase.Columns("DOKUMENTART") + Me.columnKURZNAME = MyBase.Columns("KURZNAME") + Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") + Me.columnCONNECTION = MyBase.Columns("CONNECTION") + Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") + Me.columnSERVER = MyBase.Columns("SERVER") + Me.columnDATENBANK = MyBase.Columns("DATENBANK") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnPASSWORD = MyBase.Columns("PASSWORD") + Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT") + Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE") + Me.columnVALUE = MyBase.Columns("VALUE") End Sub _ - Public Function NewTBDD_EMAIL_ACCOUNTRow() As TBDD_EMAIL_ACCOUNTRow - Return CType(Me.NewRow,TBDD_EMAIL_ACCOUNTRow) + Public Function NewVWDDINDEX_AUTOMRow() As VWDDINDEX_AUTOMRow + Return CType(Me.NewRow,VWDDINDEX_AUTOMRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_EMAIL_ACCOUNTRow(builder) + Return New VWDDINDEX_AUTOMRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_EMAIL_ACCOUNTRow) + Return GetType(VWDDINDEX_AUTOMRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_EMAIL_ACCOUNTRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_EMAIL_ACCOUNTRowChanged(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) + If (Not (Me.VWDDINDEX_AUTOMRowChangedEvent) Is Nothing) Then + RaiseEvent VWDDINDEX_AUTOMRowChanged(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row,VWDDINDEX_AUTOMRow), e.Action)) End If End Sub @@ -15291,8 +15527,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_EMAIL_ACCOUNTRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_EMAIL_ACCOUNTRowChanging(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) + If (Not (Me.VWDDINDEX_AUTOMRowChangingEvent) Is Nothing) Then + RaiseEvent VWDDINDEX_AUTOMRowChanging(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row,VWDDINDEX_AUTOMRow), e.Action)) End If End Sub @@ -15300,8 +15536,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_EMAIL_ACCOUNTRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_EMAIL_ACCOUNTRowDeleted(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) + If (Not (Me.VWDDINDEX_AUTOMRowDeletedEvent) Is Nothing) Then + RaiseEvent VWDDINDEX_AUTOMRowDeleted(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row,VWDDINDEX_AUTOMRow), e.Action)) End If End Sub @@ -15309,14 +15545,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_EMAIL_ACCOUNTRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_EMAIL_ACCOUNTRowDeleting(Me, New TBDD_EMAIL_ACCOUNTRowChangeEvent(CType(e.Row,TBDD_EMAIL_ACCOUNTRow), e.Action)) + If (Not (Me.VWDDINDEX_AUTOMRowDeletingEvent) Is Nothing) Then + RaiseEvent VWDDINDEX_AUTOMRowDeleting(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row,VWDDINDEX_AUTOMRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_EMAIL_ACCOUNTRow(ByVal row As TBDD_EMAIL_ACCOUNTRow) + Public Sub RemoveVWDDINDEX_AUTOMRow(ByVal row As VWDDINDEX_AUTOMRow) Me.Rows.Remove(row) End Sub @@ -15343,7 +15579,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_EMAIL_ACCOUNTDataTable" + attribute2.FixedValue = "VWDDINDEX_AUTOMDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -15392,40 +15628,32 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBDD_CONNECTIONDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_CONNECTIONRow) + Partial Public Class TBPMO_TEMPLATEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_TEMPLATERow) Private columnGUID As Global.System.Data.DataColumn - Private columnSQL_PROVIDER As Global.System.Data.DataColumn - - Private columnSERVER As Global.System.Data.DataColumn - - Private columnUSERNAME As Global.System.Data.DataColumn - - Private columnPASSWORD As Global.System.Data.DataColumn - - Private columnBEZEICHNUNG As Global.System.Data.DataColumn + Private columnNAME As Global.System.Data.DataColumn - Private columnDATENBANK As Global.System.Data.DataColumn + Private columnTEMPLATE_PATH As Global.System.Data.DataColumn - Private columnBEMERKUNG As Global.System.Data.DataColumn + Private columnACTIVE As Global.System.Data.DataColumn - Private columnAKTIV As Global.System.Data.DataColumn + Private columnADDED_WHO As Global.System.Data.DataColumn - Private columnERSTELLTWER As Global.System.Data.DataColumn + Private columnADDED_WHEN As Global.System.Data.DataColumn - Private columnERSTELLTWANN As Global.System.Data.DataColumn + Private columnCHANGED_WHO As Global.System.Data.DataColumn - Private columnGEANDERTWER As Global.System.Data.DataColumn + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnGEAENDERTWANN As Global.System.Data.DataColumn + Private columnDOCTYPE_ID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBDD_CONNECTION" + Me.TableName = "TBPMO_TEMPLATE" Me.BeginInit Me.InitClass Me.EndInit @@ -15466,155 +15694,123 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnSQL_PROVIDER + Return Me.columnNAME End Get End Property _ - Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn + Public ReadOnly Property TEMPLATE_PATHColumn() As Global.System.Data.DataColumn Get - Return Me.columnSERVER + Return Me.columnTEMPLATE_PATH End Get End Property _ - Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSERNAME + Return Me.columnACTIVE End Get End Property _ - Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnPASSWORD + Return Me.columnADDED_WHO End Get End Property _ - Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnBEZEICHNUNG + Return Me.columnADDED_WHEN End Get End Property _ - Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnDATENBANK + Return Me.columnCHANGED_WHO End Get End Property _ - Public ReadOnly Property BEMERKUNGColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnBEMERKUNG + Return Me.columnCHANGED_WHEN End Get End Property _ - Public ReadOnly Property AKTIVColumn() As Global.System.Data.DataColumn + Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnAKTIV + Return Me.columnDOCTYPE_ID End Get End Property _ - Public ReadOnly Property ERSTELLTWERColumn() As Global.System.Data.DataColumn + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ + Global.System.ComponentModel.Browsable(false)> _ + Public ReadOnly Property Count() As Integer Get - Return Me.columnERSTELLTWER + Return Me.Rows.Count End Get End Property _ - Public ReadOnly Property ERSTELLTWANNColumn() As Global.System.Data.DataColumn + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_TEMPLATERow Get - Return Me.columnERSTELLTWANN + Return CType(Me.Rows(index),TBPMO_TEMPLATERow) End Get End Property + _ + Public Event TBPMO_TEMPLATERowChanging As TBPMO_TEMPLATERowChangeEventHandler + + _ + Public Event TBPMO_TEMPLATERowChanged As TBPMO_TEMPLATERowChangeEventHandler + + _ + Public Event TBPMO_TEMPLATERowDeleting As TBPMO_TEMPLATERowChangeEventHandler + + _ + Public Event TBPMO_TEMPLATERowDeleted As TBPMO_TEMPLATERowChangeEventHandler + _ - Public ReadOnly Property GEANDERTWERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGEANDERTWER - End Get - End Property + Public Overloads Sub AddTBPMO_TEMPLATERow(ByVal row As TBPMO_TEMPLATERow) + Me.Rows.Add(row) + End Sub _ - Public ReadOnly Property GEAENDERTWANNColumn() As Global.System.Data.DataColumn - Get - Return Me.columnGEAENDERTWANN - End Get - End Property - - _ - Public ReadOnly Property Count() As Integer - Get - Return Me.Rows.Count - End Get - End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CONNECTIONRow - Get - Return CType(Me.Rows(index),TBDD_CONNECTIONRow) - End Get - End Property - - _ - Public Event TBDD_CONNECTIONRowChanging As TBDD_CONNECTIONRowChangeEventHandler - - _ - Public Event TBDD_CONNECTIONRowChanged As TBDD_CONNECTIONRowChangeEventHandler - - _ - Public Event TBDD_CONNECTIONRowDeleting As TBDD_CONNECTIONRowChangeEventHandler - - _ - Public Event TBDD_CONNECTIONRowDeleted As TBDD_CONNECTIONRowChangeEventHandler - - _ - Public Overloads Sub AddTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBDD_CONNECTIONRow(ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEZEICHNUNG As String, ByVal DATENBANK As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_CONNECTIONRow - Dim rowTBDD_CONNECTIONRow As TBDD_CONNECTIONRow = CType(Me.NewRow,TBDD_CONNECTIONRow) - Dim columnValuesArray() As Object = New Object() {Nothing, SQL_PROVIDER, SERVER, USERNAME, PASSWORD, BEZEICHNUNG, DATENBANK, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} - rowTBDD_CONNECTIONRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_CONNECTIONRow) - Return rowTBDD_CONNECTIONRow + Public Overloads Function AddTBPMO_TEMPLATERow(ByVal NAME As String, ByVal TEMPLATE_PATH As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal DOCTYPE_ID As Integer) As TBPMO_TEMPLATERow + Dim rowTBPMO_TEMPLATERow As TBPMO_TEMPLATERow = CType(Me.NewRow,TBPMO_TEMPLATERow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, TEMPLATE_PATH, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DOCTYPE_ID} + rowTBPMO_TEMPLATERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_TEMPLATERow) + Return rowTBPMO_TEMPLATERow End Function _ - Public Function FindByGUID(ByVal GUID As Short) As TBDD_CONNECTIONRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CONNECTIONRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_TEMPLATERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_TEMPLATERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_CONNECTIONDataTable = CType(MyBase.Clone,TBDD_CONNECTIONDataTable) + Dim cln As TBPMO_TEMPLATEDataTable = CType(MyBase.Clone,TBPMO_TEMPLATEDataTable) cln.InitVars Return cln End Function @@ -15622,101 +15818,84 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_CONNECTIONDataTable() + Return New TBPMO_TEMPLATEDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") - Me.columnSERVER = MyBase.Columns("SERVER") - Me.columnUSERNAME = MyBase.Columns("USERNAME") - Me.columnPASSWORD = MyBase.Columns("PASSWORD") - Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") - Me.columnDATENBANK = MyBase.Columns("DATENBANK") - Me.columnBEMERKUNG = MyBase.Columns("BEMERKUNG") - Me.columnAKTIV = MyBase.Columns("AKTIV") - Me.columnERSTELLTWER = MyBase.Columns("ERSTELLTWER") - Me.columnERSTELLTWANN = MyBase.Columns("ERSTELLTWANN") - Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") - Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnTEMPLATE_PATH = MyBase.Columns("TEMPLATE_PATH") + Me.columnACTIVE = MyBase.Columns("ACTIVE") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") End Sub _ Private Sub InitClass() - Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) - Me.columnSQL_PROVIDER = New Global.System.Data.DataColumn("SQL_PROVIDER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSQL_PROVIDER) - Me.columnSERVER = New Global.System.Data.DataColumn("SERVER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSERVER) - Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSERNAME) - Me.columnPASSWORD = New Global.System.Data.DataColumn("PASSWORD", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPASSWORD) - Me.columnBEZEICHNUNG = New Global.System.Data.DataColumn("BEZEICHNUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBEZEICHNUNG) - Me.columnDATENBANK = New Global.System.Data.DataColumn("DATENBANK", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnDATENBANK) - Me.columnBEMERKUNG = New Global.System.Data.DataColumn("BEMERKUNG", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnBEMERKUNG) - Me.columnAKTIV = New Global.System.Data.DataColumn("AKTIV", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnAKTIV) - Me.columnERSTELLTWER = New Global.System.Data.DataColumn("ERSTELLTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnERSTELLTWER) - Me.columnERSTELLTWANN = New Global.System.Data.DataColumn("ERSTELLTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnERSTELLTWANN) - Me.columnGEANDERTWER = New Global.System.Data.DataColumn("GEANDERTWER", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGEANDERTWER) - Me.columnGEAENDERTWANN = New Global.System.Data.DataColumn("GEAENDERTWANN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnGEAENDERTWANN) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.columnTEMPLATE_PATH = New Global.System.Data.DataColumn("TEMPLATE_PATH", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTEMPLATE_PATH) + Me.columnACTIVE = New Global.System.Data.DataColumn("ACTIVE", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnACTIVE) + 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.columnDOCTYPE_ID = New Global.System.Data.DataColumn("DOCTYPE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDOCTYPE_ID) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true - Me.columnGUID.AutoIncrementSeed = -1 - Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true - Me.columnSQL_PROVIDER.MaxLength = 100 - Me.columnSERVER.MaxLength = 150 - Me.columnUSERNAME.MaxLength = 100 - Me.columnPASSWORD.MaxLength = 100 - Me.columnBEZEICHNUNG.MaxLength = 100 - Me.columnDATENBANK.MaxLength = 100 - Me.columnBEMERKUNG.MaxLength = 400 - Me.columnAKTIV.AllowDBNull = false - Me.columnERSTELLTWER.AllowDBNull = false - Me.columnERSTELLTWER.MaxLength = 50 - Me.columnERSTELLTWANN.AllowDBNull = false - Me.columnGEANDERTWER.MaxLength = 50 + Me.columnNAME.AllowDBNull = false + Me.columnNAME.MaxLength = 100 + Me.columnTEMPLATE_PATH.AllowDBNull = false + Me.columnTEMPLATE_PATH.MaxLength = 1000 + Me.columnACTIVE.AllowDBNull = false + Me.columnACTIVE.DefaultValue = CType(true,Boolean) + Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 + Me.columnDOCTYPE_ID.AllowDBNull = false End Sub _ - Public Function NewTBDD_CONNECTIONRow() As TBDD_CONNECTIONRow - Return CType(Me.NewRow,TBDD_CONNECTIONRow) + Public Function NewTBPMO_TEMPLATERow() As TBPMO_TEMPLATERow + Return CType(Me.NewRow,TBPMO_TEMPLATERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_CONNECTIONRow(builder) + Return New TBPMO_TEMPLATERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_CONNECTIONRow) + Return GetType(TBPMO_TEMPLATERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_CONNECTIONRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_CONNECTIONRowChanged(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + If (Not (Me.TBPMO_TEMPLATERowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_TEMPLATERowChanged(Me, New TBPMO_TEMPLATERowChangeEvent(CType(e.Row,TBPMO_TEMPLATERow), e.Action)) End If End Sub @@ -15724,8 +15903,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_CONNECTIONRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_CONNECTIONRowChanging(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + If (Not (Me.TBPMO_TEMPLATERowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_TEMPLATERowChanging(Me, New TBPMO_TEMPLATERowChangeEvent(CType(e.Row,TBPMO_TEMPLATERow), e.Action)) End If End Sub @@ -15733,8 +15912,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_CONNECTIONRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_CONNECTIONRowDeleted(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + If (Not (Me.TBPMO_TEMPLATERowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_TEMPLATERowDeleted(Me, New TBPMO_TEMPLATERowChangeEvent(CType(e.Row,TBPMO_TEMPLATERow), e.Action)) End If End Sub @@ -15742,14 +15921,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_CONNECTIONRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_CONNECTIONRowDeleting(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row,TBDD_CONNECTIONRow), e.Action)) + If (Not (Me.TBPMO_TEMPLATERowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_TEMPLATERowDeleting(Me, New TBPMO_TEMPLATERowChangeEvent(CType(e.Row,TBPMO_TEMPLATERow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) + Public Sub RemoveTBPMO_TEMPLATERow(ByVal row As TBPMO_TEMPLATERow) Me.Rows.Remove(row) End Sub @@ -15776,7 +15955,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_CONNECTIONDataTable" + attribute2.FixedValue = "TBPMO_TEMPLATEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -15825,58 +16004,26 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTOR_DETAILRow) + Partial Public Class TBPMO_TEMPLATE_ENTITYDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_TEMPLATE_ENTITYRow) Private columnGUID As Global.System.Data.DataColumn - Private columnCONSTRUCT_ID As Global.System.Data.DataColumn - - Private columnFORM_ID As Global.System.Data.DataColumn - - Private columnPARENT_ID As Global.System.Data.DataColumn - - Private columnLEVEL1_SELECT As Global.System.Data.DataColumn - - Private columnSEQUENCE As Global.System.Data.DataColumn - - Private columnSQL_SELECT_EBENE1 As Global.System.Data.DataColumn + Private columnTEMPLATE_ID As Global.System.Data.DataColumn - Private columnSQL_SELECT_EBENE2 As Global.System.Data.DataColumn + Private columnENTITY_ID As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn - Private columnCHANGED_WHO As Global.System.Data.DataColumn - Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnCOLUMN_NAME1 As Global.System.Data.DataColumn - - Private columnCOLUMN_NAME2 As Global.System.Data.DataColumn - - Private columnWINDREAM_SEARCH As Global.System.Data.DataColumn - - Private columnSEARCH_PATTERN1 As Global.System.Data.DataColumn - - Private columnSEARCH_PATTERN2 As Global.System.Data.DataColumn - - Private columnSEARCH_PATTERN3 As Global.System.Data.DataColumn - - Private columnSEARCH_PATTERN4 As Global.System.Data.DataColumn - - Private columnSEARCH_PATTERN5 As Global.System.Data.DataColumn - - Private columnLOAD_DIRECT As Global.System.Data.DataColumn - - Private columnSQL_QUICK_VIEW As Global.System.Data.DataColumn - _ Public Sub New() MyBase.New - Me.TableName = "TBPMO_FORM_CONSTRUCTOR_DETAIL" + Me.TableName = "TBPMO_TEMPLATE_ENTITY" Me.BeginInit Me.InitClass Me.EndInit @@ -15917,57 +16064,17 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property CONSTRUCT_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCONSTRUCT_ID - End Get - End Property - - _ - Public ReadOnly Property FORM_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnFORM_ID - End Get - End Property - - _ - Public ReadOnly Property PARENT_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPARENT_ID - End Get - End Property - - _ - Public ReadOnly Property LEVEL1_SELECTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLEVEL1_SELECT - End Get - End Property - - _ - Public ReadOnly Property SEQUENCEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSEQUENCE - End Get - End Property - - _ - Public ReadOnly Property SQL_SELECT_EBENE1Column() As Global.System.Data.DataColumn + Public ReadOnly Property TEMPLATE_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnSQL_SELECT_EBENE1 + Return Me.columnTEMPLATE_ID End Get End Property _ - Public ReadOnly Property SQL_SELECT_EBENE2Column() As Global.System.Data.DataColumn + Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnSQL_SELECT_EBENE2 + Return Me.columnENTITY_ID End Get End Property @@ -15987,14 +16094,6 @@ Partial Public Class DD_DMSDataSet 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 @@ -16003,86 +16102,6 @@ Partial Public Class DD_DMSDataSet End Get End Property - _ - Public ReadOnly Property COLUMN_NAME1Column() As Global.System.Data.DataColumn - Get - Return Me.columnCOLUMN_NAME1 - End Get - End Property - - _ - Public ReadOnly Property COLUMN_NAME2Column() As Global.System.Data.DataColumn - Get - Return Me.columnCOLUMN_NAME2 - End Get - End Property - - _ - Public ReadOnly Property WINDREAM_SEARCHColumn() As Global.System.Data.DataColumn - Get - Return Me.columnWINDREAM_SEARCH - End Get - End Property - - _ - Public ReadOnly Property SEARCH_PATTERN1Column() As Global.System.Data.DataColumn - Get - Return Me.columnSEARCH_PATTERN1 - End Get - End Property - - _ - Public ReadOnly Property SEARCH_PATTERN2Column() As Global.System.Data.DataColumn - Get - Return Me.columnSEARCH_PATTERN2 - End Get - End Property - - _ - Public ReadOnly Property SEARCH_PATTERN3Column() As Global.System.Data.DataColumn - Get - Return Me.columnSEARCH_PATTERN3 - End Get - End Property - - _ - Public ReadOnly Property SEARCH_PATTERN4Column() As Global.System.Data.DataColumn - Get - Return Me.columnSEARCH_PATTERN4 - End Get - End Property - - _ - Public ReadOnly Property SEARCH_PATTERN5Column() As Global.System.Data.DataColumn - Get - Return Me.columnSEARCH_PATTERN5 - End Get - End Property - - _ - Public ReadOnly Property LOAD_DIRECTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnLOAD_DIRECT - End Get - End Property - - _ - Public ReadOnly Property SQL_QUICK_VIEWColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSQL_QUICK_VIEW - End Get - End Property - _ @@ -16094,77 +16113,56 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_TEMPLATE_ENTITYRow Get - Return CType(Me.Rows(index),TBPMO_FORM_CONSTRUCTOR_DETAILRow) + Return CType(Me.Rows(index),TBPMO_TEMPLATE_ENTITYRow) End Get End Property _ - Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler + Public Event TBPMO_TEMPLATE_ENTITYRowChanging As TBPMO_TEMPLATE_ENTITYRowChangeEventHandler _ - Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler + Public Event TBPMO_TEMPLATE_ENTITYRowChanged As TBPMO_TEMPLATE_ENTITYRowChangeEventHandler _ - Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler + Public Event TBPMO_TEMPLATE_ENTITYRowDeleting As TBPMO_TEMPLATE_ENTITYRowChangeEventHandler _ - Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler + Public Event TBPMO_TEMPLATE_ENTITYRowDeleted As TBPMO_TEMPLATE_ENTITYRowChangeEventHandler _ - Public Overloads Sub AddTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow) + Public Overloads Sub AddTBPMO_TEMPLATE_ENTITYRow(ByVal row As TBPMO_TEMPLATE_ENTITYRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPMO_FORM_CONSTRUCTOR_DETAILRow( _ - ByVal parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As TBPMO_FORM_CONSTRUCTORRow, _ - ByVal parentTBPMO_FORMRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID As TBPMO_FORMRow, _ - ByVal PARENT_ID As Integer, _ - ByVal LEVEL1_SELECT As Boolean, _ - ByVal SEQUENCE As Integer, _ - ByVal SQL_SELECT_EBENE1 As String, _ - ByVal SQL_SELECT_EBENE2 As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Date, _ - ByVal COLUMN_NAME1 As String, _ - ByVal COLUMN_NAME2 As String, _ - ByVal WINDREAM_SEARCH As String, _ - ByVal SEARCH_PATTERN1 As String, _ - ByVal SEARCH_PATTERN2 As String, _ - ByVal SEARCH_PATTERN3 As String, _ - ByVal SEARCH_PATTERN4 As String, _ - ByVal SEARCH_PATTERN5 As String, _ - ByVal LOAD_DIRECT As Boolean, _ - ByVal SQL_QUICK_VIEW As String) As TBPMO_FORM_CONSTRUCTOR_DETAILRow - Dim rowTBPMO_FORM_CONSTRUCTOR_DETAILRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow = CType(Me.NewRow,TBPMO_FORM_CONSTRUCTOR_DETAILRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5, LOAD_DIRECT, SQL_QUICK_VIEW} - If (Not (parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID) Is Nothing) Then - columnValuesArray(1) = parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID(0) + Public Overloads Function AddTBPMO_TEMPLATE_ENTITYRow(ByVal parentTBPMO_TEMPLATERowByFK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID As TBPMO_TEMPLATERow, ByVal parentTBPMO_FORMRowByFK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID As TBPMO_FORMRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHEN As Date) As TBPMO_TEMPLATE_ENTITYRow + Dim rowTBPMO_TEMPLATE_ENTITYRow As TBPMO_TEMPLATE_ENTITYRow = CType(Me.NewRow,TBPMO_TEMPLATE_ENTITYRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHEN} + If (Not (parentTBPMO_TEMPLATERowByFK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID) Is Nothing) Then + columnValuesArray(1) = parentTBPMO_TEMPLATERowByFK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID(0) End If - If (Not (parentTBPMO_FORMRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID) Is Nothing) Then - columnValuesArray(2) = parentTBPMO_FORMRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_FORMID(0) + If (Not (parentTBPMO_FORMRowByFK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID) Is Nothing) Then + columnValuesArray(2) = parentTBPMO_FORMRowByFK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID(0) End If - rowTBPMO_FORM_CONSTRUCTOR_DETAILRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTOR_DETAILRow) - Return rowTBPMO_FORM_CONSTRUCTOR_DETAILRow + rowTBPMO_TEMPLATE_ENTITYRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_TEMPLATE_ENTITYRow) + Return rowTBPMO_TEMPLATE_ENTITYRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_CONSTRUCTOR_DETAILRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_TEMPLATE_ENTITYRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_TEMPLATE_ENTITYRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = CType(MyBase.Clone,TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) + Dim cln As TBPMO_TEMPLATE_ENTITYDataTable = CType(MyBase.Clone,TBPMO_TEMPLATE_ENTITYDataTable) cln.InitVars Return cln End Function @@ -16172,34 +16170,18 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() + Return New TBPMO_TEMPLATE_ENTITYDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnCONSTRUCT_ID = MyBase.Columns("CONSTRUCT_ID") - Me.columnFORM_ID = MyBase.Columns("FORM_ID") - Me.columnPARENT_ID = MyBase.Columns("PARENT_ID") - Me.columnLEVEL1_SELECT = MyBase.Columns("LEVEL1_SELECT") - Me.columnSEQUENCE = MyBase.Columns("SEQUENCE") - Me.columnSQL_SELECT_EBENE1 = MyBase.Columns("SQL_SELECT_EBENE1") - Me.columnSQL_SELECT_EBENE2 = MyBase.Columns("SQL_SELECT_EBENE2") + Me.columnTEMPLATE_ID = MyBase.Columns("TEMPLATE_ID") + Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnCOLUMN_NAME1 = MyBase.Columns("COLUMN_NAME1") - Me.columnCOLUMN_NAME2 = MyBase.Columns("COLUMN_NAME2") - Me.columnWINDREAM_SEARCH = MyBase.Columns("WINDREAM_SEARCH") - Me.columnSEARCH_PATTERN1 = MyBase.Columns("SEARCH_PATTERN1") - Me.columnSEARCH_PATTERN2 = MyBase.Columns("SEARCH_PATTERN2") - Me.columnSEARCH_PATTERN3 = MyBase.Columns("SEARCH_PATTERN3") - Me.columnSEARCH_PATTERN4 = MyBase.Columns("SEARCH_PATTERN4") - Me.columnSEARCH_PATTERN5 = MyBase.Columns("SEARCH_PATTERN5") - Me.columnLOAD_DIRECT = MyBase.Columns("LOAD_DIRECT") - Me.columnSQL_QUICK_VIEW = MyBase.Columns("SQL_QUICK_VIEW") End Sub _ - Public Function NewTBPMO_FORM_CONSTRUCTOR_DETAILRow() As TBPMO_FORM_CONSTRUCTOR_DETAILRow - Return CType(Me.NewRow,TBPMO_FORM_CONSTRUCTOR_DETAILRow) + Public Function NewTBPMO_TEMPLATE_ENTITYRow() As TBPMO_TEMPLATE_ENTITYRow + Return CType(Me.NewRow,TBPMO_TEMPLATE_ENTITYRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(builder) + Return New TBPMO_TEMPLATE_ENTITYRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPMO_FORM_CONSTRUCTOR_DETAILRow) + Return GetType(TBPMO_TEMPLATE_ENTITYRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) + If (Not (Me.TBPMO_TEMPLATE_ENTITYRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_TEMPLATE_ENTITYRowChanged(Me, New TBPMO_TEMPLATE_ENTITYRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_ENTITYRow), e.Action)) End If End Sub @@ -16312,8 +16240,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) + If (Not (Me.TBPMO_TEMPLATE_ENTITYRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_TEMPLATE_ENTITYRowChanging(Me, New TBPMO_TEMPLATE_ENTITYRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_ENTITYRow), e.Action)) End If End Sub @@ -16321,8 +16249,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) + If (Not (Me.TBPMO_TEMPLATE_ENTITYRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_TEMPLATE_ENTITYRowDeleted(Me, New TBPMO_TEMPLATE_ENTITYRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_ENTITYRow), e.Action)) End If End Sub @@ -16330,14 +16258,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPMO_FORM_CONSTRUCTOR_DETAILRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) + If (Not (Me.TBPMO_TEMPLATE_ENTITYRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_TEMPLATE_ENTITYRowDeleting(Me, New TBPMO_TEMPLATE_ENTITYRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_ENTITYRow), e.Action)) End If End Sub _ - Public Sub RemoveTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow) + Public Sub RemoveTBPMO_TEMPLATE_ENTITYRow(ByVal row As TBPMO_TEMPLATE_ENTITYRow) Me.Rows.Remove(row) End Sub @@ -16364,7 +16292,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPMO_FORM_CONSTRUCTOR_DETAILDataTable" + attribute2.FixedValue = "TBPMO_TEMPLATE_ENTITYDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -16413,46 +16341,34 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class VWDDINDEX_AUTOMDataTable - Inherits Global.System.Data.TypedTableBase(Of VWDDINDEX_AUTOMRow) + Partial Public Class TBPMO_TEMPLATE_PATTERNDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_TEMPLATE_PATTERNRow) Private columnGUID As Global.System.Data.DataColumn - Private columnINDEXNAME As Global.System.Data.DataColumn - - Private columnCOMMENT As Global.System.Data.DataColumn - - Private columnDOCTYPE_ID As Global.System.Data.DataColumn - - Private columnDOKUMENTART As Global.System.Data.DataColumn + Private columnNAME_PATTERN As Global.System.Data.DataColumn - Private columnKURZNAME As Global.System.Data.DataColumn + Private columnFIXED_VALUE As Global.System.Data.DataColumn Private columnCONNECTION_ID As Global.System.Data.DataColumn - Private columnCONNECTION As Global.System.Data.DataColumn - - Private columnSQL_PROVIDER As Global.System.Data.DataColumn - - Private columnSERVER As Global.System.Data.DataColumn - - Private columnDATENBANK As Global.System.Data.DataColumn + Private columnSQL_COMMAND As Global.System.Data.DataColumn - Private columnUSERNAME As Global.System.Data.DataColumn + Private columnADDED_WHO As Global.System.Data.DataColumn - Private columnPASSWORD As Global.System.Data.DataColumn + Private columnADDED_WHEN As Global.System.Data.DataColumn - Private columnSQL_RESULT As Global.System.Data.DataColumn + Private columnCHANGED_WHO As Global.System.Data.DataColumn - Private columnSQL_ACTIVE As Global.System.Data.DataColumn + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnVALUE As Global.System.Data.DataColumn + Private columnTEMPLATE_ENT_ID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "VWDDINDEX_AUTOM" + Me.TableName = "TBPMO_TEMPLATE_PATTERN" Me.BeginInit Me.InitClass Me.EndInit @@ -16493,41 +16409,17 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property INDEXNAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnINDEXNAME - End Get - End Property - - _ - Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCOMMENT - End Get - End Property - - _ - Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnDOCTYPE_ID - End Get - End Property - - _ - Public ReadOnly Property DOKUMENTARTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NAME_PATTERNColumn() As Global.System.Data.DataColumn Get - Return Me.columnDOKUMENTART + Return Me.columnNAME_PATTERN End Get End Property _ - Public ReadOnly Property KURZNAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property FIXED_VALUEColumn() As Global.System.Data.DataColumn Get - Return Me.columnKURZNAME + Return Me.columnFIXED_VALUE End Get End Property @@ -16541,73 +16433,49 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property CONNECTIONColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCONNECTION - End Get - End Property - - _ - Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSQL_PROVIDER - End Get - End Property - - _ - Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn - Get - Return Me.columnSERVER - End Get - End Property - - _ - Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn Get - Return Me.columnDATENBANK + Return Me.columnSQL_COMMAND End Get End Property _ - Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSERNAME + Return Me.columnADDED_WHO End Get End Property _ - Public ReadOnly Property PASSWORDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnPASSWORD + Return Me.columnADDED_WHEN End Get End Property _ - Public ReadOnly Property SQL_RESULTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnSQL_RESULT + Return Me.columnCHANGED_WHO End Get End Property _ - Public ReadOnly Property SQL_ACTIVEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnSQL_ACTIVE + Return Me.columnCHANGED_WHEN End Get End Property _ - Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property TEMPLATE_ENT_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnVALUE + Return Me.columnTEMPLATE_ENT_ID End Get End Property @@ -16622,66 +16490,53 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As VWDDINDEX_AUTOMRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_TEMPLATE_PATTERNRow Get - Return CType(Me.Rows(index),VWDDINDEX_AUTOMRow) + Return CType(Me.Rows(index),TBPMO_TEMPLATE_PATTERNRow) End Get End Property _ - Public Event VWDDINDEX_AUTOMRowChanging As VWDDINDEX_AUTOMRowChangeEventHandler + Public Event TBPMO_TEMPLATE_PATTERNRowChanging As TBPMO_TEMPLATE_PATTERNRowChangeEventHandler _ - Public Event VWDDINDEX_AUTOMRowChanged As VWDDINDEX_AUTOMRowChangeEventHandler + Public Event TBPMO_TEMPLATE_PATTERNRowChanged As TBPMO_TEMPLATE_PATTERNRowChangeEventHandler _ - Public Event VWDDINDEX_AUTOMRowDeleting As VWDDINDEX_AUTOMRowChangeEventHandler + Public Event TBPMO_TEMPLATE_PATTERNRowDeleting As TBPMO_TEMPLATE_PATTERNRowChangeEventHandler _ - Public Event VWDDINDEX_AUTOMRowDeleted As VWDDINDEX_AUTOMRowChangeEventHandler + Public Event TBPMO_TEMPLATE_PATTERNRowDeleted As TBPMO_TEMPLATE_PATTERNRowChangeEventHandler _ - Public Overloads Sub AddVWDDINDEX_AUTOMRow(ByVal row As VWDDINDEX_AUTOMRow) + Public Overloads Sub AddTBPMO_TEMPLATE_PATTERNRow(ByVal row As TBPMO_TEMPLATE_PATTERNRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddVWDDINDEX_AUTOMRow( _ - ByVal GUID As Integer, _ - ByVal INDEXNAME As String, _ - ByVal COMMENT As String, _ - ByVal DOCTYPE_ID As Integer, _ - ByVal DOKUMENTART As String, _ - ByVal KURZNAME As String, _ - ByVal CONNECTION_ID As Short, _ - ByVal CONNECTION As String, _ - ByVal SQL_PROVIDER As String, _ - ByVal SERVER As String, _ - ByVal DATENBANK As String, _ - ByVal USERNAME As String, _ - ByVal PASSWORD As String, _ - ByVal SQL_RESULT As String, _ - ByVal SQL_ACTIVE As Boolean, _ - ByVal VALUE As String) As VWDDINDEX_AUTOMRow - Dim rowVWDDINDEX_AUTOMRow As VWDDINDEX_AUTOMRow = CType(Me.NewRow,VWDDINDEX_AUTOMRow) - Dim columnValuesArray() As Object = New Object() {GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNECTION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RESULT, SQL_ACTIVE, VALUE} - rowVWDDINDEX_AUTOMRow.ItemArray = columnValuesArray - Me.Rows.Add(rowVWDDINDEX_AUTOMRow) - Return rowVWDDINDEX_AUTOMRow + Public Overloads Function AddTBPMO_TEMPLATE_PATTERNRow(ByVal NAME_PATTERN As String, ByVal FIXED_VALUE As String, ByVal CONNECTION_ID As Integer, ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal parentTBPMO_TEMPLATE_ENTITYRowByFK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID As TBPMO_TEMPLATE_ENTITYRow) As TBPMO_TEMPLATE_PATTERNRow + Dim rowTBPMO_TEMPLATE_PATTERNRow As TBPMO_TEMPLATE_PATTERNRow = CType(Me.NewRow,TBPMO_TEMPLATE_PATTERNRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME_PATTERN, FIXED_VALUE, CONNECTION_ID, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Nothing} + If (Not (parentTBPMO_TEMPLATE_ENTITYRowByFK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID) Is Nothing) Then + columnValuesArray(9) = parentTBPMO_TEMPLATE_ENTITYRowByFK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID(0) + End If + rowTBPMO_TEMPLATE_PATTERNRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_TEMPLATE_PATTERNRow) + Return rowTBPMO_TEMPLATE_PATTERNRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As VWDDINDEX_AUTOMRow - Return CType(Me.Rows.Find(New Object() {GUID}),VWDDINDEX_AUTOMRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_TEMPLATE_PATTERNRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_TEMPLATE_PATTERNRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWDDINDEX_AUTOMDataTable = CType(MyBase.Clone,VWDDINDEX_AUTOMDataTable) + Dim cln As TBPMO_TEMPLATE_PATTERNDataTable = CType(MyBase.Clone,TBPMO_TEMPLATE_PATTERNDataTable) cln.InitVars Return cln End Function @@ -16689,28 +16544,22 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New VWDDINDEX_AUTOMDataTable() + Return New TBPMO_TEMPLATE_PATTERNDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnINDEXNAME = MyBase.Columns("INDEXNAME") - Me.columnCOMMENT = MyBase.Columns("COMMENT") - Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") - Me.columnDOKUMENTART = MyBase.Columns("DOKUMENTART") - Me.columnKURZNAME = MyBase.Columns("KURZNAME") + Me.columnNAME_PATTERN = MyBase.Columns("NAME_PATTERN") + Me.columnFIXED_VALUE = MyBase.Columns("FIXED_VALUE") Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") - Me.columnCONNECTION = MyBase.Columns("CONNECTION") - Me.columnSQL_PROVIDER = MyBase.Columns("SQL_PROVIDER") - Me.columnSERVER = MyBase.Columns("SERVER") - Me.columnDATENBANK = MyBase.Columns("DATENBANK") - Me.columnUSERNAME = MyBase.Columns("USERNAME") - Me.columnPASSWORD = MyBase.Columns("PASSWORD") - Me.columnSQL_RESULT = MyBase.Columns("SQL_RESULT") - Me.columnSQL_ACTIVE = MyBase.Columns("SQL_ACTIVE") - Me.columnVALUE = MyBase.Columns("VALUE") + Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnTEMPLATE_ENT_ID = MyBase.Columns("TEMPLATE_ENT_ID") End Sub _ - Public Function NewVWDDINDEX_AUTOMRow() As VWDDINDEX_AUTOMRow - Return CType(Me.NewRow,VWDDINDEX_AUTOMRow) + Public Function NewTBPMO_TEMPLATE_PATTERNRow() As TBPMO_TEMPLATE_PATTERNRow + Return CType(Me.NewRow,TBPMO_TEMPLATE_PATTERNRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New VWDDINDEX_AUTOMRow(builder) + Return New TBPMO_TEMPLATE_PATTERNRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(VWDDINDEX_AUTOMRow) + Return GetType(TBPMO_TEMPLATE_PATTERNRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.VWDDINDEX_AUTOMRowChangedEvent) Is Nothing) Then - RaiseEvent VWDDINDEX_AUTOMRowChanged(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row,VWDDINDEX_AUTOMRow), e.Action)) + If (Not (Me.TBPMO_TEMPLATE_PATTERNRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_TEMPLATE_PATTERNRowChanged(Me, New TBPMO_TEMPLATE_PATTERNRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_PATTERNRow), e.Action)) End If End Sub @@ -16803,8 +16630,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.VWDDINDEX_AUTOMRowChangingEvent) Is Nothing) Then - RaiseEvent VWDDINDEX_AUTOMRowChanging(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row,VWDDINDEX_AUTOMRow), e.Action)) + If (Not (Me.TBPMO_TEMPLATE_PATTERNRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_TEMPLATE_PATTERNRowChanging(Me, New TBPMO_TEMPLATE_PATTERNRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_PATTERNRow), e.Action)) End If End Sub @@ -16812,8 +16639,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.VWDDINDEX_AUTOMRowDeletedEvent) Is Nothing) Then - RaiseEvent VWDDINDEX_AUTOMRowDeleted(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row,VWDDINDEX_AUTOMRow), e.Action)) + If (Not (Me.TBPMO_TEMPLATE_PATTERNRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_TEMPLATE_PATTERNRowDeleted(Me, New TBPMO_TEMPLATE_PATTERNRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_PATTERNRow), e.Action)) End If End Sub @@ -16821,14 +16648,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.VWDDINDEX_AUTOMRowDeletingEvent) Is Nothing) Then - RaiseEvent VWDDINDEX_AUTOMRowDeleting(Me, New VWDDINDEX_AUTOMRowChangeEvent(CType(e.Row,VWDDINDEX_AUTOMRow), e.Action)) + If (Not (Me.TBPMO_TEMPLATE_PATTERNRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_TEMPLATE_PATTERNRowDeleting(Me, New TBPMO_TEMPLATE_PATTERNRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_PATTERNRow), e.Action)) End If End Sub _ - Public Sub RemoveVWDDINDEX_AUTOMRow(ByVal row As VWDDINDEX_AUTOMRow) + Public Sub RemoveTBPMO_TEMPLATE_PATTERNRow(ByVal row As TBPMO_TEMPLATE_PATTERNRow) Me.Rows.Remove(row) End Sub @@ -16855,7 +16682,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "VWDDINDEX_AUTOMDataTable" + attribute2.FixedValue = "TBPMO_TEMPLATE_PATTERNDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -16904,32 +16731,18 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBPMO_TEMPLATEDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPMO_TEMPLATERow) + Partial Public Class TBTEMP_QUICKDISPLAYDataTable + Inherits Global.System.Data.TypedTableBase(Of TBTEMP_QUICKDISPLAYRow) Private columnGUID As Global.System.Data.DataColumn - Private columnNAME As Global.System.Data.DataColumn - - Private columnTEMPLATE_PATH As Global.System.Data.DataColumn - - Private columnACTIVE As Global.System.Data.DataColumn - - Private columnADDED_WHO As Global.System.Data.DataColumn - - Private columnADDED_WHEN As Global.System.Data.DataColumn - - Private columnCHANGED_WHO As Global.System.Data.DataColumn - - Private columnCHANGED_WHEN As Global.System.Data.DataColumn - - Private columnDOCTYPE_ID As Global.System.Data.DataColumn + Private columnCOL_NAME As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBPMO_TEMPLATE" + Me.TableName = "TBTEMP_QUICKDISPLAY" Me.BeginInit Me.InitClass Me.EndInit @@ -16970,65 +16783,9 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnNAME - End Get - End Property - - _ - Public ReadOnly Property TEMPLATE_PATHColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTEMPLATE_PATH - End Get - End Property - - _ - Public ReadOnly Property ACTIVEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnACTIVE - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHO - End Get - End Property - - _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnADDED_WHEN - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHO - End Get - End Property - - _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn - Get - Return Me.columnCHANGED_WHEN - End Get - End Property - - _ - Public ReadOnly Property DOCTYPE_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property COL_NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnDOCTYPE_ID + Return Me.columnCOL_NAME End Get End Property @@ -17043,50 +16800,50 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_TEMPLATERow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBTEMP_QUICKDISPLAYRow Get - Return CType(Me.Rows(index),TBPMO_TEMPLATERow) + Return CType(Me.Rows(index),TBTEMP_QUICKDISPLAYRow) End Get End Property _ - Public Event TBPMO_TEMPLATERowChanging As TBPMO_TEMPLATERowChangeEventHandler + Public Event TBTEMP_QUICKDISPLAYRowChanging As TBTEMP_QUICKDISPLAYRowChangeEventHandler _ - Public Event TBPMO_TEMPLATERowChanged As TBPMO_TEMPLATERowChangeEventHandler + Public Event TBTEMP_QUICKDISPLAYRowChanged As TBTEMP_QUICKDISPLAYRowChangeEventHandler _ - Public Event TBPMO_TEMPLATERowDeleting As TBPMO_TEMPLATERowChangeEventHandler + Public Event TBTEMP_QUICKDISPLAYRowDeleting As TBTEMP_QUICKDISPLAYRowChangeEventHandler _ - Public Event TBPMO_TEMPLATERowDeleted As TBPMO_TEMPLATERowChangeEventHandler + Public Event TBTEMP_QUICKDISPLAYRowDeleted As TBTEMP_QUICKDISPLAYRowChangeEventHandler _ - Public Overloads Sub AddTBPMO_TEMPLATERow(ByVal row As TBPMO_TEMPLATERow) + Public Overloads Sub AddTBTEMP_QUICKDISPLAYRow(ByVal row As TBTEMP_QUICKDISPLAYRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPMO_TEMPLATERow(ByVal NAME As String, ByVal TEMPLATE_PATH As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal DOCTYPE_ID As Integer) As TBPMO_TEMPLATERow - Dim rowTBPMO_TEMPLATERow As TBPMO_TEMPLATERow = CType(Me.NewRow,TBPMO_TEMPLATERow) - Dim columnValuesArray() As Object = New Object() {Nothing, NAME, TEMPLATE_PATH, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, DOCTYPE_ID} - rowTBPMO_TEMPLATERow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPMO_TEMPLATERow) - Return rowTBPMO_TEMPLATERow + Public Overloads Function AddTBTEMP_QUICKDISPLAYRow(ByVal COL_NAME As String) As TBTEMP_QUICKDISPLAYRow + Dim rowTBTEMP_QUICKDISPLAYRow As TBTEMP_QUICKDISPLAYRow = CType(Me.NewRow,TBTEMP_QUICKDISPLAYRow) + Dim columnValuesArray() As Object = New Object() {Nothing, COL_NAME} + rowTBTEMP_QUICKDISPLAYRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBTEMP_QUICKDISPLAYRow) + Return rowTBTEMP_QUICKDISPLAYRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_TEMPLATERow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_TEMPLATERow) + Public Function FindByGUID(ByVal GUID As Integer) As TBTEMP_QUICKDISPLAYRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBTEMP_QUICKDISPLAYRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_TEMPLATEDataTable = CType(MyBase.Clone,TBPMO_TEMPLATEDataTable) + Dim cln As TBTEMP_QUICKDISPLAYDataTable = CType(MyBase.Clone,TBTEMP_QUICKDISPLAYDataTable) cln.InitVars Return cln End Function @@ -17094,21 +16851,14 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPMO_TEMPLATEDataTable() + Return New TBTEMP_QUICKDISPLAYDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnNAME = MyBase.Columns("NAME") - Me.columnTEMPLATE_PATH = MyBase.Columns("TEMPLATE_PATH") - Me.columnACTIVE = MyBase.Columns("ACTIVE") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") - Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") - Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") - Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnDOCTYPE_ID = MyBase.Columns("DOCTYPE_ID") + Me.columnCOL_NAME = MyBase.Columns("COL_NAME") End Sub _ - Public Function NewTBPMO_TEMPLATERow() As TBPMO_TEMPLATERow - Return CType(Me.NewRow,TBPMO_TEMPLATERow) + Public Function NewTBTEMP_QUICKDISPLAYRow() As TBTEMP_QUICKDISPLAYRow + Return CType(Me.NewRow,TBTEMP_QUICKDISPLAYRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPMO_TEMPLATERow(builder) + Return New TBTEMP_QUICKDISPLAYRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPMO_TEMPLATERow) + Return GetType(TBTEMP_QUICKDISPLAYRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPMO_TEMPLATERowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_TEMPLATERowChanged(Me, New TBPMO_TEMPLATERowChangeEvent(CType(e.Row,TBPMO_TEMPLATERow), e.Action)) + If (Not (Me.TBTEMP_QUICKDISPLAYRowChangedEvent) Is Nothing) Then + RaiseEvent TBTEMP_QUICKDISPLAYRowChanged(Me, New TBTEMP_QUICKDISPLAYRowChangeEvent(CType(e.Row,TBTEMP_QUICKDISPLAYRow), e.Action)) End If End Sub @@ -17179,8 +16910,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPMO_TEMPLATERowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_TEMPLATERowChanging(Me, New TBPMO_TEMPLATERowChangeEvent(CType(e.Row,TBPMO_TEMPLATERow), e.Action)) + If (Not (Me.TBTEMP_QUICKDISPLAYRowChangingEvent) Is Nothing) Then + RaiseEvent TBTEMP_QUICKDISPLAYRowChanging(Me, New TBTEMP_QUICKDISPLAYRowChangeEvent(CType(e.Row,TBTEMP_QUICKDISPLAYRow), e.Action)) End If End Sub @@ -17188,8 +16919,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPMO_TEMPLATERowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_TEMPLATERowDeleted(Me, New TBPMO_TEMPLATERowChangeEvent(CType(e.Row,TBPMO_TEMPLATERow), e.Action)) + If (Not (Me.TBTEMP_QUICKDISPLAYRowDeletedEvent) Is Nothing) Then + RaiseEvent TBTEMP_QUICKDISPLAYRowDeleted(Me, New TBTEMP_QUICKDISPLAYRowChangeEvent(CType(e.Row,TBTEMP_QUICKDISPLAYRow), e.Action)) End If End Sub @@ -17197,14 +16928,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPMO_TEMPLATERowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_TEMPLATERowDeleting(Me, New TBPMO_TEMPLATERowChangeEvent(CType(e.Row,TBPMO_TEMPLATERow), e.Action)) + If (Not (Me.TBTEMP_QUICKDISPLAYRowDeletingEvent) Is Nothing) Then + RaiseEvent TBTEMP_QUICKDISPLAYRowDeleting(Me, New TBTEMP_QUICKDISPLAYRowChangeEvent(CType(e.Row,TBTEMP_QUICKDISPLAYRow), e.Action)) End If End Sub _ - Public Sub RemoveTBPMO_TEMPLATERow(ByVal row As TBPMO_TEMPLATERow) + Public Sub RemoveTBTEMP_QUICKDISPLAYRow(ByVal row As TBTEMP_QUICKDISPLAYRow) Me.Rows.Remove(row) End Sub @@ -17231,7 +16962,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPMO_TEMPLATEDataTable" + attribute2.FixedValue = "TBTEMP_QUICKDISPLAYDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -17280,26 +17011,34 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBPMO_TEMPLATE_ENTITYDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPMO_TEMPLATE_ENTITYRow) + Partial Public Class TBPMO_LANGUAGE_OBJECTDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_LANGUAGE_OBJECTRow) Private columnGUID As Global.System.Data.DataColumn - Private columnTEMPLATE_ID As Global.System.Data.DataColumn + Private columnLANGUAGE_TYPE As Global.System.Data.DataColumn - Private columnENTITY_ID As Global.System.Data.DataColumn + Private columnSCREEN_ID As Global.System.Data.DataColumn + + Private columnPMO_OBJECT_NAME As Global.System.Data.DataColumn + + Private columnCAPTION As Global.System.Data.DataColumn + + Private columnHINT 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_TEMPLATE_ENTITY" + Me.TableName = "TBPMO_LANGUAGE_OBJECT" Me.BeginInit Me.InitClass Me.EndInit @@ -17340,17 +17079,41 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property TEMPLATE_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property LANGUAGE_TYPEColumn() As Global.System.Data.DataColumn Get - Return Me.columnTEMPLATE_ID + Return Me.columnLANGUAGE_TYPE End Get End Property _ - Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SCREEN_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnENTITY_ID + Return Me.columnSCREEN_ID + End Get + End Property + + _ + Public ReadOnly Property PMO_OBJECT_NAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPMO_OBJECT_NAME + End Get + End Property + + _ + Public ReadOnly Property CAPTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCAPTION + End Get + End Property + + _ + Public ReadOnly Property HINTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnHINT End Get End Property @@ -17370,6 +17133,14 @@ Partial Public Class DD_DMSDataSet 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 @@ -17389,56 +17160,50 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_TEMPLATE_ENTITYRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_LANGUAGE_OBJECTRow Get - Return CType(Me.Rows(index),TBPMO_TEMPLATE_ENTITYRow) + Return CType(Me.Rows(index),TBPMO_LANGUAGE_OBJECTRow) End Get End Property _ - Public Event TBPMO_TEMPLATE_ENTITYRowChanging As TBPMO_TEMPLATE_ENTITYRowChangeEventHandler + Public Event TBPMO_LANGUAGE_OBJECTRowChanging As TBPMO_LANGUAGE_OBJECTRowChangeEventHandler _ - Public Event TBPMO_TEMPLATE_ENTITYRowChanged As TBPMO_TEMPLATE_ENTITYRowChangeEventHandler + Public Event TBPMO_LANGUAGE_OBJECTRowChanged As TBPMO_LANGUAGE_OBJECTRowChangeEventHandler _ - Public Event TBPMO_TEMPLATE_ENTITYRowDeleting As TBPMO_TEMPLATE_ENTITYRowChangeEventHandler + Public Event TBPMO_LANGUAGE_OBJECTRowDeleting As TBPMO_LANGUAGE_OBJECTRowChangeEventHandler _ - Public Event TBPMO_TEMPLATE_ENTITYRowDeleted As TBPMO_TEMPLATE_ENTITYRowChangeEventHandler + Public Event TBPMO_LANGUAGE_OBJECTRowDeleted As TBPMO_LANGUAGE_OBJECTRowChangeEventHandler _ - Public Overloads Sub AddTBPMO_TEMPLATE_ENTITYRow(ByVal row As TBPMO_TEMPLATE_ENTITYRow) + Public Overloads Sub AddTBPMO_LANGUAGE_OBJECTRow(ByVal row As TBPMO_LANGUAGE_OBJECTRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPMO_TEMPLATE_ENTITYRow(ByVal parentTBPMO_TEMPLATERowByFK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID As TBPMO_TEMPLATERow, ByVal parentTBPMO_FORMRowByFK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID As TBPMO_FORMRow, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHEN As Date) As TBPMO_TEMPLATE_ENTITYRow - Dim rowTBPMO_TEMPLATE_ENTITYRow As TBPMO_TEMPLATE_ENTITYRow = CType(Me.NewRow,TBPMO_TEMPLATE_ENTITYRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, ADDED_WHO, ADDED_WHEN, CHANGED_WHEN} - If (Not (parentTBPMO_TEMPLATERowByFK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID) Is Nothing) Then - columnValuesArray(1) = parentTBPMO_TEMPLATERowByFK_TBPMO_TEMPLATE_ENTITY_TEMPLATE_ID(0) - End If - If (Not (parentTBPMO_FORMRowByFK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID) Is Nothing) Then - columnValuesArray(2) = parentTBPMO_FORMRowByFK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID(0) - End If - rowTBPMO_TEMPLATE_ENTITYRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPMO_TEMPLATE_ENTITYRow) - Return rowTBPMO_TEMPLATE_ENTITYRow + Public Overloads Function AddTBPMO_LANGUAGE_OBJECTRow(ByVal LANGUAGE_TYPE As String, ByVal SCREEN_ID As Integer, ByVal PMO_OBJECT_NAME As String, ByVal CAPTION As String, ByVal HINT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_LANGUAGE_OBJECTRow + Dim rowTBPMO_LANGUAGE_OBJECTRow As TBPMO_LANGUAGE_OBJECTRow = CType(Me.NewRow,TBPMO_LANGUAGE_OBJECTRow) + Dim columnValuesArray() As Object = New Object() {Nothing, LANGUAGE_TYPE, SCREEN_ID, PMO_OBJECT_NAME, CAPTION, HINT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBPMO_LANGUAGE_OBJECTRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_LANGUAGE_OBJECTRow) + Return rowTBPMO_LANGUAGE_OBJECTRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_TEMPLATE_ENTITYRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_TEMPLATE_ENTITYRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_LANGUAGE_OBJECTRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_LANGUAGE_OBJECTRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_TEMPLATE_ENTITYDataTable = CType(MyBase.Clone,TBPMO_TEMPLATE_ENTITYDataTable) + Dim cln As TBPMO_LANGUAGE_OBJECTDataTable = CType(MyBase.Clone,TBPMO_LANGUAGE_OBJECTDataTable) cln.InitVars Return cln End Function @@ -17446,17 +17211,21 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPMO_TEMPLATE_ENTITYDataTable() + Return New TBPMO_LANGUAGE_OBJECTDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnTEMPLATE_ID = MyBase.Columns("TEMPLATE_ID") - Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") + Me.columnLANGUAGE_TYPE = MyBase.Columns("LANGUAGE_TYPE") + Me.columnSCREEN_ID = MyBase.Columns("SCREEN_ID") + Me.columnPMO_OBJECT_NAME = MyBase.Columns("PMO_OBJECT_NAME") + Me.columnCAPTION = MyBase.Columns("CAPTION") + Me.columnHINT = MyBase.Columns("HINT") 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 @@ -17465,50 +17234,68 @@ Partial Public Class DD_DMSDataSet 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.columnTEMPLATE_ID = New Global.System.Data.DataColumn("TEMPLATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnTEMPLATE_ID) - Me.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnENTITY_ID) + Me.columnLANGUAGE_TYPE = New Global.System.Data.DataColumn("LANGUAGE_TYPE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnLANGUAGE_TYPE) + Me.columnSCREEN_ID = New Global.System.Data.DataColumn("SCREEN_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSCREEN_ID) + Me.columnPMO_OBJECT_NAME = New Global.System.Data.DataColumn("PMO_OBJECT_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPMO_OBJECT_NAME) + Me.columnCAPTION = New Global.System.Data.DataColumn("CAPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCAPTION) + Me.columnHINT = New Global.System.Data.DataColumn("HINT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnHINT) Me.columnADDED_WHO = New Global.System.Data.DataColumn("ADDED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHO) Me.columnADDED_WHEN = New Global.System.Data.DataColumn("ADDED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnADDED_WHEN) + Me.columnCHANGED_WHO = New Global.System.Data.DataColumn("CHANGED_WHO", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCHANGED_WHO) Me.columnCHANGED_WHEN = New Global.System.Data.DataColumn("CHANGED_WHEN", GetType(Date), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnCHANGED_WHEN) Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) Me.columnGUID.AutoIncrement = true + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true - Me.columnTEMPLATE_ID.AllowDBNull = false - Me.columnENTITY_ID.AllowDBNull = false + Me.columnLANGUAGE_TYPE.AllowDBNull = false + Me.columnLANGUAGE_TYPE.MaxLength = 5 + Me.columnSCREEN_ID.AllowDBNull = false + Me.columnPMO_OBJECT_NAME.AllowDBNull = false + Me.columnPMO_OBJECT_NAME.MaxLength = 100 + Me.columnCAPTION.AllowDBNull = false + Me.columnCAPTION.MaxLength = 100 + Me.columnHINT.MaxLength = 500 + Me.columnADDED_WHO.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 + Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ - Public Function NewTBPMO_TEMPLATE_ENTITYRow() As TBPMO_TEMPLATE_ENTITYRow - Return CType(Me.NewRow,TBPMO_TEMPLATE_ENTITYRow) + Public Function NewTBPMO_LANGUAGE_OBJECTRow() As TBPMO_LANGUAGE_OBJECTRow + Return CType(Me.NewRow,TBPMO_LANGUAGE_OBJECTRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPMO_TEMPLATE_ENTITYRow(builder) + Return New TBPMO_LANGUAGE_OBJECTRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPMO_TEMPLATE_ENTITYRow) + Return GetType(TBPMO_LANGUAGE_OBJECTRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPMO_TEMPLATE_ENTITYRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_TEMPLATE_ENTITYRowChanged(Me, New TBPMO_TEMPLATE_ENTITYRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_ENTITYRow), e.Action)) + If (Not (Me.TBPMO_LANGUAGE_OBJECTRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_LANGUAGE_OBJECTRowChanged(Me, New TBPMO_LANGUAGE_OBJECTRowChangeEvent(CType(e.Row,TBPMO_LANGUAGE_OBJECTRow), e.Action)) End If End Sub @@ -17516,8 +17303,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPMO_TEMPLATE_ENTITYRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_TEMPLATE_ENTITYRowChanging(Me, New TBPMO_TEMPLATE_ENTITYRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_ENTITYRow), e.Action)) + If (Not (Me.TBPMO_LANGUAGE_OBJECTRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_LANGUAGE_OBJECTRowChanging(Me, New TBPMO_LANGUAGE_OBJECTRowChangeEvent(CType(e.Row,TBPMO_LANGUAGE_OBJECTRow), e.Action)) End If End Sub @@ -17525,8 +17312,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPMO_TEMPLATE_ENTITYRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_TEMPLATE_ENTITYRowDeleted(Me, New TBPMO_TEMPLATE_ENTITYRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_ENTITYRow), e.Action)) + If (Not (Me.TBPMO_LANGUAGE_OBJECTRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_LANGUAGE_OBJECTRowDeleted(Me, New TBPMO_LANGUAGE_OBJECTRowChangeEvent(CType(e.Row,TBPMO_LANGUAGE_OBJECTRow), e.Action)) End If End Sub @@ -17534,14 +17321,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPMO_TEMPLATE_ENTITYRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_TEMPLATE_ENTITYRowDeleting(Me, New TBPMO_TEMPLATE_ENTITYRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_ENTITYRow), e.Action)) + If (Not (Me.TBPMO_LANGUAGE_OBJECTRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_LANGUAGE_OBJECTRowDeleting(Me, New TBPMO_LANGUAGE_OBJECTRowChangeEvent(CType(e.Row,TBPMO_LANGUAGE_OBJECTRow), e.Action)) End If End Sub _ - Public Sub RemoveTBPMO_TEMPLATE_ENTITYRow(ByVal row As TBPMO_TEMPLATE_ENTITYRow) + Public Sub RemoveTBPMO_LANGUAGE_OBJECTRow(ByVal row As TBPMO_LANGUAGE_OBJECTRow) Me.Rows.Remove(row) End Sub @@ -17568,7 +17355,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPMO_TEMPLATE_ENTITYDataTable" + attribute2.FixedValue = "TBPMO_LANGUAGE_OBJECTDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -17617,18 +17404,16 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBPMO_TEMPLATE_PATTERNDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPMO_TEMPLATE_PATTERNRow) + Partial Public Class TBDD_CLIENTDataTable + Inherits Global.System.Data.TypedTableBase(Of TBDD_CLIENTRow) Private columnGUID As Global.System.Data.DataColumn - Private columnNAME_PATTERN As Global.System.Data.DataColumn - - Private columnFIXED_VALUE As Global.System.Data.DataColumn + Private columnCLIENT_NAME As Global.System.Data.DataColumn - Private columnCONNECTION_ID As Global.System.Data.DataColumn + Private columnSHORTNAME As Global.System.Data.DataColumn - Private columnSQL_COMMAND As Global.System.Data.DataColumn + Private columnCOMMENT As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn @@ -17638,13 +17423,11 @@ Partial Public Class DD_DMSDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnTEMPLATE_ENT_ID As Global.System.Data.DataColumn - _ Public Sub New() MyBase.New - Me.TableName = "TBPMO_TEMPLATE_PATTERN" + Me.TableName = "TBDD_CLIENT" Me.BeginInit Me.InitClass Me.EndInit @@ -17685,33 +17468,25 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property NAME_PATTERNColumn() As Global.System.Data.DataColumn - Get - Return Me.columnNAME_PATTERN - End Get - End Property - - _ - Public ReadOnly Property FIXED_VALUEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CLIENT_NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnFIXED_VALUE + Return Me.columnCLIENT_NAME End Get End Property _ - Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnCONNECTION_ID + Return Me.columnSHORTNAME End Get End Property _ - Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn Get - Return Me.columnSQL_COMMAND + Return Me.columnCOMMENT End Get End Property @@ -17747,14 +17522,6 @@ Partial Public Class DD_DMSDataSet End Get End Property - _ - Public ReadOnly Property TEMPLATE_ENT_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnTEMPLATE_ENT_ID - End Get - End Property - _ @@ -17766,53 +17533,50 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_TEMPLATE_PATTERNRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CLIENTRow Get - Return CType(Me.Rows(index),TBPMO_TEMPLATE_PATTERNRow) + Return CType(Me.Rows(index),TBDD_CLIENTRow) End Get End Property _ - Public Event TBPMO_TEMPLATE_PATTERNRowChanging As TBPMO_TEMPLATE_PATTERNRowChangeEventHandler + Public Event TBDD_CLIENTRowChanging As TBDD_CLIENTRowChangeEventHandler _ - Public Event TBPMO_TEMPLATE_PATTERNRowChanged As TBPMO_TEMPLATE_PATTERNRowChangeEventHandler + Public Event TBDD_CLIENTRowChanged As TBDD_CLIENTRowChangeEventHandler _ - Public Event TBPMO_TEMPLATE_PATTERNRowDeleting As TBPMO_TEMPLATE_PATTERNRowChangeEventHandler + Public Event TBDD_CLIENTRowDeleting As TBDD_CLIENTRowChangeEventHandler _ - Public Event TBPMO_TEMPLATE_PATTERNRowDeleted As TBPMO_TEMPLATE_PATTERNRowChangeEventHandler + Public Event TBDD_CLIENTRowDeleted As TBDD_CLIENTRowChangeEventHandler _ - Public Overloads Sub AddTBPMO_TEMPLATE_PATTERNRow(ByVal row As TBPMO_TEMPLATE_PATTERNRow) + Public Overloads Sub AddTBDD_CLIENTRow(ByVal row As TBDD_CLIENTRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPMO_TEMPLATE_PATTERNRow(ByVal NAME_PATTERN As String, ByVal FIXED_VALUE As String, ByVal CONNECTION_ID As Integer, ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal parentTBPMO_TEMPLATE_ENTITYRowByFK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID As TBPMO_TEMPLATE_ENTITYRow) As TBPMO_TEMPLATE_PATTERNRow - Dim rowTBPMO_TEMPLATE_PATTERNRow As TBPMO_TEMPLATE_PATTERNRow = CType(Me.NewRow,TBPMO_TEMPLATE_PATTERNRow) - Dim columnValuesArray() As Object = New Object() {Nothing, NAME_PATTERN, FIXED_VALUE, CONNECTION_ID, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Nothing} - If (Not (parentTBPMO_TEMPLATE_ENTITYRowByFK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID) Is Nothing) Then - columnValuesArray(9) = parentTBPMO_TEMPLATE_ENTITYRowByFK_TBPMO_TEMPLATE_PATTERN_TEMPLATE_ENT_ID(0) - End If - rowTBPMO_TEMPLATE_PATTERNRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPMO_TEMPLATE_PATTERNRow) - Return rowTBPMO_TEMPLATE_PATTERNRow + Public Overloads Function AddTBDD_CLIENTRow(ByVal CLIENT_NAME As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_CLIENTRow + Dim rowTBDD_CLIENTRow As TBDD_CLIENTRow = CType(Me.NewRow,TBDD_CLIENTRow) + Dim columnValuesArray() As Object = New Object() {Nothing, CLIENT_NAME, SHORTNAME, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + rowTBDD_CLIENTRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBDD_CLIENTRow) + Return rowTBDD_CLIENTRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_TEMPLATE_PATTERNRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_TEMPLATE_PATTERNRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBDD_CLIENTRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CLIENTRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_TEMPLATE_PATTERNDataTable = CType(MyBase.Clone,TBPMO_TEMPLATE_PATTERNDataTable) + Dim cln As TBDD_CLIENTDataTable = CType(MyBase.Clone,TBDD_CLIENTDataTable) cln.InitVars Return cln End Function @@ -17820,22 +17584,20 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPMO_TEMPLATE_PATTERNDataTable() + Return New TBDD_CLIENTDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnNAME_PATTERN = MyBase.Columns("NAME_PATTERN") - Me.columnFIXED_VALUE = MyBase.Columns("FIXED_VALUE") - Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") - Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") + Me.columnCLIENT_NAME = MyBase.Columns("CLIENT_NAME") + Me.columnSHORTNAME = MyBase.Columns("SHORTNAME") + Me.columnCOMMENT = MyBase.Columns("COMMENT") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnTEMPLATE_ENT_ID = MyBase.Columns("TEMPLATE_ENT_ID") End Sub _ - Public Function NewTBPMO_TEMPLATE_PATTERNRow() As TBPMO_TEMPLATE_PATTERNRow - Return CType(Me.NewRow,TBPMO_TEMPLATE_PATTERNRow) + Public Function NewTBDD_CLIENTRow() As TBDD_CLIENTRow + Return CType(Me.NewRow,TBDD_CLIENTRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPMO_TEMPLATE_PATTERNRow(builder) + Return New TBDD_CLIENTRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPMO_TEMPLATE_PATTERNRow) + Return GetType(TBDD_CLIENTRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPMO_TEMPLATE_PATTERNRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_TEMPLATE_PATTERNRowChanged(Me, New TBPMO_TEMPLATE_PATTERNRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_PATTERNRow), e.Action)) + If (Not (Me.TBDD_CLIENTRowChangedEvent) Is Nothing) Then + RaiseEvent TBDD_CLIENTRowChanged(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) End If End Sub @@ -17906,8 +17664,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPMO_TEMPLATE_PATTERNRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_TEMPLATE_PATTERNRowChanging(Me, New TBPMO_TEMPLATE_PATTERNRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_PATTERNRow), e.Action)) + If (Not (Me.TBDD_CLIENTRowChangingEvent) Is Nothing) Then + RaiseEvent TBDD_CLIENTRowChanging(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) End If End Sub @@ -17915,8 +17673,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPMO_TEMPLATE_PATTERNRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_TEMPLATE_PATTERNRowDeleted(Me, New TBPMO_TEMPLATE_PATTERNRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_PATTERNRow), e.Action)) + If (Not (Me.TBDD_CLIENTRowDeletedEvent) Is Nothing) Then + RaiseEvent TBDD_CLIENTRowDeleted(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) End If End Sub @@ -17924,14 +17682,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPMO_TEMPLATE_PATTERNRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_TEMPLATE_PATTERNRowDeleting(Me, New TBPMO_TEMPLATE_PATTERNRowChangeEvent(CType(e.Row,TBPMO_TEMPLATE_PATTERNRow), e.Action)) + If (Not (Me.TBDD_CLIENTRowDeletingEvent) Is Nothing) Then + RaiseEvent TBDD_CLIENTRowDeleting(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) End If End Sub _ - Public Sub RemoveTBPMO_TEMPLATE_PATTERNRow(ByVal row As TBPMO_TEMPLATE_PATTERNRow) + Public Sub RemoveTBDD_CLIENTRow(ByVal row As TBDD_CLIENTRow) Me.Rows.Remove(row) End Sub @@ -17958,7 +17716,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPMO_TEMPLATE_PATTERNDataTable" + attribute2.FixedValue = "TBDD_CLIENTDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -18007,18 +17765,30 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBTEMP_QUICKDISPLAYDataTable - Inherits Global.System.Data.TypedTableBase(Of TBTEMP_QUICKDISPLAYRow) + Partial Public Class TBPMO_CONSTRUCTOR_USER_SQLDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_CONSTRUCTOR_USER_SQLRow) Private columnGUID As Global.System.Data.DataColumn - Private columnCOL_NAME As Global.System.Data.DataColumn + Private columnSQL_COMMAND As Global.System.Data.DataColumn + + Private columnADDED_WHO As Global.System.Data.DataColumn + + Private columnADDED_WHEN As Global.System.Data.DataColumn + + Private columnCHANGED_WHO As Global.System.Data.DataColumn + + Private columnCHANGED_WHEN As Global.System.Data.DataColumn + + Private columnCONSTR_DET_ID As Global.System.Data.DataColumn + + Private columnUSER_ID As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBTEMP_QUICKDISPLAY" + Me.TableName = "TBPMO_CONSTRUCTOR_USER_SQL" Me.BeginInit Me.InitClass Me.EndInit @@ -18059,9 +17829,57 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property COL_NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn Get - Return Me.columnCOL_NAME + Return Me.columnSQL_COMMAND + 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 CONSTR_DET_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONSTR_DET_ID + End Get + End Property + + _ + Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSER_ID End Get End Property @@ -18076,50 +17894,50 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBTEMP_QUICKDISPLAYRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_CONSTRUCTOR_USER_SQLRow Get - Return CType(Me.Rows(index),TBTEMP_QUICKDISPLAYRow) + Return CType(Me.Rows(index),TBPMO_CONSTRUCTOR_USER_SQLRow) End Get End Property _ - Public Event TBTEMP_QUICKDISPLAYRowChanging As TBTEMP_QUICKDISPLAYRowChangeEventHandler + Public Event TBPMO_CONSTRUCTOR_USER_SQLRowChanging As TBPMO_CONSTRUCTOR_USER_SQLRowChangeEventHandler _ - Public Event TBTEMP_QUICKDISPLAYRowChanged As TBTEMP_QUICKDISPLAYRowChangeEventHandler + Public Event TBPMO_CONSTRUCTOR_USER_SQLRowChanged As TBPMO_CONSTRUCTOR_USER_SQLRowChangeEventHandler _ - Public Event TBTEMP_QUICKDISPLAYRowDeleting As TBTEMP_QUICKDISPLAYRowChangeEventHandler + Public Event TBPMO_CONSTRUCTOR_USER_SQLRowDeleting As TBPMO_CONSTRUCTOR_USER_SQLRowChangeEventHandler _ - Public Event TBTEMP_QUICKDISPLAYRowDeleted As TBTEMP_QUICKDISPLAYRowChangeEventHandler + Public Event TBPMO_CONSTRUCTOR_USER_SQLRowDeleted As TBPMO_CONSTRUCTOR_USER_SQLRowChangeEventHandler _ - Public Overloads Sub AddTBTEMP_QUICKDISPLAYRow(ByVal row As TBTEMP_QUICKDISPLAYRow) + Public Overloads Sub AddTBPMO_CONSTRUCTOR_USER_SQLRow(ByVal row As TBPMO_CONSTRUCTOR_USER_SQLRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBTEMP_QUICKDISPLAYRow(ByVal COL_NAME As String) As TBTEMP_QUICKDISPLAYRow - Dim rowTBTEMP_QUICKDISPLAYRow As TBTEMP_QUICKDISPLAYRow = CType(Me.NewRow,TBTEMP_QUICKDISPLAYRow) - Dim columnValuesArray() As Object = New Object() {Nothing, COL_NAME} - rowTBTEMP_QUICKDISPLAYRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBTEMP_QUICKDISPLAYRow) - Return rowTBTEMP_QUICKDISPLAYRow + Public Overloads Function AddTBPMO_CONSTRUCTOR_USER_SQLRow(ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal CONSTR_DET_ID As Integer, ByVal USER_ID As Integer) As TBPMO_CONSTRUCTOR_USER_SQLRow + Dim rowTBPMO_CONSTRUCTOR_USER_SQLRow As TBPMO_CONSTRUCTOR_USER_SQLRow = CType(Me.NewRow,TBPMO_CONSTRUCTOR_USER_SQLRow) + Dim columnValuesArray() As Object = New Object() {Nothing, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, CONSTR_DET_ID, USER_ID} + rowTBPMO_CONSTRUCTOR_USER_SQLRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_CONSTRUCTOR_USER_SQLRow) + Return rowTBPMO_CONSTRUCTOR_USER_SQLRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBTEMP_QUICKDISPLAYRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBTEMP_QUICKDISPLAYRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_CONSTRUCTOR_USER_SQLRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_CONSTRUCTOR_USER_SQLRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBTEMP_QUICKDISPLAYDataTable = CType(MyBase.Clone,TBTEMP_QUICKDISPLAYDataTable) + Dim cln As TBPMO_CONSTRUCTOR_USER_SQLDataTable = CType(MyBase.Clone,TBPMO_CONSTRUCTOR_USER_SQLDataTable) cln.InitVars Return cln End Function @@ -18127,14 +17945,20 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBTEMP_QUICKDISPLAYDataTable() + Return New TBPMO_CONSTRUCTOR_USER_SQLDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnCOL_NAME = MyBase.Columns("COL_NAME") + Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") + Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") + Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") + Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnCONSTR_DET_ID = MyBase.Columns("CONSTR_DET_ID") + Me.columnUSER_ID = MyBase.Columns("USER_ID") End Sub _ - Public Function NewTBTEMP_QUICKDISPLAYRow() As TBTEMP_QUICKDISPLAYRow - Return CType(Me.NewRow,TBTEMP_QUICKDISPLAYRow) + Public Function NewTBPMO_CONSTRUCTOR_USER_SQLRow() As TBPMO_CONSTRUCTOR_USER_SQLRow + Return CType(Me.NewRow,TBPMO_CONSTRUCTOR_USER_SQLRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBTEMP_QUICKDISPLAYRow(builder) + Return New TBPMO_CONSTRUCTOR_USER_SQLRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBTEMP_QUICKDISPLAYRow) + Return GetType(TBPMO_CONSTRUCTOR_USER_SQLRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBTEMP_QUICKDISPLAYRowChangedEvent) Is Nothing) Then - RaiseEvent TBTEMP_QUICKDISPLAYRowChanged(Me, New TBTEMP_QUICKDISPLAYRowChangeEvent(CType(e.Row,TBTEMP_QUICKDISPLAYRow), e.Action)) + If (Not (Me.TBPMO_CONSTRUCTOR_USER_SQLRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_CONSTRUCTOR_USER_SQLRowChanged(Me, New TBPMO_CONSTRUCTOR_USER_SQLRowChangeEvent(CType(e.Row,TBPMO_CONSTRUCTOR_USER_SQLRow), e.Action)) End If End Sub @@ -18186,8 +18023,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBTEMP_QUICKDISPLAYRowChangingEvent) Is Nothing) Then - RaiseEvent TBTEMP_QUICKDISPLAYRowChanging(Me, New TBTEMP_QUICKDISPLAYRowChangeEvent(CType(e.Row,TBTEMP_QUICKDISPLAYRow), e.Action)) + If (Not (Me.TBPMO_CONSTRUCTOR_USER_SQLRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_CONSTRUCTOR_USER_SQLRowChanging(Me, New TBPMO_CONSTRUCTOR_USER_SQLRowChangeEvent(CType(e.Row,TBPMO_CONSTRUCTOR_USER_SQLRow), e.Action)) End If End Sub @@ -18195,8 +18032,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBTEMP_QUICKDISPLAYRowDeletedEvent) Is Nothing) Then - RaiseEvent TBTEMP_QUICKDISPLAYRowDeleted(Me, New TBTEMP_QUICKDISPLAYRowChangeEvent(CType(e.Row,TBTEMP_QUICKDISPLAYRow), e.Action)) + If (Not (Me.TBPMO_CONSTRUCTOR_USER_SQLRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_CONSTRUCTOR_USER_SQLRowDeleted(Me, New TBPMO_CONSTRUCTOR_USER_SQLRowChangeEvent(CType(e.Row,TBPMO_CONSTRUCTOR_USER_SQLRow), e.Action)) End If End Sub @@ -18204,14 +18041,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBTEMP_QUICKDISPLAYRowDeletingEvent) Is Nothing) Then - RaiseEvent TBTEMP_QUICKDISPLAYRowDeleting(Me, New TBTEMP_QUICKDISPLAYRowChangeEvent(CType(e.Row,TBTEMP_QUICKDISPLAYRow), e.Action)) + If (Not (Me.TBPMO_CONSTRUCTOR_USER_SQLRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_CONSTRUCTOR_USER_SQLRowDeleting(Me, New TBPMO_CONSTRUCTOR_USER_SQLRowChangeEvent(CType(e.Row,TBPMO_CONSTRUCTOR_USER_SQLRow), e.Action)) End If End Sub _ - Public Sub RemoveTBTEMP_QUICKDISPLAYRow(ByVal row As TBTEMP_QUICKDISPLAYRow) + Public Sub RemoveTBPMO_CONSTRUCTOR_USER_SQLRow(ByVal row As TBPMO_CONSTRUCTOR_USER_SQLRow) Me.Rows.Remove(row) End Sub @@ -18238,7 +18075,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBTEMP_QUICKDISPLAYDataTable" + attribute2.FixedValue = "TBPMO_CONSTRUCTOR_USER_SQLDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -18287,20 +18124,20 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBPMO_LANGUAGE_OBJECTDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPMO_LANGUAGE_OBJECTRow) + Partial Public Class TBPMO_WD_IMPORT_PROFILEDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_IMPORT_PROFILERow) Private columnGUID As Global.System.Data.DataColumn - Private columnLANGUAGE_TYPE As Global.System.Data.DataColumn + Private columnNAME As Global.System.Data.DataColumn - Private columnSCREEN_ID As Global.System.Data.DataColumn + Private columnWD_SEARCH As Global.System.Data.DataColumn - Private columnPMO_OBJECT_NAME As Global.System.Data.DataColumn + Private columnUNIQUE_DOC_SQL As Global.System.Data.DataColumn - Private columnCAPTION As Global.System.Data.DataColumn + Private columnNEW_OBJECTTYPE As Global.System.Data.DataColumn - Private columnHINT As Global.System.Data.DataColumn + Private columnCONNECTION_ID As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn @@ -18310,11 +18147,19 @@ Partial Public Class DD_DMSDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn + Private columnENTITY_ID As Global.System.Data.DataColumn + + Private columnSQL_DOCTYPE As Global.System.Data.DataColumn + + Private columnOLD_OBJECTTYPE As Global.System.Data.DataColumn + + Private columnIDX_FILE_WORKED As Global.System.Data.DataColumn + _ Public Sub New() MyBase.New - Me.TableName = "TBPMO_LANGUAGE_OBJECT" + Me.TableName = "TBPMO_WD_IMPORT_PROFILE" Me.BeginInit Me.InitClass Me.EndInit @@ -18355,41 +18200,41 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property LANGUAGE_TYPEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get - Return Me.columnLANGUAGE_TYPE + Return Me.columnNAME End Get End Property _ - Public ReadOnly Property SCREEN_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn Get - Return Me.columnSCREEN_ID + Return Me.columnWD_SEARCH End Get End Property _ - Public ReadOnly Property PMO_OBJECT_NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property UNIQUE_DOC_SQLColumn() As Global.System.Data.DataColumn Get - Return Me.columnPMO_OBJECT_NAME + Return Me.columnUNIQUE_DOC_SQL End Get End Property _ - Public ReadOnly Property CAPTIONColumn() As Global.System.Data.DataColumn + Public ReadOnly Property NEW_OBJECTTYPEColumn() As Global.System.Data.DataColumn Get - Return Me.columnCAPTION + Return Me.columnNEW_OBJECTTYPE End Get End Property _ - Public ReadOnly Property HINTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnHINT + Return Me.columnCONNECTION_ID End Get End Property @@ -18425,6 +18270,38 @@ Partial Public Class DD_DMSDataSet End Get End Property + _ + Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnENTITY_ID + End Get + End Property + + _ + Public ReadOnly Property SQL_DOCTYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_DOCTYPE + End Get + End Property + + _ + Public ReadOnly Property OLD_OBJECTTYPEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnOLD_OBJECTTYPE + End Get + End Property + + _ + Public ReadOnly Property IDX_FILE_WORKEDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnIDX_FILE_WORKED + End Get + End Property + _ @@ -18436,50 +18313,50 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_LANGUAGE_OBJECTRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_WD_IMPORT_PROFILERow Get - Return CType(Me.Rows(index),TBPMO_LANGUAGE_OBJECTRow) + Return CType(Me.Rows(index),TBPMO_WD_IMPORT_PROFILERow) End Get End Property _ - Public Event TBPMO_LANGUAGE_OBJECTRowChanging As TBPMO_LANGUAGE_OBJECTRowChangeEventHandler + Public Event TBPMO_WD_IMPORT_PROFILERowChanging As TBPMO_WD_IMPORT_PROFILERowChangeEventHandler _ - Public Event TBPMO_LANGUAGE_OBJECTRowChanged As TBPMO_LANGUAGE_OBJECTRowChangeEventHandler + Public Event TBPMO_WD_IMPORT_PROFILERowChanged As TBPMO_WD_IMPORT_PROFILERowChangeEventHandler _ - Public Event TBPMO_LANGUAGE_OBJECTRowDeleting As TBPMO_LANGUAGE_OBJECTRowChangeEventHandler + Public Event TBPMO_WD_IMPORT_PROFILERowDeleting As TBPMO_WD_IMPORT_PROFILERowChangeEventHandler _ - Public Event TBPMO_LANGUAGE_OBJECTRowDeleted As TBPMO_LANGUAGE_OBJECTRowChangeEventHandler + Public Event TBPMO_WD_IMPORT_PROFILERowDeleted As TBPMO_WD_IMPORT_PROFILERowChangeEventHandler _ - Public Overloads Sub AddTBPMO_LANGUAGE_OBJECTRow(ByVal row As TBPMO_LANGUAGE_OBJECTRow) + Public Overloads Sub AddTBPMO_WD_IMPORT_PROFILERow(ByVal row As TBPMO_WD_IMPORT_PROFILERow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPMO_LANGUAGE_OBJECTRow(ByVal LANGUAGE_TYPE As String, ByVal SCREEN_ID As Integer, ByVal PMO_OBJECT_NAME As String, ByVal CAPTION As String, ByVal HINT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_LANGUAGE_OBJECTRow - Dim rowTBPMO_LANGUAGE_OBJECTRow As TBPMO_LANGUAGE_OBJECTRow = CType(Me.NewRow,TBPMO_LANGUAGE_OBJECTRow) - Dim columnValuesArray() As Object = New Object() {Nothing, LANGUAGE_TYPE, SCREEN_ID, PMO_OBJECT_NAME, CAPTION, HINT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - rowTBPMO_LANGUAGE_OBJECTRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPMO_LANGUAGE_OBJECTRow) - Return rowTBPMO_LANGUAGE_OBJECTRow + Public Overloads Function AddTBPMO_WD_IMPORT_PROFILERow(ByVal NAME As String, ByVal WD_SEARCH As String, ByVal UNIQUE_DOC_SQL As String, ByVal NEW_OBJECTTYPE As String, ByVal CONNECTION_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal ENTITY_ID As Integer, ByVal SQL_DOCTYPE As String, ByVal OLD_OBJECTTYPE As String, ByVal IDX_FILE_WORKED As String) As TBPMO_WD_IMPORT_PROFILERow + Dim rowTBPMO_WD_IMPORT_PROFILERow As TBPMO_WD_IMPORT_PROFILERow = CType(Me.NewRow,TBPMO_WD_IMPORT_PROFILERow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ENTITY_ID, SQL_DOCTYPE, OLD_OBJECTTYPE, IDX_FILE_WORKED} + rowTBPMO_WD_IMPORT_PROFILERow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_WD_IMPORT_PROFILERow) + Return rowTBPMO_WD_IMPORT_PROFILERow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_LANGUAGE_OBJECTRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_LANGUAGE_OBJECTRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_IMPORT_PROFILERow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_IMPORT_PROFILERow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_LANGUAGE_OBJECTDataTable = CType(MyBase.Clone,TBPMO_LANGUAGE_OBJECTDataTable) + Dim cln As TBPMO_WD_IMPORT_PROFILEDataTable = CType(MyBase.Clone,TBPMO_WD_IMPORT_PROFILEDataTable) cln.InitVars Return cln End Function @@ -18487,22 +18364,26 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPMO_LANGUAGE_OBJECTDataTable() + Return New TBPMO_WD_IMPORT_PROFILEDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnLANGUAGE_TYPE = MyBase.Columns("LANGUAGE_TYPE") - Me.columnSCREEN_ID = MyBase.Columns("SCREEN_ID") - Me.columnPMO_OBJECT_NAME = MyBase.Columns("PMO_OBJECT_NAME") - Me.columnCAPTION = MyBase.Columns("CAPTION") - Me.columnHINT = MyBase.Columns("HINT") + Me.columnNAME = MyBase.Columns("NAME") + Me.columnWD_SEARCH = MyBase.Columns("WD_SEARCH") + Me.columnUNIQUE_DOC_SQL = MyBase.Columns("UNIQUE_DOC_SQL") + Me.columnNEW_OBJECTTYPE = MyBase.Columns("NEW_OBJECTTYPE") + Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") + Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") + Me.columnSQL_DOCTYPE = MyBase.Columns("SQL_DOCTYPE") + Me.columnOLD_OBJECTTYPE = MyBase.Columns("OLD_OBJECTTYPE") + Me.columnIDX_FILE_WORKED = MyBase.Columns("IDX_FILE_WORKED") End Sub _ - Public Function NewTBPMO_LANGUAGE_OBJECTRow() As TBPMO_LANGUAGE_OBJECTRow - Return CType(Me.NewRow,TBPMO_LANGUAGE_OBJECTRow) + Public Function NewTBPMO_WD_IMPORT_PROFILERow() As TBPMO_WD_IMPORT_PROFILERow + Return CType(Me.NewRow,TBPMO_WD_IMPORT_PROFILERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPMO_LANGUAGE_OBJECTRow(builder) + Return New TBPMO_WD_IMPORT_PROFILERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPMO_LANGUAGE_OBJECTRow) + Return GetType(TBPMO_WD_IMPORT_PROFILERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPMO_LANGUAGE_OBJECTRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_LANGUAGE_OBJECTRowChanged(Me, New TBPMO_LANGUAGE_OBJECTRowChangeEvent(CType(e.Row,TBPMO_LANGUAGE_OBJECTRow), e.Action)) + If (Not (Me.TBPMO_WD_IMPORT_PROFILERowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_IMPORT_PROFILERowChanged(Me, New TBPMO_WD_IMPORT_PROFILERowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILERow), e.Action)) End If End Sub @@ -18579,8 +18472,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPMO_LANGUAGE_OBJECTRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_LANGUAGE_OBJECTRowChanging(Me, New TBPMO_LANGUAGE_OBJECTRowChangeEvent(CType(e.Row,TBPMO_LANGUAGE_OBJECTRow), e.Action)) + If (Not (Me.TBPMO_WD_IMPORT_PROFILERowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_IMPORT_PROFILERowChanging(Me, New TBPMO_WD_IMPORT_PROFILERowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILERow), e.Action)) End If End Sub @@ -18588,8 +18481,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPMO_LANGUAGE_OBJECTRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_LANGUAGE_OBJECTRowDeleted(Me, New TBPMO_LANGUAGE_OBJECTRowChangeEvent(CType(e.Row,TBPMO_LANGUAGE_OBJECTRow), e.Action)) + If (Not (Me.TBPMO_WD_IMPORT_PROFILERowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_IMPORT_PROFILERowDeleted(Me, New TBPMO_WD_IMPORT_PROFILERowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILERow), e.Action)) End If End Sub @@ -18597,14 +18490,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPMO_LANGUAGE_OBJECTRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_LANGUAGE_OBJECTRowDeleting(Me, New TBPMO_LANGUAGE_OBJECTRowChangeEvent(CType(e.Row,TBPMO_LANGUAGE_OBJECTRow), e.Action)) + If (Not (Me.TBPMO_WD_IMPORT_PROFILERowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_IMPORT_PROFILERowDeleting(Me, New TBPMO_WD_IMPORT_PROFILERowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILERow), e.Action)) End If End Sub _ - Public Sub RemoveTBPMO_LANGUAGE_OBJECTRow(ByVal row As TBPMO_LANGUAGE_OBJECTRow) + Public Sub RemoveTBPMO_WD_IMPORT_PROFILERow(ByVal row As TBPMO_WD_IMPORT_PROFILERow) Me.Rows.Remove(row) End Sub @@ -18631,7 +18524,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPMO_LANGUAGE_OBJECTDataTable" + attribute2.FixedValue = "TBPMO_WD_IMPORT_PROFILEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -18680,16 +18573,20 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBDD_CLIENTDataTable - Inherits Global.System.Data.TypedTableBase(Of TBDD_CLIENTRow) + Partial Public Class TBPMO_WD_IMPORT_PROFILE_IDXDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_IMPORT_PROFILE_IDXRow) Private columnGUID As Global.System.Data.DataColumn - Private columnCLIENT_NAME As Global.System.Data.DataColumn + Private columnPROFILE_ID As Global.System.Data.DataColumn - Private columnSHORTNAME As Global.System.Data.DataColumn + Private columnSTRING1 As Global.System.Data.DataColumn - Private columnCOMMENT As Global.System.Data.DataColumn + Private columnSTRING2 As Global.System.Data.DataColumn + + Private columnSQL1 As Global.System.Data.DataColumn + + Private columnSQL2 As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn @@ -18703,7 +18600,7 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Public Sub New() MyBase.New - Me.TableName = "TBDD_CLIENT" + Me.TableName = "TBPMO_WD_IMPORT_PROFILE_IDX" Me.BeginInit Me.InitClass Me.EndInit @@ -18744,25 +18641,41 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property CLIENT_NAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property PROFILE_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnCLIENT_NAME + Return Me.columnPROFILE_ID End Get End Property _ - Public ReadOnly Property SHORTNAMEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property STRING1Column() As Global.System.Data.DataColumn Get - Return Me.columnSHORTNAME + Return Me.columnSTRING1 End Get End Property _ - Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Public ReadOnly Property STRING2Column() As Global.System.Data.DataColumn Get - Return Me.columnCOMMENT + Return Me.columnSTRING2 + End Get + End Property + + _ + Public ReadOnly Property SQL1Column() As Global.System.Data.DataColumn + Get + Return Me.columnSQL1 + End Get + End Property + + _ + Public ReadOnly Property SQL2Column() As Global.System.Data.DataColumn + Get + Return Me.columnSQL2 End Get End Property @@ -18809,50 +18722,53 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBDD_CLIENTRow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_WD_IMPORT_PROFILE_IDXRow Get - Return CType(Me.Rows(index),TBDD_CLIENTRow) + Return CType(Me.Rows(index),TBPMO_WD_IMPORT_PROFILE_IDXRow) End Get End Property _ - Public Event TBDD_CLIENTRowChanging As TBDD_CLIENTRowChangeEventHandler + Public Event TBPMO_WD_IMPORT_PROFILE_IDXRowChanging As TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEventHandler _ - Public Event TBDD_CLIENTRowChanged As TBDD_CLIENTRowChangeEventHandler + Public Event TBPMO_WD_IMPORT_PROFILE_IDXRowChanged As TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEventHandler _ - Public Event TBDD_CLIENTRowDeleting As TBDD_CLIENTRowChangeEventHandler + Public Event TBPMO_WD_IMPORT_PROFILE_IDXRowDeleting As TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEventHandler _ - Public Event TBDD_CLIENTRowDeleted As TBDD_CLIENTRowChangeEventHandler + Public Event TBPMO_WD_IMPORT_PROFILE_IDXRowDeleted As TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEventHandler _ - Public Overloads Sub AddTBDD_CLIENTRow(ByVal row As TBDD_CLIENTRow) + Public Overloads Sub AddTBPMO_WD_IMPORT_PROFILE_IDXRow(ByVal row As TBPMO_WD_IMPORT_PROFILE_IDXRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBDD_CLIENTRow(ByVal CLIENT_NAME As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBDD_CLIENTRow - Dim rowTBDD_CLIENTRow As TBDD_CLIENTRow = CType(Me.NewRow,TBDD_CLIENTRow) - Dim columnValuesArray() As Object = New Object() {Nothing, CLIENT_NAME, SHORTNAME, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - rowTBDD_CLIENTRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBDD_CLIENTRow) - Return rowTBDD_CLIENTRow + Public Overloads Function AddTBPMO_WD_IMPORT_PROFILE_IDXRow(ByVal parentTBPMO_WD_IMPORT_PROFILERowByFK_TBPMO_WD_IMPORT_PROFILE_IDX_1 As TBPMO_WD_IMPORT_PROFILERow, ByVal STRING1 As String, ByVal STRING2 As String, ByVal SQL1 As String, ByVal SQL2 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_IMPORT_PROFILE_IDXRow + Dim rowTBPMO_WD_IMPORT_PROFILE_IDXRow As TBPMO_WD_IMPORT_PROFILE_IDXRow = CType(Me.NewRow,TBPMO_WD_IMPORT_PROFILE_IDXRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBPMO_WD_IMPORT_PROFILERowByFK_TBPMO_WD_IMPORT_PROFILE_IDX_1) Is Nothing) Then + columnValuesArray(1) = parentTBPMO_WD_IMPORT_PROFILERowByFK_TBPMO_WD_IMPORT_PROFILE_IDX_1(0) + End If + rowTBPMO_WD_IMPORT_PROFILE_IDXRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_WD_IMPORT_PROFILE_IDXRow) + Return rowTBPMO_WD_IMPORT_PROFILE_IDXRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBDD_CLIENTRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBDD_CLIENTRow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_IMPORT_PROFILE_IDXRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_IMPORT_PROFILE_IDXRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBDD_CLIENTDataTable = CType(MyBase.Clone,TBDD_CLIENTDataTable) + Dim cln As TBPMO_WD_IMPORT_PROFILE_IDXDataTable = CType(MyBase.Clone,TBPMO_WD_IMPORT_PROFILE_IDXDataTable) cln.InitVars Return cln End Function @@ -18860,16 +18776,18 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBDD_CLIENTDataTable() + Return New TBPMO_WD_IMPORT_PROFILE_IDXDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnCLIENT_NAME = MyBase.Columns("CLIENT_NAME") - Me.columnSHORTNAME = MyBase.Columns("SHORTNAME") - Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") + Me.columnSTRING1 = MyBase.Columns("STRING1") + Me.columnSTRING2 = MyBase.Columns("STRING2") + Me.columnSQL1 = MyBase.Columns("SQL1") + Me.columnSQL2 = MyBase.Columns("SQL2") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") @@ -18881,12 +18799,16 @@ Partial Public Class DD_DMSDataSet 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.columnCLIENT_NAME = New Global.System.Data.DataColumn("CLIENT_NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCLIENT_NAME) - Me.columnSHORTNAME = New Global.System.Data.DataColumn("SHORTNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSHORTNAME) - Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPROFILE_ID) + Me.columnSTRING1 = New Global.System.Data.DataColumn("STRING1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTRING1) + Me.columnSTRING2 = New Global.System.Data.DataColumn("STRING2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTRING2) + Me.columnSQL1 = New Global.System.Data.DataColumn("SQL1", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL1) + Me.columnSQL2 = New Global.System.Data.DataColumn("SQL2", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL2) 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) @@ -18900,39 +18822,41 @@ Partial Public Class DD_DMSDataSet Me.columnGUID.AllowDBNull = false Me.columnGUID.ReadOnly = true Me.columnGUID.Unique = true - Me.columnCLIENT_NAME.AllowDBNull = false - Me.columnCLIENT_NAME.MaxLength = 50 - Me.columnSHORTNAME.MaxLength = 30 - Me.columnCOMMENT.MaxLength = 200 - Me.columnADDED_WHO.AllowDBNull = false + Me.columnPROFILE_ID.AllowDBNull = false + Me.columnSTRING1.AllowDBNull = false + Me.columnSTRING1.MaxLength = 200 + Me.columnSTRING2.AllowDBNull = false + Me.columnSTRING2.MaxLength = 200 + Me.columnSQL1.MaxLength = 5000 + Me.columnSQL2.MaxLength = 5000 Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ - Public Function NewTBDD_CLIENTRow() As TBDD_CLIENTRow - Return CType(Me.NewRow,TBDD_CLIENTRow) + Public Function NewTBPMO_WD_IMPORT_PROFILE_IDXRow() As TBPMO_WD_IMPORT_PROFILE_IDXRow + Return CType(Me.NewRow,TBPMO_WD_IMPORT_PROFILE_IDXRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBDD_CLIENTRow(builder) + Return New TBPMO_WD_IMPORT_PROFILE_IDXRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBDD_CLIENTRow) + Return GetType(TBPMO_WD_IMPORT_PROFILE_IDXRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBDD_CLIENTRowChangedEvent) Is Nothing) Then - RaiseEvent TBDD_CLIENTRowChanged(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) + If (Not (Me.TBPMO_WD_IMPORT_PROFILE_IDXRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_IMPORT_PROFILE_IDXRowChanged(Me, New TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILE_IDXRow), e.Action)) End If End Sub @@ -18940,8 +18864,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBDD_CLIENTRowChangingEvent) Is Nothing) Then - RaiseEvent TBDD_CLIENTRowChanging(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) + If (Not (Me.TBPMO_WD_IMPORT_PROFILE_IDXRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_IMPORT_PROFILE_IDXRowChanging(Me, New TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILE_IDXRow), e.Action)) End If End Sub @@ -18949,8 +18873,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBDD_CLIENTRowDeletedEvent) Is Nothing) Then - RaiseEvent TBDD_CLIENTRowDeleted(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) + If (Not (Me.TBPMO_WD_IMPORT_PROFILE_IDXRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_IMPORT_PROFILE_IDXRowDeleted(Me, New TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILE_IDXRow), e.Action)) End If End Sub @@ -18958,14 +18882,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBDD_CLIENTRowDeletingEvent) Is Nothing) Then - RaiseEvent TBDD_CLIENTRowDeleting(Me, New TBDD_CLIENTRowChangeEvent(CType(e.Row,TBDD_CLIENTRow), e.Action)) + If (Not (Me.TBPMO_WD_IMPORT_PROFILE_IDXRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_WD_IMPORT_PROFILE_IDXRowDeleting(Me, New TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILE_IDXRow), e.Action)) End If End Sub _ - Public Sub RemoveTBDD_CLIENTRow(ByVal row As TBDD_CLIENTRow) + Public Sub RemoveTBPMO_WD_IMPORT_PROFILE_IDXRow(ByVal row As TBPMO_WD_IMPORT_PROFILE_IDXRow) Me.Rows.Remove(row) End Sub @@ -18992,7 +18916,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBDD_CLIENTDataTable" + attribute2.FixedValue = "TBPMO_WD_IMPORT_PROFILE_IDXDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -19041,14 +18965,30 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBPMO_CONSTRUCTOR_USER_SQLDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPMO_CONSTRUCTOR_USER_SQLRow) + Partial Public Class VWPMO_WF_ACTIVEDataTable + Inherits Global.System.Data.TypedTableBase(Of VWPMO_WF_ACTIVERow) - Private columnGUID As Global.System.Data.DataColumn + Private columnWF_TASK_ID As Global.System.Data.DataColumn - Private columnSQL_COMMAND As Global.System.Data.DataColumn + Private columnWF_ID As Global.System.Data.DataColumn - Private columnADDED_WHO As Global.System.Data.DataColumn + Private columnWF_TITLE As Global.System.Data.DataColumn + + Private columnRECORD_ID As Global.System.Data.DataColumn + + Private columnSTATE_ID As Global.System.Data.DataColumn + + Private columnSTATE_TITLE As Global.System.Data.DataColumn + + Private columnFORM_VIEW_ID As Global.System.Data.DataColumn + + Private columnENTITY_ID As Global.System.Data.DataColumn + + Private columnENTITY_TITLE As Global.System.Data.DataColumn + + Private columnCOMMENT As Global.System.Data.DataColumn + + Private columnDUE_DATE As Global.System.Data.DataColumn Private columnADDED_WHEN As Global.System.Data.DataColumn @@ -19056,15 +18996,21 @@ Partial Public Class DD_DMSDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnCONSTR_DET_ID As Global.System.Data.DataColumn + Private columnTASK_DATE As Global.System.Data.DataColumn - Private columnUSER_ID As Global.System.Data.DataColumn + Private columnFINAL As Global.System.Data.DataColumn + + Private columnCOLOR As Global.System.Data.DataColumn + + Private columnUSERNAME As Global.System.Data.DataColumn + + Private columnRECORD_DESCRIPTION As Global.System.Data.DataColumn _ Public Sub New() MyBase.New - Me.TableName = "TBPMO_CONSTRUCTOR_USER_SQL" + Me.TableName = "VWPMO_WF_ACTIVE" Me.BeginInit Me.InitClass Me.EndInit @@ -19097,25 +19043,89 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property WF_TASK_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnGUID + Return Me.columnWF_TASK_ID End Get End Property _ - Public ReadOnly Property SQL_COMMANDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property WF_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnSQL_COMMAND + Return Me.columnWF_ID End Get End Property _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property WF_TITLEColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHO + Return Me.columnWF_TITLE + End Get + End Property + + _ + Public ReadOnly Property RECORD_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRECORD_ID + End Get + End Property + + _ + Public ReadOnly Property STATE_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATE_ID + End Get + End Property + + _ + Public ReadOnly Property STATE_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSTATE_TITLE + End Get + End Property + + _ + Public ReadOnly Property FORM_VIEW_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_VIEW_ID + End Get + End Property + + _ + Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnENTITY_ID + End Get + End Property + + _ + Public ReadOnly Property ENTITY_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnENTITY_TITLE + End Get + End Property + + _ + Public ReadOnly Property COMMENTColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOMMENT + End Get + End Property + + _ + Public ReadOnly Property DUE_DATEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnDUE_DATE End Get End Property @@ -19145,17 +19155,41 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property CONSTR_DET_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property TASK_DATEColumn() As Global.System.Data.DataColumn Get - Return Me.columnCONSTR_DET_ID + Return Me.columnTASK_DATE End Get End Property _ - Public ReadOnly Property USER_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property FINALColumn() As Global.System.Data.DataColumn Get - Return Me.columnUSER_ID + Return Me.columnFINAL + End Get + End Property + + _ + Public ReadOnly Property COLORColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCOLOR + End Get + End Property + + _ + Public ReadOnly Property USERNAMEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUSERNAME + End Get + End Property + + _ + Public ReadOnly Property RECORD_DESCRIPTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnRECORD_DESCRIPTION End Get End Property @@ -19170,50 +19204,63 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_CONSTRUCTOR_USER_SQLRow + Public Default ReadOnly Property Item(ByVal index As Integer) As VWPMO_WF_ACTIVERow Get - Return CType(Me.Rows(index),TBPMO_CONSTRUCTOR_USER_SQLRow) + Return CType(Me.Rows(index),VWPMO_WF_ACTIVERow) End Get End Property _ - Public Event TBPMO_CONSTRUCTOR_USER_SQLRowChanging As TBPMO_CONSTRUCTOR_USER_SQLRowChangeEventHandler + Public Event VWPMO_WF_ACTIVERowChanging As VWPMO_WF_ACTIVERowChangeEventHandler _ - Public Event TBPMO_CONSTRUCTOR_USER_SQLRowChanged As TBPMO_CONSTRUCTOR_USER_SQLRowChangeEventHandler + Public Event VWPMO_WF_ACTIVERowChanged As VWPMO_WF_ACTIVERowChangeEventHandler _ - Public Event TBPMO_CONSTRUCTOR_USER_SQLRowDeleting As TBPMO_CONSTRUCTOR_USER_SQLRowChangeEventHandler + Public Event VWPMO_WF_ACTIVERowDeleting As VWPMO_WF_ACTIVERowChangeEventHandler _ - Public Event TBPMO_CONSTRUCTOR_USER_SQLRowDeleted As TBPMO_CONSTRUCTOR_USER_SQLRowChangeEventHandler + Public Event VWPMO_WF_ACTIVERowDeleted As VWPMO_WF_ACTIVERowChangeEventHandler _ - Public Overloads Sub AddTBPMO_CONSTRUCTOR_USER_SQLRow(ByVal row As TBPMO_CONSTRUCTOR_USER_SQLRow) + Public Overloads Sub AddVWPMO_WF_ACTIVERow(ByVal row As VWPMO_WF_ACTIVERow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPMO_CONSTRUCTOR_USER_SQLRow(ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal CONSTR_DET_ID As Integer, ByVal USER_ID As Integer) As TBPMO_CONSTRUCTOR_USER_SQLRow - Dim rowTBPMO_CONSTRUCTOR_USER_SQLRow As TBPMO_CONSTRUCTOR_USER_SQLRow = CType(Me.NewRow,TBPMO_CONSTRUCTOR_USER_SQLRow) - Dim columnValuesArray() As Object = New Object() {Nothing, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, CONSTR_DET_ID, USER_ID} - rowTBPMO_CONSTRUCTOR_USER_SQLRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPMO_CONSTRUCTOR_USER_SQLRow) - Return rowTBPMO_CONSTRUCTOR_USER_SQLRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_CONSTRUCTOR_USER_SQLRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_CONSTRUCTOR_USER_SQLRow) + Public Overloads Function AddVWPMO_WF_ACTIVERow( _ + ByVal WF_TASK_ID As Integer, _ + ByVal WF_ID As Integer, _ + ByVal WF_TITLE As String, _ + ByVal RECORD_ID As Integer, _ + ByVal STATE_ID As Integer, _ + ByVal STATE_TITLE As String, _ + ByVal FORM_VIEW_ID As Integer, _ + ByVal ENTITY_ID As Integer, _ + ByVal ENTITY_TITLE As String, _ + ByVal COMMENT As String, _ + ByVal DUE_DATE As Date, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Date, _ + ByVal TASK_DATE As Date, _ + ByVal FINAL As Boolean, _ + ByVal COLOR As String, _ + ByVal USERNAME As String, _ + ByVal RECORD_DESCRIPTION As String) As VWPMO_WF_ACTIVERow + Dim rowVWPMO_WF_ACTIVERow As VWPMO_WF_ACTIVERow = CType(Me.NewRow,VWPMO_WF_ACTIVERow) + Dim columnValuesArray() As Object = New Object() {WF_TASK_ID, WF_ID, WF_TITLE, RECORD_ID, STATE_ID, STATE_TITLE, FORM_VIEW_ID, ENTITY_ID, ENTITY_TITLE, COMMENT, DUE_DATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, FINAL, COLOR, USERNAME, RECORD_DESCRIPTION} + rowVWPMO_WF_ACTIVERow.ItemArray = columnValuesArray + Me.Rows.Add(rowVWPMO_WF_ACTIVERow) + Return rowVWPMO_WF_ACTIVERow End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_CONSTRUCTOR_USER_SQLDataTable = CType(MyBase.Clone,TBPMO_CONSTRUCTOR_USER_SQLDataTable) + Dim cln As VWPMO_WF_ACTIVEDataTable = CType(MyBase.Clone,VWPMO_WF_ACTIVEDataTable) cln.InitVars Return cln End Function @@ -19221,77 +19268,120 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPMO_CONSTRUCTOR_USER_SQLDataTable() + Return New VWPMO_WF_ACTIVEDataTable() End Function _ Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnSQL_COMMAND = MyBase.Columns("SQL_COMMAND") - Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") + Me.columnWF_TASK_ID = MyBase.Columns("WF_TASK_ID") + Me.columnWF_ID = MyBase.Columns("WF_ID") + Me.columnWF_TITLE = MyBase.Columns("WF_TITLE") + Me.columnRECORD_ID = MyBase.Columns("RECORD_ID") + Me.columnSTATE_ID = MyBase.Columns("STATE_ID") + Me.columnSTATE_TITLE = MyBase.Columns("STATE_TITLE") + Me.columnFORM_VIEW_ID = MyBase.Columns("FORM_VIEW_ID") + Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") + Me.columnENTITY_TITLE = MyBase.Columns("ENTITY_TITLE") + Me.columnCOMMENT = MyBase.Columns("COMMENT") + Me.columnDUE_DATE = MyBase.Columns("DUE_DATE") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnCONSTR_DET_ID = MyBase.Columns("CONSTR_DET_ID") - Me.columnUSER_ID = MyBase.Columns("USER_ID") + Me.columnTASK_DATE = MyBase.Columns("TASK_DATE") + Me.columnFINAL = MyBase.Columns("FINAL") + Me.columnCOLOR = MyBase.Columns("COLOR") + Me.columnUSERNAME = MyBase.Columns("USERNAME") + Me.columnRECORD_DESCRIPTION = MyBase.Columns("RECORD_DESCRIPTION") 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.columnSQL_COMMAND = New Global.System.Data.DataColumn("SQL_COMMAND", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSQL_COMMAND) - 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.columnWF_TASK_ID = New Global.System.Data.DataColumn("WF_TASK_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWF_TASK_ID) + Me.columnWF_ID = New Global.System.Data.DataColumn("WF_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWF_ID) + Me.columnWF_TITLE = New Global.System.Data.DataColumn("WF_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnWF_TITLE) + Me.columnRECORD_ID = New Global.System.Data.DataColumn("RECORD_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRECORD_ID) + Me.columnSTATE_ID = New Global.System.Data.DataColumn("STATE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATE_ID) + Me.columnSTATE_TITLE = New Global.System.Data.DataColumn("STATE_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSTATE_TITLE) + Me.columnFORM_VIEW_ID = New Global.System.Data.DataColumn("FORM_VIEW_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_VIEW_ID) + Me.columnENTITY_ID = New Global.System.Data.DataColumn("ENTITY_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnENTITY_ID) + Me.columnENTITY_TITLE = New Global.System.Data.DataColumn("ENTITY_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnENTITY_TITLE) + Me.columnCOMMENT = New Global.System.Data.DataColumn("COMMENT", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOMMENT) + Me.columnDUE_DATE = New Global.System.Data.DataColumn("DUE_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnDUE_DATE) 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.columnCONSTR_DET_ID = New Global.System.Data.DataColumn("CONSTR_DET_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnCONSTR_DET_ID) - Me.columnUSER_ID = New Global.System.Data.DataColumn("USER_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnUSER_ID) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, true)) - Me.columnGUID.AutoIncrement = true - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnSQL_COMMAND.MaxLength = 4000 - Me.columnADDED_WHO.MaxLength = 50 + Me.columnTASK_DATE = New Global.System.Data.DataColumn("TASK_DATE", GetType(Date), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnTASK_DATE) + Me.columnFINAL = New Global.System.Data.DataColumn("FINAL", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFINAL) + Me.columnCOLOR = New Global.System.Data.DataColumn("COLOR", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCOLOR) + Me.columnUSERNAME = New Global.System.Data.DataColumn("USERNAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUSERNAME) + Me.columnRECORD_DESCRIPTION = New Global.System.Data.DataColumn("RECORD_DESCRIPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnRECORD_DESCRIPTION) + Me.columnWF_TASK_ID.AllowDBNull = false + Me.columnWF_ID.AllowDBNull = false + Me.columnWF_TITLE.ReadOnly = true + Me.columnWF_TITLE.MaxLength = 100 + Me.columnRECORD_ID.AllowDBNull = false + Me.columnSTATE_ID.AllowDBNull = false + Me.columnSTATE_TITLE.ReadOnly = true + Me.columnSTATE_TITLE.MaxLength = 100 + Me.columnFORM_VIEW_ID.AllowDBNull = false + Me.columnENTITY_ID.AllowDBNull = false + Me.columnENTITY_TITLE.ReadOnly = true + Me.columnENTITY_TITLE.MaxLength = 100 + Me.columnCOMMENT.MaxLength = 500 Me.columnCHANGED_WHO.MaxLength = 50 - Me.columnCONSTR_DET_ID.AllowDBNull = false - Me.columnUSER_ID.AllowDBNull = false + Me.columnFINAL.AllowDBNull = false + Me.columnCOLOR.MaxLength = 50 + Me.columnUSERNAME.ReadOnly = true + Me.columnUSERNAME.MaxLength = 1024 + Me.columnRECORD_DESCRIPTION.ReadOnly = true + Me.columnRECORD_DESCRIPTION.MaxLength = 2500 End Sub _ - Public Function NewTBPMO_CONSTRUCTOR_USER_SQLRow() As TBPMO_CONSTRUCTOR_USER_SQLRow - Return CType(Me.NewRow,TBPMO_CONSTRUCTOR_USER_SQLRow) + Public Function NewVWPMO_WF_ACTIVERow() As VWPMO_WF_ACTIVERow + Return CType(Me.NewRow,VWPMO_WF_ACTIVERow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPMO_CONSTRUCTOR_USER_SQLRow(builder) + Return New VWPMO_WF_ACTIVERow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPMO_CONSTRUCTOR_USER_SQLRow) + Return GetType(VWPMO_WF_ACTIVERow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPMO_CONSTRUCTOR_USER_SQLRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_CONSTRUCTOR_USER_SQLRowChanged(Me, New TBPMO_CONSTRUCTOR_USER_SQLRowChangeEvent(CType(e.Row,TBPMO_CONSTRUCTOR_USER_SQLRow), e.Action)) + If (Not (Me.VWPMO_WF_ACTIVERowChangedEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_ACTIVERowChanged(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action)) End If End Sub @@ -19299,8 +19389,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPMO_CONSTRUCTOR_USER_SQLRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_CONSTRUCTOR_USER_SQLRowChanging(Me, New TBPMO_CONSTRUCTOR_USER_SQLRowChangeEvent(CType(e.Row,TBPMO_CONSTRUCTOR_USER_SQLRow), e.Action)) + If (Not (Me.VWPMO_WF_ACTIVERowChangingEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_ACTIVERowChanging(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action)) End If End Sub @@ -19308,8 +19398,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPMO_CONSTRUCTOR_USER_SQLRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_CONSTRUCTOR_USER_SQLRowDeleted(Me, New TBPMO_CONSTRUCTOR_USER_SQLRowChangeEvent(CType(e.Row,TBPMO_CONSTRUCTOR_USER_SQLRow), e.Action)) + If (Not (Me.VWPMO_WF_ACTIVERowDeletedEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_ACTIVERowDeleted(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action)) End If End Sub @@ -19317,14 +19407,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPMO_CONSTRUCTOR_USER_SQLRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_CONSTRUCTOR_USER_SQLRowDeleting(Me, New TBPMO_CONSTRUCTOR_USER_SQLRowChangeEvent(CType(e.Row,TBPMO_CONSTRUCTOR_USER_SQLRow), e.Action)) + If (Not (Me.VWPMO_WF_ACTIVERowDeletingEvent) Is Nothing) Then + RaiseEvent VWPMO_WF_ACTIVERowDeleting(Me, New VWPMO_WF_ACTIVERowChangeEvent(CType(e.Row,VWPMO_WF_ACTIVERow), e.Action)) End If End Sub _ - Public Sub RemoveTBPMO_CONSTRUCTOR_USER_SQLRow(ByVal row As TBPMO_CONSTRUCTOR_USER_SQLRow) + Public Sub RemoveVWPMO_WF_ACTIVERow(ByVal row As VWPMO_WF_ACTIVERow) Me.Rows.Remove(row) End Sub @@ -19351,7 +19441,7 @@ Partial Public Class DD_DMSDataSet type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "TBPMO_CONSTRUCTOR_USER_SQLDataTable" + attribute2.FixedValue = "VWPMO_WF_ACTIVEDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -19400,20 +19490,26 @@ Partial Public Class DD_DMSDataSet ''' _ - Partial Public Class TBPMO_WD_IMPORT_PROFILEDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_IMPORT_PROFILERow) + Partial Public Class TBPMO_RIGHT_GROUPDataTable + Inherits Global.System.Data.TypedTableBase(Of TBPMO_RIGHT_GROUPRow) Private columnGUID As Global.System.Data.DataColumn - Private columnNAME As Global.System.Data.DataColumn + Private columnENTITY_ID As Global.System.Data.DataColumn - Private columnWD_SEARCH As Global.System.Data.DataColumn + Private columnGROUP_ID As Global.System.Data.DataColumn - Private columnUNIQUE_DOC_SQL As Global.System.Data.DataColumn + Private columnEDIT_REC As Global.System.Data.DataColumn - Private columnNEW_OBJECTTYPE As Global.System.Data.DataColumn + Private columnADD_REC As Global.System.Data.DataColumn - Private columnCONNECTION_ID As Global.System.Data.DataColumn + Private columnDELETE_REC As Global.System.Data.DataColumn + + Private columnADD_DOC As Global.System.Data.DataColumn + + Private columnVIEW_DOC As Global.System.Data.DataColumn + + Private columnDELETE_DOC As Global.System.Data.DataColumn Private columnADDED_WHO As Global.System.Data.DataColumn @@ -19423,19 +19519,11 @@ Partial Public Class DD_DMSDataSet Private columnCHANGED_WHEN As Global.System.Data.DataColumn - Private columnENTITY_ID As Global.System.Data.DataColumn - - Private columnSQL_DOCTYPE As Global.System.Data.DataColumn - - Private columnOLD_OBJECTTYPE As Global.System.Data.DataColumn - - Private columnIDX_FILE_WORKED As Global.System.Data.DataColumn - _ Public Sub New() MyBase.New - Me.TableName = "TBPMO_WD_IMPORT_PROFILE" + Me.TableName = "TBPMO_RIGHT_GROUP" Me.BeginInit Me.InitClass Me.EndInit @@ -19476,105 +19564,97 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn - Get - Return Me.columnNAME - End Get - End Property - - _ - Public ReadOnly Property WD_SEARCHColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnWD_SEARCH + Return Me.columnENTITY_ID End Get End Property _ - Public ReadOnly Property UNIQUE_DOC_SQLColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GROUP_IDColumn() As Global.System.Data.DataColumn Get - Return Me.columnUNIQUE_DOC_SQL + Return Me.columnGROUP_ID End Get End Property _ - Public ReadOnly Property NEW_OBJECTTYPEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property EDIT_RECColumn() As Global.System.Data.DataColumn Get - Return Me.columnNEW_OBJECTTYPE + Return Me.columnEDIT_REC End Get End Property _ - Public ReadOnly Property CONNECTION_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADD_RECColumn() As Global.System.Data.DataColumn Get - Return Me.columnCONNECTION_ID + Return Me.columnADD_REC End Get End Property _ - Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property DELETE_RECColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHO + Return Me.columnDELETE_REC End Get End Property _ - Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADD_DOCColumn() As Global.System.Data.DataColumn Get - Return Me.columnADDED_WHEN + Return Me.columnADD_DOC End Get End Property _ - Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn + Public ReadOnly Property VIEW_DOCColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHO + Return Me.columnVIEW_DOC End Get End Property _ - Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn + Public ReadOnly Property DELETE_DOCColumn() As Global.System.Data.DataColumn Get - Return Me.columnCHANGED_WHEN + Return Me.columnDELETE_DOC End Get End Property _ - Public ReadOnly Property ENTITY_IDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnENTITY_ID + Return Me.columnADDED_WHO End Get End Property _ - Public ReadOnly Property SQL_DOCTYPEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnSQL_DOCTYPE + Return Me.columnADDED_WHEN End Get End Property _ - Public ReadOnly Property OLD_OBJECTTYPEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn Get - Return Me.columnOLD_OBJECTTYPE + Return Me.columnCHANGED_WHO End Get End Property _ - Public ReadOnly Property IDX_FILE_WORKEDColumn() As Global.System.Data.DataColumn + Public ReadOnly Property CHANGED_WHENColumn() As Global.System.Data.DataColumn Get - Return Me.columnIDX_FILE_WORKED + Return Me.columnCHANGED_WHEN End Get End Property @@ -19589,50 +19669,56 @@ Partial Public Class DD_DMSDataSet _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_WD_IMPORT_PROFILERow + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_RIGHT_GROUPRow Get - Return CType(Me.Rows(index),TBPMO_WD_IMPORT_PROFILERow) + Return CType(Me.Rows(index),TBPMO_RIGHT_GROUPRow) End Get End Property _ - Public Event TBPMO_WD_IMPORT_PROFILERowChanging As TBPMO_WD_IMPORT_PROFILERowChangeEventHandler + Public Event TBPMO_RIGHT_GROUPRowChanging As TBPMO_RIGHT_GROUPRowChangeEventHandler _ - Public Event TBPMO_WD_IMPORT_PROFILERowChanged As TBPMO_WD_IMPORT_PROFILERowChangeEventHandler + Public Event TBPMO_RIGHT_GROUPRowChanged As TBPMO_RIGHT_GROUPRowChangeEventHandler _ - Public Event TBPMO_WD_IMPORT_PROFILERowDeleting As TBPMO_WD_IMPORT_PROFILERowChangeEventHandler + Public Event TBPMO_RIGHT_GROUPRowDeleting As TBPMO_RIGHT_GROUPRowChangeEventHandler _ - Public Event TBPMO_WD_IMPORT_PROFILERowDeleted As TBPMO_WD_IMPORT_PROFILERowChangeEventHandler + Public Event TBPMO_RIGHT_GROUPRowDeleted As TBPMO_RIGHT_GROUPRowChangeEventHandler _ - Public Overloads Sub AddTBPMO_WD_IMPORT_PROFILERow(ByVal row As TBPMO_WD_IMPORT_PROFILERow) + Public Overloads Sub AddTBPMO_RIGHT_GROUPRow(ByVal row As TBPMO_RIGHT_GROUPRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddTBPMO_WD_IMPORT_PROFILERow(ByVal NAME As String, ByVal WD_SEARCH As String, ByVal UNIQUE_DOC_SQL As String, ByVal NEW_OBJECTTYPE As String, ByVal CONNECTION_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal ENTITY_ID As Integer, ByVal SQL_DOCTYPE As String, ByVal OLD_OBJECTTYPE As String, ByVal IDX_FILE_WORKED As String) As TBPMO_WD_IMPORT_PROFILERow - Dim rowTBPMO_WD_IMPORT_PROFILERow As TBPMO_WD_IMPORT_PROFILERow = CType(Me.NewRow,TBPMO_WD_IMPORT_PROFILERow) - Dim columnValuesArray() As Object = New Object() {Nothing, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ENTITY_ID, SQL_DOCTYPE, OLD_OBJECTTYPE, IDX_FILE_WORKED} - rowTBPMO_WD_IMPORT_PROFILERow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPMO_WD_IMPORT_PROFILERow) - Return rowTBPMO_WD_IMPORT_PROFILERow + Public Overloads Function AddTBPMO_RIGHT_GROUPRow(ByVal parentTBPMO_FORMRowByFK_TBPMO_RIGHT_GROUP_ENTITY_ID As TBPMO_FORMRow, ByVal parentTBDD_USER_GROUPSRowByFK_TBPMO_RIGHT_GROUP_GROUP_ID As TBDD_USER_GROUPSRow, 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, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date) As TBPMO_RIGHT_GROUPRow + Dim rowTBPMO_RIGHT_GROUPRow As TBPMO_RIGHT_GROUPRow = CType(Me.NewRow,TBPMO_RIGHT_GROUPRow) + Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, Nothing, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_DOC, DELETE_DOC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} + If (Not (parentTBPMO_FORMRowByFK_TBPMO_RIGHT_GROUP_ENTITY_ID) Is Nothing) Then + columnValuesArray(1) = parentTBPMO_FORMRowByFK_TBPMO_RIGHT_GROUP_ENTITY_ID(0) + End If + If (Not (parentTBDD_USER_GROUPSRowByFK_TBPMO_RIGHT_GROUP_GROUP_ID) Is Nothing) Then + columnValuesArray(2) = parentTBDD_USER_GROUPSRowByFK_TBPMO_RIGHT_GROUP_GROUP_ID(0) + End If + rowTBPMO_RIGHT_GROUPRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBPMO_RIGHT_GROUPRow) + Return rowTBPMO_RIGHT_GROUPRow End Function _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_IMPORT_PROFILERow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_IMPORT_PROFILERow) + Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_RIGHT_GROUPRow + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_RIGHT_GROUPRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_WD_IMPORT_PROFILEDataTable = CType(MyBase.Clone,TBPMO_WD_IMPORT_PROFILEDataTable) + Dim cln As TBPMO_RIGHT_GROUPDataTable = CType(MyBase.Clone,TBPMO_RIGHT_GROUPDataTable) cln.InitVars Return cln End Function @@ -19640,26 +19726,25 @@ Partial Public Class DD_DMSDataSet _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPMO_WD_IMPORT_PROFILEDataTable() + Return New TBPMO_RIGHT_GROUPDataTable() End Function _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") - Me.columnNAME = MyBase.Columns("NAME") - Me.columnWD_SEARCH = MyBase.Columns("WD_SEARCH") - Me.columnUNIQUE_DOC_SQL = MyBase.Columns("UNIQUE_DOC_SQL") - Me.columnNEW_OBJECTTYPE = MyBase.Columns("NEW_OBJECTTYPE") - Me.columnCONNECTION_ID = MyBase.Columns("CONNECTION_ID") + Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") + Me.columnGROUP_ID = MyBase.Columns("GROUP_ID") + Me.columnEDIT_REC = MyBase.Columns("EDIT_REC") + Me.columnADD_REC = MyBase.Columns("ADD_REC") + Me.columnDELETE_REC = MyBase.Columns("DELETE_REC") + Me.columnADD_DOC = MyBase.Columns("ADD_DOC") + Me.columnVIEW_DOC = MyBase.Columns("VIEW_DOC") + Me.columnDELETE_DOC = MyBase.Columns("DELETE_DOC") Me.columnADDED_WHO = MyBase.Columns("ADDED_WHO") Me.columnADDED_WHEN = MyBase.Columns("ADDED_WHEN") Me.columnCHANGED_WHO = MyBase.Columns("CHANGED_WHO") Me.columnCHANGED_WHEN = MyBase.Columns("CHANGED_WHEN") - Me.columnENTITY_ID = MyBase.Columns("ENTITY_ID") - Me.columnSQL_DOCTYPE = MyBase.Columns("SQL_DOCTYPE") - Me.columnOLD_OBJECTTYPE = MyBase.Columns("OLD_OBJECTTYPE") - Me.columnIDX_FILE_WORKED = MyBase.Columns("IDX_FILE_WORKED") End Sub _ - Public Function NewTBPMO_WD_IMPORT_PROFILERow() As TBPMO_WD_IMPORT_PROFILERow - Return CType(Me.NewRow,TBPMO_WD_IMPORT_PROFILERow) - End Function - - _ - Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPMO_WD_IMPORT_PROFILERow(builder) - End Function - - _ - Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPMO_WD_IMPORT_PROFILERow) - End Function - - _ - Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) - MyBase.OnRowChanged(e) - If (Not (Me.TBPMO_WD_IMPORT_PROFILERowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_WD_IMPORT_PROFILERowChanged(Me, New TBPMO_WD_IMPORT_PROFILERowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILERow), 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_IMPORT_PROFILERowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_WD_IMPORT_PROFILERowChanging(Me, New TBPMO_WD_IMPORT_PROFILERowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILERow), 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_IMPORT_PROFILERowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_WD_IMPORT_PROFILERowDeleted(Me, New TBPMO_WD_IMPORT_PROFILERowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILERow), 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_IMPORT_PROFILERowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_WD_IMPORT_PROFILERowDeleting(Me, New TBPMO_WD_IMPORT_PROFILERowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILERow), e.Action)) - End If - End Sub - - _ - Public Sub RemoveTBPMO_WD_IMPORT_PROFILERow(ByVal row As TBPMO_WD_IMPORT_PROFILERow) - 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_IMPORT_PROFILEDataTable" - type.Attributes.Add(attribute2) - type.Particle = sequence - Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable - If xs.Contains(dsSchema.TargetNamespace) Then - Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try - Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing - dsSchema.Write(s1) - Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator - Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) - s2.SetLength(0) - schema.Write(s2) - If (s1.Length = s2.Length) Then - s1.Position = 0 - s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ - AndAlso (s1.ReadByte = s2.ReadByte)) - - - Loop - If (s1.Position = s1.Length) Then - Return type - End If - End If - - Loop - Finally - If (Not (s1) Is Nothing) Then - s1.Close - End If - If (Not (s2) Is Nothing) Then - s2.Close - End If - End Try - End If - xs.Add(dsSchema) - Return type - End Function - End Class - - ''' - '''Represents the strongly named DataTable class. - ''' - _ - Partial Public Class TBPMO_WD_IMPORT_PROFILE_IDXDataTable - Inherits Global.System.Data.TypedTableBase(Of TBPMO_WD_IMPORT_PROFILE_IDXRow) - - Private columnGUID As Global.System.Data.DataColumn - - Private columnPROFILE_ID As Global.System.Data.DataColumn - - Private columnSTRING1 As Global.System.Data.DataColumn - - Private columnSTRING2 As Global.System.Data.DataColumn - - Private columnSQL1 As Global.System.Data.DataColumn - - Private columnSQL2 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_IMPORT_PROFILE_IDX" - 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 PROFILE_IDColumn() As Global.System.Data.DataColumn - Get - Return Me.columnPROFILE_ID - End Get - End Property - - _ - Public ReadOnly Property STRING1Column() As Global.System.Data.DataColumn - Get - Return Me.columnSTRING1 - End Get - End Property - - _ - Public ReadOnly Property STRING2Column() As Global.System.Data.DataColumn - Get - Return Me.columnSTRING2 - End Get - End Property - - _ - Public ReadOnly Property SQL1Column() As Global.System.Data.DataColumn - Get - Return Me.columnSQL1 - End Get - End Property - - _ - Public ReadOnly Property SQL2Column() As Global.System.Data.DataColumn - Get - Return Me.columnSQL2 - 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_IMPORT_PROFILE_IDXRow - Get - Return CType(Me.Rows(index),TBPMO_WD_IMPORT_PROFILE_IDXRow) - End Get - End Property - - _ - Public Event TBPMO_WD_IMPORT_PROFILE_IDXRowChanging As TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEventHandler - - _ - Public Event TBPMO_WD_IMPORT_PROFILE_IDXRowChanged As TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEventHandler - - _ - Public Event TBPMO_WD_IMPORT_PROFILE_IDXRowDeleting As TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEventHandler - - _ - Public Event TBPMO_WD_IMPORT_PROFILE_IDXRowDeleted As TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEventHandler - - _ - Public Overloads Sub AddTBPMO_WD_IMPORT_PROFILE_IDXRow(ByVal row As TBPMO_WD_IMPORT_PROFILE_IDXRow) - Me.Rows.Add(row) - End Sub - - _ - Public Overloads Function AddTBPMO_WD_IMPORT_PROFILE_IDXRow(ByVal parentTBPMO_WD_IMPORT_PROFILERowByFK_TBPMO_WD_IMPORT_PROFILE_IDX_1 As TBPMO_WD_IMPORT_PROFILERow, ByVal STRING1 As String, ByVal STRING2 As String, ByVal SQL1 As String, ByVal SQL2 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_IMPORT_PROFILE_IDXRow - Dim rowTBPMO_WD_IMPORT_PROFILE_IDXRow As TBPMO_WD_IMPORT_PROFILE_IDXRow = CType(Me.NewRow,TBPMO_WD_IMPORT_PROFILE_IDXRow) - Dim columnValuesArray() As Object = New Object() {Nothing, Nothing, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN} - If (Not (parentTBPMO_WD_IMPORT_PROFILERowByFK_TBPMO_WD_IMPORT_PROFILE_IDX_1) Is Nothing) Then - columnValuesArray(1) = parentTBPMO_WD_IMPORT_PROFILERowByFK_TBPMO_WD_IMPORT_PROFILE_IDX_1(0) - End If - rowTBPMO_WD_IMPORT_PROFILE_IDXRow.ItemArray = columnValuesArray - Me.Rows.Add(rowTBPMO_WD_IMPORT_PROFILE_IDXRow) - Return rowTBPMO_WD_IMPORT_PROFILE_IDXRow - End Function - - _ - Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_WD_IMPORT_PROFILE_IDXRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_WD_IMPORT_PROFILE_IDXRow) - End Function - - _ - Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_WD_IMPORT_PROFILE_IDXDataTable = CType(MyBase.Clone,TBPMO_WD_IMPORT_PROFILE_IDXDataTable) - cln.InitVars - Return cln - End Function - - _ - Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New TBPMO_WD_IMPORT_PROFILE_IDXDataTable() - End Function - - _ - Friend Sub InitVars() - Me.columnGUID = MyBase.Columns("GUID") - Me.columnPROFILE_ID = MyBase.Columns("PROFILE_ID") - Me.columnSTRING1 = MyBase.Columns("STRING1") - Me.columnSTRING2 = MyBase.Columns("STRING2") - Me.columnSQL1 = MyBase.Columns("SQL1") - Me.columnSQL2 = MyBase.Columns("SQL2") - 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.columnPROFILE_ID = New Global.System.Data.DataColumn("PROFILE_ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnPROFILE_ID) - Me.columnSTRING1 = New Global.System.Data.DataColumn("STRING1", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSTRING1) - Me.columnSTRING2 = New Global.System.Data.DataColumn("STRING2", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSTRING2) - Me.columnSQL1 = New Global.System.Data.DataColumn("SQL1", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSQL1) - Me.columnSQL2 = New Global.System.Data.DataColumn("SQL2", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnSQL2) - 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.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true - Me.columnPROFILE_ID.AllowDBNull = false - Me.columnSTRING1.AllowDBNull = false - Me.columnSTRING1.MaxLength = 200 - Me.columnSTRING2.AllowDBNull = false - Me.columnSTRING2.MaxLength = 200 - Me.columnSQL1.MaxLength = 5000 - Me.columnSQL2.MaxLength = 5000 + Me.columnENTITY_ID.AllowDBNull = false + Me.columnGROUP_ID.AllowDBNull = false + Me.columnEDIT_REC.AllowDBNull = false + Me.columnEDIT_REC.DefaultValue = CType(False, Boolean) + Me.columnADD_REC.AllowDBNull = False + Me.columnADD_REC.DefaultValue = CType(True, Boolean) + Me.columnDELETE_REC.AllowDBNull = False + Me.columnDELETE_REC.DefaultValue = CType(False, Boolean) + Me.columnADD_DOC.AllowDBNull = False + Me.columnADD_DOC.DefaultValue = CType(True, Boolean) + Me.columnVIEW_DOC.AllowDBNull = False + Me.columnVIEW_DOC.DefaultValue = CType(True, Boolean) + Me.columnDELETE_DOC.AllowDBNull = False + Me.columnDELETE_DOC.DefaultValue = CType(False, Boolean) Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 End Sub _ - Public Function NewTBPMO_WD_IMPORT_PROFILE_IDXRow() As TBPMO_WD_IMPORT_PROFILE_IDXRow - Return CType(Me.NewRow,TBPMO_WD_IMPORT_PROFILE_IDXRow) + Public Function NewTBPMO_RIGHT_GROUPRow() As TBPMO_RIGHT_GROUPRow + Return CType(Me.NewRow,TBPMO_RIGHT_GROUPRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New TBPMO_WD_IMPORT_PROFILE_IDXRow(builder) + Return New TBPMO_RIGHT_GROUPRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(TBPMO_WD_IMPORT_PROFILE_IDXRow) + Return GetType(TBPMO_RIGHT_GROUPRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.TBPMO_WD_IMPORT_PROFILE_IDXRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_WD_IMPORT_PROFILE_IDXRowChanged(Me, New TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILE_IDXRow), e.Action)) + If (Not (Me.TBPMO_RIGHT_GROUPRowChangedEvent) Is Nothing) Then + RaiseEvent TBPMO_RIGHT_GROUPRowChanged(Me, New TBPMO_RIGHT_GROUPRowChangeEvent(CType(e.Row,TBPMO_RIGHT_GROUPRow), e.Action)) End If End Sub @@ -20140,8 +19831,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.TBPMO_WD_IMPORT_PROFILE_IDXRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_WD_IMPORT_PROFILE_IDXRowChanging(Me, New TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILE_IDXRow), e.Action)) + If (Not (Me.TBPMO_RIGHT_GROUPRowChangingEvent) Is Nothing) Then + RaiseEvent TBPMO_RIGHT_GROUPRowChanging(Me, New TBPMO_RIGHT_GROUPRowChangeEvent(CType(e.Row,TBPMO_RIGHT_GROUPRow), e.Action)) End If End Sub @@ -20149,8 +19840,8 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.TBPMO_WD_IMPORT_PROFILE_IDXRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_WD_IMPORT_PROFILE_IDXRowDeleted(Me, New TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILE_IDXRow), e.Action)) + If (Not (Me.TBPMO_RIGHT_GROUPRowDeletedEvent) Is Nothing) Then + RaiseEvent TBPMO_RIGHT_GROUPRowDeleted(Me, New TBPMO_RIGHT_GROUPRowChangeEvent(CType(e.Row,TBPMO_RIGHT_GROUPRow), e.Action)) End If End Sub @@ -20158,14 +19849,14 @@ Partial Public Class DD_DMSDataSet Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.TBPMO_WD_IMPORT_PROFILE_IDXRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_WD_IMPORT_PROFILE_IDXRowDeleting(Me, New TBPMO_WD_IMPORT_PROFILE_IDXRowChangeEvent(CType(e.Row,TBPMO_WD_IMPORT_PROFILE_IDXRow), e.Action)) + If (Not (Me.TBPMO_RIGHT_GROUPRowDeletingEvent) Is Nothing) Then + RaiseEvent TBPMO_RIGHT_GROUPRowDeleting(Me, New TBPMO_RIGHT_GROUPRowChangeEvent(CType(e.Row,TBPMO_RIGHT_GROUPRow), e.Action)) End If End Sub _ - Public Sub RemoveTBPMO_WD_IMPORT_PROFILE_IDXRow(ByVal row As TBPMO_WD_IMPORT_PROFILE_IDXRow) + Public Sub RemoveTBPMO_RIGHT_GROUPRow(ByVal row As TBPMO_RIGHT_GROUPRow) Me.Rows.Remove(row) End Sub @@ -20192,7 +19883,7 @@ Partial Public Class DD_DMSDataSet 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_IMPORT_PROFILE_IDXDataTable" + attribute2.FixedValue = "TBPMO_RIGHT_GROUPDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -20457,16 +20148,6 @@ Partial Public Class DD_DMSDataSet End If End Function - _ - Public Function GetTBPMO_WORKFLOW_FORMRows() As TBPMO_WORKFLOW_FORMRow() - If (Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_FORM_FV_ID") Is Nothing) Then - Return New TBPMO_WORKFLOW_FORMRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_FORM_FV_ID")),TBPMO_WORKFLOW_FORMRow()) - End If - End Function - _ Public Function GetTBPMO_FORM_CONSTRUCTOR_DETAILRows() As TBPMO_FORM_CONSTRUCTOR_DETAILRow() @@ -20486,6 +20167,16 @@ Partial Public Class DD_DMSDataSet Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_TEMPLATE_ENTITY_ENTITY_ID")),TBPMO_TEMPLATE_ENTITYRow()) End If End Function + + _ + Public Function GetTBPMO_RIGHT_GROUPRows() As TBPMO_RIGHT_GROUPRow() + If (Me.Table.ChildRelations("FK_TBPMO_RIGHT_GROUP_ENTITY_ID") Is Nothing) Then + Return New TBPMO_RIGHT_GROUPRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_RIGHT_GROUP_ENTITY_ID")),TBPMO_RIGHT_GROUPRow()) + End If + End Function End Class ''' @@ -21504,16 +21195,6 @@ Partial Public Class DD_DMSDataSet Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_RECORD.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ - Public Function GetVWPMO_WF_USER_ACTIVERows() As VWPMO_WF_USER_ACTIVERow() - If (Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID") Is Nothing) Then - Return New VWPMO_WF_USER_ACTIVERow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID")),VWPMO_WF_USER_ACTIVERow()) - End If - End Function End Class ''' @@ -22151,16 +21832,6 @@ Partial Public Class DD_DMSDataSet Public Sub SetCOLORNull() Me(Me.tableTBPMO_WORKFLOW_TASK_STATE.COLORColumn) = Global.System.Convert.DBNull End Sub - - _ - Public Function GetVWPMO_WF_USER_ACTIVERows() As VWPMO_WF_USER_ACTIVERow() - If (Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID") Is Nothing) Then - Return New VWPMO_WF_USER_ACTIVERow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID")),VWPMO_WF_USER_ACTIVERow()) - End If - End Function End Class ''' @@ -22383,461 +22054,6 @@ Partial Public Class DD_DMSDataSet Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_WORKFLOW.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ - Public Function GetTBPMO_WORKFLOW_FORMRows() As TBPMO_WORKFLOW_FORMRow() - If (Me.Table.ChildRelations("FK_TTBPMO_WORKFLOW_FORM_WF_ID") Is Nothing) Then - Return New TBPMO_WORKFLOW_FORMRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TTBPMO_WORKFLOW_FORM_WF_ID")),TBPMO_WORKFLOW_FORMRow()) - End If - End Function - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class TBPMO_WORKFLOW_FORMRow - Inherits Global.System.Data.DataRow - - Private tableTBPMO_WORKFLOW_FORM As TBPMO_WORKFLOW_FORMDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBPMO_WORKFLOW_FORM = CType(Me.Table,TBPMO_WORKFLOW_FORMDataTable) - End Sub - - _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.GUIDColumn),Integer) - End Get - Set - Me(Me.tableTBPMO_WORKFLOW_FORM.GUIDColumn) = value - End Set - End Property - - _ - Public Property FORM_ID() As Integer - Get - Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.FORM_IDColumn),Integer) - End Get - Set - Me(Me.tableTBPMO_WORKFLOW_FORM.FORM_IDColumn) = value - End Set - End Property - - _ - Public Property WF_ID() As Integer - Get - Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.WF_IDColumn),Integer) - End Get - Set - Me(Me.tableTBPMO_WORKFLOW_FORM.WF_IDColumn) = value - End Set - End Property - - _ - Public Property SEQUENCE() As Integer - Get - Try - Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.SEQUENCEColumn),Integer) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEQUENCE in Tabelle TBPMO_WORKFLOW_FORM ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPMO_WORKFLOW_FORM.SEQUENCEColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHO() As String - Get - Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHOColumn),String) - End Get - Set - Me(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHOColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.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_WORKFLOW_FORM ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.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_WORKFLOW_FORM ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBPMO_WORKFLOW_FORM.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_WORKFLOW_FORM ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property TBPMO_FORMRow() As TBPMO_FORMRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_FORM_FV_ID")),TBPMO_FORMRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_FORM_FV_ID")) - End Set - End Property - - _ - Public Property TBPMO_WORKFLOWRow() As TBPMO_WORKFLOWRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TTBPMO_WORKFLOW_FORM_WF_ID")),TBPMO_WORKFLOWRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TTBPMO_WORKFLOW_FORM_WF_ID")) - End Set - End Property - - _ - Public Function IsSEQUENCENull() As Boolean - Return Me.IsNull(Me.tableTBPMO_WORKFLOW_FORM.SEQUENCEColumn) - End Function - - _ - Public Sub SetSEQUENCENull() - Me(Me.tableTBPMO_WORKFLOW_FORM.SEQUENCEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBPMO_WORKFLOW_FORM.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPMO_WORKFLOW_FORM.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - End Class - - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class VWPMO_WF_USER_ACTIVERow - Inherits Global.System.Data.DataRow - - Private tableVWPMO_WF_USER_ACTIVE As VWPMO_WF_USER_ACTIVEDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableVWPMO_WF_USER_ACTIVE = CType(Me.Table,VWPMO_WF_USER_ACTIVEDataTable) - End Sub - - _ - Public Property WF_TASK_ID() As Integer - Get - Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.WF_TASK_IDColumn),Integer) - End Get - Set - Me(Me.tableVWPMO_WF_USER_ACTIVE.WF_TASK_IDColumn) = value - End Set - End Property - - _ - Public Property TITLE() As String - Get - Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.TITLEColumn),String) - End Get - Set - Me(Me.tableVWPMO_WF_USER_ACTIVE.TITLEColumn) = value - End Set - End Property - - _ - Public Property RECORD_ID() As Integer - Get - Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.RECORD_IDColumn),Integer) - End Get - Set - Me(Me.tableVWPMO_WF_USER_ACTIVE.RECORD_IDColumn) = value - End Set - End Property - - _ - Public Property STATE_ID() As Integer - Get - Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.STATE_IDColumn),Integer) - End Get - Set - Me(Me.tableVWPMO_WF_USER_ACTIVE.STATE_IDColumn) = value - End Set - End Property - - _ - Public Property COMMENT() As String - Get - Try - Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.COMMENTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWPMO_WF_USER_ACTIVE.COMMENTColumn) = value - End Set - End Property - - _ - Public Property DUE_DATE() As Date - Get - Try - Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.DUE_DATEColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DUE_DATE in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWPMO_WF_USER_ACTIVE.DUE_DATEColumn) = value - End Set - End Property - - _ - Public Property USERNAME() As String - Get - Try - Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.USERNAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWPMO_WF_USER_ACTIVE.USERNAMEColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.ADDED_WHENColumn),Date) - End Get - Set - Me(Me.tableVWPMO_WF_USER_ACTIVE.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property TASK_DATE() As Date - Get - Try - Return CType(Me(Me.tableVWPMO_WF_USER_ACTIVE.TASK_DATEColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TASK_DATE in Tabelle VWPMO_WF_USER_ACTIVE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWPMO_WF_USER_ACTIVE.TASK_DATEColumn) = value - End Set - End Property - - _ - Public Property TBPMO_RECORDRow() As TBPMO_RECORDRow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID")),TBPMO_RECORDRow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_RECORD_ID")) - End Set - End Property - - _ - Public Property TBPMO_WORKFLOW_TASK_STATERow() As TBPMO_WORKFLOW_TASK_STATERow - Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID")),TBPMO_WORKFLOW_TASK_STATERow) - End Get - Set - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_WORKFLOW_TASK_STATE_ID")) - End Set - End Property - - _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.COMMENTColumn) - End Function - - _ - Public Sub SetCOMMENTNull() - Me(Me.tableVWPMO_WF_USER_ACTIVE.COMMENTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsDUE_DATENull() As Boolean - Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.DUE_DATEColumn) - End Function - - _ - Public Sub SetDUE_DATENull() - Me(Me.tableVWPMO_WF_USER_ACTIVE.DUE_DATEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsUSERNAMENull() As Boolean - Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.USERNAMEColumn) - End Function - - _ - Public Sub SetUSERNAMENull() - Me(Me.tableVWPMO_WF_USER_ACTIVE.USERNAMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableVWPMO_WF_USER_ACTIVE.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsTASK_DATENull() As Boolean - Return Me.IsNull(Me.tableVWPMO_WF_USER_ACTIVE.TASK_DATEColumn) - End Function - - _ - Public Sub SetTASK_DATENull() - Me(Me.tableVWPMO_WF_USER_ACTIVE.TASK_DATEColumn) = Global.System.Convert.DBNull - End Sub End Class ''' @@ -25168,6 +24384,16 @@ Partial Public Class DD_DMSDataSet Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBDD_GROUPS_USER_GROUP_ID")),TBDD_GROUPS_USERRow()) End If End Function + + _ + Public Function GetTBPMO_RIGHT_GROUPRows() As TBPMO_RIGHT_GROUPRow() + If (Me.Table.ChildRelations("FK_TBPMO_RIGHT_GROUP_GROUP_ID") Is Nothing) Then + Return New TBPMO_RIGHT_GROUPRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_RIGHT_GROUP_GROUP_ID")),TBPMO_RIGHT_GROUPRow()) + End If + End Function End Class ''' @@ -27000,315 +26226,6 @@ Partial Public Class DD_DMSDataSet End Sub End Class - ''' - '''Represents strongly named DataRow class. - ''' - Partial Public Class VWPMO_WF_ACTIVERow - Inherits Global.System.Data.DataRow - - Private tableVWPMO_WF_ACTIVE As VWPMO_WF_ACTIVEDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableVWPMO_WF_ACTIVE = CType(Me.Table,VWPMO_WF_ACTIVEDataTable) - End Sub - - _ - Public Property WF_TASK_ID() As Integer - Get - Return CType(Me(Me.tableVWPMO_WF_ACTIVE.WF_TASK_IDColumn),Integer) - End Get - Set - Me(Me.tableVWPMO_WF_ACTIVE.WF_TASK_IDColumn) = value - End Set - End Property - - _ - Public Property TITLE() As String - Get - Return CType(Me(Me.tableVWPMO_WF_ACTIVE.TITLEColumn),String) - End Get - Set - Me(Me.tableVWPMO_WF_ACTIVE.TITLEColumn) = value - End Set - End Property - - _ - Public Property RECORD_ID() As Integer - Get - Return CType(Me(Me.tableVWPMO_WF_ACTIVE.RECORD_IDColumn),Integer) - End Get - Set - Me(Me.tableVWPMO_WF_ACTIVE.RECORD_IDColumn) = value - End Set - End Property - - _ - Public Property STATE_ID() As Integer - Get - Return CType(Me(Me.tableVWPMO_WF_ACTIVE.STATE_IDColumn),Integer) - End Get - Set - Me(Me.tableVWPMO_WF_ACTIVE.STATE_IDColumn) = value - End Set - End Property - - _ - Public Property STATE_DESC() As String - Get - Return CType(Me(Me.tableVWPMO_WF_ACTIVE.STATE_DESCColumn),String) - End Get - Set - Me(Me.tableVWPMO_WF_ACTIVE.STATE_DESCColumn) = value - End Set - End Property - - _ - Public Property COLOR() As String - Get - Try - Return CType(Me(Me.tableVWPMO_WF_ACTIVE.COLORColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COLOR in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWPMO_WF_ACTIVE.COLORColumn) = value - End Set - End Property - - _ - Public Property COMMENT() As String - Get - Try - Return CType(Me(Me.tableVWPMO_WF_ACTIVE.COMMENTColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWPMO_WF_ACTIVE.COMMENTColumn) = value - End Set - End Property - - _ - Public Property DUE_DATE() As Date - Get - Try - Return CType(Me(Me.tableVWPMO_WF_ACTIVE.DUE_DATEColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DUE_DATE in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWPMO_WF_ACTIVE.DUE_DATEColumn) = value - End Set - End Property - - _ - Public Property USERNAME() As String - Get - Try - Return CType(Me(Me.tableVWPMO_WF_ACTIVE.USERNAMEColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWPMO_WF_ACTIVE.USERNAMEColumn) = value - End Set - End Property - - _ - Public Property ADDED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableVWPMO_WF_ACTIVE.ADDED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWPMO_WF_ACTIVE.ADDED_WHENColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHO() As String - Get - Try - Return CType(Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHOColumn),String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHOColumn) = value - End Set - End Property - - _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHENColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property TASK_DATE() As Date - Get - Try - Return CType(Me(Me.tableVWPMO_WF_ACTIVE.TASK_DATEColumn),Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TASK_DATE in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) - End Try - End Get - Set - Me(Me.tableVWPMO_WF_ACTIVE.TASK_DATEColumn) = value - End Set - End Property - - _ - Public Property WF_ENT_GUID() As Integer - Get - Return CType(Me(Me.tableVWPMO_WF_ACTIVE.WF_ENT_GUIDColumn),Integer) - End Get - Set - Me(Me.tableVWPMO_WF_ACTIVE.WF_ENT_GUIDColumn) = value - End Set - End Property - - _ - Public Property WF_ID() As Integer - Get - Return CType(Me(Me.tableVWPMO_WF_ACTIVE.WF_IDColumn),Integer) - End Get - Set - Me(Me.tableVWPMO_WF_ACTIVE.WF_IDColumn) = value - End Set - End Property - - _ - Public Function IsCOLORNull() As Boolean - Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.COLORColumn) - End Function - - _ - Public Sub SetCOLORNull() - Me(Me.tableVWPMO_WF_ACTIVE.COLORColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCOMMENTNull() As Boolean - Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.COMMENTColumn) - End Function - - _ - Public Sub SetCOMMENTNull() - Me(Me.tableVWPMO_WF_ACTIVE.COMMENTColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsDUE_DATENull() As Boolean - Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.DUE_DATEColumn) - End Function - - _ - Public Sub SetDUE_DATENull() - Me(Me.tableVWPMO_WF_ACTIVE.DUE_DATEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsUSERNAMENull() As Boolean - Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.USERNAMEColumn) - End Function - - _ - Public Sub SetUSERNAMENull() - Me(Me.tableVWPMO_WF_ACTIVE.USERNAMEColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.ADDED_WHENColumn) - End Function - - _ - Public Sub SetADDED_WHENNull() - Me(Me.tableVWPMO_WF_ACTIVE.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHOColumn) - End Function - - _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHOColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHENColumn) - End Function - - _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHENColumn) = Global.System.Convert.DBNull - End Sub - - _ - Public Function IsTASK_DATENull() As Boolean - Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.TASK_DATEColumn) - End Function - - _ - Public Sub SetTASK_DATENull() - Me(Me.tableVWPMO_WF_ACTIVE.TASK_DATEColumn) = Global.System.Convert.DBNull - End Sub - End Class - ''' '''Represents strongly named DataRow class. ''' @@ -30349,91 +29266,681 @@ Partial Public Class DD_DMSDataSet End Class ''' - '''Row event argument class + '''Represents strongly named DataRow class. ''' - _ - Public Class TBPMO_FORMRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As TBPMO_FORMRow + Partial Public Class VWPMO_WF_ACTIVERow + Inherits Global.System.Data.DataRow - Private eventAction As Global.System.Data.DataRowAction + Private tableVWPMO_WF_ACTIVE As VWPMO_WF_ACTIVEDataTable _ - Public Sub New(ByVal row As TBPMO_FORMRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWPMO_WF_ACTIVE = CType(Me.Table,VWPMO_WF_ACTIVEDataTable) End Sub _ - Public ReadOnly Property Row() As TBPMO_FORMRow + Public Property WF_TASK_ID() As Integer Get - Return Me.eventRow + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.WF_TASK_IDColumn),Integer) End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.WF_TASK_IDColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property WF_ID() As Integer Get - Return Me.eventAction + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.WF_IDColumn),Integer) End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.WF_IDColumn) = value + End Set + End Property + + _ + Public Property WF_TITLE() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.WF_TITLEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WF_TITLE in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.WF_TITLEColumn) = value + End Set + End Property + + _ + Public Property RECORD_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.RECORD_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.RECORD_IDColumn) = value + End Set + End Property + + _ + Public Property STATE_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.STATE_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.STATE_IDColumn) = value + End Set + End Property + + _ + Public Property STATE_TITLE() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.STATE_TITLEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte STATE_TITLE in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.STATE_TITLEColumn) = value + End Set + End Property + + _ + Public Property FORM_VIEW_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.FORM_VIEW_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.FORM_VIEW_IDColumn) = value + End Set + End Property + + _ + Public Property ENTITY_ID() As Integer + Get + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.ENTITY_IDColumn),Integer) + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.ENTITY_IDColumn) = value + End Set End Property + + _ + Public Property ENTITY_TITLE() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.ENTITY_TITLEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ENTITY_TITLE in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.ENTITY_TITLEColumn) = value + End Set + End Property + + _ + Public Property COMMENT() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.COMMENTColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COMMENT in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.COMMENTColumn) = value + End Set + End Property + + _ + Public Property DUE_DATE() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.DUE_DATEColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DUE_DATE in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.DUE_DATEColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TASK_DATE() As Date + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.TASK_DATEColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte TASK_DATE in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.TASK_DATEColumn) = value + End Set + End Property + + _ + Public Property FINAL() As Boolean + Get + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.FINALColumn),Boolean) + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.FINALColumn) = value + End Set + End Property + + _ + Public Property COLOR() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.COLORColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte COLOR in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.COLORColumn) = value + End Set + End Property + + _ + Public Property USERNAME() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.USERNAMEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.USERNAMEColumn) = value + End Set + End Property + + _ + Public Property RECORD_DESCRIPTION() As String + Get + Try + Return CType(Me(Me.tableVWPMO_WF_ACTIVE.RECORD_DESCRIPTIONColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte RECORD_DESCRIPTION in Tabelle VWPMO_WF_ACTIVE ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableVWPMO_WF_ACTIVE.RECORD_DESCRIPTIONColumn) = value + End Set + End Property + + _ + Public Function IsWF_TITLENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.WF_TITLEColumn) + End Function + + _ + Public Sub SetWF_TITLENull() + Me(Me.tableVWPMO_WF_ACTIVE.WF_TITLEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSTATE_TITLENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.STATE_TITLEColumn) + End Function + + _ + Public Sub SetSTATE_TITLENull() + Me(Me.tableVWPMO_WF_ACTIVE.STATE_TITLEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsENTITY_TITLENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.ENTITY_TITLEColumn) + End Function + + _ + Public Sub SetENTITY_TITLENull() + Me(Me.tableVWPMO_WF_ACTIVE.ENTITY_TITLEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOMMENTNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.COMMENTColumn) + End Function + + _ + Public Sub SetCOMMENTNull() + Me(Me.tableVWPMO_WF_ACTIVE.COMMENTColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsDUE_DATENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.DUE_DATEColumn) + End Function + + _ + Public Sub SetDUE_DATENull() + Me(Me.tableVWPMO_WF_ACTIVE.DUE_DATEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableVWPMO_WF_ACTIVE.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableVWPMO_WF_ACTIVE.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsTASK_DATENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.TASK_DATEColumn) + End Function + + _ + Public Sub SetTASK_DATENull() + Me(Me.tableVWPMO_WF_ACTIVE.TASK_DATEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCOLORNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.COLORColumn) + End Function + + _ + Public Sub SetCOLORNull() + Me(Me.tableVWPMO_WF_ACTIVE.COLORColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.USERNAMEColumn) + End Function + + _ + Public Sub SetUSERNAMENull() + Me(Me.tableVWPMO_WF_ACTIVE.USERNAMEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsRECORD_DESCRIPTIONNull() As Boolean + Return Me.IsNull(Me.tableVWPMO_WF_ACTIVE.RECORD_DESCRIPTIONColumn) + End Function + + _ + Public Sub SetRECORD_DESCRIPTIONNull() + Me(Me.tableVWPMO_WF_ACTIVE.RECORD_DESCRIPTIONColumn) = Global.System.Convert.DBNull + End Sub End Class ''' - '''Row event argument class + '''Represents strongly named DataRow class. ''' - _ - Public Class VWPMO_CONTROL_SCREENRowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As VWPMO_CONTROL_SCREENRow + Partial Public Class TBPMO_RIGHT_GROUPRow + Inherits Global.System.Data.DataRow - Private eventAction As Global.System.Data.DataRowAction + Private tableTBPMO_RIGHT_GROUP As TBPMO_RIGHT_GROUPDataTable _ - Public Sub New(ByVal row As VWPMO_CONTROL_SCREENRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_RIGHT_GROUP = CType(Me.Table,TBPMO_RIGHT_GROUPDataTable) End Sub _ - Public ReadOnly Property Row() As VWPMO_CONTROL_SCREENRow + Public Property GUID() As Integer Get - Return Me.eventRow + Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.GUIDColumn),Integer) End Get + Set + Me(Me.tableTBPMO_RIGHT_GROUP.GUIDColumn) = value + End Set End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Public Property ENTITY_ID() As Integer Get - Return Me.eventAction + Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.ENTITY_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_RIGHT_GROUP.ENTITY_IDColumn) = value + End Set + End Property + + _ + Public Property GROUP_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.GROUP_IDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_RIGHT_GROUP.GROUP_IDColumn) = value + End Set + End Property + + _ + Public Property EDIT_REC() As Boolean + Get + Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.EDIT_RECColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_RIGHT_GROUP.EDIT_RECColumn) = value + End Set + End Property + + _ + Public Property ADD_REC() As Boolean + Get + Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.ADD_RECColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_RIGHT_GROUP.ADD_RECColumn) = value + End Set + End Property + + _ + Public Property DELETE_REC() As Boolean + Get + Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.DELETE_RECColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_RIGHT_GROUP.DELETE_RECColumn) = value + End Set + End Property + + _ + Public Property ADD_DOC() As Boolean + Get + Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.ADD_DOCColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_RIGHT_GROUP.ADD_DOCColumn) = value + End Set + End Property + + _ + Public Property VIEW_DOC() As Boolean + Get + Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.VIEW_DOCColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_RIGHT_GROUP.VIEW_DOCColumn) = value + End Set + End Property + + _ + Public Property DELETE_DOC() As Boolean + Get + Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.DELETE_DOCColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_RIGHT_GROUP.DELETE_DOCColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.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_RIGHT_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_RIGHT_GROUP.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.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_RIGHT_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_RIGHT_GROUP.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.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_RIGHT_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_RIGHT_GROUP.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_RIGHT_GROUP.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_RIGHT_GROUP ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_RIGHT_GROUP.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property TBPMO_FORMRow() As TBPMO_FORMRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_RIGHT_GROUP_ENTITY_ID")),TBPMO_FORMRow) + End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_RIGHT_GROUP_ENTITY_ID")) + End Set + End Property + + _ + Public Property TBDD_USER_GROUPSRow() As TBDD_USER_GROUPSRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_RIGHT_GROUP_GROUP_ID")),TBDD_USER_GROUPSRow) End Get + Set + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_RIGHT_GROUP_GROUP_ID")) + End Set End Property + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RIGHT_GROUP.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBPMO_RIGHT_GROUP.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RIGHT_GROUP.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_RIGHT_GROUP.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RIGHT_GROUP.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_RIGHT_GROUP.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_RIGHT_GROUP.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_RIGHT_GROUP.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub End Class ''' '''Row event argument class ''' _ - Public Class TBPMO_FORM_VIEWRowChangeEvent + Public Class TBPMO_FORMRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBPMO_FORM_VIEWRow + Private eventRow As TBPMO_FORMRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBPMO_FORM_VIEWRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBPMO_FORMRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -30441,7 +29948,7 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property Row() As TBPMO_FORM_VIEWRow + Public ReadOnly Property Row() As TBPMO_FORMRow Get Return Me.eventRow End Get @@ -30460,16 +29967,16 @@ Partial Public Class DD_DMSDataSet '''Row event argument class ''' _ - Public Class TBPMO_RECORDRowChangeEvent + Public Class VWPMO_CONTROL_SCREENRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBPMO_RECORDRow + Private eventRow As VWPMO_CONTROL_SCREENRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBPMO_RECORDRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As VWPMO_CONTROL_SCREENRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -30477,7 +29984,7 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property Row() As TBPMO_RECORDRow + Public ReadOnly Property Row() As VWPMO_CONTROL_SCREENRow Get Return Me.eventRow End Get @@ -30496,16 +30003,16 @@ Partial Public Class DD_DMSDataSet '''Row event argument class ''' _ - Public Class VWPMO_DOKUMENTTYPESRowChangeEvent + Public Class TBPMO_FORM_VIEWRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As VWPMO_DOKUMENTTYPESRow + Private eventRow As TBPMO_FORM_VIEWRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As VWPMO_DOKUMENTTYPESRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBPMO_FORM_VIEWRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -30513,7 +30020,7 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property Row() As VWPMO_DOKUMENTTYPESRow + Public ReadOnly Property Row() As TBPMO_FORM_VIEWRow Get Return Me.eventRow End Get @@ -30532,16 +30039,16 @@ Partial Public Class DD_DMSDataSet '''Row event argument class ''' _ - Public Class TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent + Public Class TBPMO_RECORDRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBPMO_WD_FVIEW_DT_INDEXRow + Private eventRow As TBPMO_RECORDRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBPMO_WD_FVIEW_DT_INDEXRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBPMO_RECORDRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -30549,7 +30056,7 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property Row() As TBPMO_WD_FVIEW_DT_INDEXRow + Public ReadOnly Property Row() As TBPMO_RECORDRow Get Return Me.eventRow End Get @@ -30568,16 +30075,16 @@ Partial Public Class DD_DMSDataSet '''Row event argument class ''' _ - Public Class TBPMO_WORKFLOW_TASKRowChangeEvent + Public Class VWPMO_DOKUMENTTYPESRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBPMO_WORKFLOW_TASKRow + Private eventRow As VWPMO_DOKUMENTTYPESRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBPMO_WORKFLOW_TASKRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As VWPMO_DOKUMENTTYPESRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -30585,7 +30092,7 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property Row() As TBPMO_WORKFLOW_TASKRow + Public ReadOnly Property Row() As VWPMO_DOKUMENTTYPESRow Get Return Me.eventRow End Get @@ -30604,16 +30111,16 @@ Partial Public Class DD_DMSDataSet '''Row event argument class ''' _ - Public Class TBPMO_WORKFLOW_TASK_STATERowChangeEvent + Public Class TBPMO_WD_FVIEW_DT_INDEXRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBPMO_WORKFLOW_TASK_STATERow + Private eventRow As TBPMO_WD_FVIEW_DT_INDEXRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBPMO_WORKFLOW_TASK_STATERow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBPMO_WD_FVIEW_DT_INDEXRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -30621,7 +30128,7 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property Row() As TBPMO_WORKFLOW_TASK_STATERow + Public ReadOnly Property Row() As TBPMO_WD_FVIEW_DT_INDEXRow Get Return Me.eventRow End Get @@ -30640,16 +30147,16 @@ Partial Public Class DD_DMSDataSet '''Row event argument class ''' _ - Public Class VWPMO_GUI_ENTITYRowChangeEvent + Public Class TBPMO_WORKFLOW_TASKRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As VWPMO_GUI_ENTITYRow + Private eventRow As TBPMO_WORKFLOW_TASKRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As VWPMO_GUI_ENTITYRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBPMO_WORKFLOW_TASKRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -30657,7 +30164,7 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property Row() As VWPMO_GUI_ENTITYRow + Public ReadOnly Property Row() As TBPMO_WORKFLOW_TASKRow Get Return Me.eventRow End Get @@ -30676,16 +30183,16 @@ Partial Public Class DD_DMSDataSet '''Row event argument class ''' _ - Public Class TBPMO_WORKFLOWRowChangeEvent + Public Class TBPMO_WORKFLOW_TASK_STATERowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBPMO_WORKFLOWRow + Private eventRow As TBPMO_WORKFLOW_TASK_STATERow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBPMO_WORKFLOWRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBPMO_WORKFLOW_TASK_STATERow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -30693,7 +30200,7 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property Row() As TBPMO_WORKFLOWRow + Public ReadOnly Property Row() As TBPMO_WORKFLOW_TASK_STATERow Get Return Me.eventRow End Get @@ -30712,16 +30219,16 @@ Partial Public Class DD_DMSDataSet '''Row event argument class ''' _ - Public Class TBPMO_WORKFLOW_FORMRowChangeEvent + Public Class VWPMO_GUI_ENTITYRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBPMO_WORKFLOW_FORMRow + Private eventRow As VWPMO_GUI_ENTITYRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBPMO_WORKFLOW_FORMRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As VWPMO_GUI_ENTITYRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -30729,7 +30236,7 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property Row() As TBPMO_WORKFLOW_FORMRow + Public ReadOnly Property Row() As VWPMO_GUI_ENTITYRow Get Return Me.eventRow End Get @@ -30748,16 +30255,16 @@ Partial Public Class DD_DMSDataSet '''Row event argument class ''' _ - Public Class VWPMO_WF_USER_ACTIVERowChangeEvent + Public Class TBPMO_WORKFLOWRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As VWPMO_WF_USER_ACTIVERow + Private eventRow As TBPMO_WORKFLOWRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As VWPMO_WF_USER_ACTIVERow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBPMO_WORKFLOWRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New Me.eventRow = row Me.eventAction = action @@ -30765,7 +30272,7 @@ Partial Public Class DD_DMSDataSet _ - Public ReadOnly Property Row() As VWPMO_WF_USER_ACTIVERow + Public ReadOnly Property Row() As TBPMO_WORKFLOWRow Get Return Me.eventRow End Get @@ -31464,42 +30971,6 @@ Partial Public Class DD_DMSDataSet End Property End Class - ''' - '''Row event argument class - ''' - _ - Public Class VWPMO_WF_ACTIVERowChangeEvent - Inherits Global.System.EventArgs - - Private eventRow As VWPMO_WF_ACTIVERow - - Private eventAction As Global.System.Data.DataRowAction - - _ - Public Sub New(ByVal row As VWPMO_WF_ACTIVERow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New - Me.eventRow = row - Me.eventAction = action - End Sub - - _ - Public ReadOnly Property Row() As VWPMO_WF_ACTIVERow - Get - Return Me.eventRow - End Get - End Property - - _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property - End Class - ''' '''Row event argument class ''' @@ -31967,6 +31438,78 @@ Partial Public Class DD_DMSDataSet End Get End Property End Class + + ''' + '''Row event argument class + ''' + _ + Public Class VWPMO_WF_ACTIVERowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As VWPMO_WF_ACTIVERow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As VWPMO_WF_ACTIVERow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As VWPMO_WF_ACTIVERow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_RIGHT_GROUPRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_RIGHT_GROUPRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBPMO_RIGHT_GROUPRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_RIGHT_GROUPRow + 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 @@ -34696,12 +34239,12 @@ Namespace DD_DMSDataSetTableAdapters Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection Me._commandCollection(1).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'WF_STATE_TITLE' + CONV"& _ - "ERT(VARCHAR(5), GUID), 1) AS ASSTATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, C"& _ - "HANGED_WHEN, COLOR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" LANGUAGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_W"& _ - "ORKFLOW_TASK_STATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT "& _ - " STATE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBPMO_WORKFLOW_E"& _ - "NTITY_STATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (WF_ID = @WF_ID) AND (E"& _ - "NTITY_ID = @ENT_ID)))" + "ERT(VARCHAR(5), GUID), 1) AS STATE_DESC, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHA"& _ + "NGED_WHEN, COLOR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" LANGUAGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WOR"& _ + "KFLOW_TASK_STATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT "& _ + " STATE_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBPMO_WORKFLOW_ENT"& _ + "ITY_STATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (WF_ID = @WF_ID) AND (ENT"& _ + "ITY_ID = @ENT_ID)))" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -35477,7 +35020,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_WORKFLOW_FORMTableAdapter + Partial Public Class VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -35594,43 +35137,247 @@ 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_WORKFLOW_FORM" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.DataSetTable = "VWPMO_WF_OVERVIEW_AUTHORITY" + tableMapping.ColumnMappings.Add("STATE", "STATE") + tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") + tableMapping.ColumnMappings.Add("Authority", "Authority") + tableMapping.ColumnMappings.Add("String", "String") tableMapping.ColumnMappings.Add("WF_ID", "WF_ID") - tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") + tableMapping.ColumnMappings.Add("COLOR", "COLOR") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") Me._adapter.TableMappings.Add(tableMapping) + 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 WF_ID, RECORD_ID, STATE, STATE_ID, Authority, String, COLOR, CHANGE"& _ + "D_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_WF_OVERVIEW_AUTHORITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE ("& _ + "RECORD_ID = @RECORDID)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORDID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable, ByVal RECORDID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORDID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal RECORDID As Integer) As DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORDID,Integer) + Dim dataTable As DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable = New DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBDD_DOKUMENTARTTableAdapter + Inherits Global.System.ComponentModel.Component + + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter + + Private _connection As Global.System.Data.SqlClient.SqlConnection + + Private _transaction As Global.System.Data.SqlClient.SqlTransaction + + Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand + + Private _clearBeforeFill As Boolean + + _ + Public Sub New() + MyBase.New + Me.ClearBeforeFill = true + End Sub + + _ + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter + Get + If (Me._adapter Is Nothing) Then + Me.InitAdapter + End If + Return Me._adapter + End Get + End Property + + _ + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection + Get + If (Me._connection Is Nothing) Then + Me.InitConnection + End If + Return Me._connection + End Get + Set + Me._connection = value + If (Not (Me.Adapter.InsertCommand) Is Nothing) Then + Me.Adapter.InsertCommand.Connection = value + End If + If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then + Me.Adapter.DeleteCommand.Connection = value + End If + If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then + Me.Adapter.UpdateCommand.Connection = value + End If + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + If (Not (Me.CommandCollection(i)) Is Nothing) Then + CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + End If + i = (i + 1) + Loop + End Set + End Property + + _ + Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction + Get + Return Me._transaction + End Get + Set + Me._transaction = value + Dim i As Integer = 0 + Do While (i < Me.CommandCollection.Length) + Me.CommandCollection(i).Transaction = Me._transaction + i = (i + 1) + Loop + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then + Me.Adapter.DeleteCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then + Me.Adapter.InsertCommand.Transaction = Me._transaction + End If + If ((Not (Me.Adapter) Is Nothing) _ + AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then + Me.Adapter.UpdateCommand.Transaction = Me._transaction + End If + End Set + End Property + + _ + Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() + Get + If (Me._commandCollection Is Nothing) Then + Me.InitCommandCollection + End If + Return Me._commandCollection + End Get + End Property + + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBDD_DOKUMENTART" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("EINGANGSART_ID", "EINGANGSART_ID") + tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME") + tableMapping.ColumnMappings.Add("ZIEL_PFAD", "ZIEL_PFAD") + tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") + tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") + tableMapping.ColumnMappings.Add("NAMENKONVENTION", "NAMENKONVENTION") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("OBJEKTTYP", "OBJEKTTYP") + 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_WORKFLOW_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_DOKUMENTART"&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_WORKFLOW_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORM_ID, WF_ID, SEQUEN"& _ - "CE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FORM_ID,@WF_ID,@SEQUENCE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT G"& _ - "UID, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN "& _ - "FROM TBPMO_WORKFLOW_FORM WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, EINGANGSART_"& _ + "ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, ERSTELLTWER, OBJEKTTYP)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ + " (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@ER"& _ + "STELLTWER,@OBJEKTTYP); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, Z"& _ + "IEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEAND"& _ + "ERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WF_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", 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_WORKFLOW_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FORM_ID = @FORM_ID, WF_ID = "& _ - "@WF_ID, SEQUENCE = @SEQUENCE, 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, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, "& _ - "CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WORKFLOW_FORM WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, EIN"& _ + "GANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BES"& _ + "CHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" GEANDERTWE"& _ + "R = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP"&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, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG,"& _ + " AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN F"& _ + "ROM TBDD_DOKUMENTART WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WF_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WF_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", 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 @@ -35645,23 +35392,39 @@ Namespace DD_DMSDataSetTableAdapters _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, FORM_ID, WF_ID, SEQUENCE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _ - " CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW_FORM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (FORM_ID = @FOR"& _ - "M_ID)" + Me._commandCollection(0).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'DOCTYPE_TITLE' + CONVE"& _ + "RT(VARCHAR(5), GUID), 1) AS BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BE"& _ + "SCHREIBUNG, AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVENTION, ERSTELLTWER, ERST"& _ + "ELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTAR"& _ + "T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY BEZEICHNUNG" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'DOCTYPE_TITLE' + CONVE"& _ + "RT(VARCHAR(5), GUID), 1) AS BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BE"& _ + "SCHREIBUNG, AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVENTION, ERSTELLTWER, ERST"& _ + "ELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTAR"& _ + "T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT DOKART_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBDD_DOKUMENTART_MODULE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WHERE (MODULE_ID = 0)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY BEZEICHNUNG" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_FORMDataTable, ByVal FORM_ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable, ByVal LANGUAGE As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORM_ID,Integer) + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) + End If If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -35673,10 +35436,48 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal FORM_ID As Integer) As DD_DMSDataSet.TBPMO_WORKFLOW_FORMDataTable + Public Overloads Overridable Function GetData(ByVal LANGUAGE As String) As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(FORM_ID,Integer) - Dim dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_FORMDataTable = New DD_DMSDataSet.TBPMO_WORKFLOW_FORMDataTable() + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) + End If + Dim dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable = New DD_DMSDataSet.TBDD_DOKUMENTARTDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function FillByPMO(ByVal dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable, ByVal LANGUAGE As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) + End If + 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 GetDataByPMO(ByVal LANGUAGE As String) As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) + End If + Dim dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable = New DD_DMSDataSet.TBDD_DOKUMENTARTDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -35684,7 +35485,7 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WORKFLOW_FORMDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -35692,7 +35493,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_WORKFLOW_FORM") + Return Me.Adapter.Update(dataSet, "TBDD_DOKUMENTART") End Function _ - Public Overloads Overridable Function Insert(ByVal FORM_ID As Integer, ByVal WF_ID As Integer, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(WF_ID,Integer) - If (SEQUENCE.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(2).Value = CType(SEQUENCE.Value,Integer) + Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal OBJEKTTYP As String) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Else - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + Me.Adapter.InsertCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) + If (KURZNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("KURZNAME") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(KURZNAME,String) + End If + If (ZIEL_PFAD Is Nothing) Then + Throw New Global.System.ArgumentNullException("ZIEL_PFAD") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(AKTIV,Boolean) + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ERSTELLTWER,String) + End If + If (OBJEKTTYP Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(OBJEKTTYP,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) _ @@ -35766,21 +35587,41 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal FORM_ID As Integer, ByVal WF_ID As Integer, ByVal SEQUENCE As Global.System.Nullable(Of Integer), ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(WF_ID,Integer) - If (SEQUENCE.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SEQUENCE.Value,Integer) + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal GEANDERTWER As String, ByVal OBJEKTTYP As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) + If (KURZNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("KURZNAME") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KURZNAME,String) End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GUID,Integer) + If (ZIEL_PFAD Is Nothing) Then + Throw New Global.System.ArgumentNullException("ZIEL_PFAD") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) + End If + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(AKTIV,Boolean) + If (GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GEANDERTWER,String) + End If + If (OBJEKTTYP Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(OBJEKTTYP,String) + End If + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(9).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 @@ -35806,7 +35647,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class VWPMO_WF_USER_ACTIVETableAdapter + Partial Public Class TBDD_EINGANGSARTENTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -35923,19 +35764,61 @@ 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 = "VWPMO_WF_USER_ACTIVE" - tableMapping.ColumnMappings.Add("WF_TASK_ID", "WF_TASK_ID") - tableMapping.ColumnMappings.Add("TITLE", "TITLE") - tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") - tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("DUE_DATE", "DUE_DATE") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("TASK_DATE", "TASK_DATE") + tableMapping.DataSetTable = "TBDD_EINGANGSARTEN" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_EINGANGSARTEN"&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.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_EINGANGSARTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, BESCHREIBU"& _ + "NG, ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@BESCHREIBUNG,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ + "ECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEA"& _ + "ENDERTWANN FROM TBDD_EINGANGSARTEN WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_EINGANGSARTEN] SET [BEZEICHNUNG] = @BEZEICHNUNG, [BESCHREIBUNG] = @B"& _ + "ESCHREIBUNG, [ERSTELLTWER] = @ERSTELLTWER, [ERSTELLTWANN] = @ERSTELLTWANN, [GEAN"& _ + "DERTWER] = @GEANDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUID] = @Orig"& _ + "inal_GUID) AND ([BEZEICHNUNG] = @Original_BEZEICHNUNG) AND ((@IsNull_BESCHREIBUN"& _ + "G = 1 AND [BESCHREIBUNG] IS NULL) OR ([BESCHREIBUNG] = @Original_BESCHREIBUNG)) "& _ + "AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ([ERSTELLTWANN] = @Original_ERST"& _ + "ELLTWANN) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEANDERT"& _ + "WER] = @Original_GEANDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWAN"& _ + "N] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZE"& _ + "ICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FRO"& _ + "M TBDD_EINGANGSARTEN WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BESCHREIBUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEANDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + 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 T2.GUID AS WF_TASK_ID, T3.TITLE, T2.RECORD_ID, T2.STATE_ID, T2.COMM"& _ - "ENT, T2.DUE_DATE, @USER AS USERNAME, T2.ADDED_WHEN, T2.CHANGED_WHO, T2.CHANGED_W"& _ - "HEN, T2.TASK_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLOW_TASK AS T2 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBPMO_WORKFLOW AS T3 ON T2.WF_ID = T3.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T2.G"& _ - "UID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FROM VWPMO_WF_USER_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WHERE (WF_TASK_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " (SELECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FROM VWPMO_WF_USER_EXCLUSIV AS VWPM"& _ - "O_WF_USER_EXCLUSIV_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WHERE (UPPER(USERNAME) = UPPER(@USER)))))) AND (T2.STATE_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ - " (SELECT WORKFLOW_FINAL_STATE1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FROM TBPMO_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WHERE (GUID = 1))) AND (T2.ACTIVE = 1)" + Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDER"& _ + "TWER, GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EINGANGSARTEN" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT T2.GUID AS WF_TASK_ID, T3.TITLE, T2.RECORD_ID, T2.STATE_ID, T2.COMM"& _ - "ENT, T2.DUE_DATE, @USER_NAME AS USERNAME, T2.ADDED_WHEN, T2.CHANGED_WHO, T2.CHAN"& _ - "GED_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" T2.TASK_DATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WORKFLO"& _ - "W_TASK AS T2 INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_WORKFLOW AS T3 ON T2.WF_"& _ - "ID = T3.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T2.GUID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT"& _ - " WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM VWPMO_WF_USER"& _ - "_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (WF_TASK_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " (SELECT WF_TASK_I"& _ - "D"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM "& _ - " VWPMO_WF_USER_EXCLUSIV AS VWPMO_WF_USER_EXCLUSIV_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WHERE (UPPER(USERNAME) = UPPER(@USER"& _ - "_NAME)))))) AND (T2.STATE_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT "& _ - " WORKFLOW_FINAL_STATE1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBPMO_KON"& _ - "FIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE (GUID = 1))) AND (T2.ACT"& _ - "IVE = 1) AND (T2.RECORD_ID = @RECORD)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_NAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function FillByUser(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable, ByVal USER As String) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (USER Is Nothing) Then - Throw New Global.System.ArgumentNullException("USER") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) - End If If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -36011,52 +35856,191 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal USER As String) As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (USER Is Nothing) Then - Throw New Global.System.ArgumentNullException("USER") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) - End If - Dim dataTable As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable = New DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable() + Dim dataTable As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable = New DD_DMSDataSet.TBDD_EINGANGSARTENDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable) 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, "TBDD_EINGANGSARTEN") + 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 FillByRecordID(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable, ByVal USER_NAME As String, ByVal RECORD As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(1) - If (USER_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USER_NAME") + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Byte) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) + 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 BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_NAME,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(RECORD,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ERSTELLTWER,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 GetDataByRecordID(ByVal USER_NAME As String, ByVal RECORD As Integer) As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(1) - If (USER_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USER_NAME") + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_GUID As Byte, ByVal Original_BEZEICHNUNG As String, ByVal Original_BESCHREIBUNG As String, ByVal Original_ERSTELLTWER As String, ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal Original_GEANDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal GUID As Byte) As Integer + If (BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("BEZEICHNUNG") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER_NAME,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(RECORD,Integer) - Dim dataTable As DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable = New DD_DMSDataSet.VWPMO_WF_USER_ACTIVEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable + If (BESCHREIBUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) + End If + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ERSTELLTWER,String) + End If + If (ERSTELLTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ERSTELLTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GEANDERTWER,String) + End If + If (GEAENDERTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GEAENDERTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Byte) + If (Original_BEZEICHNUNG Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_BEZEICHNUNG") + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_BEZEICHNUNG,String) + End If + If (Original_BESCHREIBUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_BESCHREIBUNG,String) + End If + If (Original_ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ERSTELLTWER") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ERSTELLTWER,String) + End If + If (Original_ERSTELLTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ERSTELLTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + If (Original_GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GEANDERTWER,String) + End If + If (Original_GEAENDERTWANN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GEAENDERTWANN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Byte) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_GUID As Byte, ByVal Original_BEZEICHNUNG As String, ByVal Original_BESCHREIBUNG As String, ByVal Original_ERSTELLTWER As String, ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal Original_GEANDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, Original_GUID, Original_BEZEICHNUNG, Original_BESCHREIBUNG, Original_ERSTELLTWER, Original_ERSTELLTWANN, Original_GEANDERTWER, Original_GEAENDERTWANN, Original_GUID) End Function End Class @@ -36069,7 +36053,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class VWPMO_WF_OVERVIEW_AUTHORITYTableAdapter + Partial Public Class TBDD_INDEX_AUTOMTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -36186,17 +36170,65 @@ 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 = "VWPMO_WF_OVERVIEW_AUTHORITY" - tableMapping.ColumnMappings.Add("STATE", "STATE") - tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") - tableMapping.ColumnMappings.Add("Authority", "Authority") - tableMapping.ColumnMappings.Add("String", "String") - tableMapping.ColumnMappings.Add("WF_ID", "WF_ID") - tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") - tableMapping.ColumnMappings.Add("COLOR", "COLOR") + tableMapping.DataSetTable = "TBDD_INDEX_AUTOM" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") + tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") + tableMapping.ColumnMappings.Add("VALUE", "VALUE") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE") + tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE_ID, INDEXNAME, VA"& _ + "LUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, SQL_ACTIVE, SQL_RESULT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ + " (@DOCTYPE_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO"& _ + ",@SQL_ACTIVE,@SQL_RESULT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTI"& _ + "ON_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_AC"& _ + "TIVE, SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOCTYPE_ID = @DOCTYPE_ID, INDEX"& _ + "NAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @CO"& _ + "MMENT, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + "SQL_ACTIVE = @SQL_ACTIVE, SQL_RESULT = @SQL_RESULT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origin"& _ + "al_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, A"& _ + "CTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_ACTIVE, SQL_RESULT "& _ + "FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable, ByVal RECORDID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable, ByVal DocTypeID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORDID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DocTypeID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -36237,13 +36269,162 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal RECORDID As Integer) As DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable + Public Overloads Overridable Function GetData(ByVal DocTypeID As Integer) As DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORDID,Integer) - Dim dataTable As DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable = New DD_DMSDataSet.VWPMO_WF_OVERVIEW_AUTHORITYDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DocTypeID,Integer) + Dim dataTable As DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable = New DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable) 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, "TBDD_INDEX_AUTOM") + 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 DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal SQL_ACTIVE As Boolean, ByVal SQL_RESULT As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(INDEXNAME,String) + End If + If (VALUE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(VALUE,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(CONNECTION_ID,Short) + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(COMMENT,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + End If + Me.Adapter.InsertCommand.Parameters(7).Value = CType(SQL_ACTIVE,Boolean) + If (SQL_RESULT Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_RESULT") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(SQL_RESULT,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 DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal SQL_ACTIVE As Boolean, ByVal SQL_RESULT As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + If (INDEXNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("INDEXNAME") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(INDEXNAME,String) + End If + If (VALUE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VALUE,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CONNECTION_ID,Short) + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SQL_ACTIVE,Boolean) + If (SQL_RESULT Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_RESULT") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SQL_RESULT,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 ''' @@ -36255,7 +36436,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_DOKUMENTARTTableAdapter + Partial Public Class TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -36369,66 +36550,20 @@ Namespace DD_DMSDataSetTableAdapters _ Private Sub InitAdapter() - Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() - Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() - tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_DOKUMENTART" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") - tableMapping.ColumnMappings.Add("EINGANGSART_ID", "EINGANGSART_ID") - tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME") - tableMapping.ColumnMappings.Add("ZIEL_PFAD", "ZIEL_PFAD") - tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") - tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") - tableMapping.ColumnMappings.Add("NAMENKONVENTION", "NAMENKONVENTION") - tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") - tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") - tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") - tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") - tableMapping.ColumnMappings.Add("OBJEKTTYP", "OBJEKTTYP") - Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, EINGANGSART_"& _ - "ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG, AKTIV, ERSTELLTWER, OBJEKTTYP)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ - " (@BEZEICHNUNG,@EINGANGSART_ID,@KURZNAME,@ZIEL_PFAD,@BESCHREIBUNG,@AKTIV,@ER"& _ - "STELLTWER,@OBJEKTTYP); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, Z"& _ - "IEL_PFAD, BESCHREIBUNG, AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEAND"& _ - "ERTWER, GEAENDERTWANN FROM TBDD_DOKUMENTART WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_DOKUMENTART"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET BEZEICHNUNG = @BEZEICHNUNG, EIN"& _ - "GANGSART_ID = @EINGANGSART_ID, KURZNAME = @KURZNAME, ZIEL_PFAD = @ZIEL_PFAD, BES"& _ - "CHREIBUNG = @BESCHREIBUNG, AKTIV = @AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" GEANDERTWE"& _ - "R = @GEANDERTWER, OBJEKTTYP = @OBJEKTTYP"&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, BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BESCHREIBUNG,"& _ - " AKTIV, NAMENKONVENTION, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN F"& _ - "ROM TBDD_DOKUMENTART WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EINGANGSART_ID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EINGANGSART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@KURZNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "KURZNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ZIEL_PFAD", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "ZIEL_PFAD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJEKTTYP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJEKTTYP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter = 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_FORMVIEW_DOKTYPES" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FORMVIEW_ID", "FORMVIEW_ID") + tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") + tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + 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) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'DOCTYPE_TITLE' + CONVE"& _ - "RT(VARCHAR(5), GUID), 1) AS BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BE"& _ - "SCHREIBUNG, AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVENTION, ERSTELLTWER, ERST"& _ - "ELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTAR"& _ - "T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY BEZEICHNUNG" + Me._commandCollection(0).CommandText = "SELECT TBPMO_WD_FORMVIEW_DOKTYPES.GUID, TBPMO_WD_FORMVIEW_DOKTYPES.FORMVIE"& _ + "W_ID, TBPMO_FORM_VIEW.FORM_TITLE, TBPMO_WD_FORMVIEW_DOKTYPES.DOCTYPE_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBDD_DOKUMENTART.BEZEICHNUNG, TBPMO_WD_FORMVIEW_DOKTYPES.ADD"& _ + "ED_WHO, TBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHEN, TBPMO_WD_FORMVIEW_DOKTYPES.CHANGE"& _ + "D_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBPMO_WD_FORMVIEW_DOKTYPES INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO"& _ + "_FORM_VIEW ON TBPMO_WD_FORMVIEW_DOKTYPES.FORMVIEW_ID = TBPMO_FORM_VIEW.GUID INNE"& _ + "R JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_DOKUMENTART ON TBPMO_WD_FORMVIEW_DOKTYPES."& _ + "DOCTYPE_ID = TBDD_DOKUMENTART.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPMO_WD_FORMVIEW_DOKTYPES.DOC"& _ + "TYPE_ID = @DOC_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOC_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'DOCTYPE_TITLE' + CONVE"& _ - "RT(VARCHAR(5), GUID), 1) AS BEZEICHNUNG, EINGANGSART_ID, KURZNAME, ZIEL_PFAD, BE"& _ - "SCHREIBUNG, AKTIV, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" NAMENKONVENTION, ERSTELLTWER, ERST"& _ - "ELLTWANN, GEANDERTWER, GEAENDERTWANN, OBJEKTTYP"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_DOKUMENTAR"& _ - "T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT DOKART_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBDD_DOKUMENTART_MODULE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WHERE (MODULE_ID = 0)))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY BEZEICHNUNG" + Me._commandCollection(1).CommandText = "INSERT INTO TBPMO_WD_FORMVIEW_DOKTYPES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORMVIEW_ID, DO"& _ + "CTYPE_ID, OBJECT_TYPE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FORMVIEW_ID,@DOCTYPE_ID,@OBJE"& _ + "CT_TYPE,@ADDED_WHO)" Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORMVIEW_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORMVIEW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).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._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "DELETE FROM TBPMO_WD_FORMVIEW_DOKTYPES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable, ByVal LANGUAGE As String) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable, ByVal DOC_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) - End If + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOC_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -36485,205 +36626,69 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal LANGUAGE As String) As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable + Public Overloads Overridable Function GetData(ByVal DOC_ID As Integer) As DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) - End If - Dim dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable = New DD_DMSDataSet.TBDD_DOKUMENTARTDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function FillByPMO(ByVal dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable, ByVal LANGUAGE As String) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(1) - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) - End If - 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 GetDataByPMO(ByVal LANGUAGE As String) As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(1) - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) - End If - Dim dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable = New DD_DMSDataSet.TBDD_DOKUMENTARTDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOC_ID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable = New DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_DOKUMENTARTDataTable) 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, "TBDD_DOKUMENTART") - 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 BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal OBJEKTTYP As String) As Integer - If (BEZEICHNUNG Is Nothing) Then - Throw New Global.System.ArgumentNullException("BEZEICHNUNG") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) - End If - Me.Adapter.InsertCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) - If (KURZNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("KURZNAME") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(KURZNAME,String) - End If - If (ZIEL_PFAD Is Nothing) Then - Throw New Global.System.ArgumentNullException("ZIEL_PFAD") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) - End If - If (BESCHREIBUNG Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) - End If - Me.Adapter.InsertCommand.Parameters(5).Value = CType(AKTIV,Boolean) - If (ERSTELLTWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, false)> _ + Public Overloads Overridable Function cmdInsert(ByVal FORMVIEW_ID As Integer, ByVal DOCTYPE_ID As Integer, ByVal OBJECT_TYPE As String, ByVal ADDED_WHO As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(FORMVIEW_ID,Integer) + command.Parameters(1).Value = CType(DOCTYPE_ID,Integer) + If (OBJECT_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJECT_TYPE") Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ERSTELLTWER,String) + command.Parameters(2).Value = CType(OBJECT_TYPE,String) End If - If (OBJEKTTYP Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(OBJEKTTYP,String) + command.Parameters(3).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) _ + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + command.Connection.Open End If + Dim returnValue As Integer Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue + returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close + command.Connection.Close End If End Try + Return returnValue End Function _ - Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal EINGANGSART_ID As Byte, ByVal KURZNAME As String, ByVal ZIEL_PFAD As String, ByVal BESCHREIBUNG As String, ByVal AKTIV As Boolean, ByVal GEANDERTWER As String, ByVal OBJEKTTYP As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (BEZEICHNUNG Is Nothing) Then - Throw New Global.System.ArgumentNullException("BEZEICHNUNG") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) - End If - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EINGANGSART_ID,Byte) - If (KURZNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("KURZNAME") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(KURZNAME,String) - End If - If (ZIEL_PFAD Is Nothing) Then - Throw New Global.System.ArgumentNullException("ZIEL_PFAD") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ZIEL_PFAD,String) - End If - If (BESCHREIBUNG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(BESCHREIBUNG,String) - End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(AKTIV,Boolean) - If (GEANDERTWER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(GEANDERTWER,String) - End If - If (OBJEKTTYP Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(OBJEKTTYP,String) - End If - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(9).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.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _ + Public Overloads Overridable Function DeleteQuery(ByVal GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + command.Parameters(0).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + command.Connection.Open End If + Dim returnValue As Integer Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue + returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close + command.Connection.Close End If End Try + Return returnValue End Function End Class @@ -36696,7 +36701,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_EINGANGSARTENTableAdapter + Partial Public Class TBPMO_KONFIGURATIONTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -36813,61 +36818,85 @@ 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 = "TBDD_EINGANGSARTEN" + tableMapping.DataSetTable = "TBPMO_KONFIGURATION" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") - tableMapping.ColumnMappings.Add("BESCHREIBUNG", "BESCHREIBUNG") - tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") - tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") - tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") - tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("LICENSE", "LICENSE") + tableMapping.ColumnMappings.Add("VEKTOR_DELIMITER", "VEKTOR_DELIMITER") + tableMapping.ColumnMappings.Add("EMAIL_ACTIVE", "EMAIL_ACTIVE") + tableMapping.ColumnMappings.Add("EMAIL_FROM", "EMAIL_FROM") + tableMapping.ColumnMappings.Add("EMAIL_SMTP", "EMAIL_SMTP") + tableMapping.ColumnMappings.Add("EMAIL_USER", "EMAIL_USER") + tableMapping.ColumnMappings.Add("EMAIL_PW", "EMAIL_PW") + tableMapping.ColumnMappings.Add("EMAIL_REMINDER_HEADER", "EMAIL_REMINDER_HEADER") + tableMapping.ColumnMappings.Add("EMAIL_REMINDER_FOOTER", "EMAIL_REMINDER_FOOTER") + tableMapping.ColumnMappings.Add("ADMIN_PW", "ADMIN_PW") + tableMapping.ColumnMappings.Add("ADMIN_SECURITY", "ADMIN_SECURITY") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("SQL_RECORD_SQL1", "SQL_RECORD_SQL1") + tableMapping.ColumnMappings.Add("SQL_RECORD_SQL2", "SQL_RECORD_SQL2") + tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE1", "WORKFLOW_FINAL_STATE1") + tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE2", "WORKFLOW_FINAL_STATE2") + tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE3", "WORKFLOW_FINAL_STATE3") + tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE4", "WORKFLOW_FINAL_STATE4") + tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE5", "WORKFLOW_FINAL_STATE5") + tableMapping.ColumnMappings.Add("VERSION_DELIMITER", "VERSION_DELIMITER") + tableMapping.ColumnMappings.Add("FILE_DELIMITER", "FILE_DELIMITER") + tableMapping.ColumnMappings.Add("WD_UNICODE", "WD_UNICODE") + tableMapping.ColumnMappings.Add("FOLLOW_UP_LOG_ERR_ONLY", "FOLLOW_UP_LOG_ERR_ONLY") + tableMapping.ColumnMappings.Add("FOLLOW_UP_EMAIL_PROFILE", "FOLLOW_UP_EMAIL_PROFILE") Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_EINGANGSARTEN"&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.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_EINGANGSARTEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (BEZEICHNUNG, BESCHREIBU"& _ - "NG, ERSTELLTWER)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@BEZEICHNUNG,@BESCHREIBUNG,@ERSTELLTWER); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SEL"& _ - "ECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEA"& _ - "ENDERTWANN FROM TBDD_EINGANGSARTEN WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_EINGANGSARTEN] SET [BEZEICHNUNG] = @BEZEICHNUNG, [BESCHREIBUNG] = @B"& _ - "ESCHREIBUNG, [ERSTELLTWER] = @ERSTELLTWER, [ERSTELLTWANN] = @ERSTELLTWANN, [GEAN"& _ - "DERTWER] = @GEANDERTWER, [GEAENDERTWANN] = @GEAENDERTWANN WHERE (([GUID] = @Orig"& _ - "inal_GUID) AND ([BEZEICHNUNG] = @Original_BEZEICHNUNG) AND ((@IsNull_BESCHREIBUN"& _ - "G = 1 AND [BESCHREIBUNG] IS NULL) OR ([BESCHREIBUNG] = @Original_BESCHREIBUNG)) "& _ - "AND ([ERSTELLTWER] = @Original_ERSTELLTWER) AND ([ERSTELLTWANN] = @Original_ERST"& _ - "ELLTWANN) AND ((@IsNull_GEANDERTWER = 1 AND [GEANDERTWER] IS NULL) OR ([GEANDERT"& _ - "WER] = @Original_GEANDERTWER)) AND ((@IsNull_GEAENDERTWANN = 1 AND [GEAENDERTWAN"& _ - "N] IS NULL) OR ([GEAENDERTWANN] = @Original_GEAENDERTWANN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZE"& _ - "ICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FRO"& _ - "M TBDD_EINGANGSARTEN WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET LICENSE = @LICENSE, VEKTOR_D"& _ + "ELIMITER = @VEKTOR_DELIMITER, EMAIL_ACTIVE = @EMAIL_ACTIVE, EMAIL_FROM = @EMAIL_"& _ + "FROM, EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " EMAIL_PW = @EMAIL_PW, EMAIL_REMINDER_HEADER = @EMAIL_REMINDER_HEADER, EMAIL"& _ + "_REMINDER_FOOTER = @EMAIL_REMINDER_FOOTER, ADMIN_PW = @ADMIN_PW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " ADMIN_SECURITY = @ADMIN_SECURITY, CHANGED_WHO = @CHANGED_WHO, SQL_RE"& _ + "CORD_SQL1 = @SQL_RECORD_SQL1, SQL_RECORD_SQL2 = @SQL_RECORD_SQL2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WORKFLOW_FINAL_STATE1 = @WORKFLOW_FINAL_STATE1, WORKFLOW_FINAL_STAT"& _ + "E2 = @WORKFLOW_FINAL_STATE2, WORKFLOW_FINAL_STATE3 = @WORKFLOW_FINAL_STATE3, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " WORKFLOW_FINAL_STATE4 = @WORKFLOW_FINAL_STATE4, WORKFLOW"& _ + "_FINAL_STATE5 = @WORKFLOW_FINAL_STATE5, VERSION_DELIMITER = @VERSION_DELIMITER, "& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FILE_DELIMITER = @FILE_DELIMITER, WD_UNICODE = @WD_UN"& _ + "ICODE, FOLLOW_UP_LOG_ERR_ONLY = @FOLLOW_UP_LOG_ERR_ONLY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FOLLOW_UP_EMAIL_PROFILE = @FOLLOW_UP_EMAIL_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Or"& _ + "iginal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LICENSE, VEKTOR_DELIMITER, EMAIL_ACTIVE, EMAIL_FRO"& _ + "M, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTE"& _ + "R, ADMIN_PW, ADMIN_SECURITY, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, S"& _ + "QL_RECORD_SQL1, SQL_RECORD_SQL2, WORKFLOW_FINAL_STATE1, WORKFLOW_FINAL_STATE2, W"& _ + "ORKFLOW_FINAL_STATE3, WORKFLOW_FINAL_STATE4, WORKFLOW_FINAL_STATE5, VERSION_DELI"& _ + "MITER, FILE_DELIMITER FROM TBPMO_KONFIGURATION WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_BESCHREIBUNG", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_BESCHREIBUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BESCHREIBUNG", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEANDERTWER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_GEAENDERTWANN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VEKTOR_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VEKTOR_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_HEADER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_FOOTER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_FOOTER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADMIN_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "ADMIN_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADMIN_SECURITY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ADMIN_SECURITY", 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("@SQL_RECORD_SQL1", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RECORD_SQL1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RECORD_SQL2", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RECORD_SQL2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE1", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE2", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE3", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE4", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE5", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_UNICODE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_UNICODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_LOG_ERR_ONLY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_LOG_ERR_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_EMAIL_PROFILE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_EMAIL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, 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.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDER"& _ - "TWER, GEAENDERTWANN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EINGANGSARTEN" + Me._commandCollection(0).CommandText = "SELECT GUID, LICENSE, VEKTOR_DELIMITER, EMAIL_ACTIVE, EMAIL_FROM, EMAIL_SM"& _ + "TP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTER, ADMIN_PW"& _ + ", ADMIN_SECURITY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _ + " CHANGED_WHEN, SQL_RECORD_SQL1, SQL_RECORD_SQL2, WORKFLOW_FINAL_STATE1, WORKFLOW"& _ + "_FINAL_STATE2, WORKFLOW_FINAL_STATE3, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WORKFLOW_FINAL_"& _ + "STATE4, WORKFLOW_FINAL_STATE5, VERSION_DELIMITER, FILE_DELIMITER, WD_UNICODE, FO"& _ + "LLOW_UP_LOG_ERR_ONLY, FOLLOW_UP_EMAIL_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_KONFIGURATI"& _ + "ON" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "UPDATE TBPMO_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET LICENSE = @LICENSE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (GUID = @Original_GUID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -36905,9 +36947,9 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable = New DD_DMSDataSet.TBDD_EINGANGSARTENDataTable() + Dim dataTable As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable = New DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -36915,7 +36957,7 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_EINGANGSARTENDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -36923,7 +36965,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, "TBDD_EINGANGSARTEN") + Return Me.Adapter.Update(dataSet, "TBPMO_KONFIGURATION") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Byte) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Byte) - 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 BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String) As Integer - If (BEZEICHNUNG Is Nothing) Then - Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update( _ + ByVal LICENSE As String, _ + ByVal VEKTOR_DELIMITER As String, _ + ByVal EMAIL_ACTIVE As Boolean, _ + ByVal EMAIL_FROM As String, _ + ByVal EMAIL_SMTP As String, _ + ByVal EMAIL_USER As String, _ + ByVal EMAIL_PW As String, _ + ByVal EMAIL_REMINDER_HEADER As String, _ + ByVal EMAIL_REMINDER_FOOTER As String, _ + ByVal ADMIN_PW As String, _ + ByVal ADMIN_SECURITY As Boolean, _ + ByVal CHANGED_WHO As String, _ + ByVal SQL_RECORD_SQL1 As String, _ + ByVal SQL_RECORD_SQL2 As String, _ + ByVal WORKFLOW_FINAL_STATE1 As Integer, _ + ByVal WORKFLOW_FINAL_STATE2 As Global.System.Nullable(Of Integer), _ + ByVal WORKFLOW_FINAL_STATE3 As Global.System.Nullable(Of Integer), _ + ByVal WORKFLOW_FINAL_STATE4 As Global.System.Nullable(Of Integer), _ + ByVal WORKFLOW_FINAL_STATE5 As Global.System.Nullable(Of Integer), _ + ByVal VERSION_DELIMITER As String, _ + ByVal FILE_DELIMITER As String, _ + ByVal WD_UNICODE As Boolean, _ + ByVal FOLLOW_UP_LOG_ERR_ONLY As Boolean, _ + ByVal FOLLOW_UP_EMAIL_PROFILE As Integer, _ + ByVal Original_GUID As Byte, _ + ByVal GUID As Byte) As Integer + If (LICENSE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(LICENSE,String) End If - If (BESCHREIBUNG Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + If (VEKTOR_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("VEKTOR_DELIMITER") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(VEKTOR_DELIMITER,String) End If - If (ERSTELLTWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EMAIL_ACTIVE,Boolean) + If (EMAIL_FROM Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ERSTELLTWER,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL_FROM,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 + If (EMAIL_SMTP Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL_SMTP,String) 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 BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_GUID As Byte, ByVal Original_BEZEICHNUNG As String, ByVal Original_BESCHREIBUNG As String, ByVal Original_ERSTELLTWER As String, ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal Original_GEANDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal GUID As Byte) As Integer - If (BEZEICHNUNG Is Nothing) Then - Throw New Global.System.ArgumentNullException("BEZEICHNUNG") + If (EMAIL_USER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(EMAIL_USER,String) End If - If (BESCHREIBUNG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + If (EMAIL_PW Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(BESCHREIBUNG,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(EMAIL_PW,String) End If - If (ERSTELLTWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("ERSTELLTWER") + If (EMAIL_REMINDER_HEADER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(ERSTELLTWER,String) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(EMAIL_REMINDER_HEADER,String) End If - If (ERSTELLTWANN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ERSTELLTWANN.Value,Date) + If (EMAIL_REMINDER_FOOTER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(EMAIL_REMINDER_FOOTER,String) End If - If (GEANDERTWER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + If (ADMIN_PW Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADMIN_PW") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GEANDERTWER,String) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ADMIN_PW,String) End If - If (GEAENDERTWANN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GEAENDERTWANN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ADMIN_SECURITY,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CHANGED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Byte) - If (Original_BEZEICHNUNG Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_BEZEICHNUNG") + If (SQL_RECORD_SQL1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_RECORD_SQL1") Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_BEZEICHNUNG,String) + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SQL_RECORD_SQL1,String) End If - If (Original_BESCHREIBUNG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(9).Value = Global.System.DBNull.Value + If (SQL_RECORD_SQL2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_RECORD_SQL2") Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_BESCHREIBUNG,String) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SQL_RECORD_SQL2,String) End If - If (Original_ERSTELLTWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ERSTELLTWER") + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(WORKFLOW_FINAL_STATE1,Integer) + If (WORKFLOW_FINAL_STATE2.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(WORKFLOW_FINAL_STATE2.Value,Integer) Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ERSTELLTWER,String) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value End If - If (Original_ERSTELLTWANN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_ERSTELLTWANN.Value,Date) + If (WORKFLOW_FINAL_STATE3.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(WORKFLOW_FINAL_STATE3.Value,Integer) Else - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value End If - If (Original_GEANDERTWER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + If (WORKFLOW_FINAL_STATE4.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(WORKFLOW_FINAL_STATE4.Value,Integer) Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_GEANDERTWER,String) + Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value End If - If (Original_GEAENDERTWANN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_GEAENDERTWANN.Value,Date) + If (WORKFLOW_FINAL_STATE5.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(WORKFLOW_FINAL_STATE5.Value,Integer) Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value End If - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(GUID,Byte) + If (VERSION_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("VERSION_DELIMITER") + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(VERSION_DELIMITER,String) + End If + If (FILE_DELIMITER Is Nothing) Then + Throw New Global.System.ArgumentNullException("FILE_DELIMITER") + Else + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(FILE_DELIMITER,String) + End If + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(WD_UNICODE,Boolean) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(FOLLOW_UP_LOG_ERR_ONLY,Boolean) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(FOLLOW_UP_EMAIL_PROFILE,Integer) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_GUID,Byte) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(GUID,Byte) 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 @@ -37087,9 +37129,29 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal BEZEICHNUNG As String, ByVal BESCHREIBUNG As String, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date), ByVal Original_GUID As Byte, ByVal Original_BEZEICHNUNG As String, ByVal Original_BESCHREIBUNG As String, ByVal Original_ERSTELLTWER As String, ByVal Original_ERSTELLTWANN As Global.System.Nullable(Of Date), ByVal Original_GEANDERTWER As String, ByVal Original_GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(BEZEICHNUNG, BESCHREIBUNG, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN, Original_GUID, Original_BEZEICHNUNG, Original_BESCHREIBUNG, Original_ERSTELLTWER, Original_ERSTELLTWANN, Original_GEANDERTWER, Original_GEAENDERTWANN, Original_GUID) + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, false)> _ + Public Overloads Overridable Function cmdSetLicense(ByVal LICENSE As String, ByVal Original_GUID As Byte) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (LICENSE Is Nothing) Then + command.Parameters(0).Value = Global.System.DBNull.Value + Else + command.Parameters(0).Value = CType(LICENSE,String) + End If + command.Parameters(1).Value = CType(Original_GUID,Byte) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue End Function End Class @@ -37102,7 +37164,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_INDEX_AUTOMTableAdapter + Partial Public Class TBDD_USERTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -37219,63 +37281,60 @@ 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 = "TBDD_INDEX_AUTOM" + tableMapping.DataSetTable = "TBDD_USER" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") - tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") - tableMapping.ColumnMappings.Add("VALUE", "VALUE") - tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("EMAIL", "EMAIL") + tableMapping.ColumnMappings.Add("LOGGED_IN", "LOGGED_IN") + tableMapping.ColumnMappings.Add("LOGGED_WHERE", "LOGGED_WHERE") + tableMapping.ColumnMappings.Add("LOG_IN_WHEN", "LOG_IN_WHEN") + tableMapping.ColumnMappings.Add("LOG_OUT_WHEN", "LOG_OUT_WHEN") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE") - tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") + tableMapping.ColumnMappings.Add("RECORD_ADMIN", "RECORD_ADMIN") + tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOCTYPE_ID, INDEXNAME, VA"& _ - "LUE, CONNECTION_ID, COMMENT, ACTIVE, ADDED_WHO, SQL_ACTIVE, SQL_RESULT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ - " (@DOCTYPE_ID,@INDEXNAME,@VALUE,@CONNECTION_ID,@COMMENT,@ACTIVE,@ADDED_WHO"& _ - ",@SQL_ACTIVE,@SQL_RESULT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTI"& _ - "ON_ID, COMMENT, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_AC"& _ - "TIVE, SQL_RESULT FROM TBDD_INDEX_AUTOM WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PRENAME, NAME, USERNAME, EMAIL, "& _ + "LOGGED_IN, RECORD_ADMIN, ADDED_WHO, MODULE_RECORD_ORG, LANGUAGE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ + "(@PRENAME,@NAME,@USERNAME,@EMAIL,@LOGGED_IN, 0,@ADDED_WHO, 1,@LANGUAG); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _ + "CT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, L"& _ + "OG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM"& _ + " TBDD_USER WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOGGED_IN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_IN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAG", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET DOCTYPE_ID = @DOCTYPE_ID, INDEX"& _ - "NAME = @INDEXNAME, VALUE = @VALUE, CONNECTION_ID = @CONNECTION_ID, COMMENT = @CO"& _ - "MMENT, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - "SQL_ACTIVE = @SQL_ACTIVE, SQL_RESULT = @SQL_RESULT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origin"& _ - "al_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, A"& _ - "CTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_ACTIVE, SQL_RESULT "& _ - "FROM TBDD_INDEX_AUTOM WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PRENAME = @PRENAME, NAME = @NAME, USER"& _ + "NAME = @USERNAME, EMAIL = @EMAIL, RECORD_ADMIN = @RECORD_ADMIN, CHANGED_WHO = @C"& _ + "HANGED_WHO, LANGUAGE = @LANGUAGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _ + "T GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LO"& _ + "G_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM "& _ + "TBDD_USER WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@INDEXNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "INDEXNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VALUE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ADMIN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ADMIN", 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("@SQL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RESULT", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RESULT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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 @@ -37293,20 +37352,19 @@ 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 GUID, DOCTYPE_ID, INDEXNAME, VALUE, CONNECTION_ID, COMMENT, ACTIVE,"& _ - " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, SQL_ACTIVE, SQL_RESULT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBDD_INDEX_AUTOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DocTypeID)" + Me._commandCollection(0).CommandText = "SELECT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_"& _ + "IN_WHEN, LOG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _ + "_WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" LANGUAGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ + " (MODULE_RECORD_ORG = 1)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY USERNAME" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DocTypeID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable, ByVal DocTypeID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_USERDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DocTypeID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -37318,10 +37376,9 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal DocTypeID As Integer) As DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DocTypeID,Integer) - Dim dataTable As DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable = New DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable() + Dim dataTable As DD_DMSDataSet.TBDD_USERDataTable = New DD_DMSDataSet.TBDD_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -37329,7 +37386,7 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_INDEX_AUTOMDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -37337,7 +37394,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, "TBDD_INDEX_AUTOM") + Return Me.Adapter.Update(dataSet, "TBDD_USER") End Function _ - Public Overloads Overridable Function Insert(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String, ByVal SQL_ACTIVE As Boolean, ByVal SQL_RESULT As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) - If (INDEXNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("INDEXNAME") + Public Overloads Overridable Function Insert(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal ADDED_WHO As String, ByVal LANGUAG As String) As Integer + If (PRENAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(INDEXNAME,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME,String) End If - If (VALUE Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + If (NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(VALUE,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) End If - Me.Adapter.InsertCommand.Parameters(3).Value = CType(CONNECTION_ID,Short) - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(COMMENT,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME,String) End If - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + If (EMAIL Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL,String) + End If + Me.Adapter.InsertCommand.Parameters(4).Value = CType(LOGGED_IN,Boolean) If (ADDED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) End If - Me.Adapter.InsertCommand.Parameters(7).Value = CType(SQL_ACTIVE,Boolean) - If (SQL_RESULT Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_RESULT") + If (LANGUAG Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAG") Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(SQL_RESULT,String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(LANGUAG,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) _ @@ -37428,38 +37487,40 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal DOCTYPE_ID As Integer, ByVal INDEXNAME As String, ByVal VALUE As String, ByVal CONNECTION_ID As Short, ByVal COMMENT As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal SQL_ACTIVE As Boolean, ByVal SQL_RESULT As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) - If (INDEXNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("INDEXNAME") + Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal RECORD_ADMIN As Boolean, ByVal CHANGED_WHO As String, ByVal LANGUAGE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (PRENAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(INDEXNAME,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME,String) End If - If (VALUE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + If (NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(VALUE,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) End If - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CONNECTION_ID,Short) - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + If (USERNAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("USERNAME") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME,String) End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean) + If (EMAIL Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(RECORD_ADMIN,Boolean) If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(SQL_ACTIVE,Boolean) - If (SQL_RESULT Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_RESULT") + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(SQL_RESULT,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(LANGUAGE,String) End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).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 @@ -37485,7 +37546,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter + Partial Public Class TBPMO_FORM_TYPETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -37602,17 +37663,50 @@ 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_WD_FORMVIEW_DOKTYPES" + tableMapping.DataSetTable = "TBPMO_FORM_TYPE" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("FORMVIEW_ID", "FORMVIEW_ID") - tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") - tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") - tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("FORM_TYPE", "FORM_TYPE") 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_FORM_TYPE] WHERE (([GUID] = @Original_GUID) AND ([FORM_TYPE] ="& _ + " @Original_FORM_TYPE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] "& _ + "= @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL)"& _ + " OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND "& _ + "[CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORM_TYPE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VAL"& _ + "UES (@FORM_TYPE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TYPE, ADDED_WHO, ADDED_W"& _ + "HEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM_TYPE WHERE (GUID = SCOPE_IDENTITY"& _ + "())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE", 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_FORM_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FORM_TYPE = @FORM_TYPE, 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, FORM_TY"& _ + "PE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM_TYPE WHERE "& _ + "(GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE", 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 InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(2) {} + 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_WD_FORMVIEW_DOKTYPES.GUID, TBPMO_WD_FORMVIEW_DOKTYPES.FORMVIE"& _ - "W_ID, TBPMO_FORM_VIEW.FORM_TITLE, TBPMO_WD_FORMVIEW_DOKTYPES.DOCTYPE_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBDD_DOKUMENTART.BEZEICHNUNG, TBPMO_WD_FORMVIEW_DOKTYPES.ADD"& _ - "ED_WHO, TBPMO_WD_FORMVIEW_DOKTYPES.ADDED_WHEN, TBPMO_WD_FORMVIEW_DOKTYPES.CHANGE"& _ - "D_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_WD_FORMVIEW_DOKTYPES.CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBPMO_WD_FORMVIEW_DOKTYPES INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO"& _ - "_FORM_VIEW ON TBPMO_WD_FORMVIEW_DOKTYPES.FORMVIEW_ID = TBPMO_FORM_VIEW.GUID INNE"& _ - "R JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_DOKUMENTART ON TBPMO_WD_FORMVIEW_DOKTYPES."& _ - "DOCTYPE_ID = TBDD_DOKUMENTART.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBPMO_WD_FORMVIEW_DOKTYPES.DOC"& _ - "TYPE_ID = @DOC_ID)" + Me._commandCollection(0).CommandText = "SELECT TBPMO_FORM_TYPE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_TYPE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOC_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "INSERT INTO TBPMO_WD_FORMVIEW_DOKTYPES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORMVIEW_ID, DO"& _ - "CTYPE_ID, OBJECT_TYPE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FORMVIEW_ID,@DOCTYPE_ID,@OBJE"& _ - "CT_TYPE,@ADDED_WHO)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORMVIEW_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORMVIEW_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).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._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "DELETE FROM TBPMO_WD_FORMVIEW_DOKTYPES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @GUID)" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable, ByVal DOC_ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOC_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -37675,69 +37743,151 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal DOC_ID As Integer) As DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOC_ID,Integer) - Dim dataTable As DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable = New DD_DMSDataSet.TBPMO_WD_FORMVIEW_DOKTYPESDataTable() + Dim dataTable As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable = New DD_DMSDataSet.TBPMO_FORM_TYPEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable) 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_FORM_TYPE") + 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 cmdInsert(ByVal FORMVIEW_ID As Integer, ByVal DOCTYPE_ID As Integer, ByVal OBJECT_TYPE As String, ByVal ADDED_WHO As String) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(FORMVIEW_ID,Integer) - command.Parameters(1).Value = CType(DOCTYPE_ID,Integer) - If (OBJECT_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJECT_TYPE") + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_FORM_TYPE As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_FORM_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_FORM_TYPE") Else - command.Parameters(2).Value = CType(OBJECT_TYPE,String) + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_FORM_TYPE,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + 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 FORM_TYPE As String, ByVal ADDED_WHO As String) As Integer + If (FORM_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("FORM_TYPE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TYPE,String) End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - command.Parameters(3).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String) End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + 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 - command.Connection.Open + Me.Adapter.InsertCommand.Connection.Open End If - Dim returnValue As Integer Try - returnValue = command.ExecuteNonQuery + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.InsertCommand.Connection.Close End If End Try - Return returnValue End Function _ - Public Overloads Overridable Function DeleteQuery(ByVal GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - command.Parameters(0).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update(ByVal FORM_TYPE As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (FORM_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("FORM_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TYPE,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(3).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 - command.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open End If - Dim returnValue As Integer Try - returnValue = command.ExecuteNonQuery + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.UpdateCommand.Connection.Close End If End Try - Return returnValue End Function End Class @@ -37750,7 +37900,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_KONFIGURATIONTableAdapter + Partial Public Class TBDD_USER_GROUPSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -37867,85 +38017,42 @@ 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_KONFIGURATION" + tableMapping.DataSetTable = "TBDD_USER_GROUPS" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("LICENSE", "LICENSE") - tableMapping.ColumnMappings.Add("VEKTOR_DELIMITER", "VEKTOR_DELIMITER") - tableMapping.ColumnMappings.Add("EMAIL_ACTIVE", "EMAIL_ACTIVE") - tableMapping.ColumnMappings.Add("EMAIL_FROM", "EMAIL_FROM") - tableMapping.ColumnMappings.Add("EMAIL_SMTP", "EMAIL_SMTP") - tableMapping.ColumnMappings.Add("EMAIL_USER", "EMAIL_USER") - tableMapping.ColumnMappings.Add("EMAIL_PW", "EMAIL_PW") - tableMapping.ColumnMappings.Add("EMAIL_REMINDER_HEADER", "EMAIL_REMINDER_HEADER") - tableMapping.ColumnMappings.Add("EMAIL_REMINDER_FOOTER", "EMAIL_REMINDER_FOOTER") - tableMapping.ColumnMappings.Add("ADMIN_PW", "ADMIN_PW") - tableMapping.ColumnMappings.Add("ADMIN_SECURITY", "ADMIN_SECURITY") + tableMapping.ColumnMappings.Add("NAME", "NAME") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("SQL_RECORD_SQL1", "SQL_RECORD_SQL1") - tableMapping.ColumnMappings.Add("SQL_RECORD_SQL2", "SQL_RECORD_SQL2") - tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE1", "WORKFLOW_FINAL_STATE1") - tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE2", "WORKFLOW_FINAL_STATE2") - tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE3", "WORKFLOW_FINAL_STATE3") - tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE4", "WORKFLOW_FINAL_STATE4") - tableMapping.ColumnMappings.Add("WORKFLOW_FINAL_STATE5", "WORKFLOW_FINAL_STATE5") - tableMapping.ColumnMappings.Add("VERSION_DELIMITER", "VERSION_DELIMITER") - tableMapping.ColumnMappings.Add("FILE_DELIMITER", "FILE_DELIMITER") - tableMapping.ColumnMappings.Add("WD_UNICODE", "WD_UNICODE") - tableMapping.ColumnMappings.Add("FOLLOW_UP_LOG_ERR_ONLY", "FOLLOW_UP_LOG_ERR_ONLY") - tableMapping.ColumnMappings.Add("FOLLOW_UP_EMAIL_PROFILE", "FOLLOW_UP_EMAIL_PROFILE") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") Me._adapter.TableMappings.Add(tableMapping) + Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, ADDED_WHO, COMMENT)"& _ + ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@ADDED_WHO,@COMMENT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO, AD"& _ + "DED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_ID"& _ + "ENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", 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_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET LICENSE = @LICENSE, VEKTOR_D"& _ - "ELIMITER = @VEKTOR_DELIMITER, EMAIL_ACTIVE = @EMAIL_ACTIVE, EMAIL_FROM = @EMAIL_"& _ - "FROM, EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " EMAIL_PW = @EMAIL_PW, EMAIL_REMINDER_HEADER = @EMAIL_REMINDER_HEADER, EMAIL"& _ - "_REMINDER_FOOTER = @EMAIL_REMINDER_FOOTER, ADMIN_PW = @ADMIN_PW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " ADMIN_SECURITY = @ADMIN_SECURITY, CHANGED_WHO = @CHANGED_WHO, SQL_RE"& _ - "CORD_SQL1 = @SQL_RECORD_SQL1, SQL_RECORD_SQL2 = @SQL_RECORD_SQL2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WORKFLOW_FINAL_STATE1 = @WORKFLOW_FINAL_STATE1, WORKFLOW_FINAL_STAT"& _ - "E2 = @WORKFLOW_FINAL_STATE2, WORKFLOW_FINAL_STATE3 = @WORKFLOW_FINAL_STATE3, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WORKFLOW_FINAL_STATE4 = @WORKFLOW_FINAL_STATE4, WORKFLOW"& _ - "_FINAL_STATE5 = @WORKFLOW_FINAL_STATE5, VERSION_DELIMITER = @VERSION_DELIMITER, "& _ - ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FILE_DELIMITER = @FILE_DELIMITER, WD_UNICODE = @WD_UN"& _ - "ICODE, FOLLOW_UP_LOG_ERR_ONLY = @FOLLOW_UP_LOG_ERR_ONLY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FOLLOW_UP_EMAIL_PROFILE = @FOLLOW_UP_EMAIL_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Or"& _ - "iginal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LICENSE, VEKTOR_DELIMITER, EMAIL_ACTIVE, EMAIL_FRO"& _ - "M, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTE"& _ - "R, ADMIN_PW, ADMIN_SECURITY, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, S"& _ - "QL_RECORD_SQL1, SQL_RECORD_SQL2, WORKFLOW_FINAL_STATE1, WORKFLOW_FINAL_STATE2, W"& _ - "ORKFLOW_FINAL_STATE3, WORKFLOW_FINAL_STATE4, WORKFLOW_FINAL_STATE5, VERSION_DELI"& _ - "MITER, FILE_DELIMITER FROM TBPMO_KONFIGURATION WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, CHANGED_WHO = @CH"& _ + "ANGED_WHO, COMMENT = @COMMENT"&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 G"& _ + "UID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUP"& _ + "S WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VEKTOR_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VEKTOR_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_HEADER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_HEADER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_REMINDER_FOOTER", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_REMINDER_FOOTER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADMIN_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "ADMIN_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADMIN_SECURITY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ADMIN_SECURITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@SQL_RECORD_SQL1", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RECORD_SQL1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RECORD_SQL2", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RECORD_SQL2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE1", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE2", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE3", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE4", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKFLOW_FINAL_STATE5", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKFLOW_FINAL_STATE5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@VERSION_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "VERSION_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILE_DELIMITER", Global.System.Data.SqlDbType.VarChar, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FILE_DELIMITER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_UNICODE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_UNICODE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_LOG_ERR_ONLY", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_LOG_ERR_ONLY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_EMAIL_PROFILE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_EMAIL_PROFILE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, 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.TinyInt, 1, 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("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, LICENSE, VEKTOR_DELIMITER, EMAIL_ACTIVE, EMAIL_FROM, EMAIL_SM"& _ - "TP, EMAIL_USER, EMAIL_PW, EMAIL_REMINDER_HEADER, EMAIL_REMINDER_FOOTER, ADMIN_PW"& _ - ", ADMIN_SECURITY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" ADDED_WHO, ADDED_WHEN, CHANGED_WHO,"& _ - " CHANGED_WHEN, SQL_RECORD_SQL1, SQL_RECORD_SQL2, WORKFLOW_FINAL_STATE1, WORKFLOW"& _ - "_FINAL_STATE2, WORKFLOW_FINAL_STATE3, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WORKFLOW_FINAL_"& _ - "STATE4, WORKFLOW_FINAL_STATE5, VERSION_DELIMITER, FILE_DELIMITER, WD_UNICODE, FO"& _ - "LLOW_UP_LOG_ERR_ONLY, FOLLOW_UP_EMAIL_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_KONFIGURATI"& _ - "ON" + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMME"& _ + "NT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NAME" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "UPDATE TBPMO_KONFIGURATION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET LICENSE = @LICENSE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (GUID = @Original_GUID)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LICENSE", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "LICENSE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.TinyInt, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_USER_GROUPSDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -37996,9 +38090,9 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_USER_GROUPSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable = New DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable() + Dim dataTable As DD_DMSDataSet.TBDD_USER_GROUPSDataTable = New DD_DMSDataSet.TBDD_USER_GROUPSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -38006,7 +38100,7 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_KONFIGURATIONDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_USER_GROUPSDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -38014,7 +38108,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_KONFIGURATION") + Return Me.Adapter.Update(dataSet, "TBDD_USER_GROUPS") End Function _ - Public Overloads Overridable Function Update( _ - ByVal LICENSE As String, _ - ByVal VEKTOR_DELIMITER As String, _ - ByVal EMAIL_ACTIVE As Boolean, _ - ByVal EMAIL_FROM As String, _ - ByVal EMAIL_SMTP As String, _ - ByVal EMAIL_USER As String, _ - ByVal EMAIL_PW As String, _ - ByVal EMAIL_REMINDER_HEADER As String, _ - ByVal EMAIL_REMINDER_FOOTER As String, _ - ByVal ADMIN_PW As String, _ - ByVal ADMIN_SECURITY As Boolean, _ - ByVal CHANGED_WHO As String, _ - ByVal SQL_RECORD_SQL1 As String, _ - ByVal SQL_RECORD_SQL2 As String, _ - ByVal WORKFLOW_FINAL_STATE1 As Integer, _ - ByVal WORKFLOW_FINAL_STATE2 As Global.System.Nullable(Of Integer), _ - ByVal WORKFLOW_FINAL_STATE3 As Global.System.Nullable(Of Integer), _ - ByVal WORKFLOW_FINAL_STATE4 As Global.System.Nullable(Of Integer), _ - ByVal WORKFLOW_FINAL_STATE5 As Global.System.Nullable(Of Integer), _ - ByVal VERSION_DELIMITER As String, _ - ByVal FILE_DELIMITER As String, _ - ByVal WD_UNICODE As Boolean, _ - ByVal FOLLOW_UP_LOG_ERR_ONLY As Boolean, _ - ByVal FOLLOW_UP_EMAIL_PROFILE As Integer, _ - ByVal Original_GUID As Byte, _ - ByVal GUID As Byte) As Integer - If (LICENSE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(LICENSE,String) - End If - If (VEKTOR_DELIMITER Is Nothing) Then - Throw New Global.System.ArgumentNullException("VEKTOR_DELIMITER") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(VEKTOR_DELIMITER,String) - End If - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EMAIL_ACTIVE,Boolean) - If (EMAIL_FROM Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL_FROM,String) - End If - If (EMAIL_SMTP Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL_SMTP,String) - End If - If (EMAIL_USER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(EMAIL_USER,String) - End If - If (EMAIL_PW Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(EMAIL_PW,String) - End If - If (EMAIL_REMINDER_HEADER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(EMAIL_REMINDER_HEADER,String) - End If - If (EMAIL_REMINDER_FOOTER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(EMAIL_REMINDER_FOOTER,String) - End If - If (ADMIN_PW Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADMIN_PW") - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ADMIN_PW,String) - End If - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(ADMIN_SECURITY,Boolean) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CHANGED_WHO,String) - End If - If (SQL_RECORD_SQL1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_RECORD_SQL1") - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SQL_RECORD_SQL1,String) - End If - If (SQL_RECORD_SQL2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_RECORD_SQL2") - Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SQL_RECORD_SQL2,String) - End If - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(WORKFLOW_FINAL_STATE1,Integer) - If (WORKFLOW_FINAL_STATE2.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(WORKFLOW_FINAL_STATE2.Value,Integer) - Else - Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value - End If - If (WORKFLOW_FINAL_STATE3.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(WORKFLOW_FINAL_STATE3.Value,Integer) - Else - Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value - End If - If (WORKFLOW_FINAL_STATE4.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(WORKFLOW_FINAL_STATE4.Value,Integer) - Else - Me.Adapter.UpdateCommand.Parameters(17).Value = Global.System.DBNull.Value + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _ + 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 - If (WORKFLOW_FINAL_STATE5.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(WORKFLOW_FINAL_STATE5.Value,Integer) + Try + Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.DeleteCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal ADDED_WHO As String, ByVal COMMENT As String) As Integer + If (NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) End If - If (VERSION_DELIMITER Is Nothing) Then - Throw New Global.System.ArgumentNullException("VERSION_DELIMITER") + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(VERSION_DELIMITER,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String) End If - If (FILE_DELIMITER Is Nothing) Then - Throw New Global.System.ArgumentNullException("FILE_DELIMITER") + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(FILE_DELIMITER,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String) End If - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(WD_UNICODE,Boolean) - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(FOLLOW_UP_LOG_ERR_ONLY,Boolean) - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(FOLLOW_UP_EMAIL_PROFILE,Integer) - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_GUID,Byte) - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(GUID,Byte) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + 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.UpdateCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open End If Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close + Me.Adapter.InsertCommand.Connection.Close End If End Try End Function @@ -38178,29 +38184,38 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function cmdSetLicense(ByVal LICENSE As String, ByVal Original_GUID As Byte) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - If (LICENSE Is Nothing) Then - command.Parameters(0).Value = Global.System.DBNull.Value + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update(ByVal NAME As String, ByVal CHANGED_WHO As String, ByVal COMMENT As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else - command.Parameters(0).Value = CType(LICENSE,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) End If - command.Parameters(1).Value = CType(Original_GUID,Byte) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(4).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 - command.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open End If - Dim returnValue As Integer Try - returnValue = command.ExecuteNonQuery + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.UpdateCommand.Connection.Close End If End Try - Return returnValue End Function End Class @@ -38213,7 +38228,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_USERTableAdapter + Partial Public Class VWPMO_USERS_GROUPSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -38330,62 +38345,15 @@ 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 = "TBDD_USER" + tableMapping.DataSetTable = "VWPMO_USERS_GROUPS" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") - tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("EMAIL", "EMAIL") - tableMapping.ColumnMappings.Add("LOGGED_IN", "LOGGED_IN") - tableMapping.ColumnMappings.Add("LOGGED_WHERE", "LOGGED_WHERE") - tableMapping.ColumnMappings.Add("LOG_IN_WHEN", "LOG_IN_WHEN") - tableMapping.ColumnMappings.Add("LOG_OUT_WHEN", "LOG_OUT_WHEN") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("RECORD_ADMIN", "RECORD_ADMIN") - tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") + tableMapping.ColumnMappings.Add("GROUP_NAME", "GROUP_NAME") Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PRENAME, NAME, USERNAME, EMAIL, "& _ - "LOGGED_IN, RECORD_ADMIN, ADDED_WHO, MODULE_RECORD_ORG, LANGUAGE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES "& _ - "(@PRENAME,@NAME,@USERNAME,@EMAIL,@LOGGED_IN, 0,@ADDED_WHO, 1,@LANGUAG); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELE"& _ - "CT GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, L"& _ - "OG_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM"& _ - " TBDD_USER WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOGGED_IN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOGGED_IN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAG", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PRENAME = @PRENAME, NAME = @NAME, USER"& _ - "NAME = @USERNAME, EMAIL = @EMAIL, RECORD_ADMIN = @RECORD_ADMIN, CHANGED_WHO = @C"& _ - "HANGED_WHO, LANGUAGE = @LANGUAGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELEC"& _ - "T GUID, PRENAME, NAME, USERNAME, EMAIL, LOGGED_IN, LOGGED_WHERE, LOG_IN_WHEN, LO"& _ - "G_OUT_WHEN, RECORD_ADMIN, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM "& _ - "TBDD_USER WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PRENAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "PRENAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ADMIN", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ADMIN", 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("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_USERDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable) 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.TBDD_USERDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBDD_USERDataTable = New DD_DMSDataSet.TBDD_USERDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_USERDataTable) 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, "TBDD_USER") - 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 PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal LOGGED_IN As Boolean, ByVal ADDED_WHO As String, ByVal LANGUAG As String) As Integer - If (PRENAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(PRENAME,String) - End If - If (NAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME,String) - End If - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(USERNAME,String) - End If - If (EMAIL Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL,String) - End If - Me.Adapter.InsertCommand.Parameters(4).Value = CType(LOGGED_IN,Boolean) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) - End If - If (LANGUAG Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAG") - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(LANGUAG,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 If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue End Function _ - Public Overloads Overridable Function Update(ByVal PRENAME As String, ByVal NAME As String, ByVal USERNAME As String, ByVal EMAIL As String, ByVal RECORD_ADMIN As Boolean, ByVal CHANGED_WHO As String, ByVal LANGUAGE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (PRENAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PRENAME,String) - End If - If (NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME,String) - End If - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(USERNAME,String) - End If - If (EMAIL Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL,String) - End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(RECORD_ADMIN,Boolean) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) - End If - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(LANGUAGE,String) - End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(8).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 + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ + Public Overloads Overridable Function GetData() As DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable = New DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable End Function End Class @@ -38595,7 +38407,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_FORM_TYPETableAdapter + Partial Public Class TBDD_GROUPS_USERTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -38712,48 +38524,43 @@ 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_FORM_TYPE" + tableMapping.DataSetTable = "TBDD_GROUPS_USER" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("FORM_TYPE", "FORM_TYPE") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") 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_FORM_TYPE] WHERE (([GUID] = @Original_GUID) AND ([FORM_TYPE] ="& _ - " @Original_FORM_TYPE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] "& _ - "= @Original_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL)"& _ - " OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND "& _ - "[CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_GROUPS_USER"&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, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FORM_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_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_FORM_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORM_TYPE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VAL"& _ - "UES (@FORM_TYPE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TYPE, ADDED_WHO, ADDED_W"& _ - "HEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM_TYPE WHERE (GUID = SCOPE_IDENTITY"& _ - "())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USER_ID, GROUP_ID, ADDED_"& _ + "WHO, COMMENT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USER_ID,@GROUP_ID,@ADDED_WHO,@COMMENT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ + "GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM T"& _ + "BDD_GROUPS_USER WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_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("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", 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_FORM_TYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FORM_TYPE = @FORM_TYPE, 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, FORM_TY"& _ - "PE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FORM_TYPE WHERE "& _ - "(GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET USER_ID = @USER_ID, GROUP_ID = "& _ + "@GROUP_ID, CHANGED_WHO = @CHANGED_WHO, COMMENT = @COMMENT"&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, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGE"& _ + "D_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_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("@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("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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 @@ -38771,7 +38578,8 @@ 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_FORM_TYPE.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_TYPE" + Me._commandCollection(0).CommandText = "SELECT GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ + "D_WHEN, COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS_USER" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub @@ -38779,7 +38587,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"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_GROUPS_USERDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -38792,9 +38600,9 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_GROUPS_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable = New DD_DMSDataSet.TBPMO_FORM_TYPEDataTable() + Dim dataTable As DD_DMSDataSet.TBDD_GROUPS_USERDataTable = New DD_DMSDataSet.TBDD_GROUPS_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -38802,7 +38610,7 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_TYPEDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_GROUPS_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -38810,7 +38618,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_FORM_TYPE") + Return Me.Adapter.Update(dataSet, "TBDD_GROUPS_USER") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_FORM_TYPE As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_FORM_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_FORM_TYPE") - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_FORM_TYPE,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(7).Value = Global.System.DBNull.Value - End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -38881,16 +38660,18 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal FORM_TYPE As String, ByVal ADDED_WHO As String) As Integer - If (FORM_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("FORM_TYPE") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TYPE,String) - End If + Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal COMMENT As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) 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) _ @@ -38911,19 +38692,21 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal FORM_TYPE As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (FORM_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("FORM_TYPE") + Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal CHANGED_WHO As String, ByVal COMMENT As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TYPE,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String) End If - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).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 @@ -38949,7 +38732,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_USER_GROUPSTableAdapter + Partial Public Class TBWH_DOKART_MODULETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -39066,42 +38849,10 @@ 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 = "TBDD_USER_GROUPS" - tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.DataSetTable = "TBWH_DOKART_MODULE" + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, ADDED_WHO, COMMENT)"& _ - ""&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@ADDED_WHO,@COMMENT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, ADDED_WHO, AD"& _ - "DED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUPS WHERE (GUID = SCOPE_ID"& _ - "ENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, CHANGED_WHO = @CH"& _ - "ANGED_WHO, COMMENT = @COMMENT"&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 G"& _ - "UID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_USER_GROUP"& _ - "S WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, NAME, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COMME"& _ - "NT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_USER_GROUPS"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY NAME" + Me._commandCollection(0).CommandText = "SELECT TBDD_DOKUMENTART.BEZEICHNUNG, TBDD_MODULES.NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TB"& _ + "DD_DOKUMENTART INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_DOKUMENTART_MODULE ON T"& _ + "BDD_DOKUMENTART.GUID = TBDD_DOKUMENTART_MODULE.DOKART_ID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBDD_MODULES ON TBDD_DOKUMENTART_MODULE.MODULE_ID = TBDD_MODULES.G"& _ + "UID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBDD_DOKUMENTART.GUID = @DokID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "INSERT INTO TBDD_DOKUMENTART_MODULE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOKART_ID, MODULE_"& _ + "ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOK_ID, 0)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOKART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_USER_GROUPSDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBWH_DOKART_MODULEDataTable, ByVal DokID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DokID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -39139,132 +38901,35 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_USER_GROUPSDataTable + Public Overloads Overridable Function GetData(ByVal DokID As Integer) As DD_DMSDataSet.TBWH_DOKART_MODULEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBDD_USER_GROUPSDataTable = New DD_DMSDataSet.TBDD_USER_GROUPSDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DokID,Integer) + Dim dataTable As DD_DMSDataSet.TBWH_DOKART_MODULEDataTable = New DD_DMSDataSet.TBWH_DOKART_MODULEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_USER_GROUPSDataTable) 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, "TBDD_USER_GROUPS") - 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 NAME As String, ByVal ADDED_WHO As String, ByVal COMMENT As String) As Integer - If (NAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(ADDED_WHO,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - _ - Public Overloads Overridable Function Update(ByVal NAME As String, ByVal CHANGED_WHO As String, ByVal COMMENT As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String) - End If - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(4).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.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, false)> _ + Public Overloads Overridable Function InsertDokartModule(ByVal DOK_ID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(DOK_ID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open + command.Connection.Open End If + Dim returnValue As Integer Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue + returnValue = command.ExecuteNonQuery Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close + command.Connection.Close End If End Try + Return returnValue End Function End Class @@ -39277,7 +38942,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class VWPMO_USERS_GROUPSTableAdapter + Partial Public Class TBPMO_FORM_CONSTRUCTORTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -39394,15 +39059,53 @@ 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 = "VWPMO_USERS_GROUPS" + tableMapping.DataSetTable = "TBPMO_FORM_CONSTRUCTOR" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") - tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("PRENAME", "PRENAME") - tableMapping.ColumnMappings.Add("GROUP_NAME", "GROUP_NAME") + tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") + tableMapping.ColumnMappings.Add("SEQUENCE_MENU", "SEQUENCE_MENU") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("MENU_IMG", "MENU_IMG") + tableMapping.ColumnMappings.Add("SHORT_TITLE", "SHORT_TITLE") + tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") 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_FORM_CONSTRUCTOR"&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_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORM_TITLE, SEQUENC"& _ + "E_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FORM_TITLE,@SEQUENCE_"& _ + "MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TITLE, SEQUENCE_MEN"& _ + "U, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM "& _ + "TBPMO_FORM_CONSTRUCTOR WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", 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_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FORM_TITLE = @FORM_TITLE,"& _ + " SEQUENCE_MENU = @SEQUENCE_MENU, CHANGED_WHO = @CHANGED_WHO, MENU_IMG = @MENU_IM"& _ + "G, SHORT_TITLE = @SHORT_TITLE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" LANGUAGE = @LANGUAGE"&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, FORM_TITLE, SEQUENCE_MENU,"& _ + " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TB"& _ + "PMO_FORM_CONSTRUCTOR WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", 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("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable, ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer, ByVal USER_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID,Integer) + Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID,Integer) + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer, ByVal USER_ID As Integer) As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID,Integer) + Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable = New DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable) 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_FORM_CONSTRUCTOR") + 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 FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String) As Integer + If (FORM_TITLE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TITLE,String) End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_MENU,Integer) + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + End If + If (MENU_IMG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(MENU_IMG,Byte()) + End If + If (SHORT_TITLE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SHORT_TITLE,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 GetData() As DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable = New DD_DMSDataSet.VWPMO_USERS_GROUPSDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal CHANGED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (FORM_TITLE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TITLE,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_MENU,Integer) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) + End If + If (MENU_IMG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MENU_IMG,Byte()) + End If + If (SHORT_TITLE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SHORT_TITLE,String) + End If + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LANGUAGE,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try End Function End Class @@ -39456,7 +39323,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_GROUPS_USERTableAdapter + Partial Public Class TBPMO_WD_OBJECTTYPETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -39573,43 +39440,54 @@ 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 = "TBDD_GROUPS_USER" + tableMapping.DataSetTable = "TBPMO_WD_OBJECTTYPE" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") - tableMapping.ColumnMappings.Add("GROUP_ID", "GROUP_ID") + tableMapping.ColumnMappings.Add("OBJECT_TYPE", "OBJECT_TYPE") + tableMapping.ColumnMappings.Add("IDXNAME_ENTITYID", "IDXNAME_ENTITYID") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("IDXNAME_PARENTID", "IDXNAME_PARENTID") + tableMapping.ColumnMappings.Add("IDXNAME_RECORDID", "IDXNAME_RECORDID") + tableMapping.ColumnMappings.Add("IDXNAME_DOCTYPE", "IDXNAME_DOCTYPE") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_WD_OBJECTTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USER_ID, GROUP_ID, ADDED_"& _ - "WHO, COMMENT)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USER_ID,@GROUP_ID,@ADDED_WHO,@COMMENT); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ - "GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM T"& _ - "BDD_GROUPS_USER WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_WD_OBJECTTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (OBJECT_TYPE, IDXNAME_E"& _ + "NTITYID, IDXNAME_PARENTID, ADDED_WHO, IDXNAME_DOCTYPE, IDXNAME_RECORDID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES"& _ + " (@OBJECT_TYPE,@IDXNAME_ENTITYID,@IDXNAME_PARENTID,@ADDED_WHO,@IDXNAME_DO"& _ + "CTYPE,@IDXNAME_RECORDID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, OBJECT_TYPE, IDXNAME_ENTITYID, IDXNAME"& _ + "_PARENTID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_OBJECT"& _ + "TYPE WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_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("@OBJECT_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_ENTITYID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_ENTITYID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_PARENTID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_PARENTID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_DOCTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_DOCTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_RECORDID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_RECORDID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_GROUPS_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET USER_ID = @USER_ID, GROUP_ID = "& _ - "@GROUP_ID, CHANGED_WHO = @CHANGED_WHO, COMMENT = @COMMENT"&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, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGE"& _ - "D_WHO, CHANGED_WHEN FROM TBDD_GROUPS_USER WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_WD_OBJECTTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET OBJECT_TYPE = @OBJECT_TYPE, "& _ + "IDXNAME_ENTITYID = @IDXNAME_ENTITYID, IDXNAME_PARENTID = @IDXNAME_PARENTID, CHAN"& _ + "GED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" IDXNAME_RECORDID = @IDXNAME_R"& _ + "ECORDID, IDXNAME_DOCTYPE = @IDXNAME_DOCTYPE"&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, OBJECT_TYPE, IDXNAME_ENTITYID, IDXNAME_PARENTID, ADDED_WHO, A"& _ + "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_OBJECTTYPE WHERE (GUID = @GUI"& _ + "D)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_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("@OBJECT_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_ENTITYID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_ENTITYID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_PARENTID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_PARENTID", 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("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_RECORDID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_RECORDID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_DOCTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_DOCTYPE", 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 @@ -39627,8 +39505,9 @@ 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 GUID, USER_ID, GROUP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGE"& _ - "D_WHEN, COMMENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_GROUPS_USER" + Me._commandCollection(0).CommandText = "SELECT GUID, OBJECT_TYPE, IDXNAME_ENTITYID, IDXNAME_PARENTID, ADDED_WHO, A"& _ + "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN, IDXNAME_RECORDID, IDXNAME_DOCTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ + " TBPMO_WD_OBJECTTYPE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub @@ -39636,7 +39515,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"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_GROUPS_USERDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -39649,9 +39528,9 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_GROUPS_USERDataTable + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBDD_GROUPS_USERDataTable = New DD_DMSDataSet.TBDD_GROUPS_USERDataTable() + Dim dataTable As DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable = New DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -39659,7 +39538,7 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_GROUPS_USERDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -39667,7 +39546,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, "TBDD_GROUPS_USER") + Return Me.Adapter.Update(dataSet, "TBPMO_WD_OBJECTTYPE") End Function _ - Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal ADDED_WHO As String, ByVal COMMENT As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(GROUP_ID,Integer) + Public Overloads Overridable Function Insert(ByVal OBJECT_TYPE As String, ByVal IDXNAME_ENTITYID As String, ByVal IDXNAME_PARENTID As String, ByVal ADDED_WHO As String, ByVal IDXNAME_DOCTYPE As String, ByVal IDXNAME_RECORDID As String) As Integer + If (OBJECT_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJECT_TYPE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(OBJECT_TYPE,String) + End If + If (IDXNAME_ENTITYID Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDXNAME_ENTITYID") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(IDXNAME_ENTITYID,String) + End If + If (IDXNAME_PARENTID Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDXNAME_PARENTID") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(IDXNAME_PARENTID,String) + End If If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) End If - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + If (IDXNAME_DOCTYPE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(COMMENT,String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(IDXNAME_DOCTYPE,String) + End If + If (IDXNAME_RECORDID Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(IDXNAME_RECORDID,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) _ @@ -39741,21 +39638,39 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal GROUP_ID As Integer, ByVal CHANGED_WHO As String, ByVal COMMENT As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(GROUP_ID,Integer) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Public Overloads Overridable Function Update(ByVal OBJECT_TYPE As String, ByVal IDXNAME_ENTITYID As String, ByVal IDXNAME_PARENTID As String, ByVal CHANGED_WHO As String, ByVal IDXNAME_RECORDID As String, ByVal IDXNAME_DOCTYPE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (OBJECT_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("OBJECT_TYPE") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OBJECT_TYPE,String) End If - If (COMMENT Is Nothing) Then + If (IDXNAME_ENTITYID Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDXNAME_ENTITYID") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(IDXNAME_ENTITYID,String) + End If + If (IDXNAME_PARENTID Is Nothing) Then + Throw New Global.System.ArgumentNullException("IDXNAME_PARENTID") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IDXNAME_PARENTID,String) + End If + If (CHANGED_WHO Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GUID,Integer) + If (IDXNAME_RECORDID Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(IDXNAME_RECORDID,String) + End If + If (IDXNAME_DOCTYPE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(IDXNAME_DOCTYPE,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -39781,7 +39696,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBWH_DOKART_MODULETableAdapter + Partial Public Class TBPMO_FILES_USERTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -39898,10 +39813,61 @@ 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 = "TBWH_DOKART_MODULE" - tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") - tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.DataSetTable = "TBPMO_FILES_USER" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FILENAME2WORK", "FILENAME2WORK") + tableMapping.ColumnMappings.Add("USER_WORK", "USER_WORK") + tableMapping.ColumnMappings.Add("HANDLE_TYPE", "HANDLE_TYPE") + tableMapping.ColumnMappings.Add("WORKED", "WORKED") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_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_FILES_USER] WHERE (([GUID] = @Original_GUID) AND ([FILENAME2WO"& _ + "RK] = @Original_FILENAME2WORK) AND ([USER_WORK] = @Original_USER_WORK) AND ([HAN"& _ + "DLE_TYPE] = @Original_HANDLE_TYPE) AND ([WORKED] = @Original_WORKED) AND ([ADDED"& _ + "_WHEN] = @Original_ADDED_WHEN))" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_FILES_USER] ([FILENAME2WORK], [USER_WORK], [HANDLE_TYPE], [WOR"& _ + "KED], [ADDED_WHEN]) VALUES (@FILENAME2WORK, @USER_WORK, @HANDLE_TYPE, @WORKED, @"& _ + "ADDED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_"& _ + "WHEN FROM TBPMO_FILES_USER WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_FILES_USER] SET [FILENAME2WORK] = @FILENAME2WORK, [USER_WORK] = @US"& _ + "ER_WORK, [HANDLE_TYPE] = @HANDLE_TYPE, [WORKED] = @WORKED, [ADDED_WHEN] = @ADDED"& _ + "_WHEN WHERE (([GUID] = @Original_GUID) AND ([FILENAME2WORK] = @Original_FILENAME"& _ + "2WORK) AND ([USER_WORK] = @Original_USER_WORK) AND ([HANDLE_TYPE] = @Original_HA"& _ + "NDLE_TYPE) AND ([WORKED] = @Original_WORKED) AND ([ADDED_WHEN] = @Original_ADDED"& _ + "_WHEN));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN"& _ + " FROM TBPMO_FILES_USER WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT TBDD_DOKUMENTART.BEZEICHNUNG, TBDD_MODULES.NAME"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TB"& _ - "DD_DOKUMENTART INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBDD_DOKUMENTART_MODULE ON T"& _ - "BDD_DOKUMENTART.GUID = TBDD_DOKUMENTART_MODULE.DOKART_ID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " TBDD_MODULES ON TBDD_DOKUMENTART_MODULE.MODULE_ID = TBDD_MODULES.G"& _ - "UID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TBDD_DOKUMENTART.GUID = @DokID)" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DokID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "INSERT INTO TBDD_DOKUMENTART_MODULE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (DOKART_ID, MODULE_"& _ - "ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@DOK_ID, 0)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOK_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOKART_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ + Private Sub InitCommandCollection() + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} + Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(0).Connection = Me.Connection + Me._commandCollection(0).CommandText = "select * from TBPMO_FILES_USER where UPPER(USER_WORK) = UPPER(@USER)" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "DELETE FROM [TBPMO_FILES_USER] WHERE (([GUID] = @Original_GUID) " + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(2).Connection = Me.Connection + Me._commandCollection(2).CommandText = "INSERT INTO TBPMO_FILES_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FILENAME2WORK, USER_WORK,"& _ + " HANDLE_TYPE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FILENAME2WORK,@USER_WORK,@HANDLE_TYPE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ + "GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN FROM TBPMO_FILES"& _ + "_USER WHERE (GUID = SCOPE_IDENTITY())" + Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_WORK", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(3).Connection = Me.Connection + Me._commandCollection(3).CommandText = "UPDATE TBPMO_FILES_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET WORKED = @WORKED"&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, FILENAME2WORK, USER_WORK, HANDLE_TYPE, W"& _ + "ORKED, ADDED_WHEN FROM TBPMO_FILES_USER WHERE (GUID = @GUID)" + Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKED", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FILES_USERDataTable, ByVal USER As String) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) + End If + If (Me.ClearBeforeFill = true) Then + dataTable.Clear + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overloads Overridable Function GetData(ByVal USER As String) As DD_DMSDataSet.TBPMO_FILES_USERDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) + End If + Dim dataTable As DD_DMSDataSet.TBPMO_FILES_USERDataTable = New DD_DMSDataSet.TBPMO_FILES_USERDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FILES_USERDataTable) 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_FILES_USER") + 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, ByVal Original_FILENAME2WORK As String, ByVal Original_USER_WORK As String, ByVal Original_HANDLE_TYPE As String, ByVal Original_WORKED As Boolean, ByVal Original_ADDED_WHEN As Date) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_FILENAME2WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_FILENAME2WORK") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_FILENAME2WORK,String) + End If + If (Original_USER_WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_USER_WORK") + Else + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_USER_WORK,String) + End If + If (Original_HANDLE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_HANDLE_TYPE") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_HANDLE_TYPE,String) + End If + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_WORKED,Boolean) + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN,Date) + 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 FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date) As Integer + If (FILENAME2WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("FILENAME2WORK") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FILENAME2WORK,String) + End If + If (USER_WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER_WORK") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(USER_WORK,String) + End If + If (HANDLE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("HANDLE_TYPE") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(HANDLE_TYPE,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(WORKED,Boolean) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + 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 FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_FILENAME2WORK As String, ByVal Original_USER_WORK As String, ByVal Original_HANDLE_TYPE As String, ByVal Original_WORKED As Boolean, ByVal Original_ADDED_WHEN As Date, ByVal GUID As Integer) As Integer + If (FILENAME2WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("FILENAME2WORK") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FILENAME2WORK,String) + End If + If (USER_WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER_WORK") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(USER_WORK,String) + End If + If (HANDLE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("HANDLE_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(HANDLE_TYPE,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(WORKED,Boolean) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) + If (Original_FILENAME2WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_FILENAME2WORK") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_FILENAME2WORK,String) + End If + If (Original_USER_WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_USER_WORK") + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_USER_WORK,String) + End If + If (Original_HANDLE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_HANDLE_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_HANDLE_TYPE,String) + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_WORKED,Boolean) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ADDED_WHEN,Date) + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_FILENAME2WORK As String, ByVal Original_USER_WORK As String, ByVal Original_HANDLE_TYPE As String, ByVal Original_WORKED As Boolean, ByVal Original_ADDED_WHEN As Date) As Integer + Return Me.Update(FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN, Original_GUID, Original_FILENAME2WORK, Original_USER_WORK, Original_HANDLE_TYPE, Original_WORKED, Original_ADDED_WHEN, Original_GUID) + End Function _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBWH_DOKART_MODULEDataTable, ByVal DokID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DokID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, false)> _ + Public Overloads Overridable Function cmdDelete(ByVal Original_GUID As Integer, ByVal Original_FILENAME2WORK As String, ByVal Original_USER_WORK As String, ByVal Original_HANDLE_TYPE As String, ByVal Original_WORKED As Boolean, ByVal Original_ADDED_WHEN As Date) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + command.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_FILENAME2WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_FILENAME2WORK") + Else + command.Parameters(1).Value = CType(Original_FILENAME2WORK,String) End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + If (Original_USER_WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_USER_WORK") + Else + command.Parameters(2).Value = CType(Original_USER_WORK,String) + End If + If (Original_HANDLE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_HANDLE_TYPE") + Else + command.Parameters(3).Value = CType(Original_HANDLE_TYPE,String) + End If + command.Parameters(4).Value = CType(Original_WORKED,Boolean) + command.Parameters(5).Value = CType(Original_ADDED_WHEN,Date) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try Return returnValue End Function _ - Public Overloads Overridable Function GetData(ByVal DokID As Integer) As DD_DMSDataSet.TBWH_DOKART_MODULEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DokID,Integer) - Dim dataTable As DD_DMSDataSet.TBWH_DOKART_MODULEDataTable = New DD_DMSDataSet.TBWH_DOKART_MODULEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, false)> _ + Public Overloads Overridable Function cmdInsert(ByVal FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) + If (FILENAME2WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("FILENAME2WORK") + Else + command.Parameters(0).Value = CType(FILENAME2WORK,String) + End If + If (USER_WORK Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER_WORK") + Else + command.Parameters(1).Value = CType(USER_WORK,String) + End If + If (HANDLE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("HANDLE_TYPE") + Else + command.Parameters(2).Value = CType(HANDLE_TYPE,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Integer + Try + returnValue = command.ExecuteNonQuery + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + Return returnValue End Function _ - Public Overloads Overridable Function InsertDokartModule(ByVal DOK_ID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(DOK_ID,Integer) + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, false)> _ + Public Overloads Overridable Function cmdsetworked(ByVal WORKED As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) + command.Parameters(0).Value = CType(WORKED,Boolean) + command.Parameters(1).Value = CType(Original_GUID,Integer) + command.Parameters(2).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -39991,7 +40230,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_FORM_CONSTRUCTORTableAdapter + Partial Public Class TBPMO_FOLLOW_UP_EMAILTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -40108,51 +40347,124 @@ 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_FORM_CONSTRUCTOR" + tableMapping.DataSetTable = "TBPMO_FOLLOW_UP_EMAIL" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") - tableMapping.ColumnMappings.Add("SEQUENCE_MENU", "SEQUENCE_MENU") + tableMapping.ColumnMappings.Add("FOLLOW_UP_SEQUENCE", "FOLLOW_UP_SEQUENCE") + tableMapping.ColumnMappings.Add("FOLLOW_UP_DAYS", "FOLLOW_UP_DAYS") + tableMapping.ColumnMappings.Add("FOLLOW_UP_TIME_SPAN", "FOLLOW_UP_TIME_SPAN") + tableMapping.ColumnMappings.Add("DEPENDENT_DATE_CTRL_ID", "DEPENDENT_DATE_CTRL_ID") + tableMapping.ColumnMappings.Add("DEPENDENT_DONE_CTRL_ID", "DEPENDENT_DONE_CTRL_ID") + tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") + tableMapping.ColumnMappings.Add("TIME_UNITY", "TIME_UNITY") + tableMapping.ColumnMappings.Add("TIME_SPAN", "TIME_SPAN") + tableMapping.ColumnMappings.Add("EMAIL_SUBJECT", "EMAIL_SUBJECT") + tableMapping.ColumnMappings.Add("EMAIL_BODY", "EMAIL_BODY") + tableMapping.ColumnMappings.Add("PROCESS_SELECT1", "PROCESS_SELECT1") + tableMapping.ColumnMappings.Add("PROCESS_SELECT2", "PROCESS_SELECT2") + tableMapping.ColumnMappings.Add("PROCESS_SELECT3", "PROCESS_SELECT3") + tableMapping.ColumnMappings.Add("PROCESS_SELECT4", "PROCESS_SELECT4") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("MENU_IMG", "MENU_IMG") - tableMapping.ColumnMappings.Add("SHORT_TITLE", "SHORT_TITLE") - tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") + tableMapping.ColumnMappings.Add("TIME_DIST", "TIME_DIST") + tableMapping.ColumnMappings.Add("PROCESS_SELECT5", "PROCESS_SELECT5") + tableMapping.ColumnMappings.Add("PROCESS_SELECT6", "PROCESS_SELECT6") + tableMapping.ColumnMappings.Add("PROCESS_SELECT7", "PROCESS_SELECT7") + tableMapping.ColumnMappings.Add("PROCESS_SELECT8", "PROCESS_SELECT8") + tableMapping.ColumnMappings.Add("PROCESS_SELECT9", "PROCESS_SELECT9") + tableMapping.ColumnMappings.Add("PROCESS_SELECT10", "PROCESS_SELECT10") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("CONSTRUCTOR_ID", "CONSTRUCTOR_ID") 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_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FOLLOW_UP_EMAIL"&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_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FORM_TITLE, SEQUENC"& _ - "E_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FORM_TITLE,@SEQUENCE_"& _ - "MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FORM_TITLE, SEQUENCE_MEN"& _ - "U, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM "& _ - "TBPMO_FORM_CONSTRUCTOR WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FOLLOW_UP_EMAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FOLLOW_UP_SEQUENCE, "& _ + "FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL"& _ + "_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, EMAIL_SUBJECT, EMAIL_BODY,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " PROCESS_SELECT1, PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4,"& _ + " ACTIVE, ADDED_WHO, TIME_DIST, NAME, CONSTRUCTOR_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FOLLOW_UP_"& _ + "SEQUENCE,@FOLLOW_UP_DAYS,@FOLLOW_UP_TIME_SPAN,@DEPENDENT_DATE_CTRL_ID,@DEPENDENT"& _ + "_DONE_CTRL_ID,@PARENT_ID,@TIME_UNITY,@TIME_SPAN,@EMAIL_SUBJECT,@EMAIL_BODY,@PROC"& _ + "ESS_SELECT1,@PROCESS_SELECT2,@PROCESS_SELECT3,@PROCESS_SELECT4,@ACTIVE,@ADDED_WH"& _ + "O,@TIME_DIST,@NAME,@CONSTRUCTOR_ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FOLLOW_UP_SEQUENCE, FOLLO"& _ + "W_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL_ID, "& _ + "PARENT_ID, TIME_UNITY, TIME_SPAN, EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, PR"& _ + "OCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, ACTIVE, ADDED_WHO, ADDED_WHEN, "& _ + "CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FOLLOW_UP_EMAIL WHERE (GUID = SCOPE_IDENTIT"& _ + "Y())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_SEQUENCE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_DAYS", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_DAYS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_TIME_SPAN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_TIME_SPAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEPENDENT_DATE_CTRL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEPENDENT_DATE_CTRL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEPENDENT_DONE_CTRL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEPENDENT_DONE_CTRL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_UNITY", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_UNITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_SPAN", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_SPAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT1", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT2", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT3", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT4", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_DIST", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_DIST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCTOR_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCTOR_ID", 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_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FORM_TITLE = @FORM_TITLE,"& _ - " SEQUENCE_MENU = @SEQUENCE_MENU, CHANGED_WHO = @CHANGED_WHO, MENU_IMG = @MENU_IM"& _ - "G, SHORT_TITLE = @SHORT_TITLE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" LANGUAGE = @LANGUAGE"&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, FORM_TITLE, SEQUENCE_MENU,"& _ - " ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM TB"& _ - "PMO_FORM_CONSTRUCTOR WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FOLLOW_UP_EMAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FOLLOW_UP_SEQUENCE = @FOLL"& _ + "OW_UP_SEQUENCE, FOLLOW_UP_DAYS = @FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN = @FOLLOW_"& _ + "UP_TIME_SPAN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" DEPENDENT_DATE_CTRL_ID = @DEPENDENT_DAT"& _ + "E_CTRL_ID, DEPENDENT_DONE_CTRL_ID = @DEPENDENT_DONE_CTRL_ID, PARENT_ID = @PARENT"& _ + "_ID, TIME_UNITY = @TIME_UNITY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TIME_SPAN = @TIME_SPAN"& _ + ", EMAIL_SUBJECT = @EMAIL_SUBJECT, EMAIL_BODY = @EMAIL_BODY, PROCESS_SELECT1 = @P"& _ + "ROCESS_SELECT1, PROCESS_SELECT2 = @PROCESS_SELECT2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" P"& _ + "ROCESS_SELECT3 = @PROCESS_SELECT3, PROCESS_SELECT4 = @PROCESS_SELECT4, ACTIVE = "& _ + "@ACTIVE, CHANGED_WHO = @CHANGED_WHO, TIME_DIST = @TIME_DIST, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " PROCESS_SELECT5 = @PROCESS_SELECT5, PROCESS_SELECT6 = @PROCESS_SELECT6, "& _ + "PROCESS_SELECT7 = @PROCESS_SELECT7, PROCESS_SELECT8 = @PROCESS_SELECT8, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " PROCESS_SELECT9 = @PROCESS_SELECT9, PROCESS_SELECT10 = @PROCE"& _ + "SS_SELECT10, NAME = @NAME, CONSTRUCTOR_ID = @CONSTRUCTOR_ID"&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, FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_"& _ + "UP_TIME_SPAN, DEPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL_ID, PARENT_ID, TIME_UN"& _ + "ITY, TIME_SPAN, EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, PROCESS_SELECT2, PRO"& _ + "CESS_SELECT3, PROCESS_SELECT4, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANG"& _ + "ED_WHEN FROM TBPMO_FOLLOW_UP_EMAIL WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_SEQUENCE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_DAYS", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_DAYS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_TIME_SPAN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_TIME_SPAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEPENDENT_DATE_CTRL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEPENDENT_DATE_CTRL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEPENDENT_DONE_CTRL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEPENDENT_DONE_CTRL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_UNITY", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_UNITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_SPAN", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_SPAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT1", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT2", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT3", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT4", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_DIST", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_DIST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT5", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT6", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT7", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT8", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT9", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT10", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCTOR_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCTOR_ID", 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 @@ -40170,35 +40482,22 @@ 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 GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'CONSTR_MENUE' + CONVER"& _ - "T(VARCHAR(5), GUID), @SCREEN_ID) AS FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_"& _ - "WHEN, CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHEN, MENU_IMG, SHORT_TITL"& _ - "E, LANGUAGE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " (SELECT DISTINCT CONSTRUCT_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FROM TBPMO_CLIENT_CONSTRUCTOR"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - "WHERE (CLIENT_ID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " (SELECT CLIENT_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " FROM TBDD_CLIENT_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WHERE (USER_ID = @USER_ID)))))" + Me._commandCollection(0).CommandText = "SELECT GUID, FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPE"& _ + "NDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, TI"& _ + "ME_DIST, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, "& _ + "PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, PROCESS_SELECT5, PROCESS_SELE"& _ + "CT6, PROCESS_SELECT7, PROCESS_SELECT8, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" PROCESS_SELECT"& _ + "9, PROCESS_SELECT10, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, N"& _ + "AME, CONSTRUCTOR_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FOLLOW_UP_EMAIL" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable, ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer, ByVal USER_ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) - End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID,Integer) - Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -40210,16 +40509,9 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer, ByVal USER_ID As Integer) As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) - End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID,Integer) - Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID,Integer) - Dim dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable = New DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable() + Dim dataTable As DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable = New DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -40227,7 +40519,7 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTORDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -40235,7 +40527,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_FORM_CONSTRUCTOR") + Return Me.Adapter.Update(dataSet, "TBPMO_FOLLOW_UP_EMAIL") End Function _ - Public Overloads Overridable Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String) As Integer - If (FORM_TITLE Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Public Overloads Overridable Function Insert( _ + ByVal FOLLOW_UP_SEQUENCE As String, _ + ByVal FOLLOW_UP_DAYS As String, _ + ByVal FOLLOW_UP_TIME_SPAN As String, _ + ByVal DEPENDENT_DATE_CTRL_ID As Integer, _ + ByVal DEPENDENT_DONE_CTRL_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal TIME_UNITY As String, _ + ByVal TIME_SPAN As Integer, _ + ByVal EMAIL_SUBJECT As String, _ + ByVal EMAIL_BODY As String, _ + ByVal PROCESS_SELECT1 As String, _ + ByVal PROCESS_SELECT2 As String, _ + ByVal PROCESS_SELECT3 As String, _ + ByVal PROCESS_SELECT4 As String, _ + ByVal ACTIVE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal TIME_DIST As String, _ + ByVal NAME As String, _ + ByVal CONSTRUCTOR_ID As Integer) As Integer + If (FOLLOW_UP_SEQUENCE Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLLOW_UP_SEQUENCE") Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TITLE,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FOLLOW_UP_SEQUENCE,String) End If - Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_MENU,Integer) + If (FOLLOW_UP_DAYS Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLLOW_UP_DAYS") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(FOLLOW_UP_DAYS,String) + End If + If (FOLLOW_UP_TIME_SPAN Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLLOW_UP_TIME_SPAN") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(FOLLOW_UP_TIME_SPAN,String) + End If + Me.Adapter.InsertCommand.Parameters(3).Value = CType(DEPENDENT_DATE_CTRL_ID,Integer) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(DEPENDENT_DONE_CTRL_ID,Integer) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(PARENT_ID,Integer) + If (TIME_UNITY Is Nothing) Then + Throw New Global.System.ArgumentNullException("TIME_UNITY") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(TIME_UNITY,String) + End If + Me.Adapter.InsertCommand.Parameters(7).Value = CType(TIME_SPAN,Integer) + If (EMAIL_SUBJECT Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_SUBJECT") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(EMAIL_SUBJECT,String) + End If + If (EMAIL_BODY Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY") + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(EMAIL_BODY,String) + End If + If (PROCESS_SELECT1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT1") + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(PROCESS_SELECT1,String) + End If + If (PROCESS_SELECT2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT2") + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(PROCESS_SELECT2,String) + End If + If (PROCESS_SELECT3 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT3") + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(PROCESS_SELECT3,String) + End If + If (PROCESS_SELECT4 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT4") + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(PROCESS_SELECT4,String) + End If + Me.Adapter.InsertCommand.Parameters(14).Value = CType(ACTIVE,Boolean) If (ADDED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(15).Value = CType(ADDED_WHO,String) End If - If (MENU_IMG Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + If (TIME_DIST Is Nothing) Then + Throw New Global.System.ArgumentNullException("TIME_DIST") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(MENU_IMG,Byte()) + Me.Adapter.InsertCommand.Parameters(16).Value = CType(TIME_DIST,String) End If - If (SHORT_TITLE Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") + Else + Me.Adapter.InsertCommand.Parameters(17).Value = CType(NAME,String) + End If + Me.Adapter.InsertCommand.Parameters(18).Value = CType(CONSTRUCTOR_ID,Integer) + 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 FOLLOW_UP_SEQUENCE As String, _ + ByVal FOLLOW_UP_DAYS As String, _ + ByVal FOLLOW_UP_TIME_SPAN As String, _ + ByVal DEPENDENT_DATE_CTRL_ID As Integer, _ + ByVal DEPENDENT_DONE_CTRL_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal TIME_UNITY As String, _ + ByVal TIME_SPAN As Integer, _ + ByVal EMAIL_SUBJECT As String, _ + ByVal EMAIL_BODY As String, _ + ByVal PROCESS_SELECT1 As String, _ + ByVal PROCESS_SELECT2 As String, _ + ByVal PROCESS_SELECT3 As String, _ + ByVal PROCESS_SELECT4 As String, _ + ByVal ACTIVE As Boolean, _ + ByVal CHANGED_WHO As String, _ + ByVal TIME_DIST As String, _ + ByVal PROCESS_SELECT5 As String, _ + ByVal PROCESS_SELECT6 As String, _ + ByVal PROCESS_SELECT7 As String, _ + ByVal PROCESS_SELECT8 As String, _ + ByVal PROCESS_SELECT9 As String, _ + ByVal PROCESS_SELECT10 As String, _ + ByVal NAME As String, _ + ByVal CONSTRUCTOR_ID As Integer, _ + ByVal Original_GUID As Integer, _ + ByVal GUID As Integer) As Integer + If (FOLLOW_UP_SEQUENCE Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLLOW_UP_SEQUENCE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FOLLOW_UP_SEQUENCE,String) + End If + If (FOLLOW_UP_DAYS Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLLOW_UP_DAYS") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FOLLOW_UP_DAYS,String) + End If + If (FOLLOW_UP_TIME_SPAN Is Nothing) Then + Throw New Global.System.ArgumentNullException("FOLLOW_UP_TIME_SPAN") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FOLLOW_UP_TIME_SPAN,String) + End If + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DEPENDENT_DATE_CTRL_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DEPENDENT_DONE_CTRL_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PARENT_ID,Integer) + If (TIME_UNITY Is Nothing) Then + Throw New Global.System.ArgumentNullException("TIME_UNITY") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(TIME_UNITY,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(TIME_SPAN,Integer) + If (EMAIL_SUBJECT Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_SUBJECT") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(EMAIL_SUBJECT,String) + End If + If (EMAIL_BODY Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_BODY") + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(EMAIL_BODY,String) + End If + If (PROCESS_SELECT1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT1") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(PROCESS_SELECT1,String) + End If + If (PROCESS_SELECT2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT2") + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(PROCESS_SELECT2,String) + End If + If (PROCESS_SELECT3 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT3") + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(PROCESS_SELECT3,String) + End If + If (PROCESS_SELECT4 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT4") + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(PROCESS_SELECT4,String) + End If + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(ACTIVE,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(CHANGED_WHO,String) + End If + If (TIME_DIST Is Nothing) Then + Throw New Global.System.ArgumentNullException("TIME_DIST") + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(TIME_DIST,String) + End If + If (PROCESS_SELECT5 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT5") Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(SHORT_TITLE,String) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(PROCESS_SELECT5,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 + If (PROCESS_SELECT6 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT6") + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(PROCESS_SELECT6,String) 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 FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal CHANGED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (FORM_TITLE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + If (PROCESS_SELECT7 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT7") Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TITLE,String) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(PROCESS_SELECT7,String) End If - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_MENU,Integer) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + If (PROCESS_SELECT8 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT8") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(PROCESS_SELECT8,String) End If - If (MENU_IMG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + If (PROCESS_SELECT9 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT9") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MENU_IMG,Byte()) + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(PROCESS_SELECT9,String) End If - If (SHORT_TITLE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + If (PROCESS_SELECT10 Is Nothing) Then + Throw New Global.System.ArgumentNullException("PROCESS_SELECT10") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SHORT_TITLE,String) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(PROCESS_SELECT10,String) End If - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LANGUAGE,String) + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(NAME,String) End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(CONSTRUCTOR_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(26).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 @@ -40372,7 +40835,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_WD_OBJECTTYPETableAdapter + Partial Public Class TBPMO_FOLLUPEMAIL_USERTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -40489,54 +40952,40 @@ 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_WD_OBJECTTYPE" + tableMapping.DataSetTable = "TBPMO_FOLLUPEMAIL_USER" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("OBJECT_TYPE", "OBJECT_TYPE") - tableMapping.ColumnMappings.Add("IDXNAME_ENTITYID", "IDXNAME_ENTITYID") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") + tableMapping.ColumnMappings.Add("FOLLOW_UP_ID", "FOLLOW_UP_ID") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("IDXNAME_PARENTID", "IDXNAME_PARENTID") - tableMapping.ColumnMappings.Add("IDXNAME_RECORDID", "IDXNAME_RECORDID") - tableMapping.ColumnMappings.Add("IDXNAME_DOCTYPE", "IDXNAME_DOCTYPE") 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_WD_OBJECTTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FOLLUPEMAIL_USER"&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_WD_OBJECTTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (OBJECT_TYPE, IDXNAME_E"& _ - "NTITYID, IDXNAME_PARENTID, ADDED_WHO, IDXNAME_DOCTYPE, IDXNAME_RECORDID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES"& _ - " (@OBJECT_TYPE,@IDXNAME_ENTITYID,@IDXNAME_PARENTID,@ADDED_WHO,@IDXNAME_DO"& _ - "CTYPE,@IDXNAME_RECORDID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, OBJECT_TYPE, IDXNAME_ENTITYID, IDXNAME"& _ - "_PARENTID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_OBJECT"& _ - "TYPE WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FOLLUPEMAIL_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USER_ID, FOLLOW_UP_"& _ + "ID, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USER_ID,@FOLLOW_UP_ID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ + ", USER_ID, FOLLOW_UP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM T"& _ + "BPMO_FOLLUPEMAIL_USER WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_ENTITYID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_ENTITYID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_PARENTID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_PARENTID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_DOCTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_DOCTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_RECORDID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_RECORDID", 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_WD_OBJECTTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET OBJECT_TYPE = @OBJECT_TYPE, "& _ - "IDXNAME_ENTITYID = @IDXNAME_ENTITYID, IDXNAME_PARENTID = @IDXNAME_PARENTID, CHAN"& _ - "GED_WHO = @CHANGED_WHO, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" IDXNAME_RECORDID = @IDXNAME_R"& _ - "ECORDID, IDXNAME_DOCTYPE = @IDXNAME_DOCTYPE"&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, OBJECT_TYPE, IDXNAME_ENTITYID, IDXNAME_PARENTID, ADDED_WHO, A"& _ - "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_OBJECTTYPE WHERE (GUID = @GUI"& _ - "D)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FOLLUPEMAIL_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET USER_ID = @USER_ID, FOLLO"& _ + "W_UP_ID = @FOLLOW_UP_ID, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origi"& _ + "nal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, FOLLOW_UP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_"& _ + "WHO, CHANGED_WHEN FROM TBPMO_FOLLUPEMAIL_USER WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OBJECT_TYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OBJECT_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_ENTITYID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_ENTITYID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_PARENTID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_PARENTID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_ID", 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("@IDXNAME_RECORDID", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_RECORDID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDXNAME_DOCTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDXNAME_DOCTYPE", 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 @@ -40554,9 +41003,7 @@ 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 GUID, OBJECT_TYPE, IDXNAME_ENTITYID, IDXNAME_PARENTID, ADDED_WHO, A"& _ - "DDED_WHEN, CHANGED_WHO, CHANGED_WHEN, IDXNAME_RECORDID, IDXNAME_DOCTYPE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBPMO_WD_OBJECTTYPE" + Me._commandCollection(0).CommandText = "SELECT TBPMO_FOLLUPEMAIL_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FOLLUPEMAIL_USER" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub @@ -40564,7 +41011,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"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -40577,9 +41024,9 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable = New DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable() + Dim dataTable As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable = New DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -40587,7 +41034,7 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_OBJECTTYPEDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -40595,7 +41042,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_WD_OBJECTTYPE") + Return Me.Adapter.Update(dataSet, "TBPMO_FOLLUPEMAIL_USER") End Function _ - Public Overloads Overridable Function Insert(ByVal OBJECT_TYPE As String, ByVal IDXNAME_ENTITYID As String, ByVal IDXNAME_PARENTID As String, ByVal ADDED_WHO As String, ByVal IDXNAME_DOCTYPE As String, ByVal IDXNAME_RECORDID As String) As Integer - If (OBJECT_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJECT_TYPE") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(OBJECT_TYPE,String) - End If - If (IDXNAME_ENTITYID Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDXNAME_ENTITYID") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(IDXNAME_ENTITYID,String) - End If - If (IDXNAME_PARENTID Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDXNAME_PARENTID") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(IDXNAME_PARENTID,String) - End If + Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal FOLLOW_UP_ID As Integer, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(FOLLOW_UP_ID,Integer) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) - End If - If (IDXNAME_DOCTYPE Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(IDXNAME_DOCTYPE,String) - End If - If (IDXNAME_RECORDID Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(IDXNAME_RECORDID,String) + Me.Adapter.InsertCommand.Parameters(2).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) _ @@ -40687,39 +41111,16 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal OBJECT_TYPE As String, ByVal IDXNAME_ENTITYID As String, ByVal IDXNAME_PARENTID As String, ByVal CHANGED_WHO As String, ByVal IDXNAME_RECORDID As String, ByVal IDXNAME_DOCTYPE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (OBJECT_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("OBJECT_TYPE") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(OBJECT_TYPE,String) - End If - If (IDXNAME_ENTITYID Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDXNAME_ENTITYID") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(IDXNAME_ENTITYID,String) - End If - If (IDXNAME_PARENTID Is Nothing) Then - Throw New Global.System.ArgumentNullException("IDXNAME_PARENTID") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(IDXNAME_PARENTID,String) - End If + Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal FOLLOW_UP_ID As Integer, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FOLLOW_UP_ID,Integer) If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) - End If - If (IDXNAME_RECORDID Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(IDXNAME_RECORDID,String) - End If - If (IDXNAME_DOCTYPE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(IDXNAME_DOCTYPE,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(4).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 @@ -40745,7 +41146,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_FILES_USERTableAdapter + Partial Public Class TBPMO_RECORD_LOG_CONFIGTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -40862,61 +41263,48 @@ 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_FILES_USER" + tableMapping.DataSetTable = "TBPMO_RECORD_LOG_CONFIG" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("FILENAME2WORK", "FILENAME2WORK") - tableMapping.ColumnMappings.Add("USER_WORK", "USER_WORK") - tableMapping.ColumnMappings.Add("HANDLE_TYPE", "HANDLE_TYPE") - tableMapping.ColumnMappings.Add("WORKED", "WORKED") + tableMapping.ColumnMappings.Add("CONTROL_ID", "CONTROL_ID") + tableMapping.ColumnMappings.Add("LOG_DELETE", "LOG_DELETE") + tableMapping.ColumnMappings.Add("LOG_UPDATE", "LOG_UPDATE") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("FORM_ID1", "FORM_ID1") + tableMapping.ColumnMappings.Add("String", "String") 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_FILES_USER] WHERE (([GUID] = @Original_GUID) AND ([FILENAME2WO"& _ - "RK] = @Original_FILENAME2WORK) AND ([USER_WORK] = @Original_USER_WORK) AND ([HAN"& _ - "DLE_TYPE] = @Original_HANDLE_TYPE) AND ([WORKED] = @Original_WORKED) AND ([ADDED"& _ - "_WHEN] = @Original_ADDED_WHEN))" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_RECORD_LOG_CONFIG"&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, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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_FILES_USER] ([FILENAME2WORK], [USER_WORK], [HANDLE_TYPE], [WOR"& _ - "KED], [ADDED_WHEN]) VALUES (@FILENAME2WORK, @USER_WORK, @HANDLE_TYPE, @WORKED, @"& _ - "ADDED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_"& _ - "WHEN FROM TBPMO_FILES_USER WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_RECORD_LOG_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONTROL_ID, LOG_DE"& _ + "LETE, LOG_UPDATE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONTROL_ID,@LOG_DELETE,@LOG_UPDATE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _ + " GUID, CONTROL_ID, LOG_DELETE, LOG_UPDATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"& _ + " FROM TBPMO_RECORD_LOG_CONFIG WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_DELETE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_DELETE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_UPDATE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_UPDATE", 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_FILES_USER] SET [FILENAME2WORK] = @FILENAME2WORK, [USER_WORK] = @US"& _ - "ER_WORK, [HANDLE_TYPE] = @HANDLE_TYPE, [WORKED] = @WORKED, [ADDED_WHEN] = @ADDED"& _ - "_WHEN WHERE (([GUID] = @Original_GUID) AND ([FILENAME2WORK] = @Original_FILENAME"& _ - "2WORK) AND ([USER_WORK] = @Original_USER_WORK) AND ([HANDLE_TYPE] = @Original_HA"& _ - "NDLE_TYPE) AND ([WORKED] = @Original_WORKED) AND ([ADDED_WHEN] = @Original_ADDED"& _ - "_WHEN));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN"& _ - " FROM TBPMO_FILES_USER WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_RECORD_LOG_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONTROL_ID = @CONTROL_ID"& _ + ", LOG_DELETE = @LOG_DELETE, LOG_UPDATE = @LOG_UPDATE, 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, CONTROL_ID, LOG_DELETE, "& _ + "LOG_UPDATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RECORD_LOG_CONFIG W"& _ + "HERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_DELETE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_DELETE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_UPDATE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_UPDATE", 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 InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(3) {} + 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 * from TBPMO_FILES_USER where UPPER(USER_WORK) = UPPER(@USER)" + Me._commandCollection(0).CommandText = "SELECT TBPMO_RECORD_LOG_CONFIG.GUID, TBPMO_RECORD_LOG_CONFIG.CONTROL_ID, T"& _ + "BPMO_RECORD_LOG_CONFIG.LOG_DELETE, TBPMO_RECORD_LOG_CONFIG.LOG_UPDATE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBPMO_RECORD_LOG_CONFIG.ADDED_WHEN, TBPMO_RECORD_LOG_CONFIG.CH"& _ + "ANGED_WHO, TBPMO_RECORD_LOG_CONFIG.CHANGED_WHEN, TBPMO_CONTROL.FORM_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " TBPMO_FORM.GUID AS FORM_ID, TBPMO_FORM.NAME, TBPMO_FORM.NAME "& _ + "+ ' - ' + TBPMO_CONTROL.NAME AS String"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_RECORD_LOG_CONFIG "& _ + "INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_CONTROL ON TBPMO_RECORD_LOG_CONFIG.CO"& _ + "NTROL_ID = TBPMO_CONTROL.GUID INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_FORM ON"& _ + " TBPMO_CONTROL.FORM_ID = TBPMO_FORM.GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY TBPMO_FORM.NAME, TBPMO_CONTRO"& _ + "L.NAME" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "DELETE FROM [TBPMO_FILES_USER] WHERE (([GUID] = @Original_GUID) " - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USER_WORK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_WORKED", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(2) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(2).Connection = Me.Connection - Me._commandCollection(2).CommandText = "INSERT INTO TBPMO_FILES_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FILENAME2WORK, USER_WORK,"& _ - " HANDLE_TYPE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FILENAME2WORK,@USER_WORK,@HANDLE_TYPE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT "& _ - "GUID, FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN FROM TBPMO_FILES"& _ - "_USER WHERE (GUID = SCOPE_IDENTITY())" - Me._commandCollection(2).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FILENAME2WORK", Global.System.Data.SqlDbType.VarChar, 500, Global.System.Data.ParameterDirection.Input, 0, 0, "FILENAME2WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_WORK", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_WORK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(2).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HANDLE_TYPE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "HANDLE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(3).Connection = Me.Connection - Me._commandCollection(3).CommandText = "UPDATE TBPMO_FILES_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET WORKED = @WORKED"&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, FILENAME2WORK, USER_WORK, HANDLE_TYPE, W"& _ - "ORKED, ADDED_WHEN FROM TBPMO_FILES_USER WHERE (GUID = @GUID)" - Me._commandCollection(3).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WORKED", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._commandCollection(3).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FILES_USERDataTable, ByVal USER As String) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (USER Is Nothing) Then - Throw New Global.System.ArgumentNullException("USER") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) - End If If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -40988,14 +41350,9 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal USER As String) As DD_DMSDataSet.TBPMO_FILES_USERDataTable + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (USER Is Nothing) Then - Throw New Global.System.ArgumentNullException("USER") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USER,String) - End If - Dim dataTable As DD_DMSDataSet.TBPMO_FILES_USERDataTable = New DD_DMSDataSet.TBPMO_FILES_USERDataTable() + Dim dataTable As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable = New DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -41003,7 +41360,7 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FILES_USERDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -41011,7 +41368,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_FILES_USER") + Return Me.Adapter.Update(dataSet, "TBPMO_RECORD_LOG_CONFIG") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_FILENAME2WORK As String, ByVal Original_USER_WORK As String, ByVal Original_HANDLE_TYPE As String, ByVal Original_WORKED As Boolean, ByVal Original_ADDED_WHEN As Date) As Integer + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_FILENAME2WORK Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_FILENAME2WORK") - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_FILENAME2WORK,String) - End If - If (Original_USER_WORK Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_USER_WORK") - Else - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_USER_WORK,String) - End If - If (Original_HANDLE_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_HANDLE_TYPE") - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_HANDLE_TYPE,String) - End If - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_WORKED,Boolean) - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(Original_ADDED_WHEN,Date) 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 @@ -41070,203 +41410,53 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date) As Integer - If (FILENAME2WORK Is Nothing) Then - Throw New Global.System.ArgumentNullException("FILENAME2WORK") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(FILENAME2WORK,String) - End If - If (USER_WORK Is Nothing) Then - Throw New Global.System.ArgumentNullException("USER_WORK") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(USER_WORK,String) - End If - If (HANDLE_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("HANDLE_TYPE") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(HANDLE_TYPE,String) - End If - Me.Adapter.InsertCommand.Parameters(3).Value = CType(WORKED,Boolean) - Me.Adapter.InsertCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) + Public Overloads Overridable Function Insert(ByVal CONTROL_ID As Integer, ByVal LOG_DELETE As Boolean, ByVal LOG_UPDATE As Boolean) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONTROL_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(LOG_DELETE,Boolean) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(LOG_UPDATE,Boolean) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then Me.Adapter.InsertCommand.Connection.Open End If Try - Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.InsertCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_FILENAME2WORK As String, ByVal Original_USER_WORK As String, ByVal Original_HANDLE_TYPE As String, ByVal Original_WORKED As Boolean, ByVal Original_ADDED_WHEN As Date, ByVal GUID As Integer) As Integer - If (FILENAME2WORK Is Nothing) Then - Throw New Global.System.ArgumentNullException("FILENAME2WORK") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FILENAME2WORK,String) - End If - If (USER_WORK Is Nothing) Then - Throw New Global.System.ArgumentNullException("USER_WORK") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(USER_WORK,String) - End If - If (HANDLE_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("HANDLE_TYPE") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(HANDLE_TYPE,String) - End If - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(WORKED,Boolean) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(ADDED_WHEN,Date) - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) - If (Original_FILENAME2WORK Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_FILENAME2WORK") - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_FILENAME2WORK,String) - End If - If (Original_USER_WORK Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_USER_WORK") - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_USER_WORK,String) - End If - If (Original_HANDLE_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_HANDLE_TYPE") - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(Original_HANDLE_TYPE,String) - End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_WORKED,Boolean) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_ADDED_WHEN,Date) - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.UpdateCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.UpdateCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Update(ByVal FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String, ByVal WORKED As Boolean, ByVal ADDED_WHEN As Date, ByVal Original_GUID As Integer, ByVal Original_FILENAME2WORK As String, ByVal Original_USER_WORK As String, ByVal Original_HANDLE_TYPE As String, ByVal Original_WORKED As Boolean, ByVal Original_ADDED_WHEN As Date) As Integer - Return Me.Update(FILENAME2WORK, USER_WORK, HANDLE_TYPE, WORKED, ADDED_WHEN, Original_GUID, Original_FILENAME2WORK, Original_USER_WORK, Original_HANDLE_TYPE, Original_WORKED, Original_ADDED_WHEN, Original_GUID) - End Function - - _ - Public Overloads Overridable Function cmdDelete(ByVal Original_GUID As Integer, ByVal Original_FILENAME2WORK As String, ByVal Original_USER_WORK As String, ByVal Original_HANDLE_TYPE As String, ByVal Original_WORKED As Boolean, ByVal Original_ADDED_WHEN As Date) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - command.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_FILENAME2WORK Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_FILENAME2WORK") - Else - command.Parameters(1).Value = CType(Original_FILENAME2WORK,String) - End If - If (Original_USER_WORK Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_USER_WORK") - Else - command.Parameters(2).Value = CType(Original_USER_WORK,String) - End If - If (Original_HANDLE_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_HANDLE_TYPE") - Else - command.Parameters(3).Value = CType(Original_HANDLE_TYPE,String) - End If - command.Parameters(4).Value = CType(Original_WORKED,Boolean) - command.Parameters(5).Value = CType(Original_ADDED_WHEN,Date) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - Return returnValue - End Function - - _ - Public Overloads Overridable Function cmdInsert(ByVal FILENAME2WORK As String, ByVal USER_WORK As String, ByVal HANDLE_TYPE As String) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(2) - If (FILENAME2WORK Is Nothing) Then - Throw New Global.System.ArgumentNullException("FILENAME2WORK") - Else - command.Parameters(0).Value = CType(FILENAME2WORK,String) - End If - If (USER_WORK Is Nothing) Then - Throw New Global.System.ArgumentNullException("USER_WORK") - Else - command.Parameters(1).Value = CType(USER_WORK,String) - End If - If (HANDLE_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("HANDLE_TYPE") - Else - command.Parameters(2).Value = CType(HANDLE_TYPE,String) - End If - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Integer - Try - returnValue = command.ExecuteNonQuery + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.InsertCommand.Connection.Close End If End Try - Return returnValue End Function _ - Public Overloads Overridable Function cmdsetworked(ByVal WORKED As Boolean, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(3) - command.Parameters(0).Value = CType(WORKED,Boolean) - command.Parameters(1).Value = CType(Original_GUID,Integer) - command.Parameters(2).Value = CType(GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update(ByVal CONTROL_ID As Integer, ByVal LOG_DELETE As Boolean, ByVal LOG_UPDATE 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(CONTROL_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LOG_DELETE,Boolean) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LOG_UPDATE,Boolean) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).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 - command.Connection.Open + Me.Adapter.UpdateCommand.Connection.Open End If - Dim returnValue As Integer Try - returnValue = command.ExecuteNonQuery + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close + Me.Adapter.UpdateCommand.Connection.Close End If End Try - Return returnValue End Function End Class @@ -41279,7 +41469,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_FOLLOW_UP_EMAILTableAdapter + Partial Public Class VWPMO_RECORD_CHANGESTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -41396,126 +41586,13 @@ 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_FOLLOW_UP_EMAIL" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("FOLLOW_UP_SEQUENCE", "FOLLOW_UP_SEQUENCE") - tableMapping.ColumnMappings.Add("FOLLOW_UP_DAYS", "FOLLOW_UP_DAYS") - tableMapping.ColumnMappings.Add("FOLLOW_UP_TIME_SPAN", "FOLLOW_UP_TIME_SPAN") - tableMapping.ColumnMappings.Add("DEPENDENT_DATE_CTRL_ID", "DEPENDENT_DATE_CTRL_ID") - tableMapping.ColumnMappings.Add("DEPENDENT_DONE_CTRL_ID", "DEPENDENT_DONE_CTRL_ID") - tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") - tableMapping.ColumnMappings.Add("TIME_UNITY", "TIME_UNITY") - tableMapping.ColumnMappings.Add("TIME_SPAN", "TIME_SPAN") - tableMapping.ColumnMappings.Add("EMAIL_SUBJECT", "EMAIL_SUBJECT") - tableMapping.ColumnMappings.Add("EMAIL_BODY", "EMAIL_BODY") - tableMapping.ColumnMappings.Add("PROCESS_SELECT1", "PROCESS_SELECT1") - tableMapping.ColumnMappings.Add("PROCESS_SELECT2", "PROCESS_SELECT2") - tableMapping.ColumnMappings.Add("PROCESS_SELECT3", "PROCESS_SELECT3") - tableMapping.ColumnMappings.Add("PROCESS_SELECT4", "PROCESS_SELECT4") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("TIME_DIST", "TIME_DIST") - tableMapping.ColumnMappings.Add("PROCESS_SELECT5", "PROCESS_SELECT5") - tableMapping.ColumnMappings.Add("PROCESS_SELECT6", "PROCESS_SELECT6") - tableMapping.ColumnMappings.Add("PROCESS_SELECT7", "PROCESS_SELECT7") - tableMapping.ColumnMappings.Add("PROCESS_SELECT8", "PROCESS_SELECT8") - tableMapping.ColumnMappings.Add("PROCESS_SELECT9", "PROCESS_SELECT9") - tableMapping.ColumnMappings.Add("PROCESS_SELECT10", "PROCESS_SELECT10") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("CONSTRUCTOR_ID", "CONSTRUCTOR_ID") + tableMapping.DataSetTable = "VWPMO_RECORD_CHANGES" + tableMapping.ColumnMappings.Add("ID", "ID") + tableMapping.ColumnMappings.Add("Control-Name", "Control-Name") + tableMapping.ColumnMappings.Add("Log-Description", "Log-Description") + tableMapping.ColumnMappings.Add("Added who", "Added who") + tableMapping.ColumnMappings.Add("Added When", "Added 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_FOLLOW_UP_EMAIL"&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_FOLLOW_UP_EMAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (FOLLOW_UP_SEQUENCE, "& _ - "FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL"& _ - "_ID, PARENT_ID, TIME_UNITY, TIME_SPAN, EMAIL_SUBJECT, EMAIL_BODY,"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " PROCESS_SELECT1, PROCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4,"& _ - " ACTIVE, ADDED_WHO, TIME_DIST, NAME, CONSTRUCTOR_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@FOLLOW_UP_"& _ - "SEQUENCE,@FOLLOW_UP_DAYS,@FOLLOW_UP_TIME_SPAN,@DEPENDENT_DATE_CTRL_ID,@DEPENDENT"& _ - "_DONE_CTRL_ID,@PARENT_ID,@TIME_UNITY,@TIME_SPAN,@EMAIL_SUBJECT,@EMAIL_BODY,@PROC"& _ - "ESS_SELECT1,@PROCESS_SELECT2,@PROCESS_SELECT3,@PROCESS_SELECT4,@ACTIVE,@ADDED_WH"& _ - "O,@TIME_DIST,@NAME,@CONSTRUCTOR_ID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, FOLLOW_UP_SEQUENCE, FOLLO"& _ - "W_UP_DAYS, FOLLOW_UP_TIME_SPAN, DEPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL_ID, "& _ - "PARENT_ID, TIME_UNITY, TIME_SPAN, EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, PR"& _ - "OCESS_SELECT2, PROCESS_SELECT3, PROCESS_SELECT4, ACTIVE, ADDED_WHO, ADDED_WHEN, "& _ - "CHANGED_WHO, CHANGED_WHEN FROM TBPMO_FOLLOW_UP_EMAIL WHERE (GUID = SCOPE_IDENTIT"& _ - "Y())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_SEQUENCE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_DAYS", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_DAYS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_TIME_SPAN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_TIME_SPAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEPENDENT_DATE_CTRL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEPENDENT_DATE_CTRL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEPENDENT_DONE_CTRL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEPENDENT_DONE_CTRL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_UNITY", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_UNITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_SPAN", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_SPAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT1", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT2", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT3", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT4", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_DIST", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_DIST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCTOR_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCTOR_ID", 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_FOLLOW_UP_EMAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET FOLLOW_UP_SEQUENCE = @FOLL"& _ - "OW_UP_SEQUENCE, FOLLOW_UP_DAYS = @FOLLOW_UP_DAYS, FOLLOW_UP_TIME_SPAN = @FOLLOW_"& _ - "UP_TIME_SPAN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" DEPENDENT_DATE_CTRL_ID = @DEPENDENT_DAT"& _ - "E_CTRL_ID, DEPENDENT_DONE_CTRL_ID = @DEPENDENT_DONE_CTRL_ID, PARENT_ID = @PARENT"& _ - "_ID, TIME_UNITY = @TIME_UNITY, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TIME_SPAN = @TIME_SPAN"& _ - ", EMAIL_SUBJECT = @EMAIL_SUBJECT, EMAIL_BODY = @EMAIL_BODY, PROCESS_SELECT1 = @P"& _ - "ROCESS_SELECT1, PROCESS_SELECT2 = @PROCESS_SELECT2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" P"& _ - "ROCESS_SELECT3 = @PROCESS_SELECT3, PROCESS_SELECT4 = @PROCESS_SELECT4, ACTIVE = "& _ - "@ACTIVE, CHANGED_WHO = @CHANGED_WHO, TIME_DIST = @TIME_DIST, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " PROCESS_SELECT5 = @PROCESS_SELECT5, PROCESS_SELECT6 = @PROCESS_SELECT6, "& _ - "PROCESS_SELECT7 = @PROCESS_SELECT7, PROCESS_SELECT8 = @PROCESS_SELECT8, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " PROCESS_SELECT9 = @PROCESS_SELECT9, PROCESS_SELECT10 = @PROCE"& _ - "SS_SELECT10, NAME = @NAME, CONSTRUCTOR_ID = @CONSTRUCTOR_ID"&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, FOLLOW_UP_SEQUENCE, FOLLOW_UP_DAYS, FOLLOW_"& _ - "UP_TIME_SPAN, DEPENDENT_DATE_CTRL_ID, DEPENDENT_DONE_CTRL_ID, PARENT_ID, TIME_UN"& _ - "ITY, TIME_SPAN, EMAIL_SUBJECT, EMAIL_BODY, PROCESS_SELECT1, PROCESS_SELECT2, PRO"& _ - "CESS_SELECT3, PROCESS_SELECT4, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANG"& _ - "ED_WHEN FROM TBPMO_FOLLOW_UP_EMAIL WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_SEQUENCE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_DAYS", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_DAYS", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_TIME_SPAN", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_TIME_SPAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEPENDENT_DATE_CTRL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEPENDENT_DATE_CTRL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DEPENDENT_DONE_CTRL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DEPENDENT_DONE_CTRL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_UNITY", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_UNITY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TIME_SPAN", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_SPAN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SUBJECT", Global.System.Data.SqlDbType.VarChar, 250, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SUBJECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_BODY", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_BODY", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT1", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT2", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT3", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT4", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@TIME_DIST", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "TIME_DIST", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT5", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT6", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT6", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT7", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT7", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT8", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT8", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT9", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT9", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROCESS_SELECT10", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "PROCESS_SELECT10", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCTOR_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCTOR_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable, ByVal RECORD_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORD_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -41558,321 +41633,13 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable + Public Overloads Overridable Function GetData(ByVal RECORD_ID As Integer) As DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable = New DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORD_ID,Integer) + Dim dataTable As DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable = New DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLOW_UP_EMAILDataTable) 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_FOLLOW_UP_EMAIL") - 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 FOLLOW_UP_SEQUENCE As String, _ - ByVal FOLLOW_UP_DAYS As String, _ - ByVal FOLLOW_UP_TIME_SPAN As String, _ - ByVal DEPENDENT_DATE_CTRL_ID As Integer, _ - ByVal DEPENDENT_DONE_CTRL_ID As Integer, _ - ByVal PARENT_ID As Integer, _ - ByVal TIME_UNITY As String, _ - ByVal TIME_SPAN As Integer, _ - ByVal EMAIL_SUBJECT As String, _ - ByVal EMAIL_BODY As String, _ - ByVal PROCESS_SELECT1 As String, _ - ByVal PROCESS_SELECT2 As String, _ - ByVal PROCESS_SELECT3 As String, _ - ByVal PROCESS_SELECT4 As String, _ - ByVal ACTIVE As Boolean, _ - ByVal ADDED_WHO As String, _ - ByVal TIME_DIST As String, _ - ByVal NAME As String, _ - ByVal CONSTRUCTOR_ID As Integer) As Integer - If (FOLLOW_UP_SEQUENCE Is Nothing) Then - Throw New Global.System.ArgumentNullException("FOLLOW_UP_SEQUENCE") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(FOLLOW_UP_SEQUENCE,String) - End If - If (FOLLOW_UP_DAYS Is Nothing) Then - Throw New Global.System.ArgumentNullException("FOLLOW_UP_DAYS") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(FOLLOW_UP_DAYS,String) - End If - If (FOLLOW_UP_TIME_SPAN Is Nothing) Then - Throw New Global.System.ArgumentNullException("FOLLOW_UP_TIME_SPAN") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(FOLLOW_UP_TIME_SPAN,String) - End If - Me.Adapter.InsertCommand.Parameters(3).Value = CType(DEPENDENT_DATE_CTRL_ID,Integer) - Me.Adapter.InsertCommand.Parameters(4).Value = CType(DEPENDENT_DONE_CTRL_ID,Integer) - Me.Adapter.InsertCommand.Parameters(5).Value = CType(PARENT_ID,Integer) - If (TIME_UNITY Is Nothing) Then - Throw New Global.System.ArgumentNullException("TIME_UNITY") - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(TIME_UNITY,String) - End If - Me.Adapter.InsertCommand.Parameters(7).Value = CType(TIME_SPAN,Integer) - If (EMAIL_SUBJECT Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_SUBJECT") - Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(EMAIL_SUBJECT,String) - End If - If (EMAIL_BODY Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_BODY") - Else - Me.Adapter.InsertCommand.Parameters(9).Value = CType(EMAIL_BODY,String) - End If - If (PROCESS_SELECT1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("PROCESS_SELECT1") - Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(PROCESS_SELECT1,String) - End If - If (PROCESS_SELECT2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("PROCESS_SELECT2") - Else - Me.Adapter.InsertCommand.Parameters(11).Value = CType(PROCESS_SELECT2,String) - End If - If (PROCESS_SELECT3 Is Nothing) Then - Throw New Global.System.ArgumentNullException("PROCESS_SELECT3") - Else - Me.Adapter.InsertCommand.Parameters(12).Value = CType(PROCESS_SELECT3,String) - End If - If (PROCESS_SELECT4 Is Nothing) Then - Throw New Global.System.ArgumentNullException("PROCESS_SELECT4") - Else - Me.Adapter.InsertCommand.Parameters(13).Value = CType(PROCESS_SELECT4,String) - End If - Me.Adapter.InsertCommand.Parameters(14).Value = CType(ACTIVE,Boolean) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(15).Value = CType(ADDED_WHO,String) - End If - If (TIME_DIST Is Nothing) Then - Throw New Global.System.ArgumentNullException("TIME_DIST") - Else - Me.Adapter.InsertCommand.Parameters(16).Value = CType(TIME_DIST,String) - End If - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - Me.Adapter.InsertCommand.Parameters(17).Value = CType(NAME,String) - End If - Me.Adapter.InsertCommand.Parameters(18).Value = CType(CONSTRUCTOR_ID,Integer) - 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 FOLLOW_UP_SEQUENCE As String, _ - ByVal FOLLOW_UP_DAYS As String, _ - ByVal FOLLOW_UP_TIME_SPAN As String, _ - ByVal DEPENDENT_DATE_CTRL_ID As Integer, _ - ByVal DEPENDENT_DONE_CTRL_ID As Integer, _ - ByVal PARENT_ID As Integer, _ - ByVal TIME_UNITY As String, _ - ByVal TIME_SPAN As Integer, _ - ByVal EMAIL_SUBJECT As String, _ - ByVal EMAIL_BODY As String, _ - ByVal PROCESS_SELECT1 As String, _ - ByVal PROCESS_SELECT2 As String, _ - ByVal PROCESS_SELECT3 As String, _ - ByVal PROCESS_SELECT4 As String, _ - ByVal ACTIVE As Boolean, _ - ByVal CHANGED_WHO As String, _ - ByVal TIME_DIST As String, _ - ByVal PROCESS_SELECT5 As String, _ - ByVal PROCESS_SELECT6 As String, _ - ByVal PROCESS_SELECT7 As String, _ - ByVal PROCESS_SELECT8 As String, _ - ByVal PROCESS_SELECT9 As String, _ - ByVal PROCESS_SELECT10 As String, _ - ByVal NAME As String, _ - ByVal CONSTRUCTOR_ID As Integer, _ - ByVal Original_GUID As Integer, _ - ByVal GUID As Integer) As Integer - If (FOLLOW_UP_SEQUENCE Is Nothing) Then - Throw New Global.System.ArgumentNullException("FOLLOW_UP_SEQUENCE") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FOLLOW_UP_SEQUENCE,String) - End If - If (FOLLOW_UP_DAYS Is Nothing) Then - Throw New Global.System.ArgumentNullException("FOLLOW_UP_DAYS") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FOLLOW_UP_DAYS,String) - End If - If (FOLLOW_UP_TIME_SPAN Is Nothing) Then - Throw New Global.System.ArgumentNullException("FOLLOW_UP_TIME_SPAN") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FOLLOW_UP_TIME_SPAN,String) - End If - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DEPENDENT_DATE_CTRL_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(DEPENDENT_DONE_CTRL_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PARENT_ID,Integer) - If (TIME_UNITY Is Nothing) Then - Throw New Global.System.ArgumentNullException("TIME_UNITY") - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(TIME_UNITY,String) - End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(TIME_SPAN,Integer) - If (EMAIL_SUBJECT Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_SUBJECT") - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(EMAIL_SUBJECT,String) - End If - If (EMAIL_BODY Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_BODY") - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(EMAIL_BODY,String) - End If - If (PROCESS_SELECT1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("PROCESS_SELECT1") - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(PROCESS_SELECT1,String) - End If - If (PROCESS_SELECT2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("PROCESS_SELECT2") - Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(PROCESS_SELECT2,String) - End If - If (PROCESS_SELECT3 Is Nothing) Then - Throw New Global.System.ArgumentNullException("PROCESS_SELECT3") - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(PROCESS_SELECT3,String) - End If - If (PROCESS_SELECT4 Is Nothing) Then - Throw New Global.System.ArgumentNullException("PROCESS_SELECT4") - Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(PROCESS_SELECT4,String) - End If - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(ACTIVE,Boolean) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(CHANGED_WHO,String) - End If - If (TIME_DIST Is Nothing) Then - Throw New Global.System.ArgumentNullException("TIME_DIST") - Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(TIME_DIST,String) - End If - If (PROCESS_SELECT5 Is Nothing) Then - Throw New Global.System.ArgumentNullException("PROCESS_SELECT5") - Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(PROCESS_SELECT5,String) - End If - If (PROCESS_SELECT6 Is Nothing) Then - Throw New Global.System.ArgumentNullException("PROCESS_SELECT6") - Else - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(PROCESS_SELECT6,String) - End If - If (PROCESS_SELECT7 Is Nothing) Then - Throw New Global.System.ArgumentNullException("PROCESS_SELECT7") - Else - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(PROCESS_SELECT7,String) - End If - If (PROCESS_SELECT8 Is Nothing) Then - Throw New Global.System.ArgumentNullException("PROCESS_SELECT8") - Else - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(PROCESS_SELECT8,String) - End If - If (PROCESS_SELECT9 Is Nothing) Then - Throw New Global.System.ArgumentNullException("PROCESS_SELECT9") - Else - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(PROCESS_SELECT9,String) - End If - If (PROCESS_SELECT10 Is Nothing) Then - Throw New Global.System.ArgumentNullException("PROCESS_SELECT10") - Else - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(PROCESS_SELECT10,String) - End If - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(NAME,String) - End If - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(CONSTRUCTOR_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(26).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 ''' @@ -41884,7 +41651,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_FOLLUPEMAIL_USERTableAdapter + Partial Public Class TBDD_EMAIL_ACCOUNTTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -42001,10 +41768,14 @@ 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_FOLLUPEMAIL_USER" + tableMapping.DataSetTable = "TBDD_EMAIL_ACCOUNT" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") - tableMapping.ColumnMappings.Add("FOLLOW_UP_ID", "FOLLOW_UP_ID") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("EMAIL_FROM", "EMAIL_FROM") + tableMapping.ColumnMappings.Add("EMAIL_SMTP", "EMAIL_SMTP") + tableMapping.ColumnMappings.Add("EMAIL_USER", "EMAIL_USER") + tableMapping.ColumnMappings.Add("EMAIL_PW", "EMAIL_PW") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") @@ -42012,28 +41783,39 @@ 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_FOLLUPEMAIL_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_EMAIL_ACCOUNT"&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_FOLLUPEMAIL_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (USER_ID, FOLLOW_UP_"& _ - "ID, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@USER_ID,@FOLLOW_UP_ID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID"& _ - ", USER_ID, FOLLOW_UP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM T"& _ - "BPMO_FOLLUPEMAIL_USER WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, EMAIL_FROM, EMAIL"& _ + "_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@EMAIL_FRO"& _ + "M,@EMAIL_SMTP,@EMAIL_USER,@EMAIL_PW,@ACTIVE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, EM"& _ + "AIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANG"& _ + "ED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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_FOLLUPEMAIL_USER"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET USER_ID = @USER_ID, FOLLO"& _ - "W_UP_ID = @FOLLOW_UP_ID, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origi"& _ - "nal_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, USER_ID, FOLLOW_UP_ID, ADDED_WHO, ADDED_WHEN, CHANGED_"& _ - "WHO, CHANGED_WHEN FROM TBPMO_FOLLUPEMAIL_USER WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, EMAIL_FROM = @E"& _ + "MAIL_FROM, EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, EMAIL_PW = @EMAIL"& _ + "_PW, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origina"& _ + "l_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTI"& _ + "VE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT WHE"& _ + "RE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FOLLOW_UP_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FOLLOW_UP_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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, "", "", "")) @@ -42052,7 +41834,7 @@ 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_FOLLUPEMAIL_USER.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FOLLUPEMAIL_USER" + Me._commandCollection(0).CommandText = "SELECT TBDD_EMAIL_ACCOUNT.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_EMAIL_ACCOUNT" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub @@ -42060,7 +41842,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"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -42073,9 +41855,9 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable = New DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable() + Dim dataTable As DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable = New DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -42083,7 +41865,7 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FOLLUPEMAIL_USERDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -42091,7 +41873,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_FOLLUPEMAIL_USER") + Return Me.Adapter.Update(dataSet, "TBDD_EMAIL_ACCOUNT") End Function _ - Public Overloads Overridable Function Insert(ByVal USER_ID As Integer, ByVal FOLLOW_UP_ID As Integer, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(USER_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(FOLLOW_UP_ID,Integer) + Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String) As Integer + If (NAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) + End If + If (EMAIL_FROM Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_FROM") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(EMAIL_FROM,String) + End If + If (EMAIL_SMTP Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_SMTP") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(EMAIL_SMTP,String) + End If + If (EMAIL_USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_USER") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL_USER,String) + End If + If (EMAIL_PW Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_PW") + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(EMAIL_PW,String) + End If + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE,Boolean) If (ADDED_WHO Is Nothing) Then Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(6).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) _ @@ -42160,16 +41966,40 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal USER_ID As Integer, ByVal FOLLOW_UP_ID As Integer, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(USER_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FOLLOW_UP_ID,Integer) + Public Overloads Overridable Function Update(ByVal NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (NAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) + End If + If (EMAIL_FROM Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_FROM") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EMAIL_FROM,String) + End If + If (EMAIL_SMTP Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_SMTP") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EMAIL_SMTP,String) + End If + If (EMAIL_USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_USER") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL_USER,String) + End If + If (EMAIL_PW Is Nothing) Then + Throw New Global.System.ArgumentNullException("EMAIL_PW") + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL_PW,String) + End If + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean) If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(8).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 @@ -42195,7 +42025,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_RECORD_LOG_CONFIGTableAdapter + Partial Public Class TBDD_CONNECTIONTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -42312,48 +42142,139 @@ 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_RECORD_LOG_CONFIG" + tableMapping.DataSetTable = "TBDD_CONNECTION" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("CONTROL_ID", "CONTROL_ID") - tableMapping.ColumnMappings.Add("LOG_DELETE", "LOG_DELETE") - tableMapping.ColumnMappings.Add("LOG_UPDATE", "LOG_UPDATE") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("FORM_ID1", "FORM_ID1") - tableMapping.ColumnMappings.Add("String", "String") + tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") + tableMapping.ColumnMappings.Add("SERVER", "SERVER") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") + tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG") + tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") 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_RECORD_LOG_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_CONNECTION] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_DESC"& _ + "RIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION"& _ + ")) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER]"& _ + " = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR (["& _ + "SERVER] = @Original_SERVER)) AND ((@IsNull_DATABASE = 1 AND [DATABASE] IS NULL) "& _ + "OR ([DATABASE] = @Original_DATABASE)) AND ((@IsNull_USERNAME = 1 AND [USERNAME] "& _ + "IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND [P"& _ + "ASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_COMMENT = "& _ + "1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @Or"& _ + "iginal_AKTIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Orig"& _ + "inal_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([C"& _ + "HANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGE"& _ + "D_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DESCRIPTION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_PROVIDER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERVER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DATABASE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATABASE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_USERNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PASSWORD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_RECORD_LOG_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONTROL_ID, LOG_DE"& _ - "LETE, LOG_UPDATE)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONTROL_ID,@LOG_DELETE,@LOG_UPDATE); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT"& _ - " GUID, CONTROL_ID, LOG_DELETE, LOG_UPDATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"& _ - " FROM TBPMO_RECORD_LOG_CONFIG WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_CONNECTION] ([BEZEICHNUNG], [SQL_PROVIDER], [SERVER], [DATENBAN"& _ + "K], [USERNAME], [PASSWORD], [BEMERKUNG], [AKTIV], [ERSTELLTWER], [ERSTELLTWANN],"& _ + " [GEANDERTWER], [GEAENDERTWANN]) VALUES (@BEZEICHNUNG, @SQL_PROVIDER, @SERVER, @"& _ + "DATENBANK, @USERNAME, @PASSWORD, @BEMERKUNG, @AKTIV, @ERSTELLTWER, @ERSTELLTWANN"& _ + ", @GEANDERTWER, @GEAENDERTWANN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER"& _ + ", DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GE"& _ + "ANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_DELETE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_DELETE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_UPDATE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_UPDATE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_RECORD_LOG_CONFIG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONTROL_ID = @CONTROL_ID"& _ - ", LOG_DELETE = @LOG_DELETE, LOG_UPDATE = @LOG_UPDATE, 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, CONTROL_ID, LOG_DELETE, "& _ - "LOG_UPDATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_RECORD_LOG_CONFIG W"& _ - "HERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBDD_CONNECTION] SET [DESCRIPTION] = @DESCRIPTION, [SQL_PROVIDER] = @SQL_"& _ + "PROVIDER, [SERVER] = @SERVER, [DATABASE] = @DATABASE, [USERNAME] = @USERNAME, [P"& _ + "ASSWORD] = @PASSWORD, [COMMENT] = @COMMENT, [AKTIVE] = @AKTIVE, [ADDED_WHO] = @A"& _ + "DDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHE"& _ + "N] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_DESCRIPTION = "& _ + "1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND ((@"& _ + "IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER] = @Origin"& _ + "al_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] = "& _ + "@Original_SERVER)) AND ((@IsNull_DATABASE = 1 AND [DATABASE] IS NULL) OR ([DATAB"& _ + "ASE] = @Original_DATABASE)) AND ((@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) O"& _ + "R ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND [PASSWORD] I"& _ + "S NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_COMMENT = 1 AND [COM"& _ + "MENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @Original_AKT"& _ + "IVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED"& _ + "_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO"& _ + "] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS"& _ + " NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DESCRIPTION"& _ + ", SQL_PROVIDER, SERVER, [DATABASE], USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_W"& _ + "HO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_CONNECTION WHERE (GUID = @GU"& _ + "ID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_DELETE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_DELETE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOG_UPDATE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOG_UPDATE", 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, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATABASE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DESCRIPTION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_PROVIDER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERVER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DATABASE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATABASE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_USERNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PASSWORD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_CONNECTIONDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -42399,9 +42313,9 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_CONNECTIONDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable = New DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable() + Dim dataTable As DD_DMSDataSet.TBDD_CONNECTIONDataTable = New DD_DMSDataSet.TBDD_CONNECTIONDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -42409,7 +42323,7 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_RECORD_LOG_CONFIGDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_CONNECTIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -42417,7 +42331,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_RECORD_LOG_CONFIG") + Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + Public Overloads Overridable Function Delete(ByVal Original_GUID As Short, ByVal Original_DESCRIPTION As String, ByVal Original_SQL_PROVIDER As String, ByVal Original_SERVER As String, ByVal Original_DATABASE As String, ByVal Original_USERNAME As String, ByVal Original_PASSWORD As String, ByVal Original_COMMENT As String, ByVal Original_AKTIVE As Boolean, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) + If (Original_DESCRIPTION Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_DESCRIPTION,String) + End If + If (Original_SQL_PROVIDER Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SQL_PROVIDER,String) + End If + If (Original_SERVER Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_SERVER,String) + End If + If (Original_DATABASE Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_DATABASE,String) + End If + If (Original_USERNAME Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_USERNAME,String) + End If + If (Original_PASSWORD Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_PASSWORD,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_COMMENT,String) + End If + Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_AKTIVE,Boolean) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value + End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then 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 CONTROL_ID As Integer, ByVal LOG_DELETE As Boolean, ByVal LOG_UPDATE As Boolean) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONTROL_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(LOG_DELETE,Boolean) - Me.Adapter.InsertCommand.Parameters(2).Value = CType(LOG_UPDATE,Boolean) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State - If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + 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 BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer + If (BEZEICHNUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) + End If + If (SQL_PROVIDER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + End If + If (SERVER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERVER,String) + End If + If (DATENBANK Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATENBANK,String) + End If + If (USERNAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(USERNAME,String) + End If + If (PASSWORD Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(PASSWORD,String) + End If + If (BEMERKUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(BEMERKUNG,String) + End If + Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIV,Boolean) + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(ERSTELLTWER,String) + End If + Me.Adapter.InsertCommand.Parameters(9).Value = CType(ERSTELLTWANN,Date) + If (GEANDERTWER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(GEANDERTWER,String) + End If + If (GEAENDERTWANN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(11).Value = CType(GEAENDERTWANN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> 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 DESCRIPTION As String, _ + ByVal SQL_PROVIDER As String, _ + ByVal SERVER As String, _ + ByVal DATABASE As String, _ + ByVal USERNAME As String, _ + ByVal PASSWORD As String, _ + ByVal COMMENT As String, _ + ByVal AKTIVE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Short, _ + ByVal Original_DESCRIPTION As String, _ + ByVal Original_SQL_PROVIDER As String, _ + ByVal Original_SERVER As String, _ + ByVal Original_DATABASE As String, _ + ByVal Original_USERNAME As String, _ + ByVal Original_PASSWORD As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_AKTIVE As Boolean, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Short) As Integer + If (DESCRIPTION Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DESCRIPTION,String) + End If + If (SQL_PROVIDER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) + End If + If (SERVER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERVER,String) + End If + If (DATABASE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATABASE,String) + End If + If (USERNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USERNAME,String) + End If + If (PASSWORD Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PASSWORD,String) + End If + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIVE,Boolean) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ADDED_WHO,String) 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 CONTROL_ID As Integer, ByVal LOG_DELETE As Boolean, ByVal LOG_UPDATE 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(CONTROL_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(LOG_DELETE,Boolean) - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(LOG_UPDATE,Boolean) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ADDED_WHEN,Date) If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(CHANGED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(GUID,Integer) + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GUID,Short) + If (Original_DESCRIPTION Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_DESCRIPTION,String) + End If + If (Original_SQL_PROVIDER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_SQL_PROVIDER,String) + End If + If (Original_SERVER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_SERVER,String) + End If + If (Original_DATABASE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_DATABASE,String) + End If + If (Original_USERNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_USERNAME,String) + End If + If (Original_PASSWORD Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_PASSWORD,String) + End If + If (Original_COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_COMMENT,String) + End If + Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_AKTIVE,Boolean) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_ADDED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_ADDED_WHEN,Date) + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(34).Value = CType(GUID,Short) 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 @@ -42507,6 +42680,39 @@ Namespace DD_DMSDataSetTableAdapters End If End Try End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal DESCRIPTION As String, _ + ByVal SQL_PROVIDER As String, _ + ByVal SERVER As String, _ + ByVal DATABASE As String, _ + ByVal USERNAME As String, _ + ByVal PASSWORD As String, _ + ByVal COMMENT As String, _ + ByVal AKTIVE As Boolean, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Date, _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Short, _ + ByVal Original_DESCRIPTION As String, _ + ByVal Original_SQL_PROVIDER As String, _ + ByVal Original_SERVER As String, _ + ByVal Original_DATABASE As String, _ + ByVal Original_USERNAME As String, _ + ByVal Original_PASSWORD As String, _ + ByVal Original_COMMENT As String, _ + ByVal Original_AKTIVE As Boolean, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Date, _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(DESCRIPTION, SQL_PROVIDER, SERVER, DATABASE, USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_DESCRIPTION, Original_SQL_PROVIDER, Original_SERVER, Original_DATABASE, Original_USERNAME, Original_PASSWORD, Original_COMMENT, Original_AKTIVE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function End Class ''' @@ -42518,7 +42724,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class VWPMO_RECORD_CHANGESTableAdapter + Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -42635,13 +42841,102 @@ 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 = "VWPMO_RECORD_CHANGES" - tableMapping.ColumnMappings.Add("ID", "ID") - tableMapping.ColumnMappings.Add("Control-Name", "Control-Name") - tableMapping.ColumnMappings.Add("Log-Description", "Log-Description") - tableMapping.ColumnMappings.Add("Added who", "Added who") - tableMapping.ColumnMappings.Add("Added When", "Added When") + tableMapping.DataSetTable = "TBPMO_FORM_CONSTRUCTOR_DETAIL" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("CONSTRUCT_ID", "CONSTRUCT_ID") + tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") + tableMapping.ColumnMappings.Add("LEVEL1_SELECT", "LEVEL1_SELECT") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE1", "SQL_SELECT_EBENE1") + tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE2", "SQL_SELECT_EBENE2") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("COLUMN_NAME1", "COLUMN_NAME1") + tableMapping.ColumnMappings.Add("COLUMN_NAME2", "COLUMN_NAME2") + tableMapping.ColumnMappings.Add("WINDREAM_SEARCH", "WINDREAM_SEARCH") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN1", "SEARCH_PATTERN1") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN2", "SEARCH_PATTERN2") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN3", "SEARCH_PATTERN3") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN4", "SEARCH_PATTERN4") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN5", "SEARCH_PATTERN5") + tableMapping.ColumnMappings.Add("LOAD_DIRECT", "LOAD_DIRECT") + tableMapping.ColumnMappings.Add("SQL_QUICK_VIEW", "SQL_QUICK_VIEW") 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_FORM_CONSTRUCTOR_DETAIL"&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_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONSTRUCT_ID"& _ + ", FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBE"& _ + "NE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEAR"& _ + "CH_PATTERN5)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@S"& _ + "EQUENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_N"& _ + "AME2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH"& _ + "_PATTERN4,@SEARCH_PATTERN5); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LE"& _ + "VEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WH"& _ + "EN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEAR"& _ + "CH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 "& _ + "FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", 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_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONSTRUCT_ID = @CO"& _ + "NSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_"& _ + "SELECT, SEQUENCE = @SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_SELECT_EBENE1 = @SQ"& _ + "L_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_"& _ + "WHO, COLUMN_NAME1 = @COLUMN_NAME1, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" COLUMN_NAME2 = @CO"& _ + "LUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTER"& _ + "N1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEARCH_PATTER"& _ + "N3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SE"& _ + "ARCH_PATTERN5, LOAD_DIRECT = @LOAD_DIRECT, SQL_QUICK_VIEW ="&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, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELE"& _ + "CT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANG"& _ + "ED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTER"& _ + "N1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPM"& _ + "O_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", 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("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID AS ID, NAME AS [Control-Name], LOG_DESCRIPTION AS [Log-Descrip"& _ - "tion], ADDED_WHO AS [Added who], ADDED_WHEN AS [Added When]"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWP"& _ - "MO_RECORD_CHANGES"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (RECORD_ID = @RECORD_ID)" + Me._commandCollection(0).CommandText = "SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQ"& _ + "L_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_"& _ + "WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SE"& _ + "ARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN"& _ + "5, LOAD_DIRECT, SQL_QUICK_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"W"& _ + "HERE (GUID = @ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + 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, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, COLUMN_NAME1, COL"& _ + "UMN_NAME2, CONSTRUCT_ID, FORM_ID, GUID, LEVEL1_SELECT, PARENT_ID, SEARCH_PATTERN"& _ + "1, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4,"& _ + " SEARCH_PATTERN5, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, WINDREAM_SEARC"& _ + "H, LOAD_DIRECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_QUICK_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO"& _ + "_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable, ByVal RECORD_ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORD_ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -42682,262 +42990,285 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal RECORD_ID As Integer) As DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable + Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECORD_ID,Integer) - Dim dataTable As DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable = New DD_DMSDataSet.VWPMO_RECORD_CHANGESDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = New DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class VWPMO_WF_ACTIVETableAdapter - Inherits Global.System.ComponentModel.Component - - Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - - Private _connection As Global.System.Data.SqlClient.SqlConnection - - Private _transaction As Global.System.Data.SqlClient.SqlTransaction - - Private _commandCollection() As Global.System.Data.SqlClient.SqlCommand - - Private _clearBeforeFill As Boolean - - _ - Public Sub New() - MyBase.New - Me.ClearBeforeFill = true - End Sub - - _ - Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter - Get - If (Me._adapter Is Nothing) Then - Me.InitAdapter - End If - Return Me._adapter - End Get - End Property - - _ - Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection - Get - If (Me._connection Is Nothing) Then - Me.InitConnection - End If - Return Me._connection - End Get - Set - Me._connection = value - If (Not (Me.Adapter.InsertCommand) Is Nothing) Then - Me.Adapter.InsertCommand.Connection = value - End If - If (Not (Me.Adapter.DeleteCommand) Is Nothing) Then - Me.Adapter.DeleteCommand.Connection = value - End If - If (Not (Me.Adapter.UpdateCommand) Is Nothing) Then - Me.Adapter.UpdateCommand.Connection = value - End If - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value - End If - i = (i + 1) - Loop - End Set - End Property _ - Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction - Get - Return Me._transaction - End Get - Set - Me._transaction = value - Dim i As Integer = 0 - Do While (i < Me.CommandCollection.Length) - Me.CommandCollection(i).Transaction = Me._transaction - i = (i + 1) - Loop - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then - Me.Adapter.DeleteCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then - Me.Adapter.InsertCommand.Transaction = Me._transaction - End If - If ((Not (Me.Adapter) Is Nothing) _ - AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then - Me.Adapter.UpdateCommand.Transaction = Me._transaction - End If - End Set - End Property + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _ + Public Overloads Overridable Function FillByID(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + 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 _ - 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 + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _ + Public Overloads Overridable Function GetDataByID(ByVal ID As Integer) As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = New DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function _ - Public Property ClearBeforeFill() As Boolean - Get - Return Me._clearBeforeFill - End Get - Set - Me._clearBeforeFill = value - End Set - End Property + 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 dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function _ - 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 = "VWPMO_WF_ACTIVE" - tableMapping.ColumnMappings.Add("WF_TASK_ID", "WF_TASK_ID") - tableMapping.ColumnMappings.Add("TITLE", "TITLE") - tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") - tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") - tableMapping.ColumnMappings.Add("STATE_DESC", "STATE_DESC") - tableMapping.ColumnMappings.Add("COLOR", "COLOR") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("DUE_DATE", "DUE_DATE") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("TASK_DATE", "TASK_DATE") - tableMapping.ColumnMappings.Add("WF_ENT_GUID", "WF_ENT_GUID") - tableMapping.ColumnMappings.Add("WF_ID", "WF_ID") - Me._adapter.TableMappings.Add(tableMapping) - End Sub + 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_FORM_CONSTRUCTOR_DETAIL") + End Function _ - 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 + 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 dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function _ - Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} - Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, COMMENT,"& _ - " DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, WF_ENT_GU"& _ - "ID, WF_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_WF_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (WF_TASK_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FR"& _ - "OM VWPMO_WF_USER_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE "& _ - " (UPPER(USERNAME) <> UPPER(@USERNAME))))" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT TOP (1) WF_TASK_ID, TITLE, RECORD_ID, STATE_ID, STATE_DESC, COLOR, "& _ - "COMMENT, DUE_DATE, USERNAME, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, W"& _ - "F_ENT_GUID, WF_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_WF_ACTIVE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (RECORD_ID = @R"& _ - "ECID) AND (WF_TASK_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELECT GUID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ - " FROM VWPMO_WF_USER_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " WHERE (UPPER(USERNAME) <> UPPER(@USERNAME))))" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub + 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 dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable, ByVal USERNAME As String) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) - End If - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, true)> _ + 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 - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue + 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 GetData(ByVal USERNAME As String) As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ + Public Overloads Overridable Function Insert( _ + ByVal CONSTRUCT_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal ADDED_WHO As String, _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID,Integer) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(PARENT_ID,Integer) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(LEVEL1_SELECT,Boolean) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE,Integer) + If (SQL_SELECT_EBENE1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(USERNAME,String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1,String) End If - Dim dataTable As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable = New DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function FillByRecord(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable, ByVal RECID As Integer, ByVal USERNAME As String) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(1) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECID,Integer) - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") + If (SQL_SELECT_EBENE2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") Else - Me.Adapter.SelectCommand.Parameters(1).Value = CType(USERNAME,String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2,String) End If - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String) End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue + If (COLUMN_NAME1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME1") + Else + Me.Adapter.InsertCommand.Parameters(8).Value = CType(COLUMN_NAME1,String) + End If + If (COLUMN_NAME2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME2") + Else + Me.Adapter.InsertCommand.Parameters(9).Value = CType(COLUMN_NAME2,String) + End If + If (WINDREAM_SEARCH Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(10).Value = CType(WINDREAM_SEARCH,String) + End If + If (SEARCH_PATTERN1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEARCH_PATTERN1,String) + End If + If (SEARCH_PATTERN2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(SEARCH_PATTERN2,String) + End If + If (SEARCH_PATTERN3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(SEARCH_PATTERN3,String) + End If + If (SEARCH_PATTERN4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(SEARCH_PATTERN4,String) + End If + If (SEARCH_PATTERN5 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(SEARCH_PATTERN5,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 GetDataByRecord(ByVal RECID As Integer, ByVal USERNAME As String) As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(1) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(RECID,Integer) - If (USERNAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("USERNAME") + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ + Public Overloads Overridable Function Update( _ + ByVal CONSTRUCT_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal CHANGED_WHO As String, _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String, _ + ByVal LOAD_DIRECT As Boolean, _ + ByVal Original_GUID As Integer, _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PARENT_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LEVEL1_SELECT,Boolean) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE,Integer) + If (SQL_SELECT_EBENE1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.SelectCommand.Parameters(1).Value = CType(USERNAME,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1,String) End If - Dim dataTable As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable = New DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable + If (SQL_SELECT_EBENE2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + End If + If (COLUMN_NAME1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME1") + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(COLUMN_NAME1,String) + End If + If (COLUMN_NAME2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME2") + Else + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(COLUMN_NAME2,String) + End If + If (WINDREAM_SEARCH Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(WINDREAM_SEARCH,String) + End If + If (SEARCH_PATTERN1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEARCH_PATTERN1,String) + End If + If (SEARCH_PATTERN2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SEARCH_PATTERN2,String) + End If + If (SEARCH_PATTERN3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SEARCH_PATTERN3,String) + End If + If (SEARCH_PATTERN4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SEARCH_PATTERN4,String) + End If + If (SEARCH_PATTERN5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(SEARCH_PATTERN5,String) + End If + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(LOAD_DIRECT,Boolean) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(18).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 @@ -42950,7 +43281,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_EMAIL_ACCOUNTTableAdapter + Partial Public Class VWDDINDEX_AUTOMTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -43067,57 +43398,24 @@ 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 = "TBDD_EMAIL_ACCOUNT" + tableMapping.DataSetTable = "VWDDINDEX_AUTOM" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("EMAIL_FROM", "EMAIL_FROM") - tableMapping.ColumnMappings.Add("EMAIL_SMTP", "EMAIL_SMTP") - tableMapping.ColumnMappings.Add("EMAIL_USER", "EMAIL_USER") - tableMapping.ColumnMappings.Add("EMAIL_PW", "EMAIL_PW") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") + tableMapping.ColumnMappings.Add("DOKUMENTART", "DOKUMENTART") + tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") + tableMapping.ColumnMappings.Add("CONNECTION", "CONNECTION") + tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") + tableMapping.ColumnMappings.Add("SERVER", "SERVER") + tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") + tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") + tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE") + tableMapping.ColumnMappings.Add("VALUE", "VALUE") Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, EMAIL_FROM, EMAIL"& _ - "_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@EMAIL_FRO"& _ - "M,@EMAIL_SMTP,@EMAIL_USER,@EMAIL_PW,@ACTIVE,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, EM"& _ - "AIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANG"& _ - "ED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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 TBDD_EMAIL_ACCOUNT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, EMAIL_FROM = @E"& _ - "MAIL_FROM, EMAIL_SMTP = @EMAIL_SMTP, EMAIL_USER = @EMAIL_USER, EMAIL_PW = @EMAIL"& _ - "_PW, ACTIVE = @ACTIVE, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origina"& _ - "l_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, EMAIL_FROM, EMAIL_SMTP, EMAIL_USER, EMAIL_PW, ACTI"& _ - "VE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_EMAIL_ACCOUNT WHE"& _ - "RE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_FROM", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_FROM", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_SMTP", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_SMTP", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_USER", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_USER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@EMAIL_PW", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "EMAIL_PW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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 _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWDDINDEX_AUTOMDataTable, ByVal DOCTYPE_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -43154,165 +43457,13 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable + Public Overloads Overridable Function GetData(ByVal DOCTYPE_ID As Integer) As DD_DMSDataSet.VWDDINDEX_AUTOMDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable = New DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + Dim dataTable As DD_DMSDataSet.VWDDINDEX_AUTOMDataTable = New DD_DMSDataSet.VWDDINDEX_AUTOMDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_EMAIL_ACCOUNTDataTable) 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, "TBDD_EMAIL_ACCOUNT") - 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 NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String) As Integer - If (NAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) - End If - If (EMAIL_FROM Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_FROM") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(EMAIL_FROM,String) - End If - If (EMAIL_SMTP Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_SMTP") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(EMAIL_SMTP,String) - End If - If (EMAIL_USER Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_USER") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(EMAIL_USER,String) - End If - If (EMAIL_PW Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_PW") - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(EMAIL_PW,String) - End If - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ACTIVE,Boolean) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(6).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 NAME As String, ByVal EMAIL_FROM As String, ByVal EMAIL_SMTP As String, ByVal EMAIL_USER As String, ByVal EMAIL_PW As String, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (NAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) - End If - If (EMAIL_FROM Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_FROM") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(EMAIL_FROM,String) - End If - If (EMAIL_SMTP Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_SMTP") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(EMAIL_SMTP,String) - End If - If (EMAIL_USER Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_USER") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(EMAIL_USER,String) - End If - If (EMAIL_PW Is Nothing) Then - Throw New Global.System.ArgumentNullException("EMAIL_PW") - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(EMAIL_PW,String) - End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ACTIVE,Boolean) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(CHANGED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(8).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 ''' @@ -43324,7 +43475,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_CONNECTIONTableAdapter + Partial Public Class TBPMO_TEMPLATETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -43441,139 +43592,50 @@ 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 = "TBDD_CONNECTION" + tableMapping.DataSetTable = "TBPMO_TEMPLATE" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") - tableMapping.ColumnMappings.Add("SERVER", "SERVER") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") - tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") - tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") - tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG") - tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") - tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") - tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") - tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") - tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("TEMPLATE_PATH", "TEMPLATE_PATH") + tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBDD_CONNECTION] WHERE (([GUID] = @Original_GUID) AND ((@IsNull_DESC"& _ - "RIPTION = 1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION"& _ - ")) AND ((@IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER]"& _ - " = @Original_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR (["& _ - "SERVER] = @Original_SERVER)) AND ((@IsNull_DATABASE = 1 AND [DATABASE] IS NULL) "& _ - "OR ([DATABASE] = @Original_DATABASE)) AND ((@IsNull_USERNAME = 1 AND [USERNAME] "& _ - "IS NULL) OR ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND [P"& _ - "ASSWORD] IS NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_COMMENT = "& _ - "1 AND [COMMENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @Or"& _ - "iginal_AKTIVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Orig"& _ - "inal_ADDED_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([C"& _ - "HANGED_WHO] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGE"& _ - "D_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)))" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DESCRIPTION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_PROVIDER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERVER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DATABASE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATABASE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_USERNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PASSWORD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBDD_CONNECTION] ([BEZEICHNUNG], [SQL_PROVIDER], [SERVER], [DATENBAN"& _ - "K], [USERNAME], [PASSWORD], [BEMERKUNG], [AKTIV], [ERSTELLTWER], [ERSTELLTWANN],"& _ - " [GEANDERTWER], [GEAENDERTWANN]) VALUES (@BEZEICHNUNG, @SQL_PROVIDER, @SERVER, @"& _ - "DATENBANK, @USERNAME, @PASSWORD, @BEMERKUNG, @AKTIV, @ERSTELLTWER, @ERSTELLTWANN"& _ - ", @GEANDERTWER, @GEAENDERTWANN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER"& _ - ", DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GE"& _ - "ANDERTWER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, TEMPLATE_PATH, DOCTYP"& _ + "E_ID, ACTIVE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@TEMPLATE_PATH,@DOCTYPE_ID,@ACTIV"& _ + "E,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TEMPLATE_PATH, DOCTYPE_ID, ACTIVE, ADDED_WHO"& _ + ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_TEMPLATE WHERE (GUID = SCOPE_"& _ + "IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEAENDERTWANN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GEAENDERTWANN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_PATH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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 [TBDD_CONNECTION] SET [DESCRIPTION] = @DESCRIPTION, [SQL_PROVIDER] = @SQL_"& _ - "PROVIDER, [SERVER] = @SERVER, [DATABASE] = @DATABASE, [USERNAME] = @USERNAME, [P"& _ - "ASSWORD] = @PASSWORD, [COMMENT] = @COMMENT, [AKTIVE] = @AKTIVE, [ADDED_WHO] = @A"& _ - "DDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = @CHANGED_WHO, [CHANGED_WHE"& _ - "N] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AND ((@IsNull_DESCRIPTION = "& _ - "1 AND [DESCRIPTION] IS NULL) OR ([DESCRIPTION] = @Original_DESCRIPTION)) AND ((@"& _ - "IsNull_SQL_PROVIDER = 1 AND [SQL_PROVIDER] IS NULL) OR ([SQL_PROVIDER] = @Origin"& _ - "al_SQL_PROVIDER)) AND ((@IsNull_SERVER = 1 AND [SERVER] IS NULL) OR ([SERVER] = "& _ - "@Original_SERVER)) AND ((@IsNull_DATABASE = 1 AND [DATABASE] IS NULL) OR ([DATAB"& _ - "ASE] = @Original_DATABASE)) AND ((@IsNull_USERNAME = 1 AND [USERNAME] IS NULL) O"& _ - "R ([USERNAME] = @Original_USERNAME)) AND ((@IsNull_PASSWORD = 1 AND [PASSWORD] I"& _ - "S NULL) OR ([PASSWORD] = @Original_PASSWORD)) AND ((@IsNull_COMMENT = 1 AND [COM"& _ - "MENT] IS NULL) OR ([COMMENT] = @Original_COMMENT)) AND ([AKTIVE] = @Original_AKT"& _ - "IVE) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ([ADDED_WHEN] = @Original_ADDED"& _ - "_WHEN) AND ((@IsNull_CHANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO"& _ - "] = @Original_CHANGED_WHO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS"& _ - " NULL) OR ([CHANGED_WHEN] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, DESCRIPTION"& _ - ", SQL_PROVIDER, SERVER, [DATABASE], USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_W"& _ - "HO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_CONNECTION WHERE (GUID = @GU"& _ - "ID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, TEMPLATE_PATH = @TE"& _ + "MPLATE_PATH, DOCTYPE_ID = @DOCTYPE_ID, ACTIVE = @ACTIVE, 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, NAME, TEMPLATE_PATH, D"& _ + "OCTYPE_ID, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_T"& _ + "EMPLATE WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATABASE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DESCRIPTION", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DESCRIPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DESCRIPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SQL_PROVIDER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_SERVER", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SERVER", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_DATABASE", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_DATABASE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "DATABASE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_USERNAME", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_USERNAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_PASSWORD", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PASSWORD", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_COMMENT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_COMMENT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_AKTIVE", Global.System.Data.SqlDbType.Bit, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIVE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_PATH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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 _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_CONNECTIONDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_TEMPLATEDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -43612,9 +43673,9 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_CONNECTIONDataTable + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_TEMPLATEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBDD_CONNECTIONDataTable = New DD_DMSDataSet.TBDD_CONNECTIONDataTable() + Dim dataTable As DD_DMSDataSet.TBPMO_TEMPLATEDataTable = New DD_DMSDataSet.TBPMO_TEMPLATEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -43622,7 +43683,7 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_CONNECTIONDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_TEMPLATEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -43630,7 +43691,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, "TBDD_CONNECTION") + Return Me.Adapter.Update(dataSet, "TBPMO_TEMPLATE") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Short, ByVal Original_DESCRIPTION As String, ByVal Original_SQL_PROVIDER As String, ByVal Original_SERVER As String, ByVal Original_DATABASE As String, ByVal Original_USERNAME As String, ByVal Original_PASSWORD As String, ByVal Original_COMMENT As String, ByVal Original_AKTIVE As Boolean, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Date, ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) - If (Original_DESCRIPTION Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_DESCRIPTION,String) - End If - If (Original_SQL_PROVIDER Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_SQL_PROVIDER,String) - End If - If (Original_SERVER Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_SERVER,String) - End If - If (Original_DATABASE Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(Original_DATABASE,String) - End If - If (Original_USERNAME Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(Original_USERNAME,String) - End If - If (Original_PASSWORD Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(Original_PASSWORD,String) - End If - If (Original_COMMENT Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(14).Value = CType(Original_COMMENT,String) - End If - Me.Adapter.DeleteCommand.Parameters(15).Value = CType(Original_AKTIVE,Boolean) - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.DeleteCommand.Parameters(16).Value = CType(Original_ADDED_WHO,String) - End If - Me.Adapter.DeleteCommand.Parameters(17).Value = CType(Original_ADDED_WHEN,Date) - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(18).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(19).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(18).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(19).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(20).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(21).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(20).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(21).Value = Global.System.DBNull.Value - End If + 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 @@ -43742,58 +43733,23 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Global.System.Nullable(Of Date)) As Integer - If (BEZEICHNUNG Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG,String) - End If - If (SQL_PROVIDER Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) - End If - If (SERVER Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal TEMPLATE_PATH As String, ByVal DOCTYPE_ID As Integer, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String) As Integer + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERVER,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) End If - If (DATENBANK Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + If (TEMPLATE_PATH Is Nothing) Then + Throw New Global.System.ArgumentNullException("TEMPLATE_PATH") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATENBANK,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(TEMPLATE_PATH,String) End If - If (USERNAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = CType(DOCTYPE_ID,Integer) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(ACTIVE,Boolean) + If (ADDED_WHO Is Nothing) Then Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(USERNAME,String) - End If - If (PASSWORD Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(PASSWORD,String) - End If - If (BEMERKUNG Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(BEMERKUNG,String) - End If - Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIV,Boolean) - If (ERSTELLTWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("ERSTELLTWER") - Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(ERSTELLTWER,String) - End If - Me.Adapter.InsertCommand.Parameters(9).Value = CType(ERSTELLTWANN,Date) - If (GEANDERTWER Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(GEANDERTWER,String) - End If - If (GEAENDERTWANN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(11).Value = CType(GEAENDERTWANN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(4).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) _ @@ -43814,157 +43770,26 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update( _ - ByVal DESCRIPTION As String, _ - ByVal SQL_PROVIDER As String, _ - ByVal SERVER As String, _ - ByVal DATABASE As String, _ - ByVal USERNAME As String, _ - ByVal PASSWORD As String, _ - ByVal COMMENT As String, _ - ByVal AKTIVE As Boolean, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Short, _ - ByVal Original_DESCRIPTION As String, _ - ByVal Original_SQL_PROVIDER As String, _ - ByVal Original_SERVER As String, _ - ByVal Original_DATABASE As String, _ - ByVal Original_USERNAME As String, _ - ByVal Original_PASSWORD As String, _ - ByVal Original_COMMENT As String, _ - ByVal Original_AKTIVE As Boolean, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Date, _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal GUID As Short) As Integer - If (DESCRIPTION Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(DESCRIPTION,String) - End If - If (SQL_PROVIDER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER,String) - End If - If (SERVER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERVER,String) - End If - If (DATABASE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATABASE,String) - End If - If (USERNAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USERNAME,String) - End If - If (PASSWORD Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PASSWORD,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Public Overloads Overridable Function Update(ByVal NAME As String, ByVal TEMPLATE_PATH As String, ByVal DOCTYPE_ID As Integer, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME") Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(COMMENT,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIVE,Boolean) - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + If (TEMPLATE_PATH Is Nothing) Then + Throw New Global.System.ArgumentNullException("TEMPLATE_PATH") Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TEMPLATE_PATH,String) End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(ADDED_WHEN,Date) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(DOCTYPE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ACTIVE,Boolean) If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_GUID,Short) - If (Original_DESCRIPTION Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(Original_DESCRIPTION,String) - End If - If (Original_SQL_PROVIDER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(16).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_SQL_PROVIDER,String) - End If - If (Original_SERVER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_SERVER,String) - End If - If (Original_DATABASE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_DATABASE,String) - End If - If (Original_USERNAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_USERNAME,String) - End If - If (Original_PASSWORD Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(24).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(24).Value = CType(Original_PASSWORD,String) - End If - If (Original_COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(26).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(25).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(26).Value = CType(Original_COMMENT,String) - End If - Me.Adapter.UpdateCommand.Parameters(27).Value = CType(Original_AKTIVE,Boolean) - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(28).Value = CType(Original_ADDED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(29).Value = CType(Original_ADDED_WHEN,Date) - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(30).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(31).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(30).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(31).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(32).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(33).Value = CType(Original_CHANGED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(32).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(33).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(34).Value = CType(GUID,Short) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(6).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 @@ -43979,39 +43804,6 @@ Namespace DD_DMSDataSetTableAdapters End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal DESCRIPTION As String, _ - ByVal SQL_PROVIDER As String, _ - ByVal SERVER As String, _ - ByVal DATABASE As String, _ - ByVal USERNAME As String, _ - ByVal PASSWORD As String, _ - ByVal COMMENT As String, _ - ByVal AKTIVE As Boolean, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Date, _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Short, _ - ByVal Original_DESCRIPTION As String, _ - ByVal Original_SQL_PROVIDER As String, _ - ByVal Original_SERVER As String, _ - ByVal Original_DATABASE As String, _ - ByVal Original_USERNAME As String, _ - ByVal Original_PASSWORD As String, _ - ByVal Original_COMMENT As String, _ - ByVal Original_AKTIVE As Boolean, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Date, _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(DESCRIPTION, SQL_PROVIDER, SERVER, DATABASE, USERNAME, PASSWORD, COMMENT, AKTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_DESCRIPTION, Original_SQL_PROVIDER, Original_SERVER, Original_DATABASE, Original_USERNAME, Original_PASSWORD, Original_COMMENT, Original_AKTIVE, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) - End Function End Class ''' @@ -44023,7 +43815,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + Partial Public Class TBPMO_TEMPLATE_ENTITYTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -44140,100 +43932,38 @@ 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_FORM_CONSTRUCTOR_DETAIL" + tableMapping.DataSetTable = "TBPMO_TEMPLATE_ENTITY" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("CONSTRUCT_ID", "CONSTRUCT_ID") - tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") - tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") - tableMapping.ColumnMappings.Add("LEVEL1_SELECT", "LEVEL1_SELECT") - tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") - tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE1", "SQL_SELECT_EBENE1") - tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE2", "SQL_SELECT_EBENE2") + tableMapping.ColumnMappings.Add("TEMPLATE_ID", "TEMPLATE_ID") + tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("COLUMN_NAME1", "COLUMN_NAME1") - tableMapping.ColumnMappings.Add("COLUMN_NAME2", "COLUMN_NAME2") - tableMapping.ColumnMappings.Add("WINDREAM_SEARCH", "WINDREAM_SEARCH") - tableMapping.ColumnMappings.Add("SEARCH_PATTERN1", "SEARCH_PATTERN1") - tableMapping.ColumnMappings.Add("SEARCH_PATTERN2", "SEARCH_PATTERN2") - tableMapping.ColumnMappings.Add("SEARCH_PATTERN3", "SEARCH_PATTERN3") - tableMapping.ColumnMappings.Add("SEARCH_PATTERN4", "SEARCH_PATTERN4") - tableMapping.ColumnMappings.Add("SEARCH_PATTERN5", "SEARCH_PATTERN5") - tableMapping.ColumnMappings.Add("LOAD_DIRECT", "LOAD_DIRECT") - tableMapping.ColumnMappings.Add("SQL_QUICK_VIEW", "SQL_QUICK_VIEW") 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_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_TEMPLATE_ENTITY"&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_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONSTRUCT_ID"& _ - ", FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBE"& _ - "NE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ - " SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEAR"& _ - "CH_PATTERN5)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@S"& _ - "EQUENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_N"& _ - "AME2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH"& _ - "_PATTERN4,@SEARCH_PATTERN5); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LE"& _ - "VEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WH"& _ - "EN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEAR"& _ - "CH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 "& _ - "FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_TEMPLATE_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TEMPLATE_ID, ENTITY_"& _ + "ID, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TEMPLATE_ID,@ENTITY_ID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUI"& _ + "D, TEMPLATE_ID, ENTITY_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHEN FROM TBPMO_TEMPLA"& _ + "TE_ENTITY WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + 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("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", 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_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONSTRUCT_ID = @CO"& _ - "NSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_"& _ - "SELECT, SEQUENCE = @SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_SELECT_EBENE1 = @SQ"& _ - "L_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_"& _ - "WHO, COLUMN_NAME1 = @COLUMN_NAME1, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" COLUMN_NAME2 = @CO"& _ - "LUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTER"& _ - "N1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEARCH_PATTER"& _ - "N3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SE"& _ - "ARCH_PATTERN5, LOAD_DIRECT = @LOAD_DIRECT, SQL_QUICK_VIEW ="&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, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELE"& _ - "CT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANG"& _ - "ED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTER"& _ - "N1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPM"& _ - "O_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_TEMPLATE_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TEMPLATE_ID = @TEMPLATE_ID"& _ + ", ENTITY_ID = @ENTITY_ID"&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, T"& _ + "EMPLATE_ID, ENTITY_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHEN FROM TBPMO_TEMPLATE_E"& _ + "NTITY WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", 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("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + 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("@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 @@ -44248,36 +43978,22 @@ Namespace DD_DMSDataSetTableAdapters _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQ"& _ - "L_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_"& _ - "WHEN, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SE"& _ - "ARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN"& _ - "5, LOAD_DIRECT, SQL_QUICK_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"W"& _ - "HERE (GUID = @ID)" + Me._commandCollection(0).CommandText = "SELECT GUID, TEMPLATE_ID, ENTITY_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + "FROM TBPMO_TEMPLATE_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TEMPLATE_ID = @TEMPL_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, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "SELECT ADDED_WHEN, ADDED_WHO, CHANGED_WHEN, CHANGED_WHO, COLUMN_NAME1, COL"& _ - "UMN_NAME2, CONSTRUCT_ID, FORM_ID, GUID, LEVEL1_SELECT, PARENT_ID, SEARCH_PATTERN"& _ - "1, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4,"& _ - " SEARCH_PATTERN5, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, WINDREAM_SEARC"& _ - "H, LOAD_DIRECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_QUICK_VIEW"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO"& _ - "_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @ID)" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPL_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_TEMPLATE_ENTITYDataTable, ByVal TEMPL_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(TEMPL_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -44289,36 +44005,10 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + Public Overloads Overridable Function GetData(ByVal TEMPL_ID As Integer) As DD_DMSDataSet.TBPMO_TEMPLATE_ENTITYDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - Dim dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = New DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overloads Overridable Function FillByID(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(1) - 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 GetDataByID(ByVal ID As Integer) As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(1) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - Dim dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = New DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(TEMPL_ID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_TEMPLATE_ENTITYDataTable = New DD_DMSDataSet.TBPMO_TEMPLATE_ENTITYDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -44326,7 +44016,7 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_TEMPLATE_ENTITYDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -44334,7 +44024,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_FORM_CONSTRUCTOR_DETAIL") + Return Me.Adapter.Update(dataSet, "TBPMO_TEMPLATE_ENTITY") End Function _ - Public Overloads Overridable Function Insert( _ - ByVal CONSTRUCT_ID As Integer, _ - ByVal FORM_ID As Integer, _ - ByVal PARENT_ID As Integer, _ - ByVal LEVEL1_SELECT As Boolean, _ - ByVal SEQUENCE As Integer, _ - ByVal SQL_SELECT_EBENE1 As String, _ - ByVal SQL_SELECT_EBENE2 As String, _ - ByVal ADDED_WHO As String, _ - ByVal COLUMN_NAME1 As String, _ - ByVal COLUMN_NAME2 As String, _ - ByVal WINDREAM_SEARCH As String, _ - ByVal SEARCH_PATTERN1 As String, _ - ByVal SEARCH_PATTERN2 As String, _ - ByVal SEARCH_PATTERN3 As String, _ - ByVal SEARCH_PATTERN4 As String, _ - ByVal SEARCH_PATTERN5 As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID,Integer) - Me.Adapter.InsertCommand.Parameters(2).Value = CType(PARENT_ID,Integer) - Me.Adapter.InsertCommand.Parameters(3).Value = CType(LEVEL1_SELECT,Boolean) - Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE,Integer) - If (SQL_SELECT_EBENE1 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1,String) - End If - If (SQL_SELECT_EBENE2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2,String) - End If + Public Overloads Overridable Function Insert(ByVal TEMPLATE_ID As Integer, ByVal ENTITY_ID As Integer, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(TEMPLATE_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) If (ADDED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO,String) - End If - If (COLUMN_NAME1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("COLUMN_NAME1") - Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(COLUMN_NAME1,String) - End If - If (COLUMN_NAME2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("COLUMN_NAME2") - Else - Me.Adapter.InsertCommand.Parameters(9).Value = CType(COLUMN_NAME2,String) - End If - If (WINDREAM_SEARCH Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(WINDREAM_SEARCH,String) - End If - If (SEARCH_PATTERN1 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEARCH_PATTERN1,String) - End If - If (SEARCH_PATTERN2 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(12).Value = CType(SEARCH_PATTERN2,String) - End If - If (SEARCH_PATTERN3 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(13).Value = CType(SEARCH_PATTERN3,String) - End If - If (SEARCH_PATTERN4 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(14).Value = CType(SEARCH_PATTERN4,String) - End If - If (SEARCH_PATTERN5 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(15).Value = CType(SEARCH_PATTERN5,String) + Me.Adapter.InsertCommand.Parameters(2).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) _ @@ -44472,89 +44093,11 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update( _ - ByVal CONSTRUCT_ID As Integer, _ - ByVal FORM_ID As Integer, _ - ByVal PARENT_ID As Integer, _ - ByVal LEVEL1_SELECT As Boolean, _ - ByVal SEQUENCE As Integer, _ - ByVal SQL_SELECT_EBENE1 As String, _ - ByVal SQL_SELECT_EBENE2 As String, _ - ByVal CHANGED_WHO As String, _ - ByVal COLUMN_NAME1 As String, _ - ByVal COLUMN_NAME2 As String, _ - ByVal WINDREAM_SEARCH As String, _ - ByVal SEARCH_PATTERN1 As String, _ - ByVal SEARCH_PATTERN2 As String, _ - ByVal SEARCH_PATTERN3 As String, _ - ByVal SEARCH_PATTERN4 As String, _ - ByVal SEARCH_PATTERN5 As String, _ - ByVal LOAD_DIRECT As Boolean, _ - ByVal Original_GUID As Integer, _ - ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PARENT_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LEVEL1_SELECT,Boolean) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE,Integer) - If (SQL_SELECT_EBENE1 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1,String) - End If - If (SQL_SELECT_EBENE2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2,String) - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) - End If - If (COLUMN_NAME1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("COLUMN_NAME1") - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(COLUMN_NAME1,String) - End If - If (COLUMN_NAME2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("COLUMN_NAME2") - Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(COLUMN_NAME2,String) - End If - If (WINDREAM_SEARCH Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(WINDREAM_SEARCH,String) - End If - If (SEARCH_PATTERN1 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEARCH_PATTERN1,String) - End If - If (SEARCH_PATTERN2 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SEARCH_PATTERN2,String) - End If - If (SEARCH_PATTERN3 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SEARCH_PATTERN3,String) - End If - If (SEARCH_PATTERN4 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SEARCH_PATTERN4,String) - End If - If (SEARCH_PATTERN5 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(SEARCH_PATTERN5,String) - End If - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(LOAD_DIRECT,Boolean) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(GUID,Integer) + Public Overloads Overridable Function Update(ByVal TEMPLATE_ID As Integer, ByVal ENTITY_ID As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TEMPLATE_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(3).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 @@ -44580,7 +44123,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class VWDDINDEX_AUTOMTableAdapter + Partial Public Class TBPMO_TEMPLATE_PATTERNTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -44697,24 +44240,56 @@ 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 = "VWDDINDEX_AUTOM" + tableMapping.DataSetTable = "TBPMO_TEMPLATE_PATTERN" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("INDEXNAME", "INDEXNAME") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") - tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") - tableMapping.ColumnMappings.Add("DOKUMENTART", "DOKUMENTART") - tableMapping.ColumnMappings.Add("KURZNAME", "KURZNAME") + tableMapping.ColumnMappings.Add("NAME_PATTERN", "NAME_PATTERN") + tableMapping.ColumnMappings.Add("FIXED_VALUE", "FIXED_VALUE") tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") - tableMapping.ColumnMappings.Add("CONNECTION", "CONNECTION") - tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") - tableMapping.ColumnMappings.Add("SERVER", "SERVER") - tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") - tableMapping.ColumnMappings.Add("SQL_RESULT", "SQL_RESULT") - tableMapping.ColumnMappings.Add("SQL_ACTIVE", "SQL_ACTIVE") - tableMapping.ColumnMappings.Add("VALUE", "VALUE") + tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("TEMPLATE_ENT_ID", "TEMPLATE_ENT_ID") 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_TEMPLATE_PATTERN"&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_TEMPLATE_PATTERN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TEMPLATE_ENT_ID, NA"& _ + "ME_PATTERN, FIXED_VALUE, CONNECTION_ID, SQL_COMMAND, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES ("& _ + "@TEMPLATE_ENT_ID,@NAME_PATTERN,@FIXED_VALUE,@CONNECTION_ID,@SQL_COMMAND,@ADDED_W"& _ + "HO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TEMPLATE_ENT_ID, NAME_PATTERN, FIXED_VALUE, CONNECTION_ID, S"& _ + "QL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_TEMPLATE"& _ + "_PATTERN WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_PATTERN", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_PATTERN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FIXED_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "FIXED_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", 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_TEMPLATE_PATTERN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TEMPLATE_ENT_ID = @TEMPLA"& _ + "TE_ENT_ID, NAME_PATTERN = @NAME_PATTERN, FIXED_VALUE = @FIXED_VALUE, CONNECTION_"& _ + "ID = @CONNECTION_ID, SQL_COMMAND = @SQL_COMMAND, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHAN"& _ + "GED_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, TEM"& _ + "PLATE_ENT_ID, NAME_PATTERN, FIXED_VALUE, CONNECTION_ID, SQL_COMMAND, ADDED_WHO, "& _ + "ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_TEMPLATE_PATTERN WHERE (GUID = "& _ + "@GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_PATTERN", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_PATTERN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FIXED_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "FIXED_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", 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 InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, INDEXNAME, COMMENT, DOCTYPE_ID, DOKUMENTART, KURZNAME, CONNEC"& _ - "TION_ID, CONNECTION, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, SQL_RE"& _ - "SULT, SQL_ACTIVE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" VALUE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWDDINDEX_AU"& _ - "TOM"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (DOCTYPE_ID = @DOCTYPE_ID)" + Me._commandCollection(0).CommandText = "SELECT GUID, TEMPLATE_ENT_ID, NAME_PATTERN, FIXED_VALUE, CONNECTION_ID, SQ"& _ + "L_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBP"& _ + "MO_TEMPLATE_PATTERN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TEMPLATE_ENT_ID = @TEMPL_ENT_ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPL_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "INSERT INTO TBPMO_TEMPLATE_PATTERN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME_PATTERN, ADDED"& _ + "_WHO, TEMPLATE_ENT_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME_PATTERN,@ADDED_WHO,@TEMPLATE_ENT_ID"& _ + ")" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_PATTERN", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_PATTERN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).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._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWDDINDEX_AUTOMDataTable, ByVal DOCTYPE_ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_TEMPLATE_PATTERNDataTable, ByVal TEMPL_ENT_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(TEMPL_ENT_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -44756,13 +44339,193 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal DOCTYPE_ID As Integer) As DD_DMSDataSet.VWDDINDEX_AUTOMDataTable + Public Overloads Overridable Function GetData(ByVal TEMPL_ENT_ID As Integer) As DD_DMSDataSet.TBPMO_TEMPLATE_PATTERNDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(DOCTYPE_ID,Integer) - Dim dataTable As DD_DMSDataSet.VWDDINDEX_AUTOMDataTable = New DD_DMSDataSet.VWDDINDEX_AUTOMDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(TEMPL_ENT_ID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_TEMPLATE_PATTERNDataTable = New DD_DMSDataSet.TBPMO_TEMPLATE_PATTERNDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_TEMPLATE_PATTERNDataTable) 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_TEMPLATE_PATTERN") + 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 TEMPLATE_ENT_ID As Integer, ByVal NAME_PATTERN As String, ByVal FIXED_VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Integer), ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(TEMPLATE_ENT_ID,Integer) + If (NAME_PATTERN Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME_PATTERN") + Else + Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME_PATTERN,String) + End If + If (FIXED_VALUE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(FIXED_VALUE,String) + End If + If (CONNECTION_ID.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(3).Value = CType(CONNECTION_ID.Value,Integer) + Else + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (SQL_COMMAND Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SQL_COMMAND,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.InsertCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.InsertCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.InsertCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function Update(ByVal TEMPLATE_ENT_ID As Integer, ByVal NAME_PATTERN As String, ByVal FIXED_VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Integer), ByVal SQL_COMMAND As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TEMPLATE_ENT_ID,Integer) + If (NAME_PATTERN Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME_PATTERN") + Else + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME_PATTERN,String) + End If + If (FIXED_VALUE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FIXED_VALUE,String) + End If + If (CONNECTION_ID.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CONNECTION_ID.Value,Integer) + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + End If + If (SQL_COMMAND Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SQL_COMMAND,String) + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close + End If + End Try + End Function + + _ + Public Overloads Overridable Function cmdInsertBasics(ByVal NAME_PATTERN As String, ByVal ADDED_WHO As String, ByVal TEMPLATE_ENT_ID As Integer) As Object + Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) + If (NAME_PATTERN Is Nothing) Then + Throw New Global.System.ArgumentNullException("NAME_PATTERN") + Else + command.Parameters(0).Value = CType(NAME_PATTERN,String) + End If + If (ADDED_WHO Is Nothing) Then + command.Parameters(1).Value = Global.System.DBNull.Value + Else + command.Parameters(1).Value = CType(ADDED_WHO,String) + End If + command.Parameters(2).Value = CType(TEMPLATE_ENT_ID,Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State + If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + command.Connection.Open + End If + Dim returnValue As Object + Try + returnValue = command.ExecuteScalar + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + command.Connection.Close + End If + End Try + If ((returnValue Is Nothing) _ + OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then + Return Nothing + Else + Return CType(returnValue,Object) + End If + End Function End Class ''' @@ -44774,7 +44537,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_TEMPLATETableAdapter + Partial Public Class TBTEMP_QUICKDISPLAYTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -44891,50 +44654,10 @@ 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_TEMPLATE" + tableMapping.DataSetTable = "TBTEMP_QUICKDISPLAY" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("TEMPLATE_PATH", "TEMPLATE_PATH") - tableMapping.ColumnMappings.Add("ACTIVE", "ACTIVE") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("DOCTYPE_ID", "DOCTYPE_ID") + tableMapping.ColumnMappings.Add("COL_NAME", "COL_NAME") 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_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, TEMPLATE_PATH, DOCTYP"& _ - "E_ID, ACTIVE, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@TEMPLATE_PATH,@DOCTYPE_ID,@ACTIV"& _ - "E,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, TEMPLATE_PATH, DOCTYPE_ID, ACTIVE, ADDED_WHO"& _ - ", ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_TEMPLATE WHERE (GUID = SCOPE_"& _ - "IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_PATH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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_TEMPLATE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, TEMPLATE_PATH = @TE"& _ - "MPLATE_PATH, DOCTYPE_ID = @DOCTYPE_ID, ACTIVE = @ACTIVE, 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, NAME, TEMPLATE_PATH, D"& _ - "OCTYPE_ID, ACTIVE, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_T"& _ - "EMPLATE WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_PATH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_PATH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DOCTYPE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "DOCTYPE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ACTIVE", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ACTIVE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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 _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_TEMPLATEDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBTEMP_QUICKDISPLAYDataTable, ByVal CONSTRUCT_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -44972,137 +44697,13 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_TEMPLATEDataTable + Public Overloads Overridable Function GetData(ByVal CONSTRUCT_ID As Integer) As DD_DMSDataSet.TBTEMP_QUICKDISPLAYDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBPMO_TEMPLATEDataTable = New DD_DMSDataSet.TBPMO_TEMPLATEDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) + Dim dataTable As DD_DMSDataSet.TBTEMP_QUICKDISPLAYDataTable = New DD_DMSDataSet.TBTEMP_QUICKDISPLAYDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_TEMPLATEDataTable) 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_TEMPLATE") - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open - End If - Try - Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery - Return returnValue - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close - End If - End Try - End Function - - _ - Public Overloads Overridable Function Insert(ByVal NAME As String, ByVal TEMPLATE_PATH As String, ByVal DOCTYPE_ID As Integer, ByVal ACTIVE As Boolean, ByVal ADDED_WHO As String) As Integer - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(NAME,String) - End If - If (TEMPLATE_PATH Is Nothing) Then - Throw New Global.System.ArgumentNullException("TEMPLATE_PATH") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(TEMPLATE_PATH,String) - End If - Me.Adapter.InsertCommand.Parameters(2).Value = CType(DOCTYPE_ID,Integer) - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ACTIVE,Boolean) - If (ADDED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(4).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 NAME As String, ByVal TEMPLATE_PATH As String, ByVal DOCTYPE_ID As Integer, ByVal ACTIVE As Boolean, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(NAME,String) - End If - If (TEMPLATE_PATH Is Nothing) Then - Throw New Global.System.ArgumentNullException("TEMPLATE_PATH") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(TEMPLATE_PATH,String) - End If - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(DOCTYPE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(ACTIVE,Boolean) - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(CHANGED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(6).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 ''' @@ -45114,7 +44715,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_TEMPLATE_ENTITYTableAdapter + Partial Public Class TBPMO_LANGUAGE_OBJECTTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -45231,40 +44832,103 @@ 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_TEMPLATE_ENTITY" + tableMapping.DataSetTable = "TBPMO_LANGUAGE_OBJECT" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("TEMPLATE_ID", "TEMPLATE_ID") - tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") + tableMapping.ColumnMappings.Add("LANGUAGE_TYPE", "LANGUAGE_TYPE") + tableMapping.ColumnMappings.Add("SCREEN_ID", "SCREEN_ID") + tableMapping.ColumnMappings.Add("PMO_OBJECT_NAME", "PMO_OBJECT_NAME") + tableMapping.ColumnMappings.Add("CAPTION", "CAPTION") + tableMapping.ColumnMappings.Add("HINT", "HINT") 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_TEMPLATE_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM [TBPMO_LANGUAGE_OBJECT] WHERE (([GUID] = @Original_GUID) AND ([LANGUA"& _ + "GE_TYPE] = @Original_LANGUAGE_TYPE) AND ([SCREEN_ID] = @Original_SCREEN_ID) AND "& _ + "([PMO_OBJECT_NAME] = @Original_PMO_OBJECT_NAME) AND ([CAPTION] = @Original_CAPTI"& _ + "ON) AND ((@IsNull_HINT = 1 AND [HINT] IS NULL) OR ([HINT] = @Original_HINT)) AND"& _ + " ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHE"& _ + "N] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO "& _ + "= 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ("& _ + "(@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Orig"& _ + "inal_CHANGED_WHEN)))" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCREEN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PMO_OBJECT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PMO_OBJECT_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_HINT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HINT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HINT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HINT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_TEMPLATE_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TEMPLATE_ID, ENTITY_"& _ - "ID, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@TEMPLATE_ID,@ENTITY_ID,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUI"& _ - "D, TEMPLATE_ID, ENTITY_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHEN FROM TBPMO_TEMPLA"& _ - "TE_ENTITY WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_LANGUAGE_OBJECT] ([LANGUAGE_TYPE], [SCREEN_ID], [PMO_OBJECT_NA"& _ + "ME], [CAPTION], [HINT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]"& _ + ") VALUES (@LANGUAGE_TYPE, @SCREEN_ID, @PMO_OBJECT_NAME, @CAPTION, @HINT, @ADDED_"& _ + "WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LANGUAGE_TYPE, SCR"& _ + "EEN_ID, PMO_OBJECT_NAME, CAPTION, HINT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHAN"& _ + "GED_WHEN FROM TBPMO_LANGUAGE_OBJECT WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - 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("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCREEN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PMO_OBJECT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PMO_OBJECT_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HINT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HINT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_TEMPLATE_ENTITY"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TEMPLATE_ID = @TEMPLATE_ID"& _ - ", ENTITY_ID = @ENTITY_ID"&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, T"& _ - "EMPLATE_ID, ENTITY_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHEN FROM TBPMO_TEMPLATE_E"& _ - "NTITY WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE [TBPMO_LANGUAGE_OBJECT] SET [LANGUAGE_TYPE] = @LANGUAGE_TYPE, [SCREEN_ID] "& _ + "= @SCREEN_ID, [PMO_OBJECT_NAME] = @PMO_OBJECT_NAME, [CAPTION] = @CAPTION, [HINT]"& _ + " = @HINT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = "& _ + "@CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AN"& _ + "D ([LANGUAGE_TYPE] = @Original_LANGUAGE_TYPE) AND ([SCREEN_ID] = @Original_SCREE"& _ + "N_ID) AND ([PMO_OBJECT_NAME] = @Original_PMO_OBJECT_NAME) AND ([CAPTION] = @Orig"& _ + "inal_CAPTION) AND ((@IsNull_HINT = 1 AND [HINT] IS NULL) OR ([HINT] = @Original_"& _ + "HINT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND "& _ + "[ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CH"& _ + "ANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_W"& _ + "HO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHE"& _ + "N] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LANGUAGE_TYPE, SCREEN_ID, PMO_OBJE"& _ + "CT_NAME, CAPTION, HINT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TB"& _ + "PMO_LANGUAGE_OBJECT WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - 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("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCREEN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PMO_OBJECT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PMO_OBJECT_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HINT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HINT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCREEN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PMO_OBJECT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PMO_OBJECT_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_HINT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HINT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HINT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HINT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_TEMPLATE_ENTITYDataTable, ByVal TEMPL_ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_LANGUAGE_OBJECTDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(TEMPL_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -45304,10 +44965,9 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal TEMPL_ID As Integer) As DD_DMSDataSet.TBPMO_TEMPLATE_ENTITYDataTable + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_LANGUAGE_OBJECTDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(TEMPL_ID,Integer) - Dim dataTable As DD_DMSDataSet.TBPMO_TEMPLATE_ENTITYDataTable = New DD_DMSDataSet.TBPMO_TEMPLATE_ENTITYDataTable() + Dim dataTable As DD_DMSDataSet.TBPMO_LANGUAGE_OBJECTDataTable = New DD_DMSDataSet.TBPMO_LANGUAGE_OBJECTDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -45315,7 +44975,7 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_TEMPLATE_ENTITYDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_LANGUAGE_OBJECTDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -45323,7 +44983,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_TEMPLATE_ENTITY") + Return Me.Adapter.Update(dataSet, "TBPMO_LANGUAGE_OBJECT") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_LANGUAGE_TYPE As String, ByVal Original_SCREEN_ID As Integer, ByVal Original_PMO_OBJECT_NAME As String, ByVal Original_CAPTION As String, ByVal Original_HINT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + If (Original_LANGUAGE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LANGUAGE_TYPE") + Else + Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_LANGUAGE_TYPE,String) + End If + Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SCREEN_ID,Integer) + If (Original_PMO_OBJECT_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PMO_OBJECT_NAME") + Else + Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_PMO_OBJECT_NAME,String) + End If + If (Original_CAPTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_CAPTION") + Else + Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_CAPTION,String) + End If + If (Original_HINT Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_HINT,String) + End If + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) + Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value + End If 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 TEMPLATE_ID As Integer, ByVal ENTITY_ID As Integer, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(TEMPLATE_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) - If (ADDED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + 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 LANGUAGE_TYPE As String, ByVal SCREEN_ID As Integer, ByVal PMO_OBJECT_NAME As String, ByVal CAPTION As String, ByVal HINT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + If (LANGUAGE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE_TYPE") + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(LANGUAGE_TYPE,String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SCREEN_ID,Integer) + If (PMO_OBJECT_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("PMO_OBJECT_NAME") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(PMO_OBJECT_NAME,String) + End If + If (CAPTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("CAPTION") + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(CAPTION,String) + End If + If (HINT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(HINT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> 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 LANGUAGE_TYPE As String, _ + ByVal SCREEN_ID As Integer, _ + ByVal PMO_OBJECT_NAME As String, _ + ByVal CAPTION As String, _ + ByVal HINT As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_LANGUAGE_TYPE As String, _ + ByVal Original_SCREEN_ID As Integer, _ + ByVal Original_PMO_OBJECT_NAME As String, _ + ByVal Original_CAPTION As String, _ + ByVal Original_HINT As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal GUID As Integer) As Integer + If (LANGUAGE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(LANGUAGE_TYPE,String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SCREEN_ID,Integer) + If (PMO_OBJECT_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("PMO_OBJECT_NAME") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PMO_OBJECT_NAME,String) + End If + If (CAPTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("CAPTION") + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CAPTION,String) + End If + If (HINT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(HINT,String) + End If + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHO,String) + End If + If (ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + End If + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) + End If + If (CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) + If (Original_LANGUAGE_TYPE Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_LANGUAGE_TYPE") + Else + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_LANGUAGE_TYPE,String) + End If + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_SCREEN_ID,Integer) + If (Original_PMO_OBJECT_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_PMO_OBJECT_NAME") + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PMO_OBJECT_NAME,String) + End If + If (Original_CAPTION Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_CAPTION") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CAPTION,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 + If (Original_HINT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_HINT,String) 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 TEMPLATE_ID As Integer, ByVal ENTITY_ID As Integer, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TEMPLATE_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(ENTITY_ID,Integer) - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID,Integer) + If (Original_ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") + Else + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ADDED_WHO,String) + End If + If (Original_ADDED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ADDED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value + End If + If (Original_CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_CHANGED_WHO,String) + End If + If (Original_CHANGED_WHEN.HasValue = true) Then + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_CHANGED_WHEN.Value,Date) + Else + Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) + Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + End If + Me.Adapter.UpdateCommand.Parameters(23).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -45411,6 +45262,33 @@ Namespace DD_DMSDataSetTableAdapters End If End Try End Function + + _ + Public Overloads Overridable Function Update( _ + ByVal LANGUAGE_TYPE As String, _ + ByVal SCREEN_ID As Integer, _ + ByVal PMO_OBJECT_NAME As String, _ + ByVal CAPTION As String, _ + ByVal HINT As String, _ + ByVal ADDED_WHO As String, _ + ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal CHANGED_WHO As String, _ + ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_GUID As Integer, _ + ByVal Original_LANGUAGE_TYPE As String, _ + ByVal Original_SCREEN_ID As Integer, _ + ByVal Original_PMO_OBJECT_NAME As String, _ + ByVal Original_CAPTION As String, _ + ByVal Original_HINT As String, _ + ByVal Original_ADDED_WHO As String, _ + ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ + ByVal Original_CHANGED_WHO As String, _ + ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Return Me.Update(LANGUAGE_TYPE, SCREEN_ID, PMO_OBJECT_NAME, CAPTION, HINT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_LANGUAGE_TYPE, Original_SCREEN_ID, Original_PMO_OBJECT_NAME, Original_CAPTION, Original_HINT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) + End Function End Class ''' @@ -45422,7 +45300,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_TEMPLATE_PATTERNTableAdapter + Partial Public Class TBDD_CLIENTTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -45539,53 +45417,42 @@ 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_TEMPLATE_PATTERN" + tableMapping.DataSetTable = "TBDD_CLIENT" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME_PATTERN", "NAME_PATTERN") - tableMapping.ColumnMappings.Add("FIXED_VALUE", "FIXED_VALUE") - tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") - tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + tableMapping.ColumnMappings.Add("CLIENT_NAME", "CLIENT_NAME") + tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("TEMPLATE_ENT_ID", "TEMPLATE_ENT_ID") 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_TEMPLATE_PATTERN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_CLIENT"&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_TEMPLATE_PATTERN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (TEMPLATE_ENT_ID, NA"& _ - "ME_PATTERN, FIXED_VALUE, CONNECTION_ID, SQL_COMMAND, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES ("& _ - "@TEMPLATE_ENT_ID,@NAME_PATTERN,@FIXED_VALUE,@CONNECTION_ID,@SQL_COMMAND,@ADDED_W"& _ - "HO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, TEMPLATE_ENT_ID, NAME_PATTERN, FIXED_VALUE, CONNECTION_ID, S"& _ - "QL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_TEMPLATE"& _ - "_PATTERN WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_CLIENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CLIENT_NAME, SHORTNAME, COMMEN"& _ + "T, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CLIENT_NAME,@SHORTNAME,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SE"& _ + "LECT GUID, CLIENT_NAME, SHORTNAME, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, "& _ + "CHANGED_WHEN FROM TBDD_CLIENT WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_PATTERN", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_PATTERN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FIXED_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "FIXED_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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_TEMPLATE_PATTERN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET TEMPLATE_ENT_ID = @TEMPLA"& _ - "TE_ENT_ID, NAME_PATTERN = @NAME_PATTERN, FIXED_VALUE = @FIXED_VALUE, CONNECTION_"& _ - "ID = @CONNECTION_ID, SQL_COMMAND = @SQL_COMMAND, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHAN"& _ - "GED_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, TEM"& _ - "PLATE_ENT_ID, NAME_PATTERN, FIXED_VALUE, CONNECTION_ID, SQL_COMMAND, ADDED_WHO, "& _ - "ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_TEMPLATE_PATTERN WHERE (GUID = "& _ - "@GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_CLIENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CLIENT_NAME = @CLIENT_NAME, SHORTNAM"& _ + "E = @SHORTNAME, COMMENT = @COMMENT, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GU"& _ + "ID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CLIENT_NAME, SHORTNAME, COMMENT, ADDED_WHO,"& _ + " ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_CLIENT WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_PATTERN", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_PATTERN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FIXED_VALUE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "FIXED_VALUE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 2000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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, "", "", "")) @@ -45601,32 +45468,20 @@ Namespace DD_DMSDataSetTableAdapters _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, TEMPLATE_ENT_ID, NAME_PATTERN, FIXED_VALUE, CONNECTION_ID, SQ"& _ - "L_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBP"& _ - "MO_TEMPLATE_PATTERN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (TEMPLATE_ENT_ID = @TEMPL_ENT_ID)" + Me._commandCollection(0).CommandText = "SELECT GUID, CLIENT_NAME, SHORTNAME, COMMENT, ADDED_WHO, ADDED_WHEN, CHANG"& _ + "ED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CLIENT" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPL_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() - Me._commandCollection(1).Connection = Me.Connection - Me._commandCollection(1).CommandText = "INSERT INTO TBPMO_TEMPLATE_PATTERN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME_PATTERN, ADDED"& _ - "_WHO, TEMPLATE_ENT_ID)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME_PATTERN,@ADDED_WHO,@TEMPLATE_ENT_ID"& _ - ")" - Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME_PATTERN", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME_PATTERN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(1).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._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@TEMPLATE_ENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "TEMPLATE_ENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_TEMPLATE_PATTERNDataTable, ByVal TEMPL_ENT_ID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_CLIENTDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(TEMPL_ENT_ID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -45638,10 +45493,9 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal TEMPL_ENT_ID As Integer) As DD_DMSDataSet.TBPMO_TEMPLATE_PATTERNDataTable + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_CLIENTDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(TEMPL_ENT_ID,Integer) - Dim dataTable As DD_DMSDataSet.TBPMO_TEMPLATE_PATTERNDataTable = New DD_DMSDataSet.TBPMO_TEMPLATE_PATTERNDataTable() + Dim dataTable As DD_DMSDataSet.TBDD_CLIENTDataTable = New DD_DMSDataSet.TBDD_CLIENTDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -45649,7 +45503,7 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_TEMPLATE_PATTERNDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_CLIENTDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -45657,7 +45511,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_TEMPLATE_PATTERN") + Return Me.Adapter.Update(dataSet, "TBDD_CLIENT") End Function _ - Public Overloads Overridable Function Insert(ByVal TEMPLATE_ENT_ID As Integer, ByVal NAME_PATTERN As String, ByVal FIXED_VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Integer), ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(TEMPLATE_ENT_ID,Integer) - If (NAME_PATTERN Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME_PATTERN") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(NAME_PATTERN,String) - End If - If (FIXED_VALUE Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Public Overloads Overridable Function Insert(ByVal CLIENT_NAME As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer + If (CLIENT_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("CLIENT_NAME") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(FIXED_VALUE,String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(CLIENT_NAME,String) End If - If (CONNECTION_ID.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(3).Value = CType(CONNECTION_ID.Value,Integer) + If (SHORTNAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SHORTNAME,String) End If - If (SQL_COMMAND Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + If (COMMENT Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(SQL_COMMAND,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String) End If If (ADDED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Throw New Global.System.ArgumentNullException("ADDED_WHO") Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(3).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) _ @@ -45745,35 +45593,29 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal TEMPLATE_ENT_ID As Integer, ByVal NAME_PATTERN As String, ByVal FIXED_VALUE As String, ByVal CONNECTION_ID As Global.System.Nullable(Of Integer), ByVal SQL_COMMAND As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(TEMPLATE_ENT_ID,Integer) - If (NAME_PATTERN Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME_PATTERN") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(NAME_PATTERN,String) - End If - If (FIXED_VALUE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Public Overloads Overridable Function Update(ByVal CLIENT_NAME As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (CLIENT_NAME Is Nothing) Then + Throw New Global.System.ArgumentNullException("CLIENT_NAME") Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(FIXED_VALUE,String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CLIENT_NAME,String) End If - If (CONNECTION_ID.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CONNECTION_ID.Value,Integer) + If (SHORTNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SHORTNAME,String) End If - If (SQL_COMMAND Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + If (COMMENT Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SQL_COMMAND,String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String) End If If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(5).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 @@ -45788,221 +45630,6 @@ Namespace DD_DMSDataSetTableAdapters End If End Try End Function - - _ - Public Overloads Overridable Function cmdInsertBasics(ByVal NAME_PATTERN As String, ByVal ADDED_WHO As String, ByVal TEMPLATE_ENT_ID As Integer) As Object - Dim command As Global.System.Data.SqlClient.SqlCommand = Me.CommandCollection(1) - If (NAME_PATTERN Is Nothing) Then - Throw New Global.System.ArgumentNullException("NAME_PATTERN") - Else - command.Parameters(0).Value = CType(NAME_PATTERN,String) - End If - If (ADDED_WHO Is Nothing) Then - command.Parameters(1).Value = Global.System.DBNull.Value - Else - command.Parameters(1).Value = CType(ADDED_WHO,String) - End If - command.Parameters(2).Value = CType(TEMPLATE_ENT_ID,Integer) - Dim previousConnectionState As Global.System.Data.ConnectionState = command.Connection.State - If ((command.Connection.State And Global.System.Data.ConnectionState.Open) _ - <> Global.System.Data.ConnectionState.Open) Then - command.Connection.Open - End If - Dim returnValue As Object - Try - returnValue = command.ExecuteScalar - Finally - If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - command.Connection.Close - End If - End Try - If ((returnValue Is Nothing) _ - OrElse (returnValue.GetType Is GetType(Global.System.DBNull))) Then - Return Nothing - Else - Return CType(returnValue,Object) - End If - End Function - End Class - - ''' - '''Represents the connection and commands used to retrieve and save data. - ''' - _ - Partial Public Class TBTEMP_QUICKDISPLAYTableAdapter - 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 = "TBTEMP_QUICKDISPLAY" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("COL_NAME", "COL_NAME") - Me._adapter.TableMappings.Add(tableMapping) - 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 T.GUID, T1.COL_NAME FROM TBPMO_FORM_CONSTR_QUICK_DISPLAY T, TBPMO_CONTROL "& _ - "T1 WHERE T.CONTROL_ID = T1.GUID AND T.CONSTRUCT_ID = @CONSTRUCT_ID" - Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBTEMP_QUICKDISPLAYDataTable, ByVal CONSTRUCT_ID As Integer) As Integer - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear - End If - Dim returnValue As Integer = Me.Adapter.Fill(dataTable) - Return returnValue - End Function - - _ - Public Overloads Overridable Function GetData(ByVal CONSTRUCT_ID As Integer) As DD_DMSDataSet.TBTEMP_QUICKDISPLAYDataTable - Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) - Dim dataTable As DD_DMSDataSet.TBTEMP_QUICKDISPLAYDataTable = New DD_DMSDataSet.TBTEMP_QUICKDISPLAYDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function End Class ''' @@ -46014,7 +45641,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_LANGUAGE_OBJECTTableAdapter + Partial Public Class TBPMO_CONSTRUCTOR_USER_SQLTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -46131,103 +45758,42 @@ 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_LANGUAGE_OBJECT" + tableMapping.DataSetTable = "TBPMO_CONSTRUCTOR_USER_SQL" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("LANGUAGE_TYPE", "LANGUAGE_TYPE") - tableMapping.ColumnMappings.Add("SCREEN_ID", "SCREEN_ID") - tableMapping.ColumnMappings.Add("PMO_OBJECT_NAME", "PMO_OBJECT_NAME") - tableMapping.ColumnMappings.Add("CAPTION", "CAPTION") - tableMapping.ColumnMappings.Add("HINT", "HINT") + tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("CONSTR_DET_ID", "CONSTR_DET_ID") + tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") 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_LANGUAGE_OBJECT] WHERE (([GUID] = @Original_GUID) AND ([LANGUA"& _ - "GE_TYPE] = @Original_LANGUAGE_TYPE) AND ([SCREEN_ID] = @Original_SCREEN_ID) AND "& _ - "([PMO_OBJECT_NAME] = @Original_PMO_OBJECT_NAME) AND ([CAPTION] = @Original_CAPTI"& _ - "ON) AND ((@IsNull_HINT = 1 AND [HINT] IS NULL) OR ([HINT] = @Original_HINT)) AND"& _ - " ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND [ADDED_WHE"& _ - "N] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CHANGED_WHO "& _ - "= 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_WHO)) AND ("& _ - "(@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHEN] = @Orig"& _ - "inal_CHANGED_WHEN)))" - Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCREEN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PMO_OBJECT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PMO_OBJECT_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_HINT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HINT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HINT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HINT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO [TBPMO_LANGUAGE_OBJECT] ([LANGUAGE_TYPE], [SCREEN_ID], [PMO_OBJECT_NA"& _ - "ME], [CAPTION], [HINT], [ADDED_WHO], [ADDED_WHEN], [CHANGED_WHO], [CHANGED_WHEN]"& _ - ") VALUES (@LANGUAGE_TYPE, @SCREEN_ID, @PMO_OBJECT_NAME, @CAPTION, @HINT, @ADDED_"& _ - "WHO, @ADDED_WHEN, @CHANGED_WHO, @CHANGED_WHEN);"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LANGUAGE_TYPE, SCR"& _ - "EEN_ID, PMO_OBJECT_NAME, CAPTION, HINT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHAN"& _ - "GED_WHEN FROM TBPMO_LANGUAGE_OBJECT WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_CONSTRUCTOR_USER_SQL"&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_CONSTRUCTOR_USER_SQL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONSTR_DET_ID, "& _ + "USER_ID, SQL_COMMAND, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONSTR_DET_ID,@USER_ID,@SQL_CO"& _ + "MMAND,@ADDED_WHO)" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCREEN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PMO_OBJECT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PMO_OBJECT_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HINT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HINT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTR_DET_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTR_DET_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", 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_LANGUAGE_OBJECT] SET [LANGUAGE_TYPE] = @LANGUAGE_TYPE, [SCREEN_ID] "& _ - "= @SCREEN_ID, [PMO_OBJECT_NAME] = @PMO_OBJECT_NAME, [CAPTION] = @CAPTION, [HINT]"& _ - " = @HINT, [ADDED_WHO] = @ADDED_WHO, [ADDED_WHEN] = @ADDED_WHEN, [CHANGED_WHO] = "& _ - "@CHANGED_WHO, [CHANGED_WHEN] = @CHANGED_WHEN WHERE (([GUID] = @Original_GUID) AN"& _ - "D ([LANGUAGE_TYPE] = @Original_LANGUAGE_TYPE) AND ([SCREEN_ID] = @Original_SCREE"& _ - "N_ID) AND ([PMO_OBJECT_NAME] = @Original_PMO_OBJECT_NAME) AND ([CAPTION] = @Orig"& _ - "inal_CAPTION) AND ((@IsNull_HINT = 1 AND [HINT] IS NULL) OR ([HINT] = @Original_"& _ - "HINT)) AND ([ADDED_WHO] = @Original_ADDED_WHO) AND ((@IsNull_ADDED_WHEN = 1 AND "& _ - "[ADDED_WHEN] IS NULL) OR ([ADDED_WHEN] = @Original_ADDED_WHEN)) AND ((@IsNull_CH"& _ - "ANGED_WHO = 1 AND [CHANGED_WHO] IS NULL) OR ([CHANGED_WHO] = @Original_CHANGED_W"& _ - "HO)) AND ((@IsNull_CHANGED_WHEN = 1 AND [CHANGED_WHEN] IS NULL) OR ([CHANGED_WHE"& _ - "N] = @Original_CHANGED_WHEN)));"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, LANGUAGE_TYPE, SCREEN_ID, PMO_OBJE"& _ - "CT_NAME, CAPTION, HINT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TB"& _ - "PMO_LANGUAGE_OBJECT WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_CONSTRUCTOR_USER_SQL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET SQL_COMMAND = @SQL_CO"& _ + "MMAND, 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)&"SELEC"& _ + "T GUID, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO"& _ + "_CONSTRUCTOR_USER_SQL WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE_TYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCREEN_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PMO_OBJECT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PMO_OBJECT_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAPTION", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@HINT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HINT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_LANGUAGE_TYPE", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE_TYPE", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "SCREEN_ID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_PMO_OBJECT_NAME", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "PMO_OBJECT_NAME", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CAPTION", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CAPTION", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_HINT", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HINT", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_HINT", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "HINT", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_ADDED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_ADDED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHO", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IsNull_CHANGED_WHEN", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, true, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_CHANGED_WHEN", Global.System.Data.SqlDbType.DateTime, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHEN", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", 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 _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_LANGUAGE_OBJECTDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQLDataTable, ByVal CONSTR_DET_ID As Integer, ByVal USERID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONSTR_DET_ID,Integer) + Me.Adapter.SelectCommand.Parameters(1).Value = CType(USERID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -46264,9 +45836,11 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_LANGUAGE_OBJECTDataTable + Public Overloads Overridable Function GetData(ByVal CONSTR_DET_ID As Integer, ByVal USERID As Integer) As DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQLDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBPMO_LANGUAGE_OBJECTDataTable = New DD_DMSDataSet.TBPMO_LANGUAGE_OBJECTDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONSTR_DET_ID,Integer) + Me.Adapter.SelectCommand.Parameters(1).Value = CType(USERID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQLDataTable = New DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQLDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -46274,7 +45848,7 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_LANGUAGE_OBJECTDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQLDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -46282,7 +45856,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_LANGUAGE_OBJECT") + Return Me.Adapter.Update(dataSet, "TBPMO_CONSTRUCTOR_USER_SQL") End Function _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer, ByVal Original_LANGUAGE_TYPE As String, ByVal Original_SCREEN_ID As Integer, ByVal Original_PMO_OBJECT_NAME As String, ByVal Original_CAPTION As String, ByVal Original_HINT As String, ByVal Original_ADDED_WHO As String, ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), ByVal Original_CHANGED_WHO As String, ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) - If (Original_LANGUAGE_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_LANGUAGE_TYPE") - Else - Me.Adapter.DeleteCommand.Parameters(1).Value = CType(Original_LANGUAGE_TYPE,String) - End If - Me.Adapter.DeleteCommand.Parameters(2).Value = CType(Original_SCREEN_ID,Integer) - If (Original_PMO_OBJECT_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_PMO_OBJECT_NAME") - Else - Me.Adapter.DeleteCommand.Parameters(3).Value = CType(Original_PMO_OBJECT_NAME,String) - End If - If (Original_CAPTION Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_CAPTION") - Else - Me.Adapter.DeleteCommand.Parameters(4).Value = CType(Original_CAPTION,String) - End If - If (Original_HINT Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(5).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(6).Value = CType(Original_HINT,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.DeleteCommand.Parameters(7).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(8).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(9).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(11).Value = Global.System.DBNull.Value - Else - Me.Adapter.DeleteCommand.Parameters(10).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(11).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(0,Object) - Me.Adapter.DeleteCommand.Parameters(13).Value = CType(Original_CHANGED_WHEN.Value,Date) - Else - Me.Adapter.DeleteCommand.Parameters(12).Value = CType(1,Object) - Me.Adapter.DeleteCommand.Parameters(13).Value = Global.System.DBNull.Value - End If 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 @@ -46373,47 +45898,18 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, true)> _ - Public Overloads Overridable Function Insert(ByVal LANGUAGE_TYPE As String, ByVal SCREEN_ID As Integer, ByVal PMO_OBJECT_NAME As String, ByVal CAPTION As String, ByVal HINT As String, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Global.System.Nullable(Of Date), ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - If (LANGUAGE_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE_TYPE") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(LANGUAGE_TYPE,String) - End If - Me.Adapter.InsertCommand.Parameters(1).Value = CType(SCREEN_ID,Integer) - If (PMO_OBJECT_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("PMO_OBJECT_NAME") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(PMO_OBJECT_NAME,String) - End If - If (CAPTION Is Nothing) Then - Throw New Global.System.ArgumentNullException("CAPTION") - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(CAPTION,String) - End If - If (HINT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Public Overloads Overridable Function Insert(ByVal CONSTR_DET_ID As Integer, ByVal USER_ID As Integer, ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONSTR_DET_ID,Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(USER_ID,Integer) + If (SQL_COMMAND Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(HINT,String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SQL_COMMAND,String) End If If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) - Else - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.InsertCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(3).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) _ @@ -46434,119 +45930,19 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update( _ - ByVal LANGUAGE_TYPE As String, _ - ByVal SCREEN_ID As Integer, _ - ByVal PMO_OBJECT_NAME As String, _ - ByVal CAPTION As String, _ - ByVal HINT As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_LANGUAGE_TYPE As String, _ - ByVal Original_SCREEN_ID As Integer, _ - ByVal Original_PMO_OBJECT_NAME As String, _ - ByVal Original_CAPTION As String, _ - ByVal Original_HINT As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal GUID As Integer) As Integer - If (LANGUAGE_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE_TYPE") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(LANGUAGE_TYPE,String) - End If - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SCREEN_ID,Integer) - If (PMO_OBJECT_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("PMO_OBJECT_NAME") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PMO_OBJECT_NAME,String) - End If - If (CAPTION Is Nothing) Then - Throw New Global.System.ArgumentNullException("CAPTION") - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CAPTION,String) - End If - If (HINT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(HINT,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(ADDED_WHO,String) - End If - If (ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(ADDED_WHEN.Value,Date) + Public Overloads Overridable Function Update(ByVal SQL_COMMAND As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (SQL_COMMAND Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(SQL_COMMAND,String) End If If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO,String) - End If - If (CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value - End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID,Integer) - If (Original_LANGUAGE_TYPE Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_LANGUAGE_TYPE") - Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(Original_LANGUAGE_TYPE,String) - End If - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(Original_SCREEN_ID,Integer) - If (Original_PMO_OBJECT_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_PMO_OBJECT_NAME") - Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(Original_PMO_OBJECT_NAME,String) - End If - If (Original_CAPTION Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_CAPTION") - Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(Original_CAPTION,String) - End If - If (Original_HINT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(Original_HINT,String) - End If - If (Original_ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("Original_ADDED_WHO") - Else - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(Original_ADDED_WHO,String) - End If - If (Original_ADDED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(Original_ADDED_WHEN.Value,Date) - Else - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(18).Value = Global.System.DBNull.Value - End If - If (Original_CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(20).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(19).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(20).Value = CType(Original_CHANGED_WHO,String) - End If - If (Original_CHANGED_WHEN.HasValue = true) Then - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(0,Object) - Me.Adapter.UpdateCommand.Parameters(22).Value = CType(Original_CHANGED_WHEN.Value,Date) + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(21).Value = CType(1,Object) - Me.Adapter.UpdateCommand.Parameters(22).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(23).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(3).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 @@ -46561,33 +45957,6 @@ Namespace DD_DMSDataSetTableAdapters End If End Try End Function - - _ - Public Overloads Overridable Function Update( _ - ByVal LANGUAGE_TYPE As String, _ - ByVal SCREEN_ID As Integer, _ - ByVal PMO_OBJECT_NAME As String, _ - ByVal CAPTION As String, _ - ByVal HINT As String, _ - ByVal ADDED_WHO As String, _ - ByVal ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal CHANGED_WHO As String, _ - ByVal CHANGED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_GUID As Integer, _ - ByVal Original_LANGUAGE_TYPE As String, _ - ByVal Original_SCREEN_ID As Integer, _ - ByVal Original_PMO_OBJECT_NAME As String, _ - ByVal Original_CAPTION As String, _ - ByVal Original_HINT As String, _ - ByVal Original_ADDED_WHO As String, _ - ByVal Original_ADDED_WHEN As Global.System.Nullable(Of Date), _ - ByVal Original_CHANGED_WHO As String, _ - ByVal Original_CHANGED_WHEN As Global.System.Nullable(Of Date)) As Integer - Return Me.Update(LANGUAGE_TYPE, SCREEN_ID, PMO_OBJECT_NAME, CAPTION, HINT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, Original_GUID, Original_LANGUAGE_TYPE, Original_SCREEN_ID, Original_PMO_OBJECT_NAME, Original_CAPTION, Original_HINT, Original_ADDED_WHO, Original_ADDED_WHEN, Original_CHANGED_WHO, Original_CHANGED_WHEN, Original_GUID) - End Function End Class ''' @@ -46599,7 +45968,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_CLIENTTableAdapter + Partial Public Class TBPMO_WD_IMPORT_PROFILETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -46716,43 +46085,68 @@ 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 = "TBDD_CLIENT" + tableMapping.DataSetTable = "TBPMO_WD_IMPORT_PROFILE" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("CLIENT_NAME", "CLIENT_NAME") - tableMapping.ColumnMappings.Add("SHORTNAME", "SHORTNAME") - tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("NAME", "NAME") + tableMapping.ColumnMappings.Add("WD_SEARCH", "WD_SEARCH") + tableMapping.ColumnMappings.Add("UNIQUE_DOC_SQL", "UNIQUE_DOC_SQL") + tableMapping.ColumnMappings.Add("NEW_OBJECTTYPE", "NEW_OBJECTTYPE") + tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") + tableMapping.ColumnMappings.Add("SQL_DOCTYPE", "SQL_DOCTYPE") + tableMapping.ColumnMappings.Add("OLD_OBJECTTYPE", "OLD_OBJECTTYPE") + tableMapping.ColumnMappings.Add("IDX_FILE_WORKED", "IDX_FILE_WORKED") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_CLIENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_WD_IMPORT_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" Me._adapter.DeleteCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.DeleteCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_CLIENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CLIENT_NAME, SHORTNAME, COMMEN"& _ - "T, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CLIENT_NAME,@SHORTNAME,@COMMENT,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SE"& _ - "LECT GUID, CLIENT_NAME, SHORTNAME, COMMENT, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, "& _ - "CHANGED_WHEN FROM TBDD_CLIENT WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_WD_IMPORT_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, WD_SEARCH, U"& _ + "NIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ENTITY_ID, SQL_DOCTYPE,"& _ + " OLD_OBJECTTYPE, IDX_FILE_WORKED)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@WD_SEARCH,@UNIQUE_DOC_S"& _ + "QL,@NEW_OBJECTTYPE,@CONNECTION_ID,@ADDED_WHO,@ENTITY_ID,@SQL_DOCTYPE,@OLD_OBJECT"& _ + "TYPE,@IDX_FILE_WORKED); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_"& _ + "OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM"& _ + " TBPMO_WD_IMPORT_PROFILE WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UNIQUE_DOC_SQL", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "UNIQUE_DOC_SQL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NEW_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NEW_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@SQL_DOCTYPE", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_DOCTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OLD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OLD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_FILE_WORKED", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_FILE_WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_CLIENT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CLIENT_NAME = @CLIENT_NAME, SHORTNAM"& _ - "E = @SHORTNAME, COMMENT = @COMMENT, CHANGED_WHO = @CHANGED_WHO"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GU"& _ - "ID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CLIENT_NAME, SHORTNAME, COMMENT, ADDED_WHO,"& _ - " ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBDD_CLIENT WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_WD_IMPORT_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, WD_SEARCH "& _ + "= @WD_SEARCH, UNIQUE_DOC_SQL = @UNIQUE_DOC_SQL, NEW_OBJECTTYPE = @NEW_OBJECTTYPE"& _ + ", CONNECTION_ID = @CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHAN"& _ + "GED_WHO, ENTITY_ID = @ENTITY_ID, SQL_DOCTYPE = @SQL_DOCTYPE, OLD_OBJECTTYPE = @O"& _ + "LD_OBJECTTYPE, IDX_FILE_WORKED = @IDX_FILE_WORKED"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origina"& _ + "l_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CON"& _ + "NECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_IMPOR"& _ + "T_PROFILE WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CLIENT_NAME", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CLIENT_NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORTNAME", Global.System.Data.SqlDbType.VarChar, 30, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORTNAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COMMENT", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "COMMENT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UNIQUE_DOC_SQL", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "UNIQUE_DOC_SQL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NEW_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NEW_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", 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("@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("@SQL_DOCTYPE", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_DOCTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OLD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OLD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_FILE_WORKED", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_FILE_WORKED", 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 @@ -46770,8 +46164,10 @@ 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 GUID, CLIENT_NAME, SHORTNAME, COMMENT, ADDED_WHO, ADDED_WHEN, CHANG"& _ - "ED_WHO, CHANGED_WHEN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CLIENT" + Me._commandCollection(0).CommandText = "SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_I"& _ + "D, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ENTITY_ID, SQL_DOCTYPE, OLD"& _ + "_OBJECTTYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" IDX_FILE_WORKED"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_W"& _ + "D_IMPORT_PROFILE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub @@ -46779,7 +46175,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"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, true)> _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBDD_CLIENTDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILEDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = true) Then dataTable.Clear @@ -46792,9 +46188,9 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBDD_CLIENTDataTable + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBDD_CLIENTDataTable = New DD_DMSDataSet.TBDD_CLIENTDataTable() + Dim dataTable As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILEDataTable = New DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -46802,7 +46198,7 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBDD_CLIENTDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILEDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -46810,7 +46206,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, "TBDD_CLIENT") + Return Me.Adapter.Update(dataSet, "TBPMO_WD_IMPORT_PROFILE") 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 CLIENT_NAME As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal ADDED_WHO As String) As Integer - If (CLIENT_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("CLIENT_NAME") - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(CLIENT_NAME,String) - End If - If (SHORTNAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(SHORTNAME,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(COMMENT,String) - End If - If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") - Else - Me.Adapter.InsertCommand.Parameters(3).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 CLIENT_NAME As String, ByVal SHORTNAME As String, ByVal COMMENT As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (CLIENT_NAME Is Nothing) Then - Throw New Global.System.ArgumentNullException("CLIENT_NAME") - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CLIENT_NAME,String) - End If - If (SHORTNAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SHORTNAME,String) - End If - If (COMMENT Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(COMMENT,String) - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(CHANGED_WHO,String) - End If - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(5).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 ''' @@ -46940,7 +46233,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_CONSTRUCTOR_USER_SQLTableAdapter + Partial Public Class TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -47057,39 +46350,50 @@ 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_CONSTRUCTOR_USER_SQL" + tableMapping.DataSetTable = "TBPMO_WD_IMPORT_PROFILE_IDX" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("SQL_COMMAND", "SQL_COMMAND") + tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") + tableMapping.ColumnMappings.Add("STRING1", "STRING1") + tableMapping.ColumnMappings.Add("STRING2", "STRING2") + tableMapping.ColumnMappings.Add("SQL1", "SQL1") + tableMapping.ColumnMappings.Add("SQL2", "SQL2") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("CONSTR_DET_ID", "CONSTR_DET_ID") - tableMapping.ColumnMappings.Add("USER_ID", "USER_ID") 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_CONSTRUCTOR_USER_SQL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_WD_IMPORT_PROFILE_IDX"&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_CONSTRUCTOR_USER_SQL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONSTR_DET_ID, "& _ - "USER_ID, SQL_COMMAND, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONSTR_DET_ID,@USER_ID,@SQL_CO"& _ - "MMAND,@ADDED_WHO)" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_WD_IMPORT_PROFILE_IDX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_ID, ST"& _ + "RING1, STRING2, SQL1, SQL2, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE_ID,@STRING1,@STR"& _ + "ING2,@SQL1,@SQL2,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, STRING1, STRING2, SQL1,"& _ + " SQL2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_IMPORT_PRO"& _ + "FILE_IDX WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTR_DET_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTR_DET_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL1", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL2", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL2", 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_CONSTRUCTOR_USER_SQL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET SQL_COMMAND = @SQL_CO"& _ - "MMAND, 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)&"SELEC"& _ - "T GUID, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO"& _ - "_CONSTRUCTOR_USER_SQL WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_WD_IMPORT_PROFILE_IDX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFILE_ID = @PROFIL"& _ + "E_ID, STRING1 = @STRING1, STRING2 = @STRING2, SQL1 = @SQL1, SQL2 = @SQL2, CHANGE"& _ + "D_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, PROFI"& _ + "LE_ID, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _ + "_WHEN FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_COMMAND", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_COMMAND", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL1", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL2", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL2", 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, "", "", "")) @@ -47108,22 +46412,19 @@ 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 GUID, SQL_COMMAND, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN"& _ - ", CONSTR_DET_ID, USER_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_CONSTRUCTOR_USER_SQL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE "& _ - " (CONSTR_DET_ID = @CONSTR_DET_ID) AND (USER_ID = @USERID)" + Me._commandCollection(0).CommandText = "SELECT TBPMO_WD_IMPORT_PROFILE_IDX.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WD_IMPORT_PROF"& _ + "ILE_IDX where PROFILE_ID = @GUID" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTR_DET_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTR_DET_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "USER_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQLDataTable, ByVal CONSTR_DET_ID As Integer, ByVal USERID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILE_IDXDataTable, ByVal GUID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONSTR_DET_ID,Integer) - Me.Adapter.SelectCommand.Parameters(1).Value = CType(USERID,Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -47135,11 +46436,10 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal CONSTR_DET_ID As Integer, ByVal USERID As Integer) As DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQLDataTable + Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILE_IDXDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(CONSTR_DET_ID,Integer) - Me.Adapter.SelectCommand.Parameters(1).Value = CType(USERID,Integer) - Dim dataTable As DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQLDataTable = New DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQLDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) + Dim dataTable As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILE_IDXDataTable = New DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILE_IDXDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -47147,7 +46447,7 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQLDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILE_IDXDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -47155,7 +46455,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_CONSTRUCTOR_USER_SQL") + Return Me.Adapter.Update(dataSet, "TBPMO_WD_IMPORT_PROFILE_IDX") End Function _ - Public Overloads Overridable Function Insert(ByVal CONSTR_DET_ID As Integer, ByVal USER_ID As Integer, ByVal SQL_COMMAND As String, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONSTR_DET_ID,Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(USER_ID,Integer) - If (SQL_COMMAND Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value + Public Overloads Overridable Function Insert(ByVal PROFILE_ID As Integer, ByVal STRING1 As String, ByVal STRING2 As String, ByVal SQL1 As String, ByVal SQL2 As String, ByVal ADDED_WHO As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + If (STRING1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("STRING1") Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(SQL_COMMAND,String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(STRING1,String) End If - If (ADDED_WHO Is Nothing) Then + If (STRING2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("STRING2") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(STRING2,String) + End If + If (SQL1 Is Nothing) Then Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(ADDED_WHO,String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(SQL1,String) + End If + If (SQL2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SQL2,String) + End If + If (ADDED_WHO Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) End If Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.InsertCommand.Connection.State If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ @@ -47229,19 +46543,35 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal SQL_COMMAND As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (SQL_COMMAND Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Public Overloads Overridable Function Update(ByVal PROFILE_ID As Integer, ByVal STRING1 As String, ByVal STRING2 As String, ByVal SQL1 As String, ByVal SQL2 As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) + If (STRING1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("STRING1") Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(SQL_COMMAND,String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(STRING1,String) + End If + If (STRING2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("STRING2") + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(STRING2,String) + End If + If (SQL1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SQL1,String) + End If + If (SQL2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SQL2,String) End If If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then @@ -47267,7 +46597,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_WD_IMPORT_PROFILETableAdapter + Partial Public Class VWPMO_WF_ACTIVETableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -47384,70 +46714,27 @@ 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_WD_IMPORT_PROFILE" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("NAME", "NAME") - tableMapping.ColumnMappings.Add("WD_SEARCH", "WD_SEARCH") - tableMapping.ColumnMappings.Add("UNIQUE_DOC_SQL", "UNIQUE_DOC_SQL") - tableMapping.ColumnMappings.Add("NEW_OBJECTTYPE", "NEW_OBJECTTYPE") - tableMapping.ColumnMappings.Add("CONNECTION_ID", "CONNECTION_ID") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.DataSetTable = "VWPMO_WF_ACTIVE" + tableMapping.ColumnMappings.Add("WF_TASK_ID", "WF_TASK_ID") + tableMapping.ColumnMappings.Add("WF_ID", "WF_ID") + tableMapping.ColumnMappings.Add("WF_TITLE", "WF_TITLE") + tableMapping.ColumnMappings.Add("RECORD_ID", "RECORD_ID") + tableMapping.ColumnMappings.Add("STATE_ID", "STATE_ID") + tableMapping.ColumnMappings.Add("STATE_TITLE", "STATE_TITLE") + tableMapping.ColumnMappings.Add("FORM_VIEW_ID", "FORM_VIEW_ID") + tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") + tableMapping.ColumnMappings.Add("ENTITY_TITLE", "ENTITY_TITLE") + tableMapping.ColumnMappings.Add("COMMENT", "COMMENT") + tableMapping.ColumnMappings.Add("DUE_DATE", "DUE_DATE") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("ENTITY_ID", "ENTITY_ID") - tableMapping.ColumnMappings.Add("SQL_DOCTYPE", "SQL_DOCTYPE") - tableMapping.ColumnMappings.Add("OLD_OBJECTTYPE", "OLD_OBJECTTYPE") - tableMapping.ColumnMappings.Add("IDX_FILE_WORKED", "IDX_FILE_WORKED") + tableMapping.ColumnMappings.Add("TASK_DATE", "TASK_DATE") + tableMapping.ColumnMappings.Add("FINAL", "FINAL") + tableMapping.ColumnMappings.Add("COLOR", "COLOR") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("RECORD_DESCRIPTION", "RECORD_DESCRIPTION") 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_WD_IMPORT_PROFILE"&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_WD_IMPORT_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, WD_SEARCH, U"& _ - "NIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ENTITY_ID, SQL_DOCTYPE,"& _ - " OLD_OBJECTTYPE, IDX_FILE_WORKED)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@WD_SEARCH,@UNIQUE_DOC_S"& _ - "QL,@NEW_OBJECTTYPE,@CONNECTION_ID,@ADDED_WHO,@ENTITY_ID,@SQL_DOCTYPE,@OLD_OBJECT"& _ - "TYPE,@IDX_FILE_WORKED); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_"& _ - "OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM"& _ - " TBPMO_WD_IMPORT_PROFILE WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UNIQUE_DOC_SQL", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "UNIQUE_DOC_SQL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NEW_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NEW_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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("@SQL_DOCTYPE", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_DOCTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OLD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OLD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_FILE_WORKED", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_FILE_WORKED", 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_WD_IMPORT_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, WD_SEARCH "& _ - "= @WD_SEARCH, UNIQUE_DOC_SQL = @UNIQUE_DOC_SQL, NEW_OBJECTTYPE = @NEW_OBJECTTYPE"& _ - ", CONNECTION_ID = @CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHAN"& _ - "GED_WHO, ENTITY_ID = @ENTITY_ID, SQL_DOCTYPE = @SQL_DOCTYPE, OLD_OBJECTTYPE = @O"& _ - "LD_OBJECTTYPE, IDX_FILE_WORKED = @IDX_FILE_WORKED"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origina"& _ - "l_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CON"& _ - "NECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_IMPOR"& _ - "T_PROFILE WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@UNIQUE_DOC_SQL", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "UNIQUE_DOC_SQL", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NEW_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NEW_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONNECTION_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONNECTION_ID", 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("@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("@SQL_DOCTYPE", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_DOCTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OLD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OLD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_FILE_WORKED", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_FILE_WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) End Sub _ Private Sub InitCommandCollection() - Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} + Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(1) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_I"& _ - "D, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ENTITY_ID, SQL_DOCTYPE, OLD"& _ - "_OBJECTTYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" IDX_FILE_WORKED"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_W"& _ - "D_IMPORT_PROFILE" + Me._commandCollection(0).CommandText = "SELECT WF_TASK_ID, WF_ID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'TASK_TITL"& _ + "E' + CONVERT(VARCHAR(5), WF_ID), 1) AS WF_TITLE, RECORD_ID, STATE_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'WF_STATE_TITLE' + CONVER"& _ + "T(VARCHAR(5), STATE_ID), 1) AS STATE_TITLE, FORM_VIEW_ID, ENTITY_ID, dbo.FNPMO_G"& _ + "ETOBJECTCAPTION(@LANGUAGE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 'FORMVIEW_TITLE' + CONVERT"& _ + "(VARCHAR(5), FORM_VIEW_ID), 1) AS 'ENTITY_TITLE', COMMENT, DUE_DATE, ADDED_WHEN,"& _ + " CHANGED_WHO, CHANGED_WHEN, TASK_DATE, FINAL, COLOR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + "@USER AS USERNAME, dbo.FNPMO_GET_ENTITY_COLUMN_CONTENT(RECORD_ID) AS RECORD_DESC"& _ + "RIPTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_WF_ACTIVE AS T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (WF_TASK_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + " (SELECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM VWPMO_WF_USER_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WH"& _ + "ERE (WF_TASK_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM VWPMO_WF_USER_EXCLUSIV AS VWPMO_WF_USER_EX"& _ + "CLUSIV_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE "& _ + " (UPPER(USERNAME) = UPPER(@USER))))))" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1) = New Global.System.Data.SqlClient.SqlCommand() + Me._commandCollection(1).Connection = Me.Connection + Me._commandCollection(1).CommandText = "SELECT WF_TASK_ID, WF_ID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'TASK_TITL"& _ + "E' + CONVERT(VARCHAR(5), WF_ID), 1) AS WF_TITLE, RECORD_ID, STATE_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'WF_STATE_TITLE' + CONVER"& _ + "T(VARCHAR(5), STATE_ID), 1) AS STATE_TITLE, FORM_VIEW_ID, ENTITY_ID, dbo.FNPMO_G"& _ + "ETOBJECTCAPTION(@LANGUAGE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" 'FORMVIEW_TITLE' + CONVERT"& _ + "(VARCHAR(5), FORM_VIEW_ID), 1) AS 'ENTITY_TITLE', COMMENT, DUE_DATE, ADDED_WHEN,"& _ + " CHANGED_WHO, CHANGED_WHEN, TASK_DATE, FINAL, COLOR, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + "@USER AS USERNAME, dbo.FNPMO_GET_ENTITY_COLUMN_CONTENT(RECORD_ID) AS RECORD_DESC"& _ + "RIPTION"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM VWPMO_WF_ACTIVE AS T"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (WF_TASK_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)& _ + " (SELECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM VWPMO_WF_USER_EXCLUSIV"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WH"& _ + "ERE (WF_TASK_ID NOT IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " (SELECT WF_TASK_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " FROM VWPMO_WF_USER_EXCLUSIV AS VWPMO_WF_USER_EX"& _ + "CLUSIV_1"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" WHERE "& _ + " (UPPER(USERNAME) = UPPER(@USER)))))) AND (RECORD_ID = @RECORD_ID)" + Me._commandCollection(1).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USER", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._commandCollection(1).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@RECORD_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "RECORD_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILEDataTable) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable, ByVal LANGUAGE As String, ByVal USER As String) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) + End If + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(1).Value = CType(USER,String) + End If If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -47487,39 +46820,67 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILEDataTable + Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal USER As String) As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILEDataTable = New DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILEDataTable() + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) + End If + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(1).Value = CType(USER,String) + End If + Dim dataTable As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable = New DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILEDataTable) 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_WD_IMPORT_PROFILE") - 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}) + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)> _ + Public Overloads Overridable Function FillByRecord(ByVal dataTable As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable, ByVal LANGUAGE As String, ByVal USER As String, ByVal RECORD_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) + End If + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(1).Value = CType(USER,String) + End If + Me.Adapter.SelectCommand.Parameters(2).Value = CType(RECORD_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 Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], false)> _ + Public Overloads Overridable Function GetDataByRecord(ByVal LANGUAGE As String, ByVal USER As String, ByVal RECORD_ID As Integer) As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(1) + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) + End If + If (USER Is Nothing) Then + Throw New Global.System.ArgumentNullException("USER") + Else + Me.Adapter.SelectCommand.Parameters(1).Value = CType(USER,String) + End If + Me.Adapter.SelectCommand.Parameters(2).Value = CType(RECORD_ID,Integer) + Dim dataTable As DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable = New DD_DMSDataSet.VWPMO_WF_ACTIVEDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable End Function End Class @@ -47532,7 +46893,7 @@ Namespace DD_DMSDataSetTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner"& _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter + Partial Public Class TBPMO_RIGHT_GROUPTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -47649,13 +47010,16 @@ 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_WD_IMPORT_PROFILE_IDX" + tableMapping.DataSetTable = "TBPMO_RIGHT_GROUP" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("PROFILE_ID", "PROFILE_ID") - tableMapping.ColumnMappings.Add("STRING1", "STRING1") - tableMapping.ColumnMappings.Add("STRING2", "STRING2") - tableMapping.ColumnMappings.Add("SQL1", "SQL1") - tableMapping.ColumnMappings.Add("SQL2", "SQL2") + 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") @@ -47663,36 +47027,45 @@ 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_WD_IMPORT_PROFILE_IDX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID)" + 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_WD_IMPORT_PROFILE_IDX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (PROFILE_ID, ST"& _ - "RING1, STRING2, SQL1, SQL2, ADDED_WHO)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@PROFILE_ID,@STRING1,@STR"& _ - "ING2,@SQL1,@SQL2,@ADDED_WHO); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, PROFILE_ID, STRING1, STRING2, SQL1,"& _ - " SQL2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_IMPORT_PRO"& _ - "FILE_IDX WHERE (GUID = SCOPE_IDENTITY())" + 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("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL1", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL2", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + 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_WD_IMPORT_PROFILE_IDX"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET PROFILE_ID = @PROFIL"& _ - "E_ID, STRING1 = @STRING1, STRING2 = @STRING2, SQL1 = @SQL1, SQL2 = @SQL2, CHANGE"& _ - "D_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, PROFI"& _ - "LE_ID, STRING1, STRING2, SQL1, SQL2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED"& _ - "_WHEN FROM TBPMO_WD_IMPORT_PROFILE_IDX WHERE (GUID = @GUID)" + 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("@PROFILE_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING1", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@STRING2", Global.System.Data.SqlDbType.VarChar, 200, Global.System.Data.ParameterDirection.Input, 0, 0, "STRING2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL1", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL2", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + 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, "", "", "")) @@ -47711,19 +47084,16 @@ 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_WD_IMPORT_PROFILE_IDX.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WD_IMPORT_PROF"& _ - "ILE_IDX where PROFILE_ID = @GUID" + 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 - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PROFILE_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) End Sub _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILE_IDXDataTable, ByVal GUID As Integer) As Integer + Public Overloads Overridable Function Fill(ByVal dataTable As DD_DMSDataSet.TBPMO_RIGHT_GROUPDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) If (Me.ClearBeforeFill = true) Then dataTable.Clear End If @@ -47735,10 +47105,9 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], true)> _ - Public Overloads Overridable Function GetData(ByVal GUID As Integer) As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILE_IDXDataTable + Public Overloads Overridable Function GetData() As DD_DMSDataSet.TBPMO_RIGHT_GROUPDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(GUID,Integer) - Dim dataTable As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILE_IDXDataTable = New DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILE_IDXDataTable() + Dim dataTable As DD_DMSDataSet.TBPMO_RIGHT_GROUPDataTable = New DD_DMSDataSet.TBPMO_RIGHT_GROUPDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -47746,7 +47115,7 @@ Namespace DD_DMSDataSetTableAdapters _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_WD_IMPORT_PROFILE_IDXDataTable) As Integer + Public Overloads Overridable Function Update(ByVal dataTable As DD_DMSDataSet.TBPMO_RIGHT_GROUPDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -47754,7 +47123,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_WD_IMPORT_PROFILE_IDX") + Return Me.Adapter.Update(dataSet, "TBPMO_RIGHT_GROUP") End Function _ - Public Overloads Overridable Function Insert(ByVal PROFILE_ID As Integer, ByVal STRING1 As String, ByVal STRING2 As String, ByVal SQL1 As String, ByVal SQL2 As String, ByVal ADDED_WHO As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) - If (STRING1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("STRING1") - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(STRING1,String) - End If - If (STRING2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("STRING2") - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(STRING2,String) - End If - If (SQL1 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(SQL1,String) - End If - If (SQL2 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(SQL2,String) - End If + 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(5).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(ADDED_WHO,String) + 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) _ @@ -47842,35 +47198,22 @@ Namespace DD_DMSDataSetTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, true)> _ - Public Overloads Overridable Function Update(ByVal PROFILE_ID As Integer, ByVal STRING1 As String, ByVal STRING2 As String, ByVal SQL1 As String, ByVal SQL2 As String, ByVal CHANGED_WHO As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(PROFILE_ID,Integer) - If (STRING1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("STRING1") - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(STRING1,String) - End If - If (STRING2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("STRING2") - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(STRING2,String) - End If - If (SQL1 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(SQL1,String) - End If - If (SQL2 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SQL2,String) - End If + 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(5).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(CHANGED_WHO,String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(CHANGED_WHO,String) End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID,Integer) - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID,Integer) + 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 @@ -47912,8 +47255,6 @@ Namespace DD_DMSDataSetTableAdapters Private _tBPMO_WORKFLOWTableAdapter As TBPMO_WORKFLOWTableAdapter - Private _tBPMO_WORKFLOW_FORMTableAdapter As TBPMO_WORKFLOW_FORMTableAdapter - Private _tBDD_DOKUMENTARTTableAdapter As TBDD_DOKUMENTARTTableAdapter Private _tBDD_EINGANGSARTENTableAdapter As TBDD_EINGANGSARTENTableAdapter @@ -47964,6 +47305,8 @@ Namespace DD_DMSDataSetTableAdapters Private _tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter As TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter + Private _tBPMO_RIGHT_GROUPTableAdapter As TBPMO_RIGHT_GROUPTableAdapter + Private _backupDataSetBeforeUpdate As Boolean Private _connection As Global.System.Data.IDbConnection @@ -48063,20 +47406,6 @@ Namespace DD_DMSDataSetTableAdapters End Set End Property - _ - Public Property TBPMO_WORKFLOW_FORMTableAdapter() As TBPMO_WORKFLOW_FORMTableAdapter - Get - Return Me._tBPMO_WORKFLOW_FORMTableAdapter - End Get - Set - Me._tBPMO_WORKFLOW_FORMTableAdapter = value - End Set - End Property - _ + Public Property TBPMO_RIGHT_GROUPTableAdapter() As TBPMO_RIGHT_GROUPTableAdapter + Get + Return Me._tBPMO_RIGHT_GROUPTableAdapter + End Get + Set + Me._tBPMO_RIGHT_GROUPTableAdapter = value + End Set + End Property + _ Public Property BackupDataSetBeforeUpdate() As Boolean @@ -48470,10 +47813,6 @@ Namespace DD_DMSDataSetTableAdapters AndAlso (Not (Me._tBPMO_WORKFLOWTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_WORKFLOWTableAdapter.Connection End If - If ((Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) _ - AndAlso (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection) Is Nothing)) Then - Return Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection - End If If ((Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_DOKUMENTARTTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_DOKUMENTARTTableAdapter.Connection @@ -48574,6 +47913,10 @@ Namespace DD_DMSDataSetTableAdapters AndAlso (Not (Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Connection End If + If ((Not (Me._tBPMO_RIGHT_GROUPTableAdapter) Is Nothing) _ + AndAlso (Not (Me._tBPMO_RIGHT_GROUPTableAdapter.Connection) Is Nothing)) Then + Return Me._tBPMO_RIGHT_GROUPTableAdapter.Connection + End If Return Nothing End Get Set @@ -48605,9 +47948,6 @@ Namespace DD_DMSDataSetTableAdapters If (Not (Me._tBPMO_WORKFLOWTableAdapter) Is Nothing) Then count = (count + 1) End If - If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then - count = (count + 1) - End If If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then count = (count + 1) End If @@ -48683,6 +48023,9 @@ Namespace DD_DMSDataSetTableAdapters If (Not (Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter) Is Nothing) Then count = (count + 1) End If + If (Not (Me._tBPMO_RIGHT_GROUPTableAdapter) Is Nothing) Then + count = (count + 1) + End If Return count End Get End Property @@ -48712,15 +48055,6 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_EINGANGSARTEN.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_EINGANGSARTENTableAdapter.Update(updatedRows)) - allChangedRows.AddRange(updatedRows) - End If - End If If (Not (Me._tBPMO_TEMPLATETableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) @@ -48730,39 +48064,39 @@ 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._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_EINGANGSARTEN.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._tBDD_EINGANGSARTENTableAdapter.Update(updatedRows)) 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._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._tBPMO_WD_IMPORT_PROFILETableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.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._tBPMO_TEMPLATE_ENTITYTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_ENTITY.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._tBPMO_TEMPLATE_ENTITYTableAdapter.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_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._tBDD_USERTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -48775,66 +48109,66 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_TEMPLATE_ENTITYTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_ENTITY.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_TEMPLATE_ENTITYTableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_USER_GROUPSTableAdapter.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._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._tBPMO_RECORDTableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_USERTableAdapter.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._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_WORKFLOWTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.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._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_WORKFLOW_TASK_STATETableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.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_CONNECTIONTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.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._tBDD_CLIENTTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CLIENT.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._tBDD_CLIENTTableAdapter.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_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._tBDD_EMAIL_ACCOUNTTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -48847,75 +48181,75 @@ Namespace DD_DMSDataSetTableAdapters 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_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_LANGUAGE_OBJECTTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBDD_CLIENTTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CLIENT.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._tBDD_CLIENTTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Update(updatedRows)) 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_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._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.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._tBDD_CONNECTIONTableAdapter.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_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_FOLLUPEMAIL_USERTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Update(updatedRows)) 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._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._tBDD_GROUPS_USERTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_WD_OBJECTTYPETableAdapter.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_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_FILES_USERTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_FORM_VIEWTableAdapter.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_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_FORM_VIEWTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_RECORDTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -48928,21 +48262,21 @@ 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._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_FOLLOW_UP_EMAILTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If - If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then - Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_FORM.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_WORKFLOW_FORMTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_WORKFLOWTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -48964,21 +48298,30 @@ Namespace DD_DMSDataSetTableAdapters 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._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_WD_OBJECTTYPETableAdapter.Update(updatedRows)) + result = (result + Me._tBDD_GROUPS_USERTableAdapter.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_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_WD_IMPORT_PROFILE_IDXTableAdapter.Update(updatedRows)) + result = (result + Me._tBPMO_FILES_USERTableAdapter.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) + updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) + If ((Not (updatedRows) Is Nothing) _ + AndAlso (0 < updatedRows.Length)) Then + result = (result + Me._tBPMO_RIGHT_GROUPTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) End If End If @@ -49008,14 +48351,6 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_EINGANGSARTEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ - AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_EINGANGSARTENTableAdapter.Update(addedRows)) - allAddedRows.AddRange(addedRows) - End If - End If If (Not (Me._tBPMO_TEMPLATETableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ @@ -49024,35 +48359,35 @@ 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._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_EINGANGSARTEN.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._tBDD_EINGANGSARTENTableAdapter.Update(addedRows)) 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._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._tBPMO_WD_IMPORT_PROFILETableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.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._tBPMO_TEMPLATE_ENTITYTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_ENTITY.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._tBPMO_TEMPLATE_ENTITYTableAdapter.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_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._tBDD_USERTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -49064,59 +48399,59 @@ Namespace DD_DMSDataSetTableAdapters allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_TEMPLATE_ENTITYTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_ENTITY.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_TEMPLATE_ENTITYTableAdapter.Update(addedRows)) + result = (result + Me._tBDD_USER_GROUPSTableAdapter.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_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._tBPMO_RECORDTableAdapter.Update(addedRows)) + result = (result + Me._tBDD_USERTableAdapter.Update(addedRows)) 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 (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_WORKFLOWTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_STATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) + 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._tBPMO_WORKFLOW_TASK_STATETableAdapter.Update(addedRows)) + result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.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_CONNECTIONTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.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._tBDD_CLIENTTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CLIENT.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._tBDD_CLIENTTableAdapter.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_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._tBDD_EMAIL_ACCOUNTTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -49128,67 +48463,67 @@ Namespace DD_DMSDataSetTableAdapters 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_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_LANGUAGE_OBJECTTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBDD_CLIENTTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CLIENT.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._tBDD_CLIENTTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Update(addedRows)) 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_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._tBDD_CONNECTIONTableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBDD_CONNECTION.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._tBDD_CONNECTIONTableAdapter.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_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) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Update(addedRows)) 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._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) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBDD_GROUPS_USERTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_WD_OBJECTTYPETableAdapter.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_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_FILES_USERTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_FORM_VIEWTableAdapter.Update(addedRows)) 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_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_FORM_VIEWTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_RECORDTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -49200,19 +48535,19 @@ Namespace DD_DMSDataSetTableAdapters 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 (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then + Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_STATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then - result = (result + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If - If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then - Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_FORM.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_WORKFLOW_FORMTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_WORKFLOWTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -49232,19 +48567,27 @@ Namespace DD_DMSDataSetTableAdapters 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 (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_WD_OBJECTTYPETableAdapter.Update(addedRows)) + result = (result + Me._tBDD_GROUPS_USERTableAdapter.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_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_WD_IMPORT_PROFILE_IDXTableAdapter.Update(addedRows)) + result = (result + Me._tBPMO_FILES_USERTableAdapter.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 (addedRows) Is Nothing) _ + AndAlso (0 < addedRows.Length)) Then + result = (result + Me._tBPMO_RIGHT_GROUPTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) End If End If @@ -49258,19 +48601,27 @@ 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_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_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_WD_IMPORT_PROFILE_IDXTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_RIGHT_GROUPTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_OBJECTTYPE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + 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_WD_OBJECTTYPETableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_FILES_USERTableAdapter.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 @@ -49290,19 +48641,19 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_FORM.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_WORKFLOW_FORMTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_WORKFLOWTableAdapter.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 (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_STATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_WORKFLOW_TASK_STATETableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -49314,67 +48665,67 @@ Namespace DD_DMSDataSetTableAdapters 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_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_FORM_VIEWTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_RECORDTableAdapter.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_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_FILES_USERTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_FORM_VIEWTableAdapter.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 (Me._tBPMO_WD_OBJECTTYPETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WD_OBJECTTYPE.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)) + result = (result + Me._tBPMO_WD_OBJECTTYPETableAdapter.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_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) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_FOLLOW_UP_EMAILTableAdapter.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._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) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(deletedRows)) + result = (result + Me._tBDD_CONNECTIONTableAdapter.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 - If (Not (Me._tBDD_CLIENTTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CLIENT.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._tBDD_CLIENTTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_TEMPLATE_PATTERNTableAdapter.Update(deletedRows)) 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_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_LANGUAGE_OBJECTTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_FOLLUPEMAIL_USERTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -49386,59 +48737,59 @@ Namespace DD_DMSDataSetTableAdapters 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_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._tBDD_EMAIL_ACCOUNTTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_CONSTRUCTOR_USER_SQLTableAdapter.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._tBDD_CLIENTTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_CLIENT.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._tBDD_CLIENTTableAdapter.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 (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_CONNECTIONTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_WORKFLOW_TASK_STATETableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_WORKFLOW_TASK_STATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + 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._tBPMO_WORKFLOW_TASK_STATETableAdapter.Update(deletedRows)) + result = (result + Me._tBDD_EMAIL_ACCOUNTTableAdapter.Update(deletedRows)) 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_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_WORKFLOWTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_RECORD_LOG_CONFIGTableAdapter.Update(deletedRows)) 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_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._tBPMO_RECORDTableAdapter.Update(deletedRows)) + result = (result + Me._tBDD_USERTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_TEMPLATE_ENTITYTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_ENTITY.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_TEMPLATE_ENTITYTableAdapter.Update(deletedRows)) + result = (result + Me._tBDD_USER_GROUPSTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -49450,27 +48801,19 @@ Namespace DD_DMSDataSetTableAdapters 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 (deletedRows) Is Nothing) _ - AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_USERTableAdapter.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._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._tBDD_USER_GROUPSTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_WD_IMPORT_PROFILETableAdapter.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._tBPMO_TEMPLATE_ENTITYTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE_ENTITY.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._tBPMO_TEMPLATE_ENTITYTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -49482,19 +48825,19 @@ Namespace DD_DMSDataSetTableAdapters allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBPMO_TEMPLATETableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_EINGANGSARTEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBPMO_TEMPLATETableAdapter.Update(deletedRows)) + result = (result + Me._tBDD_EINGANGSARTENTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If - If (Not (Me._tBDD_EINGANGSARTENTableAdapter) Is Nothing) Then - Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBDD_EINGANGSARTEN.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) + If (Not (Me._tBPMO_TEMPLATETableAdapter) Is Nothing) Then + Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_TEMPLATE.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then - result = (result + Me._tBDD_EINGANGSARTENTableAdapter.Update(deletedRows)) + result = (result + Me._tBPMO_TEMPLATETableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) End If End If @@ -49585,11 +48928,6 @@ 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_WORKFLOW_FORMTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection) = false)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ - "s die gleiche Verbindungszeichenfolge verwendet werden.") - End If If ((Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) _ AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_DOKUMENTARTTableAdapter.Connection) = false)) Then Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ @@ -49715,6 +49053,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_RIGHT_GROUPTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_RIGHT_GROUPTableAdapter.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"& _ @@ -49803,15 +49146,6 @@ Namespace DD_DMSDataSetTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WORKFLOWTableAdapter.Adapter) End If End If - If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then - revertConnections.Add(Me._tBPMO_WORKFLOW_FORMTableAdapter, Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection) - Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBPMO_WORKFLOW_FORMTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) - If Me._tBPMO_WORKFLOW_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBPMO_WORKFLOW_FORMTableAdapter.Adapter.AcceptChangesDuringUpdate = false - adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WORKFLOW_FORMTableAdapter.Adapter) - End If - End If If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_DOKUMENTARTTableAdapter, Me._tBDD_DOKUMENTARTTableAdapter.Connection) Me._tBDD_DOKUMENTARTTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) @@ -50037,6 +49371,15 @@ Namespace DD_DMSDataSetTableAdapters adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Adapter) End If End If + If (Not (Me._tBPMO_RIGHT_GROUPTableAdapter) Is Nothing) Then + revertConnections.Add(Me._tBPMO_RIGHT_GROUPTableAdapter, Me._tBPMO_RIGHT_GROUPTableAdapter.Connection) + Me._tBPMO_RIGHT_GROUPTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_RIGHT_GROUPTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + If Me._tBPMO_RIGHT_GROUPTableAdapter.Adapter.AcceptChangesDuringUpdate Then + Me._tBPMO_RIGHT_GROUPTableAdapter.Adapter.AcceptChangesDuringUpdate = false + adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_RIGHT_GROUPTableAdapter.Adapter) + End If + End If ' '---- Perform updates ----------- ' @@ -50121,10 +49464,6 @@ Namespace DD_DMSDataSetTableAdapters Me._tBPMO_WORKFLOWTableAdapter.Connection = CType(revertConnections(Me._tBPMO_WORKFLOWTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WORKFLOWTableAdapter.Transaction = Nothing End If - If (Not (Me._tBPMO_WORKFLOW_FORMTableAdapter) Is Nothing) Then - Me._tBPMO_WORKFLOW_FORMTableAdapter.Connection = CType(revertConnections(Me._tBPMO_WORKFLOW_FORMTableAdapter),Global.System.Data.SqlClient.SqlConnection) - Me._tBPMO_WORKFLOW_FORMTableAdapter.Transaction = Nothing - End If If (Not (Me._tBDD_DOKUMENTARTTableAdapter) Is Nothing) Then Me._tBDD_DOKUMENTARTTableAdapter.Connection = CType(revertConnections(Me._tBDD_DOKUMENTARTTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBDD_DOKUMENTARTTableAdapter.Transaction = Nothing @@ -50225,6 +49564,10 @@ Namespace DD_DMSDataSetTableAdapters Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Connection = CType(revertConnections(Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter),Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_WD_IMPORT_PROFILE_IDXTableAdapter.Transaction = Nothing End If + If (Not (Me._tBPMO_RIGHT_GROUPTableAdapter) Is Nothing) Then + 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 (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/DD_ECMAdmin.Designer.vb b/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb index 141127d..4eae507 100644 --- a/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb +++ b/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb @@ -33,8 +33,14 @@ Partial Public Class DD_ECMAdmin Private tableVWTEMPQUICKVIEW As VWTEMPQUICKVIEWDataTable + Private tableTBWH_ENTITIES As TBWH_ENTITIESDataTable + + Private tableTBWH_USER_GROUPS As TBWH_USER_GROUPSDataTable + Private tableDT_VORSCHAU As DT_VORSCHAUDataTable + Private tableTBAD_Users As TBAD_UsersDataTable + Private relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As Global.System.Data.DataRelation Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema @@ -78,9 +84,18 @@ Partial Public Class DD_ECMAdmin If (Not (ds.Tables("VWTEMPQUICKVIEW")) Is Nothing) Then MyBase.Tables.Add(New VWTEMPQUICKVIEWDataTable(ds.Tables("VWTEMPQUICKVIEW"))) End If + If (Not (ds.Tables("TBWH_ENTITIES")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_ENTITIESDataTable(ds.Tables("TBWH_ENTITIES"))) + End If + If (Not (ds.Tables("TBWH_USER_GROUPS")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_USER_GROUPSDataTable(ds.Tables("TBWH_USER_GROUPS"))) + End If If (Not (ds.Tables("DT_VORSCHAU")) Is Nothing) Then MyBase.Tables.Add(New DT_VORSCHAUDataTable(ds.Tables("DT_VORSCHAU"))) End If + If (Not (ds.Tables("TBAD_Users")) Is Nothing) Then + MyBase.Tables.Add(New TBAD_UsersDataTable(ds.Tables("TBAD_Users"))) + End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace @@ -138,6 +153,26 @@ Partial Public Class DD_ECMAdmin End Get End Property + _ + Public ReadOnly Property TBWH_ENTITIES() As TBWH_ENTITIESDataTable + Get + Return Me.tableTBWH_ENTITIES + End Get + End Property + + _ + Public ReadOnly Property TBWH_USER_GROUPS() As TBWH_USER_GROUPSDataTable + Get + Return Me.tableTBWH_USER_GROUPS + End Get + End Property + _ + Public ReadOnly Property TBAD_Users() As TBAD_UsersDataTable + Get + Return Me.tableTBAD_Users + End Get + End Property + _ + Private Function ShouldSerializeTBWH_ENTITIES() As Boolean + Return False + End Function + + _ + Private Function ShouldSerializeTBWH_USER_GROUPS() As Boolean + Return False + End Function + _ Private Function ShouldSerializeDT_VORSCHAU() As Boolean Return False End Function + _ + Private Function ShouldSerializeTBAD_Users() As Boolean + Return False + End Function + _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) @@ -417,9 +513,18 @@ Partial Public Class DD_ECMAdmin _ Public Delegate Sub VWTEMPQUICKVIEWRowChangeEventHandler(ByVal sender As Object, ByVal e As VWTEMPQUICKVIEWRowChangeEvent) + _ + Public Delegate Sub TBWH_ENTITIESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_ENTITIESRowChangeEvent) + + _ + Public Delegate Sub TBWH_USER_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_USER_GROUPSRowChangeEvent) + _ Public Delegate Sub DT_VORSCHAURowChangeEventHandler(ByVal sender As Object, ByVal e As DT_VORSCHAURowChangeEvent) + _ + Public Delegate Sub TBAD_UsersRowChangeEventHandler(ByVal sender As Object, ByVal e As TBAD_UsersRowChangeEvent) + ''' '''Represents the strongly named DataTable class. ''' @@ -2151,16 +2256,20 @@ Partial Public Class DD_ECMAdmin ''' _ - Partial Public Class DT_VORSCHAUDataTable - Inherits Global.System.Data.TypedTableBase(Of DT_VORSCHAURow) + Partial Public Class TBWH_ENTITIESDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_ENTITIESRow) - Private columnVALUE As Global.System.Data.DataColumn + Private columnGUID As Global.System.Data.DataColumn + + Private columnFORM_TITLE As Global.System.Data.DataColumn + + Private columnCAPTION As Global.System.Data.DataColumn _ Public Sub New() MyBase.New() - Me.TableName = "DT_VORSCHAU" + Me.TableName = "TBWH_ENTITIES" Me.BeginInit() Me.InitClass() Me.EndInit() @@ -2193,9 +2302,25 @@ Partial Public Class DD_ECMAdmin _ - Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Return Me.columnVALUE + Return Me.columnGUID + End Get + End Property + + _ + Public ReadOnly Property FORM_TITLEColumn() As Global.System.Data.DataColumn + Get + Return Me.columnFORM_TITLE + End Get + End Property + + _ + Public ReadOnly Property CAPTIONColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCAPTION End Get End Property @@ -2210,44 +2335,50 @@ Partial Public Class DD_ECMAdmin _ - Default Public ReadOnly Property Item(ByVal index As Integer) As DT_VORSCHAURow + Default Public ReadOnly Property Item(ByVal index As Integer) As TBWH_ENTITIESRow Get - Return CType(Me.Rows(index), DT_VORSCHAURow) + Return CType(Me.Rows(index), TBWH_ENTITIESRow) End Get End Property _ - Public Event DT_VORSCHAURowChanging As DT_VORSCHAURowChangeEventHandler + Public Event TBWH_ENTITIESRowChanging As TBWH_ENTITIESRowChangeEventHandler _ - Public Event DT_VORSCHAURowChanged As DT_VORSCHAURowChangeEventHandler + Public Event TBWH_ENTITIESRowChanged As TBWH_ENTITIESRowChangeEventHandler _ - Public Event DT_VORSCHAURowDeleting As DT_VORSCHAURowChangeEventHandler + Public Event TBWH_ENTITIESRowDeleting As TBWH_ENTITIESRowChangeEventHandler _ - Public Event DT_VORSCHAURowDeleted As DT_VORSCHAURowChangeEventHandler + Public Event TBWH_ENTITIESRowDeleted As TBWH_ENTITIESRowChangeEventHandler _ - Public Overloads Sub AddDT_VORSCHAURow(ByVal row As DT_VORSCHAURow) + Public Overloads Sub AddTBWH_ENTITIESRow(ByVal row As TBWH_ENTITIESRow) Me.Rows.Add(row) End Sub _ - Public Overloads Function AddDT_VORSCHAURow(ByVal VALUE As String) As DT_VORSCHAURow - Dim rowDT_VORSCHAURow As DT_VORSCHAURow = CType(Me.NewRow, DT_VORSCHAURow) - Dim columnValuesArray() As Object = New Object() {VALUE} - rowDT_VORSCHAURow.ItemArray = columnValuesArray - Me.Rows.Add(rowDT_VORSCHAURow) - Return rowDT_VORSCHAURow + Public Overloads Function AddTBWH_ENTITIESRow(ByVal FORM_TITLE As String, ByVal CAPTION As String) As TBWH_ENTITIESRow + Dim rowTBWH_ENTITIESRow As TBWH_ENTITIESRow = CType(Me.NewRow, TBWH_ENTITIESRow) + Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, CAPTION} + rowTBWH_ENTITIESRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_ENTITIESRow) + Return rowTBWH_ENTITIESRow + End Function + + _ + Public Function FindByGUID(ByVal GUID As Integer) As TBWH_ENTITIESRow + Return CType(Me.Rows.Find(New Object() {GUID}), TBWH_ENTITIESRow) End Function _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As DT_VORSCHAUDataTable = CType(MyBase.Clone, DT_VORSCHAUDataTable) + Dim cln As TBWH_ENTITIESDataTable = CType(MyBase.Clone, TBWH_ENTITIESDataTable) cln.InitVars() Return cln End Function @@ -2255,46 +2386,63 @@ Partial Public Class DD_ECMAdmin _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable - Return New DT_VORSCHAUDataTable() + Return New TBWH_ENTITIESDataTable() End Function _ Friend Sub InitVars() - Me.columnVALUE = MyBase.Columns("VALUE") + Me.columnGUID = MyBase.Columns("GUID") + Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") + Me.columnCAPTION = MyBase.Columns("CAPTION") End Sub _ Private Sub InitClass() - Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) - MyBase.Columns.Add(Me.columnVALUE) + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnFORM_TITLE = New Global.System.Data.DataColumn("FORM_TITLE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnFORM_TITLE) + Me.columnCAPTION = New Global.System.Data.DataColumn("CAPTION", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCAPTION) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnFORM_TITLE.AllowDBNull = False + Me.columnFORM_TITLE.MaxLength = 50 + Me.columnCAPTION.ReadOnly = True + Me.columnCAPTION.MaxLength = 100 End Sub _ - Public Function NewDT_VORSCHAURow() As DT_VORSCHAURow - Return CType(Me.NewRow, DT_VORSCHAURow) + Public Function NewTBWH_ENTITIESRow() As TBWH_ENTITIESRow + Return CType(Me.NewRow, TBWH_ENTITIESRow) End Function _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow - Return New DT_VORSCHAURow(builder) + Return New TBWH_ENTITIESRow(builder) End Function _ Protected Overrides Function GetRowType() As Global.System.Type - Return GetType(DT_VORSCHAURow) + Return GetType(TBWH_ENTITIESRow) End Function _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) - If (Not (Me.DT_VORSCHAURowChangedEvent) Is Nothing) Then - RaiseEvent DT_VORSCHAURowChanged(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row, DT_VORSCHAURow), e.Action)) + If (Not (Me.TBWH_ENTITIESRowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_ENTITIESRowChanged(Me, New TBWH_ENTITIESRowChangeEvent(CType(e.Row, TBWH_ENTITIESRow), e.Action)) End If End Sub @@ -2302,8 +2450,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) - If (Not (Me.DT_VORSCHAURowChangingEvent) Is Nothing) Then - RaiseEvent DT_VORSCHAURowChanging(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row, DT_VORSCHAURow), e.Action)) + If (Not (Me.TBWH_ENTITIESRowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_ENTITIESRowChanging(Me, New TBWH_ENTITIESRowChangeEvent(CType(e.Row, TBWH_ENTITIESRow), e.Action)) End If End Sub @@ -2311,8 +2459,8 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) - If (Not (Me.DT_VORSCHAURowDeletedEvent) Is Nothing) Then - RaiseEvent DT_VORSCHAURowDeleted(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row, DT_VORSCHAURow), e.Action)) + If (Not (Me.TBWH_ENTITIESRowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_ENTITIESRowDeleted(Me, New TBWH_ENTITIESRowChangeEvent(CType(e.Row, TBWH_ENTITIESRow), e.Action)) End If End Sub @@ -2320,14 +2468,14 @@ Partial Public Class DD_ECMAdmin Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0")> _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) - If (Not (Me.DT_VORSCHAURowDeletingEvent) Is Nothing) Then - RaiseEvent DT_VORSCHAURowDeleting(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row, DT_VORSCHAURow), e.Action)) + If (Not (Me.TBWH_ENTITIESRowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_ENTITIESRowDeleting(Me, New TBWH_ENTITIESRowChangeEvent(CType(e.Row, TBWH_ENTITIESRow), e.Action)) End If End Sub _ - Public Sub RemoveDT_VORSCHAURow(ByVal row As DT_VORSCHAURow) + Public Sub RemoveTBWH_ENTITIESRow(ByVal row As TBWH_ENTITIESRow) Me.Rows.Remove(row) End Sub @@ -2354,7 +2502,7 @@ Partial Public Class DD_ECMAdmin type.Attributes.Add(attribute1) Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() attribute2.Name = "tableTypeName" - attribute2.FixedValue = "DT_VORSCHAUDataTable" + attribute2.FixedValue = "TBWH_ENTITIESDataTable" type.Attributes.Add(attribute2) type.Particle = sequence Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable @@ -2399,1205 +2547,2422 @@ Partial Public Class DD_ECMAdmin End Class ''' - '''Represents strongly named DataRow class. + '''Represents the strongly named DataTable class. ''' - Partial Public Class TBPMO_FORM_CONSTRUCTORRow - Inherits Global.System.Data.DataRow + _ + Partial Public Class TBWH_USER_GROUPSDataTable + Inherits Global.System.Data.TypedTableBase(Of TBWH_USER_GROUPSRow) - Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable + Private columnGUID As Global.System.Data.DataColumn + + Private columnNAME As Global.System.Data.DataColumn _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBPMO_FORM_CONSTRUCTOR = CType(Me.Table, TBPMO_FORM_CONSTRUCTORDataTable) + Public Sub New() + MyBase.New() + Me.TableName = "TBWH_USER_GROUPS" + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn), Integer) - End Get - Set(value As Integer) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn) = value - End Set - End Property + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New() + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub _ - Public Property FORM_TITLE() As String - Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn), String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) - End Try - End Get - Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = value - End Set - End Property + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars() + End Sub _ - Public Property SEQUENCE_MENU() As Integer + Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn), Integer) + Return Me.columnGUID End Get - Set(value As Integer) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn) = value - End Set End Property _ - Public Property ADDED_WHO() As String + Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.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_FORM_CONSTRUCTOR ist DBNull.", e) - End Try + Return Me.columnNAME End Get - Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = value - End Set End Property _ - Public Property ADDED_WHEN() As Date + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ + Global.System.ComponentModel.Browsable(False)> _ + Public ReadOnly Property Count() As Integer Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.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_FORM_CONSTRUCTOR ist DBNull.", e) - End Try + Return Me.Rows.Count End Get - Set(value As Date) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = value - End Set End Property _ - Public Property CHANGED_WHO() As String + Default Public ReadOnly Property Item(ByVal index As Integer) As TBWH_USER_GROUPSRow Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.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_FORM_CONSTRUCTOR ist DBNull.", e) - End Try + Return CType(Me.Rows(index), TBWH_USER_GROUPSRow) End Get - Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = value - End Set End Property + _ + Public Event TBWH_USER_GROUPSRowChanging As TBWH_USER_GROUPSRowChangeEventHandler + + _ + Public Event TBWH_USER_GROUPSRowChanged As TBWH_USER_GROUPSRowChangeEventHandler + + _ + Public Event TBWH_USER_GROUPSRowDeleting As TBWH_USER_GROUPSRowChangeEventHandler + + _ + Public Event TBWH_USER_GROUPSRowDeleted As TBWH_USER_GROUPSRowChangeEventHandler + _ - Public Property CHANGED_WHEN() As Date - Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.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_FORM_CONSTRUCTOR ist DBNull.", e) - End Try - End Get - Set(value As Date) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = value - End Set - End Property + Public Overloads Sub AddTBWH_USER_GROUPSRow(ByVal row As TBWH_USER_GROUPSRow) + Me.Rows.Add(row) + End Sub _ - Public Property MENU_IMG() As Byte() - Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn), Byte()) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MENU_IMG in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) - End Try - End Get - Set(value As Byte()) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = value - End Set - End Property + Public Overloads Function AddTBWH_USER_GROUPSRow(ByVal NAME As String) As TBWH_USER_GROUPSRow + Dim rowTBWH_USER_GROUPSRow As TBWH_USER_GROUPSRow = CType(Me.NewRow, TBWH_USER_GROUPSRow) + Dim columnValuesArray() As Object = New Object() {Nothing, NAME} + rowTBWH_USER_GROUPSRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBWH_USER_GROUPSRow) + Return rowTBWH_USER_GROUPSRow + End Function _ - Public Property SHORT_TITLE() As String - Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn), String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORT_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) - End Try - End Get - Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = value - End Set - End Property + Public Function FindByGUID(ByVal GUID As Integer) As TBWH_USER_GROUPSRow + Return CType(Me.Rows.Find(New Object() {GUID}), TBWH_USER_GROUPSRow) + End Function _ - Public Property LANGUAGE() As String - Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.LANGUAGEColumn), String) - End Get - Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.LANGUAGEColumn) = value - End Set - End Property + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBWH_USER_GROUPSDataTable = CType(MyBase.Clone, TBWH_USER_GROUPSDataTable) + cln.InitVars() + Return cln + End Function _ - Public Function IsFORM_TITLENull() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBWH_USER_GROUPSDataTable() End Function _ - Public Sub SetFORM_TITLENull() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = Global.System.Convert.DBNull + Friend Sub InitVars() + Me.columnGUID = MyBase.Columns("GUID") + Me.columnNAME = MyBase.Columns("NAME") End Sub _ - Public Function IsADDED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) - End Function - - _ - Public Sub SetADDED_WHONull() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = Global.System.Convert.DBNull + Private Sub InitClass() + Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnGUID) + Me.columnNAME = New Global.System.Data.DataColumn("NAME", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnNAME) + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True + Me.columnGUID.AutoIncrementSeed = -1 + Me.columnGUID.AutoIncrementStep = -1 + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True + Me.columnNAME.MaxLength = 50 End Sub _ - Public Function IsADDED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) + Public Function NewTBWH_USER_GROUPSRow() As TBWH_USER_GROUPSRow + Return CType(Me.NewRow, TBWH_USER_GROUPSRow) End Function _ - Public Sub SetADDED_WHENNull() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = Global.System.Convert.DBNull - End Sub + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBWH_USER_GROUPSRow(builder) + End Function _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBWH_USER_GROUPSRow) End Function _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBWH_USER_GROUPSRowChangedEvent) Is Nothing) Then + RaiseEvent TBWH_USER_GROUPSRowChanged(Me, New TBWH_USER_GROUPSRowChangeEvent(CType(e.Row, TBWH_USER_GROUPSRow), e.Action)) + End If End Sub _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) - End Function + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBWH_USER_GROUPSRowChangingEvent) Is Nothing) Then + RaiseEvent TBWH_USER_GROUPSRowChanging(Me, New TBWH_USER_GROUPSRowChangeEvent(CType(e.Row, TBWH_USER_GROUPSRow), e.Action)) + End If + End Sub _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBWH_USER_GROUPSRowDeletedEvent) Is Nothing) Then + RaiseEvent TBWH_USER_GROUPSRowDeleted(Me, New TBWH_USER_GROUPSRowChangeEvent(CType(e.Row, TBWH_USER_GROUPSRow), e.Action)) + End If End Sub _ - Public Function IsMENU_IMGNull() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) - End Function + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBWH_USER_GROUPSRowDeletingEvent) Is Nothing) Then + RaiseEvent TBWH_USER_GROUPSRowDeleting(Me, New TBWH_USER_GROUPSRowChangeEvent(CType(e.Row, TBWH_USER_GROUPSRow), e.Action)) + End If + End Sub _ - Public Sub SetMENU_IMGNull() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = Global.System.Convert.DBNull + Public Sub RemoveTBWH_USER_GROUPSRow(ByVal row As TBWH_USER_GROUPSRow) + Me.Rows.Remove(row) End Sub _ - Public Function IsSHORT_TITLENull() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) - End Function + 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_ECMAdmin = New DD_ECMAdmin() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_USER_GROUPSDataTable" + 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 - _ - Public Sub SetSHORT_TITLENull() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = Global.System.Convert.DBNull - End Sub + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) - _ - Public Function GetTBPMO_FORM_CONSTRUCTOR_DETAILRows() As TBPMO_FORM_CONSTRUCTOR_DETAILRow() - If (Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID") Is Nothing) Then - Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(-1) {} - Else - Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")), TBPMO_FORM_CONSTRUCTOR_DETAILRow()) + + 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. + '''Represents the strongly named DataTable class. ''' - Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRow - Inherits Global.System.Data.DataRow + _ + Partial Public Class DT_VORSCHAUDataTable + Inherits Global.System.Data.TypedTableBase(Of DT_VORSCHAURow) - Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + Private columnVALUE As Global.System.Data.DataColumn _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(Me.Table, TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) + Public Sub New() + MyBase.New() + Me.TableName = "DT_VORSCHAU" + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub _ - Public Property GUID() As Integer - Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn), Integer) - End Get - Set(value As Integer) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn) = value - End Set - End Property + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New() + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub _ - Public Property CONSTRUCT_ID() As Integer - Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn), Integer) - End Get - Set(value As Integer) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn) = value - End Set - End Property + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars() + End Sub _ - Public Property FORM_ID() As Integer + Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn), Integer) + Return Me.columnVALUE End Get - Set(value As Integer) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn) = value - End Set End Property _ - Public Property PARENT_ID() As Integer + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ + Global.System.ComponentModel.Browsable(False)> _ + Public ReadOnly Property Count() As Integer Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn), Integer) + Return Me.Rows.Count End Get - Set(value As Integer) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn) = value - End Set End Property _ - Public Property LEVEL1_SELECT() As Boolean + Default Public ReadOnly Property Item(ByVal index As Integer) As DT_VORSCHAURow Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn), Boolean) + Return CType(Me.Rows(index), DT_VORSCHAURow) End Get - Set(value As Boolean) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn) = value - End Set End Property - _ - Public Property SEQUENCE() As Integer - Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn), Integer) - End Get - Set(value As Integer) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn) = value - End Set + _ + Public Event DT_VORSCHAURowChanging As DT_VORSCHAURowChangeEventHandler + + _ + Public Event DT_VORSCHAURowChanged As DT_VORSCHAURowChangeEventHandler + + _ + Public Event DT_VORSCHAURowDeleting As DT_VORSCHAURowChangeEventHandler + + _ + Public Event DT_VORSCHAURowDeleted As DT_VORSCHAURowChangeEventHandler + + _ + Public Overloads Sub AddDT_VORSCHAURow(ByVal row As DT_VORSCHAURow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddDT_VORSCHAURow(ByVal VALUE As String) As DT_VORSCHAURow + Dim rowDT_VORSCHAURow As DT_VORSCHAURow = CType(Me.NewRow, DT_VORSCHAURow) + Dim columnValuesArray() As Object = New Object() {VALUE} + rowDT_VORSCHAURow.ItemArray = columnValuesArray + Me.Rows.Add(rowDT_VORSCHAURow) + Return rowDT_VORSCHAURow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As DT_VORSCHAUDataTable = CType(MyBase.Clone, DT_VORSCHAUDataTable) + cln.InitVars() + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New DT_VORSCHAUDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnVALUE = MyBase.Columns("VALUE") + End Sub + + _ + Private Sub InitClass() + Me.columnVALUE = New Global.System.Data.DataColumn("VALUE", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnVALUE) + End Sub + + _ + Public Function NewDT_VORSCHAURow() As DT_VORSCHAURow + Return CType(Me.NewRow, DT_VORSCHAURow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New DT_VORSCHAURow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(DT_VORSCHAURow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.DT_VORSCHAURowChangedEvent) Is Nothing) Then + RaiseEvent DT_VORSCHAURowChanged(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row, DT_VORSCHAURow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.DT_VORSCHAURowChangingEvent) Is Nothing) Then + RaiseEvent DT_VORSCHAURowChanging(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row, DT_VORSCHAURow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.DT_VORSCHAURowDeletedEvent) Is Nothing) Then + RaiseEvent DT_VORSCHAURowDeleted(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row, DT_VORSCHAURow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.DT_VORSCHAURowDeletingEvent) Is Nothing) Then + RaiseEvent DT_VORSCHAURowDeleting(Me, New DT_VORSCHAURowChangeEvent(CType(e.Row, DT_VORSCHAURow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveDT_VORSCHAURow(ByVal row As DT_VORSCHAURow) + 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_ECMAdmin = New DD_ECMAdmin() + 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 = "DT_VORSCHAUDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close() + End If + If (Not (s2) Is Nothing) Then + s2.Close() + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBAD_UsersDataTable + Inherits Global.System.Data.TypedTableBase(Of TBAD_UsersRow) + + Private columnSelect As Global.System.Data.DataColumn + + Private columnUsername As Global.System.Data.DataColumn + + Private columnPrename As Global.System.Data.DataColumn + + Private columnSurname As Global.System.Data.DataColumn + + Private columnEmail As Global.System.Data.DataColumn + + _ + Public Sub New() + MyBase.New() + Me.TableName = "TBAD_Users" + 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 SelectColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSelect + End Get + End Property + + _ + Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUsername + End Get + End Property + + _ + Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPrename + End Get + End Property + + _ + Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSurname + End Get + End Property + + _ + Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEmail + End Get + End Property + + _ + Public ReadOnly Property Count() As Integer + Get + Return Me.Rows.Count + End Get + End Property + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TBAD_UsersRow + Get + Return CType(Me.Rows(index), TBAD_UsersRow) + End Get + End Property + + _ + Public Event TBAD_UsersRowChanging As TBAD_UsersRowChangeEventHandler + + _ + Public Event TBAD_UsersRowChanged As TBAD_UsersRowChangeEventHandler + + _ + Public Event TBAD_UsersRowDeleting As TBAD_UsersRowChangeEventHandler + + _ + Public Event TBAD_UsersRowDeleted As TBAD_UsersRowChangeEventHandler + + _ + Public Overloads Sub AddTBAD_UsersRow(ByVal row As TBAD_UsersRow) + Me.Rows.Add(row) + End Sub + + _ + Public Overloads Function AddTBAD_UsersRow(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String) As TBAD_UsersRow + Dim rowTBAD_UsersRow As TBAD_UsersRow = CType(Me.NewRow, TBAD_UsersRow) + Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email} + rowTBAD_UsersRow.ItemArray = columnValuesArray + Me.Rows.Add(rowTBAD_UsersRow) + Return rowTBAD_UsersRow + End Function + + _ + Public Overrides Function Clone() As Global.System.Data.DataTable + Dim cln As TBAD_UsersDataTable = CType(MyBase.Clone, TBAD_UsersDataTable) + cln.InitVars() + Return cln + End Function + + _ + Protected Overrides Function CreateInstance() As Global.System.Data.DataTable + Return New TBAD_UsersDataTable() + End Function + + _ + Friend Sub InitVars() + Me.columnSelect = MyBase.Columns("Select") + Me.columnUsername = MyBase.Columns("Username") + Me.columnPrename = MyBase.Columns("Prename") + Me.columnSurname = MyBase.Columns("Surname") + Me.columnEmail = MyBase.Columns("Email") + End Sub + + _ + Private Sub InitClass() + Me.columnSelect = New Global.System.Data.DataColumn("Select", GetType(Boolean), Nothing, Global.System.Data.MappingType.Element) + Me.columnSelect.ExtendedProperties.Add("Generator_ColumnPropNameInTable", "SelectColumn") + Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") + Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") + MyBase.Columns.Add(Me.columnSelect) + Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUsername) + Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPrename) + Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSurname) + Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEmail) + Me.columnSelect.DefaultValue = CType(False, Boolean) + End Sub + + _ + Public Function NewTBAD_UsersRow() As TBAD_UsersRow + Return CType(Me.NewRow, TBAD_UsersRow) + End Function + + _ + Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow + Return New TBAD_UsersRow(builder) + End Function + + _ + Protected Overrides Function GetRowType() As Global.System.Type + Return GetType(TBAD_UsersRow) + End Function + + _ + Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanged(e) + If (Not (Me.TBAD_UsersRowChangedEvent) Is Nothing) Then + RaiseEvent TBAD_UsersRowChanged(Me, New TBAD_UsersRowChangeEvent(CType(e.Row, TBAD_UsersRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowChanging(e) + If (Not (Me.TBAD_UsersRowChangingEvent) Is Nothing) Then + RaiseEvent TBAD_UsersRowChanging(Me, New TBAD_UsersRowChangeEvent(CType(e.Row, TBAD_UsersRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleted(e) + If (Not (Me.TBAD_UsersRowDeletedEvent) Is Nothing) Then + RaiseEvent TBAD_UsersRowDeleted(Me, New TBAD_UsersRowChangeEvent(CType(e.Row, TBAD_UsersRow), e.Action)) + End If + End Sub + + _ + Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) + MyBase.OnRowDeleting(e) + If (Not (Me.TBAD_UsersRowDeletingEvent) Is Nothing) Then + RaiseEvent TBAD_UsersRowDeleting(Me, New TBAD_UsersRowChangeEvent(CType(e.Row, TBAD_UsersRow), e.Action)) + End If + End Sub + + _ + Public Sub RemoveTBAD_UsersRow(ByVal row As TBAD_UsersRow) + 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_ECMAdmin = New DD_ECMAdmin() + 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 = "TBAD_UsersDataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close() + End If + If (Not (s2) Is Nothing) Then + s2.Close() + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_FORM_CONSTRUCTORRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FORM_CONSTRUCTOR = CType(Me.Table, TBPMO_FORM_CONSTRUCTORDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn) = value + End Set + End Property + + _ + Public Property FORM_TITLE() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE_MENU() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.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_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.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_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set(value As Date) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.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_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.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_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set(value As Date) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property MENU_IMG() As Byte() + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn), Byte()) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte MENU_IMG in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set(value As Byte()) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = value + End Set + End Property + + _ + Public Property SHORT_TITLE() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SHORT_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = value + End Set + End Property + + _ + Public Property LANGUAGE() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.LANGUAGEColumn), String) + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.LANGUAGEColumn) = value + End Set + End Property + + _ + Public Function IsFORM_TITLENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) + End Function + + _ + Public Sub SetFORM_TITLENull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsMENU_IMGNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) + End Function + + _ + Public Sub SetMENU_IMGNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.MENU_IMGColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSHORT_TITLENull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) + End Function + + _ + Public Sub SetSHORT_TITLENull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SHORT_TITLEColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function GetTBPMO_FORM_CONSTRUCTOR_DETAILRows() As TBPMO_FORM_CONSTRUCTOR_DETAILRow() + If (Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID") Is Nothing) Then + Return New TBPMO_FORM_CONSTRUCTOR_DETAILRow(-1) {} + Else + Return CType(MyBase.GetChildRows(Me.Table.ChildRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")), TBPMO_FORM_CONSTRUCTOR_DETAILRow()) + End If + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(Me.Table, TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn) = value + End Set + End Property + + _ + Public Property CONSTRUCT_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn) = value + End Set + End Property + + _ + Public Property FORM_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn) = value + End Set + End Property + + _ + Public Property PARENT_ID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn) = value + End Set + End Property + + _ + Public Property LEVEL1_SELECT() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn), Boolean) + End Get + Set(value As Boolean) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn) = value + End Set + End Property + + _ + Public Property SQL_SELECT_EBENE1() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_SELECT_EBENE1 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL is" & _ + "t DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = value + End Set + End Property + + _ + Public Property SQL_SELECT_EBENE2() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column), String) + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.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_FORM_CONSTRUCTOR_DETAIL ist DBNull" & _ + ".", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn), Date) + End Get + Set(value As Date) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.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_FORM_CONSTRUCTOR_DETAIL ist DBNu" & _ + "ll.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.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_FORM_CONSTRUCTOR_DETAIL ist DBN" & _ + "ull.", e) + End Try + End Get + Set(value As Date) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = value + End Set + End Property + + _ + Public Property COLUMN_NAME1() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column), String) + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column) = value + End Set + End Property + + _ + Public Property COLUMN_NAME2() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column), String) + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column) = value + End Set End Property _ - Public Property SQL_SELECT_EBENE1() As String + Public Property WINDREAM_SEARCH() As String Get Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column), String) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn), String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_SELECT_EBENE1 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL is" & _ - "t DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WINDREAM_SEARCH in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ + "DBNull.", e) End Try End Get Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = value End Set End Property _ - Public Property SQL_SELECT_EBENE2() As String + Public Property SEARCH_PATTERN1() As String Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column), String) + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN1 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ + "DBNull.", e) + End Try End Get Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = value End Set End Property _ - Public Property ADDED_WHO() As String + Public Property SEARCH_PATTERN2() As String Get Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn), String) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column), String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNull" & _ - ".", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN2 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ + "DBNull.", e) End Try End Get Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = value + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = value End Set End Property _ - Public Property ADDED_WHEN() As Date + Public Property SEARCH_PATTERN3() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN3 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ + "DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN4() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN4 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ + "DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) = value + End Set + End Property + + _ + Public Property SEARCH_PATTERN5() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN5 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ + "DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) = value + End Set + End Property + + _ + Public Property LOAD_DIRECT() As Boolean + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LOAD_DIRECTColumn), Boolean) + End Get + Set(value As Boolean) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LOAD_DIRECTColumn) = value + End Set + End Property + + _ + Public Property SQL_QUICK_VIEW() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_QUICK_VIEWColumn), String) + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_QUICK_VIEWColumn) = value + End Set + End Property + + _ + Public Property TBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow + Get + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")), TBPMO_FORM_CONSTRUCTORRow) + End Get + Set(value As TBPMO_FORM_CONSTRUCTORRow) + Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")) + End Set + End Property + + _ + Public Function IsSQL_SELECT_EBENE1Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) + End Function + + _ + Public Sub SetSQL_SELECT_EBENE1Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsADDED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) + End Function + + _ + Public Sub SetADDED_WHONull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHONull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) + End Function + + _ + Public Sub SetCHANGED_WHONull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsCHANGED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) + End Function + + _ + Public Sub SetCHANGED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsWINDREAM_SEARCHNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) + End Function + + _ + Public Sub SetWINDREAM_SEARCHNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN1Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN1Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN2Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN2Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN3Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN3Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN4Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN4Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsSEARCH_PATTERN5Null() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) + End Function + + _ + Public Sub SetSEARCH_PATTERN5Null() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) = Global.System.Convert.DBNull + End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBDD_CONNECTIONRow + Inherits Global.System.Data.DataRow + + Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBDD_CONNECTION = CType(Me.Table, TBDD_CONNECTIONDataTable) + End Sub + + _ + Public Property GUID() As Short Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn), Date) + Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn), Short) End Get - Set(value As Date) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = value + Set(value As Short) + Me(Me.tableTBDD_CONNECTION.GUIDColumn) = value End Set End Property _ - Public Property CHANGED_WHO() As String + Public Property BEZEICHNUNG() As String Get Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn), String) + Return CType(Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn), String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBNu" & _ - "ll.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = value + Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = value End Set End Property _ - Public Property CHANGED_WHEN() As Date + Public Property SQL_PROVIDER() As String Get Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn), Date) + Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn), String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist DBN" & _ - "ull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get - Set(value As Date) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = value - End Set - End Property - - _ - Public Property COLUMN_NAME1() As String - Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column), String) - End Get Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column) = value + Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value End Set End Property _ - Public Property COLUMN_NAME2() As String + Public Property SERVER() As String Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column), String) + Try + Return CType(Me(Me.tableTBDD_CONNECTION.SERVERColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try End Get Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column) = value + Me(Me.tableTBDD_CONNECTION.SERVERColumn) = value End Set End Property _ - Public Property WINDREAM_SEARCH() As String + Public Property DATENBANK() As String Get Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn), String) + Return CType(Me(Me.tableTBDD_CONNECTION.DATENBANKColumn), String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte WINDREAM_SEARCH in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ - "DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = value + Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = value End Set End Property _ - Public Property SEARCH_PATTERN1() As String + Public Property USERNAME() As String Get Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column), String) + Return CType(Me(Me.tableTBDD_CONNECTION.USERNAMEColumn), String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN1 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ - "DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = value + Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = value End Set End Property _ - Public Property SEARCH_PATTERN2() As String + Public Property PASSWORD() As String Get Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column), String) + Return CType(Me(Me.tableTBDD_CONNECTION.PASSWORDColumn), String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN2 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ - "DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = value + Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = value End Set End Property _ - Public Property SEARCH_PATTERN3() As String + Public Property BEMERKUNG() As String Get Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column), String) + Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn), String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN3 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ - "DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) = value + Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = value End Set End Property _ - Public Property SEARCH_PATTERN4() As String + Public Property AKTIV() As Boolean Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column), String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN4 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ - "DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn), Boolean) End Get - Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) = value + Set(value As Boolean) + Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value End Set End Property _ - Public Property SEARCH_PATTERN5() As String + Public Property ERSTELLTWER() As String Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column), String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SEARCH_PATTERN5 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist " & _ - "DBNull.", e) - End Try + Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn), String) End Get Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) = value + Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value End Set End Property _ - Public Property LOAD_DIRECT() As Boolean + Public Property ERSTELLTWANN() As Date Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LOAD_DIRECTColumn), Boolean) + Try + Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn), Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try End Get - Set(value As Boolean) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LOAD_DIRECTColumn) = value + Set(value As Date) + Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = value End Set End Property _ - Public Property SQL_QUICK_VIEW() As String + Public Property GEANDERTWER() As String Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_QUICK_VIEWColumn), String) + Try + Return CType(Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try End Get Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_QUICK_VIEWColumn) = value + Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = value End Set End Property _ - Public Property TBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow + Public Property GEAENDERTWANN() As Date Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")), TBPMO_FORM_CONSTRUCTORRow) + Try + Return CType(Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn), Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) + End Try End Get - Set(value As TBPMO_FORM_CONSTRUCTORRow) - Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")) + Set(value As Date) + Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = value End Set End Property _ - Public Function IsSQL_SELECT_EBENE1Null() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) + Public Function IsBEZEICHNUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) End Function _ - Public Sub SetSQL_SELECT_EBENE1Null() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = Global.System.Convert.DBNull + Public Sub SetBEZEICHNUNGNull() + Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsADDED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) + Public Function IsSQL_PROVIDERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) End Function _ - Public Sub SetADDED_WHONull() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = Global.System.Convert.DBNull + Public Sub SetSQL_PROVIDERNull() + Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHONull() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) + Public Function IsSERVERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn) End Function _ - Public Sub SetCHANGED_WHONull() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = Global.System.Convert.DBNull + Public Sub SetSERVERNull() + Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsCHANGED_WHENNull() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) + Public Function IsDATENBANKNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) End Function _ - Public Sub SetCHANGED_WHENNull() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = Global.System.Convert.DBNull + Public Sub SetDATENBANKNull() + Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsWINDREAM_SEARCHNull() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) + Public Function IsUSERNAMENull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) End Function _ - Public Sub SetWINDREAM_SEARCHNull() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = Global.System.Convert.DBNull + Public Sub SetUSERNAMENull() + Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSEARCH_PATTERN1Null() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) + Public Function IsPASSWORDNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) End Function _ - Public Sub SetSEARCH_PATTERN1Null() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = Global.System.Convert.DBNull + Public Sub SetPASSWORDNull() + Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSEARCH_PATTERN2Null() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) + Public Function IsBEMERKUNGNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) End Function _ - Public Sub SetSEARCH_PATTERN2Null() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = Global.System.Convert.DBNull + Public Sub SetBEMERKUNGNull() + Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSEARCH_PATTERN3Null() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) + Public Function IsERSTELLTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) End Function _ - Public Sub SetSEARCH_PATTERN3Null() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) = Global.System.Convert.DBNull + Public Sub SetERSTELLTWANNNull() + Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSEARCH_PATTERN4Null() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) + Public Function IsGEANDERTWERNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) End Function _ - Public Sub SetSEARCH_PATTERN4Null() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) = Global.System.Convert.DBNull + Public Sub SetGEANDERTWERNull() + Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSEARCH_PATTERN5Null() As Boolean - Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) + Public Function IsGEAENDERTWANNNull() As Boolean + Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) End Function _ - Public Sub SetSEARCH_PATTERN5Null() - Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) = Global.System.Convert.DBNull + Public Sub SetGEAENDERTWANNNull() + Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class TBDD_CONNECTIONRow + Partial Public Class VWTEMPQUICKVIEWRow Inherits Global.System.Data.DataRow - Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable - - _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableTBDD_CONNECTION = CType(Me.Table, TBDD_CONNECTIONDataTable) - End Sub - - _ - Public Property GUID() As Short - Get - Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn), Short) - End Get - Set(value As Short) - Me(Me.tableTBDD_CONNECTION.GUIDColumn) = value - End Set - End Property - - _ - Public Property BEZEICHNUNG() As String - Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn), String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEZEICHNUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) - End Try - End Get - Set(value As String) - Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = value - End Set - End Property + Private tableVWTEMPQUICKVIEW As VWTEMPQUICKVIEWDataTable _ - Public Property SQL_PROVIDER() As String - Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn), String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SQL_PROVIDER in Tabelle TBDD_CONNECTION ist DBNull.", e) - End Try - End Get - Set(value As String) - Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value - End Set - End Property + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableVWTEMPQUICKVIEW = CType(Me.Table, VWTEMPQUICKVIEWDataTable) + End Sub _ - Public Property SERVER() As String + Public Property _Record_ID() As Integer Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.SERVERColumn), String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte SERVER in Tabelle TBDD_CONNECTION ist DBNull.", e) - End Try + Return CType(Me(Me.tableVWTEMPQUICKVIEW._Record_IDColumn), Integer) End Get - Set(value As String) - Me(Me.tableTBDD_CONNECTION.SERVERColumn) = value + Set(value As Integer) + Me(Me.tableVWTEMPQUICKVIEW._Record_IDColumn) = value End Set End Property _ - Public Property DATENBANK() As String + Public Property Aktenzeichen() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.DATENBANKColumn), String) + Return CType(Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn), String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte DATENBANK in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktenzeichen in Tabelle VWTEMPQUICKVIEW ist DBNull.", e) End Try End Get Set(value As String) - Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = value + Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) = value End Set End Property _ - Public Property USERNAME() As String + Public Property _Wiedergabe_der_Marke__Bild_() As Byte() Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.USERNAMEColumn), String) + Return CType(Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column), Byte()) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte USERNAME in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Wiedergabe der Marke (Bild) in Tabelle VWTEMPQUICKVIEW ist DB" & _ + "Null.", e) End Try End Get - Set(value As String) - Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = value + Set(value As Byte()) + Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) = value End Set End Property _ - Public Property PASSWORD() As String + Public Property Tag_der_Eintragung_im_Register() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.PASSWORDColumn), String) + Return CType(Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn), String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte PASSWORD in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Tag der Eintragung im Register in Tabelle VWTEMPQUICKVIEW ist" & _ + " DBNull.", e) End Try End Get Set(value As String) - Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = value + Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) = value End Set End Property _ - Public Property BEMERKUNG() As String + Public Property Aktenzustand() As String Get Try - Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn), String) + Return CType(Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn), String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte BEMERKUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktenzustand in Tabelle VWTEMPQUICKVIEW ist DBNull.", e) End Try End Get Set(value As String) - Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = value - End Set - End Property - - _ - Public Property AKTIV() As Boolean - Get - Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn), Boolean) - End Get - Set(value As Boolean) - Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value + Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) = value End Set End Property _ - Public Property ERSTELLTWER() As String - Get - Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn), String) - End Get - Set(value As String) - Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value - End Set - End Property + Public Function IsAktenzeichenNull() As Boolean + Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) + End Function _ - Public Property ERSTELLTWANN() As Date - Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn), Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ERSTELLTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) - End Try - End Get - Set(value As Date) - Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = value - End Set - End Property + Public Sub SetAktenzeichenNull() + Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) = Global.System.Convert.DBNull + End Sub _ - Public Property GEANDERTWER() As String - Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn), String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEANDERTWER in Tabelle TBDD_CONNECTION ist DBNull.", e) - End Try - End Get - Set(value As String) - Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = value - End Set - End Property + Public Function Is_Wiedergabe_der_Marke__Bild_Null() As Boolean + Return Me.IsNull(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) + End Function _ - Public Property GEAENDERTWANN() As Date - Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn), Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte GEAENDERTWANN in Tabelle TBDD_CONNECTION ist DBNull.", e) - End Try - End Get - Set(value As Date) - Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = value - End Set - End Property + Public Sub Set_Wiedergabe_der_Marke__Bild_Null() + Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) = Global.System.Convert.DBNull + End Sub _ - Public Function IsBEZEICHNUNGNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) + Public Function IsTag_der_Eintragung_im_RegisterNull() As Boolean + Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) End Function _ - Public Sub SetBEZEICHNUNGNull() - Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull + Public Sub SetTag_der_Eintragung_im_RegisterNull() + Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsSQL_PROVIDERNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) + Public Function IsAktenzustandNull() As Boolean + Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) End Function _ - Public Sub SetSQL_PROVIDERNull() - Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull + Public Sub SetAktenzustandNull() + Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) = Global.System.Convert.DBNull End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_ENTITIESRow + Inherits Global.System.Data.DataRow + + Private tableTBWH_ENTITIES As TBWH_ENTITIESDataTable _ - Public Function IsSERVERNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn) - End Function + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_ENTITIES = CType(Me.Table, TBWH_ENTITIESDataTable) + End Sub _ - Public Sub SetSERVERNull() - Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull - End Sub + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBWH_ENTITIES.GUIDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBWH_ENTITIES.GUIDColumn) = value + End Set + End Property _ - Public Function IsDATENBANKNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) - End Function + Public Property FORM_TITLE() As String + Get + Return CType(Me(Me.tableTBWH_ENTITIES.FORM_TITLEColumn), String) + End Get + Set(value As String) + Me(Me.tableTBWH_ENTITIES.FORM_TITLEColumn) = value + End Set + End Property _ - Public Sub SetDATENBANKNull() - Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull - End Sub + Public Property CAPTION() As String + Get + Try + Return CType(Me(Me.tableTBWH_ENTITIES.CAPTIONColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CAPTION in Tabelle TBWH_ENTITIES ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBWH_ENTITIES.CAPTIONColumn) = value + End Set + End Property _ - Public Function IsUSERNAMENull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) + Public Function IsCAPTIONNull() As Boolean + Return Me.IsNull(Me.tableTBWH_ENTITIES.CAPTIONColumn) End Function _ - Public Sub SetUSERNAMENull() - Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull + Public Sub SetCAPTIONNull() + Me(Me.tableTBWH_ENTITIES.CAPTIONColumn) = Global.System.Convert.DBNull End Sub + End Class - _ - Public Function IsPASSWORDNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) - End Function + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBWH_USER_GROUPSRow + Inherits Global.System.Data.DataRow + + Private tableTBWH_USER_GROUPS As TBWH_USER_GROUPSDataTable _ - Public Sub SetPASSWORDNull() - Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBWH_USER_GROUPS = CType(Me.Table, TBWH_USER_GROUPSDataTable) End Sub _ - Public Function IsBEMERKUNGNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) - End Function + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBWH_USER_GROUPS.GUIDColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBWH_USER_GROUPS.GUIDColumn) = value + End Set + End Property _ - Public Sub SetBEMERKUNGNull() - Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull - End Sub + Public Property NAME() As String + Get + Try + Return CType(Me(Me.tableTBWH_USER_GROUPS.NAMEColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte NAME in Tabelle TBWH_USER_GROUPS ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableTBWH_USER_GROUPS.NAMEColumn) = value + End Set + End Property _ - Public Function IsERSTELLTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) + Public Function IsNAMENull() As Boolean + Return Me.IsNull(Me.tableTBWH_USER_GROUPS.NAMEColumn) End Function _ - Public Sub SetERSTELLTWANNNull() - Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull + Public Sub SetNAMENull() + Me(Me.tableTBWH_USER_GROUPS.NAMEColumn) = Global.System.Convert.DBNull End Sub + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class DT_VORSCHAURow + Inherits Global.System.Data.DataRow + + Private tableDT_VORSCHAU As DT_VORSCHAUDataTable _ - Public Function IsGEANDERTWERNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) - End Function + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableDT_VORSCHAU = CType(Me.Table, DT_VORSCHAUDataTable) + End Sub _ - Public Sub SetGEANDERTWERNull() - Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull - End Sub + Public Property VALUE() As String + Get + Try + Return CType(Me(Me.tableDT_VORSCHAU.VALUEColumn), String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle DT_VORSCHAU ist DBNull.", e) + End Try + End Get + Set(value As String) + Me(Me.tableDT_VORSCHAU.VALUEColumn) = value + End Set + End Property _ - Public Function IsGEAENDERTWANNNull() As Boolean - Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) + Public Function IsVALUENull() As Boolean + Return Me.IsNull(Me.tableDT_VORSCHAU.VALUEColumn) End Function _ - Public Sub SetGEAENDERTWANNNull() - Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull + Public Sub SetVALUENull() + Me(Me.tableDT_VORSCHAU.VALUEColumn) = Global.System.Convert.DBNull End Sub End Class ''' '''Represents strongly named DataRow class. ''' - Partial Public Class VWTEMPQUICKVIEWRow + Partial Public Class TBAD_UsersRow Inherits Global.System.Data.DataRow - Private tableVWTEMPQUICKVIEW As VWTEMPQUICKVIEWDataTable + Private tableTBAD_Users As TBAD_UsersDataTable _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableVWTEMPQUICKVIEW = CType(Me.Table, VWTEMPQUICKVIEWDataTable) + Me.tableTBAD_Users = CType(Me.Table, TBAD_UsersDataTable) End Sub _ - Public Property _Record_ID() As Integer + Public Property _Select() As Boolean Get - Return CType(Me(Me.tableVWTEMPQUICKVIEW._Record_IDColumn), Integer) + Try + Return CType(Me(Me.tableTBAD_Users.SelectColumn), Boolean) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBAD_Users ist DBNull.", e) + End Try End Get - Set(value As Integer) - Me(Me.tableVWTEMPQUICKVIEW._Record_IDColumn) = value + Set(value As Boolean) + Me(Me.tableTBAD_Users.SelectColumn) = value End Set End Property _ - Public Property Aktenzeichen() As String + Public Property Username() As String Get Try - Return CType(Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn), String) + Return CType(Me(Me.tableTBAD_Users.UsernameColumn), String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktenzeichen in Tabelle VWTEMPQUICKVIEW ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set(value As String) - Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) = value + Me(Me.tableTBAD_Users.UsernameColumn) = value End Set End Property _ - Public Property _Wiedergabe_der_Marke__Bild_() As Byte() + Public Property Prename() As String Get Try - Return CType(Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column), Byte()) + Return CType(Me(Me.tableTBAD_Users.PrenameColumn), String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Wiedergabe der Marke (Bild) in Tabelle VWTEMPQUICKVIEW ist DB" & _ - "Null.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBAD_Users ist DBNull.", e) End Try End Get - Set(value As Byte()) - Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) = value + Set(value As String) + Me(Me.tableTBAD_Users.PrenameColumn) = value End Set End Property _ - Public Property Tag_der_Eintragung_im_Register() As String + Public Property Surname() As String Get Try - Return CType(Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn), String) + Return CType(Me(Me.tableTBAD_Users.SurnameColumn), String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Tag der Eintragung im Register in Tabelle VWTEMPQUICKVIEW ist" & _ - " DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set(value As String) - Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) = value + Me(Me.tableTBAD_Users.SurnameColumn) = value End Set End Property _ - Public Property Aktenzustand() As String + Public Property Email() As String Get Try - Return CType(Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn), String) + Return CType(Me(Me.tableTBAD_Users.EmailColumn), String) Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Aktenzustand in Tabelle VWTEMPQUICKVIEW ist DBNull.", e) + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBAD_Users ist DBNull.", e) End Try End Get Set(value As String) - Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) = value + Me(Me.tableTBAD_Users.EmailColumn) = value End Set End Property _ - Public Function IsAktenzeichenNull() As Boolean - Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) + Public Function Is_SelectNull() As Boolean + Return Me.IsNull(Me.tableTBAD_Users.SelectColumn) End Function _ - Public Sub SetAktenzeichenNull() - Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) = Global.System.Convert.DBNull + Public Sub Set_SelectNull() + Me(Me.tableTBAD_Users.SelectColumn) = Global.System.Convert.DBNull End Sub _ - Public Function Is_Wiedergabe_der_Marke__Bild_Null() As Boolean - Return Me.IsNull(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) + Public Function IsUsernameNull() As Boolean + Return Me.IsNull(Me.tableTBAD_Users.UsernameColumn) End Function _ - Public Sub Set_Wiedergabe_der_Marke__Bild_Null() - Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) = Global.System.Convert.DBNull + Public Sub SetUsernameNull() + Me(Me.tableTBAD_Users.UsernameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsTag_der_Eintragung_im_RegisterNull() As Boolean - Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) + Public Function IsPrenameNull() As Boolean + Return Me.IsNull(Me.tableTBAD_Users.PrenameColumn) End Function _ - Public Sub SetTag_der_Eintragung_im_RegisterNull() - Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) = Global.System.Convert.DBNull + Public Sub SetPrenameNull() + Me(Me.tableTBAD_Users.PrenameColumn) = Global.System.Convert.DBNull End Sub _ - Public Function IsAktenzustandNull() As Boolean - Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) + Public Function IsSurnameNull() As Boolean + Return Me.IsNull(Me.tableTBAD_Users.SurnameColumn) End Function _ - Public Sub SetAktenzustandNull() - Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) = Global.System.Convert.DBNull + Public Sub SetSurnameNull() + Me(Me.tableTBAD_Users.SurnameColumn) = Global.System.Convert.DBNull + End Sub + + _ + Public Function IsEmailNull() As Boolean + Return Me.IsNull(Me.tableTBAD_Users.EmailColumn) + End Function + + _ + Public Sub SetEmailNull() + Me(Me.tableTBAD_Users.EmailColumn) = Global.System.Convert.DBNull End Sub End Class ''' - '''Represents strongly named DataRow class. + '''Row event argument class ''' - Partial Public Class DT_VORSCHAURow - Inherits Global.System.Data.DataRow + _ + Public Class TBPMO_FORM_CONSTRUCTORRowChangeEvent + Inherits Global.System.EventArgs - Private tableDT_VORSCHAU As DT_VORSCHAUDataTable + Private eventRow As TBPMO_FORM_CONSTRUCTORRow + + Private eventAction As Global.System.Data.DataRowAction _ - Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) - MyBase.New(rb) - Me.tableDT_VORSCHAU = CType(Me.Table, DT_VORSCHAUDataTable) + Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTORRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New() + Me.eventRow = row + Me.eventAction = action End Sub _ - Public Property VALUE() As String + Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTORRow Get - Try - Return CType(Me(Me.tableDT_VORSCHAU.VALUEColumn), String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte VALUE in Tabelle DT_VORSCHAU ist DBNull.", e) - End Try + Return Me.eventRow End Get - Set(value As String) - Me(Me.tableDT_VORSCHAU.VALUEColumn) = value - End Set End Property _ - Public Function IsVALUENull() As Boolean - Return Me.IsNull(Me.tableDT_VORSCHAU.VALUEColumn) - End Function + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow + + Private eventAction As Global.System.Data.DataRowAction _ - Public Sub SetVALUENull() - Me(Me.tableDT_VORSCHAU.VALUEColumn) = Global.System.Convert.DBNull + Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New() + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBDD_CONNECTIONRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBDD_CONNECTIONRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New() + Me.eventRow = row + Me.eventAction = action End Sub + + _ + Public ReadOnly Property Row() As TBDD_CONNECTIONRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property End Class ''' '''Row event argument class ''' _ - Public Class TBPMO_FORM_CONSTRUCTORRowChangeEvent + Public Class VWTEMPQUICKVIEWRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBPMO_FORM_CONSTRUCTORRow + Private eventRow As VWTEMPQUICKVIEWRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTORRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As VWTEMPQUICKVIEWRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New() Me.eventRow = row Me.eventAction = action @@ -3605,7 +4970,7 @@ Partial Public Class DD_ECMAdmin _ - Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTORRow + Public ReadOnly Property Row() As VWTEMPQUICKVIEWRow Get Return Me.eventRow End Get @@ -3624,16 +4989,88 @@ Partial Public Class DD_ECMAdmin '''Row event argument class ''' _ - Public Class TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent + Public Class TBWH_ENTITIESRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Private eventRow As TBWH_ENTITIESRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBWH_ENTITIESRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New() + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_ENTITIESRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class TBWH_USER_GROUPSRowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As TBWH_USER_GROUPSRow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As TBWH_USER_GROUPSRow, ByVal action As Global.System.Data.DataRowAction) + MyBase.New() + Me.eventRow = row + Me.eventAction = action + End Sub + + _ + Public ReadOnly Property Row() As TBWH_USER_GROUPSRow + Get + Return Me.eventRow + End Get + End Property + + _ + Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Get + Return Me.eventAction + End Get + End Property + End Class + + ''' + '''Row event argument class + ''' + _ + Public Class DT_VORSCHAURowChangeEvent + Inherits Global.System.EventArgs + + Private eventRow As DT_VORSCHAURow + + Private eventAction As Global.System.Data.DataRowAction + + _ + Public Sub New(ByVal row As DT_VORSCHAURow, ByVal action As Global.System.Data.DataRowAction) MyBase.New() Me.eventRow = row Me.eventAction = action @@ -3641,7 +5078,7 @@ Partial Public Class DD_ECMAdmin _ - Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTOR_DETAILRow + Public ReadOnly Property Row() As DT_VORSCHAURow Get Return Me.eventRow End Get @@ -3660,16 +5097,16 @@ Partial Public Class DD_ECMAdmin '''Row event argument class ''' _ - Public Class TBDD_CONNECTIONRowChangeEvent + Public Class TBAD_UsersRowChangeEvent Inherits Global.System.EventArgs - Private eventRow As TBDD_CONNECTIONRow + Private eventRow As TBAD_UsersRow Private eventAction As Global.System.Data.DataRowAction _ - Public Sub New(ByVal row As TBDD_CONNECTIONRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New(ByVal row As TBAD_UsersRow, ByVal action As Global.System.Data.DataRowAction) MyBase.New() Me.eventRow = row Me.eventAction = action @@ -3677,7 +5114,7 @@ Partial Public Class DD_ECMAdmin _ - Public ReadOnly Property Row() As TBDD_CONNECTIONRow + Public ReadOnly Property Row() As TBAD_UsersRow Get Return Me.eventRow End Get @@ -3691,81 +5128,387 @@ Partial Public Class DD_ECMAdmin End Get End Property End Class +End Class + +Namespace DD_ECMAdminTableAdapters ''' - '''Row event argument class + '''Represents the connection and commands used to retrieve and save data. ''' - _ - Public Class VWTEMPQUICKVIEWRowChangeEvent - Inherits Global.System.EventArgs + _ + Partial Public Class TBPMO_FORM_CONSTRUCTORTableAdapter + Inherits Global.System.ComponentModel.Component - Private eventRow As VWTEMPQUICKVIEWRow + Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter - Private eventAction As Global.System.Data.DataRowAction + 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(ByVal row As VWTEMPQUICKVIEWRow, ByVal action As Global.System.Data.DataRowAction) + Public Sub New() MyBase.New() - Me.eventRow = row - Me.eventAction = action + Me.ClearBeforeFill = True End Sub _ - Public ReadOnly Property Row() As VWTEMPQUICKVIEWRow + Protected Friend ReadOnly Property Adapter() As Global.System.Data.SqlClient.SqlDataAdapter Get - Return Me.eventRow + If (Me._adapter Is Nothing) Then + Me.InitAdapter() + End If + Return Me._adapter End Get End Property _ - Public ReadOnly Property Action() As Global.System.Data.DataRowAction + Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get - Return Me.eventAction + If (Me._connection Is Nothing) Then + Me.InitConnection() + End If + Return Me._connection + End Get + Set(value As Global.System.Data.SqlClient.SqlConnection) + 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(value As Global.System.Data.SqlClient.SqlTransaction) + 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 - End Class - ''' - '''Row event argument class - ''' - _ - Public Class DT_VORSCHAURowChangeEvent - Inherits Global.System.EventArgs + _ + Public Property ClearBeforeFill() As Boolean + Get + Return Me._clearBeforeFill + End Get + Set(value As Boolean) + Me._clearBeforeFill = value + End Set + End Property - Private eventRow As DT_VORSCHAURow + _ + 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_FORM_CONSTRUCTOR" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") + tableMapping.ColumnMappings.Add("SEQUENCE_MENU", "SEQUENCE_MENU") + tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") + tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") + tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") + tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") + tableMapping.ColumnMappings.Add("MENU_IMG", "MENU_IMG") + tableMapping.ColumnMappings.Add("SHORT_TITLE", "SHORT_TITLE") + tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") + 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_FORM_CONSTRUCTOR" & 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_FORM_CONSTRUCTOR" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (FORM_TITLE, SEQUENC" & _ + "E_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE, LANGUAGE)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@FORM_TITLE," & _ + "@SEQUENCE_MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE,@LANGUAGE); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, FOR" & _ + "M_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_I" & _ + "MG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.UpdateCommand.Connection = Me.Connection + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET FORM_TITLE = @FORM_TITLE," & _ + " SEQUENCE_MENU = @SEQUENCE_MENU, CHANGED_WHO = @CHANGED_WHO, MENU_IMG = @MENU_IM" & _ + "G, SHORT_TITLE = @SHORT_TITLE, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " LANGUAGE = @LANGUAGE" & 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, FORM_TITLE, SEQUENCE_MENU" & _ + ", ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM T" & _ + "BPMO_FORM_CONSTRUCTOR WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", 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("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@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 GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'CONSTR_MENUE' + CONVER" & _ + "T(VARCHAR(5), GUID), @SCREEN_ID) AS FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_" & _ + "WHEN, CHANGED_WHO, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CHANGED_WHEN, MENU_IMG, SHORT_TITL" & _ + "E, LANGUAGE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_FORM_CONSTRUCTOR" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + End Sub + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable, ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As Integer + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID, Integer) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() + End If + Dim returnValue As Integer = Me.Adapter.Fill(dataTable) + Return returnValue + End Function + + _ + Public Overridable Overloads Function GetData(ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID, Integer) + Dim dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable = New DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable) As Integer + Return Me.Adapter.Update(dataTable) + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR") + End Function + + _ + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) + End Function - Private eventAction As Global.System.Data.DataRowAction + _ + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + Return Me.Adapter.Update(dataRows) + End Function _ - Public Sub New(ByVal row As DT_VORSCHAURow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New() - Me.eventRow = row - Me.eventAction = action - End Sub + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Delete, True)> _ + Public Overridable Overloads 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 ReadOnly Property Row() As DT_VORSCHAURow - Get - Return Me.eventRow - End Get - End Property + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, True)> _ + Public Overridable Overloads Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String) As Integer + If (FORM_TITLE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TITLE, String) + End If + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_MENU, Integer) + If (ADDED_WHO Is Nothing) Then + Throw New Global.System.ArgumentNullException("ADDED_WHO") + Else + Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO, String) + End If + If (MENU_IMG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(3).Value = CType(MENU_IMG, Byte()) + End If + If (SHORT_TITLE Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SHORT_TITLE, String) + End If + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.InsertCommand.Parameters(5).Value = CType(LANGUAGE, 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 ReadOnly Property Action() As Global.System.Data.DataRowAction - Get - Return Me.eventAction - End Get - End Property + Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ + Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ + Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, True)> _ + Public Overridable Overloads Function Update(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal CHANGED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer + If (FORM_TITLE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TITLE, String) + End If + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_MENU, Integer) + If (CHANGED_WHO Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO, String) + End If + If (MENU_IMG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MENU_IMG, Byte()) + End If + If (SHORT_TITLE Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SHORT_TITLE, String) + End If + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LANGUAGE, String) + End If + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID, Integer) + Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State + If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + <> Global.System.Data.ConnectionState.Open) Then + Me.Adapter.UpdateCommand.Connection.Open() + End If + Try + Dim returnValue As Integer = Me.Adapter.UpdateCommand.ExecuteNonQuery + Return returnValue + Finally + If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then + Me.Adapter.UpdateCommand.Connection.Close() + End If + End Try + End Function End Class -End Class - -Namespace DD_ECMAdminTableAdapters ''' '''Represents the connection and commands used to retrieve and save data. @@ -3776,7 +5519,7 @@ Namespace DD_ECMAdminTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner" & _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_FORM_CONSTRUCTORTableAdapter + Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -3893,52 +5636,100 @@ Namespace DD_ECMAdminTableAdapters 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_FORM_CONSTRUCTOR" + tableMapping.DataSetTable = "TBPMO_FORM_CONSTRUCTOR_DETAIL" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") - tableMapping.ColumnMappings.Add("SEQUENCE_MENU", "SEQUENCE_MENU") + tableMapping.ColumnMappings.Add("CONSTRUCT_ID", "CONSTRUCT_ID") + tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") + tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") + tableMapping.ColumnMappings.Add("LEVEL1_SELECT", "LEVEL1_SELECT") + tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") + tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE1", "SQL_SELECT_EBENE1") + tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE2", "SQL_SELECT_EBENE2") tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("MENU_IMG", "MENU_IMG") - tableMapping.ColumnMappings.Add("SHORT_TITLE", "SHORT_TITLE") - tableMapping.ColumnMappings.Add("LANGUAGE", "LANGUAGE") + tableMapping.ColumnMappings.Add("COLUMN_NAME1", "COLUMN_NAME1") + tableMapping.ColumnMappings.Add("COLUMN_NAME2", "COLUMN_NAME2") + tableMapping.ColumnMappings.Add("WINDREAM_SEARCH", "WINDREAM_SEARCH") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN1", "SEARCH_PATTERN1") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN2", "SEARCH_PATTERN2") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN3", "SEARCH_PATTERN3") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN4", "SEARCH_PATTERN4") + tableMapping.ColumnMappings.Add("SEARCH_PATTERN5", "SEARCH_PATTERN5") + tableMapping.ColumnMappings.Add("LOAD_DIRECT", "LOAD_DIRECT") + tableMapping.ColumnMappings.Add("SQL_QUICK_VIEW", "SQL_QUICK_VIEW") 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_FORM_CONSTRUCTOR" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (GUID = @Original_GUID)" + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBPMO_FORM_CONSTRUCTOR_DETAIL" & 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_FORM_CONSTRUCTOR" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (FORM_TITLE, SEQUENC" & _ - "E_MENU, ADDED_WHO, MENU_IMG, SHORT_TITLE, LANGUAGE)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@FORM_TITLE," & _ - "@SEQUENCE_MENU,@ADDED_WHO,@MENU_IMG,@SHORT_TITLE,@LANGUAGE); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, FOR" & _ - "M_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_I" & _ - "MG, SHORT_TITLE FROM TBPMO_FORM_CONSTRUCTOR WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (CONSTRUCT_ID" & _ + ", FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBE" & _ + "NE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & _ + " SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEAR" & _ + "CH_PATTERN5)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@S" & _ + "EQUENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_N" & _ + "AME2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH" & _ + "_PATTERN4,@SEARCH_PATTERN5); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LE" & _ + "VEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WH" & _ + "EN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEAR" & _ + "CH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 " & _ + "FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", 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_FORM_CONSTRUCTOR" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET FORM_TITLE = @FORM_TITLE," & _ - " SEQUENCE_MENU = @SEQUENCE_MENU, CHANGED_WHO = @CHANGED_WHO, MENU_IMG = @MENU_IM" & _ - "G, SHORT_TITLE = @SHORT_TITLE, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " LANGUAGE = @LANGUAGE" & 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, FORM_TITLE, SEQUENCE_MENU" & _ - ", ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE FROM T" & _ - "BPMO_FORM_CONSTRUCTOR WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET CONSTRUCT_ID = @CO" & _ + "NSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_" & _ + "SELECT, SEQUENCE = @SEQUENCE, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " SQL_SELECT_EBENE1 = @SQ" & _ + "L_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_" & _ + "WHO, COLUMN_NAME1 = @COLUMN_NAME1, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " COLUMN_NAME2 = @CO" & _ + "LUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTER" & _ + "N1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " SEARCH_PATTER" & _ + "N3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SE" & _ + "ARCH_PATTERN5, LOAD_DIRECT = @LOAD_DIRECT" & 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, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_" & _ + "SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WH" & _ + "EN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN" & _ + "2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR" & _ + "_DETAIL WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE_MENU", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE_MENU", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", 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("@MENU_IMG", Global.System.Data.SqlDbType.VarBinary, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "MENU_IMG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SHORT_TITLE", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SHORT_TITLE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 5, Global.System.Data.ParameterDirection.Input, 0, 0, "LANGUAGE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_DIRECT", 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 @@ -3956,27 +5747,23 @@ Namespace DD_ECMAdminTableAdapters Me._commandCollection = New Global.System.Data.SqlClient.SqlCommand(0) {} Me._commandCollection(0) = New Global.System.Data.SqlClient.SqlCommand() Me._commandCollection(0).Connection = Me.Connection - Me._commandCollection(0).CommandText = "SELECT GUID, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'CONSTR_MENUE' + CONVER" & _ - "T(VARCHAR(5), GUID), @SCREEN_ID) AS FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_" & _ - "WHEN, CHANGED_WHO, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " CHANGED_WHEN, MENU_IMG, SHORT_TITL" & _ - "E, LANGUAGE" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_FORM_CONSTRUCTOR" + Me._commandCollection(0).CommandText = "SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQ" & _ + "L_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_" & _ + "WHEN, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SE" & _ + "ARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN" & _ + "5, LOAD_DIRECT, SQL_QUICK_VIEW" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBPMO_FORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "W" & _ + "HERE (GUID = @ID)" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LANGUAGE", Global.System.Data.SqlDbType.VarChar, 1024, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._commandCollection(0).Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SCREEN_ID", Global.System.Data.SqlDbType.Int, 0, Global.System.Data.ParameterDirection.Input, 0, 0, "", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + 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, "GUID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) End Sub _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable, ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As Integer + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) - End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID, Integer) + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID, Integer) If (Me.ClearBeforeFill = True) Then dataTable.Clear() End If @@ -3988,15 +5775,10 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], True)> _ - Public Overridable Overloads Function GetData(ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable + Public Overridable Overloads Function GetData(ByVal ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") - Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) - End If - Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN_ID, Integer) - Dim dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable = New DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID, Integer) + Dim dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = New DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -4004,7 +5786,7 @@ Namespace DD_ECMAdminTableAdapters _ - Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable) As Integer + Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -4012,7 +5794,7 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer - Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR") + Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR_DETAIL") End Function _ - Public Overridable Overloads Function Insert(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String) As Integer - If (FORM_TITLE Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value + Public Overridable Overloads Function Insert( _ + ByVal CONSTRUCT_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal ADDED_WHO As String, _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String) As Integer + Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONSTRUCT_ID, Integer) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID, Integer) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(PARENT_ID, Integer) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(LEVEL1_SELECT, Boolean) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE, Integer) + If (SQL_SELECT_EBENE1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TITLE, String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1, String) + End If + If (SQL_SELECT_EBENE2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") + Else + Me.Adapter.InsertCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2, String) End If - Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_MENU, Integer) If (ADDED_WHO Is Nothing) Then - Throw New Global.System.ArgumentNullException("ADDED_WHO") + Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(ADDED_WHO, String) + Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO, String) End If - If (MENU_IMG Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value + If (COLUMN_NAME1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME1") Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(MENU_IMG, Byte()) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(COLUMN_NAME1, String) End If - If (SHORT_TITLE Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value + If (COLUMN_NAME2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME2") Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(SHORT_TITLE, String) + Me.Adapter.InsertCommand.Parameters(9).Value = CType(COLUMN_NAME2, String) End If - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") + If (WINDREAM_SEARCH Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(LANGUAGE, String) + Me.Adapter.InsertCommand.Parameters(10).Value = CType(WINDREAM_SEARCH, String) + End If + If (SEARCH_PATTERN1 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEARCH_PATTERN1, String) + End If + If (SEARCH_PATTERN2 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(12).Value = CType(SEARCH_PATTERN2, String) + End If + If (SEARCH_PATTERN3 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(13).Value = CType(SEARCH_PATTERN3, String) + End If + If (SEARCH_PATTERN4 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(14).Value = CType(SEARCH_PATTERN4, String) + End If + If (SEARCH_PATTERN5 Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.InsertCommand.Parameters(15).Value = CType(SEARCH_PATTERN5, 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) _ @@ -4100,35 +5932,89 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Update, True)> _ - Public Overridable Overloads Function Update(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal CHANGED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer - If (FORM_TITLE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value + Public Overridable Overloads Function Update( _ + ByVal CONSTRUCT_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal CHANGED_WHO As String, _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String, _ + ByVal LOAD_DIRECT As Boolean, _ + ByVal Original_GUID As Integer, _ + ByVal GUID As Integer) As Integer + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONSTRUCT_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PARENT_ID, Integer) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LEVEL1_SELECT, Boolean) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE, Integer) + If (SQL_SELECT_EBENE1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TITLE, String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1, String) + End If + If (SQL_SELECT_EBENE2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") + Else + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2, String) End If - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_MENU, Integer) If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(CHANGED_WHO, String) + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO, String) End If - If (MENU_IMG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value + If (COLUMN_NAME1 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME1") Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(MENU_IMG, Byte()) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(COLUMN_NAME1, String) End If - If (SHORT_TITLE Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value + If (COLUMN_NAME2 Is Nothing) Then + Throw New Global.System.ArgumentNullException("COLUMN_NAME2") Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SHORT_TITLE, String) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(COLUMN_NAME2, String) End If - If (LANGUAGE Is Nothing) Then - Throw New Global.System.ArgumentNullException("LANGUAGE") + If (WINDREAM_SEARCH Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(LANGUAGE, String) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(WINDREAM_SEARCH, String) End If - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(Original_GUID, Integer) - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(GUID, Integer) + If (SEARCH_PATTERN1 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEARCH_PATTERN1, String) + End If + If (SEARCH_PATTERN2 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SEARCH_PATTERN2, String) + End If + If (SEARCH_PATTERN3 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SEARCH_PATTERN3, String) + End If + If (SEARCH_PATTERN4 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SEARCH_PATTERN4, String) + End If + If (SEARCH_PATTERN5 Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Else + Me.Adapter.UpdateCommand.Parameters(15).Value = CType(SEARCH_PATTERN5, String) + End If + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(LOAD_DIRECT, Boolean) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(18).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 @@ -4154,7 +6040,7 @@ Namespace DD_ECMAdminTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner" & _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + Partial Public Class TBDD_CONNECTIONTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -4271,102 +6157,65 @@ Namespace DD_ECMAdminTableAdapters 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_FORM_CONSTRUCTOR_DETAIL" + tableMapping.DataSetTable = "TBDD_CONNECTION" tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("CONSTRUCT_ID", "CONSTRUCT_ID") - tableMapping.ColumnMappings.Add("FORM_ID", "FORM_ID") - tableMapping.ColumnMappings.Add("PARENT_ID", "PARENT_ID") - tableMapping.ColumnMappings.Add("LEVEL1_SELECT", "LEVEL1_SELECT") - tableMapping.ColumnMappings.Add("SEQUENCE", "SEQUENCE") - tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE1", "SQL_SELECT_EBENE1") - tableMapping.ColumnMappings.Add("SQL_SELECT_EBENE2", "SQL_SELECT_EBENE2") - tableMapping.ColumnMappings.Add("ADDED_WHO", "ADDED_WHO") - tableMapping.ColumnMappings.Add("ADDED_WHEN", "ADDED_WHEN") - tableMapping.ColumnMappings.Add("CHANGED_WHO", "CHANGED_WHO") - tableMapping.ColumnMappings.Add("CHANGED_WHEN", "CHANGED_WHEN") - tableMapping.ColumnMappings.Add("COLUMN_NAME1", "COLUMN_NAME1") - tableMapping.ColumnMappings.Add("COLUMN_NAME2", "COLUMN_NAME2") - tableMapping.ColumnMappings.Add("WINDREAM_SEARCH", "WINDREAM_SEARCH") - tableMapping.ColumnMappings.Add("SEARCH_PATTERN1", "SEARCH_PATTERN1") - tableMapping.ColumnMappings.Add("SEARCH_PATTERN2", "SEARCH_PATTERN2") - tableMapping.ColumnMappings.Add("SEARCH_PATTERN3", "SEARCH_PATTERN3") - tableMapping.ColumnMappings.Add("SEARCH_PATTERN4", "SEARCH_PATTERN4") - tableMapping.ColumnMappings.Add("SEARCH_PATTERN5", "SEARCH_PATTERN5") - tableMapping.ColumnMappings.Add("LOAD_DIRECT", "LOAD_DIRECT") - tableMapping.ColumnMappings.Add("SQL_QUICK_VIEW", "SQL_QUICK_VIEW") + tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") + tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") + tableMapping.ColumnMappings.Add("SERVER", "SERVER") + tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") + tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") + tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") + tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG") + tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") + tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") + tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") + tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") + tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") 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_FORM_CONSTRUCTOR_DETAIL" & 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_FORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (CONSTRUCT_ID" & _ - ", FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBE" & _ - "NE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " " & _ - " SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEAR" & _ - "CH_PATTERN5)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@S" & _ - "EQUENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_N" & _ - "AME2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH" & _ - "_PATTERN4,@SEARCH_PATTERN5); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LE" & _ - "VEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WH" & _ - "EN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEAR" & _ - "CH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 " & _ - "FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY())" + Me._adapter.DeleteCommand.Connection = Me.Connection + Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_CONNECTION" & 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.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() + Me._adapter.InsertCommand.Connection = Me.Connection + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_CONNECTION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (BEZEICHNUNG, SQL_PROVIDER," & _ + " SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES " & _ + " (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERK" & _ + "UNG,@AKTIV,@ERSTELLTWER); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATE" & _ + "NBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERT" & _ + "WER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", 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_FORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET CONSTRUCT_ID = @CO" & _ - "NSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_" & _ - "SELECT, SEQUENCE = @SEQUENCE, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " SQL_SELECT_EBENE1 = @SQ" & _ - "L_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_" & _ - "WHO, COLUMN_NAME1 = @COLUMN_NAME1, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " COLUMN_NAME2 = @CO" & _ - "LUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTER" & _ - "N1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " SEARCH_PATTER" & _ - "N3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SE" & _ - "ARCH_PATTERN5, LOAD_DIRECT = @LOAD_DIRECT" & 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, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_" & _ - "SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WH" & _ - "EN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN" & _ - "2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR" & _ - "_DETAIL WHERE (GUID = @GUID)" + Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_CONNECTION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET BEZEICHNUNG = @BEZEICHNUNG, SQL_" & _ + "PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @" & _ + "USERNAME, PASSWORD = @PASSWORD, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " BEMERKUNG = @BEMERKUN" & _ + "G, AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER" & 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, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASS" & _ + "WORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FR" & _ + "OM TBDD_CONNECTION WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", 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("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_DIRECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, 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.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) End Sub _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID, Integer) If (Me.ClearBeforeFill = True) Then dataTable.Clear() End If @@ -4410,10 +6252,9 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], True)> _ - Public Overridable Overloads Function GetData(ByVal ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBDD_CONNECTIONDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID, Integer) - Dim dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = New DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() + Dim dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable = New DD_ECMAdmin.TBDD_CONNECTIONDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function @@ -4421,7 +6262,7 @@ Namespace DD_ECMAdminTableAdapters _ - Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) As Integer + Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function @@ -4429,7 +6270,7 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer - Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR_DETAIL") + Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION") End Function _ - Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) + Public Overridable Overloads Function Delete(ByVal Original_GUID As Short) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Short) 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 @@ -4471,185 +6312,111 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Insert, True)> _ - Public Overridable Overloads Function Insert( _ - ByVal CONSTRUCT_ID As Integer, _ - ByVal FORM_ID As Integer, _ - ByVal PARENT_ID As Integer, _ - ByVal LEVEL1_SELECT As Boolean, _ - ByVal SEQUENCE As Integer, _ - ByVal SQL_SELECT_EBENE1 As String, _ - ByVal SQL_SELECT_EBENE2 As String, _ - ByVal ADDED_WHO As String, _ - ByVal COLUMN_NAME1 As String, _ - ByVal COLUMN_NAME2 As String, _ - ByVal WINDREAM_SEARCH As String, _ - ByVal SEARCH_PATTERN1 As String, _ - ByVal SEARCH_PATTERN2 As String, _ - ByVal SEARCH_PATTERN3 As String, _ - ByVal SEARCH_PATTERN4 As String, _ - ByVal SEARCH_PATTERN5 As String) As Integer - Me.Adapter.InsertCommand.Parameters(0).Value = CType(CONSTRUCT_ID, Integer) - Me.Adapter.InsertCommand.Parameters(1).Value = CType(FORM_ID, Integer) - Me.Adapter.InsertCommand.Parameters(2).Value = CType(PARENT_ID, Integer) - Me.Adapter.InsertCommand.Parameters(3).Value = CType(LEVEL1_SELECT, Boolean) - Me.Adapter.InsertCommand.Parameters(4).Value = CType(SEQUENCE, Integer) - If (SQL_SELECT_EBENE1 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1, String) - End If - If (SQL_SELECT_EBENE2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2, String) - End If - If (ADDED_WHO Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(7).Value = CType(ADDED_WHO, String) - End If - If (COLUMN_NAME1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("COLUMN_NAME1") + Public Overridable Overloads Function Insert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String) As Integer + If (BEZEICHNUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(COLUMN_NAME1, String) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG, String) End If - If (COLUMN_NAME2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("COLUMN_NAME2") + If (SQL_PROVIDER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(9).Value = CType(COLUMN_NAME2, String) + Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER, String) End If - If (WINDREAM_SEARCH Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(10).Value = Global.System.DBNull.Value + If (SERVER Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(10).Value = CType(WINDREAM_SEARCH, String) + Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERVER, String) End If - If (SEARCH_PATTERN1 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(11).Value = Global.System.DBNull.Value + If (DATENBANK Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(11).Value = CType(SEARCH_PATTERN1, String) + Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATENBANK, String) End If - If (SEARCH_PATTERN2 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(12).Value = Global.System.DBNull.Value + If (USERNAME Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(12).Value = CType(SEARCH_PATTERN2, String) + Me.Adapter.InsertCommand.Parameters(4).Value = CType(USERNAME, String) End If - If (SEARCH_PATTERN3 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(13).Value = Global.System.DBNull.Value + If (PASSWORD Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(13).Value = CType(SEARCH_PATTERN3, String) + Me.Adapter.InsertCommand.Parameters(5).Value = CType(PASSWORD, String) End If - If (SEARCH_PATTERN4 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(14).Value = Global.System.DBNull.Value + If (BEMERKUNG Is Nothing) Then + Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.InsertCommand.Parameters(14).Value = CType(SEARCH_PATTERN4, String) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(BEMERKUNG, String) End If - If (SEARCH_PATTERN5 Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(15).Value = Global.System.DBNull.Value + Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIV, Boolean) + If (ERSTELLTWER Is Nothing) Then + Throw New Global.System.ArgumentNullException("ERSTELLTWER") Else - Me.Adapter.InsertCommand.Parameters(15).Value = CType(SEARCH_PATTERN5, String) + Me.Adapter.InsertCommand.Parameters(8).Value = CType(ERSTELLTWER, 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 Overridable Overloads Function Update( _ - ByVal CONSTRUCT_ID As Integer, _ - ByVal FORM_ID As Integer, _ - ByVal PARENT_ID As Integer, _ - ByVal LEVEL1_SELECT As Boolean, _ - ByVal SEQUENCE As Integer, _ - ByVal SQL_SELECT_EBENE1 As String, _ - ByVal SQL_SELECT_EBENE2 As String, _ - ByVal CHANGED_WHO As String, _ - ByVal COLUMN_NAME1 As String, _ - ByVal COLUMN_NAME2 As String, _ - ByVal WINDREAM_SEARCH As String, _ - ByVal SEARCH_PATTERN1 As String, _ - ByVal SEARCH_PATTERN2 As String, _ - ByVal SEARCH_PATTERN3 As String, _ - ByVal SEARCH_PATTERN4 As String, _ - ByVal SEARCH_PATTERN5 As String, _ - ByVal LOAD_DIRECT As Boolean, _ - ByVal Original_GUID As Integer, _ - ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONSTRUCT_ID, Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID, Integer) - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PARENT_ID, Integer) - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LEVEL1_SELECT, Boolean) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE, Integer) - If (SQL_SELECT_EBENE1 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(SQL_SELECT_EBENE1, String) - End If - If (SQL_SELECT_EBENE2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("SQL_SELECT_EBENE2") - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(SQL_SELECT_EBENE2, String) - End If - If (CHANGED_WHO Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(7).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(CHANGED_WHO, String) + 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 - If (COLUMN_NAME1 Is Nothing) Then - Throw New Global.System.ArgumentNullException("COLUMN_NAME1") + 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 Overridable Overloads Function Update(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal GEANDERTWER As String, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer + If (BEZEICHNUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(COLUMN_NAME1, String) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG, String) End If - If (COLUMN_NAME2 Is Nothing) Then - Throw New Global.System.ArgumentNullException("COLUMN_NAME2") + If (SQL_PROVIDER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(COLUMN_NAME2, String) + Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER, String) End If - If (WINDREAM_SEARCH Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(10).Value = Global.System.DBNull.Value + If (SERVER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(WINDREAM_SEARCH, String) + Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERVER, String) End If - If (SEARCH_PATTERN1 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(11).Value = Global.System.DBNull.Value + If (DATENBANK Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(11).Value = CType(SEARCH_PATTERN1, String) + Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATENBANK, String) End If - If (SEARCH_PATTERN2 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(12).Value = Global.System.DBNull.Value + If (USERNAME Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(12).Value = CType(SEARCH_PATTERN2, String) + Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USERNAME, String) End If - If (SEARCH_PATTERN3 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(13).Value = Global.System.DBNull.Value + If (PASSWORD Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(13).Value = CType(SEARCH_PATTERN3, String) + Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PASSWORD, String) End If - If (SEARCH_PATTERN4 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(14).Value = Global.System.DBNull.Value + If (BEMERKUNG Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(14).Value = CType(SEARCH_PATTERN4, String) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BEMERKUNG, String) End If - If (SEARCH_PATTERN5 Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(15).Value = Global.System.DBNull.Value + Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIV, Boolean) + If (GEANDERTWER Is Nothing) Then + Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(15).Value = CType(SEARCH_PATTERN5, String) + Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GEANDERTWER, String) End If - Me.Adapter.UpdateCommand.Parameters(16).Value = CType(LOAD_DIRECT, Boolean) - Me.Adapter.UpdateCommand.Parameters(17).Value = CType(Original_GUID, Integer) - Me.Adapter.UpdateCommand.Parameters(18).Value = CType(GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID, Short) + Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID, Short) 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 @@ -4675,7 +6442,7 @@ Namespace DD_ECMAdminTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner" & _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class TBDD_CONNECTIONTableAdapter + Partial Public Class VWTEMPQUICKVIEWTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -4792,65 +6559,189 @@ Namespace DD_ECMAdminTableAdapters Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() tableMapping.SourceTable = "Table" - tableMapping.DataSetTable = "TBDD_CONNECTION" - tableMapping.ColumnMappings.Add("GUID", "GUID") - tableMapping.ColumnMappings.Add("BEZEICHNUNG", "BEZEICHNUNG") - tableMapping.ColumnMappings.Add("SQL_PROVIDER", "SQL_PROVIDER") - tableMapping.ColumnMappings.Add("SERVER", "SERVER") - tableMapping.ColumnMappings.Add("DATENBANK", "DATENBANK") - tableMapping.ColumnMappings.Add("USERNAME", "USERNAME") - tableMapping.ColumnMappings.Add("PASSWORD", "PASSWORD") - tableMapping.ColumnMappings.Add("BEMERKUNG", "BEMERKUNG") - tableMapping.ColumnMappings.Add("AKTIV", "AKTIV") - tableMapping.ColumnMappings.Add("ERSTELLTWER", "ERSTELLTWER") - tableMapping.ColumnMappings.Add("ERSTELLTWANN", "ERSTELLTWANN") - tableMapping.ColumnMappings.Add("GEANDERTWER", "GEANDERTWER") - tableMapping.ColumnMappings.Add("GEAENDERTWANN", "GEAENDERTWANN") + tableMapping.DataSetTable = "VWTEMPQUICKVIEW" + tableMapping.ColumnMappings.Add("Record-ID", "Record-ID") + tableMapping.ColumnMappings.Add("Aktenzeichen", "Aktenzeichen") + tableMapping.ColumnMappings.Add("Wiedergabe der Marke (Bild)", "Wiedergabe der Marke (Bild)") + tableMapping.ColumnMappings.Add("Tag der Eintragung im Register", "Tag der Eintragung im Register") + tableMapping.ColumnMappings.Add("Aktenzustand", "Aktenzustand") + Me._adapter.TableMappings.Add(tableMapping) + 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 [Record-ID], Aktenzeichen, [Wiedergabe der Marke (Bild)], [Tag der " & _ + "Eintragung im Register], Aktenzustand" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM VWTEMPQUICKVIEW" + Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text + End Sub + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable) 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 Overridable Overloads Function GetData() As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable + Me.Adapter.SelectCommand = Me.CommandCollection(0) + Dim dataTable As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable = New DD_ECMAdmin.VWTEMPQUICKVIEWDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable + End Function + End Class + + ''' + '''Represents the connection and commands used to retrieve and save data. + ''' + _ + Partial Public Class TBWH_ENTITIESTableAdapter + 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(value As Global.System.Data.SqlClient.SqlConnection) + 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(value As Global.System.Data.SqlClient.SqlTransaction) + 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(value As Boolean) + Me._clearBeforeFill = value + End Set + End Property + + _ + Private Sub InitAdapter() + Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() + Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() + tableMapping.SourceTable = "Table" + tableMapping.DataSetTable = "TBWH_ENTITIES" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("FORM_TITLE", "FORM_TITLE") + tableMapping.ColumnMappings.Add("CAPTION", "CAPTION") Me._adapter.TableMappings.Add(tableMapping) - Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.DeleteCommand.Connection = Me.Connection - Me._adapter.DeleteCommand.CommandText = "DELETE FROM TBDD_CONNECTION" & 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.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.InsertCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.InsertCommand.Connection = Me.Connection - Me._adapter.InsertCommand.CommandText = "INSERT INTO TBDD_CONNECTION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (BEZEICHNUNG, SQL_PROVIDER," & _ - " SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES " & _ - " (@BEZEICHNUNG,@SQL_PROVIDER,@SERVER,@DATENBANK,@USERNAME,@PASSWORD,@BEMERK" & _ - "UNG,@AKTIV,@ERSTELLTWER); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATE" & _ - "NBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERT" & _ - "WER, GEAENDERTWANN FROM TBDD_CONNECTION WHERE (GUID = SCOPE_IDENTITY())" - Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ERSTELLTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ERSTELLTWER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() - Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBDD_CONNECTION" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET BEZEICHNUNG = @BEZEICHNUNG, SQL_" & _ - "PROVIDER = @SQL_PROVIDER, SERVER = @SERVER, DATENBANK = @DATENBANK, USERNAME = @" & _ - "USERNAME, PASSWORD = @PASSWORD, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " BEMERKUNG = @BEMERKUN" & _ - "G, AKTIV = @AKTIV, GEANDERTWER = @GEANDERTWER" & 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, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASS" & _ - "WORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN FR" & _ - "OM TBDD_CONNECTION WHERE (GUID = @GUID)" - Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEZEICHNUNG", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "BEZEICHNUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PROVIDER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PROVIDER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SERVER", Global.System.Data.SqlDbType.VarChar, 150, Global.System.Data.ParameterDirection.Input, 0, 0, "SERVER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@DATENBANK", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "DATENBANK", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@USERNAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "USERNAME", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PASSWORD", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "PASSWORD", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@BEMERKUNG", Global.System.Data.SqlDbType.VarChar, 400, Global.System.Data.ParameterDirection.Input, 0, 0, "BEMERKUNG", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@AKTIV", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "AKTIV", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GEANDERTWER", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "GEANDERTWER", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.SmallInt, 2, 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.SmallInt, 2, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) End Sub _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBWH_ENTITIESDataTable, ByVal LANGUAGE As String, ByVal SCREEN As Integer, ByVal USER_ID As Integer) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") + Else + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) + End If + Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN, Integer) + Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID, Integer) If (Me.ClearBeforeFill = True) Then dataTable.Clear() End If @@ -4887,184 +6797,18 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], True)> _ - Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBDD_CONNECTIONDataTable + Public Overridable Overloads Function GetData(ByVal LANGUAGE As String, ByVal SCREEN As Integer, ByVal USER_ID As Integer) As DD_ECMAdmin.TBWH_ENTITIESDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable = New DD_ECMAdmin.TBDD_CONNECTIONDataTable() - Me.Adapter.Fill(dataTable) - Return dataTable - End Function - - _ - Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer - Return Me.Adapter.Update(dataTable) - End Function - - _ - Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer - Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION") - End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) - End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer - Return Me.Adapter.Update(dataRows) - End Function - - _ - Public Overridable Overloads Function Delete(ByVal Original_GUID As Short) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Short) - 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 Overridable Overloads Function Insert(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String) As Integer - If (BEZEICHNUNG Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(0).Value = CType(BEZEICHNUNG, String) - End If - If (SQL_PROVIDER Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(1).Value = CType(SQL_PROVIDER, String) - End If - If (SERVER Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(2).Value = CType(SERVER, String) - End If - If (DATENBANK Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(3).Value = CType(DATENBANK, String) - End If - If (USERNAME Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(4).Value = CType(USERNAME, String) - End If - If (PASSWORD Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(5).Value = CType(PASSWORD, String) - End If - If (BEMERKUNG Is Nothing) Then - Me.Adapter.InsertCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.InsertCommand.Parameters(6).Value = CType(BEMERKUNG, String) - End If - Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIV, Boolean) - If (ERSTELLTWER Is Nothing) Then - Throw New Global.System.ArgumentNullException("ERSTELLTWER") - Else - Me.Adapter.InsertCommand.Parameters(8).Value = CType(ERSTELLTWER, 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 Overridable Overloads Function Update(ByVal BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal GEANDERTWER As String, ByVal Original_GUID As Short, ByVal GUID As Short) As Integer - If (BEZEICHNUNG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(BEZEICHNUNG, String) - End If - If (SQL_PROVIDER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(1).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SQL_PROVIDER, String) - End If - If (SERVER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(2).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(SERVER, String) - End If - If (DATENBANK Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(3).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(DATENBANK, String) - End If - If (USERNAME Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(4).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(USERNAME, String) - End If - If (PASSWORD Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(5).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(5).Value = CType(PASSWORD, String) - End If - If (BEMERKUNG Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(6).Value = Global.System.DBNull.Value - Else - Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BEMERKUNG, String) - End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIV, Boolean) - If (GEANDERTWER Is Nothing) Then - Me.Adapter.UpdateCommand.Parameters(8).Value = Global.System.DBNull.Value + If (LANGUAGE Is Nothing) Then + Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.UpdateCommand.Parameters(8).Value = CType(GEANDERTWER, String) - End If - Me.Adapter.UpdateCommand.Parameters(9).Value = CType(Original_GUID, Short) - Me.Adapter.UpdateCommand.Parameters(10).Value = CType(GUID, Short) - 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() + Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE, String) 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 + Me.Adapter.SelectCommand.Parameters(1).Value = CType(SCREEN, Integer) + Me.Adapter.SelectCommand.Parameters(2).Value = CType(USER_ID, Integer) + Dim dataTable As DD_ECMAdmin.TBWH_ENTITIESDataTable = New DD_ECMAdmin.TBWH_ENTITIESDataTable() + Me.Adapter.Fill(dataTable) + Return dataTable End Function End Class @@ -5077,7 +6821,7 @@ Namespace DD_ECMAdminTableAdapters Global.System.ComponentModel.DesignerAttribute("Microsoft.VSDesigner.DataSource.Design.TableAdapterDesigner, Microsoft.VSDesigner" & _ ", Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter")> _ - Partial Public Class VWTEMPQUICKVIEWTableAdapter + Partial Public Class TBWH_USER_GROUPSTableAdapter Inherits Global.System.ComponentModel.Component Private WithEvents _adapter As Global.System.Data.SqlClient.SqlDataAdapter @@ -5194,12 +6938,9 @@ Namespace DD_ECMAdminTableAdapters 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 = "VWTEMPQUICKVIEW" - tableMapping.ColumnMappings.Add("Record-ID", "Record-ID") - tableMapping.ColumnMappings.Add("Aktenzeichen", "Aktenzeichen") - tableMapping.ColumnMappings.Add("Wiedergabe der Marke (Bild)", "Wiedergabe der Marke (Bild)") - tableMapping.ColumnMappings.Add("Tag der Eintragung im Register", "Tag der Eintragung im Register") - tableMapping.ColumnMappings.Add("Aktenzustand", "Aktenzustand") + tableMapping.DataSetTable = "TBWH_USER_GROUPS" + tableMapping.ColumnMappings.Add("GUID", "GUID") + tableMapping.ColumnMappings.Add("NAME", "NAME") Me._adapter.TableMappings.Add(tableMapping) End Sub @@ -5216,8 +6957,7 @@ Namespace DD_ECMAdminTableAdapters 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 [Record-ID], Aktenzeichen, [Wiedergabe der Marke (Bild)], [Tag der " & _ - "Eintragung im Register], Aktenzustand" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM VWTEMPQUICKVIEW" + Me._commandCollection(0).CommandText = "SELECT GUID, NAME" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBDD_USER_GROUPS" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY NAME" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub @@ -5225,7 +6965,7 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, True)> _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable) As Integer + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBWH_USER_GROUPSDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) If (Me.ClearBeforeFill = True) Then dataTable.Clear() @@ -5238,9 +6978,9 @@ Namespace DD_ECMAdminTableAdapters Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "4.0.0.0"), _ Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"), _ Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.[Select], True)> _ - Public Overridable Overloads Function GetData() As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable + Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBWH_USER_GROUPSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Dim dataTable As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable = New DD_ECMAdmin.VWTEMPQUICKVIEWDataTable() + Dim dataTable As DD_ECMAdmin.TBWH_USER_GROUPSDataTable = New DD_ECMAdmin.TBWH_USER_GROUPSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.xsd b/app/DD-Record-Organiser/DD_ECMAdmin.xsd index ee63658..22b083e 100644 --- a/app/DD-Record-Organiser/DD_ECMAdmin.xsd +++ b/app/DD-Record-Organiser/DD_ECMAdmin.xsd @@ -291,6 +291,57 @@ FROM VWTEMPQUICKVIEW + + + + + + SELECT T.GUID, T1.FORM_TITLE, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'FORMVIEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), @SCREEN) AS 'CAPTION' +FROM TBPMO_FORM AS T INNER JOIN + TBPMO_FORM_VIEW AS T1 ON T.GUID = T1.FORM_ID +WHERE (T.GUID IN + (SELECT DISTINCT ENTITY_ID + FROM TBPMO_CLIENT_ENTITY + WHERE (CLIENT_ID IN + (SELECT CLIENT_ID + FROM TBDD_CLIENT_USER + WHERE (USER_ID = @USER_ID))))) +ORDER BY 'CAPTION' + + + + + + + + + + + + + + + + + + + + + + SELECT GUID, NAME +FROM TBDD_USER_GROUPS +ORDER BY NAME + + + + + + + + + + + @@ -560,6 +611,52 @@ FROM VWTEMPQUICKVIEW + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + @@ -578,6 +675,14 @@ FROM VWTEMPQUICKVIEW + + + + + + + + diff --git a/app/DD-Record-Organiser/ModuleHelperMethods.vb b/app/DD-Record-Organiser/ModuleHelperMethods.vb index b7e1851..6f82522 100644 --- a/app/DD-Record-Organiser/ModuleHelperMethods.vb +++ b/app/DD-Record-Organiser/ModuleHelperMethods.vb @@ -151,7 +151,7 @@ If ID > 0 Then Return ID Else - If LogErrorsOnly = False Then ClassLogger.Add(">> es konnte keine ID für name geholt werden: " & SQL, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> es konnte keine ID für name geholt werden: " & SQL, False) Return -1 End If Catch ex As Exception diff --git a/app/DD-Record-Organiser/ModuleMySettings.vb b/app/DD-Record-Organiser/ModuleMySettings.vb index 2e906cd..04a07c5 100644 --- a/app/DD-Record-Organiser/ModuleMySettings.vb +++ b/app/DD-Record-Organiser/ModuleMySettings.vb @@ -10,6 +10,7 @@ Module ModuleMySettings Public Sett_TaskOverviewKeepInFront As Boolean = True Public Sett_LoadWD_Docs As Boolean = True Public WDResultListCount As Integer = 300 + Public Task_Popup_minutes As Integer = 2 Public Sett_ShowQuickMenue As Boolean = True Public Sett_ConstructorStart As Integer @@ -160,6 +161,12 @@ Module ModuleMySettings Sett_ConstructorStart = CInt(Row.Item("Value")) Case "FWSCAN_started" FWSCAN_started = CBool(Row.Item("Value")) + Case "Task_Popup_minutes" + If Row.Item("Value") = String.Empty Then + Task_Popup_minutes = 2 + Else + Task_Popup_minutes = CInt(Row.Item("Value")) + End If End Select Next 'update 1.1 @@ -184,6 +191,13 @@ Module ModuleMySettings DT.Rows.Add(newRow) DT.WriteXml(ConfigPath) End If + If rowresult.Contains("Task_Popup_minutes") = False Then + Dim newRow As DataRow = DT.NewRow() + newRow("ConfigName") = "Task_Popup_minutes" + newRow("Value") = "2" + DT.Rows.Add(newRow) + DT.WriteXml(ConfigPath) + End If Catch ex As Exception MsgBox("Error in LoadMyConfig" & vbNewLine & ex.Message, MsgBoxStyle.Critical) ClassLogger.Add("Error in LoadMyConfig: " & ex.Message, True) @@ -263,13 +277,16 @@ Module ModuleMySettings Dim newRow9 As DataRow = table.NewRow() newRow9("ConfigName") = "Sett_ConstructorStart" newRow9("Value") = "0" + table.Rows.Add(newRow9) Dim newRow10 As DataRow = table.NewRow() newRow10("ConfigName") = "FWSCAN_started" newRow10("Value") = "False" table.Rows.Add(newRow10) + Dim newRow11 As DataRow = table.NewRow() + newRow11("ConfigName") = "Task_Popup_minutes" + newRow11("Value") = "2" + table.Rows.Add(newRow11) - - table.Rows.Add(newRow9) table.AcceptChanges() ClassLogger.Add(">> Tabelle wurde erzeugt...", False) Return table diff --git a/app/DD-Record-Organiser/My Project/AssemblyInfo.vb b/app/DD-Record-Organiser/My Project/AssemblyInfo.vb index ab801dc..0d823ac 100644 --- a/app/DD-Record-Organiser/My Project/AssemblyInfo.vb +++ b/app/DD-Record-Organiser/My Project/AssemblyInfo.vb @@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + \ No newline at end of file diff --git a/app/DD-Record-Organiser/My Project/Resources.Designer.vb b/app/DD-Record-Organiser/My Project/Resources.Designer.vb index 081ddad..eef6ed8 100644 --- a/app/DD-Record-Organiser/My Project/Resources.Designer.vb +++ b/app/DD-Record-Organiser/My Project/Resources.Designer.vb @@ -1570,6 +1570,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property WebUserControl_ascx__11270_16x() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("WebUserControl(ascx)_11270_16x", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' diff --git a/app/DD-Record-Organiser/My Project/Resources.resx b/app/DD-Record-Organiser/My Project/Resources.resx index 2f4f149..6176c03 100644 --- a/app/DD-Record-Organiser/My Project/Resources.resx +++ b/app/DD-Record-Organiser/My Project/Resources.resx @@ -136,8 +136,8 @@ ..\Resources\DD_Icons-ADDI.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Home_5699_32.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\brainpool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\action_add_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -187,6 +187,9 @@ ..\Resources\userAccounts.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\user_green.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -211,12 +214,12 @@ ..\Resources\Men2.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\arrow_Down_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\arrow_Next_16xLG_color.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\eye.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\table_add.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -235,15 +238,9 @@ ..\Resources\database_error.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\changechartlegendalignment_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\page_excel.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\database_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\dtp.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -253,8 +250,8 @@ ..\Resources\application_view_tile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\application_view_detail.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Home_5699_32.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\magifier_zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -262,6 +259,9 @@ ..\Resources\brick_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\calendar_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\folder_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -301,9 +301,6 @@ ..\Resources\page_copy.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\AddTable_5632.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\arrow_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -409,12 +406,15 @@ ..\Resources\database_key.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\key_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\AddTable_5632.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\windream-Logo-transparent.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\1532_Flag_Blue.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\Men6.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -424,9 +424,6 @@ ..\Resources\database_go1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\brainpool.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\refresh_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -487,6 +484,9 @@ ..\Resources\folder_Open_32xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Men5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\page_red.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -514,8 +514,8 @@ ..\Resources\keinbild.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\1532_Flag_Blue.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\changechartlegendalignment_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\database_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -544,6 +544,9 @@ ..\Resources\grid_Data_16xMD.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\eye.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\AddressEnvelope_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -553,8 +556,8 @@ ..\Resources\138_PushPin_32x42_721.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Men5.ico;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\database_delete.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\database_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -562,8 +565,8 @@ ..\Resources\EditLabel_13239.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\arrow_Down_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\application_view_detail.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\HomeHS.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -577,7 +580,7 @@ ..\Resources\action_Cancel_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\calendar_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\WebUserControl(ascx)_11270_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmCockpit.Designer.vb b/app/DD-Record-Organiser/frmCockpit.Designer.vb index c74200d..ba12b0b 100644 --- a/app/DD-Record-Organiser/frmCockpit.Designer.vb +++ b/app/DD-Record-Organiser/frmCockpit.Designer.vb @@ -24,52 +24,69 @@ Partial Class frmCockpit Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmCockpit)) - Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.grbxTasksGeneral = New System.Windows.Forms.GroupBox() + Me.ListViewTasksGeneral = New System.Windows.Forms.ListView() + Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.ListViewTasksExclusive = New System.Windows.Forms.ListView() Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) - Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components) - Me.ListViewTasksGeneral = New System.Windows.Forms.ListView() - Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) - Me.GroupBox1.SuspendLayout() + Me.GridControl1 = New DevExpress.XtraGrid.GridControl() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.TabControl1 = New System.Windows.Forms.TabControl() + Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.TabPage2 = New System.Windows.Forms.TabPage() Me.grbxTasksGeneral.SuspendLayout() Me.GroupBox2.SuspendLayout() + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.TabControl1.SuspendLayout() + Me.TabPage1.SuspendLayout() Me.SuspendLayout() ' - 'GroupBox1 - ' - Me.GroupBox1.Controls.Add(Me.grbxTasksGeneral) - Me.GroupBox1.Controls.Add(Me.GroupBox2) - Me.GroupBox1.Dock = System.Windows.Forms.DockStyle.Top - Me.GroupBox1.Location = New System.Drawing.Point(0, 0) - Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.Size = New System.Drawing.Size(1048, 238) - Me.GroupBox1.TabIndex = 0 - Me.GroupBox1.TabStop = False - Me.GroupBox1.Text = "Workflows und Tasks" - ' 'grbxTasksGeneral ' Me.grbxTasksGeneral.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.grbxTasksGeneral.Controls.Add(Me.ListViewTasksGeneral) - Me.grbxTasksGeneral.Location = New System.Drawing.Point(504, 24) + Me.grbxTasksGeneral.Location = New System.Drawing.Point(528, 6) Me.grbxTasksGeneral.Name = "grbxTasksGeneral" - Me.grbxTasksGeneral.Size = New System.Drawing.Size(532, 208) + Me.grbxTasksGeneral.Size = New System.Drawing.Size(491, 168) Me.grbxTasksGeneral.TabIndex = 2 Me.grbxTasksGeneral.TabStop = False Me.grbxTasksGeneral.Text = "Tasks - Groups" ' + 'ListViewTasksGeneral + ' + Me.ListViewTasksGeneral.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1}) + Me.ListViewTasksGeneral.Dock = System.Windows.Forms.DockStyle.Fill + Me.ListViewTasksGeneral.LargeImageList = Me.ImageList1 + Me.ListViewTasksGeneral.Location = New System.Drawing.Point(3, 19) + Me.ListViewTasksGeneral.Name = "ListViewTasksGeneral" + Me.ListViewTasksGeneral.Size = New System.Drawing.Size(485, 146) + Me.ListViewTasksGeneral.SmallImageList = Me.ImageList1 + Me.ListViewTasksGeneral.TabIndex = 1 + Me.ListViewTasksGeneral.UseCompatibleStateImageBehavior = False + Me.ListViewTasksGeneral.View = System.Windows.Forms.View.Details + ' + 'ColumnHeader1 + ' + Me.ColumnHeader1.Text = "Task" + Me.ColumnHeader1.Width = 350 + ' + 'ImageList1 + ' + Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) + Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent + Me.ImageList1.Images.SetKeyName(0, "Task_16xLG.png") + Me.ImageList1.Images.SetKeyName(1, "TaskHH.bmp") + ' 'GroupBox2 ' - Me.GroupBox2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ - Or System.Windows.Forms.AnchorStyles.Left) _ - Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.GroupBox2.Controls.Add(Me.ListViewTasksExclusive) - Me.GroupBox2.Location = New System.Drawing.Point(6, 24) + Me.GroupBox2.Location = New System.Drawing.Point(8, 6) Me.GroupBox2.Name = "GroupBox2" - Me.GroupBox2.Size = New System.Drawing.Size(480, 208) + Me.GroupBox2.Size = New System.Drawing.Size(514, 171) Me.GroupBox2.TabIndex = 1 Me.GroupBox2.TabStop = False Me.GroupBox2.Text = "Tasks - Exclusiv" @@ -79,9 +96,9 @@ Partial Class frmCockpit Me.ListViewTasksExclusive.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader2}) Me.ListViewTasksExclusive.Dock = System.Windows.Forms.DockStyle.Fill Me.ListViewTasksExclusive.LargeImageList = Me.ImageList1 - Me.ListViewTasksExclusive.Location = New System.Drawing.Point(3, 21) + Me.ListViewTasksExclusive.Location = New System.Drawing.Point(3, 19) Me.ListViewTasksExclusive.Name = "ListViewTasksExclusive" - Me.ListViewTasksExclusive.Size = New System.Drawing.Size(474, 184) + Me.ListViewTasksExclusive.Size = New System.Drawing.Size(508, 149) Me.ListViewTasksExclusive.SmallImageList = Me.ImageList1 Me.ListViewTasksExclusive.TabIndex = 0 Me.ListViewTasksExclusive.UseCompatibleStateImageBehavior = False @@ -92,49 +109,90 @@ Partial Class frmCockpit Me.ColumnHeader2.Text = "Task" Me.ColumnHeader2.Width = 350 ' - 'ImageList1 - ' - Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer) - Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent - Me.ImageList1.Images.SetKeyName(0, "Task_16xLG.png") - Me.ImageList1.Images.SetKeyName(1, "TaskHH.bmp") - ' - 'ListViewTasksGeneral - ' - Me.ListViewTasksGeneral.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1}) - Me.ListViewTasksGeneral.Dock = System.Windows.Forms.DockStyle.Fill - Me.ListViewTasksGeneral.LargeImageList = Me.ImageList1 - Me.ListViewTasksGeneral.Location = New System.Drawing.Point(3, 21) - Me.ListViewTasksGeneral.Name = "ListViewTasksGeneral" - Me.ListViewTasksGeneral.Size = New System.Drawing.Size(526, 184) - Me.ListViewTasksGeneral.SmallImageList = Me.ImageList1 - Me.ListViewTasksGeneral.TabIndex = 1 - Me.ListViewTasksGeneral.UseCompatibleStateImageBehavior = False - Me.ListViewTasksGeneral.View = System.Windows.Forms.View.Details - ' - 'ColumnHeader1 - ' - Me.ColumnHeader1.Text = "Task" - Me.ColumnHeader1.Width = 350 + 'GridControl1 + ' + Me.GridControl1.Dock = System.Windows.Forms.DockStyle.Bottom + Me.GridControl1.Location = New System.Drawing.Point(3, 183) + Me.GridControl1.MainView = Me.GridView1 + Me.GridControl1.Name = "GridControl1" + Me.GridControl1.ShowOnlyPredefinedDetails = True + Me.GridControl1.Size = New System.Drawing.Size(1034, 195) + Me.GridControl1.TabIndex = 87 + Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'GridView1 + ' + Me.GridView1.Appearance.EvenRow.BackColor = System.Drawing.Color.Cyan + Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True + Me.GridView1.Appearance.FocusedRow.BackColor = System.Drawing.Color.Fuchsia + Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True + Me.GridView1.GridControl = Me.GridControl1 + Me.GridView1.Name = "GridView1" + Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridView1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridView1.OptionsBehavior.CopyToClipboardWithColumnHeaders = False + Me.GridView1.OptionsBehavior.Editable = 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 + ' + 'TabControl1 + ' + Me.TabControl1.Controls.Add(Me.TabPage1) + Me.TabControl1.Controls.Add(Me.TabPage2) + Me.TabControl1.Dock = System.Windows.Forms.DockStyle.Fill + Me.TabControl1.Font = New System.Drawing.Font("Segoe UI", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.TabControl1.Location = New System.Drawing.Point(0, 0) + Me.TabControl1.Name = "TabControl1" + Me.TabControl1.SelectedIndex = 0 + Me.TabControl1.Size = New System.Drawing.Size(1048, 409) + Me.TabControl1.TabIndex = 88 + ' + 'TabPage1 + ' + Me.TabPage1.Controls.Add(Me.grbxTasksGeneral) + Me.TabPage1.Controls.Add(Me.GroupBox2) + Me.TabPage1.Controls.Add(Me.GridControl1) + Me.TabPage1.Location = New System.Drawing.Point(4, 24) + Me.TabPage1.Name = "TabPage1" + Me.TabPage1.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage1.Size = New System.Drawing.Size(1040, 381) + Me.TabPage1.TabIndex = 0 + Me.TabPage1.Text = "Aktuelle Tasks" + Me.TabPage1.UseVisualStyleBackColor = True + ' + 'TabPage2 + ' + Me.TabPage2.Location = New System.Drawing.Point(4, 26) + Me.TabPage2.Name = "TabPage2" + Me.TabPage2.Padding = New System.Windows.Forms.Padding(3) + Me.TabPage2.Size = New System.Drawing.Size(192, 70) + Me.TabPage2.TabIndex = 1 + Me.TabPage2.Text = "TabPage2" + Me.TabPage2.UseVisualStyleBackColor = True ' 'frmCockpit ' Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 17.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1048, 409) - Me.Controls.Add(Me.GroupBox1) + Me.Controls.Add(Me.TabControl1) Me.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon) Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.Name = "frmCockpit" Me.Text = "Cockpit" - Me.GroupBox1.ResumeLayout(False) Me.grbxTasksGeneral.ResumeLayout(False) Me.GroupBox2.ResumeLayout(False) + CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + Me.TabControl1.ResumeLayout(False) + Me.TabPage1.ResumeLayout(False) Me.ResumeLayout(False) End Sub - Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox Friend WithEvents grbxTasksGeneral As System.Windows.Forms.GroupBox Friend WithEvents GroupBox2 As System.Windows.Forms.GroupBox Friend WithEvents ListViewTasksExclusive As System.Windows.Forms.ListView @@ -142,4 +200,9 @@ Partial Class frmCockpit Friend WithEvents ImageList1 As System.Windows.Forms.ImageList Friend WithEvents ListViewTasksGeneral As System.Windows.Forms.ListView Friend WithEvents ColumnHeader1 As System.Windows.Forms.ColumnHeader + Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents TabControl1 As System.Windows.Forms.TabControl + Friend WithEvents TabPage1 As System.Windows.Forms.TabPage + Friend WithEvents TabPage2 As System.Windows.Forms.TabPage End Class diff --git a/app/DD-Record-Organiser/frmCockpit.resx b/app/DD-Record-Organiser/frmCockpit.resx index 5c0254d..5e9ff83 100644 --- a/app/DD-Record-Organiser/frmCockpit.resx +++ b/app/DD-Record-Organiser/frmCockpit.resx @@ -124,8 +124,8 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 - ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAAE - CQAAAk1TRnQBSQFMAgEBAgEAARABAAEQAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAD8 + CAAAAk1TRnQBSQFMAgEBAgEAASgBAAEoAQABEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -154,190 +154,760 @@ AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wMADfQyAAH/AfQB7QMU - Ae0B7wUUAfQDAAG1BfUG9CMAAfQB7QETAe8BEwIUAe0B7AQUAfQDAAG1BvUF9CMAAfQBEwG8AfQBvAET - AhQD9AIUAfQDAAG1A/UBBwGTBPUC9CMAAfQBbQEHAeoCvAETARQD9AIUAfQDAAG1AvUBBwIXAZME9QH0 - IwAB9AMUARMCvAETA/QCFAH0AwABtQH1AZMBFwKUARcBGgT1IwAB9AHtAxQBEwG8AfED9AIUAfQDAAG1 - AZkClAIaAZQBRgH0A/UjAAH/AfQB7QMUAZIE9AIUAfQDAAG1Af8CGgL1ARoBlAFGA/UkAAL0AQcBvAb0 - AhQB9AMAAbUC/wT1ARoBlAFvAvUkAAL0AhQG9AIUAfQDAAG1BP8D9QEaAZQBkwH1JAAC9AoUAfQDAAG1 - BP8E9QEaAZQB8yQAAvQKFAH0AwAB7wX/BPUBGgFGJAAD9AHyAhQC8gIUA/QDAAHvAv8BUgJRA0sBcwH1 - ARonAAH0AfMBFALyARQC9AUAAbUC/wHDAqACegFZAUsC9SgAAfQBkgIUAZIB9AYAA7UC7wGgAVEBUgS1 - KAAB/wT0Af8LAAJYAW4mAAFCAU0BPgcAAT4DAAEoAwABQAMAARADAAEBAQABAQUAAYAXAAP/AQABwAEB - BgABgAEBBgABgAEBBgABgAEBBgABgAEBBgABgAEBBgABgAEBBgABgAEBBgABwAEBBgABwAEBBgABwAEB - BgABwAEBBgABwAEBBgAB+AEHBgAB/AEPBgAB/AEPBgAL + Ae0B7wUUAfQDAAG1Bf8G9CMAAfQB7QETAe8BEwIUAe0B7AQUAfQDAAG1Bv8F9CMAAfQBEwG8AfQBvAET + AhQD9AIUAfQDAAG1A/8BBwGTBP8C9CMAAfQBbQEHAeoCvAETARQD9AIUAfQDAAG1Av8BBwIXAZME/wH0 + IwAB9AMUARMCvAETA/QCFAH0AwABtQH/AZMBFwKUARcBGgT/IwAB9AHtAxQBEwG8AfED9AIUAfQDAAG1 + AZkClAIaAZQBRgH0A/8jAAH/AfQB7QMUAZIE9AIUAfQDAAG1Af8CGgL/ARoBlAFGA/8kAAL0AQcBvAb0 + AhQB9AMAAbUG/wEaAZQBbwL/JAAC9AIUBvQCFAH0AwABtQf/ARoBlAGTAf8kAAL0ChQB9AMAAbUI/wEa + AZQB8yQAAvQKFAH0AwAB7wn/ARoBRiQAA/QB8gIUAvICFAP0AwAB7wL/AVICUQNLAXMB/wEaJwAB9AHz + ARQC8gEUAvQFAAG1Av8BwwKgAnoBWQFLAv8oAAH0AZICFAGSAfQGAAO1Au8BoAFRAVIEtSgAAf8E9AH/ + CwACWAFuJgABQgFNAT4HAAE+AwABKAMAAUADAAEQAwABAQEAAQEFAAGAFwAD/wEAAcABAQYAAYABAQYA + AYABAQYAAYABAQYAAYABAQYAAYABAQYAAYABAQYAAYABAQYAAcABAQYAAcABAQYAAcABAQYAAcABAQYA + AcABAQYAAfgBBwYAAfwBDwYAAfwBDwYACw== - AAABAAYAICAQAAEABADoAgAAZgAAABAQEAABAAQAKAEAAE4DAAAgIAAAAQAIAKgIAAB2BAAAEBAAAAEA - CABoBQAAHg0AACAgAAABACAAqBAAAIYSAAAQEAAAAQAgAGgEAAAuIwAAKAAAACAAAABAAAAAAQAEAAAA - AAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACAgACAAAAAgACAAICAAACAgIAAwMDAAAAA - /wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAAAAAA//////8AAAAAAAAAAAAA/////////wAAAAAAAA - AA//+I7u7uiP//AAAAAAAAD/+O7u7u7u7o//AAAAAAAP+O7u7u7u7u7uj/AAAAAA/47u7u7u7u7u7uj/ - AAAAD/ju7u7u///u7u7uj/AAAP+O7u7u7v//7u7u7uj/AAD/7u7u7u7//+7u7u7u/wAP+O7u7u7u///u - 7u7u7o/wD/7u7u7u7v//7u7u7u7v8P+O7u7u7u7//+7u7u7u6P//ju7u7u7u///u7u7u7uj//+7u7u7u - 7v//7u7u7u7u///u7u7u7u7//+7u7u7u7v//7u7u7u7u///u7u7u7u7//+7u7u7u7v//7u7u7u7u///u - 7u7u7u7//+7u7u7u7v//7u7u7u7u///u7u7u7u7//47u7u7u7v//7u7u7u7o//+O7u7u7u7u7u7u7u7u - 6P8P/u7u7u7u7u7u7u7u7u/wD/ju7u7u7o/47u7u7u6P8AD/7u7u7u7//+7u7u7u/wAA/47u7u7u///u - 7u7u6P8AAA/47u7u7o/47u7u7o/wAAAA/47u7u7u7u7u7uj/AAAAAA/47u7u7u7u7u6P8AAAAAAA//ju - 7u7u7u6P/wAAAAAAAA//+I7u7uiP//AAAAAAAAAAD/////////AAAAAAAAAAAAAP//////AAAAAAAP/g - B///gAH//gAAf/wAAD/4AAAf8AAAD+AAAAfAAAADwAAAA4AAAAGAAAABAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAAGAAAABwAAAA8AAAAPgAAAH8AAAD/gAAB/8AAA//gAAf/+A - Af//4Af/KAAAABAAAAAgAAAAAQAEAAAAAACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAIAAAACA - gACAAAAAgACAAICAAACAgIAAwMDAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAAA////AAAAAP - iO7uiPAAAPju7u7ujwAPju7v/u7o8Aju7u/+7u6A+O7u7/7u7o/+7u7v/u7u7/7u7u/+7u7v/u7u7/7u - 7u/+7u7v/u7u7/ju7u7u7u6PCO7u7/7u7oAPju7v/u7o8AD47u7u7o8AAA+I7u6I8AAAAA////AAAPgf - AADgBwAAwAMAAIABAACAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAEAAIABAADAAwAA4AcAAPgf - AAAoAAAAIAAAAEAAAAABAAgAAAAAAAAEAAAAAAAAAAAAAAABAAAAAQAAAAAAAOKgGgDjpSgA6LteAOrA - bADrxXoA8dCMAO3RlQDw27EA9fHoAPb29gD4+PgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAABAAwAAAAQAAEABACBDgAAxgAAADAwEAABAAQAaAYAAEcPAAAgIBAAAQAEAOgCAACvFQAAEBAQAAEA + BAAoAQAAlxgAAAAAAAABAAgAzxwAAL8ZAAAwMAAAAQAIAKgOAACONgAAICAAAAEACACoCAAANkUAABAQ + AAABAAgAaAUAAN5NAAAAAAAAAQAgACgfAABGUwAAMDAAAAEAIACoJQAAbnIAACAgAAABACAAqBAAABaY + AAAQEAAAAQAgAGgEAAC+qAAAiVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAACXBIWXMA + AA7DAAAOwwHHb6hkAAAOM0lEQVR4nO3dW3biyBKF4XCtmpeYGYuZoZH1eXCrDk0JI5Fxzfi/d2NdMnZG + SkJ83e93AapaluWfkb9f1/VLa1sq+h29AcBRo8V+9DM7hQIBgNQsiv7M/5w9DAgApBNR9K/MHgYEANLI + VPh7tu2bKQgIAITLXvjPZgoCAgBhqhX+sxmC4Ff0BqCn6sX/qPK+0AHAVeVi+UnVboAOAG5mLf5H1faR + AICLaoUxotK+EgAwV6kgtFTZZ64BwEyVIrBS4boAHQBMdC/+R5mPBQEAdZkHfJSsx4QAgKqsAz2DjMeG + awAobV1X+fSdFpfLRZZl0d2gYr54IQi0eM1wI0X/imcYZLooSABAhXXxWxT9Kx5hkCUECAAMsyx+z8J/ + Zh0EGUKAAMAQy+K/3W5WH33K9Xo1++zoEOAuANJZ1zVN8Yt8B9G6rtGbYYIOAB+zmP0zFf4ei24gsgug + A8BHOha/iM02Rj4fQAAghQrFv6m0re8QADhNe8aqWFDa2xzVBRAACFWx+DeVt31DAOAUzZlqhgLS3IeI + LoAAQIgZin9TeV8IABymNUPNeE9da5+8uwACAO5mfPak6j4RAHBVuV1+p+K+EQA4RKM1nbH1f6axj57L + AAIAbqq2yWdU20cCAC46zP6bSvtKAOAtjZa02sw4QmNfvZYBBADQGAEAc5VaYi1V9pkAgLlO7f+myj4T + AEBjBAB+NHoxqkorbGF03z0uBBIAMFWlFbZQYd8JAKAxAgBojAAAGiMAgMYIAKAxAgBojAAAGiMAgMYI + AKAxAgBojAAAGiMAgMYIAKAxAgCmLpdL9CaEqbDvBAB+tK7r18jfL8uitSnljO776LE/ggAAGiMAYK5C + K6ytyj4TADDXcRlQZZ8JAKAxAgBvaVyMqtISa9DYV48LgCIEAJxUaYk1VNpXAgBuOnQB1fbxd/QGzMb6 + Xe5ereHe/x3dt2VZSrwqe4TG7O95jgmAD3n9euvR/xsVDGddr1e53W7Rm2Hier1Gb8JpBMABUcV+xt42 + Zg2Fy+UyXSdQrfXfEAAvVCj6dx73QSMMNJYBInMuBbQu/HmHNgHwrxkK/ifaYTBqpqVAxdZ/8zVbEp8x + e9Ef8UkYaB636iGgWfwRwdzyNuCyLP9Q/N+2YxF1PCrPnpW3fdOmA6Dgz3k3G2kfz2qdgHbxRy3Lpu8A + mO0/433cKs2mlbb1nWk7AIpe194MZXGMs3cCFsUfeVF2ugCg8G09D1aL472ua7rbhJfLxeQZ/+g7MtPc + BqTwfWzH2XLgLssiy7Kk6QZmavmfle8AKPxYWg8H/fD5Yd2A1ay/iZ79RQoHAIXfi2cQWBe+SI7iFym6 + BKD4+9mWBSI2YeBR9BmV6gAofDwbCYOoos8y+4sUCoAKxb+uq4iIWau6feOs40wFG+kDIGvhWxf7UYQC + RqQOgEzFn/He9Ctd17M4L20AZCj+SkX/CmGAn6QLgOjCn6HoXyEM8CxVAEQWf5anzrzM/HQbjksTABHF + P/NsfxRdQW8pAsC7+Cn8vxEEPYUHgGfxU/jvEQS9hAaAV/FT+OcRBD2EBYBH8VP44wiCubkHgNes3+2q + vjXuGszJNQCY9WujG5jPVAHArO+DbmAebgEw61tjuqIbmINLAFgWP7N+LLqB2swDgOKfX9cQyDD+Ro+9 + 6Q+DWBX/uq4pDj6+3W63P+9H6GKW8WcWAJbFz3o/n/v93iYEZil+EaMAsCr+2+1G8Sd2v9+nKo49s+2f + egBYFj9qmPVczbhfJX4cdMYDP7vZztls+7NRDYCOPxaJ12Y5d7Psxx61AKD4saf6Oay+/e+oBADF/5nL + 5fLntd4zq3ouq273GSmvAXQ48Nfr9c/PXXV4kKbaOa22vZ8aDgDt2b/Dgd+b9ekE8qiynRqGAoDiP+/V + l2iWZSEEEsi+fdrSLAG6PEX20zfouny7Luu57lb8IgMBoDn7Z368V3N9fuSzvP9fhIyPDXcsfpEPA0C7 + 9c9Y/NfrVbWAzrT3mksB7f3Qkumcdy1+kQRLgGwH/7lgtGaqM+291lLgcdszBkGGc59hGyKdDgDN2T/T + wb9cLrsFojFTfTKja3QBe9t+vV5TXWyMHAOZxl+UsA4g0xpwuyf/LGL2H/mbPXv7kO3Zg4ixQPF/OxUA + mrN/hjXgq1l/EzX7a/zt5qd9yNINeI8Fiv//QjqADCfg1ayvbeR/eG1fhm7Aa0xkGHuZHA4Ardk/Q+t/ + ZMBrbKfG7KrxGUf2JUMIWI8Niv9v7h1AZOv/ruV/pLGdGjO4xmcc3ZfoJYHl2KD49x0KAK3ZP/Ik8B77 + Y6IfSdYaI4/dBMX/mlsHENn6ny3+LO2/5med2afoENAaK7fbjeJ/420AaM3+Ua3/JzN/lvZf87PO7lNk + CGQ7/jNz6QCiZn/a/jGRIZCtC5vVjwFQefb/tPizDjzvZcAmKgToAnyYdwARs3/0zG/xv6P3JyIEMtwy + np15AETM/iPFkuEJRSsj+xYRQBrnIsPzDZm9DACN9j8iwaNPuOVMGb2mjTi2dAG2TDsA79l0dIBqDDbL + mVLjs0f30TsEor+PMbvdAKg4+3OS/Xgf69GxxMXA135bfbD37H+/31Os37M/eJLlOJ1xv98pYiPhbwQC + PNAh7vsrADTa/+yzIOoZHVN0EPvoAIDG1AOA2zawMjq2WAb8TT0Aql1gQh2jY4tlwN/+EwAWv/ILIC/V + DoD2H9ZYBuhSDQDaf1hjGaDrTwDQ/gP9qHUAtP/wwljToxYAtP/wMjrWor8xmgkPAqElQuAbAQA09ktk + /AIgazJ4y/ruxmroAIDGVN4H4HEB0HLNNvpNs6j1ZObttv5GKO8I0NG+A+i8fOm87/jWPgDQF7euFQLA + YxbhYk09HueMDmbcrwqPAFuu9UZngchwGv3fljMg6/MahjsA2ihEYeyN4xoA0BgBADSWPgCyXwCM/tHO + zLKfOxQIAMAKAUUAAK2lD4DsbS5e49zllz4AANghAIDGCACgsaEA4FlsoLahAOAiD1AbSwCgMQIAaIwA + ABojAIDG0gcAdxrq4tzllz4AANghANAWbxQqEADZT1Jkm5u9xc5+7lAgAADYIQCAxoYDgLeqIApjb9yv + dV2/ojfiHcu1buZ361v/b8sCyn59At+GOwCPLwRxMakej3M2MvYIqG9cAwAaax8Anb/S3Hnf6Sq/ff37 + O+tDvw+4risHFK4ul0vrANPSvgMAOvslIjJ6J4AkhjfGnA46AKAxAgBoTC0AeCoLXhhretQCgDUZvDDW + 9PwJgAqPBAPQpXoNgNYM1hhjulQDgNYM1hhjuv4TACwDgF7UbwPSosEKY0ufegDQosEKY0sfDwIBjf0V + ABrXAa7X6+hHAP/BmLJBBwA09tvqgy+Xi+s7AjS+H67xXgPrmep2uw39fZbjdIbGxT/ucO3b7QA0Dpb3 + BRteSOLH+1hz8c+O6RLA+7bN6OyoMdAsXzap8dmj+zh6jM/i1p+tlwFQsQsQ8R+gzyxnx+guJ+LYKoUy + 7f8L5hcBIxJ8ZKacecYZ2beI12jPfC6yMA+AiC7gfr9P96Od0fsT0X0w+9v7MQC0Dl5Ekn8aAhqDzqJY + ND7zk32LKn5mfx8uzwFEXcWN7gSqi3zdO1f+fbwNgMpdgMhnIaB033n4MzQ/6+w+RRa/1lih/X/P7UnA + yEQ/GwLZlgHe7X/0D70w+/s5FABaSRr5PDfLgWOii19rjDD7H+P+XYDIizv3+/3wvewsywDP9v92u4UW + Pxf+/B0OAK1EzdDeHQmBLMsAr/Y/+gEqEb2xwex/XMi3ATN8tfN2u7ksCUb+h9f2ZSj+DGOio1MBoJms + Gdq9d0sCjW0cmcE1Zv+f9iG65d9ojgVm/3PC3geQYSmwedUNKLakLn+zZ28fssz6m0xjoZvTAaCZsJna + vlfdQFQXYDX7Z5n1N5pjgNn/vPA3AmUKAZHvAnkMgoguwGL2f96vDCj+eB8FgPbBznA94Jl2wZyZdTVn + 6IyFL5LznHf0NTLYlmX5R2tDoh9A8fJu1stYrNo0Xkv2iNn/c+FLgE2XC0E/tfddnlTscq4rGAoA7eTN + dj3AwqtHkumAPsPsP2a4AyAEztsrdIr/PIp/3NA1gI3mtYBNl7WwCMX/CYpfh0oAiBACeM2iqyMAdKhd + BLQ4IR2WA7Oj+HNTvQtACOARxZ9fmtuAPyEE6qH4a1APAKuTRAjUwbmqQ+0i4DOLi4Iife6XV6T9hN8j + Zn8bZksAqxO2LAvPkSdE8ddk1gFsrDoBEW4TZmHZ8lP8tswvAlqeQNaa8Sj+2sw7gI1lJ8B1AX+WLb8I + xe/FLQBEbENAhCWBF+vOi+L38zt6AzRdr1e6AUPWs74Ixe/NtQMQse8CNnQDujyut1D8/twDYOMRBHQD + 4zxmfRGKP0pYAIj4dQMEwXlehS9C8UcKDQARvxAQIQiO8Cx8EYo/WngAiPiGgAhBsMe78EUo/gxSBICI + fwiIEAQiMYUvQvFnkSYARGJCYNPtrkHkU5QUfx6pAkAkNgRE5u4Komb7RxR/LukCYBMdBCJzhEGGoheh + 8LNKGwAiOUJgUykMshT9huLPK3UAiOQKgUfbj3tEH7/t3QiZCv4RxZ9b+gDYZA2CR9ahkL3YH1H4NZQJ + AJEaIQCKv5JS3wbcBhZBkBOFX0+J14I/Y6Dlsq7rF+ekppIBIMKgy4JzUFupJcAelgUxKPw5lA+ADUHg + g8KfyzQBsCEIbFD4c5ouADYEgQ4Kf27TBsCGIPgMhd/D9AGweRzQhME+ir6fNgHwiK7gvyj8vloGwKZz + V0DRQ6R5ADx6LojZAoGCxx4C4IUZugOKHu8QAAfsFVK2UKDY8QkC4EOvCs46GCh0aPofoIJMjI37WFQA + AAAASUVORK5CYIIoAAAAMAAAAGAAAAABAAQAAAAAAIAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAA + gAAAAICAAIAAAACAAIAAgIAAAICAgADAwMAAAAD/AAD/AAAA//8A/wAAAP8A/wD//wAA////AAAAAAAA + AA//////8AAAAAAAAAAAAAAAAAAAAAAA//////////8AAAAAAAAAAAAAAAAAAAD/////////////AAAA + AAAAAAAAAAAAAA////h3d3d3j///8AAAAAAAAAAAAAAAAP//h3d3d3d3d3j//wAAAAAAAAAAAAAAD//3 + d3d3d3d3d3d///AAAAAAAAAAAAAA//93d3d3d3d3d3d3//8AAAAAAAAAAAAP//d3d3d3d3d3d3d3f//w + AAAAAAAAAAD//3d3d3d3j/h3d3d3d///AAAAAAAAAAD/93d3d/d3//93f3d3d3///////////w//h3d3 + j/d3//93f/h3d3j//////////w//d3d3/4d4//+HeP93d3f//////////w//d3d3d3d3d3d3d3d3d3f/ + 93d3d3d////4d3d3d3d3d3d3d3d3d3eP93d3d3d////3d3d3d3d3d3d3d3d3d3d/93d3d3d////3d3f/ + /3d////3d///d3d/+Hd3d3d////3d3f//3d////3d///d3d/+Hd3d3d////3d3j//3d////3d///d3d/ + +Hd3d3d////3d3j//3d////3d///d3d/+Hd3d3d////3d3f//3d////3d///d3d/+Hd3d3d////3d3f/ + /3d////3d///d3d/+Hd3d3d////3d3d3d3d3d3d3d3d3d3d/93d3d3d////4d3d3d3d3d3d3d3d3d3eP + 93d3d3d//w//d3d3d3d3d3d3d3d3d3f//3d3d3d//w//d3d3/4d4//+HeP93d3f///d3d3d//w//h3d3 + j/d3//93f/h3d3j///h3d3d//wD/93d3d/d3//93f3d3d3////93d3d//wD//3d3d3d3j/h3d3d3d/// + /////////wAP//d3d3d3d3d3d3d3f////////////wAA//93d3d3d3d3d3d3/////////////wAAD//3 + d3d3d3d3d3d///d3d3f///AAAAAAAP//h3d3d3d3d3j/+Hd3d3d4//AAAAAAAA////h3d3d3j///h3d3 + d3d3j/8AAAAAAAD/////////////d3d3d3d3f/8AAAAAAAAA///////////3d3d3d3d3d//wAAAAAAAA + AA//////8P/3d3d3d3d3d//wAAAAAAAAAAAAAAAAAP/3d3d3d3d3d//wAAAAAAAAAAAAAAAAAP/3d3d3 + d3d3d//wAAAAAAAAAAAAAAAAAP/3d3d3d3d3d//wAAAAAAAAAAAAAAAAAP/3d3d3d3d3d//wAAAAAAAA + AAAAAAAAAP/3d3d3d3d3d//wAAAAAAAAAAAAAAAAAA//d3d3d3d3f/8AAAAAAAAAAAAAAAAAAA//h3d3 + d3d3j/8AAAAAAAAAAAAAAAAAAAD/+Hd3d3d4//AAAAAAAAAAAAAAAAAAAAD///d3d3f///AAAAAAAAAA + AAAAAAAAAAAP/////////wAAAAAAAAAAAAAAAAAAAAAAD///////AAAAAAAAAAAAAAAAAAAAAAAAAA// + //8AAAAAAP/4Af///wAA/8AAP///AAD/AAAP//8AAP4AAAf//wAA/AAAA///AAD4AAAB//8AAPAAAAD/ + /wAA4AAAAH//AADAAAAAP/8AAMAAAAAAAAAAgAAAAAAAAACAAAAAAAAAAIAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAACAAAAAAAAAAIAAAAAAAAAAgAAAAAAAAADAAAAAAAAAAMAAAAAAAAAA4AAAAAAAAADw + AAAAAAAAAPgAAAAAHwAA/AAAAAAfAAD+AAAAAA8AAP8AAAAADwAA/8AAAAAHAAD/+AEAAAcAAP///wAA + BwAA////AAAHAAD///8AAAcAAP///wAABwAA////AAAHAAD///+AAA8AAP///4AADwAA////wAAfAAD/ + ///AAB8AAP///+AAPwAA////+AD/AAD////+A/8AACgAAAAgAAAAQAAAAAEABAAAAAAAAAIAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAgICAAMDAwAAAAP8AAP8AAAD//wD/ + AAAA/wD/AP//AAD///8AAAAAAP////8AAAAAAAAAAAAAAP///////wAAAAAAAAAAAP//d3d3d///AAAA + AAAAAA//d3d3d3d3//AAAAAAAAD/93d3d3d3d3//AAAAAAAA/3d3d3iHd3d3/wAAAAAAD/d3ePd/93+H + d3/wAAAAAA/3d4+Hj/h4+Hd/8AAAAAD/d3d3d3d3d3d3d////////3d3d3d3d3d3d3f///////93f/93 + //93//d3+Hd3d///d3//d///d//3d/h3d3f//3d//3f//3f/93f4d3d3//93f/93//93//d3+Hd3d/// + d3d3d3d3d3d3d/h3d3f//3d3d3d3d3d3d3f3d3d3/w/3d4+Hj/h4+Hd/93d3d/8P93d493/3f4d3f/d3 + d3f/AP93d3d4h3d3d///d3d3/wD/93d3d3d3d3////d3d/8AD/93d3d3d3f/////////AAD//3d3d3f/ + /////////wAAAP////////+Hd3j/AAAAAAAA/////w/4d3d3j/AAAAAAAAAAAAAP93d3d3/wAAAAAAAA + AAAAD/d3d3d/8AAAAAAAAAAAAA/3d3d3f/AAAAAAAAAAAAAP93d3d3/wAAAAAAAAAAAAD/h3d3eP8AAA + AAAAAAAAAAD/h3d4/wAAAAAAAAAAAAAAD/////AAAAAAAAAAAAAAAAD///8AAAD/AP///AA///AAD//g + AAf/wAAD/8AAA/+AAAH/gAAB/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAIAAAADA + AAAAwAAAAOAAAADwAAAA/AAAD/8AgAf//4AH//+AB///gAf//4AH//+AB///wA///+Af///wPygAAAAQ + AAAAIAAAAAEABAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACA + gAAAgICAAMDAwAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8AAA///wAAAAAP93d3/wAAAA94f3h/ + AAAA949/f4f////3d3d3d4d3f/f/f3/3h3d/93d3d3eHd3/3j39/h3d3fw94f3h4f3d/D/d3d/////8A + D///+Hd48AAAAAD3d3fwAAAAAPd3d/AAAAAA93d38AAAAAD4d3jwAAAAAA///wDg/wAAgD8AAIA/AAAA + AAAAAAAAAAAAAAAAAAAAAAAAAIAAAACAAAAA4AEAAP8BAAD/AQAA/wEAAP8BAAD/gwAAiVBORw0KGgoA + AAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAACXBIWXMAAA7DAAAOwwHHb6hkAAAcgUlEQVR4nO2dTWxc + 13XH/5o6DeBXQFIDvo29EB+7iMMZGk4AzkiLBhRHBdI6ovy1Ib2wCYyFJKZh0rEtAqLQSgQkJ+EHQDuB + PIDcACazsI14FKVZaCgyXUhvCESB+cg4i2qoRYUGj0glIX0FUiNSF/KThxTn85778d6c30oQ551378w9 + /3vuuV+7lpeXwTBRJZPJ3A3/fefOnYaeSSQS9//tuu4u+lJFh4d0F4BhGiV09kpHb9TpK6l8pre3976A + hMLQTqLAAsAYTSaTuRs6bCvO3gyh/VAUEolE7MWABYAxDpVOX4s7d+7EXgxYABhjCB1fp9NXIxSDuAkB + CwCjHZMdfztxEwIWAEYbUXL87cRFCBL1P8Iw9PT29t6NouNvpzJPEEU4AmCUUpngixNRjQY4AmCUEZde + vxpRjAZYABglRM0xRIhSXVkAGOlEySGoiEqdOQfASCOu4/1GiUJegCMARgrt7vwhd+7c2bJhyTRYABhy + 2Pm3YrIIsAAwpLDz74ypIsA5AIYU1c7veR48z8O1a9ewubmJcrlc8/OO46CjowNdXV1IpVJIpVKKSqp3 + Y1M1dvGBIAwVKjLfQRDAdV1cvnwZpVKJxGY6ncaBAweQyWRgWRaJzVqsrKwYkxRkAWBIkO385XIZ58+f + R7FYlPkaZLNZHD58GI7jSH2PKSLAAsAII9P5Pc/D/PvzWFtfk/WKHUl2J/HS0ZekCoEJIsACwAghK+kX + BAHy+bz0Hr8e2WwWuVxOytDAhDUCPAvACCHD+V3XxfDwsHbnB4BisYjh4WG4rktu24SkIEcATMvICP1n + Z2eNcPydGBgYQC6XI7ercyjAEQDTEtRz2kEQ4JVXXjHW+QGgUCjglVdeQRAEpHZ1rg9gAWBagjJ89X0f + 4+PjdefwTaBcLmN8fJxUBHQOBVgAmKah7LGCIMDIyEgknD9EhgjoigJYAJimoeqxgiAgdyRVUIuAriiA + BYBpCsqeKiphfzVCEaBCRxTAAsA0BVVPNTs7G2nnDymXy8jn8yS2dEQBLABMw1D1UK7rGp3tb5ZCoUC2 + TkB1FMACwDQMRQ8VBAFmZmYISmMWMzMzJPkA1VEACwCjlHw+H8mkXz3CpctRgwWAaQiK0NTzvFiF/tsp + FoskeQ2VwwAWAKYhKELT+ffnCUpiNu+efVfYhsphAAsAowTP85Rv6dXB2vpapGY3WACYulCEpIuLixRF + iQTnz58XtqFqGMACwEgnCIJYj/23UywWI5PoZAFg6iI6JpWxl950ROusKg/AAsBI5/Lly7qLoJyo1JkF + gJEO1em9USIqdWYBYGoimozyPI+qKJFDtO4qEoEsAIxUWADMhgWAkcq1a9d0F0EbUag7CwBTE9Fs9Obm + JlFJoodo3VXMBLAAMFKJ0qo4aqJQdxYAhmljWAAYpo1hAWCk4fu+7iIwdWABYKRh27buIjB1YAFgmDaG + BYBh2hgWAIZpY1gAGKk4jqO7CNqIQt1ZABipdHR06C6CNqJQdxYApiaJhFgT6erqIipJ9BCtu+h339A7 + pL+BaWtSqZTuImgjCnVnAWBq4rruLpHno+AEshCtu+h33wgsAIx00um07iIoJyp1ZgFgpHPgwAHdRVBO + VOrMAsBIJ5PJ6C6CcqJSZxYApi6i2WjLspDNZolKYz7ZbBaWZQnZUDEDALAAMA1AkYw6fPgwRVEiAUVd + VSQAARYARhGO4yDZndRdDOkku5ORWAEYwgLANARFSDr0/BBBSczmpaMvCdtQFf4DwEPK3tQm7HSWe6uH + O+7UEFSFhju9t7e3V+ic+lQqhWw2G9t7ArPZLEnvr/I3ZgFokdDRtzs35UmuO9na7oShSOgShmbJ5XK4 + cuVKZC7PbBTLspDL5XQXo2lYABpgJ2dXdXljPcJyVAqDLFFIJBLC9bYsC6Ojo5icnCQqlRmMjo4KZ/4B + teE/AOxaXl5W+sKokMlk7pri5KIkEgkyMRAdBoTk83kUCgUKU9oZGBgg6/1XVlaURnIcAXzOdoePi/MD + 9+pS6bgijYwiCgDuDQU8z4vE2fm1cByHzPlV9/5Am0cAcerlW6UVMaCKAoIgwPj4eGRFwHEcnD59miT0 + B9T3/kCbTgP29vbe7e3tbXvnB774Lpq5iZaqp7IsC6dPn47k6cHUzq+j9wfaKALg3r5xGskZUEUBQPQi + AWrnB/T0/kAbRACZTIZ7+yYJcwa1ogLKHiuMBKKwgk6G8+vq/YEYRwDc49NRLSKgjAJCTJ4doMz2V6Kr + 9wdiKADs+PLYSQhkiIDrupiZmTFmsVC4dkHGFl+dzg/ESADY8dVRKQSyvvcgCJDP57UvG85ms8jlcqQh + fwjl+oxWibwAsOPrI2zAMqKAkHK5jHfPvou19TVZr9iRZHcSLx19SWpeQnfvD0RYANjxzYFqcVAtyuUy + zp8/Lz0iyGazOHz4sPSEpAnOD0RUAGT2OIzZBEEA13Vx+fJllEolEpvpdBoHDhxAJpOREupvx4TQPyRS + AsC9PrMdz/PgeR6uXbuGzc3NumsJHMdBR0cHurq6kEqllB9bbpLzAxESgCj0+uVyGb7v32+Eq5+sAgD8 + TR++7zdly7Zt2B33Vsh1/V0XLMuC4ziwbTsS8+VMNDBeAEzt9cONLKurqw31PNSEPVlPTw8cx2nrCziY + 1jFaAEzq9cNQc/WTVeUZ6UZJdifR83iPltCWiSbGCoBu5w+TTZ7nRfIEG8uysH//fqRSKWXJLSZ6GCcA + ukN+13Vx8eJFsgyzKaTTaRw6dCgyF1YwajBKAHQ5v+/7KBQKKBaLkevpmyW8pGNgYCCS23AZWowRAB0h + v+u6+PjnHxs7ppdNsjuJI08d4aigjTFCAFQ7/+LiIubn55uemosrtm1jaGgI/f39uovCKEa7AKh0fnb8 + 2rAQtB9aBUCV87PjNwcLQfugTQBUOL/neZh/f75tx/iiJLuTGHp+iNcUxBjlAqAi02/KXvK4IHNPPKMX + pQKgwvlNO00mLsg8FYfRh1IBkBn2B0GA6enp2C3gMY10Oo2xsTGOBmKCsuNIZTq/67oYHh5m51dAqVTC + 8PAwXNfVXRSGACURgCznD4IACwsLxp4iG3cGBgYwODjI0UCEkS4Aspzf931MTk5G5jKJuOI4Do4fP96W + y4pnZ2e1J5ovXLgg9LzUIYAs53ddFyMjI+z8BlAulzEyMtJ2QwITnJ8CaQIgy/kLhQImJyc5y28QQRBg + cnKybYZicXF+QJIANHPRZDPMzs4in8/LMM0QkM/nMTs7q7sYUomT8wPAQ9QGZcz18xRfdCgWi/jTn/4U + y6nCuDk/ICECkOH84+Pj7PwRolQqYXx8PFbDtDg6P0AsANTj/qhdG818Qblcjo0IxNX5AUIBYOdnthMH + EYiz8wNEAkCd9GsH53ccB1NT05iamo71Of9RFoG4Oz9AJACU4/52cf7jx4+jc18nOvd14vjx4ywChtEO + zg8QCAB16D89PR1r57csC2+8/ib27N57///27N6LN15/M3ZZ80rK5TKmp6d1F6Mh2sX5AUEBoA79Z2dn + Y5/tHx0d3XHZrG3bGB0d1VAidZRKJePXCbST8wOCAkAZ+ofHcpuGZVlIp9Mktp588tv4+hPfqPr3rz/x + DTz55LdJ3pVOp42MKIrForErBtvN+QEBAaAM/V3XNW6Fn2VZGBwcxNzcHLq6ukjsPf30U3U/9/TTT5E4 + bldXF+bm5ozcrZfP543bO9COzg+0KACUob/v+5iZmaEyJ0yl4z/7zHPYs3svScMYfnF4y7i/Gnt278Xw + i8PC7ysWi9izey+efeY5I4VgZmbGmENa29X5gRYFgCr0DzeRmJIdzmazWxwfAJaWLgk3VMdx0Nd3sOHP + 9/UdFJ4V8H0fS0uXAGCLEGSzWSG7VJjy27ez8wMtCABl77+wsGBExt9xHJw6eQrf/c73Huill5aWhO2/ + +MKLSp7Zzvay79m9F9/9zvdw6uQpI6Ydy+UyFhYWtL2/3Z0faEEAqHp/13WNSAYNDg7iRz+cQnd38oG/ + +b4vfKR4sju5o+16dHcnkWzhuUrW1td2jF66u5P40Q+nMDg4KGSfgkKhoCUfwM5/j6YEgKr3D4JA+7jf + tm1MTU3j2Weeq/qZC78UO20FAPr6+rQ8G1KrDs8+8xympqa1n+aj+hRndv4vaEoAqHr/6elprWO/dDqN + M2fOoHNfZ83PrayIrUmwbbupsf92+voOCjtnvTp07uvEmTNnyKY6WyHc7q0Cdv6tNCwAVL2/67paF/sM + Dg7izTeO1c3Ib1zfEE7+DQwMCD1PYcP3fWxc36j5mT279+LNN45pHRKUSiXpQwF2/gdpWAAoen/dof/I + yyM1Q/5KKJJ/+/fvN8LGr371bw197tlnnsPIyyPC72sVmUMBdv6daUgAqHr/fD6vJfS3LAtTU9NNheOi + 4X82m21o3r8ee3bvFZ66W11dbfizfX0HMTU1rWXNQHilGwWV0QQ7f3UaEgCK3t/zPC0/gmVZOHnyVN3x + fiUU4f83//6bQs9T2mpkGFBJ575OnDx5SosIFItFeJ4nbMeyLMzOzrLz16GuAFD1/vPvz1OYaYpWnB8Q + D/9t225p6q8a3d1J4WRgs3XSKQIUbSWVSuEP//UHdv461BUAit5/cXFR+RXdrTo/APzud+tC7+7tpc+o + i9pspU66RGBtfQ2Li4vCdg79wyGC0sSbmgJA1vvPq+/9W3V+3/eFVydSzN9T2yyXyy0Na0IRUA1Fm+nv + 79e+xsF0agoAVe+vetPHyMsjLTk/AKwLRiq2bbf87lp07usUbsyt1q1zX6fy2QHf90miAFP2PpiK9NuB + Vff+g4ODQotvPv39p0Lv7+npEXpepm2RuvX1HVS+ToCi7VCsxYgzVQWAYr+/6t4/nU43PM9fjWamzHYi + k8kIPS/Ttmjdnn3mOaUrBimiAMoDXeKI1AhAZe9v2zaOHj0qZMP3fZKtv7Kg2CIsWr+jR48qHVdTtKFD + hzgZWI0dBYAi+ee6rtLef+TlEeGFN6Lj/2R3kmTxTzX27N4rvENQtI57du9Vmg/wfV94iXAmkzHqMBST + 2LW8vPzAf1KE/8fePKZ86o+JJ8nuJM68dUbIRj6fN2L7OTUXLojtWJUyBKDYR88wIdXONWiG/v5+otLE + iwcEgCL8j6PSMnoRbVOO4/CagB14QAAo5v55+SVDDUWbothZGTfIhwCu62o/6JGJH0EQCCcDU6kUUWni + A7kAXLx4kdokwwAQb1s8G/AgWwRAdPwfBEHsr/Zi9FEqlYSjy2SSbpdmHNgiAKLjf9Nue2Hih2gbk7lU + O4qQDgEoDnJgmFqItjFOBG7lvgBQTP9duXJF1ATD1ES0jdm2zdOBFZBFAJ7ncfafkU4QBBwFEHJfAETH + /xz+M6oQbWu5XI53CH4OWQSw+onYVlOGaRSKtjY2NsZTgiAUAF77z6iCoq1ZlsVDAXwuAKIJQA7/GdVQ + tDmZh7dEBZIIwIQrvpn2gqLN8RAAeAgQTwCKHjXVCOfOnZNy2Mat2zcxPDzc8vPJ7qSWU3MB4MSJCaFw + 2NTvtBE2Nhq/6ISpDkkEsLm5SWGmKjJP2rnxnzek2I0CsupOcXJRPSgiAJ62jsgQoOdxc5dv6ixbO38v + FG2Ol64TCICK8f9jX31Mmu0//9+fpdk2HZl1l/mbhYi2PT63AkiIzgCoOPjzkUcfkWZbtBF95W+/QlQS + 9e+WKd4yf7MQDuHFMT4CsG1b6km7ouhcV27ymvY9u/dKL5/oVKDsPEUUEBYA2Src2Ul/zRajBv7tzEdY + AK79xzWKclSlq6tLqv1r1+SW32Rk1132bye6JNjkJKoqpN8NKIrsMXbwP2IRTLfGMFL03aJ1r4fO/AjT + GAnRRUD+ptwkoMnjXKY2sn870bbHKwEJIgDZswAdHSwAUeVhyQ5m8j2OUcH4IQBHANGlcx8nAU3HeAFg + GEYeLAAM08awADBMGyMkACpWAZoMJ5GYqCMkALIdQMU+A5GpJD4IhYk6bT8EsHmakWlj2l4AGKadYQFg + mDaGBYBh2hjjBWDjOh/+GFX4tzMfYQGQPVX3v3zqS2SR/duJtj2exQESiYSYBsjOoquYCmTkIPu3E217 + fKRYBIYAf/zvP0q1b/2N2I61dY1Xoom+W7Tu9ZD92zHiCAuA7FNVon5qjclE/bQl0bbHF9pGIALgG2Ci + C/925iMsACqWA9+6fVPqO0TQmaMwOT9y6/ZN6eVLpVJCz/MsBZBwXXeXiAEVG3ZkXt8lKmA6x7mi75Yp + 3iquXBM90ouTgBGIAADg099/Ks32l//6y9Jsm47Musv8zUJE2h5faX8PkhyAbBEwOVmjs2zt/L2Itjnu + /e9BIgAdHR0UZqqytr4mLQ+g4gorU5FV91u3bwpdW94IogLAi4DusWt5eRmZTOauyPHghUIB+XyesFgM + U5tcLoeBgQHdxYg8kRgCMMx2uM3RkAAA0ZkA0ekYhmkWbnM0kC0E4ptWGVVwW6ODTAD4okVGFdzW6Lgv + AKK7AjkkY1TBbY0OsggglUrxZYuMdCzLYgEg5L4AiCYCAWD//v2iJhimJtzGaCHdDcjKzMiG2xgtWwRA + NA+QyWSEnmeYenAbo2WLx4sOAyzLQjqdFisRw1QhnU5znokY8gNBDh06RG2SYQBw25IBuQBkMhlWaYYc + y7I4/JfAAwIgmgcAgGw2K2yDYSrhNiWHB7ydYjqQd2kx1HCbkoOUQ0Ft2+b12gwZye6kkqPn2pGHdvrP + RCIBkfMBAODIU0ekHwpRyamTp9AtKDpLS5cw9/Zcy88nu5M4efKUUBnqceLEhND3OvLyCPr6DgqVYX19 + DRMnJoRsNMORp44I21hZWRGObOPIjhEAxTAgk8koVe25t+eETw0SFRCZJxcBNCftiNbx1u2bQiLZLLZt + c/JPIlLvBRgaGpJpfgu+7+Ps2bNCNmzbNvq+OVHbFPU7e/as0uPIKdoQRWI7rlT9ZihCpv7+fqVRQKlU + wocffSBko6dHbKup67pCz8u0LVq3Dz/6AKVSSchGM9i2jf7+fmE7FBFtXJEujSqjAABYWFjA0tKllp9/ + 7KuPCb1/dVXeabiitkXqtrR0CQsLC0LvbxbVbacdqSkAFKGT6igAuJcPaPXWF9Exsu/7Um6c2bi+IRx6 + t1q3jesbSsf9AF3vz8m/2tT0cKrQSYeSnzgx0ZIj2rYtfODk0tKS0PMybDqO05IQb1zfwAmFGf8Q7v3V + ULeLp4oCVK8LCIKgZRH42te6hd69skI/Tha12UqdQudXfYlGsjtJ0vtz8q8+db8hsijgefWK3qoI9PX1 + Cb3X932sE66BWF9fEw7/m62TLucH6NoKJ//q05BEUihpKpXSsp67FRHo3NcpnLf49b//Wuh5Slu2baNz + X2fDn9fp/NlsluTQD+79G6Ohb4lKSXO5nJadgkEQ4LXXxpqaHejtFTvXoFgskiwKunX7JorFopCNZqb/ + lpYu4bXXxrQ4v2VZyOVyJLa492+MhmWSQlEty8Lo6KiwnVaZe3uu4XUCosMAALhy5YoRNr71rX9s6HMf + fvSB8mx/JaOjoyQdBPf+jdPwN0WlqJlMRuupQQsLC3jrB2fq9s4Uw4BCoSD0PIWNRsL/W7dv4q0fnFE+ + z19JOp0mW/LLvX/jNCWVVMo6Njam9dCQUqmEY8eO1U3UiQ4DfN8XWpS0tHRJOPlXrw7r62s4duyY0hV+ + 27EsC2NjYyS2uPdvjqa+LSpl1T0UAO4558SJiZpDgif/6Unh94jM31OsJ6hVhw8/+gATJyaUru3fCarQ + H+Dev1malksqhc1kMkYc8rCwsIDvv/7ajtEAxbkGa+trLU0Jrq+vCe/8q7aPfn19Dd9//TWtIX/IwMAA + WejPvX/zNP2NUSrs4OCgEdc8l8tlTJyYwI9/8s4DuQGKZOB7//qekme2s73st27fxI9/8g4mTkxI3bXY + KI7jYHBwkMwe9/7N05JkUimtZVk4fvy4MYeIFotFjIyM4MOPPrgvBH19B0m2CDeTC1haukSy9Tc8+OPW + 7Zv48KMPMDIyIjylSAX1b89r/lujJU+mVFrbtrXnAyoJggALCwtbhIBiAdO59841tC7g1u2bOPfeOeH3 + ZbPZLY6/sLCgZW6/GqOjo2SbxDj0b52/euGFF1p68MaNG//yyCOP/DNFIR599FFYloWrV69SmCPhs88+ + g+d5KBaL+NKXvoQbN24I2/vLX+7giSeeqPm5hZ/9jGQZ8cMPP4yf/vSnuHr1Kj777DNhe5TkcjnSVaGl + Uol7/xYRkk5K5R0YGDDy6OcgCMimyC5c+AWu/vY3Vf9+9be/wYULvyB5V6lUMqrHD8lms6TJX+79xRD6 + 9qiTLq+++mrsrxabmZnZcV+C7/uYmZnRUCJ1pNNpvPrqq6Q2OfEnhrB8UidfxsbGjJgZkEUQBHjnnbe3 + 5ANu3b6JH/zwLSN7bCocxyFb7BPCiT9xSOInyjDMsiycPn061iJQLpdx7NgxbFzfwMb1DUxOThoxLScL + x3Fw+vRp0tkedn4adi0vL5MY6u3tvUti6HOCIMD4+HisHaMdkOH8iUSCQ38iyLpuakVuh0gg7shwfoDH + /ZSQplBZBJgQWc7PoT8t5HMo1NMyoQjEfXYgTqTTaXb+iEAuAK7r7pIhAhMTE0auE2C2ks1mMTExQe78 + PN8vB7Ik4Haok4IhhUIB+XxehmlGkFwuJ22HJ/f+cpAmAIA8EXBdFzMzM7GeN48S4fkOsi7xZOeXh9S4 + StYPl8lkMDc3x8lBA3AcB3Nzc+z8EUVqBBAiKxIId+5RnL3HNM/AwAAGBwelbedm55ePEgEA5IkAwEMC + 1cgO+QF2flUoS63K/EEzmQzOnTvHU4UKSKfTOHfuHDt/TFAWAQBAJpO5e+fOHanv4GhADip6fYCdXzVK + BQBQIwJBECCfzxtz/FXUyWazSm51YudXj3IBCJGZEwjxPA/z788Ln67briS7kxh6fojkrr56sPPrQZsA + AGpEAAAWFxcxPz+v/fz7qGDbNoaGhkiu6G4Edn59aBUAQJ0IACwE9VDt+AA7v260CwCgVgQAFoLt6HB8 + gJ3fBIwQAEC9CAD3Zgw+/vnHbZsjSHYnceSpI9Iz+zvBzm8GxggAoGaGYCd830ehUECxWIz99KFlWfdP + 5qU6l78Z+DQfszBKAAB9IhDiui4uXryo9bZcGaTTaRw6dEhLbx/Czm8exglAiI4hQSVBEMB1XXiehytX + rkQuMrAsC/v370cqlUImk9F+/RqH/GZirAAA+kWgEs/z4HkeVj9ZNTZnkOxOoufxHqRSKSVz943Avb7Z + GC0AgP4hQTU8z0O5XMbGxgbK5bLy04sdx4HjOOjs7ITjOMY4fCXs/OZjvACEmBQNVKNcLiMIAnieBwBY + /WQVAOBv+k1POdq2DbvjXpKu5/EeAEAqlYJlWZE4B4FD/mgQGQEAzI0GmC/gXj9aPKS7AM0QNqwoRAPt + CPf60SOSR62urKyQnzzMtM7Kysoudv5oElkvcl13FwuBXhKJBPf6ESdSQ4CdCIcFnB9QB4/z40PkBSCE + hUA+7PjxIzYCEMJCQA87fnyJnQCEsBCIw44ff2IrACEsBM3Djt8+xF4AQiobNK8jeBB2+vakbQSgknDq + iqMCdvx2py0FIKSy4beTGLDTMyFtLQCVbHeIOAkCOzxTDRaAKmyPDgAgKoIQro5kp2fqwQLQADs5kimi + wM7OiMAC0CLVHC4UhkpaFYmd9jmwozOU/D+MyHS3jCX/KQAAAABJRU5ErkJggigAAAAwAAAAYAAAAAEA + CAAAAAAAAAkAAAAAAAAAAAAAAAEAAAABAAAAAAAAQkJCAE1NTQBYWFgAY2JjAGRkZABubW4AeXh4AISD + gwCPjo4AkZGRAJqZmQCcnJwApKOkAKenpwCvrq8Avr6+AMXExQDJyckA1NTUANvZ2gDg4OAA5uTlAOvr + 6wDx7/AA9vb2APn5+QAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAAAAAAAAAAAAAACwsK - CgoKCgoLCwAAAAAAAAAAAAAAAAAAAAAAAAAACgoKCgoKCgoKCgoKCgoAAAAAAAAAAAAAAAAAAAAACwoK - CQcDAgEBAQECAwcJCgoLAAAAAAAAAAAAAAAAAAoKCQQBAQEBAQEBAQEBAQEECQoKAAAAAAAAAAAAAAAK - CggCAQEBAQEBAQEBAQEBAQECCAoKAAAAAAAAAAAACgoFAQEBAQEBAQEBAQEBAQEBAQEBBQoKAAAAAAAA - AAoKBQEBAQEBAQEBCwsLCwEBAQEBAQEBBQoKAAAAAAALCggBAQEBAQEBAQELCwsLAQEBAQEBAQEBCAoL - AAAAAAoJAgEBAQEBAQEBAQsLCwsBAQEBAQEBAQECCQoAAAAKCgQBAQEBAQEBAQEBCwsLCwEBAQEBAQEB - AQEECgoAAAoJAQEBAQEBAQEBAQELCwsLAQEBAQEBAQEBAQEJCgALCgcBAQEBAQEBAQEBAQsLCwsBAQEB - AQEBAQEBAQcKCwsKAwEBAQEBAQEBAQEBCwsLCwEBAQEBAQEBAQEBAwoLCgoCAQEBAQEBAQEBAQELCwsL - AQEBAQEBAQEBAQECCgoKCgEBAQEBAQEBAQEBAQsLCwsBAQEBAQEBAQEBAQEKCgoKAQEBAQEBAQEBAQEB - CwsLCwEBAQEBAQEBAQEBAQoKCgoBAQEBAQEBAQEBAQELCwsLAQEBAQEBAQEBAQEBCgoKCgEBAQEBAQEB - AQEBAQsLCwsBAQEBAQEBAQEBAQEKCgoKAgEBAQEBAQEBAQEBCwsLCwEBAQEBAQEBAQEBAgoKCwoDAQEB - AQEBAQEBAQELCwsLAQEBAQEBAQEBAQEDCgsLCgcBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQcKCwAK - CQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBCQoAAAoKBAEBAQEBAQEBAQEGCwsGAQEBAQEBAQEBAQQK - CgAAAAoJAgEBAQEBAQEBAQsLCwsBAQEBAQEBAQECCQoAAAAACwoIAQEBAQEBAQEBCwsLCwEBAQEBAQEB - AQgKCwAAAAAACgoFAQEBAQEBAQEGCwsGAQEBAQEBAQEFCgoAAAAAAAAACgoFAQEBAQEBAQEBAQEBAQEB - AQEBBQoKAAAAAAAAAAAACgoIAgEBAQEBAQEBAQEBAQEBAggKCgAAAAAAAAAAAAAACgoJBAEBAQEBAQEB - AQEBAQQJCgoAAAAAAAAAAAAAAAAACwoKCQcDAgEBAQECAwcJCgoLAAAAAAAAAAAAAAAAAAAAAAoKCgoK - CgoKCgoKCgoKAAAAAAAAAAAAAAAAAAAAAAAAAAALCwoKCgoKCgsLAAAAAAAAAAAAAAD/4Af//4AB//4A - AH/8AAA/+AAAH/AAAA/gAAAHwAAAA8AAAAOAAAABgAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAACAAAABgAAAAcAAAAPAAAAD4AAAB/AAAA/4AAAf/AAAP/4AAH//gAH//+AH/ygA - AAAQAAAAIAAAAAEACAAAAAAAAAEAAAAAAAAAAAAAAAEAAAABAAAAAAAA4qEbAOi8XwDqwW0A68Z7APHh - vwD29vYA+Pj4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAAAAAAAHBgYGBgcAAAAAAAAA - AAYFAgEBAQECBQYAAAAAAAYEAQEBAQEBAQEEBgAAAAYDAQEBAQcHAQEBAQQGAAAFAQEBAQEHBwEBAQEB - BQAHAgEBAQEBBwcBAQEBAQIHBgEBAQEBAQcHAQEBAQEBBgYBAQEBAQEHBwEBAQEBAQYGAQEBAQEBBwcB - AQEBAQEGBgEBAQEBAQcHAQEBAQEBBgcCAQEBAQEBAQEBAQEBAgcABQEBAQEBBwcBAQEBAQUAAAYEAQEB - AQcHAQEBAQQGAAAABgMBAQEBAQEBAQQGAAAAAAAGBQIBAQEBAgUGAAAAAAAAAAAHBgYGBgcAAAAAAPgf - AADgBwAAwAMAAIABAACAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAEAAIABAADAAwAA4AcAAPgf - AAAoAAAAIAAAAEAAAAABACAAAAAAAIAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29jD29vaA9vb2v/b29v/29vb/9vb2//b29v/29vb/9vb2//b2 - 9r/29vaA9vb2MAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29mD29vbP9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 - 9v/29vb/9vb2//b29v/29vb/9vb2z/b29lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29iD29va/9vb2//b29v/18ej/7dGV/+i7Xv/jpSj/4qAa/+Kg - Gv/ioBr/4qAa/+OlKP/ou17/7dGV//Xx6P/29vb/9vb2//b29r/29vYgAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vZQ9vb27/b29v/18ej/6sBs/+KgGv/ioBr/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+rAbP/18ej/9vb2//b29u/29vZQAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2YPb29v/29vb/8Nux/+OlKP/ioBr/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+OlKP/w27H/9vb2//b2 - 9v/29vZgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29lD29vb/9vb2/+vFev/ioBr/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+Kg - Gv/rxXr/9vb2//b29v/29vZQAAAAAAAAAAAAAAAAAAAAAAAAAAD29vYg9vb27/b29v/rxXr/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv//////////////////////4qAa/+KgGv/ioBr/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/rxXr/9vb2//b29u/29vYgAAAAAAAAAAAAAAAAAAAAAPb29r/29vb/8Nux/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa///////////////////////ioBr/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/w27H/9vb2//b29r8AAAAAAAAAAAAAAAD29vZg9vb2//Xx - 6P/jpSj/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr//////////////////////+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+OlKP/18ej/9vb2//b29lAAAAAAAAAAAPb2 - 9s/29vb/6sBs/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv////////////// - ////////4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+rAbP/29vb/9vb2zwAA - AAD29vYw9vb2//Xx6P/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa//// - ///////////////////ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa//Xx - 6P/29vb/9vb2MPb29oD29vb/7dGV/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+Kg - Gv/ioBr//////////////////////+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+Kg - Gv/ioBr/7dGV//b29v/29vaA9vb2v/b29v/ou17/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv//////////////////////4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/ou17/9vb2//b29r/29vb/9vb2/+OlKP/ioBr/4qAa/+KgGv/ioBr/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa///////////////////////ioBr/4qAa/+KgGv/ioBr/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+OlKP/29vb/9vb2//b29v/29vb/4qAa/+KgGv/ioBr/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr//////////////////////+KgGv/ioBr/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa//b29v/29vb/9vb2//b29v/ioBr/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv//////////////////////4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/9vb2//b29v/29vb/9vb2/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa//////////////////// - ///ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/29vb/9vb2//b2 - 9v/29vb/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr///////// - /////////////+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa//b2 - 9v/29vb/9vb2//b29v/jpSj/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+Kg - Gv//////////////////////4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+Kg - Gv/jpSj/9vb2//b29v/29va/9vb2/+i7Xv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+Kg - Gv/ioBr/4qAa///////////////////////ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+Kg - Gv/ioBr/4qAa/+i7Xv/29vb/9vb2v/b29oD29vb/7dGV/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/7dGV//b29v/29vaA9vb2MPb29v/18ej/4qAa/+KgGv/ioBr/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/18ej/9vb2//b29jAAAAAA9vb2z/b29v/qwGz/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa//HQjP////////////HQjP/ioBr/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/6sBs//b29v/29vbPAAAAAAAAAAD29vZg9vb2//Xx - 6P/jpSj/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr//////////////////////+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+OlKP/18ej/9vb2//b29mAAAAAAAAAAAAAA - AAD29va/9vb2//Dbsf/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv////////////// - ////////4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/8Nux//b29v/29va/AAAAAAAA - AAAAAAAAAAAAAPb29iD29vbv9vb2/+vFev/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa//HQ - jP////////////HQjP/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+vFev/29vb/9vb27/b2 - 9iAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29lD29vb/9vb2/+vFev/ioBr/4qAa/+KgGv/ioBr/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/rxXr/9vb2//b2 - 9v/29vZQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29mD29vb/9vb2//Dbsf/jpSj/4qAa/+Kg - Gv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/jpSj/8Nux//b2 - 9v/29vb/9vb2YAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29lD29vbv9vb2//Xx - 6P/qwGz/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/4qAa/+KgGv/ioBr/6sBs//Xx - 6P/29vb/9vb27/b29lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb2 - 9iD29va/9vb2//b29v/18ej/7dGV/+i7Xv/jpSj/4qAa/+KgGv/ioBr/4qAa/+OlKP/ou17/7dGV//Xx - 6P/29vb/9vb2//b29r/29vYgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAD29vZg9vb2z/b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 - 9v/29vb/9vb2//b29s/29vZgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2MPb29oD29va/9vb2//b29v/29vb/9vb2//b2 - 9v/29vb/9vb2v/b29oD29vYwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP/A - A///AAD//AAAP/gAAB/wAAAP4AAAB8AAAAPAAAADgAAAAYAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAAABgAAAAcAAAAPAAAAD4AAAB/AAAA/4AAAf/AAAP/8A - AP//wAP/KAAAABAAAAAgAAAAAQAgAAAAAABABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAD29vZg9vb2v/b29v/29vb/9vb2//b29v/29va/9vb2YAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb2 - 9iD29vbP8eG//+i8X//ioRv/4qEb/+KhG//ioRv/6Lxf//Hhv//29vbP9vb2IAAAAAAAAAAAAAAAAPb2 - 9iD29vbv68Z7/+KhG//ioRv/4qEb/+KhG//ioRv/4qEb/+KhG//ioRv/68Z7//b29u/29vYgAAAAAAAA - AAD29vbP6sFt/+KhG//ioRv/4qEb/+KhG////////////+KhG//ioRv/4qEb/+KhG//rxnv/9vb2zwAA - AAD29vZg8eG//+KhG//ioRv/4qEb/+KhG//ioRv////////////ioRv/4qEb/+KhG//ioRv/4qEb//Hh - v//29vZg9vb2v+i8X//ioRv/4qEb/+KhG//ioRv/4qEb////////////4qEb/+KhG//ioRv/4qEb/+Kh - G//ovF//9vb2v/b29v/ioRv/4qEb/+KhG//ioRv/4qEb/+KhG////////////+KhG//ioRv/4qEb/+Kh - G//ioRv/4qEb//b29v/29vb/4qEb/+KhG//ioRv/4qEb/+KhG//ioRv////////////ioRv/4qEb/+Kh - G//ioRv/4qEb/+KhG//29vb/9vb2/+KhG//ioRv/4qEb/+KhG//ioRv/4qEb////////////4qEb/+Kh - G//ioRv/4qEb/+KhG//ioRv/9vb2//b29v/ioRv/4qEb/+KhG//ioRv/4qEb/+KhG////////////+Kh - G//ioRv/4qEb/+KhG//ioRv/4qEb//b29v/29va/6Lxf/+KhG//ioRv/4qEb/+KhG//ioRv/4qEb/+Kh - G//ioRv/4qEb/+KhG//ioRv/4qEb/+i8X//29va/9vb2YPHhv//ioRv/4qEb/+KhG//ioRv/4qEb//// - ////////4qEb/+KhG//ioRv/4qEb/+KhG//x4b//9vb2YAAAAAD29vbP68Z7/+KhG//ioRv/4qEb/+Kh - G////////////+KhG//ioRv/4qEb/+KhG//rxnv/9vb2zwAAAAAAAAAA9vb2IPb29u/qwW3/4qEb/+Kh - G//ioRv/4qEb/+KhG//ioRv/4qEb/+KhG//rxnv/9vb27/b29iAAAAAAAAAAAAAAAAD29vYg9vb2z/Hh - v//ovF//4qEb/+KhG//ioRv/4qEb/+i8X//x4b//9vb2z/b29iAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAD29vZg9vb2v/b29v/29vb/9vb2//b29v/29va/9vb2YAAAAAAAAAAAAAAAAAAAAADwDwAAwAMAAIAB - AACAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAAQAAgAEAAMADAADwDwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD///8AAAAAAAAAAAAAAAAAABoZGRkZGRkZGhoAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABoZGRkZGRkZGRkZGRkZGRoAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAaGRkZGRkZGRkZGRkZGRkZGRkZGgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + ABkZGRkZFQ4GAgEBAQECBg4VGRkZGRkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRkZGRMGAQEBAQEB + AQEBAQEBBhMZGRkZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZGRkXCgEBAQEBAQEBAQEBAQEBAQEKFxkZ + GQAAAAAAAAAAAAAAAAAAAAAAAAAAABkZGRcFAQEBAQEBAQEBAQEBAQEBAQEBBRcZGRkAAAAAAAAAAAAA + AAAAAAAAAAAAGRkZFwUBAQEBAQEBAQYLCwcBAQEBAQEBAQUXGRkZAAAAAAAAAAAAAAAAAAAAAAAaGRkX + BQEBAQEBAwYBARQYGBQBAQYDAQEBAQEFGRkZGgAAAAAAAAAAAAAAAAAAAAAZGRkKAQEBAQEIFQYBBRgY + GBgFAQYVCAEBAQEBChkZGRkZGRkZGRkZGRkZGRkZABoZGRMBAQEBAQ8YGAEBCxgYGBgLAQEYGA8BAQEB + ARMZGRkZGRkZGRkZGRkZGRkZABkZGQYBAQEBCRgYEQEBERgYGBgRAQERGBgJAQEBAQYZGRkZGRkZGRkZ + GRkZGRkZABkZFQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEVGRcBAQEBAQEBAQEBGRkZGhkZDgEB + AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEOGRkGAQEBAQEBAQEBGRkZGRkZBgEBAQEBAQEBAQEBAQEB + AQEBAQEBAQEBAQEBAQEGGRkLAQEBAQEBAQEBGRkZGRkZAgEBAQcYGBgYBgEGGBgYGBgYBgEGGBgYGAcB + AQECGRkQAQEBAQEBAQEBGRkZGRkZAQEBAQsYGBgYBgEGGBgYGBgYBgEGGBgYGAsBAQEBGRkSAQEBAQEB + AQEBGRkZGRkZAQEBAQ4YGBgYBgELGBgYGBgYCwEGGBgYGAsBAQEBGRkSAQEBAQEBAQEBGRkZGRkZAQEB + AQ4YGBgYBQELGBgYGBgYCwEGGBgYGAsBAQEBGRkSAQEBAQEBAQEBGRkZGRkZAQEBAQsYGBgYBgEGGBgY + GBgYBgEGGBgYGAsBAQEBGRkSAQEBAQEBAQEBGRkZGRkZAgEBAQcYGBgYBgEGGBgYGBgYBgEGGBgYGAcB + AQECGRkQAQEBAQEBAQEBGRkZGRkZBgEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEGGRkLAQEBAQEB + AQEBGRkZGhkZDgEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEOGRkKAQEBAQEBAQEBGRkZABkZFQEB + AQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEBAQEVGRkZBQEBAQEBAQEBGRkZABkZGQYBAQEBCRgYEQEBERgY + GBgRAQERGBgJAQEBAQcZGRkZFQIBAQEBAQEBGRkZABoZGRMBAQEBAQ8YGAEBCxgYGBgLAQEYGA8BAQEB + ARMZGRkZGRABAQEBAQEBGRkZAAAZGRkKAQEBAQEIFQYBBRgYGBgFAQYVCAEBAQEBChkZGRkZGRkKAQEB + AQEBGRkZAAAaGRkXBQEBAQEBAwYBARQYGBQBAQYDAQEBAQEFGRkZGRkZGRkZGRkZGRkZGRkZAAAAGRkZ + FwUBAQEBAQEBAQcLCwcBAQEBAQEBAQUXGRkZGRkZGRkZGRkZGRkZGRkZAAAAABkZGRcFAQEBAQEBAQEB + AQEBAQEBAQEBBRcZGRkZGRkZGRkZGRkZGRkZGRkZAAAAAAAZGRkXCgEBAQEBAQEBAQEBAQEBAQEKGRkZ + FwoDAQEBAwoXGRkZGgAAAAAAAAAAAAAAGRkZGRMGAQEBAQEBAQEBAQEBBhMZGRkQAgEBAQEBAQECEBkZ + GQAAAAAAAAAAAAAAABkZGRkZFQ4GAgEBAQECBg4VGRkZGRABAQEBAQEBAQEBARAZGRkAAAAAAAAAAAAA + AAAaGRkZGRkZGRkZGRkZGRkZGRkZFwIBAQEBAQEBAQEBAQIXGRkAAAAAAAAAAAAAAAAAABoZGRkZGRkZ + GRkZGRkZGRkZCgEBAQEBAQEBAQEBAQEKGRkaAAAAAAAAAAAAAAAAAAAAABoZGRkZGRkZGhoAGRkZAwEB + AQEBAQEBAQEBAQEDGRkZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRkZAQEBAQEBAQEBAQEBAQEB + GRkZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGRkVAQEBAQEBAQEBAQEBAQEBGRkZAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAGRkZAQEBAQEBAQEBAQEBAQEBGRkZAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAGRkZAwEBAQEBAQEBAQEBAQEDGRkZAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGhkZCgEB + AQEBAQEBAQEBAQEKGRkaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZFwIBAQEBAQEBAQEBAQIX + GRkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABkZGRABAQEBAQEBAQEBARAZGRkAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAZGRkQAgEBAQEBAQECEBkZGQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAaGRkZFwoDAQEBAwoXGRkZGgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGhkZ + GRkZGRkZGRkZGRkaAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAZGRkZGRkZGRkZGQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABoZGRkZGRoAAAAAAAAAAAAA//gB//// + AAD/wAA///8AAP8AAA///wAA/gAAB///AAD8AAAD//8AAPgAAAH//wAA8AAAAP//AADgAAAAf/8AAMAA + AAA//wAAwAAAAAAAAACAAAAAAAAAAIAAAAAAAAAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAA + AAAAAAAAgAAAAAAAAACAAAAAAAAAAMAAAAAAAAAAwAAAAAAAAADgAAAAAAAAAPAAAAAAAAAA+AAAAAAf + AAD8AAAAAB8AAP4AAAAADwAA/wAAAAAPAAD/wAAAAAcAAP/4AQAABwAA////AAAHAAD///8AAAcAAP// + /wAABwAA////AAAHAAD///8AAAcAAP///4AADwAA////gAAPAAD////AAB8AAP///8AAHwAA////4AA/ + AAD////4AP8AAP////4D/wAAKAAAACAAAABAAAAAAQAIAAAAAAAABAAAAAAAAAAAAAAAAQAAAAEAAAAA + AABCQkIATU1NAFhYWABjYmMAZGRkAG5tbgB6enoAhoaGAJGRkQCko6QAs7OzALq5ugC+vr4AycnJAODg + 4ADr6+sA8e/wAPb29gD5+fkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAP// + /wAAAAAAAAAAABMSEhISEhITAAAAAAAAAAAAAAAAAAAAAAAAAAAAABISEhISEhISEhISEgAAAAAAAAAA + AAAAAAAAAAAAABMSEg8JBQEBAQEFCQ8SEhMAAAAAAAAAAAAAAAAAAAATEhIJAQEBAQEBAQEBAQkSEhMA + AAAAAAAAAAAAAAAAExIQBQEBAQEBAQEBAQEBAQUQEhMAAAAAAAAAAAAAAAASEAUBAQEGAwEMDAEDBgEB + AQUSEgAAAAAAAAAAAAAAEhIJAQEBChECBRERBQIRCgEBAQkSEgAAAAAAAAAAAAASDwEBAQoRDAEKEREK + AQwRCgEBAQ8SAAAAAAAAAAAAExIJAQEBAQEBAQEBAQEBAQEBAQEBCRISEhISEhISEhISEgUBAQEBAQEB + AQEBAQEBAQEBAQEFEhISEhISEhISEhISAQEBERERBgERERERAQYREREBAQESDgEBAQEBARISEhABAQIR + EREGAhEREREBBhEREQEBARIOAQEBAQEBEhISEAEBAhEREQYCEREREQEGERERAQEBEg4BAQEBAQESEhIS + AQEBERERBgERERERAQYREREBAQESDgEBAQEBARISEhIFAQEBAQEBAQEBAQEBAQEBAQEBBRILAQEBAQEB + EhITEgkBAQEBAQEBAQEBAQEBAQEBAQEJEgcBAQEBAQESEgASDwEBAQoRDAEKEREKAQwRCgEBAQ8QAQEB + AQEBARISABISCQEBAQoRAgUREQUCEQoBAQEJEhAIAQEBAQEBEhIAABIQBQEBAQYDAQwMAQMGAQEBBRAS + EhIIAQEBAQESEgAAExIQBQEBAQEBAQEBAQEBAQUQEhISEhIIAQEBARISAAAAExIQCQEBAQEBAQEBAQEJ + EhISEhISEhISEhISEhIAAAAAExISDwkFAQEBAQUJDxISEhISEhISEhISEhISEgAAAAAAABISEhISEhIS + EhISEhISDAMBAQMMEhIAAAAAAAAAAAAAAAATEhISEhISEwATEgwBAQEBAQEMEhMAAAAAAAAAAAAAAAAA + AAAAAAAAABISAwEBAQEBAQMSEgAAAAAAAAAAAAAAAAAAAAAAAAAAEhABAQEBAQEBARISAAAAAAAAAAAA + AAAAAAAAAAAAAAASEAEBAQEBAQEBEhIAAAAAAAAAAAAAAAAAAAAAAAAAABISAwEBAQEBAQMSEgAAAAAA + AAAAAAAAAAAAAAAAAAAAExIMAQEBAQEBDBITAAAAAAAAAAAAAAAAAAAAAAAAAAAAEhIMAwEBAwwSEgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAEhISEhISEhIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAExISEhIT + AAAAAAAA/wD///wAP//wAA//4AAH/8AAA//AAAP/gAAB/4AAAf8AAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAIAAAACAAAAAwAAAAMAAAADgAAAA8AAAAPwAAA//AIAH//+AB///gAf//4AH//+AB/// + gAf//8AP///gH///8D8oAAAAEAAAACAAAAABAAgAAAAAAAABAAAAAAAAAAAAAAABAAAAAQAAAAAAAEJC + QgBNTU0Aenp6AIaGhgCRkZEAnJycAKSjpAC+vr4AycnJAODg4ADx7/AA9vb2APn5+QAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA////AAAA + AAwMDAwMAAAAAAAAAAAADQoDAQEBAwoNAAAAAAAAAAoCBwELAQcCCgAAAAAAAAwDBwsBCwELBwMMDAwM + DAwMAQEBAQEBAQEBCQEBAQEMCgELCwELAQsLAQkBAQEBDAwBAQEBAQEBAQEJAQEBAQwMAwcLAQsBCwcD + BQQBAQEMAAoCBwELAQcCCAYMBQEBDAANCgMBAQEDCgwMDAwMDAwAAAAMDAwMDAwJAgECCQ0AAAAAAAAA + AAAMAgEBAQIMAAAAAAAAAAAADAEBAQEBDAAAAAAAAAAAAAwCAQEBAgwAAAAAAAAAAAANCAIBAgkNAAAA + AAAAAAAAAA0MDAwNAADg/wAAgD8AAIA/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAAAACAAAAA4AEAAP8B + AAD/AQAA/wEAAP8BAAD/gwAAiVBORw0KGgoAAAANSUhEUgAAAQAAAAEACAYAAABccqhmAAAACXBIWXMA + AA7DAAAOwwHHb6hkAAAe2klEQVR4nO2dTWwcx5XH/9YaOXRflIOHe+TMyQDZgHyhhkAQk+Lcomjki2kQ + u2tJwCAJYMqiFcAmoA9LIkAHCMVxZCAJBpCo3QVh+iKOotyGGioXtnWIuGjyOmSO7BzMQ7ovvuyhu6kh + Rc70TL3q6o/3AwQJFPt19Uy/f716VfXqLTBMAnFddwzAGQCnAbzv/3gs5OXr/t8vAOwD2NQ0bf3E304x + b6luAMOEwXf4MXjOPibpNuvwRGE9K4LAAsDEFt/pPwZwEV5PHyX7AFYBPE6zGLAAMLHCdd3TAK7Bc/xB + ta05YBfAYwBVTdP2FbeFFBYAJha4rjsI4DaAS2pb0pUlAHc0TdtV3A4SWAAYpSTI8Y+yhBQIAQsAowzX + db8E8CmiH99TsQ/ga03TvlTdkH5hAWAix0/uPUJ8xvii7AK4nMRk4SnVDWCyheu6iwCaSI/zA96zNP1n + SxQcATCR4LruGXi9/hnVbZHMJrxoYFN1Q8LAAsBIx3Xdi/CcP6lj/V7ZhycCq6ob0g0eAjBScV33GoAn + yI7zA96zPvGfPdZwBMBIw3XdR0je9B41S5qmXVbdiJNgAWCkwM5/iNiKAAsAQw47/7HEUgRYABhS2Pk7 + EjsRYAFgyPCTXpHOhVuWBcuy0Gq1YNs2Wq1Wx98vFArI5XIoFAowDAOGYUTU0gNmNE2rRn3Tk2ABYEjw + p/qeyL6P4zgwTRMbGxswTZPEZrFYxOjoKIrFInRdJ7HZhQ/iMkXIAsAI4y/yaULiVF+r1cLTp0/RaDRk + 3QIAUCqVcOHCBRQKBZm32QcwHofFQiwAjDCu676CpBV+lmVheXkZlmXJMH8ihmGgUqnIFIJNTdPek2U8 + LCwAjBD++nfyBS+O46BWq0nv8btRKpVQqVRkDQ2qmqbNyDAcFhYApm/8XX1NarumaWJxcRGO41Cb7gtd + 1zEzM4NisSjD/LjKXYQsAEzfuK67A+JdfdVqVXmvfxLlchmVSoXa7K6maXlqo2HhvQBMX/jFPAap7DmO + g6tXr8bW+QGgXq/j6tWr1JHJoP9ZKoEjAKZn/DJer0CU9bdtG3Nzc13n8ONCoVDA/Pw8ZV5gH8B7KsqL + cQTA9MNtEDm/4ziYnp5OjPMD3pTk7OwsZSRwGt5nGjkcATA94ff+OxS2HMfB7Oxsopy/HQmRQD7qKIAj + AKZXyHqqJDs/8DoSICTyKIAFgAmNf2jHJQpb1Wo10c4f0Gq1UKvVqMxd8j/jyGABYHqBZMGPaZqxzvb3 + Sr1eJ9uXAAmLqjrBOQAmNBTz/o7j4MqVK7FZ5EOFrut4+PAhRT4g0nUBHAEwofBX/Q2K2qnVaqlzfuD1 + 0mUCBv3POhJYAJiwfCxqwLKsVIX+R2k0GlR5DeHPOiwsAExYLooaWF5epmhHrCGKAoQ/67CwADBd8UNS + oex0ULkn7QTViQQ5HdUwgAWACcOYqIG1tTWCZiSDp0+fUpgZozDSDRYAJgzvi1zsOE6qx/5HaTQaFIlO + oc88LCwATBjGRC4mnCNPDATPPEbQjK6wADAdoRiLbmxsELQkWVA8cxR5ABYAphvCtf44AuibQQojnWAB + YLohnP3PKgTPPkjQjI6wADDdEEpGsQAIIT0RyALASCUNO/76JQnPzgLAdGNM5GLbtomakTwInn2MoBkd + YQFgpJKEXlAWSXh2FgCGyTAsAAyTYVgAmBPxC4D2TZbH/0mBBYA5EdEKtblcjqgljCxYABgmw7AAMEyG + YQFgmAzDAsBIpVAoqG6CMpLw7CwATDc2RS7OciKQ4NmFPvswsAAw3dgXuTgJvaAsCJ5d6LMPAwsA0w2h + XsgwDKp2JA6CZ+cIgFHOP0QuZgEQQuizDwMLANMN4V6oWCxStCNRED0zRwCMWjRNWxe1MTo6StCSZEH0 + zCwATCwQehE5AuiLTU3TOAnIxIJ1kYt1XUepVCJqSvwplUoUpwSvEzSlKywATBheiBq4cOECRTsSAdGz + Cn/mYWABYLqiadoqCNYDZGFGwDAMqrUP6xRGusECwIRlVdTA1NQURTtiTaVSoTCzGsX4HwDejuImWaDt + BN3gII32ks5jfZpdb/v3i/afUWTne6QO4JKIAcMwUCqVUntOYKlUour96xRGwvBWVDdKC67rnoHn5IPw + nPwMBA/PEGDX//MCXqZ+U7SIRydc1/0Bgs/qOA6uXLlCcXhmrNB1HQ8fPqRI/u0DyEcVAbAAdMHv2cfg + OfuYyraEZB9elPB/8EJJsrlk13UXAVwTtWOaJubm5ghaFB9u3LhBNd25pGnaZQpDYWABOILfw48BKCMZ + Dt+NQBDqANZFIgS/RuAORaNqtRrq9cgiXamUy2WqsT8AvEcp2t1gAcCB038M4CIiOI9NMZsAHsOLDnZ7 + vdh13UcQzAUEXL16NRG18ztRKBTwhz/8gcrcuqZp41TGwpBZAfB7s0+RDac/iZ7FwB8SNSlu7jgOZmdn + EysChUIB8/PzFOP+gPGok7uZEgDXdU/Dc/hPQXDsdcpYBfDYn/PviOu6T+B9jsI4joOrV69ib2+Pwlxk + SHD+yHt/ICMC4Pf2t+G9tKoy9klhF15UUD0pE02ZCwCSFwlIcH5AQe8PpFwA/HA1CPOZ3lkCcOe44QHV + jEBAUkRAkvOvapr2AaXBsKRSAHzHv410ZPHjwBKAr9uz0/5wagfEEVWcZweIs/0B+/Ay/7vUhsOQKgFg + x5fOKoCZ4GV1XfcigCfUNzFNE4uLi7FZLKTrOmZmZmRta57RNK0qw3AYUiEA7PiRswR/aECZEGzHcRzU + ajXly4ZLpRIqlQp1yB+gJPHXTqIFoC25d0ltSzLLHXhi0ISkqdRWq4VarQbLsmSYPxHDMFCpVGRWNVYa + +gckVgBc1/0SXoKPs/pq2YcnAmQJweNotVp4+vSp9IigVCrhwoULUZQz/yDMlKtsEicAfrj/CNldvJNp + HMeBaZrY2NiAaZokNovFIkZHR1EsFmWF+ke5o2nal1HcqBuJEQA/63wbknsaJllYlgXLstBqtWDbdtdp + xEKhgFwud1CgREGRkkg3+3QjEQKQlF7/6EsYjFtt2+55pdvAwMDB0VKFQgG6rh96eRmGgtgLAPWCEyqC + XseyrFA9DzWBGAQlqLJQbouhJ7YC4O/Qe4SYrNkPQs3gTxwJQlpFoS2TQGIpAK7rXgKwCIUZ/iDZZFkW + NjY2YrMoJSy6rmN0dBSGYUSZ3GISRuwEQHXIb5omGo0GWYY5LhSLRZRKpUwe0sGcTGwEwM/yP4GC1Xy2 + baNer6PRaCSup++V4JCOcrlMcX49k3BiIQD+eP8JIs7ym6aJer0e2zG9bAzDQLlc5qggwygXAN/5m4hw + vL+2tobl5eXEFaGQxcDAAKampjAxMaG6KUzEKBUAP9n3KKr7seN3hoUgeygTgCidnx2/N1gIsoMSAYjK + +S3LwvLycmbH+KIYhoGpqSleU5BiIhcAyrLSJxGXveRpQfKeeEYhkQpAFM4ft2oyaUFyVRxGEZEJgOyw + 33EcLC4upm4BT9woFouYmZnhaCAlRCIAsp2fe/1o4WggPfyb7BvIdH7HcfD48WPUajX8+OOPMm7BHMOP + P/6Iv/3tb3AcB++++y5+8pOfqG4S0ydSIwB/kc8rGbZt28bc3Fzs68innUKhgBs3bmRyWXG1WlWeaH72 + 7JnQ9aeI2vEGbSv8yDFNE9PT0+z8MaDVamF6ejpzuZc4OD8FUoYA/saeJoB/p7Zdr9dRrVY55I8RwZBA + 13W8++67qpsjnTg5/9TUlND1siIAKRt7qtUqarUatVmGiFqthmpV2RkXkRAn56fgbWqD/n7+MUqbPMWX + HBqNBv71r3+lcqowbc4PEEcAfsaftJhHcGgkO39yME0Ts7OzqZqWTaPzA4QC4Cf9FqnsAck5MZZ5k1ar + lRoRSKvzA7QRwCMQ7uln508+aRCBNDs/QCQA/rifrHpvFpw/P5jHwsJ9LCzcR34wr7o50kiyCKTd+QGC + aUD/0I4/iTfFIyvOf/fuPeRyOfz09E/xs5/9DJuvXmF/f19106Twww8/4O9//zt+/vOfJ2bVYFKcX+k0 + oD/fT7rMd3FxMdXOr+s6Pv/8i0MZ8uN+ljZarRYWF0lTRNJIivNTIDoEuA3C+f5qtZr6bP/0J9PHLpvN + 5XKY/mRaQYuiwzTN2K8TyJLzAwIC4If+ZFN+QVnuuKHrOkZGzpLYOn/+lx1tjYycxfnzvyS518jI2VhG + FI1GA/V6XXUzjiVrzg+IRQBkob9pmrFb4afrOiYnP8Kf/vhn5PPiSTpd1zH54WTX35v8cJLEcfP5PP70 + xz9jcvKj2AlBrVaLXaSXRecH+hQA13W/BFHob9t2rMaG7Y4fOGOz+VzY7pXLV0I5oq7ruHL5ivD9ms3n + B6ITRyFYXFyEbduqmwEgu84P9CEArusOAviU4uaO42Bubi42U0Tj4+cOOT7gOZLoi5ofzGN8/FxP7RCd + GrRt+0C42oWgl3bIJC7ffZadH+gvArgNogU/y8vLscj45wfzuHf3HqY/mX6jl2w2xXc0X7nSe4/ezzVH + Odp2Xdcx/ck07t29F4u1B61WC8vLy8run3XnB3oUAD/xd4nixsGxXKqZnPwICwv3MTQ0/Mb/2baNre0t + IfvDQ8PH2u7G0NAwhvu4rp2t7a1jo5ehoWEsLNzH5ORHQvYpqNfrSvIB7PwevUYAtyluGuzuU0kul/Oc + oENi7tlfxaqtAMD4+LiSawM6PcPkh5NYWLivvJpP1PUc2flfE1oA/N5/jOKmqgt4joycxcLvuy/Bffny + e6H75HI5oTH3+Pg5Yefs9gz5wTwWfn+fbKqzH6LsENj5D9NLBEDS+5umqXQKaHLyI3wRYtXdzu6OcPLv + /C/OC11PYcO2bezs7nT8HV3X8cXnXygdEkTxXrDzv0koAaDq/VWH/tOfTIeaiwdokn8UGXcKG2ELR05+ + OKl0NaLMyJCd/3jCRgAkvX+tVlMS+uu6joWF+z05k2j4Pz5+jmTeXdd1YRHY7iGROT5+DgsL95WsGQiO + dKOgPZpg5z+ZrgJA1ftblqXkS9B1HXd7nPaiCP/PESTwqGyFGQa0E+xWVCECjUaD5DBXXddRrVbZ+bsQ + JgIgWfSjYr63H+cHxMP/XC7X19TfSQwNDQsnA3t9JpUiQPGuGIaBvb09dv4udBQAf9XfRdGbrK2tRX5E + d7/ODwDbW2Jz/zIy6qI2+3kmVSJgWRbW1taE7ZRKJYLWpJtuEQDJ2F9F79+v8/caLh8Hxfw9tc1+hzWB + CEQNxTszMTGBgYEBgtaklxMFwC/2QdL77+3tiZrpielPpvte6tpLwuw4crmclGW2+cG88DCg32fLD+Yj + nx3Y29sjiQImJiYIWpNeOkUAF0Gw5j/q3n9y8iOhrPnW9rbQ/SnH/tS2RZ5tfPxc5OsEKN6dcrlM0JL0 + 0kkAhJN/Uff+IyNnQ8/zn4RoBHB2ZEToepm2RZ9t8sPJSFcMUkQBuq7zMeYdOFYA/OSfcJXfKHt/ipJa + tm0LT//FOQKgeL6TSprJguId4mTgyZwUAQj3/qZpRtr7H7eVt1dEe8jhoWGpGXNd14V3CIo+Y7ClOCr2 + 9vaElwgXi8VYFUOJE28d90PXdXcgWPFndnY28qk/Jp0YhoH5+XkhG7VaLRbbz6kJu8z7JN6IAPwjvgZF + jNq2zc7PkGFZlvDQhWcDjue4IcDHokbTqLSMWkTfqUKhwGsCjuE4ARCe++fllww1FO8Uzwa8ySEBoAj/ + TdNUXuiRSR+O4wgnAw3DIGpNejgaAYyJGuTen5GF6LvFswFvclQAhJZNUag0w5wERXTJUcBhSCMAdn5G + NjwMoOVAAPzCH0Lw1B8jG9F3bHR0lKgl6aA9AhgTNbaxsSFqgmE6IvqO5XI5ng5so10A3hcxZFkWZ/8Z + 6TiOIxwF8HTga8giAA7/magQfdcqlQqLgM8p4GD+XwgWACYqKN61mZkZnhLE6wiABYBJDFRVgzkh+FoA + BkWMsPMzUUPxzvEw4LUACCUA43DEN5MtKN45HgIAb/t/Cw0BoogA/ue//1fKF+Y4Dv7zv/6j7+uHh4aV + VM0FgFu3bgodXx7XzzQMOztilZsZjyACECr+KbpXuxsyK+3sCpYATzKynp2iclE3KCIAnrYGTlGsAJQ9 + BBgalvsyiaCybVn+XCjeOV667kUAQr1/FOP/4aEhabaz3AvIfHaZ31mA6LvHO1c9ARAa/8sO/wFgUMJB + GwE7u7tC1+feeYemIQruLfrsnZD5nQVkWbypCHs8+InIjgByuVyss7VRlsiO0727oeu69PaJJp95Z6An + AEJTgLJVOIqehJEDf3fxJ/YRQD4v9yXK8nSS7GeX/d1xBCCOsADIRvYY2xWMYGSeBCT73qLP3g2V+REm + HKcguAtQdhIwzuNcpjOyvzvRdy/OuaWoEI4AZB//9c47LABJRZPsYKLvXqFQIGpJcon/EIAjgMSS5yRg + 7Im9ADAMIw8WAIbJMCwADJNhhAQgilWAcYbHuEzSERIA2VnUKPYZ2P/s/x47Gd5KzKSDzA8BcjzNyGSY + zAsAw2QZFgCGyTAsAAyTYWIvAJxoSy783cUfYQGQfdCi7B1rjDxkf3ei7x6Xs/cEYF3EQNx3fDHqiPtO + US4ploAhgP3Pf0q1L7pjbVugLr8ooveWvVtP9nfHiCMsALKrqiS9ak2cSXq1JdF3j4+08wTghepGdCLL + B3ckHf7u4o9wBBDFcuA4j9VU5ijinB9xHEd6+0QjAE4CegKwKWIgig07MnuS/OCg0PUqx7mi9xZ99k5E + 0fuLlvSKc8cSFacA7IsYiKKs0tb2tjTbWa4LJ/PZZX5nASLvHo//PU5pmrYuakS2CGxvqcu0d0Nl27L8 + uYi+c9z7ewQ5AKEoQPYwYGt7S9oXluXDK2Q9u+M4QseWh0FUAHj87/EWALiu24RAefB6vY5arUbVJobp + SqVSQblcVt2MxBNEAEJTgVxemYkafudoCARgV8QIH7HERA2/czQEAiA0FQjwF8JEB79rdJwCAE3TWACY + xMDvGh3tKwHXRQzxl8JEBb9rdLQLgFAi0DCMTC+qYaJB13UWAELIIgAAGB0dFTXBMB3hd4yWAwGgWBHI + yszIht8xWo7uBlwXMVYsFkUuZ5iu8DtGy1EBqIsY03WdvyBGGsVikfNMxJBGAABQKpVETTDMsfC7Rc8h + AfDXA+yKGGSVZmTA0aUcjqsItCpqlJWaoYbfKTkcJwCPRY3yLi2GGn6n5PCGAFAMA3K5HE/XMGQYhhFJ + 6bks8vYJP18FcE3EcLlcjrTs0r279zA0NCxko9l8jgffPOj7+uGhYdy9e0+oDd24deumULGN6U+mMT5+ + TqgN29tbuHnrppCNXiDq/S9rmrZEYShNnFQV+GtRw8ViUfqxYe08+OaBcNUgUQGRWbkIoKm0I/qMjuMI + iWSvDAwMUCX/hHNbaeRYAdA0bRcEW4SnpqZETYTGtm3hFzOXywmHmjJPChK1TfF8D755EGk5cqJ3aEnT + NKGyd2ml07kAwlHAxMREpFHAy5ffY+W7FSEboj3k9y9fCl0v07bos618t4KXL78XstELAwMDmJiYoDAl + tMAtzXQSgFUIFgsFoo0CAGBl5Vs0m8/7vn54aEjo/nGOAESerdl8jpWVb4Xu3ytE786upmkc/p/AiQLg + h0zCH1zUUQDghan9nk0v2kvatt33vTuxs7sjHHr3+2w7uzuRjvsB0t5fOJJNM92OBrtDcZOoowDAy5b3 + 44i5XA55wXLZzWZT6HoZNvOD+b7G/zu7O7gVYcY/gOid2QewRGEorXQUAD8ZSBIFRL0uwHGcvkVgaFgs + CpAxTha12c8zBc4f9SEahmFQ9f6rnPzrTJjDQUlCKBVRQL8iMD4+LnRf27ZJcwHb21vC4X+vz6TK+QHS + d4Ukgk0zXQXALxSyLnojwzCUrOfuRwT6DZfbeU44DBC11euwRqXzl0olqmhxyY9gmQ6EPR6cREkrlYqS + nYKO4+D69c96mh0YGTkrdM9m8zmJAzmOIzSrAfSW/Gs2n+P69c+UOL+u66hUKlTmuPcPQSgBoIoCdF3H + zMyMqJm+efDNg9DrBESHAQCEHZfKxvnz50P93sp3K5Fn+9uZmZmh6iC49w9J2AgAIFLUYrGodF/3ysq3 + +Op3X3Xt4SiGAc/++kzoegobYcJ/x3Hw1e++inyevx3i94J7/5CEFgCqKAAgVfq+ePnye1z/7WddE3Wi + wwDbtoV68GbzuXDyr9szbG9v4fpvP4t0hd9RiCND7v17oJcIACBSVtVDAcBzzpu3bnYcEpz/RbjQuRMi + 8/cU6wk6PcPKdyu4eetmpGv7j4OwQ9gH9/490ZMA+FHAEsWNi8ViLIo8rKx8i+vXj48Gcrkchgl2CPYz + Jbi9vSW88294aPjYYcz29hauX/9MacgfUC6XKUP/r7n3741eIwDAU1iSxRVTU1OxOOZ5Z3cHN2/dPHZL + MUUy8OHDh5Fcc5SjbQ+28t7sc4EUNYVCgXLOfxdAlcpYVuhZAHyFJVkcpOs6bty4EZsios3mc/z6N7/C + yncrB0IwPn5OOBm4s7vTUy6g2Xwu7KC5XO6g8IfjOFj5bgW//s2vSGYVKJDw3c/wqr/e6ScCgKZpX0Kw + bFhALpdTng9ox3EcrKx8e0gIRCvoAMDDRw9Dza07joOHjyh6/3OHHH9l5Vslc/snMTMzQ1nma513/PXH + W/1e6LruGACy5W71eh21Wo3KHBm6rmNoaJgkS37+/C9x5fKVjr/z8NFDPHv2F+F7jYycxbbkCkX9UqlU + qPM/eR7790dfEQBwkBAkG3OVy+VYln52HIdsiuzZs790tPXy5fckzh/YiqPzl0olaue/w87fP30LgM8d + EA0FAODatWupP/zhpFoFFCXN4k6xWMS1a0K1Zo+y6Q9HmT4REgA/6XKZqC0AvLFhHGYGZOE4Dr55cHi2 + wXEc/C7E6sQkUygUqHM95O9eFuk7B9CO67qLECwj3o7jOJidnUWr1aIyGTtyuRw+//wLAMA3D/qvYJQE + CoUC5ufnqWd7ZjRN42k/QUgEAABc130F4AyVvSyIQBaQ5PzrmqaJL9BghHMA7VwG0QIhwMu+z8/Pp3o4 + kHYkOf8+gA8oDWYZMgHwjxQjHeSxCCQXSc4PAB/wgh86KCMA+EcvkY7LAhFI++xAmigWi7Kcf8affmaI + IMsBtOO6bhPAGLXdarWKRqNBbZYhpFQqUU/1BSxpmsZZf2JkCcBpAK8ADFLbjuuKQUbKCr+ATQDjHPrT + I0UAAMB13TPwlgqfprZtmiYWFxdTPW+eJIL6DpKGafvwlvqy80tAmgAAByLwSoZt27YxNzfH04SKKRQK + uHHjBuXGnnb24fX8wgfVMscjVQAAwHXdSwAeybDtOA6Wl5dRr/PZjyool8uYmpqSuZ37PXZ+uUgXAECu + CAA8JIgaySF/wGV/VomRSCQCAMgXAcdxsLi4CNM0Zd2CgTfFF0FRV3b+iIhMAADAdd1HAC7JvAdHA3KI + qNcH2PkjJVIBAKIRAcdxUKvVeM0AEaVSKapTndj5IyZyAQDkDwcCLMvC8vIyLMuSfatUYhgGpqamojrZ + mZ1fAUoEAIhOBABgbW0Ny8vL2Nvbi+J2iWdgYABTU1NUR3SHgZ1fEcoEAIhWBAAWgm4ocPx9eJt71qO6 + IXMYpQIAyF0xeBIsBIdR4PgAL/KJBcoFADgQgSeQsHegE6Zpol6vZzZHYBgG9ck8YdmE1/PvRn1j5jCx + EADgYAPRE0jYRdgN27ZRr9fRaDRSP32o6/pBZV5Jy3e7sQpvzM9r+2NAbAQggLq+YK+YpolGo5G6BUXF + YhGlUkl1XYU7XMU3XsROAICD5OAiIswLHMVxHJimCcuysLGxkbjIQNd1jI6OwjAMFItF1cevcbIvpsRS + AICDvMAjEBYaFcGyrEN/4ohhGIf+xIR1eCH/ruJ2MMcQWwEIUD0kOAnLstBqtbCzs4NWqxX5tuRCoYBC + oYB8Po9CoRAnh2+HQ/6YE3sBAA7OIXyEiGcJeqXVasFxnIMIIfjbtu2epxwHBgYOknSBcxuGAV3Xk1Ak + dRNer89TfDEnEQIAHMwS3EYMowHmEHcAVDnLnwwSIwABSYkGMgj3+gkkcQIQ4LrulwA+hcKZAgaAl+G/ + w8d0JZPECgAAuK47CG9YcEltSzLLErxa/RzuJ5REC0CAPyy4DQWrCDPKOnhqLxWkQgACWAiksw4v3F9X + 3A6GiFQJQAALATnrYMdPJakUgABfCD4FcFFxU5LKEoDH7PjpJdUCENCWLLwInjXoxj48x/+ax/jpJxMC + EOAvJroILyqIxR6DGLEO4DGAVc7qZ4dMCUA7flQQDA8GlTZGHbvw9udzb59RMisA7fg7Dz9GNsRgF57T + P+ZVewwLwBF8MRgDUEZ6ZhFWAbyAF97vKm4LEyNYALrgzySMAXgfyRCEfXjr8l8AWOcMPtMJFoAe8SOE + M/CGCu/7/1Y1s9Du7LsANjmsZ3qBBYAIP1I4jdezC++3/fdYn2bX2/79wv97E8A+9+wMBf8PN1/EL7TJ + N3sAAAAASUVORK5CYIIoAAAAMAAAAGAAAAABACAAAAAAAIAlAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2UPb29o/29vbP9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2v/b29o/29vZQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2IPb29o/29vbv9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb27/b29oD29vYQAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vaA9vb27/b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vbv9vb2gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2IPb2 + 9s/29vb/9vb2//b29v/29vb/4ODg/6enp/9vb2//TU1N/0JCQv9CQkL/QkJC/0JCQv9NTU3/b29v/6en + p//g4OD/9vb2//b29v/29vb/9vb2//b29s/29vYgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD29vYw9vb27/b29v/29vb/9vb2/9TU1P9vb2//QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/b29v/9TU1P/29vb/9vb2//b29v/29vbv9vb2MAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAPb29jD29vbv9vb2//b29v/r6+v/kZGR/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv+RkZH/6+vr//b29v/29vb/9vb27/b2 + 9jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA9vb2IPb29u/29vb/9vb2/+vr6/9kZGT/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/ZGRk/+vr + 6//29vb/9vb2//b29u/29vYgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2z/b29v/29vb/6+vr/2RkZP9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/25tbv+amZn/mpmZ/3l4eP9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/2RkZP/r6+v/9vb2//b29v/29vbPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vaA9vb2//b29v/r6+v/ZGRk/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/WFhY/25tbv9CQkL/QkJC/9vZ2v/x7/D/8e/w/9vZ2v9CQkL/QkJC/25t + bv9YWFj/QkJC/0JCQv9CQkL/QkJC/0JCQv9kZGT/9vb2//b29v/29vb/9vb2gAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29iD29vbv9vb2//b2 + 9v+RkZH/QkJC/0JCQv9CQkL/QkJC/0JCQv+Eg4P/5uTl/25tbv9CQkL/Y2Jj//Hv8P/x7/D/8e/w//Hv + 8P9jYmP/QkJC/25tbv/m5OX/hIOD/0JCQv9CQkL/QkJC/0JCQv9CQkL/kZGR//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/AAAAAPb2 + 9o/29vb/9vb2/9TU1P9CQkL/QkJC/0JCQv9CQkL/QkJC/6+ur//x7/D/8e/w/0JCQv9CQkL/mpmZ//Hv + 8P/x7/D/8e/w//Hv8P+amZn/QkJC/0JCQv/x7/D/8e/w/6+ur/9CQkL/QkJC/0JCQv9CQkL/QkJC/9TU + 1P/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/AAAAAPb29u/29vb/9vb2/29vb/9CQkL/QkJC/0JCQv9CQkL/j46O//Hv8P/x7/D/xcTF/0JC + Qv9CQkL/xcTF//Hv8P/x7/D/8e/w//Hv8P/FxMX/QkJC/0JCQv/FxMX/8e/w//Hv8P+Pjo7/QkJC/0JC + Qv9CQkL/QkJC/29vb//29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2UPb29v/29vb/4ODg/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/g4OD/9vb2/+vr6/9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v/29vb/9vb2j/b29v/29vb/p6en/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv+np6f/9vb2//b29v9vb2//QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v/29vb/9vb2z/b29v/29vb/b29v/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9vb2//9vb2//b2 + 9v+cnJz/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/TU1N/0JCQv9CQkL/QkJC/3l4eP/x7/D/8e/w//Hv8P/x7/D/bm1u/0JCQv9ubW7/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/bm1u/0JCQv9ubW7/8e/w//Hv8P/x7/D/8e/w/3l4eP9CQkL/QkJC/0JC + Qv9NTU3/9vb2//b29v++vr7/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/QkJC/0JCQv9CQkL/QkJC/5qZmf/x7/D/8e/w//Hv8P/x7/D/bm1u/0JC + Qv9ubW7/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/bm1u/0JCQv9ubW7/8e/w//Hv8P/x7/D/8e/w/5qZ + mf9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v/Jycn/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/9vb2//b29v/29vb/9vb2//b29v/29vb/QkJC/0JCQv9CQkL/QkJC/6SjpP/x7/D/8e/w//Hv + 8P/x7/D/bm1u/0JCQv+amZn/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/mpmZ/0JCQv9ubW7/8e/w//Hv + 8P/x7/D/8e/w/5qZmf9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v/Jycn/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v/29vb/9vb2//b29v/29vb/QkJC/0JCQv9CQkL/QkJC/6Sj + pP/x7/D/8e/w//Hv8P/x7/D/Y2Jj/0JCQv+amZn/8e/w//Hv8P/x7/D/8e/w//Hv8P/x7/D/mpmZ/0JC + Qv9ubW7/8e/w//Hv8P/x7/D/8e/w/5qZmf9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v/Jycn/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v/29vb/9vb2//b29v/29vb/QkJC/0JC + Qv9CQkL/QkJC/5qZmf/x7/D/8e/w//Hv8P/x7/D/bm1u/0JCQv9ubW7/8e/w//Hv8P/x7/D/8e/w//Hv + 8P/x7/D/bm1u/0JCQv9ubW7/8e/w//Hv8P/x7/D/8e/w/5qZmf9CQkL/QkJC/0JCQv9CQkL/9vb2//b2 + 9v/Jycn/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/TU1N/0JCQv9CQkL/QkJC/3l4eP/x7/D/8e/w//Hv8P/x7/D/bm1u/0JCQv9ubW7/8e/w//Hv + 8P/x7/D/8e/w//Hv8P/x7/D/bm1u/0JCQv9ubW7/8e/w//Hv8P/x7/D/8e/w/3l4eP9CQkL/QkJC/0JC + Qv9NTU3/9vb2//b29v++vr7/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b2 + 9v/29vb/9vb2z/b29v/29vb/b29v/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9vb2//9vb2//b29v+cnJz/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/9vb2//b29v/29vb/9vb2j/b29v/29vb/p6en/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv+np6f/9vb2//b29v+RkZH/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v/29vb/9vb2UPb29v/29vb/4ODg/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/g4OD/9vb2//b29v/29vb/ZGRk/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v/29vb/AAAAAPb29u/29vb/9vb2/29v + b/9CQkL/QkJC/0JCQv9CQkL/j46O//Hv8P/x7/D/xcTF/0JCQv9CQkL/xcTF//Hv8P/x7/D/8e/w//Hv + 8P/FxMX/QkJC/0JCQv/FxMX/8e/w//Hv8P+Pjo7/QkJC/0JCQv9CQkL/QkJC/3p6ev/29vb/9vb2//b2 + 9v/29vb/4ODg/01NTf9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v/29vb/AAAAAPb2 + 9o/29vb/9vb2/9TU1P9CQkL/QkJC/0JCQv9CQkL/QkJC/6+ur//x7/D/8e/w/0JCQv9CQkL/mpmZ//Hv + 8P/x7/D/8e/w//Hv8P+amZn/QkJC/0JCQv/x7/D/8e/w/6+ur/9CQkL/QkJC/0JCQv9CQkL/QkJC/9TU + 1P/29vb/9vb2//b29v/29vb/9vb2/76+vv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b2 + 9v/29vb/AAAAAPb29iD29vbv9vb2//b29v+RkZH/QkJC/0JCQv9CQkL/QkJC/0JCQv+Eg4P/5uTl/25t + bv9CQkL/Y2Jj//Hv8P/x7/D/8e/w//Hv8P9jYmP/QkJC/25tbv/m5OX/hIOD/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/kZGR//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v+RkZH/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/9vb2//b29v/29vb/AAAAAAAAAAD29vaA9vb2//b29v/r6+v/ZGRk/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/WFhY/25tbv9CQkL/QkJC/9vZ2v/x7/D/8e/w/9vZ2v9CQkL/QkJC/25tbv9YWFj/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9kZGT/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/AAAAAAAAAAAAAAAA9vb2z/b29v/29vb/6+vr/2Rk + ZP9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/3l4eP+amZn/mpmZ/3l4eP9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/2RkZP/r6+v/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/AAAAAAAAAAAAAAAA9vb2IPb2 + 9u/29vb/9vb2/+vr6/9kZGT/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/ZGRk/+vr6//29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/AAAAAAAA + AAAAAAAAAAAAAPb29jD29vbv9vb2//b29v/r6+v/kZGR/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv+RkZH/9vb2//b29v/29vb/6+vr/5GR + kf9ZWVn/QkJC/0JCQv9CQkL/WVlZ/5GRkf/r6+v/9vb2//b29v/29vb/9vb2nwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vYw9vb27/b29v/29vb/9vb2/9TU1P9vb2//QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/b29v/9TU1P/29vb/9vb2//b2 + 9v++vr7/TU1N/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9NTU3/vr6+//b29v/29vb/9vb2//b2 + 9nAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2IPb29s/29vb/9vb2//b2 + 9v/29vb/4ODg/6enp/9vb2//TU1N/0JCQv9CQkL/QkJC/0JCQv9NTU3/b29v/6enp//g4OD/9vb2//b2 + 9v/29vb/9vb2/76+vv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/76+ + vv/29vb/9vb2//b29u/29vYQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD29vaA9vb27/b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/6+vr/01NTf9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/01NTf/r6+v/9vb2//b29v/29vZwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA9vb2IPb29oD29vbv9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/kZGR/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv+RkZH/9vb2//b29v/29va/AAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2UPb29o/29vbP9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2v/b29o/29vZQ9vb2//b29v/29vb/WVlZ/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9ZWVn/9vb2//b29v/29vb/AAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2//b29v/29vb/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b2 + 9v/29vb/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2//b2 + 9v/g4OD/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/9vb2//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA9vb2//b29v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA9vb2//b29v/29vb/WVlZ/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9ZWVn/9vb2//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2r/b29v/29vb/kZGR/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv+RkZH/9vb2//b29v/29vavAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2YPb29v/29vb/6+vr/01N + Tf9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/01NTf/r6+v/9vb2//b2 + 9v/29vZgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb2 + 9t/29vb/9vb2/76+vv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/76+ + vv/29vb/9vb2//b29t8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAPb29lD29vb/9vb2//b29v++vr7/TU1N/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9NTU3/vr6+//b29v/29vb/9vb2//b29lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vaP9vb2//b29v/29vb/6+vr/5GRkf9ZWVn/QkJC/0JC + Qv9CQkL/WVlZ/5GRkf/r6+v/9vb2//b29v/29vb/9vb2jwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2j/b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vaPAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb2 + 9lD29vbf9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb23/b29lAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA9vb2YPb29q/29vb/9vb2//b29v/29vb/9vb2//b29q/29vZgAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//AA////AAD/gAAf//8AAP8AAA///wAA/AAAA/// + AAD4AAAB//8AAPAAAAD//wAA4AAAAH//AADgAAAAf/8AAMAAAAA//wAAgAAAAAAAAACAAAAAAAAAAIAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAgAAAAAAAAACAAAAAAAAAAIAA + AAAAAAAAwAAAAAAAAADgAAAAAAAAAOAAAAAAAAAA8AAAAAAfAAD4AAAAAA8AAPwAAAAABwAA/wAAAAAH + AAD/gAAAAAcAAP/wAAAABwAA////AAAHAAD///8AAAcAAP///wAABwAA////AAAHAAD///8AAAcAAP// + /wAABwAA////gAAPAAD///+AAA8AAP///8AAHwAA////4AA/AAD////wAH8AAP////wB/wAAKAAAACAA + AABAAAAAAQAgAAAAAACAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD29vZQ9vb2n/b29t/29vb/9vb2//b29v/29vb/9vb23/b29p/29vZQAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD29vZA9vb23/b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vbf9vb2QAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA9vb2j/b29v/29vb/4ODg/5GRkf9kZGT/QkJC/0JCQv9CQkL/QkJC/2RkZP+RkZH/4ODg//b2 + 9v/29vb/9vb2jwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAPb29p/29vb/9vb2/5GRkf9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/kZGR//b29v/29vb/9vb2nwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAD29vaP9vb2/+vr6/9kZGT/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/ZGRk/+vr6//29vb/9vb2jwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA9vb2QPb29v/r6+v/ZGRk/0JCQv9CQkL/QkJC/25tbv9YWFj/QkJC/7q5 + uv+6ubr/QkJC/1hYWP9ubW7/QkJC/0JCQv9CQkL/ZGRk//b29v/29vb/9vb2QAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vbf9vb2/5GRkf9CQkL/QkJC/0JCQv+ko6T/8e/w/01N + Tf9jYmP/8e/w//Hv8P9jYmP/TU1N//Hv8P+ko6T/QkJC/0JCQv9CQkL/kZGR//b29v/29vbfAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2UPb29v/g4OD/QkJC/0JCQv9CQkL/pKOk//Hv + 8P+6ubr/QkJC/6SjpP/x7/D/8e/w/6SjpP9CQkL/urm6//Hv8P+ko6T/QkJC/0JCQv9CQkL/4ODg//b2 + 9v/29vZQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vaf9vb2/5GRkf9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv+RkZH/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29t/29vb/ZGRk/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/2RkZP/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v9CQkL/QkJC/0JCQv/x7/D/8e/w//Hv8P9ubW7/QkJC//Hv8P/x7/D/8e/w//Hv8P9CQkL/bm1u//Hv + 8P/x7/D/8e/w/0JCQv9CQkL/QkJC//b29v/Jycn/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b2 + 9v/29vb/6+vr/0JCQv9CQkL/TU1N//Hv8P/x7/D/8e/w/25tbv9NTU3/8e/w//Hv8P/x7/D/8e/w/0JC + Qv9ubW7/8e/w//Hv8P/x7/D/QkJC/0JCQv9CQkL/9vb2/8nJyf9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv/29vb/9vb2//b29v/r6+v/QkJC/0JCQv9NTU3/8e/w//Hv8P/x7/D/bm1u/01NTf/x7/D/8e/w//Hv + 8P/x7/D/QkJC/25tbv/x7/D/8e/w//Hv8P9CQkL/QkJC/0JCQv/29vb/ycnJ/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC//b29v/29vb/9vb2//b29v9CQkL/QkJC/0JCQv/x7/D/8e/w//Hv8P9ubW7/QkJC//Hv + 8P/x7/D/8e/w//Hv8P9CQkL/bm1u//Hv8P/x7/D/8e/w/0JCQv9CQkL/QkJC//b29v/Jycn/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v/29vbf9vb2/2RkZP9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9kZGT/9vb2/7Oz + s/9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2//b29p/29vb/kZGR/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/5GR + kf/29vb/enp6/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v/29vb/9vb2UPb29v/g4OD/QkJC/0JC + Qv9CQkL/pKOk//Hv8P+6ubr/QkJC/6SjpP/x7/D/8e/w/6SjpP9CQkL/urm6//Hv8P+ko6T/QkJC/0JC + Qv9CQkL/4ODg/+vr6/9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v8AAAAA9vb23/b2 + 9v+RkZH/QkJC/0JCQv9CQkL/pKOk//Hv8P9NTU3/Y2Jj//Hv8P/x7/D/Y2Jj/01NTf/x7/D/pKOk/0JC + Qv9CQkL/QkJC/5GRkf/29vb/6+vr/4aGhv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2/wAA + AAD29vZA9vb2/+vr6/9kZGT/QkJC/0JCQv9CQkL/bm1u/1hYWP9CQkL/urm6/7q5uv9CQkL/WFhY/25t + bv9CQkL/QkJC/0JCQv9kZGT/6+vr//b29v/29vb/9vb2/4aGhv9CQkL/QkJC/0JCQv9CQkL/QkJC//b2 + 9v/29vb/AAAAAAAAAAD29vaP9vb2/+vr6/9kZGT/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/ZGRk/+vr6//29vb/9vb2//b29v/29vb/9vb2/4aGhv9CQkL/QkJC/0JC + Qv9CQkL/9vb2//b29v8AAAAAAAAAAAAAAAD29vaf9vb2/+vr6/+RkZH/QkJC/0JCQv9CQkL/QkJC/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/5GRkf/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2/wAAAAAAAAAAAAAAAAAAAAD29vaP9vb2//b29v/g4OD/kZGR/2Rk + ZP9CQkL/QkJC/0JCQv9CQkL/ZGRk/5GRkf/g4OD/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/AAAAAAAAAAAAAAAAAAAAAAAAAAD29vZA9vb23/b2 + 9v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2//b29v/29vbv9vb2//b29v++vr7/WVlZ/0JC + Qv9CQkL/WVlZ/76+vv/29vb/9vb27/b29iAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA9vb2UPb29p/29vbf9vb2//b29v/29vb/9vb2//b29t/29vaf9vb2UPb29p/29vb/vr6+/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/76+vv/29vb/9vb2nwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb27/b2 + 9v9ZWVn/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/WVlZ//b29v/29vbvAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD29vb/6+vr/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/9vb2//b29v8AAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAPb29v/r6+v/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv/29vb/9vb2/wAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAA9vb27/b29v9ZWVn/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/WVlZ//b2 + 9v/29vbvAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD29vaf9vb2/76+vv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JC + Qv++vr7/9vb2//b29p8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29iD29vbv9vb2/76+vv9ZWVn/QkJC/0JC + Qv9ZWVn/vr6+//b29v/29vbv9vb2IAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29jD29vbv9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/9vb27/b29jAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb2 + 9iD29vaf9vb27/b29v/29vb/9vb27/b29p/29vYgAAAAAAAAAAAAAAAAAAAAAAAAAAD+AH//+AAf//AA + D//gAAf/wAAD/4AAAf+AAAH/AAAA/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIAA + AACAAAAAwAAAAOAAAADwAAAA+AAAB/4AAAf//4AH//+AB///gAf//4AH//+AB///gAf//8AP///gHygA + AAAQAAAAIAAAAAEAIAAAAAAAQAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29lD29vbP9vb2//b2 + 9v/29vb/9vb2z/b29lAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29oDg4OD/enp6/0JC + Qv9CQkL/QkJC/3p6ev/g4OD/9vb2gAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb29lDg4OD/TU1N/6Sj + pP9CQkL/8e/w/0JCQv+ko6T/TU1N/+Dg4P/29vZQAAAAAAAAAAAAAAAAAAAAAAAAAAD29vbPenp6/6Sj + pP/x7/D/QkJC//Hv8P9CQkL/8e/w/6SjpP96enr/9vb2//b29v/29vb/9vb2//b29v/29vb/9vb2/0JC + Qv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/8nJyf9CQkL/QkJC/0JCQv9CQkL/9vb2/+Dg + 4P9CQkL/8e/w//Hv8P9CQkL/8e/w/0JCQv/x7/D/8e/w/0JCQv/Jycn/QkJC/0JCQv9CQkL/QkJC//b2 + 9v/29vb/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/QkJC/0JCQv9CQkL/ycnJ/0JCQv9CQkL/QkJC/0JC + Qv/29vb/9vb2z3p6ev+ko6T/8e/w/0JCQv/x7/D/QkJC//Hv8P+ko6T/enp6/5GRkf+Ghob/QkJC/0JC + Qv9CQkL/9vb2//b29lDg4OD/TU1N/6SjpP9CQkL/8e/w/0JCQv+ko6T/TU1N/76+vv+cnJz/9vb2/5GR + kf9CQkL/QkJC//b29v8AAAAA9vb2gODg4P96enr/QkJC/0JCQv9CQkL/enp6/+Dg4P/29vb/9vb2//b2 + 9v/29vb/9vb2//b29v/29vb/AAAAAAAAAAD29vZQ9vb2z/b29v/29vb/9vb2//b29s/29vbfycnJ/01N + Tf9CQkL/TU1N/8nJyf/29vaPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA9vb2/01N + Tf9CQkL/QkJC/0JCQv9NTU3/9vb2/wAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAPb2 + 9v9CQkL/QkJC/0JCQv9CQkL/QkJC//b29v8AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAD29vb/TU1N/0JCQv9CQkL/QkJC/01NTf/29vb/AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAA9vb2j76+vv9NTU3/QkJC/01NTf/Jycn/9vb2jwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAD29vaP9vb2//b29v/29vb/9vb2jwAAAAAAAAAAwH8AAIA/AAAAHwAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAgAAAAMABAAD/AQAA/wEAAP8BAAD/AQAA/4MAAA== \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmCockpit.vb b/app/DD-Record-Organiser/frmCockpit.vb index 2fab8ad..35713a0 100644 --- a/app/DD-Record-Organiser/frmCockpit.vb +++ b/app/DD-Record-Organiser/frmCockpit.vb @@ -9,34 +9,47 @@ End Function Sub Load_Task_Over_All() Try - Dim captiongrbx - captiongrbx = CURRENT_TASKS_GENERAL.Rows.Count & " Tasks - Team/Group" - grbxTasksGeneral.Text = captiongrbx - Dim i As Integer - Dim _col As Color = Color.White - - - For Each row As DataRow In CURRENT_TASKS_GENERAL.Rows - 'Dim i = row.Item(0) - 'Dim y = row.Item(1) - Dim _string = row.Item(0).ToString & "-" & row.Item(1) - - With ListViewTasksGeneral.Items.Add(_string.ToString, 0) - '.SubItems.Add(row.Item(1)) - '.SubItems.Add("Dritte Spalte") - .Tag = row.Item(0) - .BackColor = _col - End With - i += 1 - ' ListViewTasksGeneral.Items(i).BackColor = _col - If _col = Color.White Then - _col = Color.Lavender - Else - _col = Color.White - End If - + + + Dim sql = String.Format("SELECT WF_ID AS [Workflow-ID], RECORD_ID AS [Record-ID], RECORD_DESCRIPTION as 'Beschreibung',dbo.FNPMO_GETOBJECTCAPTION('{0}', 'TASK_TITLE' + CONVERT(VARCHAR(5), WF_ID), 1) AS [Workflow-Title], " & _ + "dbo.FNPMO_GETOBJECTCAPTION('{0}', " & _ + "'FORMVIEW_TITLE' + CONVERT(VARCHAR(5), FORM_VIEW_ID), 1) AS 'Entity-Title', dbo.FNPMO_GETOBJECTCAPTION('{0}', 'WF_STATE_TITLE' + CONVERT(VARCHAR(5), STATE_ID), 1) AS 'State-Title', " & _ + "COMMENT, DUE_DATE, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, TASK_DATE, FINAL, COLOR FROM VWPMO_WF_ACTIVE AS T " & _ + "WHERE (WF_TASK_ID NOT IN (SELECT WF_TASK_ID FROM VWPMO_WF_USER_EXCLUSIV " & _ + "WHERE (WF_TASK_ID NOT IN (SELECT WF_TASK_ID FROM VWPMO_WF_USER_EXCLUSIV AS VWPMO_WF_USER_EXCLUSIV_1 WHERE (UPPER(USERNAME) = UPPER('{1}'))))))", USER_LANGUAGE, Environment.UserName) + Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) + If Not DT Is Nothing Then + GridControl1.DataSource = DT + Dim captiongrbx + captiongrbx = DT.Rows.Count & " Tasks - Team/Group" + grbxTasksGeneral.Text = captiongrbx + Dim i As Integer + Dim _col As Color = Color.White + + + For Each row As DataRow In CURRENT_TASKS_GENERAL.Rows + 'Dim i = row.Item(0) + 'Dim y = row.Item(1) + Dim _string = row.Item("WF_ID").ToString & "-" & row.Item("WF_TITLE") & "/" & row.Item("ENTITY_TITLE") + + With ListViewTasksGeneral.Items.Add(_string.ToString, 0) + '.SubItems.Add(row.Item(1)) + '.SubItems.Add("Dritte Spalte") + .Tag = row.Item(0) + .BackColor = _col + End With + i += 1 + ' ListViewTasksGeneral.Items(i).BackColor = _col + If _col = Color.White Then + _col = Color.Lavender + Else + _col = Color.White + End If + + + Next + End If - Next Catch ex As Exception End Try diff --git a/app/DD-Record-Organiser/frmConfig_Basic.Designer.vb b/app/DD-Record-Organiser/frmConfig_Basic.Designer.vb index 6db5293..3f4121a 100644 --- a/app/DD-Record-Organiser/frmConfig_Basic.Designer.vb +++ b/app/DD-Record-Organiser/frmConfig_Basic.Designer.vb @@ -39,6 +39,10 @@ Partial Class frmConfig_Basic Me.txtPasswort = New System.Windows.Forms.TextBox() Me.BtnConnect = New System.Windows.Forms.Button() Me.TabPage2 = New System.Windows.Forms.TabPage() + Me.GroupBox5 = New System.Windows.Forms.GroupBox() + Me.Label11 = New System.Windows.Forms.Label() + Me.Label10 = New System.Windows.Forms.Label() + Me.txtTask_Popup = New System.Windows.Forms.TextBox() Me.GroupBox4 = New System.Windows.Forms.GroupBox() Me.Button3 = New System.Windows.Forms.Button() Me.cmbLanguage = New System.Windows.Forms.ComboBox() @@ -68,6 +72,7 @@ Partial Class frmConfig_Basic Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() Me.TabPage2.SuspendLayout() + Me.GroupBox5.SuspendLayout() Me.GroupBox4.SuspendLayout() Me.GroupBox3.SuspendLayout() Me.GroupBox2.SuspendLayout() @@ -176,6 +181,7 @@ Partial Class frmConfig_Basic 'TabPage2 ' resources.ApplyResources(Me.TabPage2, "TabPage2") + Me.TabPage2.Controls.Add(Me.GroupBox5) Me.TabPage2.Controls.Add(Me.GroupBox4) Me.TabPage2.Controls.Add(Me.GroupBox3) Me.TabPage2.Controls.Add(Me.GroupBox2) @@ -187,6 +193,30 @@ Partial Class frmConfig_Basic Me.TabPage2.Name = "TabPage2" Me.TabPage2.UseVisualStyleBackColor = True ' + 'GroupBox5 + ' + resources.ApplyResources(Me.GroupBox5, "GroupBox5") + Me.GroupBox5.Controls.Add(Me.Label11) + Me.GroupBox5.Controls.Add(Me.Label10) + Me.GroupBox5.Controls.Add(Me.txtTask_Popup) + Me.GroupBox5.Name = "GroupBox5" + Me.GroupBox5.TabStop = False + ' + 'Label11 + ' + resources.ApplyResources(Me.Label11, "Label11") + Me.Label11.Name = "Label11" + ' + 'Label10 + ' + resources.ApplyResources(Me.Label10, "Label10") + Me.Label10.Name = "Label10" + ' + 'txtTask_Popup + ' + resources.ApplyResources(Me.txtTask_Popup, "txtTask_Popup") + Me.txtTask_Popup.Name = "txtTask_Popup" + ' 'GroupBox4 ' resources.ApplyResources(Me.GroupBox4, "GroupBox4") @@ -377,6 +407,8 @@ Partial Class frmConfig_Basic Me.TabPage1.PerformLayout() Me.TabPage2.ResumeLayout(False) Me.TabPage2.PerformLayout() + Me.GroupBox5.ResumeLayout(False) + Me.GroupBox5.PerformLayout() Me.GroupBox4.ResumeLayout(False) Me.GroupBox3.ResumeLayout(False) Me.GroupBox3.PerformLayout() @@ -431,4 +463,8 @@ Partial Class frmConfig_Basic Friend WithEvents GroupBox4 As System.Windows.Forms.GroupBox Friend WithEvents Button3 As System.Windows.Forms.Button Friend WithEvents cmbLanguage As System.Windows.Forms.ComboBox + Friend WithEvents GroupBox5 As System.Windows.Forms.GroupBox + Friend WithEvents Label11 As System.Windows.Forms.Label + Friend WithEvents Label10 As System.Windows.Forms.Label + Friend WithEvents txtTask_Popup As System.Windows.Forms.TextBox End Class diff --git a/app/DD-Record-Organiser/frmConfig_Basic.en-US.resx b/app/DD-Record-Organiser/frmConfig_Basic.en-US.resx index 33bb156..6fc6aad 100644 --- a/app/DD-Record-Organiser/frmConfig_Basic.en-US.resx +++ b/app/DD-Record-Organiser/frmConfig_Basic.en-US.resx @@ -176,6 +176,27 @@ Database Connection + + 189, 25 + + + 48, 13 + + + minutes + + + 152, 13 + + + show popup-reminder every + + + 160, 22 + + + task configs + Change language diff --git a/app/DD-Record-Organiser/frmConfig_Basic.resx b/app/DD-Record-Organiser/frmConfig_Basic.resx index aa87b81..f51dd26 100644 --- a/app/DD-Record-Organiser/frmConfig_Basic.resx +++ b/app/DD-Record-Organiser/frmConfig_Basic.resx @@ -117,6 +117,9 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + txtServer + 602, 22 @@ -128,6 +131,9 @@ CenterScreen + + 2 + MiddleRight @@ -164,6 +170,9 @@ 184, 17 + + 209, 102 + Top, Left, Right @@ -176,6 +185,9 @@ 7, 41 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + 8, 12 @@ -201,29 +213,35 @@ True + + NoControl + GroupBox3 - - 252, 21 + + TabPage2 1 - + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 252, 21 + TabPage1 0 - - 0 + + txtActualConnection - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 287, 30 41 @@ -255,11 +273,14 @@ NoControl + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + True - 4 + 5 0 @@ -291,14 +312,14 @@ 11, 102 - - 94, 29 + + TabPage2 45 - 5 + 6 User-Grundeinstellungen @@ -313,19 +334,25 @@ 248, 21 - 2 + 3 0 + + LinkLabel1 + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Definieren Sie hier den Ordner der für Scan2Folder verwendet werden soll: + + 33, 22 3 @@ -357,6 +384,9 @@ 61, 22 + + alle + 265, 17 @@ -420,8 +450,8 @@ 38 - - Überwachung starten + + TabPage3 1 @@ -462,15 +492,24 @@ 695, 287 + + 0 + TabPage3 47 + + 7 + System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 6, 25 + txtScanFolderWatch @@ -483,6 +522,9 @@ TabPage3 + + 297, 129 + Button2 @@ -540,6 +582,9 @@ 0 + + Überwachung starten + 37 @@ -558,6 +603,12 @@ System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Link zu Support-Tool Digital Data + + + 0 + 423, 14 @@ -570,6 +621,9 @@ Quick-Menü (Buttons) anzeigen + + 6 + 478, 15 @@ -579,6 +633,9 @@ 3, 3, 3, 3 + + 1 + Formularaufrufe: @@ -651,6 +708,9 @@ TabControl1 + + 687, 261 + 49, 22 @@ -666,20 +726,29 @@ 12 + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + Datenbank-Verbindung TabPage2 + + GroupBox5 + 105, 17 8 - - 209, 102 + + Definieren Sie hier den Ordner der für Scan2Folder verwendet werden soll: + + + 25, 13 System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -705,14 +774,14 @@ 288, 22 - - 198, 23 + + GroupBox5 3 - 1 + 2 616, 28 @@ -1132,6 +1201,9 @@ TabControl1 + + 94, 29 + 10, 21 @@ -1144,17 +1216,23 @@ 2 + + 8 + 36 297, 44 + + 1 + 14, 6 - - Link zu Support-Tool Digital Data + + 25, 22 Windows-Authentifizierung @@ -1180,9 +1258,6 @@ MiddleLeft - - txtActualConnection - Log Errors Only @@ -1201,6 +1276,9 @@ 8, 86 + + NoControl + 6, 13 @@ -1240,6 +1318,9 @@ 4 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + 277, 115 @@ -1255,8 +1336,11 @@ Segoe UI, 8.25pt - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True + + + 157, 13 4 @@ -1267,9 +1351,6 @@ True - - MiddleRight - Aktuelle Sprache: @@ -1279,8 +1360,8 @@ System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - LinkLabel1 + + MiddleRight True @@ -1291,18 +1372,21 @@ GroupBox2 - - 687, 261 + + 13 687, 261 + + 198, 23 + Kalender als Child aufrufen (Eingebettet in Hauptformular) - - NoControl + + Tasks-Einstellungen System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -1316,11 +1400,8 @@ Server-Name: - - 287, 30 - - - 426, 34 + + 9 209, 13 @@ -1337,14 +1418,20 @@ Label7 - - True + + NoControl + + + TabPage3 + + + 382, 53 9, 21 - 6 + 7 cmbDatenbank @@ -1352,6 +1439,9 @@ 47 + + 64, 25 + Speichern @@ -1382,6 +1472,12 @@ 392, 13 + + Minuten ein Popup anzeigen + + + Label10 + 306, 17 @@ -1394,7 +1490,7 @@ NoControl - + 0 @@ -1418,8 +1514,8 @@ 14 - - True + + Label11 True @@ -1436,14 +1532,11 @@ 510, 36 - - 0 - btnSaveExclusionFiles - 7 + 8 GroupBox3 @@ -1454,6 +1547,9 @@ 11 + + True + cmbConstructor @@ -1466,6 +1562,12 @@ Label1 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 0 + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -1475,8 +1577,8 @@ TabPage3 - - TabPage3 + + txtTask_Popup GroupBox1 @@ -1493,15 +1595,12 @@ chkbxUserAut - - TabPage3 - - - 9 - True + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + NoControl @@ -1511,8 +1610,8 @@ ... - - txtServer + + 426, 34 0 @@ -1547,9 +1646,6 @@ TabControl1 - - TabPage2 - MiddleRight @@ -1578,7 +1674,7 @@ 192, 153 - 3 + 4 BtnConnect @@ -1586,6 +1682,12 @@ TabPage1 + + GroupBox5 + + + True + 201, 17 @@ -1595,6 +1697,9 @@ MiddleRight + + GroupBox5 + 46 diff --git a/app/DD-Record-Organiser/frmConfig_Basic.vb b/app/DD-Record-Organiser/frmConfig_Basic.vb index f365411..194580b 100644 --- a/app/DD-Record-Organiser/frmConfig_Basic.vb +++ b/app/DD-Record-Organiser/frmConfig_Basic.vb @@ -121,7 +121,9 @@ Public Class frmConfig_Basic Me.txtActualConnection.Text = constr chkbxloadWDDocs.Checked = Sett_LoadWD_Docs chkLogErrorsOnly.Checked = LogErrorsOnly - txtwdSearch_Count.Text = WDResultListCount + txtwdSearch_Count.Text = WDResultListCount.ToString + txtTask_Popup.Text = Task_Popup_minutes.ToString + chkboxQuickMenue.Checked = Sett_ShowQuickMenue CheckBoxWD_ShowEnitityDocs.Checked = WD_ShowEnitityDocs Dim sql As String = "SELECT 0,'' UNION ALL SELECT T.GUID, T.FORM_TITLE FROM TBPMO_FORM_CONSTRUCTOR T" @@ -372,4 +374,8 @@ Public Class frmConfig_Basic Private Sub txtPasswort_Leave(sender As Object, e As EventArgs) Handles txtPasswort.Leave End Sub + + Private Sub txtTask_Popup_TextChanged(sender As Object, e As EventArgs) Handles txtTask_Popup.TextChanged + SaveMySettingsValue("Task_Popup_minutes", txtTask_Popup.Text, "ConfigMain") + End Sub End Class \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb b/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb index 980630c..1a17e90 100644 --- a/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb +++ b/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb @@ -1327,7 +1327,6 @@ Partial Class frmConstructorDesigner Me.TableAdapterManager2.TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter = Nothing Me.TableAdapterManager2.TBPMO_WD_IMPORT_PROFILETableAdapter = Nothing Me.TableAdapterManager2.TBPMO_WD_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager2.TBPMO_WORKFLOW_FORMTableAdapter = Nothing Me.TableAdapterManager2.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager2.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager2.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.vb b/app/DD-Record-Organiser/frmConstructorDesigner.vb index 6c9d692..2798d06 100644 --- a/app/DD-Record-Organiser/frmConstructorDesigner.vb +++ b/app/DD-Record-Organiser/frmConstructorDesigner.vb @@ -318,7 +318,7 @@ Public Class frmConstructorDesigner view = SQL_SELECT_EBENE1TextBox.Text.ToUpper.Replace("SELECT * FROM ", "") view = view.Trim Dim Sql = "SELECT name FROM sys.columns WHERE object_id = OBJECT_ID('" & view & "')" - If LogErrorsOnly = False Then ClassLogger.Add(">> " & Sql, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> " & Sql, False) Dim DT As DataTable = ClassDatabase.Return_Datatable(Sql) If DT IsNot Nothing Then COLUMN_NAME1ComboBox.Items.Clear() diff --git a/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb b/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb index 9bc67e2..3b9b2a3 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb @@ -130,7 +130,7 @@ Partial Class frmConstructor_Main Me.ContextMenuDetails = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_USER_ACTIVETableAdapter() + Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.TBPMO_FILES_USERTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_FILES_USERTableAdapter() Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -885,11 +885,6 @@ Partial Class frmConstructor_Main Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' - 'VWPMO_WF_USER_ACTIVEBindingSource - ' - Me.VWPMO_WF_USER_ACTIVEBindingSource.DataMember = "VWPMO_WF_USER_ACTIVE" - Me.VWPMO_WF_USER_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet - ' 'VWPMO_WF_USER_ACTIVETableAdapter ' Me.VWPMO_WF_USER_ACTIVETableAdapter.ClearBeforeFill = True @@ -919,6 +914,7 @@ Partial Class frmConstructor_Main Me.TableAdapterManager.TBPMO_LANGUAGE_OBJECTTableAdapter = Nothing Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RIGHT_GROUPTableAdapter = Nothing Me.TableAdapterManager.TBPMO_TEMPLATE_ENTITYTableAdapter = Nothing Me.TableAdapterManager.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing @@ -926,7 +922,6 @@ Partial Class frmConstructor_Main Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete @@ -1074,7 +1069,7 @@ Partial Class frmConstructor_Main Friend WithEvents AxObjectListControl As AxOBJECTLISTCONTROLLib.AxObjectListControl Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet Friend WithEvents VWPMO_WF_USER_ACTIVEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents VWPMO_WF_USER_ACTIVETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_USER_ACTIVETableAdapter + Friend WithEvents VWPMO_WF_USER_ACTIVETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager Friend WithEvents VWPMO_WF_ACTIVEBindingSource As System.Windows.Forms.BindingSource Friend WithEvents VWPMO_WF_ACTIVETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter diff --git a/app/DD-Record-Organiser/frmConstructor_Main.resx b/app/DD-Record-Organiser/frmConstructor_Main.resx index d2f928e..f915b39 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.resx +++ b/app/DD-Record-Organiser/frmConstructor_Main.resx @@ -420,7 +420,7 @@ - 1069, 287 + 1072, 291 6 @@ -481,7 +481,7 @@ 0, 0 - 1069, 25 + 1072, 25 2 @@ -502,7 +502,7 @@ 1 - 1069, 312 + 1072, 316 windream-Dateien @@ -933,7 +933,7 @@ 2 - 1069, 312 + 1072, 316 Wiedervorlage @@ -960,7 +960,7 @@ Cyan - 1069, 287 + 1072, 291 0 @@ -984,7 +984,7 @@ 0, 25 - 1069, 287 + 1072, 291 2 @@ -1159,7 +1159,7 @@ 0, 0 - 1069, 25 + 1072, 25 1 @@ -1188,7 +1188,7 @@ - 1069, 312 + 1072, 316 Positionen @@ -2538,7 +2538,7 @@ VWPMO_WF_USER_ACTIVETableAdapter - DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_USER_ACTIVETableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null TableAdapterManager diff --git a/app/DD-Record-Organiser/frmConstructor_Main.vb b/app/DD-Record-Organiser/frmConstructor_Main.vb index 2a66de8..9a2bbe9 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.vb @@ -161,7 +161,7 @@ Public Class frmConstructor_Main elapsed = sw.Elapsed.TotalSeconds sw.Stop() sw.Reset() - If LogErrorsOnly = False Then ClassLogger.Add(">> Form Load took " & Format(elapsed, "0.000000000") & " seconds", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Form Load took " & Format(elapsed, "0.000000000") & " seconds", False) Catch ex As System.Exception MsgBox("Error while Loading Form" & vbNewLine & ex.Message, MsgBoxStyle.Critical) System.Windows.Forms.MessageBox.Show(ex.Message) @@ -488,7 +488,6 @@ Public Class frmConstructor_Main _ENTITYSQL = String.Format("SELECT SQL_QUICK_VIEW FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = {0} AND FORM_ID = {1} AND SCREEN_ID = {2}", ConstructorId, FormId, CURRENT_SCREEN_ID) _ENTITYSQL = ClassDatabase.Execute_Scalar(_ENTITYSQL, True) If _ENTITYSQL = String.Empty Then - If LogErrorsOnly = False Then ClassLogger.Add(" >> No Quick-View Configured", False) _ENTITYSQL = "SELECT T.* FROM VWTEMP_PMO_FORM" & FormId.ToString & " T" If IS_SINGLE_RECORD = True Or FORM_TYPE = 5 Then @@ -606,7 +605,7 @@ Public Class frmConstructor_Main Column_Row_Handler() Me.Cursor = Cursors.Default 'If dataloaded = True Then - ' If LogErrorsOnly = False Then ClassLogger.Add(">> grvwSelection_FocusedRowChanged - EditState: " & EDIT_STATE, False) + ' If LogErrorsOnly = False Then ClassLogger.Add(" >> grvwSelection_FocusedRowChanged - EditState: " & EDIT_STATE, False) ' Dim selRecID = GetSelected_RecordID() ' If Not selRecID Is Nothing And selRecID <> SelectedRecordID Or EDIT_STATE = "insert" Then ' Focused_Row_Column_Changed() @@ -642,7 +641,7 @@ Public Class frmConstructor_Main If Grid_RecordID = RECORD_ID And ENTITY_RECORD_COUNT > 1 Then Exit Sub End If - If LogErrorsOnly = False Then ClassLogger.Add(">> RowHandler: RID: " & Grid_RecordID.ToString & " - " & Now, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> RowHandler: RID: " & Grid_RecordID.ToString & " - " & Now, False) 'Hier jetzt erst das Anzeigen für einen selektierten Datensatz If GRID_TYPE = GridType.Grid Then If IsTopFirstRow Then @@ -668,7 +667,7 @@ Public Class frmConstructor_Main DisableEditMode() VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True Show_Selected_Record_Data(Grid_RecordID, False) - If LogErrorsOnly = False Then ClassLogger.Add(">> After Show_Selected_Record_Data - " & Now, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> After Show_Selected_Record_Data - " & Now, False) If TabPos.PageVisible = True And TCDetails.SelectedTabPage.Text.StartsWith("Posi") Then Clear_GridPos_View() Dim POS_GRID_RECORD = Get_Focused_Row_Cell_Value_pos("Record-ID") @@ -815,7 +814,7 @@ Public Class frmConstructor_Main elapsed = sw.Elapsed.TotalSeconds sw.Stop() sw.Reset() - If LogErrorsOnly = False Then ClassLogger.Add(">> TreeView Load took " & Format(elapsed, "0.000000000") & " seconds", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> TreeView Load took " & Format(elapsed, "0.000000000") & " seconds", False) End If End Sub @@ -847,12 +846,13 @@ Public Class frmConstructor_Main Dim elapsed As Double elapsed = sw.Elapsed.TotalSeconds - If LogErrorsOnly = False Then ClassLogger.Add(">> Load_Tree_View_Data1 took " & Format(elapsed, "0.000000000") & " seconds", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Tree_View_Data1 took " & Format(elapsed, "0.000000000") & " seconds", False) Get_RecordCounts_Nodes() Load_Entity_Data(ACT_EBENE) sw.Stop() sw.Reset() - If LogErrorsOnly = False Then ClassLogger.Add(">> Load_Tree_View_Data2 took " & Format(elapsed, "0.000000000") & " seconds", False) + elapsed = elapsed - sw.Elapsed.TotalSeconds + If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Tree_View_Data2 took " & Format(elapsed, "0.000000000") & " seconds", False) End If End Sub @@ -908,7 +908,7 @@ Public Class frmConstructor_Main elapsed = sw.Elapsed.TotalSeconds sw.Stop() sw.Reset() - If LogErrorsOnly = False Then ClassLogger.Add(">> Get_RecordCounts_Nodes took " & Format(elapsed, "0.000000000") & " seconds", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Get_RecordCounts_Nodes took " & Format(elapsed, "0.000000000") & " seconds", False) Catch ex As Exception MsgBox("Error in Get_RecordCounts_Nodes:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) End Try @@ -995,7 +995,9 @@ Public Class frmConstructor_Main #Region "Controls" Sub Load_Controls(frmview_id As Integer) - + Dim sw As New Stopwatch + sw.Start() + Dim elapsed As Double FORMVIEW_ID = frmview_id ENTITY_ID = ClassDatabase.Execute_Scalar("SELECT FORM_ID FROM TBPMO_FORM_VIEW WHERE GUID = " & frmview_id) CtrlBuilder = New ClassControlBuilder(pnlDetails) @@ -1010,6 +1012,10 @@ Public Class frmConstructor_Main AddHandler CtrlBuilder.OnRecordChanged, AddressOf OnRecordChanged AddHandler CtrlBuilder.OnMouseHover, AddressOf HandleToolTip + elapsed = sw.Elapsed.TotalSeconds + If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Controls took " & Format(elapsed, "0.000000000") & " seconds", False) + sw.Stop() + sw.Reset() End Sub Private Sub HandleToolTip(sender As Object, e As EventArgs) @@ -1085,6 +1091,7 @@ Public Class frmConstructor_Main tsButtonSave.Enabled = True EDIT_STATE = EditState.Insert RECORD_CHANGED = True + tsslblRecord.Text = "Adding record ......" End If Catch ex As Exception MsgBox("Unexpected Error in Insert: " & ex.Message) @@ -1095,6 +1102,9 @@ Public Class frmConstructor_Main End Sub Private Sub tsButtonSave_Click(sender As Object, e As EventArgs) Handles tsButtonSave.Click + Save_Record() + End Sub + Function Save_Record() Try Me.Cursor = Cursors.WaitCursor SAVE_ROUTINE_ACTIVE = True @@ -1107,7 +1117,7 @@ Public Class frmConstructor_Main If Not RECORD_CHANGED Then Update_Status_Label(True, "KEINE Änderungen an Datensatz.") Me.Cursor = Cursors.Default - Exit Sub + Return True End If End If 'Update aller Control-Werte @@ -1116,9 +1126,9 @@ Public Class frmConstructor_Main Try ResultMessage = Update_Record_OnChange() Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler beim Speichern des Datensatzes") + MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Error in saving Record") Me.Cursor = Cursors.Default - Exit Sub + Return False End Try Dim recid As Integer @@ -1136,7 +1146,7 @@ Public Class frmConstructor_Main If RECORD_ID = 0 Then MsgBox("Attention: no current record Selected!", MsgBoxStyle.Exclamation) Me.Cursor = Cursors.Default - Exit Sub + Return False End If If EDIT_STATE = EditState.Insert Then Select Case ACT_EBENE @@ -1219,6 +1229,7 @@ Public Class frmConstructor_Main Catch ex As Exception MsgBox("Error in Save Data:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False End Try If CtrlCommandUI.IsInsert Then @@ -1232,24 +1243,34 @@ Public Class frmConstructor_Main RECORD_CHANGED = False SAVE_ROUTINE_ACTIVE = False Me.Cursor = Cursors.Default - End Sub + Return True + End Function Private Sub tsButtonDelete_Click(sender As Object, e As EventArgs) Handles tsButtonDelete.Click + Dim msg = "Sind Sie sicher, dass Sie diesen Record/Datensatz löschen wollen?" + If USER_LANGUAGE <> "de-DE" Then + msg = "Are You sure You want to delete the selected record?" + End If Dim result As MsgBoxResult - result = MessageBox.Show("Möchten Sie den Datensatz wirklich löschen?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + result = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If result = MsgBoxResult.Yes Then - EDIT_STATE = EditState.Delete - If CtrlCommandUI.DeleteRecord(SELECTED_RECORD_ID) = True Then - Update_Status_Label(True, "Der Datensatz '" & SELECTED_RECORD_ID & "' wurde erfolgreich gelöscht - " & Now, EditState.Update) + Dim del = "EXEC [dbo].[PRPMO_DELETE_RECORD] " & SELECTED_RECORD_ID + If ClassDatabase.Execute_non_Query(del, True) = True Then + msg = "Der Datensatz '" & SELECTED_RECORD_ID & "' wurde erfolgreich gelöscht - " & Now + If USER_LANGUAGE <> "de-DE" Then + msg = "The record and all dependencies for '" & SELECTED_RECORD_ID & "' were deleted - " & Now + End If + Update_Status_Label(True, msg, EditState.Update) Update_Record_Label(SELECTED_RECORD_ID) Load_Tree_View_Data() ' Nach dem löschen muss die aktuelle Ansicht neugeladen werden Load_Entity_Data(ACT_EBENE) DisableEditMode() RECORD_CHANGED = False + EDIT_STATE = EditState.None End If End If - EDIT_STATE = EditState.None + End Sub Private Sub tsButtonEditMode_Click(sender As Object, e As EventArgs) Handles tsButtonEditMode.Click @@ -1351,6 +1372,7 @@ Public Class frmConstructor_Main Try Dim sw As New Stopwatch sw.Start() + Dim elapsed As Double Me.Cursor = Cursors.WaitCursor RECORD_CHANGED = False RECORD_ID = 0 @@ -1395,6 +1417,8 @@ Public Class frmConstructor_Main 'Abhängig von der Entität die Selektierungs-Daten laden Get_Grid_Sql(CONSTRUCTORID, ENTITY_ID, CURRENT_CONSTRUCTOR_DETAIL_ID) + elapsed = sw.Elapsed.TotalSeconds + If LogErrorsOnly = False Then ClassLogger.Add(" >> Get_Grid_Sql took " & Format(elapsed, "0.000000000") & " seconds", False) 'Anzahl der Datensätze ENTITY_RECORD_COUNT = ClassDatabase.Execute_Scalar("SELECT COUNT(*) FROM TBPMO_RECORD where FORM_ID = " & ENTITY_ID, True) Select Case ClickedLevel @@ -1410,7 +1434,7 @@ Public Class frmConstructor_Main PARENT_ID = 0 EBENE1_ENTITY = TreeViewMain.SelectedNode.Text ACT_EBENE_STRING = EBENE1_ENTITY - If LogErrorsOnly = False Then ClassLogger.Add(">> Level 1 selected in TreeView", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Level 1 selected in TreeView", False) 'tslblEntity2.Visible = False @@ -1432,7 +1456,7 @@ Public Class frmConstructor_Main 'End If EBENE2_ENTITY = TreeViewMain.SelectedNode.Text ACT_EBENE_STRING = EBENE2_ENTITY - If LogErrorsOnly = False Then ClassLogger.Add(">> Level 2 selected in TreeView", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Level 2 selected in TreeView", False) EBENE3_ENTITY = "" 'Wenn bereits ein Record für Ebene 1 gewählt wurde dann einschränken If EBENE1_RECID > 0 Then @@ -1471,7 +1495,7 @@ Public Class frmConstructor_Main Case 3 EBENE3_ENTITY = TreeViewMain.SelectedNode.Text ACT_EBENE_STRING = EBENE3_ENTITY - If LogErrorsOnly = False Then ClassLogger.Add(">> Level 3 selected in TreeView", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Level 3 selected in TreeView", False) EBENE3_COLUMNNAME = ClassDatabase.Execute_Scalar("SELECT COLUMN_NAME1 FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID) 'Wenn bereits ein Record für Ebene 1 gewählt wurde dann eisnchränken @@ -1509,7 +1533,8 @@ Public Class frmConstructor_Main EBENE3_GRID_RESULT = Nothing End Select - + elapsed = sw.Elapsed.TotalSeconds - elapsed + If LogErrorsOnly = False Then ClassLogger.Add(" >> Select Case entities took " & Format(elapsed, "0.000000000") & " seconds", False) _ENTITYSTRING = ACT_EBENE_STRING PARENT_ID = PARENT_RECORDID act_FormViewID = ClassDatabase.Execute_Scalar("SELECT GUID FROM TBPMO_FORM_VIEW where FORM_ID = " & ENTITY_ID) @@ -1594,7 +1619,7 @@ Public Class frmConstructor_Main ' sql1.Replace("T.*", "TOP 1 [Record-ID]") ' Dim id = ClassDatabase.Execute_Scalar(sql1, True) ' If Not id Is Nothing Then - ' If LogErrorsOnly = False Then ClassLogger.Add(">> Load Record directly - RecordID: " & RECORD_ID, False) + ' If LogErrorsOnly = False Then ClassLogger.Add(" >> Load Record directly - RecordID: " & RECORD_ID, False) ' Load_Record_Data() ' End If 'End If @@ -1640,11 +1665,11 @@ Public Class frmConstructor_Main End If - Dim elapsed As Double + elapsed = sw.Elapsed.TotalSeconds sw.Stop() sw.Reset() - If LogErrorsOnly = False Then ClassLogger.Add(">> Load_Entity_Data took " & Format(elapsed, "0.000000000") & " seconds", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Load_Entity_Data took " & Format(elapsed, "0.000000000") & " seconds", False) Catch ex As Exception MsgBox("Error in Load_Entity_Data:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) Finally @@ -1948,7 +1973,7 @@ Public Class frmConstructor_Main If IsNothing(PARENT_RECORD1) Then Dim New_Record = ClassControlCommandsUI.GetLastRecord If Not IsNothing(New_Record) Then - If LogErrorsOnly = False Then ClassLogger.Add(">> Parent-Record Ebene 1 wird neu angelegt...", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-Record Ebene 1 wird neu angelegt...", False) 'Die neue Record-ID setzen ClassControlCommandsUI.ConnectRecord(New_Record, RECORDID, "PARENT-LINK FOR ENTITY " & ENTITY_ID & "") Return New_Record @@ -1967,7 +1992,7 @@ Public Class frmConstructor_Main If IsNothing(PARENT_RECORD2) Then Dim New_Record = ClassControlCommandsUI.GetLastRecord If Not IsNothing(New_Record) Then - If LogErrorsOnly = False Then ClassLogger.Add(">> Parent-Record Ebene 1 wird neu angelegt...", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-Record Ebene 1 wird neu angelegt...", False) 'Die neue Record-ID setzen ClassControlCommandsUI.ConnectRecord(New_Record, RECORDID, "PARENT-LINK FOR ENTITY " & ENTITY_ID & "") Return New_Record @@ -2098,8 +2123,11 @@ Public Class frmConstructor_Main End Sub Private Sub Show_Selected_Record_Data(Rec_ID As Integer, EntityLoad As Boolean) Try + Dim sw As New Stopwatch + sw.Start() + Update_Status_Label(False, "") - If LogErrorsOnly = False Then ClassLogger.Add(">> GRID_RECORD ID: " & Rec_ID.ToString, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> GRID_RECORD ID: " & Rec_ID.ToString, False) 'Me.pnlDetails.Visible = True ZeigeRecordLogsToolStripMenuItem.Enabled = False If FORM_TYPE = 5 And EntityLoad = False Or IS_SINGLE_RECORD = True And EntityLoad = False Then '#### Es sind untergeordnete Entitäten geöffnet#### @@ -2169,28 +2197,31 @@ Public Class frmConstructor_Main End If End Select End If + Select Case TCDetails.SelectedTabPageIndex + Case 0 + Dim sw1 As New Stopwatch + sw1.Start() + ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, ENTITY_ID, CtrlBuilder.AllControls) + Dim elapsed1 As Double + elapsed1 = sw1.Elapsed.TotalSeconds + sw1.Stop() + sw1.Reset() + If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValues took " & Format(elapsed1, "0.000000000") & " seconds", False) + Case 1 + If RECORD_ID = 0 Then + RUN_WD_SEARCH(WD_Suche, "ENTITY") + Else + RUN_WD_SEARCH(WD_Suche, "RECORD") + End If + Case 2 + tsButtonEditMode.Enabled = False + Refresh_FollowUps() + dtpFollowUp.Enabled = False + lblWiedervorlage_Control.Text = "<< Waiting for Selection:" + 'ListBoxUser2Profile.Items.Clear() + grpbxFU_Profile.Enabled = False + End Select - - If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("windr") Then - If RECORD_ID = 0 Then - RUN_WD_SEARCH(WD_Suche, "ENTITY") - Else - RUN_WD_SEARCH(WD_Suche, "RECORD") - End If - End If - If TCDetails.SelectedTabPage.Text.StartsWith("Detail") Or TCDetails.SelectedTabPage.Text.StartsWith("Kopf") Then - 'Daten zu Record in jedem Fall laden - 'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls) - ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, ENTITY_ID, CtrlBuilder.AllControls) - End If - If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("wieder") Then - tsButtonEditMode.Enabled = False - Refresh_FollowUps() - dtpFollowUp.Enabled = False - lblWiedervorlage_Control.Text = "<< Waiting for Selection:" - 'ListBoxUser2Profile.Items.Clear() - grpbxFU_Profile.Enabled = False - End If ' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden! RECORD_CHANGED = False @@ -2208,6 +2239,12 @@ Public Class frmConstructor_Main Me.tsButtonShowWorkflowTasks.Enabled = True Me.tsButtonShowTaskOverview.Enabled = True RECORD_ID = SELECTED_RECORD_ID + + Dim elapsed As Double + elapsed = sw.Elapsed.TotalSeconds + sw.Stop() + sw.Reset() + If LogErrorsOnly = False Then ClassLogger.Add(" >> Show Selected RecordData took " & Format(elapsed, "0.000000000") & " seconds", False) 'tsstatus_Detail_show(False, "") Catch ex As Exception MsgBox("Error in SelectedRecord_ShowData:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) @@ -2477,6 +2514,9 @@ Public Class frmConstructor_Main End Function Private Sub RUN_WD_SEARCH(BaseSearch As String, Type As String) + Dim sw As New Stopwatch + sw.Start() + Dim elapsed As Double Try Dim windream_temp_search If Not windream_Docshow = True Or Sett_LoadWD_Docs = False Or TCDetails.SelectedTabPageIndex <> 1 Then @@ -2492,7 +2532,11 @@ Public Class frmConstructor_Main Clear_Windream_ResultList() Exit Sub End If - tslblWindreamView.Text = "Windream-Dokumente für Entität: " & ACT_EBENE_STRING + Dim msg = "Windream-Dokumente für Entität: " & ACT_EBENE_STRING + If USER_LANGUAGE <> "de-DE" Then + msg = "windream-files for entity: " & ACT_EBENE_STRING + End If + tslblWindreamView.Text = msg Else Clear_Windream_ResultList() Exit Sub @@ -2505,7 +2549,11 @@ Public Class frmConstructor_Main Clear_Windream_ResultList() Exit Sub End If - tslblWindreamView.Text = "Windream-Dokumente für Record: " & RECORD_ID + Dim msg = "Windream-Dokumente für Record: " & RECORD_ID + If USER_LANGUAGE <> "de-DE" Then + msg = "windream-files for record: " & RECORD_ID + End If + tslblWindreamView.Text = msg Else Clear_Windream_ResultList() Exit Sub @@ -2554,17 +2602,17 @@ Public Class frmConstructor_Main Dim WDUnicode = ClassDatabase.Execute_Scalar("SELECT WD_UNICODE FROM TBPMO_KONFIGURATION WHERE GUID = 1") If WDUnicode = True Then EncodingFormat = Encoding.GetEncoding(1252) '1252 - If LogErrorsOnly = False Then ClassLogger.Add(">> Unicode is used (Encoding.GetEncoding(1252))", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Unicode is used (Encoding.GetEncoding(1252))", False) Else - If LogErrorsOnly = False Then ClassLogger.Add(">> UTF8 (Encoding.GetEncoding(65001))", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> UTF8 (Encoding.GetEncoding(65001))", False) EncodingFormat = Encoding.GetEncoding(65001) End If Dim fileContents As String - If LogErrorsOnly = False Then ClassLogger.Add(">> ReadAlltext: " & windream_temp_search, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> ReadAlltext: " & windream_temp_search, False) fileContents = My.Computer.FileSystem.ReadAllText(BaseSearch, EncodingFormat) ', System.Text.Encoding.Unicode - If LogErrorsOnly = False Then ClassLogger.Add(">> fileContents geladen", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> fileContents geladen", False) fileContents = fileContents.Replace("Í", "Ö") Dim _sp1 = SP1 Dim _sp2 = SP2 @@ -2625,7 +2673,7 @@ Public Class frmConstructor_Main xml.Load(Reader) Reader.Close() xml.Save(windream_temp_search) - If LogErrorsOnly = False Then ClassLogger.Add(">> Xml Generiert: " & windream_temp_search, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Xml Generiert: " & windream_temp_search, False) Dim windreamSucheErgebnisse As WMObjects Try @@ -2633,7 +2681,8 @@ Public Class frmConstructor_Main Catch ex As Exception MsgBox("Error in windreamSucheErgebnisse:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try - + elapsed = sw.Elapsed.TotalSeconds + If LogErrorsOnly = False Then ClassLogger.Add(" >> GetSearchDocuments took " & Format(elapsed, "0.000000000") & " seconds", False) If windreamSucheErgebnisse.Count > 0 Then @@ -2719,12 +2768,10 @@ Public Class frmConstructor_Main Catch ex As Exception MsgBox("Unexpected Error in Construct windreamResultList: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try - - - If LogErrorsOnly = False Then ClassLogger.Add(">> AxObjectListControl geladen ", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> AxObjectListControl loaded ", False) 'Execute the search Dim results As WMObjects = windreamSucheErgebnisse - If LogErrorsOnly = False Then ClassLogger.Add(">> results geladen ", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> results loaded ", False) 'Set the contents without displaying them AxObjectListControl.SetContentsEx(results) 'Change the icon @@ -2743,6 +2790,10 @@ Public Class frmConstructor_Main Loop AxObjectListControl.SetStatusIcon(3) Else + Dim msg = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden" + If USER_LANGUAGE <> "de-DE" Then + msg = "windream-files for record: " & RECORD_ID & " - vo files found" + End If tslblWindreamView.Text = "Windream-Dokumente für Record: " & RECORD_ID & " - Keine Dateien gefunden" Clear_Windream_ResultList() End If @@ -2756,6 +2807,10 @@ Public Class frmConstructor_Main MsgBox("Error in RUN_WD_SEARCH:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) Cursor = Cursors.Default End Try + elapsed = sw.Elapsed.TotalSeconds + sw.Stop() + sw.Reset() + If LogErrorsOnly = False Then ClassLogger.Add(" >> Run WD Search took " & Format(elapsed, "0.000000000") & " seconds", False) End Sub Private Function Return_SearchPattern(ByVal content As String) @@ -2787,16 +2842,15 @@ Public Class frmConstructor_Main stg = "windream-files" End If TabWindream.Text = stg - Dim elapsed As Double elapsed = sw.Elapsed.TotalSeconds sw.Stop() sw.Reset() - If LogErrorsOnly = False Then ClassLogger.Add(">> Clear Result List took " & Format(elapsed, "0.000000000") & " seconds", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Clear Result List took " & Format(elapsed, "0.000000000") & " seconds", False) Catch ex As Exception MsgBox("Unexpected Error in Clear Result List:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try - + End Sub Sub CheckDocView() Dim _index = AxObjectListControl.GetFirstSelectedObject @@ -2968,6 +3022,11 @@ Public Class frmConstructor_Main Exit Sub End If If e.Data.GetDataPresent(DataFormats.StringFormat) Then + If RECORD_CHANGED = True Then + If Save_Record() = False Then + Exit Sub + End If + End If Dim Wert As String = CType(e.Data.GetData(DataFormats.StringFormat), Object) Console.WriteLine(Wert) If Wert.Contains("SCAN") Then @@ -2991,6 +3050,11 @@ Public Class frmConstructor_Main End Sub Sub Check_Dropped_Files() Try + If RECORD_CHANGED = True Then + If Save_Record() = False Then + Exit Sub + End If + End If If RECORD_ID = 0 Then MsgBox("Bitte wählen Sie einen Datensatz aus!", MsgBoxStyle.Information) Exit Sub @@ -3213,12 +3277,12 @@ Public Class frmConstructor_Main End Sub Sub Show_act_WFTask() Try - Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, RECORD_ID, Environment.UserName) + Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, Environment.UserName, RECORD_ID) tsslblWorkflowstate.BackColor = Color.Black If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count > 0 Then CURRENT_TASK_ID = Me.DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("WF_TASK_ID") - Dim text = "Task: " & Me.DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("TITLE") - text += " - " & Me.DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("STATE_DESC") + Dim text = "Task: " & Me.DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("WF_TITLE") + text += " - " & Me.DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("STATE_TITLE") text += " - " & Me.DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("DUE_DATE") tsslblWorkflowstate.Text = text tsslblWorkflowstate.Visible = True @@ -3244,8 +3308,8 @@ Public Class frmConstructor_Main tsButtonShowWorkflowTasks.Visible = False ' grvwSelection.Appearance.FocusedRow.BackColor = Color.Fuchsia End If - Dim sql1 As String = "SELECT COUNT(*) FROM TBPMO_WORKFLOW_FORM where FORM_ID = @FORM_ID" - sql1 = sql1.Replace("@FORM_ID", ENTITY_ID) + Dim sql1 As String = "SELECT COUNT(*) FROM TBPMO_WORKFLOW_ENTITY_STATE where ENTITY_ID = @ID" + sql1 = sql1.Replace("@ID", ENTITY_ID) Dim result As Integer = ClassDatabase.Execute_Scalar(sql1) If result > 0 Then tsButtonShowWorkflowTasks.Visible = True @@ -3306,7 +3370,7 @@ Public Class frmConstructor_Main MsgBox("Unexpected Error in Create Workflowtasks Record: " & ex.Message, MsgBoxStyle.Critical) End Try End If - + End Sub Private Sub ZeigeRecordLogsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ZeigeRecordLogsToolStripMenuItem.Click @@ -3358,7 +3422,7 @@ Public Class frmConstructor_Main Sub Jump_Record() Try Dim sw As Stopwatch = Stopwatch.StartNew() - If LogErrorsOnly = False Then ClassLogger.Add(">> " & Now.ToString & " Jump_Record", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> " & Now.ToString & " Jump_Record", False) If JUMP_RECORD_ID > 0 Then Dim sql = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", JUMP_RECORD_ID) Dim FormID = ClassDatabase.Execute_Scalar(sql, True) @@ -3476,7 +3540,7 @@ Public Class frmConstructor_Main End If End If sw.Stop() - If LogErrorsOnly = False Then ClassLogger.Add(String.Format("Load_Level1 took {0} milliseconds to load", sw.ElapsedMilliseconds), False) + If LogErrorsOnly = False Then ClassLogger.Add(String.Format(">> Load_Level1 took {0} milliseconds to load", sw.ElapsedMilliseconds), False) Catch ex As Exception MsgBox("Error in Load_Level1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try diff --git a/app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.Designer.vb b/app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.Designer.vb index ea10059..c5fbdbf 100644 --- a/app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.Designer.vb +++ b/app/DD-Record-Organiser/frmDD_EMAIL_ACCOUNT.Designer.vb @@ -176,7 +176,6 @@ Partial Class frmDD_EMAIL_ACCOUNT Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete diff --git a/app/DD-Record-Organiser/frmDokumentart_NameConvention.designer.vb b/app/DD-Record-Organiser/frmDokumentart_NameConvention.designer.vb index 24e4b37..7175d7f 100644 --- a/app/DD-Record-Organiser/frmDokumentart_NameConvention.designer.vb +++ b/app/DD-Record-Organiser/frmDokumentart_NameConvention.designer.vb @@ -75,10 +75,10 @@ Partial Class frmDokumentart_NameConvention ' 'GroupBox1 ' - resources.ApplyResources(Me.GroupBox1, "GroupBox1") Me.GroupBox1.Controls.Add(Me.Label2) Me.GroupBox1.Controls.Add(Me.btnAddIndexM) Me.GroupBox1.Controls.Add(Me.cmbIndex_AUTO) + resources.ApplyResources(Me.GroupBox1, "GroupBox1") Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.TabStop = False ' @@ -89,8 +89,8 @@ Partial Class frmDokumentart_NameConvention ' 'btnAddIndexM ' - resources.ApplyResources(Me.btnAddIndexM, "btnAddIndexM") Me.btnAddIndexM.Image = Global.DD_Record_Organiser.My.Resources.Resources.add + resources.ApplyResources(Me.btnAddIndexM, "btnAddIndexM") Me.btnAddIndexM.Name = "btnAddIndexM" Me.btnAddIndexM.UseVisualStyleBackColor = True ' @@ -117,8 +117,8 @@ Partial Class frmDokumentart_NameConvention ' 'cmbEntity ' - resources.ApplyResources(Me.cmbEntity, "cmbEntity") Me.cmbEntity.DisplayMember = "GUID" + resources.ApplyResources(Me.cmbEntity, "cmbEntity") Me.cmbEntity.FormattingEnabled = True Me.cmbEntity.Name = "cmbEntity" Me.cmbEntity.ValueMember = "GUID" @@ -132,9 +132,9 @@ Partial Class frmDokumentart_NameConvention ' 'cmbIndex_Controls ' - resources.ApplyResources(Me.cmbIndex_Controls, "cmbIndex_Controls") Me.cmbIndex_Controls.DataSource = Me.TBDD_INDEX_AUTOMBindingSource Me.cmbIndex_Controls.DisplayMember = "INDEXNAME" + resources.ApplyResources(Me.cmbIndex_Controls, "cmbIndex_Controls") Me.cmbIndex_Controls.FormattingEnabled = True Me.cmbIndex_Controls.Name = "cmbIndex_Controls" Me.cmbIndex_Controls.ValueMember = "DOCTYPE_ID" @@ -146,25 +146,25 @@ Partial Class frmDokumentart_NameConvention ' 'GroupBox2 ' - resources.ApplyResources(Me.GroupBox2, "GroupBox2") Me.GroupBox2.Controls.Add(Me.Button1) Me.GroupBox2.Controls.Add(Me.btnTrennzeichen) Me.GroupBox2.Controls.Add(Me.cmbDate) Me.GroupBox2.Controls.Add(Me.Label20) + resources.ApplyResources(Me.GroupBox2, "GroupBox2") Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.TabStop = False ' 'Button1 ' - resources.ApplyResources(Me.Button1, "Button1") Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.add + resources.ApplyResources(Me.Button1, "Button1") Me.Button1.Name = "Button1" Me.Button1.UseVisualStyleBackColor = True ' 'btnTrennzeichen ' - resources.ApplyResources(Me.btnTrennzeichen, "btnTrennzeichen") Me.btnTrennzeichen.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xLG + resources.ApplyResources(Me.btnTrennzeichen, "btnTrennzeichen") Me.btnTrennzeichen.Name = "btnTrennzeichen" Me.btnTrennzeichen.UseVisualStyleBackColor = True ' @@ -182,22 +182,22 @@ Partial Class frmDokumentart_NameConvention ' 'btndelete ' - resources.ApplyResources(Me.btndelete, "btndelete") Me.btndelete.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete + resources.ApplyResources(Me.btndelete, "btndelete") Me.btndelete.Name = "btndelete" Me.btndelete.UseVisualStyleBackColor = True ' 'btnOK ' - resources.ApplyResources(Me.btnOK, "btnOK") Me.btnOK.Image = Global.DD_Record_Organiser.My.Resources.Resources.save + resources.ApplyResources(Me.btnOK, "btnOK") Me.btnOK.Name = "btnOK" Me.btnOK.UseVisualStyleBackColor = True ' 'btnclose ' - resources.ApplyResources(Me.btnclose, "btnclose") Me.btnclose.Image = Global.DD_Record_Organiser.My.Resources.Resources.cancel + resources.ApplyResources(Me.btnclose, "btnclose") Me.btnclose.Name = "btnclose" Me.btnclose.UseVisualStyleBackColor = True ' @@ -213,6 +213,7 @@ Partial Class frmDokumentart_NameConvention 'TableAdapterManager ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_CLIENTTableAdapter = Nothing Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing @@ -221,6 +222,7 @@ Partial Class frmDokumentart_NameConvention Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Me.TBDD_INDEX_AUTOMTableAdapter Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing @@ -237,8 +239,9 @@ Partial Class frmDokumentart_NameConvention Me.TableAdapterManager.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing 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_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete @@ -249,31 +252,31 @@ Partial Class frmDokumentart_NameConvention ' 'VERSION_DELIMITERTextBox ' - resources.ApplyResources(Me.VERSION_DELIMITERTextBox, "VERSION_DELIMITERTextBox") Me.VERSION_DELIMITERTextBox.BorderStyle = System.Windows.Forms.BorderStyle.None Me.VERSION_DELIMITERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_KONFIGURATIONBindingSource, "VERSION_DELIMITER", True)) Me.VERSION_DELIMITERTextBox.ForeColor = System.Drawing.SystemColors.Control + resources.ApplyResources(Me.VERSION_DELIMITERTextBox, "VERSION_DELIMITERTextBox") Me.VERSION_DELIMITERTextBox.Name = "VERSION_DELIMITERTextBox" Me.VERSION_DELIMITERTextBox.ReadOnly = True ' 'FILE_DELIMITERTextBox ' - resources.ApplyResources(Me.FILE_DELIMITERTextBox, "FILE_DELIMITERTextBox") Me.FILE_DELIMITERTextBox.BorderStyle = System.Windows.Forms.BorderStyle.None Me.FILE_DELIMITERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_KONFIGURATIONBindingSource, "FILE_DELIMITER", True)) Me.FILE_DELIMITERTextBox.ForeColor = System.Drawing.SystemColors.Control + resources.ApplyResources(Me.FILE_DELIMITERTextBox, "FILE_DELIMITERTextBox") Me.FILE_DELIMITERTextBox.Name = "FILE_DELIMITERTextBox" Me.FILE_DELIMITERTextBox.ReadOnly = True ' 'GroupBox3 ' - resources.ApplyResources(Me.GroupBox3, "GroupBox3") Me.GroupBox3.Controls.Add(Me.Label5) Me.GroupBox3.Controls.Add(Me.btnAddIndexA) Me.GroupBox3.Controls.Add(Me.Label4) Me.GroupBox3.Controls.Add(Me.cmbEntity) Me.GroupBox3.Controls.Add(Me.cmbIndex_Controls) Me.GroupBox3.Controls.Add(Me.Label3) + resources.ApplyResources(Me.GroupBox3, "GroupBox3") Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.TabStop = False ' @@ -296,7 +299,6 @@ Partial Class frmDokumentart_NameConvention ' resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ControlBox = False Me.Controls.Add(Me.Label7) Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.GroupBox3) @@ -310,6 +312,8 @@ Partial Class frmDokumentart_NameConvention Me.Controls.Add(Me.txtnamenKonv) Me.Controls.Add(Me.Label1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog + Me.MaximizeBox = False + Me.MinimizeBox = False Me.Name = "frmDokumentart_NameConvention" Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() diff --git a/app/DD-Record-Organiser/frmDokumentart_NameConvention.en-US.resx b/app/DD-Record-Organiser/frmDokumentart_NameConvention.en-US.resx index f911f00..1857f74 100644 --- a/app/DD-Record-Organiser/frmDokumentart_NameConvention.en-US.resx +++ b/app/DD-Record-Organiser/frmDokumentart_NameConvention.en-US.resx @@ -126,6 +126,9 @@ You can assemble the filename from the Indicies and Textblocks below + + Automatic Indicies: + 174, 26 @@ -133,9 +136,6 @@ below These Indicies are set automatically and can also be used for filenames - - Automatic Indicies: - 83, 15 @@ -148,6 +148,9 @@ and can also be used for filenames Control values from Entity: + + Insert variables: + File separator @@ -157,15 +160,18 @@ and can also be used for filenames Date-Format: - - Insert variables: - Delete convention + + 498, 276 + Save + + 498, 308 + Cancel diff --git a/app/DD-Record-Organiser/frmDokumentart_NameConvention.resx b/app/DD-Record-Organiser/frmDokumentart_NameConvention.resx index 6a683f3..a09cab4 100644 --- a/app/DD-Record-Organiser/frmDokumentart_NameConvention.resx +++ b/app/DD-Record-Organiser/frmDokumentart_NameConvention.resx @@ -117,776 +117,773 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox3 - - - 5 + + True - - 31, 272 + + Segoe UI, 9pt, style=Italic - - 1 + + 9, 20 - - 10 + + 400, 45 - - 236, 76 + + 0 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Definieren Sie hier die Namenskonvention zur ausgewählten Dokumentart. +Sie haben die Möglichkeit den Dateinamen aus den unten aufgeführten +Indizes und Textbausteinen zusammenzustellen. - - 182, 25 + + Label1 - - Variablen einfügen: + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + $this - - 6 - - + 11 - - 2 + + Segoe UI, 9pt - - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + 12, 93 - - 2 + + 627, 23 - - Segoe UI, 9pt + + 1 - - 12, 124 + + txtnamenKonv - - 9, 76 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 4 + + $this - - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_KONFIGURATIONTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + 10 - - $this + + True - - 6, 72 + + Segoe UI, 8.25pt, style=Italic - - Segoe UI, 9.75pt + + 6, 21 - - MiddleLeft + + 202, 39 - - True + + 9 - - 1 + + Diese Indexe werden automatisch gesetzt, +können aber auch zur Dateibenennung +genutzt werden. - + + Label2 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 448, 13 + + GroupBox1 - - 5 + + 0 - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 197, 70 - - 498, 147 + + 30, 25 - - Control-Werte aus Entität: + + 4 - - Segoe UI, 9.75pt + + btnAddIndexM - - Zur Dateibenennung können Sie auch Werte aus dem zur Laufzeit aktuellen Datensatz nutzen. + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 9, 20 + + GroupBox1 - - Assistent zur Namenskonvention/Dateibenennung: + + 1 - - 0 + + Segoe UI, 9.75pt + + + 9, 70 + + + 182, 25 2 - - VERSION_DELIMITERTextBox + + cmbIndex_AUTO - - cmbDate + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - cmbEntity + + GroupBox1 - - $this + + 2 - - Label1 + + Segoe UI, 9.75pt, style=Bold - - 6, 24 + + 12, 124 - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 237, 104 - - GroupBox2 + + 2 - - GroupBox3 + + Automatische Indexe: - - 7, 17 + + GroupBox1 - - 498, 62 + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - btnTrennzeichen + + $this - + + 9 + + + 871, 17 + + + 17, 17 + + True - - Segoe UI, 9pt + + Segoe UI Semibold, 9pt, style=Bold, Italic - - GroupBox2 + + 6, 58 - - btnclose + + 87, 15 - - 80, 17 + + 7 - - 36, 18 + + Entität wählen: Label4 - - 2 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - $this + + GroupBox3 - - 6, 21 + + 2 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Segoe UI Semibold, 9pt, style=Bold, Italic - - 3 + + 9, 76 - - $this + + 218, 23 - - 4 - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 8 - - - 5 + + 6 - - MiddleRight + + cmbEntity - + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GroupBox1 - - - 197, 70 - GroupBox3 - - YY_MM_DD - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - 3 - - Label5 + + False - - 0 + + 423, 74 - - Label3 + + 30, 25 - - 202, 39 + + 5 - - Segoe UI, 9.75pt, style=Bold + + btnAddIndexA - - DD_MM_YY + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 11 + + GroupBox3 + + + 1 False - - 12, 93 + + Segoe UI, 9.75pt - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 236, 76 - - YYYY_MM_DD + + 182, 25 - - 168, 25 + + 3 - - 6 + + cmbIndex_Controls - - frmDokumentart_NameConvention + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 0 + + GroupBox3 - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 4 - - 8 + + True + + + Segoe UI, 9.75pt 233, 56 - - 9 - - - TableAdapterManager - - - 12 + + 158, 17 - - 4 + + 1 - - Segoe UI Semibold, 9pt, style=Bold, Italic + + Control-Werte aus Entität: - - Abbruch + + Label3 - - 141, 26 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - MiddleRight + + GroupBox3 - - True + + 5 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 180, 72 - - 8 + + 30, 23 - - Segoe UI, 9.75pt + + 13 - - Segoe UI Semibold, 9pt, style=Bold, Italic + + Button1 - - 31, 303 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GroupBox1 + + GroupBox2 - - btnOK + + 0 - - 459, 115 + + MiddleLeft - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 6, 24 - - - CenterScreen + + 168, 25 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 6 Dateitrennzeichen - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + MiddleRight - - .Dateiformat + + btnTrennzeichen - - 36, 18 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + GroupBox2 - - 6, 21 + + 1 - - $this + + Segoe UI, 9pt - - 30, 25 + + YY_MM_DD - - Label2 + + YYYY_MM_DD - - 3, 4, 3, 4 + + YYYY_MM - - 13 + + DD_MM_YY - - Button1 + + DD_MM_YYYY - - txtnamenKonv + + MM_YYYY - - 11 + + 6, 72 - - Lösche Konvention + + 168, 23 - - 0 + + 12 - - YYYY_MM + + cmbDate - - Label7 + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Entitäts-abhängige Indexe: + + GroupBox2 - - GroupBox3 + + 2 - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True - - cmbIndex_AUTO + + 3, 52 - - Segoe UI, 9pt, style=Italic + + 99, 17 - - 12, 73 + + 11 - + + Datum-Struktur: + + + Label20 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + 3 - - 3, 52 + + 255, 124 - - btnAddIndexA + + 216, 104 - - cmbIndex_Controls + + 3 - - Speichern + + Variablen einfügen: - + + GroupBox2 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + $this - - 180, 72 + + 8 - - 9, 70 + + MiddleRight - - Datum-Struktur: + + 498, 62 - - GroupBox1 + + 141, 28 - - GroupBox1 + + 4 - - 12, 234 + + Lösche Konvention - - MM_YYYY + + MiddleLeft - - 627, 23 + + btndelete - - Label20 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + $this - - False + + 7 - - 9 + + MiddleLeft - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 498, 292 - - 2 + + 141, 26 - - 216, 104 + + 5 - - DD_DMSDataSet + + Speichern MiddleRight - - MiddleRight - - - btnAddIndexM + + btnOK - - MiddleLeft + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Segoe UI, 9.75pt + + $this - - 30, 25 + + 6 MiddleLeft - - DD_MM_YYYY + + 498, 323 - - 400, 45 + + 141, 26 - - 2 + + 6 - - Label6 + + Abbruch - + + MiddleRight + + + btnclose + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + $this - - True + + 5 - - Segoe UI, 8.25pt, style=Italic + + 160, 17 + + + 432, 17 + + + 698, 17 + + + 17, 56 + + + 31, 272 - - Definieren Sie hier die Namenskonvention zur ausgewählten Dokumentart. -Sie haben die Möglichkeit den Dateinamen aus den unten aufgeführten -Indizes und Textbausteinen zusammenzustellen. + + 36, 18 - - GroupBox3 + + 8 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + VERSION_DELIMITERTextBox - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 6, 58 + + $this - - System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 4 - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 31, 303 - - 177, 17 + + 36, 18 - - btndelete + + 10 FILE_DELIMITERTextBox - - 168, 23 - - - 3 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + $this - - 218, 23 - - - 1 - - - 1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 3 True - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Segoe UI, 8.25pt, style=Italic - - 5 + + 6, 21 - - GroupBox2 + + 448, 13 - - 30, 23 + + 8 - - 141, 28 + + Zur Dateibenennung können Sie auch Werte aus dem zur Laufzeit aktuellen Datensatz nutzen. - - 10 + + Label5 - - 3 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + GroupBox3 - - 99, 17 + + 0 - - GroupBox2 + + Segoe UI, 9.75pt, style=Bold - - 7 + + 12, 234 - - TBPMO_KONFIGURATIONTableAdapter + + 459, 115 - - GroupBox2 + + 11 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Entitäts-abhängige Indexe: - - 13 + + GroupBox3 - - Segoe UI Semibold, 9.75pt, style=Bold, Italic + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 1 + + $this - - 182, 25 + + 2 - - 6 + + True - - GroupBox3 + + Segoe UI Semibold, 9.75pt, style=Bold, Italic - - 733, 388 + + 12, 73 - - Diese Indexe werden automatisch gesetzt, -können aber auch zur Dateibenennung -genutzt werden. + + 177, 17 - - 7 + + 12 - - 645, 99 + + Aktuelle Namenkonvention: - - Entität wählen: + + Label6 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 237, 104 + + $this - - 87, 15 + + 1 - - 158, 17 + + True - - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + 645, 99 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 80, 17 - - Segoe UI, 9.75pt, style=Bold + + 13 - - 4 + + .Dateiformat - - 6 + + Label7 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 423, 74 + + $this - - 1 + + 0 - - TBDD_INDEX_AUTOMTableAdapter + + True + + + 7, 17 - - Segoe UI, 8.25pt, style=Italic + + 733, 388 - - True + + Segoe UI, 9.75pt - - 141, 26 + + + 3, 4, 3, 4 - - $this + + CenterScreen - - True + + Assistent zur Namenskonvention/Dateibenennung: TBDD_INDEX_AUTOMBindingSource - - $this + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 0 + + DD_DMSDataSet - - 12 + + DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - 255, 124 + + TBPMO_KONFIGURATIONBindingSource - - MiddleLeft + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Aktuelle Namenkonvention: + + TBPMO_KONFIGURATIONTableAdapter - - Automatische Indexe: + + DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_KONFIGURATIONTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - TBPMO_KONFIGURATIONBindingSource + + TableAdapterManager - - 498, 192 + + DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - True + + TBDD_INDEX_AUTOMTableAdapter - - $this + + DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_INDEX_AUTOMTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + frmDokumentart_NameConvention + + + System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 698, 17 - - - 432, 17 - - - en-US - - - True - - - 160, 17 - - - 17, 56 - - - 17, 17 - - - 871, 17 - \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmEntities.Designer.vb b/app/DD-Record-Organiser/frmEntities.Designer.vb index 11b9fcd..2b0ae01 100644 --- a/app/DD-Record-Organiser/frmEntities.Designer.vb +++ b/app/DD-Record-Organiser/frmEntities.Designer.vb @@ -306,7 +306,6 @@ Partial Class frmEntities Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete diff --git a/app/DD-Record-Organiser/frmForm_Input.Designer.vb b/app/DD-Record-Organiser/frmForm_Input.Designer.vb index 5d673ab..58c186f 100644 --- a/app/DD-Record-Organiser/frmForm_Input.Designer.vb +++ b/app/DD-Record-Organiser/frmForm_Input.Designer.vb @@ -146,7 +146,6 @@ Partial Class frmFormInput Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete diff --git a/app/DD-Record-Organiser/frmLanguage_Translator.Designer.vb b/app/DD-Record-Organiser/frmLanguage_Translator.Designer.vb index fb05553..78c7f49 100644 --- a/app/DD-Record-Organiser/frmLanguage_Translator.Designer.vb +++ b/app/DD-Record-Organiser/frmLanguage_Translator.Designer.vb @@ -337,7 +337,6 @@ Partial Class frmLanguage_Translator Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete diff --git a/app/DD-Record-Organiser/frmLevel_Designer.vb b/app/DD-Record-Organiser/frmLevel_Designer.vb index 69d4aa5..0df48d6 100644 --- a/app/DD-Record-Organiser/frmLevel_Designer.vb +++ b/app/DD-Record-Organiser/frmLevel_Designer.vb @@ -16,16 +16,12 @@ _Instance.BringToFront() Return _Instance End Function - Public Sub SetFormTitle(title As String) Me.Text = "Formdesigner: " & title End Sub - Public Sub SetFormName(name As String) Me.lblFormName.Text = "Name: " & name & " - Form-ID: " & CURRENT_FORM_ID End Sub - - #Region "+++++ Drag Drop Funktionen +++++" Public Sub ControlDragDrop(type As String, Parent As GroupBox) @@ -77,7 +73,6 @@ CtrlBuilder.AddRadioButton(0, "rb" & random, defaultCaption, False, 0, 0, def_font_family, def_font_color, def_font_size, def_font_style, 0, False, 0, 0, True, False, False, Parent) ' Aktuelles Control in die Datenbank speichern ClassControlCommands.InsertControl(CtrlBuilder.CurrentControl) - Case "pb" CtrlBuilder.AddPictureBox(0, "pb" & random, 0, 0, 0, 0, True, False, False, Parent) ' Aktuelles Control in die Datenbank speichern diff --git a/app/DD-Record-Organiser/frmLogRecord.Designer.vb b/app/DD-Record-Organiser/frmLogRecord.Designer.vb index 16039e4..ac3d280 100644 --- a/app/DD-Record-Organiser/frmLogRecord.Designer.vb +++ b/app/DD-Record-Organiser/frmLogRecord.Designer.vb @@ -342,7 +342,6 @@ Partial Class frmLogRecord Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete diff --git a/app/DD-Record-Organiser/frmMain.Designer.vb b/app/DD-Record-Organiser/frmMain.Designer.vb index 4d07daa..253fb1d 100644 --- a/app/DD-Record-Organiser/frmMain.Designer.vb +++ b/app/DD-Record-Organiser/frmMain.Designer.vb @@ -25,10 +25,13 @@ Partial Class frmMain Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMain)) Me.NotifyIcon = New System.Windows.Forms.NotifyIcon(Me.components) - Me.Timer1 = New System.Windows.Forms.Timer(Me.components) + Me.cmsSystray = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.ADDIBeendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.CockpitAnzeigenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.TimerTasks = New System.Windows.Forms.Timer(Me.components) Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() - Me.VWPMO_WF_USER_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.VWPMO_WF_USER_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_USER_ACTIVETableAdapter() + Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.ribbonMain = New DevExpress.XtraBars.Ribbon.RibbonControl() Me.MainMenu = New DevExpress.XtraBars.Ribbon.ApplicationMenu(Me.components) @@ -57,6 +60,7 @@ Partial Class frmMain Me.BarButtonItem17 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem18 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem19 = New DevExpress.XtraBars.BarButtonItem() + Me.LabelLanguage = New DevExpress.XtraBars.BarStaticItem() Me.pageHome = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.groupQuickAccessForm = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -73,8 +77,10 @@ Partial Class frmMain Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem() Me.TimerClose3Minutes = New System.Windows.Forms.Timer(Me.components) Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() + Me.BarButtonItem20 = New DevExpress.XtraBars.BarButtonItem() + Me.cmsSystray.SuspendLayout() CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ribbonMain, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.MainMenu, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -82,25 +88,44 @@ Partial Class frmMain 'NotifyIcon ' Me.NotifyIcon.BalloonTipIcon = System.Windows.Forms.ToolTipIcon.Info + Me.NotifyIcon.ContextMenuStrip = Me.cmsSystray resources.ApplyResources(Me.NotifyIcon, "NotifyIcon") ' - 'Timer1 + 'cmsSystray ' - Me.Timer1.Interval = 300000 + Me.cmsSystray.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ADDIBeendenToolStripMenuItem, Me.CockpitAnzeigenToolStripMenuItem}) + Me.cmsSystray.Name = "cmsSystray" + resources.ApplyResources(Me.cmsSystray, "cmsSystray") + ' + 'ADDIBeendenToolStripMenuItem + ' + Me.ADDIBeendenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.cancel1 + Me.ADDIBeendenToolStripMenuItem.Name = "ADDIBeendenToolStripMenuItem" + resources.ApplyResources(Me.ADDIBeendenToolStripMenuItem, "ADDIBeendenToolStripMenuItem") + ' + 'CockpitAnzeigenToolStripMenuItem + ' + Me.CockpitAnzeigenToolStripMenuItem.Image = Global.DD_Record_Organiser.My.Resources.Resources.WebUserControl_ascx__11270_16x + Me.CockpitAnzeigenToolStripMenuItem.Name = "CockpitAnzeigenToolStripMenuItem" + resources.ApplyResources(Me.CockpitAnzeigenToolStripMenuItem, "CockpitAnzeigenToolStripMenuItem") + ' + 'TimerTasks + ' + Me.TimerTasks.Interval = 300000 ' 'DD_DMSDataSet ' Me.DD_DMSDataSet.DataSetName = "DD_DMSDataSet" Me.DD_DMSDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' - 'VWPMO_WF_USER_ACTIVEBindingSource + 'VWPMO_WF_ACTIVEBindingSource ' - Me.VWPMO_WF_USER_ACTIVEBindingSource.DataMember = "VWPMO_WF_USER_ACTIVE" - Me.VWPMO_WF_USER_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet + Me.VWPMO_WF_ACTIVEBindingSource.DataMember = "VWPMO_WF_ACTIVE" + Me.VWPMO_WF_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet ' - 'VWPMO_WF_USER_ACTIVETableAdapter + 'VWPMO_WF_ACTIVETableAdapter ' - Me.VWPMO_WF_USER_ACTIVETableAdapter.ClearBeforeFill = True + Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = True ' 'TableAdapterManager ' @@ -128,6 +153,7 @@ Partial Class frmMain Me.TableAdapterManager.TBPMO_LANGUAGE_OBJECTTableAdapter = Nothing Me.TableAdapterManager.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing Me.TableAdapterManager.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_RIGHT_GROUPTableAdapter = Nothing Me.TableAdapterManager.TBPMO_TEMPLATE_ENTITYTableAdapter = Nothing Me.TableAdapterManager.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing @@ -135,19 +161,18 @@ Partial Class frmMain Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'ribbonMain ' - resources.ApplyResources(Me.ribbonMain, "ribbonMain") Me.ribbonMain.ApplicationButtonDropDownControl = Me.MainMenu Me.ribbonMain.BackColor = System.Drawing.Color.DarkGray Me.ribbonMain.ExpandCollapseItem.Id = 0 - Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelUser, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19}) - Me.ribbonMain.MaxItemId = 33 + Me.ribbonMain.Items.AddRange(New DevExpress.XtraBars.BarItem() {Me.ribbonMain.ExpandCollapseItem, Me.LabelMachine, Me.LabelUser, Me.LabelLoggedIn, Me.LabelVersion, Me.itemInfo, Me.itemExit, Me.BarButtonItem1, Me.BarButtonItem3, Me.BarButtonItem4, Me.BarButtonItem5, Me.BarButtonItem6, Me.BarButtonItem7, Me.BarButtonItem8, Me.BarButtonItem9, Me.itemSettings, Me.BarButtonItem2, Me.BarButtonItem10, Me.BarButtonItem12, Me.BarButtonItem13, Me.BarButtonItem14, Me.BarButtonItem15, Me.BarButtonItem16, Me.BarButtonItem17, Me.BarButtonItem18, Me.BarButtonItem19, Me.LabelLanguage, Me.BarButtonItem20}) + resources.ApplyResources(Me.ribbonMain, "ribbonMain") + Me.ribbonMain.MaxItemId = 35 Me.ribbonMain.Name = "ribbonMain" Me.ribbonMain.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.pageHome, Me.pageForms, Me.pageAdmin}) Me.ribbonMain.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonControlStyle.Office2013 @@ -159,10 +184,6 @@ Partial Class frmMain Me.MainMenu.ItemLinks.Add(Me.itemInfo) Me.MainMenu.ItemLinks.Add(Me.itemSettings) Me.MainMenu.ItemLinks.Add(Me.itemExit) - Me.MainMenu.MenuAppearance.HeaderItemAppearance.FontSizeDelta = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.FontSizeDelta"), Integer) - Me.MainMenu.MenuAppearance.HeaderItemAppearance.FontStyleDelta = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.FontStyleDelta"), System.Drawing.FontStyle) - Me.MainMenu.MenuAppearance.HeaderItemAppearance.GradientMode = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode) - Me.MainMenu.MenuAppearance.HeaderItemAppearance.Image = CType(resources.GetObject("MainMenu.MenuAppearance.HeaderItemAppearance.Image"), System.Drawing.Image) Me.MainMenu.Name = "MainMenu" Me.MainMenu.Ribbon = Me.ribbonMain ' @@ -361,6 +382,13 @@ Partial Class frmMain Me.BarButtonItem19.Name = "BarButtonItem19" Me.BarButtonItem19.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large ' + 'LabelLanguage + ' + resources.ApplyResources(Me.LabelLanguage, "LabelLanguage") + Me.LabelLanguage.Id = 33 + Me.LabelLanguage.Name = "LabelLanguage" + Me.LabelLanguage.TextAlignment = System.Drawing.StringAlignment.Near + ' 'pageHome ' Me.pageHome.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.groupQuickAccessForm}) @@ -384,10 +412,6 @@ Partial Class frmMain 'pageForms ' Me.pageForms.Appearance.BackColor = CType(resources.GetObject("pageForms.Appearance.BackColor"), System.Drawing.Color) - Me.pageForms.Appearance.FontSizeDelta = CType(resources.GetObject("pageForms.Appearance.FontSizeDelta"), Integer) - Me.pageForms.Appearance.FontStyleDelta = CType(resources.GetObject("pageForms.Appearance.FontStyleDelta"), System.Drawing.FontStyle) - Me.pageForms.Appearance.GradientMode = CType(resources.GetObject("pageForms.Appearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode) - Me.pageForms.Appearance.Image = CType(resources.GetObject("pageForms.Appearance.Image"), System.Drawing.Image) Me.pageForms.Appearance.Options.UseBackColor = True Me.pageForms.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.groupQuickAccessForm2}) Me.pageForms.Image = Global.DD_Record_Organiser.My.Resources.Resources.application_form @@ -415,6 +439,7 @@ Partial Class frmMain Me.RibbonPageGroupProgram.ItemLinks.Add(Me.BarButtonItem13) Me.RibbonPageGroupProgram.ItemLinks.Add(Me.BarButtonItem16) Me.RibbonPageGroupProgram.ItemLinks.Add(Me.BarButtonItem18) + Me.RibbonPageGroupProgram.ItemLinks.Add(Me.BarButtonItem20) Me.RibbonPageGroupProgram.Name = "RibbonPageGroupProgram" resources.ApplyResources(Me.RibbonPageGroupProgram, "RibbonPageGroupProgram") ' @@ -453,11 +478,12 @@ Partial Class frmMain ' 'RibbonStatusBar1 ' - resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1") Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelMachine) Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelUser) Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelLoggedIn) Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelVersion) + Me.RibbonStatusBar1.ItemLinks.Add(Me.LabelLanguage) + resources.ApplyResources(Me.RibbonStatusBar1, "RibbonStatusBar1") Me.RibbonStatusBar1.Name = "RibbonStatusBar1" Me.RibbonStatusBar1.Ribbon = Me.ribbonMain ' @@ -482,16 +508,20 @@ Partial Class frmMain Me.RibbonPageGroup3.Name = "RibbonPageGroup3" resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3") ' + 'BarButtonItem20 + ' + resources.ApplyResources(Me.BarButtonItem20, "BarButtonItem20") + Me.BarButtonItem20.Glyph = CType(resources.GetObject("BarButtonItem20.Glyph"), System.Drawing.Image) + Me.BarButtonItem20.Id = 34 + Me.BarButtonItem20.Name = "BarButtonItem20" + Me.BarButtonItem20.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' 'frmMain ' - resources.ApplyResources(Me, "$this") Me.Appearance.BackColor = CType(resources.GetObject("frmMain.Appearance.BackColor"), System.Drawing.Color) - Me.Appearance.FontSizeDelta = CType(resources.GetObject("frmMain.Appearance.FontSizeDelta"), Integer) - Me.Appearance.FontStyleDelta = CType(resources.GetObject("frmMain.Appearance.FontStyleDelta"), System.Drawing.FontStyle) - Me.Appearance.GradientMode = CType(resources.GetObject("frmMain.Appearance.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode) - Me.Appearance.Image = CType(resources.GetObject("frmMain.Appearance.Image"), System.Drawing.Image) Me.Appearance.Options.UseBackColor = True Me.Appearance.Options.UseFont = True + resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.Controls.Add(Me.RibbonStatusBar1) Me.Controls.Add(Me.ribbonMain) @@ -500,8 +530,9 @@ Partial Class frmMain Me.Name = "frmMain" Me.Ribbon = Me.ribbonMain Me.StatusBar = Me.RibbonStatusBar1 + Me.cmsSystray.ResumeLayout(False) CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.VWPMO_WF_USER_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ribbonMain, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.MainMenu, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) @@ -510,10 +541,10 @@ Partial Class frmMain End Sub Friend WithEvents NotifyIcon As System.Windows.Forms.NotifyIcon Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet - Friend WithEvents VWPMO_WF_USER_ACTIVEBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents VWPMO_WF_USER_ACTIVETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_USER_ACTIVETableAdapter + Friend WithEvents VWPMO_WF_ACTIVEBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents VWPMO_WF_ACTIVETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter Friend WithEvents TableAdapterManager As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager - Friend WithEvents Timer1 As System.Windows.Forms.Timer + Friend WithEvents TimerTasks As System.Windows.Forms.Timer Friend WithEvents ribbonMain As DevExpress.XtraBars.Ribbon.RibbonControl Friend WithEvents pageForms As DevExpress.XtraBars.Ribbon.RibbonPage Friend WithEvents RibbonStatusBar1 As DevExpress.XtraBars.Ribbon.RibbonStatusBar @@ -558,5 +589,10 @@ Partial Class frmMain Friend WithEvents groupQuickAccessForm2 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents RibbonPageGroup3 As DevExpress.XtraBars.Ribbon.RibbonPageGroup Friend WithEvents BarButtonItem19 As DevExpress.XtraBars.BarButtonItem + Friend WithEvents cmsSystray As System.Windows.Forms.ContextMenuStrip + Friend WithEvents ADDIBeendenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents CockpitAnzeigenToolStripMenuItem As System.Windows.Forms.ToolStripMenuItem + Friend WithEvents LabelLanguage As DevExpress.XtraBars.BarStaticItem + Friend WithEvents BarButtonItem20 As DevExpress.XtraBars.BarButtonItem End Class diff --git a/app/DD-Record-Organiser/frmMain.resx b/app/DD-Record-Organiser/frmMain.resx index 3c91fd8..677974b 100644 --- a/app/DD-Record-Organiser/frmMain.resx +++ b/app/DD-Record-Organiser/frmMain.resx @@ -117,391 +117,35 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 17, 17 + + + 442, 56 + - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACt0RVh0VGl0 - bGUAU2V0dXA7Q3VzdG9taXo7RGVzaWduO1NldHRpbmc7UHJvcGVydDgftSEAAApzSURBVFhHnVdnVFVX - Fr7WkGKmJJkxa7ISgyODiUQdUSMKFkSUGAU1gqBA4mCJDQyg+FAJxRIBUVZQo6CoCKigFJH+6B0UEKQL - 0rsIdlx7vn3ee6iz5sdM9lof5917zznf7ucg/Q4ZBowARgNqSrwFjASGA/+/HDgW/N/hw7gkeQDuRy/x - VEFuv+/4DDevi+TqdZ5cPc+Ti2cgLV258Wt8YyWG7Tt8Vtp7CDgYIDkf9JdkHmekPR6nBZzcf5N2u52S - drue5P0UwmQvBl++AQiTCbz2ji0cJTtw2is1q4SePR8USMm8TassbI/iG3uD5wytVT6Ld719j6TevgGp - +8GA5ODih1dKeV0BiGoRu5kt4lG1CT+/s/ewf1ljSxf1PnxM7d0Pqba+hVavsy/HtzEAh4bnMV4P0yhg - eBfIu3r7pZ/2+uJRKe4+QW+QG3675l2XI+eigXg7mbcO3ok4r7NxmLDb1c/D0+8yPX32QpA3t/cSLKPN - tu60xMTmkLGpzUTMZUXGWG3cvXCn87EkO5nPzfEaWh/iHSs0vLOnX7KVHcNPpbh5Xxxy8SKQu3kHxpRV - 1lNFzX06GRhJzh6nb+xxOxV22DdkMDo+m1rauql/4Kkgb2ztofsAzz8VcJXcPAMHbZ28o2z3+CR7nwyl - wuIqyi4oJzvZ0YRx47/4CBysxLAdu72ZTyE/e13gga0fse+wf3RZZYOwsP/RU3r85DkVl9VSTmE5DYjn - Z9TTN0CtHQ8EcX1zF91r6qQ6oKmtl9q7+ig16zbl36oU8/j7rbv1FBmXQUuMbWLB8Q4wXN/oe+ZUiMuR - QB5YgZF7D/pHlJbXCbLuB4+oq3cAGz2iB/2PCfGj1s4H1ATL77d2Y3MQN3ZSTUM7Vd5rpfLaFiqracLv - NvGutKqR0vMqKKuomsKjUslg6Q+J4HgXGDHf0JI5FbIfZaMMwYgtDoe0j58Oe/no8VOQ91NHTz+sekht - nX3UAqvZylfkHVTd0EaVda0gbqE7VU1UfLeBisrrqaCkjrJvVZM8p4yK8bxhqwtpzzJaDA5RKXMN1jKf - QmA1FBjkn5zpbzm6+MXculNNPbCYXdoGq5s7ekGOeLd00z2Q1za2U3U9LAd5eU2zsJbJC8vqKb+kFuQ1 - lJZ3l9ILKijkWgLNN1wrx94fACIHdBeYY1CKDA3i+YtXCtjv9Q3LyC2lXridY93CyQbyBiZHrDmuze09 - 8IgiCfndneomkN+jPCV5RkElJWWWCgVOng0nvYXmN7D3kAJKDIkoP2CkmbWt5s9Hzg32DzwRIRCZriJH - vJlQnlZAdrsOkfHqrcAWsnM8TDeTc+hOZaOId0ZhJcmz71BcejHdTL1NOcXVtN3xl5df6xlpg4OTkHsE - 8wkl+A83G24Ub2/f5ekdFplCnAPNHT2CsAFNh63k3ycDrpCewdrWmbomNppac77U1NKZ9LWeycb5S6xa - /U5fpsI79yglt5xiQRyTcouik4vwXEbHfrvK3ZL771+B9wHOBeaVRlhvcv5ym6Onq63saOH+Q/7U3NpJ - 3ch+LrMGLjNYfq+pi+TpBaRvZF2jrvHP8VjHlrA7+SB69/MJUzQWG9tUJ6TmUwoS74ZcQR6ZWECRSYV0 - U15Am+0OkJm1Q9ly0x8958w3mYF1bwPS6J2yYxQZm0FVtU305Okz6ut/IrK9HqR195Hp9W3UBGW22LnT - 7AWrf8AalRuHQge8N9fAbP1PMk94oY6iQBqRmE/X4vMoLDYXYy6l59+llKxikROmVo6ENX8CJLUdTkdB - /BxZ/4hakPEcbyavvc+ZzmXWIhRYaW5Lf9ec9hnWiETint7R/ZD3EMn76biJn69d7yRKMyIB5HFMnkNX - bmZTaHQWBUdl0uWYbErLvUvfrbVnBf7Ci9W27fIUCnCpNTQrMl1FXgHycjQXrntTSweaMFF7HNawAsPb - u/uktq4+3kMo8Jn6F+pWG/eKkIXH5dJVJo/JohCQX4rMpKCIdKEEJ+cKcztWgPNBemv9Vle6EpGIhlFL - 2FC4vaq+lSqUna0E2V0Dq+xl3mS4zJp7KHczVSarQjDmG5N/2ew7cEoozlZfvsHkmSDPoJCoDFERQeHJ - uEMEkLHZDlbgz4A00vDb7ycvN912cKWFXemGba5UUlYHy9HdUNslFffpVnkD3UaTiUspIPP1TlWTJuto - YN17gOqoHTNpio7m95v316Rml1B+aS2FgpytZXIegyNSCfvTvMXrKmbNXXFs4ldzZmMdGzJkgdhI38jK - 1/fEJXS6DgU5OltBaR1quYaK0GjOBceQ9ab9bSZrtmyYrrNIa8bsRVorzLdu2rDdoy04PFF0RU4+QQ6X - X7yWilDkksztBIHYHxyfAJx8XAHMK0SVzaP1l6yZvNX+8GAj+n0Rt1Umv11DmUVVor4z0NniU4vI+9dg - cth3nBz3+9LRE6GUmlMqyOPTSykYVgddT6cLIA8MT0Ey5tLSVZtfqmtMnQMOviuIywkgGpEEi3jgBxFL - U2vH6xExaXB7PWVyV0Ndx6WXIIaobXmRaDJZRZUIUaPIFSbOuV2Nms8XLr94PY0uhIM8LIVCkHxuXmdp - pp5JPPYeC7CnmUtBzrJugzMPQwp8t+6npPiUPCpCPcdnFFNs2quuFpVUQNdRYq+yHCUm4p2hcDnIzyvJ - A64kCy94+oXQ9NnLM7H3x4BQYMoMIwxKsVjvxAMrMHrRUquFDs4+4shldyvIiygajYW7moI8j67ezEGW - Z4ssFy4Hucrl567KKeByMp0JTQISUQFZZGy6hdQ1tI3Bwck7QmvaIuZUiJn1Lh44JmorLWzj4+V5ogLY - 5TfY5ajbOLj9eoKiq10BeaiSXLg8Ai6/liasPhcmR/zxG144HZxAvwEBUMTDO5C0phmkgOOPAHv6VQi+ - s7TnQShgbLY9PiYhS5xo8SCWI/HOXIwmH9zvYtM4DIWwPlu4PChCEe/zsPo8rGeFQvHe5ZczdOj4BYQk - Q+GFkARyOeJPX0xZkASOPwB8CL1SYKXFTh74xaixf1P/cMWa7QmXwhIoMDSO1tk40VwDi1TdBWaxqy3t - Xzq7n6CgaymizITVsPR8eBr5B8fSNhzL+kaWL6fONEqcMn1JJv5ZIXevQNoPhbSmLkxVe2fMp+Dg8huu - MWkucyrExGyHhJsO/xSl+MFHn3yEK1Os7kJz+eTpi/gaxReJDzQnzZqqZ2DmA0UoBqcdu/ws4s1dz3DZ - D4S5vh9/8o+ZmMvZ/vG48VONYXWa5lfzktTeFuTiPggM0/hSF4NSlq3eJtU3dUro4fwolAD4xOMFnLX8 - rHo3FkdyVUxynki4QCjgFxhF2jrLq/GNmwzXOa9hcMJxzNntbLkgR8lKbyjwzaofJVwwJdzzJNxm+RWH - gxXhBTzyM4OT531dfdMT3r8GiY4Xirjbybxo0lSDU/jGHY6bjGo+r+c1Q/vgxiQx3lBgickmSU/fQtLV - N5fmzFsjzZ5vJqAzz1Rg1tzVPE2llBpcvWDBYiuaD8xbbEnzDC1JfYL2QnwT8eW5ugYWGIYUES7/T/we - UVnFoWBr+TznI5VPNdUJyXP+R5GkfwMPT3OfchuhBQAAAABJRU5ErkJggg== - - - - pageAdmin - - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - BarButtonItem19 - - - BarButtonItem15 - - - Menü Konfiguration - - - LabelVersion - - - 1538, 150 - - - Regular - - - StatusLoggedIn - - - RibbonPageGroup1 - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABZ0RVh0VGl0 - bGUAVGFzaztJc3N1ZTtTb2x2ZS21WJQAAAl4SURBVFhHlZcHVFRnGoaTWNJNNGaT3T1rL0lgLVlrFJKj - Ro05EQsqIE1QESuKsaHYCwIqogSVIkgX6WVEUYp0EFCkFwcQpjCNmQGGAd/9/iuYPTky2dxz3nPh3nv+ - 9/nKX+YtAJz+4vU2aRBpCGlo39/s2f99vfbVAcAGfJPemW24fNiBMxEXnN0TWp0vJLZucrx28euphp+y - d3/49o96fekCYB+ygVhUTCzCD0nD+jRit3OAl39kHvKfNiK3lI9Lvvdgbu9+jd59QfqMNJI0nPQ+iWVp - MKkfjrt0AbzzONhiQUWkTX7lHRs0FYXDyTUeh1zicPB8LA6ei8aBszHIfFyP4moBsp82ISGzAo6nIrHn - 5G3sPhGOXcci4HA8DMX3/FDgZ4oiP5OClDNzF9HYr0s1EAB7Oaji9gaBquUBXnYWQiGpwo7DN5FFho1C - BRpa5ahtkaGkRojUgnokZtUgKbsaj0obUVDRgtyyZoQmFsDI8jjyclIgaUyApDoS2e4GAhqbZeNPAYZU - RlrjpaYBvYo4NBb4IeA3V2x28MBht2h43kpDUGIRQpKKEZ1WgcjUMlyPzIFncDoOu0fBercXlq87gNNH - DiA56DxENeHQKKtRlXCcmbCSDDoZPkcnwNCKcAsCqEWvNAwl/ishkytwP70QR84FYvNeL5jvuAwTu4sw - tnGHkbUrVlqdJZ3Bertz2HfUG4HhycjILkVelBtkL7JRzg/CjajVMHWcNJnGZ/3w9kAArFGGPgtdj5dd - 1dBKglHotQCabi2k7SrkPa5CSHQafIJ58L6ZAC/fWHj5x+JGYDxuhvEQFvMQSakFKHxSgxahBEX33BGc - /Qt4FbvwqPIqDvnNLPrRbBSbLToB3i0LMqP6V0ArCiSAH9DT2wt1pxbtHRpU1rciI78KabkVpHJk5lXi - UWE18oprUFTWgMq6FgjEcpTU8+D10AANshhItQ/xVOiBAzdmdG9zn/oT89EF8N7TQBP0dJRBK/BHvuf3 - 6H35Eh3dPVBrtFB1dqNJJEdFnYAkRFWDENXPRajhi9AskEIsbUd2ZTj8MpdBrilGS0cY7tdb40TQfBjv - Gb+CjU/SmYH3Sm+uRY+qFJoXPsjzMKQMEICmh5OakxZtig4ylKNZpCCgdoikSkjlKqQ+8YZ32lJIOwtQ - p/DG/boNcPKfg6SI/cxkBImtKzoB3i/xXY0eZTE0zdeQe9GAA2CRq7u6ubuK7qwcUpUGYnkH9UcnZNQj - Mfln8duDZZB1FaJa5on0hm341XsGUtI9UJ7kyUw+IQ1e5zThd983AHzw+Poq9CgK0MX3Qo7bfGh7eslU - A4lCAl6RJ5kpoFR3QabqglzJpAbvsTc87y5DW2cuyiWuyGjeimO3DHE9xA7twmJkXlzLTNhKOmjlnrED - ArCV6oNCbyNo5bnobLiMrPMG6NZSyuVSXI41g0f8clxOMEWzsJFA1Fzk2eVxOB1lgFZlBp6Iz+LBc1v4 - PjCmVXEeRNXxUDenInnfdGbyMfNYZj9KJ8CH+Vd/gVb6CJ21F5HlvhAqtRKeMRtxI8UKoo4UlDQG41TY - YjyrK0JxZRacbs1CrTgeT9rOIaXeEglltrA+Og0Pwo5DXh0OdV0wkh2nMROWgcGLbP6pE+CjvMvL0N2W - DnWVGzJdF6BFxMfW83NRzPdFocAZGY3bUdoUgIP+38Hx+iyU8ENQJnbD3TpL3KvbiC0u0xCR7IOSKFfI - CpyhrvFHgsMUZsL1gMH6L3QD5Fxcim7RfagqXJBxbgE6O7to58vEVpc54FXaI6nGjLp7E561hlDXX6K0 - XwCv1goxFcY4EToPO0+tgLhNiocuxpDnOEJVdQNxO/WZCVuEBs82/lwnwMdZrovRLeBBVXYaqUdnoUvT - DYlcifvZ8bA7MxMJz2wQV2WCxGpzqvdO3ClfAd+iufDJWYSf7McirySP6434HVMgz3KgQLwQu03vNcC3 - y0foBBiWeW4hrQEJUJUex/0jM6DR9tB0U0MkkSOC50/1nYLAoh/hlTsFV3L1cSVHH36PDWB7Wg8nr+7l - lmGZsoNM9SHN2A5lmQeit3zDTNgZYbD+kuEDArCN4pP00wvQ1RSN9uIjSDn0Lc2CXohovgtpsRGKpfAO - PQ+rY/rwyTfEpSw9gpgO17h5+Nl2Kipr69AiVkBOU5SZStPs0V7iiqhNXzMTthANWbJ5jG6AhycM0cm/ - jfbCQ+Dtn04Z6IVQ3gmBrAOtEiVeCMQ4ecUR1gRxI38+gXyPZXZjEBwTiBcUfROtjgzgDplKHmyGougM - Im0nMxN2WhqyeONonQCfpjrPR0dDMOT5+5C0dxoHIOgDaJGo0NKmQGOLALuOW8LmpB5Nw5kw3bkEz5tb - 0SSUo0ms5AAibb9C2z0bKPKP4bb1pNcACzf8SyfA8BSn79BRGwAZdXDi7qlcD7TK1GiRqvGCAJrEKrTS - jlfHb4bVHiMs3TQGdzNSKHoZGgQER3uDXK3hTNt4VjQTnBBmMZGZsLMidyrSBTCCt3821NU+kGXtQvyu - f9N5oOeVubSDANRoblNxxzOWiWYqR1OriIBk4NMzvlAJPpcBDcItJ0GcZA5p5q8IXT+BmXxO0gnAXo5I - cpwJZbkX18Fx2/XQRQDMmEXf3KdGMuFTpOyMWM9EOyNf2E7PlHguUtE+oUGY+QSIEkwgTXdAiOl4ZvK3 - Pg+dAJ8l7P4PlE89IH1oj2j7bzgAhbqbpHktlmImtiHJaENiYlEz434Fk6kobi014nYErR3XD6BzO2YA - I+N2TEd7qRvaUjchzXkudfNXXEOxTr5tMxkRVNsIq0lcisMsJ3L1DaVoWZpDzEim4xBkMh7JDtMgjFmN - thQ73DIey0zY74YBAbgTMWlk7NYpaC86C0mqHcQp1lwjtfEsIU62IJlTXc0otUympHUQxq/jIhXGriFD - YwjIVBi9CoKolRDQXcyzRcDqMf0AA5aAAXCzIHKjnqA+yp5qt5PKsJ1SuI1g7CkjW2habaaINpJsIb5r - Q0DWJCuCsoAo0fwVWLwphHEExqBi1qD82s/wMxolpLG5aci8BgLgDiQuy0ebhVpOFL9KM0sxpbcvxaFm - 4ynN4xFsMg7B6yjVVNugtWMRtGYsAteMQSBFGrCKaTSnmytGw9dolPiw4ZcWNDb7iceW+wF7oD8L7EO2 - bLKm+fJP9PcB9I8+sW/Y/P+IxEVP+t33DQD9mWAfM7Gm+at693/E/mfjcJH3qc8Xb/0XhGzXILFsN0oA - AAAASUVORK5CYII= - - - - StatusUser - - - RibbonPageGroup3 - - - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAA90RVh0VGl0 - bGUAU2hvdztFeWU7SeMHJQAACKVJREFUWEfFlwlUVNcdxl8MJhqTahK7RNOkW+wxbW2M0dQqEESQHQeG - ZYBhkx2EkWHfZZNN9m1AGHYBEWVTBhQMoCW4sCibyr4rCCpYzGnP13ufGY5NSc/p6an9n/Obe999793v - +99tZhgA/1dWbXyVrNr4Klm18VXy38RrP8D/LKQCawivv4TMS9Brep/ynxnqyhEyXWJXppOSfYzpyBIw - 7adc6C1WNF2gvak57gi/+aRFXnO0WWdTpAkawwxRH6SLWl9tVLmr3Ck7qlCUZ73PWqi07SfknbUEaog1 - kqiylYk98GMmSm4Tc2LvBtL0vaCiCYHHmJgAIRPqfYw2scLlx40+vJZgdepmusNSf4k3hquDMd0Yg0et - yXhyU4SFtlRM1EWgt8gdLSdNUel2CGKTnX9L5Wwr8JTbuo308QaBNSLg8xhPcx4T/DkdrO9FB8k2wV9A - q6wwQaY53sq1O9/t+UR9BBFKw2KnGM96ivDX/jIsD1Tg2+GL+Ha0HsvDtXh2rxoLXcWYbkrDnSJPSPy0 - kMnd/vdQuc2hv9oo8zbtj/btYW64uoFbIkdasOLOnD9tuClylAxWBOBBSyIW2nMx1JKNkowwhPkLYWlm - AWUVDj7brYRPP1PAVwe0YGJshiAfdxRlROFecxEmW7LQle+J84KDiFP+8Or+D9ZuJn3TaVmzqoHrKXa0 - WKO485frb4ns+wfOBWCqKQX1BZHwFTrDzJAHY00V6B5SgoaKGtQ0uVDjmkKJYwxVDR2oKipDXW4/tOVl - wdU4jGNOTqjOicZATSwaw3lI1f5keMuGNRuJBjVBE/2XoMO+9usYs3O9xd5oLT6BYE8BvGz5sOKbYs8B - YsAhEM6BiQhIyEVcznmkl9QiqbAKifkVCEkthFtYKkydg/ClIg96Glqw5WrAy9kRX4uD0XiCj2jlj+qJ - Bl2B0sW5EvRCpkCoodkuckB5gjdCBNaIP3EcZ8srcZDrAkFoPgJTKpBX24YrfSOoun4HHhEZ0D3iA5eg - FJyub0PehTYkFDfAP7EMclpOyM49jTBfDwj5eiiIcEWFmxqcd77HI1rrCTThlaAX6y6FGQ+ejRUi2s0G - Z8+Wo7//Lk4VVMHQMRZ+ydWIK2hE88AEmu6P4pvxGRYVQwGUuEehySfzL7lOTFxHLHnOTJiEkNh89Pb2 - obSkFB58DnL8bZGgvX2MaG0irEwF/VgrdlI6VB1lh3gvW0hq6zA2PoknTxbh4p8Ga18xAlKqkXmuFZe6 - B4jwNDoezuPG1CwUOY5QOGwHBW07OHjHobzxDpJKmiCMOA0j+xN4TPoYHR3HhYsS+JrpQGSnDotPXtcg - miujwGZf6a2ZnephvlxdUY3hoTHMLyxicek5DGzDYRdQiIDkGogr2iAITkLr2AsDbuFpkFW1wH6CrKol - WZD2qGrqRUrJVTINVZDXccPSs+eYf7yI4ZFxVNdI4KN3YNntdzJpRPNHBLoW2I8NNb5a/fmi9Pnu232Y - nprDwuMlPF1chr5NKMzcsuB+8hzSz1yFvPoR7FHgYTeLEalTeGwpq2KO8oY7iM1rhFtUGRS5nni6tExG - 4RkePFxA791hiBITp712yHQSzfcI7H6kBt62csu913CpDUMD45iefoTZR4vE+TPYeiSC75oBD2IgraQF - PGs/7Nirgz/+mUMgJanvYEsOjO38WQNxxIBjcAFZoCFYIOJz80uYmX2C4bEHkDS0Q8Uorv9lA3QK3jI9 - KorMLmwmBiYwNjGHqQcLeEBeis88j8NWUXAJPYOIU5eQfvoKdssb4NPP1V+wi6KGXfu4yC1vItN0HWGi - Ohg4xMI/MhcP555i5uETTEzPEwOzOClqwFeHj0cSTXomsFNAF+EbX8jq/cbJr3T2ZvsABoZmMDI+h/Gp - eXR0j+CggRes/HLhFVOBGHEDMkubYGjphT3y+vhClgsDcw/klbegqKYdMTmNcI88C3mOO5q/6SHCCxgl - CQ2OzuJW9xj0bcULH/9W/vdE8y3CylZkp0HHPMohIrkOPf3juDs4g4GRhxgam0Nk8hmomATB1i8fPnGV - iMu/gjySaZmkC6UX21Eq6URmWSvC0+vgm1AJNdPj8ArLxjBJggrfG55B7/1p+EbUYJ+qJ/2me5dAh39l - G7JbkfCuvnVSSnpeM7p6J9BzdxK9A9PoI9h7JkHJwA92fnnwPlmB4DQJorMvs6LRWZfJSSiBS0gxlHn+ - MHGKRDd5t58k0XNvCrf7JhCX2YgDnNBMovFTwjoCzZ41QINW2O1I2KxrGZ/kFV6Jhmt30dkzhi7SQVfv - JIJiCiGr7QqOTTSsvLLgSobaJbyEjEwu9OxisF/LFccCRGTaRonoJLp6xnH5aj+cfMvIWREiIn1vIUiH - fkWcsXAtpMXLJt5X0BTyePbi8bBECS42duNG1whu3R7BhYYO+ITngGMRhL0azgQXaJoGQBiYgXPkmG4n - z9xgn+tGYMwFqPPTJnfJ2ZqRPn9GWPkeUOdnkOK7MBMUMqYuBbQqNUF/RGxcv2HTR8rc44G6VhmDNu7F - iEiuR3bJX3C+tgMtbffRemsQre1DbP18bSeyTl9DWGIdzAWFUDNOHtqv7hP85rp3fk36oluOJrYirmby - kgG+cz5j4pzHGDvl0UtqgkIXCT0u6YLZ8ocv9RQP6gbHqhvF1mqaJfcdtjy1zLHMAimhZZ65rGaU1K+k - FyWR1wyI375LR5W883PC+wQ65OzvAMJrVFjKShgfzWeMiDjPMZcxdMhlDOxzaLN0NKgR6v4dAs2ELqKt - hI8Iv/iOjwlU8AMC/eFBj1lqnr7LCkuzXtWAERHmEWFDImxgl8Po24kZPRsxw7XJprelRqRm6PS8SaCm - qAiF1mkbvUefoUO9Irya+D8ZkGatT8Vts1+IW2czugQdqyxG50gWwyGQkE7Pv0Wdn0lERT8oLIWN1f6t - vEpWbXyVrNr46gDzDwm9y+evWey0AAAAAElFTkSuQmCC - - - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 165, 22 - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - BarButtonItem14 - - - BarButtonItem5 - - - Zeigt Informationen über das Programm an - - - 0 - - - Programm Konfiguration - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - NotifyIcon - - - VWPMO_WF_USER_ACTIVEBindingSource - - - LabelLoggedIn - - - Home - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACp0RVh0VGl0 - bGUASGVhZGVyO0FkZCBHcm91cCBIZWFkZXI7SGVhZGVyO0dyb3Vwx7rTcQAAByNJREFUWEetlnlQ1eUa - x4+Vmnmzxeouf1nNrWmdqbRyuv+61Z1pmVummRMzmSkiihuxCRx2Oewu4QKRgoKICyqCCgi2ySZoWpne - unAEZFE453A4HHru93ne33sONJxxmuk385nv8/sxvN/v825gwjMO3AHuBHfdhvF/kAmAf4/HZp8xnzt3 - FdVV5hY30JjsZ+pR11MONAfvSg2KlO7S4P3qrz20pWQ5hWT/y4N/wvTT8Bq3LGG6KXjra4J+7mKj4eHf - /iSGRT/b9hpd6twOsulSx1b6NP4lgtcdLe0ZpubrGaZ1WTOVO57xnJx/acg9PDZDw+RijHepjffRtVtw - u920fvNMqr22lorOvyEsjX1RAjRZU0yNbRZTUIY3wISdRXW+A2BwXYsJo03FUH1zo/MhGDMul4vWZM6k - 6qurqLDpDWGJ+QUOwPuC9wPD+072xYQdhXUYAAEMs5SSi2QpuUDJxS20CSQVNlNC4XmK39tEMQVNZN7T - SFFfNlBkXj1F5NVR889dZClYSkHpr9Lq9FdodZqi8koAFTbOo30gMOVlWmkxSJ5BAUkzKo0Qponb934n - AfQ0JhY107HLvXSUudRLR5jvu+nQRUUJOHABtHTT/pYuun5rgFalvkLnranUZLVQY2syNbQm0cmfltO+ - hnm0F5Rf/oS++SWSvv5vOJ29FkofRTzPM8InxHT35/kqwCDMB13DFJPfCKMe2nzWKmTVghorZda0UQZz - po3SQVo100rXbtgowDKDTv3oL2ZMgTCX9tbPFc1nBazM4tDn9JKY7t6251uZeg7gdLkpPLeOitGZGMJI - G6afaRXD1CpFClP5P7qKAP5J06n8h6ViUlA/xzCbQ/l1gBXsQa2YTYtGBJi0ZffXEsDpGpIAG7K/oYLG - G5Tf0El7wO56UNdBecy5DvoC5J5rp5xv22knuNJpJ/OOJTR/zVP0XtCT9C5YHPq8GCnm0KKQ5+itFU+A - f9Kb4N/LHq+AtyzBpKy8ryTAwOAQcNPK9DPkF3+SFsdU0GJzOS2KKqOFkWW0IOI4vR92jN4NLaX/hJTS - O+sP09sg0HKaSmuvUMNlKzWCvn4bDJ+lwxc+pN3nZoNZ9EHws9zxZMC3o74h5RTck5FbK8eJAzicbrI7 - oVIPSe3FRbYBKBDFN9uA+ibqcFE/1DHgFMODzQvoy+9mCQs2PMMBJpZe9DMdueBnev2Tx9hbnslpOTUS - QJuMNLOJiTby0m+YeeB3A7tjgBbCsLhpPuXBnHl//dMS4FDLh6aS5g9M89c+rdzxTE7dcUaOnx48Lfes - IqeWUoFWJmUXFLAKO2uggBVEZZRjhpy0YdNCmrfkMfAozf34UZrtN+0UvMbP8ZtmmvXRNNP8Nd4Af0nO - rpITIJ39rps+0UGB6z47fxukW1CFUdtYFX3A5nCS3e6gH65YufNHwCQgF8/vn3uTtlXSAHa/NrTsqBGS - 0ZEFs5M8ku2KTUK10mymmpJARGoZ9dqcYFD2kDmzggPcB2THE9Eo+Lk3YetpCcDJGd0Jc9Po7KaBHpy/ - 9/Zz7aWH3/sHRRkb9lF0+gl2uR/4DDAlLuskdr1bBmUT7iTp8yrRRCxPIuoEkLhNaQIriDc0YWslxQtV - FLrpGPX0OakL8JJGppTdNsB95owKOX4SQHeETrTqjrox6KgasHb3DRjA+JYXXtLw5OPs8gDwHSA67YQc - PW0WhyWJ21Lp0dgthm4+7SHGU59CbZB1ioITjtIN/HFieD+FJR1llweBzwD3b0w5Lufe2423K55K6QjK - g3KtFCY3DQzDTtQj4dPxWWKpDiD3/lgBHuBp4vUSUwxkRidCppfozJOCOQPKoI7C0kWDqHQG79C1sYep - A+YdvQiAJd0Qd4RdpgLfAUIxTbxenq6Mjjxd3XKIdvQ6ZGA26ETdeRPvGv5Zj4PaDeV3Pi3rYg+xy0PA - Z4AHQzBNfMHoqVMdVVBkGmCVupw28jvYKDVILce5H02Q+RBd77HT9W4EwH5aE3NwZIBxYwWYGhx3WNZL - dac70h2jK6MzUQ8wgSp0zcrmim4ECIo+wC4PA98B1scelMtGTEBECroB4cKJUYRZFOGiZRSWrFURGHmA - rDBv4wDYsKsii9mFr2KfAR5aaz4od0B7r106U6fAi5yE2wEzrW3dNmrrsksduNETgP8HGDPAwzxNfAd4 - phTpuQsvDtUVBtXdca1p7VKGbYa2GjUHWBlexC5/Bb4DrMY08QU00pRNrNyJUYuB0ZlGGdtE2VS4YSi+ - 8SkKCCu8bYCpgRHF2DC4A/iKRWoB08nKR5PvBu/RVBeRuoRQixo/41MEVadJHVP/0H3swpvQZ4Apy4J3 - V60M34/p2k8BmLKRrEAHK7QyoYXkr1XYpzTEULAc35aHKF2yLrcaHvqP0ZgBJoIpgFPyVP3NB3//A/zD - UB6PzdlD/hkZHYBM/wcBo+LeK778qgAAAABJRU5ErkJggg== - - - - RibbonStatusBar1 - - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DevExpress.LookAndFeel.DefaultLookAndFeel, DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - BarButtonItem9 - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACF0RVh0VGl0 - bGUARG9jdW1lbnRhdGlvbjtIZWxwO1F1ZXN0aW9u4JPMmAAACjRJREFUWEelVndQlVcWJzFZ07PZmc1s - +W9ndmd2dnY2u5OZJJvEioIFGypNAwoCUhXWShEEfFIEBQWkSQlVehUMnffg0R48ioJ0EAJSBAFD0d+e - c9+DUePM7uyemd+79/u+887vd849936fxv9hb7wG/5vFZTZpxBBiBRQ0V4gxNr1RICZdwW4rJG+qseY1 - WHkmfCNv12lEptRqRBDCk2kkhCfJNcIYiTXkorZoIgHwWpCtkK65HlP62c3EGvfwlFppRHJdQ2RK/XLE - 7brl8GR5IwWVhsRXXfQLzfsH+b7F/ur/vvG6uCHxMnqktqjb9T9zIFvJeE3w91X7w5JrO5Jym1HXPIiH - ozN4NDmL58+fC/D84Y/TkDcNID5bgZB4aefViGID+u/b/H+O82r867FVdFttXJoXH5KJrC9fz/5DaHx1 - TfYP7Rgm0hVj0uVnz7G0/AyLS8/EuLT8HM/oHtvw6DQyi1oQeKtCftbz1h8pFlfkTXq0ynHtVjnzqCw0 - oeZV8jV+oXc0QxOqJ1vuj9BtJgUWFpfROTSDgsYRJFUNwierE5LMDsSW9SO9egjN3ZOYmV3EIvmxyKb2 - YQRFl0+6+aVqUUyuxqoI//BS5lJZ8Peyl8h9gvM1I5LlCw9/fMzcIkNl7xQCC7oRkN+La4X9CCwaIPQj - 4E4ffHN6Icl4ALfk+/BIakNl6yiezC4IwYPDU7gRU7XgJEnQptirInxCi5lPZYHRlTyIsrv6Jv3pRmzV - +I9jqpLP/7SE+PJ++OR04RoRMrFPdhfcb7fDKb4V5+KUcIlvw8XUDnimqUScjm7Btcz7GJucw/zTRdEf - V8KKJ447Xv0LcbCINyQ3CplTZf6RZTxwp79NjjLlvWFBPju/iKC8LngToX9hH/wKeuGS2IqYwk60dI9j - hp7PPl2ConMMQRltcIxsgnPiPZyPb8e/IklYdDOGHz2hOAtQtA7C42puNXG8R1jZIavGF29dDMgyjE2r - FeRcvsi73fBMfwCf3F745PeIbOX3RjG/sCwwt7BEUI1Pyb+2fRR2IXU4G9sCx6gW2IQ04lKCEhNT85ij - SoTHS+HgGm1MXGsJnPCq8cVayfWizr6hCdHN0rYxOCe0wTOjE5eye+CS3I7YogeCbPanZRL4DHF57aoq - 0DXfnycRycUPYBvcSNVQkphGmAXIkVnZi/GpOTzoHYOTJKOLuD4g8M4QVRDZn7oYpxWeKBXZz8wtwOX7 - FjgltsM9tRPuaV2UURO6h6eJTEXUS3N997to75kQy/CEQc/GKFsz/2rY3WyGVXCDEGBxRYbBkRlMTT9F - UFQxzOwDdIjzFy8KePv85VT/CvkDkX0DrekJWs+zCe1wpqZyTumggA149PipELBIuyJH2ovDl8owPD6n - IqcScyWeUEWMfaSwpipYBNXD1L8GRl6VyKzowcjYE9wtb4PtuahA4nyXIJaBf95x9s6o6ul/JLo2LK8D - 9hEKnIppxZm4NpyhprInQTdz2jE0NouKpoewDJDBN1GB6fklgRkSwcKqW0Zg4iuFRaCK3MSvGoaeFfCM - bsTQyDQaqRntnWK5GT8kcDMKAe+el6SPT888xaOJObjcUsA2TEFVUMKBtpRDdCtORilhHdoI8yA5oZZI - KtE5OEXLtSgacIkqNzD6BFYBUhwl4qNUehPfahy+LIXBxQqYeJWjZ2gSnT1jsHOKmyDOjwncB0LF+2c8 - bi8uUwaDtGf1LpTA8kY9bG4qYBPWDNvwJtiFN8OGRlu6Pn6jAZcTFHgsyFVHcWLhfXwnKYMxkXLWxj7V - OETk+lT+/RdKse1kPrr6xtHVPw6bczGLxPkJgc8EIeADR7ckIaCXdsGe04XY61QC88A6WFIjWdJ6ClBX - 88gZxhZ0qDKnd0A07Qa9i+WCXBB7y2B0qQoGnkxehu0n72D7iTx09DzCve5RHD8dxQJ+9ZIAe+f48cfT - 8+gemMChC8XY5nAHu88W4zsKaHqtFmZqmJIoE78aOAbLMUgvqDbaBUYepZStTEUsIWKvCiFI15niEPlW - 21zoORXiXtcY6pUDMDsZxkvAAsQScA+8f/zULVlH9wh6BiZx4koltOzzsd2hENsdC7HPmQi8pTAmYsZh - PxXRQfcyHHArhSERGlKpOWN9DyJ2LcHO00UUIw9b7fKgaZ0NW+8ytHaOil1gbBUkJ85fvijg3SO21wML - ipUYeDiF6KxWaNrkQvtEgchAgMTonLkLXRcipabSpXXd51KMPS53sZcy1XUtxa6zd4VgbRKvRcRb7XKJ - PAcbLTMQnKSAkt6ssSkk/IgkhDhf2gVr9x5y3e1xJROj47Oob3lIa5aLrSRiK2XBQrQI2ifyxZxLaiEp - QWXzMGTKYVh5l5JvjppURbyFrjdT5psts6Blm4VqxYB4PZ9xT8TW3Sf0iJPfCcytOogIHx+xCelWtg+C - vwH8Yuux6Xg2VSJHBFSBgpOgjZaZ6KAtOEYnGx9MwyR6g0U6tpCwLZSxpnUWNltlC7/15unwjqql/T+E - 7MIm6Jle6SWuXxNWT0I2VvLeHiPXY24+aWK71LcMwcj5DonIgiYF44y22KjGDRR0iE61BfoaYvB8/bF0 - 4bfZKpOQhY0WGcLP4Fy+yL5eOQQH5xjK3sGKuFbKvypgpQqfGJgH1N0pUaKBFJfU9EDnJBFSsE3HKTCJ - EcFpTe18SulVOyvA8xUffsbzdcfSsMMuC0XSbsjpOzIivgz7Dl1qIo5PCfw2XCXXMLTgo1nVjF9tPPyV - ic31ySp6L9QpBylAFwzPF4gMN5pnqDJjEvNUfGt6W2D9sVSsoyXgcq8n4nVmqTA8m4+Cik7UKPqRWaCA - gan/1Gdf7F1HHPwmfCl7DX2zqzzwDd4WH27cYb3f1D5kMY92BX/pVtX1wStMhi1W6SL4OvM0IiMQmQDd - +9YsTYjZbJkGj5sylNf2QNbYh5TsOhwyv7r41aYj/JXMW098Ee02ktCgtoNH/V/8JhQNuU7L4qC+WcDj - uFQpBeqHrKEPP8i64XtLDlO3Qhw4lYtvjibjmyMpYm56oRA+UTUoqupCVX0fpPW9CIkpge53l6e/3GBs - SDH54BGNx1y7DDxpqjZdY98XBayI+Oivn+/8YreRZ9Mp1zik5tZT4F4RmFFVR1CPlXU9BB5V8+SsOtic - jsCOAxea//y3Lf+kWHzur3S9ELBTz4Omatt7yFsIeEUEL8f7hE83aFtb6xh4DZjZBUNyLQsJGXKk5TWi - gsrMSKV5fHoNLgVkwsQqCDsPug98vdncjv77WwJ3vCg7Y4Vn2wE3ulTbbkPJqoBXRHCzcMd+RPjN518b - 6GjqOAZvp8wIHbsMvLBL3xPb9rt2btvv0rxpx8mQv3+5fw/5/o7A6/0OgRN5iZyhretKt9S2U89LQ0ff - 82cge1UIdzCXk7cSZ/d7NXjO93id2Yd9V4m36V7QENjnKoi197loaO11oUf/va0I4a3KgbmkTPIi+B4/ - Yx8G+/8H09D4N5NlWbdRYGV2AAAAAElFTkSuQmCC - + + ADDI beenden - - DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 165, 22 - - Form1 + + Cockpit anzeigen - - Quickstart + + 166, 48 - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACt0RVh0VGl0 - bGUAT3BlbjtGb2xkZXI7QmFycztSaWJib247U3RhbmRhcmQ7TG9hZPHDxGMAAAfgSURBVFhHxZYJVFV1 - HsefVpNlqS1OqTkFaaNzmkZNxkwFFagQ3FHTSVIzxhgdTc0VMLdxRVBjExCRRUVBSK1EETQW2TdZ3Nhl - Xx/vPd5j+/b93/eePhs6x5lT9j/nc+7lncv9/L6///3/75UB+F3p9sfHSbc/Pk70o8cj8qsNwwLEjZ8g - T3XDH3SIc3HNr1aEYQFPxLqZWmb6mqdk+1lAT5YeXy3xh8zm89onSY/MI+YyLZNlGd7mRByJ1wPSPXn0 - nCRL9yDuWgyHYQFPZfqYV7WUfYsuTS65YUCORFtTPLKPTatxc3hnIK8XRfT8P3hoGg0LeJrVAx13gdYL - 5DygOkciAWUEoDhLzqEu+wASDpqd5PW9yTOPwLMGiL/FVN6fRsMCerFdQPttnfjbB+KWMEB+BmgORZc8 - nEUcQsphM6Qc0nHQDMl63EzJBCS5mhIeD0zAdRctcXvHp4VuGD2FrqeJ6MbDBaS5TwTabnUrRtNJoDEE - aAhCV+NpdKli0aVOJ2kGpOpIMSBZRxKaC08gbve4arpEN0QXHirgmZSDpiwgr3txfRA5jq7aY+iqOYqu - al90VRwhnugsd0dn6WF0FLuho+gAZ3EfG7kb7Td3oi1/O9pyt0KT44T2O+6I2zlW2J4jUgGG41nRMvCh - +3liIYZeXEVx5RF03qO4TIgPUepK6X6039pD6Q6052+l1BltOY7QZG2EJn0d1GlroMlzwRUnE1FAXyKW - 9EMPZe/E/eP58GU9ENfpElfrxd4PxCUUFwvxXkqZ8oYTZeuhyaAodRXUSSugSnSAKn4ZlNeWQhG7BKpU - R0Quf1sU8Ap5nvQi+odS1jt+zzg+fJxLIa7xfyCt8GCbDzOtvsX70XFHm7Yt1wnK5JW4dWIWkr/5AMmH - LIkFktwm47rrJCS6mCFxnykS9k6AuH/kv4wR6WCMCAcjhH9hpAj9/I0gukU3ZM/9yPnp4FpvL/NEW8lh - tN1xgebmLmg4j+rcLVBnO0LNlqrS1zPNGiiT/o3K8//gRjUHdXlnuFcUkyJSyIeOtN7VcZsP7S2JTmUB - yUOnIhfy0micWWpUTLdYFbLnr24bA3XlJSgLXKDI3oHKaAfkBMxEqrcNUr2skeJhhWR3Ky5BJj1oietu - FiiI+Aqapkx0KDKhKfSBOt8FrXn70XpjL1pzd6M1ZxeU2TuhzNoOZcbXaElzRkvqZrSkb0Vu0CcIsnvd - j24xDbI+Mc4mUBSFozHZGXXX1iDN0wattWIJ6RKpmUZ9R4uU6iY6lPlor4tGa74rZXugyt4FVY4Q7oAy - cxuU6V9DIaQpjpAnb4T8+jo0J6xBc7IjYpzfh4ftoDl0S1PQN3rzaDTkBKDi0ircPrkA2cH26FTlQ8Pl - oy5wI65SQnUuE+buo2i3lqz/QJG1EwoKFRlboRDSVCdKN6M5aQOaE7+idDWa41eh8eoKshz1V9fg1CLj - VuvhfV6mW3oI+0WtG4nKhMO4e3oxUtwsURzrgo76a5KsNXcvZbqEFCopVGZu1wrTtmhbm+IEedImplyP - poS1aIpfjaYfV6GJwoYYBzRE26P+0lLUX7ZHwbHZCJg7OIpesT1Lu2K/778cgaKLO5DjPRtX2J7mO2HQ - lARLQlXmTqgyOI/p2yijkDJtW4VwIxOug5ytbYqj8Jo2ZUP0MklWd/Ez1P2wCLXf2aHm/HzUnFuAq44m - cJ82cC2997flFy4s/yvyQ9ciYddkxG6fiPaqC2hJ+BLyuJVo4dwphIy0XN8AeeJ67VzGMeU1tjZ2hS7l - MjREfU7pEtR+/ymlCyldgOoIW1SemYaKU1aoCpuBUDtjrBz70tv0Sq92UcCLkf/8C9J9luKH1aOQ4bcY - 6kJ/NEV9isYoOzRctEN91EI0XFqCxphlaLxCWSznMvoLtpWtFSkvLkIdU9ZyaVZHzkV12ExUnbJBRciH - uBdsiXtB5igPssBNr0nwmz6wgE6xGd1/M750dvFbfGPZItx+GEouOqIlYxvqv5uP+gvzUHeenLNFTeRs - 1ETwxuEkbDqqTk9FFZNVhdqgMtQa9yirCLGQZPcCJ6H8+ESUBZih1N+UjEeZP9+Km/6Ggx8O8KRTvJR6 - Hp06SPhlL5/6ZAiiNlngzJJhkGftR8PlpaiNmIWaszNRHT6DwqmUUHRqCipPfoSKE5QxWYUkm4zyAAop - K6ekTMiOjkOp3/so8R2LkiNjUOz9d56/h8jP3sSWCf0X0im24h5+1uL7Rib7Y6CtEcLsR+Ly5vGQpziz - hUzIVFWhVlpZCNsYzDYGUshk5QHkmJmUqsxPKysVMp8xKKWwxNsEJV7voshrFIo8R6LIYwQK3UfB12aQ - esQrvQbTKdZ/Dx8rbQH9/WcMRvD8ochwny4tl0op4QdMyJaKhJJUCE2ZbjyF45iICX3eY0KBCYq9iOdo - FHq+i2KPURSOJEI8Arfc3kGy03C4mr8aQ98L5EmfjwbIBGL085oyOC1o3lAWMQwhH/8ZwfPIx0MROPct - BEkMQdCcIQgkx23fxPHZZJYxj8YImGmk4w0cm0Gmvw5/wTQy9U84OnUwfK1fwzcWAxrmDO87gT7xSdfT - z3qQTCCG2I/7kP5EvC5f/RmizF9C9PCXEHcXiHNx335EWvt+1q9Jcn0BYjMQa1IU8qiIG/0viP/Rf03/ - 10epGPqvk9+a++N+AfqT34tuf3x8QPYTe6ndyZod4FAAAAAASUVORK5CYII= - + + cmsSystray - - groupQuickAccessForm - - - - 0 + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Datenbank Verbindungen Verwaltung - - + AAABAAEAgIUAAAEAGAD4zwAAFgAAACgAAACAAAAACgEAAAEAGAAAAAAAAAAAAEgAAABIAAAAAAAAAAAA AAAAAABGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqoA @@ -1393,98 +1037,149 @@ /////////////wA///////////////////8f//////////////////// - - Kalender - - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - SQL Konfiguration - - - Objekttyp Einstellungen - - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - White - - - BarButtonItem11 - - - BarButtonItem4 - Workflow und Taskmanagement - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Tasks und Wiedervorlagen - - - BarButtonItem10 - - - System.Windows.Forms.NotifyIcon, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - BarButtonItem8 - - - Horizontal - - - DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - RibbonPageGroupMenue - - - pageHome - - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - User, Gruppen und Mandanten + + + True - - BarButtonItem3 + + 190, 56 + + + 410, 17 + + + 553, 17 + + + 831, 17 + + + 17, 56 + + + 132, 17 + + + Hilfe - - groupQuickAccessForm2 + + Zeigt Informationen über das Programm an - - DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACF0RVh0VGl0 + bGUARG9jdW1lbnRhdGlvbjtIZWxwO1F1ZXN0aW9u4JPMmAAACjRJREFUWEelVndQlVcWJzFZ07PZmc1s + +W9ndmd2dnY2u5OZJJvEioIFGypNAwoCUhXWShEEfFIEBQWkSQlVehUMnffg0R48ioJ0EAJSBAFD0d+e + c9+DUePM7uyemd+79/u+887vd849936fxv9hb7wG/5vFZTZpxBBiBRQ0V4gxNr1RICZdwW4rJG+qseY1 + WHkmfCNv12lEptRqRBDCk2kkhCfJNcIYiTXkorZoIgHwWpCtkK65HlP62c3EGvfwlFppRHJdQ2RK/XLE + 7brl8GR5IwWVhsRXXfQLzfsH+b7F/ur/vvG6uCHxMnqktqjb9T9zIFvJeE3w91X7w5JrO5Jym1HXPIiH + ozN4NDmL58+fC/D84Y/TkDcNID5bgZB4aefViGID+u/b/H+O82r867FVdFttXJoXH5KJrC9fz/5DaHx1 + TfYP7Rgm0hVj0uVnz7G0/AyLS8/EuLT8HM/oHtvw6DQyi1oQeKtCftbz1h8pFlfkTXq0ynHtVjnzqCw0 + oeZV8jV+oXc0QxOqJ1vuj9BtJgUWFpfROTSDgsYRJFUNwierE5LMDsSW9SO9egjN3ZOYmV3EIvmxyKb2 + YQRFl0+6+aVqUUyuxqoI//BS5lJZ8Peyl8h9gvM1I5LlCw9/fMzcIkNl7xQCC7oRkN+La4X9CCwaIPQj + 4E4ffHN6Icl4ALfk+/BIakNl6yiezC4IwYPDU7gRU7XgJEnQptirInxCi5lPZYHRlTyIsrv6Jv3pRmzV + +I9jqpLP/7SE+PJ++OR04RoRMrFPdhfcb7fDKb4V5+KUcIlvw8XUDnimqUScjm7Btcz7GJucw/zTRdEf + V8KKJ447Xv0LcbCINyQ3CplTZf6RZTxwp79NjjLlvWFBPju/iKC8LngToX9hH/wKeuGS2IqYwk60dI9j + hp7PPl2ConMMQRltcIxsgnPiPZyPb8e/IklYdDOGHz2hOAtQtA7C42puNXG8R1jZIavGF29dDMgyjE2r + FeRcvsi73fBMfwCf3F745PeIbOX3RjG/sCwwt7BEUI1Pyb+2fRR2IXU4G9sCx6gW2IQ04lKCEhNT85ij + SoTHS+HgGm1MXGsJnPCq8cVayfWizr6hCdHN0rYxOCe0wTOjE5eye+CS3I7YogeCbPanZRL4DHF57aoq + 0DXfnycRycUPYBvcSNVQkphGmAXIkVnZi/GpOTzoHYOTJKOLuD4g8M4QVRDZn7oYpxWeKBXZz8wtwOX7 + FjgltsM9tRPuaV2UURO6h6eJTEXUS3N997to75kQy/CEQc/GKFsz/2rY3WyGVXCDEGBxRYbBkRlMTT9F + UFQxzOwDdIjzFy8KePv85VT/CvkDkX0DrekJWs+zCe1wpqZyTumggA149PipELBIuyJH2ovDl8owPD6n + IqcScyWeUEWMfaSwpipYBNXD1L8GRl6VyKzowcjYE9wtb4PtuahA4nyXIJaBf95x9s6o6ul/JLo2LK8D + 9hEKnIppxZm4NpyhprInQTdz2jE0NouKpoewDJDBN1GB6fklgRkSwcKqW0Zg4iuFRaCK3MSvGoaeFfCM + bsTQyDQaqRntnWK5GT8kcDMKAe+el6SPT888xaOJObjcUsA2TEFVUMKBtpRDdCtORilhHdoI8yA5oZZI + KtE5OEXLtSgacIkqNzD6BFYBUhwl4qNUehPfahy+LIXBxQqYeJWjZ2gSnT1jsHOKmyDOjwncB0LF+2c8 + bi8uUwaDtGf1LpTA8kY9bG4qYBPWDNvwJtiFN8OGRlu6Pn6jAZcTFHgsyFVHcWLhfXwnKYMxkXLWxj7V + OETk+lT+/RdKse1kPrr6xtHVPw6bczGLxPkJgc8EIeADR7ckIaCXdsGe04XY61QC88A6WFIjWdJ6ClBX + 88gZxhZ0qDKnd0A07Qa9i+WCXBB7y2B0qQoGnkxehu0n72D7iTx09DzCve5RHD8dxQJ+9ZIAe+f48cfT + 8+gemMChC8XY5nAHu88W4zsKaHqtFmZqmJIoE78aOAbLMUgvqDbaBUYepZStTEUsIWKvCiFI15niEPlW + 21zoORXiXtcY6pUDMDsZxkvAAsQScA+8f/zULVlH9wh6BiZx4koltOzzsd2hENsdC7HPmQi8pTAmYsZh + PxXRQfcyHHArhSERGlKpOWN9DyJ2LcHO00UUIw9b7fKgaZ0NW+8ytHaOil1gbBUkJ85fvijg3SO21wML + ipUYeDiF6KxWaNrkQvtEgchAgMTonLkLXRcipabSpXXd51KMPS53sZcy1XUtxa6zd4VgbRKvRcRb7XKJ + PAcbLTMQnKSAkt6ssSkk/IgkhDhf2gVr9x5y3e1xJROj47Oob3lIa5aLrSRiK2XBQrQI2ifyxZxLaiEp + QWXzMGTKYVh5l5JvjppURbyFrjdT5psts6Blm4VqxYB4PZ9xT8TW3Sf0iJPfCcytOogIHx+xCelWtg+C + vwH8Yuux6Xg2VSJHBFSBgpOgjZaZ6KAtOEYnGx9MwyR6g0U6tpCwLZSxpnUWNltlC7/15unwjqql/T+E + 7MIm6Jle6SWuXxNWT0I2VvLeHiPXY24+aWK71LcMwcj5DonIgiYF44y22KjGDRR0iE61BfoaYvB8/bF0 + 4bfZKpOQhY0WGcLP4Fy+yL5eOQQH5xjK3sGKuFbKvypgpQqfGJgH1N0pUaKBFJfU9EDnJBFSsE3HKTCJ + EcFpTe18SulVOyvA8xUffsbzdcfSsMMuC0XSbsjpOzIivgz7Dl1qIo5PCfw2XCXXMLTgo1nVjF9tPPyV + ic31ySp6L9QpBylAFwzPF4gMN5pnqDJjEvNUfGt6W2D9sVSsoyXgcq8n4nVmqTA8m4+Cik7UKPqRWaCA + gan/1Gdf7F1HHPwmfCl7DX2zqzzwDd4WH27cYb3f1D5kMY92BX/pVtX1wStMhi1W6SL4OvM0IiMQmQDd + +9YsTYjZbJkGj5sylNf2QNbYh5TsOhwyv7r41aYj/JXMW098Ee02ktCgtoNH/V/8JhQNuU7L4qC+WcDj + uFQpBeqHrKEPP8i64XtLDlO3Qhw4lYtvjibjmyMpYm56oRA+UTUoqupCVX0fpPW9CIkpge53l6e/3GBs + SDH54BGNx1y7DDxpqjZdY98XBayI+Oivn+/8YreRZ9Mp1zik5tZT4F4RmFFVR1CPlXU9BB5V8+SsOtic + jsCOAxea//y3Lf+kWHzur3S9ELBTz4Omatt7yFsIeEUEL8f7hE83aFtb6xh4DZjZBUNyLQsJGXKk5TWi + gsrMSKV5fHoNLgVkwsQqCDsPug98vdncjv77WwJ3vCg7Y4Vn2wE3ulTbbkPJqoBXRHCzcMd+RPjN518b + 6GjqOAZvp8wIHbsMvLBL3xPb9rt2btvv0rxpx8mQv3+5fw/5/o7A6/0OgRN5iZyhretKt9S2U89LQ0ff + 82cge1UIdzCXk7cSZ/d7NXjO93id2Yd9V4m36V7QENjnKoi197loaO11oUf/va0I4a3KgbmkTPIi+B4/ + Yx8G+/8H09D4N5NlWbdRYGV2AAAAAElFTkSuQmCC + - - itemInfo + + Grundeinstellungen - - RibbonPageGroupProgram + + Zeigt die Grundeinstellungen des Programms an - - Entitäten Designer + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACt0RVh0VGl0 + bGUAU2V0dXA7Q3VzdG9taXo7RGVzaWduO1NldHRpbmc7UHJvcGVydDgftSEAAApzSURBVFhHnVdnVFVX + Fr7WkGKmJJkxa7ISgyODiUQdUSMKFkSUGAU1gqBA4mCJDQyg+FAJxRIBUVZQo6CoCKigFJH+6B0UEKQL + 0rsIdlx7vn3ee6iz5sdM9lof5917zznf7ucg/Q4ZBowARgNqSrwFjASGA/+/HDgW/N/hw7gkeQDuRy/x + VEFuv+/4DDevi+TqdZ5cPc+Ti2cgLV258Wt8YyWG7Tt8Vtp7CDgYIDkf9JdkHmekPR6nBZzcf5N2u52S + drue5P0UwmQvBl++AQiTCbz2ji0cJTtw2is1q4SePR8USMm8TassbI/iG3uD5wytVT6Ld719j6TevgGp + +8GA5ODih1dKeV0BiGoRu5kt4lG1CT+/s/ewf1ljSxf1PnxM7d0Pqba+hVavsy/HtzEAh4bnMV4P0yhg + eBfIu3r7pZ/2+uJRKe4+QW+QG3675l2XI+eigXg7mbcO3ok4r7NxmLDb1c/D0+8yPX32QpA3t/cSLKPN + tu60xMTmkLGpzUTMZUXGWG3cvXCn87EkO5nPzfEaWh/iHSs0vLOnX7KVHcNPpbh5Xxxy8SKQu3kHxpRV + 1lNFzX06GRhJzh6nb+xxOxV22DdkMDo+m1rauql/4Kkgb2ztofsAzz8VcJXcPAMHbZ28o2z3+CR7nwyl + wuIqyi4oJzvZ0YRx47/4CBysxLAdu72ZTyE/e13gga0fse+wf3RZZYOwsP/RU3r85DkVl9VSTmE5DYjn + Z9TTN0CtHQ8EcX1zF91r6qQ6oKmtl9q7+ig16zbl36oU8/j7rbv1FBmXQUuMbWLB8Q4wXN/oe+ZUiMuR + QB5YgZF7D/pHlJbXCbLuB4+oq3cAGz2iB/2PCfGj1s4H1ATL77d2Y3MQN3ZSTUM7Vd5rpfLaFiqracLv + NvGutKqR0vMqKKuomsKjUslg6Q+J4HgXGDHf0JI5FbIfZaMMwYgtDoe0j58Oe/no8VOQ91NHTz+sekht + nX3UAqvZylfkHVTd0EaVda0gbqE7VU1UfLeBisrrqaCkjrJvVZM8p4yK8bxhqwtpzzJaDA5RKXMN1jKf + QmA1FBjkn5zpbzm6+MXculNNPbCYXdoGq5s7ekGOeLd00z2Q1za2U3U9LAd5eU2zsJbJC8vqKb+kFuQ1 + lJZ3l9ILKijkWgLNN1wrx94fACIHdBeYY1CKDA3i+YtXCtjv9Q3LyC2lXridY93CyQbyBiZHrDmuze09 + 8IgiCfndneomkN+jPCV5RkElJWWWCgVOng0nvYXmN7D3kAJKDIkoP2CkmbWt5s9Hzg32DzwRIRCZriJH + vJlQnlZAdrsOkfHqrcAWsnM8TDeTc+hOZaOId0ZhJcmz71BcejHdTL1NOcXVtN3xl5df6xlpg4OTkHsE + 8wkl+A83G24Ub2/f5ekdFplCnAPNHT2CsAFNh63k3ycDrpCewdrWmbomNppac77U1NKZ9LWeycb5S6xa + /U5fpsI79yglt5xiQRyTcouik4vwXEbHfrvK3ZL771+B9wHOBeaVRlhvcv5ym6Onq63saOH+Q/7U3NpJ + 3ch+LrMGLjNYfq+pi+TpBaRvZF2jrvHP8VjHlrA7+SB69/MJUzQWG9tUJ6TmUwoS74ZcQR6ZWECRSYV0 + U15Am+0OkJm1Q9ly0x8958w3mYF1bwPS6J2yYxQZm0FVtU305Okz6ut/IrK9HqR195Hp9W3UBGW22LnT + 7AWrf8AalRuHQge8N9fAbP1PMk94oY6iQBqRmE/X4vMoLDYXYy6l59+llKxikROmVo6ENX8CJLUdTkdB + /BxZ/4hakPEcbyavvc+ZzmXWIhRYaW5Lf9ec9hnWiETint7R/ZD3EMn76biJn69d7yRKMyIB5HFMnkNX + bmZTaHQWBUdl0uWYbErLvUvfrbVnBf7Ci9W27fIUCnCpNTQrMl1FXgHycjQXrntTSweaMFF7HNawAsPb + u/uktq4+3kMo8Jn6F+pWG/eKkIXH5dJVJo/JohCQX4rMpKCIdKEEJ+cKcztWgPNBemv9Vle6EpGIhlFL + 2FC4vaq+lSqUna0E2V0Dq+xl3mS4zJp7KHczVSarQjDmG5N/2ew7cEoozlZfvsHkmSDPoJCoDFERQeHJ + uEMEkLHZDlbgz4A00vDb7ycvN912cKWFXemGba5UUlYHy9HdUNslFffpVnkD3UaTiUspIPP1TlWTJuto + YN17gOqoHTNpio7m95v316Rml1B+aS2FgpytZXIegyNSCfvTvMXrKmbNXXFs4ldzZmMdGzJkgdhI38jK + 1/fEJXS6DgU5OltBaR1quYaK0GjOBceQ9ab9bSZrtmyYrrNIa8bsRVorzLdu2rDdoy04PFF0RU4+QQ6X + X7yWilDkksztBIHYHxyfAJx8XAHMK0SVzaP1l6yZvNX+8GAj+n0Rt1Umv11DmUVVor4z0NniU4vI+9dg + cth3nBz3+9LRE6GUmlMqyOPTSykYVgddT6cLIA8MT0Ey5tLSVZtfqmtMnQMOviuIywkgGpEEi3jgBxFL + U2vH6xExaXB7PWVyV0Ndx6WXIIaobXmRaDJZRZUIUaPIFSbOuV2Nms8XLr94PY0uhIM8LIVCkHxuXmdp + pp5JPPYeC7CnmUtBzrJugzMPQwp8t+6npPiUPCpCPcdnFFNs2quuFpVUQNdRYq+yHCUm4p2hcDnIzyvJ + A64kCy94+oXQ9NnLM7H3x4BQYMoMIwxKsVjvxAMrMHrRUquFDs4+4shldyvIiygajYW7moI8j67ezEGW + Z4ssFy4Hucrl567KKeByMp0JTQISUQFZZGy6hdQ1tI3Bwck7QmvaIuZUiJn1Lh44JmorLWzj4+V5ogLY + 5TfY5ajbOLj9eoKiq10BeaiSXLg8Ai6/liasPhcmR/zxG144HZxAvwEBUMTDO5C0phmkgOOPAHv6VQi+ + s7TnQShgbLY9PiYhS5xo8SCWI/HOXIwmH9zvYtM4DIWwPlu4PChCEe/zsPo8rGeFQvHe5ZczdOj4BYQk + Q+GFkARyOeJPX0xZkASOPwB8CL1SYKXFTh74xaixf1P/cMWa7QmXwhIoMDSO1tk40VwDi1TdBWaxqy3t + Xzq7n6CgaymizITVsPR8eBr5B8fSNhzL+kaWL6fONEqcMn1JJv5ZIXevQNoPhbSmLkxVe2fMp+Dg8huu + MWkucyrExGyHhJsO/xSl+MFHn3yEK1Os7kJz+eTpi/gaxReJDzQnzZqqZ2DmA0UoBqcdu/ws4s1dz3DZ + D4S5vh9/8o+ZmMvZ/vG48VONYXWa5lfzktTeFuTiPggM0/hSF4NSlq3eJtU3dUro4fwolAD4xOMFnLX8 + rHo3FkdyVUxynki4QCjgFxhF2jrLq/GNmwzXOa9hcMJxzNntbLkgR8lKbyjwzaofJVwwJdzzJNxm+RWH + gxXhBTzyM4OT531dfdMT3r8GiY4Xirjbybxo0lSDU/jGHY6bjGo+r+c1Q/vgxiQx3lBgickmSU/fQtLV + N5fmzFsjzZ5vJqAzz1Rg1tzVPE2llBpcvWDBYiuaD8xbbEnzDC1JfYL2QnwT8eW5ugYWGIYUES7/T/we + UVnFoWBr+TznI5VPNdUJyXP+R5GkfwMPT3OfchuhBQAAAABJRU5ErkJggg== + - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + Beenden - - 0, 675 + + Beendet das Programm @@ -1530,54 +1225,23 @@ yfvkPPhE1Ql+k9vzOv3/P/ifoPoeVeUDAqiG6o3/Nb1j0KB/AMYUfCkDw9hpAAAAAElFTkSuQmCC - - Schnellstart - - - DevExpress.XtraBars.Ribbon.RibbonStatusBar, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - itemSettings - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABp0RVh0VGl0 - bGUAU2VwYXJhdG9yO0luc2VydDtSb3ftAiBuAAAE/ElEQVRYR72W+U9UVxTHH6uWbv+NqW2TWpOmbdrU - 2s1Wa0FRMLFEhm2gFBBZhgEGZV+GRQoMyNIiDiBhT7VlEftLGxNM9yBFKA7gADMMPT3f+968GQiD2A6e - 5JPvvXfeO98z9915cyQiUtkifHaI72OCe+TwVEBVy/iBmrbbo9VtE1TVepthbZmgytZbVNlyi4ygeZyM - V8apgilnyprGZBrHqNQ0RiWmUSptGKXihhGZ+hEqrPvuzsXq4VfZQi7CQwE+xpaJ6amZRV72bvx5z0KX - am7+xR5+8PFUgG950ziup7X1f8i+ts44yLaBdbLZ12mVx6t2njNQ53wDNget2NcYBzk4n6HqBsz8mS0L - EM8UW4ZwJsHNKiKhg5ahtjVWZlVBjPkz55yxCuxkXbHTmmOd9OXDMAsQXk5zoAQK8Cv86nv4i4RWNnIl - kRMuQ1Xs9JBVZRlzF0uYK2A3dSWDMAtkfD0WcLH6Jvw3JlSSIKGTRSuzbKMlqNXmhp0WWBceMmK+KsbY - zbTCPpjtYTwW4J9j/Bb+akKRBMlU5IQWocySDOYWRR+wbgaPJPVSL8z2Mh4LCMgqG4I/J7OJG0VSt0SC - RbCiMi9YlVmQ539DGSjATiYbemD2FOMrHUs1S0fPX5M+SQEdagEZxQOiACQTN0OVhJuZW1imOQurhVWM - 3VHWWWdZsZsJOd0o4GnGT/o4+ap0JKld+ujLdunDxHZnAYEXCvpEAe7JZpVkSITx7ANWhfuqWml2XgZr - 992VwS5qs7pcBcDwvfi2FOhhbZuYM4EpeT1Td3+dUw6bfKhk5LPgxHUelOfvPAMAj0h9XPJjmvhximIy - zPfYI4gRBfi+G9tKb2tMF5QFcQg1KU2HEnO6ZxJzr1NiznXeNkWzuyke6LtJq+8S3wbE6UCnSzM7KVZn - pthMMwxVotOvWU5HGd9nD/wM4SX5v6VpppP5N+j1s7XpmDMoBC8KnFRUCrBl7jyziWc38dwmnlcU1+In - 6PyyUsAb5xop7uuf6XjuMB0Mq87AmvIh/rlw4U5B8Y8C1234R9zz2lkTRTXfJc2VSXrniw56KbjoTV5X - L9hJ8Hl1/yk/Vuw9eKaOIhon6YhugM1Lc3hNfT5PIoJeOV1LH2T00f5PCww8xwvC5+XQy/gMRewE92Zj - J+AeNYLYjPYdzc/DmPF58US1lGscOJBXOTxqqByiXOMww1oxRNnGQcquGCQ9KB8gfdkAZTE6JrO0X6ak - nzKK+ym9uI8yivoorahXprCXUgt67iQbzK6GhCNw37HCbFacbJ/9IVVY89FXDE3/PjUvXkbejF/+mKOU - vC5XQ8KBLcHp9H0huEoCGOtK5VfxbjQkibmdOK3w9NyQYMsQziTebEi0ug6Ybd+QpOb3wH9XGpLY9HaY - bd+QJBm64L8xoZLk/zYkmtQ2mG3fkCTozfBXE3qzITmX3Aqz7RuSuMyr8Odk3m9IPk9shpnckDjNgRKi - gOi0b+C/Kw3JmYRGmOFn7+epgMDI823wd0skNyGyyuP/2pCExZkeXUBEUvPUT5PTymGTD5U3GpKRH36j - 0Og6V0PioQD/4IiyQ+HahpnweBOFa00UxoRz5WGxDXQqtp5OxdRTaEwdkglORoFaOqGpY1gjL1OIpoZC - Imso+JyL4xHVlsOf6V0NyRYFIPB2fDINiYcCsAsAhTibjZ3g3nh4Atcp/4iS9C/I1CZRiUTZdgAAAABJ - RU5ErkJggg== - + + StatusMachine - - Entitäten 2 + + StatusUser - - TableAdapterManager + + StatusLoggedIn - - BarButtonItem15 + + StatusVersion - - Schnellstart + + Kalender + + + Entitäten Designer @@ -1609,6 +1273,60 @@ YII= + + Task +Konfiguration + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABZ0RVh0VGl0 + bGUAVGFzaztJc3N1ZTtTb2x2ZS21WJQAAAl4SURBVFhHlZcHVFRnGoaTWNJNNGaT3T1rL0lgLVlrFJKj + Ro05EQsqIE1QESuKsaHYCwIqogSVIkgX6WVEUYp0EFCkFwcQpjCNmQGGAd/9/iuYPTky2dxz3nPh3nv+ + 9/nKX+YtAJz+4vU2aRBpCGlo39/s2f99vfbVAcAGfJPemW24fNiBMxEXnN0TWp0vJLZucrx28euphp+y + d3/49o96fekCYB+ygVhUTCzCD0nD+jRit3OAl39kHvKfNiK3lI9Lvvdgbu9+jd59QfqMNJI0nPQ+iWVp + MKkfjrt0AbzzONhiQUWkTX7lHRs0FYXDyTUeh1zicPB8LA6ei8aBszHIfFyP4moBsp82ISGzAo6nIrHn + 5G3sPhGOXcci4HA8DMX3/FDgZ4oiP5OClDNzF9HYr0s1EAB7Oaji9gaBquUBXnYWQiGpwo7DN5FFho1C + BRpa5ahtkaGkRojUgnokZtUgKbsaj0obUVDRgtyyZoQmFsDI8jjyclIgaUyApDoS2e4GAhqbZeNPAYZU + RlrjpaYBvYo4NBb4IeA3V2x28MBht2h43kpDUGIRQpKKEZ1WgcjUMlyPzIFncDoOu0fBercXlq87gNNH + DiA56DxENeHQKKtRlXCcmbCSDDoZPkcnwNCKcAsCqEWvNAwl/ishkytwP70QR84FYvNeL5jvuAwTu4sw + tnGHkbUrVlqdJZ3Bertz2HfUG4HhycjILkVelBtkL7JRzg/CjajVMHWcNJnGZ/3w9kAArFGGPgtdj5dd + 1dBKglHotQCabi2k7SrkPa5CSHQafIJ58L6ZAC/fWHj5x+JGYDxuhvEQFvMQSakFKHxSgxahBEX33BGc + /Qt4FbvwqPIqDvnNLPrRbBSbLToB3i0LMqP6V0ArCiSAH9DT2wt1pxbtHRpU1rciI78KabkVpHJk5lXi + UWE18oprUFTWgMq6FgjEcpTU8+D10AANshhItQ/xVOiBAzdmdG9zn/oT89EF8N7TQBP0dJRBK/BHvuf3 + 6H35Eh3dPVBrtFB1dqNJJEdFnYAkRFWDENXPRajhi9AskEIsbUd2ZTj8MpdBrilGS0cY7tdb40TQfBjv + Gb+CjU/SmYH3Sm+uRY+qFJoXPsjzMKQMEICmh5OakxZtig4ylKNZpCCgdoikSkjlKqQ+8YZ32lJIOwtQ + p/DG/boNcPKfg6SI/cxkBImtKzoB3i/xXY0eZTE0zdeQe9GAA2CRq7u6ubuK7qwcUpUGYnkH9UcnZNQj + Mfln8duDZZB1FaJa5on0hm341XsGUtI9UJ7kyUw+IQ1e5zThd983AHzw+Poq9CgK0MX3Qo7bfGh7eslU + A4lCAl6RJ5kpoFR3QabqglzJpAbvsTc87y5DW2cuyiWuyGjeimO3DHE9xA7twmJkXlzLTNhKOmjlnrED + ArCV6oNCbyNo5bnobLiMrPMG6NZSyuVSXI41g0f8clxOMEWzsJFA1Fzk2eVxOB1lgFZlBp6Iz+LBc1v4 + PjCmVXEeRNXxUDenInnfdGbyMfNYZj9KJ8CH+Vd/gVb6CJ21F5HlvhAqtRKeMRtxI8UKoo4UlDQG41TY + YjyrK0JxZRacbs1CrTgeT9rOIaXeEglltrA+Og0Pwo5DXh0OdV0wkh2nMROWgcGLbP6pE+CjvMvL0N2W + DnWVGzJdF6BFxMfW83NRzPdFocAZGY3bUdoUgIP+38Hx+iyU8ENQJnbD3TpL3KvbiC0u0xCR7IOSKFfI + CpyhrvFHgsMUZsL1gMH6L3QD5Fxcim7RfagqXJBxbgE6O7to58vEVpc54FXaI6nGjLp7E561hlDXX6K0 + XwCv1goxFcY4EToPO0+tgLhNiocuxpDnOEJVdQNxO/WZCVuEBs82/lwnwMdZrovRLeBBVXYaqUdnoUvT + DYlcifvZ8bA7MxMJz2wQV2WCxGpzqvdO3ClfAd+iufDJWYSf7McirySP6434HVMgz3KgQLwQu03vNcC3 + y0foBBiWeW4hrQEJUJUex/0jM6DR9tB0U0MkkSOC50/1nYLAoh/hlTsFV3L1cSVHH36PDWB7Wg8nr+7l + lmGZsoNM9SHN2A5lmQeit3zDTNgZYbD+kuEDArCN4pP00wvQ1RSN9uIjSDn0Lc2CXohovgtpsRGKpfAO + PQ+rY/rwyTfEpSw9gpgO17h5+Nl2Kipr69AiVkBOU5SZStPs0V7iiqhNXzMTthANWbJ5jG6AhycM0cm/ + jfbCQ+Dtn04Z6IVQ3gmBrAOtEiVeCMQ4ecUR1gRxI38+gXyPZXZjEBwTiBcUfROtjgzgDplKHmyGougM + Im0nMxN2WhqyeONonQCfpjrPR0dDMOT5+5C0dxoHIOgDaJGo0NKmQGOLALuOW8LmpB5Nw5kw3bkEz5tb + 0SSUo0ms5AAibb9C2z0bKPKP4bb1pNcACzf8SyfA8BSn79BRGwAZdXDi7qlcD7TK1GiRqvGCAJrEKrTS + jlfHb4bVHiMs3TQGdzNSKHoZGgQER3uDXK3hTNt4VjQTnBBmMZGZsLMidyrSBTCCt3821NU+kGXtQvyu + f9N5oOeVubSDANRoblNxxzOWiWYqR1OriIBk4NMzvlAJPpcBDcItJ0GcZA5p5q8IXT+BmXxO0gnAXo5I + cpwJZbkX18Fx2/XQRQDMmEXf3KdGMuFTpOyMWM9EOyNf2E7PlHguUtE+oUGY+QSIEkwgTXdAiOl4ZvK3 + Pg+dAJ8l7P4PlE89IH1oj2j7bzgAhbqbpHktlmImtiHJaENiYlEz434Fk6kobi014nYErR3XD6BzO2YA + I+N2TEd7qRvaUjchzXkudfNXXEOxTr5tMxkRVNsIq0lcisMsJ3L1DaVoWZpDzEim4xBkMh7JDtMgjFmN + thQ73DIey0zY74YBAbgTMWlk7NYpaC86C0mqHcQp1lwjtfEsIU62IJlTXc0otUympHUQxq/jIhXGriFD + YwjIVBi9CoKolRDQXcyzRcDqMf0AA5aAAXCzIHKjnqA+yp5qt5PKsJ1SuI1g7CkjW2habaaINpJsIb5r + Q0DWJCuCsoAo0fwVWLwphHEExqBi1qD82s/wMxolpLG5aci8BgLgDiQuy0ebhVpOFL9KM0sxpbcvxaFm + 4ynN4xFsMg7B6yjVVNugtWMRtGYsAteMQSBFGrCKaTSnmytGw9dolPiw4ZcWNDb7iceW+wF7oD8L7EO2 + bLKm+fJP9PcB9I8+sW/Y/P+IxEVP+t33DQD9mWAfM7Gm+at693/E/mfjcJH3qc8Xb/0XhGzXILFsN0oA + AAAASUVORK5CYII= + + + + User, Gruppen und Mandanten + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAADJ0RVh0VGl0 @@ -1658,38 +1376,253 @@ YzbnA2IOwfwxv8w/S5gS57g/AGl5Af+OTEZOAAAAAElFTkSuQmCC - - DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - DefaultLookAndFeel1 - - - DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Horizontal - - - pageForms - - - BarButtonItem17 - - - DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Zeigt die Grundeinstellungen des Programms an + + Menü + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABp0RVh0VGl0 + bGUAU2VwYXJhdG9yO0luc2VydDtSb3ftAiBuAAAE/ElEQVRYR72W+U9UVxTHH6uWbv+NqW2TWpOmbdrU + 2s1Wa0FRMLFEhm2gFBBZhgEGZV+GRQoMyNIiDiBhT7VlEftLGxNM9yBFKA7gADMMPT3f+968GQiD2A6e + 5JPvvXfeO98z9915cyQiUtkifHaI72OCe+TwVEBVy/iBmrbbo9VtE1TVepthbZmgytZbVNlyi4ygeZyM + V8apgilnyprGZBrHqNQ0RiWmUSptGKXihhGZ+hEqrPvuzsXq4VfZQi7CQwE+xpaJ6amZRV72bvx5z0KX + am7+xR5+8PFUgG950ziup7X1f8i+ts44yLaBdbLZ12mVx6t2njNQ53wDNget2NcYBzk4n6HqBsz8mS0L + EM8UW4ZwJsHNKiKhg5ahtjVWZlVBjPkz55yxCuxkXbHTmmOd9OXDMAsQXk5zoAQK8Cv86nv4i4RWNnIl + kRMuQ1Xs9JBVZRlzF0uYK2A3dSWDMAtkfD0WcLH6Jvw3JlSSIKGTRSuzbKMlqNXmhp0WWBceMmK+KsbY + zbTCPpjtYTwW4J9j/Bb+akKRBMlU5IQWocySDOYWRR+wbgaPJPVSL8z2Mh4LCMgqG4I/J7OJG0VSt0SC + RbCiMi9YlVmQ539DGSjATiYbemD2FOMrHUs1S0fPX5M+SQEdagEZxQOiACQTN0OVhJuZW1imOQurhVWM + 3VHWWWdZsZsJOd0o4GnGT/o4+ap0JKld+ujLdunDxHZnAYEXCvpEAe7JZpVkSITx7ANWhfuqWml2XgZr + 992VwS5qs7pcBcDwvfi2FOhhbZuYM4EpeT1Td3+dUw6bfKhk5LPgxHUelOfvPAMAj0h9XPJjmvhximIy + zPfYI4gRBfi+G9tKb2tMF5QFcQg1KU2HEnO6ZxJzr1NiznXeNkWzuyke6LtJq+8S3wbE6UCnSzM7KVZn + pthMMwxVotOvWU5HGd9nD/wM4SX5v6VpppP5N+j1s7XpmDMoBC8KnFRUCrBl7jyziWc38dwmnlcU1+In + 6PyyUsAb5xop7uuf6XjuMB0Mq87AmvIh/rlw4U5B8Y8C1234R9zz2lkTRTXfJc2VSXrniw56KbjoTV5X + L9hJ8Hl1/yk/Vuw9eKaOIhon6YhugM1Lc3hNfT5PIoJeOV1LH2T00f5PCww8xwvC5+XQy/gMRewE92Zj + J+AeNYLYjPYdzc/DmPF58US1lGscOJBXOTxqqByiXOMww1oxRNnGQcquGCQ9KB8gfdkAZTE6JrO0X6ak + nzKK+ym9uI8yivoorahXprCXUgt67iQbzK6GhCNw37HCbFacbJ/9IVVY89FXDE3/PjUvXkbejF/+mKOU + vC5XQ8KBLcHp9H0huEoCGOtK5VfxbjQkibmdOK3w9NyQYMsQziTebEi0ug6Ybd+QpOb3wH9XGpLY9HaY + bd+QJBm64L8xoZLk/zYkmtQ2mG3fkCTozfBXE3qzITmX3Aqz7RuSuMyr8Odk3m9IPk9shpnckDjNgRKi + gOi0b+C/Kw3JmYRGmOFn7+epgMDI823wd0skNyGyyuP/2pCExZkeXUBEUvPUT5PTymGTD5U3GpKRH36j + 0Og6V0PioQD/4IiyQ+HahpnweBOFa00UxoRz5WGxDXQqtp5OxdRTaEwdkglORoFaOqGpY1gjL1OIpoZC + Imso+JyL4xHVlsOf6V0NyRYFIPB2fDINiYcCsAsAhTibjZ3g3nh4Atcp/4iS9C/I1CZRiUTZdgAAAABJ + RU5ErkJggg== + + + + Schnellstart + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAC50RVh0VGl0 + bGUAR3JvdXA7RmllbGQ7Q29sbGVjdGlvbjtDdXN0b21pejtTZXR0aW5nc3z46Z4AAAfpSURBVFhHvZUJ + VFTnFcdRYjFaT7o3pk1PltPaVk2beqznxHOaaixg1GhbxRSLUTRRowYUNZaqGJTdlU0DFISE3WHfd9kX + YWBGdhFGYBhnhnUEQYR/731vGAdDekrb03vOb+77vjffvffb/s8EgAE235QGk8CcVpPggjaT4Pw27prz + 3+CT0khONONchpzTGmTeSfUmXSPj/MgB5hKmep57hnkz8A0juM3jOI5gxrkMOac1yC7FydjNvZogXeuf + 0VR5Lb0Z/oRfWhPRCF8mpQHexNVkIqkeVxLv4HLCHVyMl+NinIyQwzNGevt0UK45xeJihSKMcxlyTmuI + xn829U5pVNUqdeh6NCHQqef+MPMEiuFxtDMPx3GPaGN042glWobGUdw+gPPhUhXFMiN4JaflMuSc1hCN + C5h3iWZUP/gYRT0jKGSUI7ilp6CbGUY+kddlROcwcjsfIvf+Q1RqRnE2rIqDLiBmVQD/2cw1sgbVvaPI + F4JTUA5M5DCUIFvxEFkKnUiHDpl6Mtp1SCdKVCNwDCrnoN8k+CxMy2XIOa0hGhcw/1RwBc16GGn3BvXB + hyj4EAUn7g1RPzOI1LZBpDB3B5HMtA4iiSigwh38SjnoImLWBTx/MqAM2ZQ0UqZBlKwXsfW9uNnQh/im + fgMJzewHIGnsRyy9i63vQ6S8F19INUhsHsABzzwO+gLBB3FaLkPOaQ3RuNqFDn7FSKeZhVGwMKkaoTUi + N6pFQm4zD/APpkqFoCq9r3yAQIKL3euWw0G/Rcy+ALurhUhqGRCSBD+TiBMEVaoEH1ChQkC5Cp8T15my + HlwjIuVa7HLO4qDfJmZdwAJavp7AWwpIGvpxk5aWlzfmTq9ANAWPlBF1WkSQDycfXqvFl1ItviAfVqPB + 5Yw27DiT2kOxDFswo81QAF9Ds/ePh27d65qt3uuaA/KwdcmC7fks7D5H0Mw+OJtJZGCnUzpsiL8SO86k + wfp0KqxPpeJ9x2S1he0Va4rF15AnxWeLYwu4xQqC97UF8ID5BJ9g3kNexu/o+S7xfeIHen5IvGjES8Ri + gt/x7J8nWIxmlugZCmDjl1wxLx0zpfVmZ0IKzD0kdbe94u/Ak/CQyOEukcGNiamDC3Geia7FuSgpnCOl + +CyiBmfDq+EUXoPTNypuH/HJfCrRX1PAs2YoyDVWpiolmW0dGBNo0dPcP4ZGoqFvDPW9InLtKGREHali + LSFVjyK9QYNPAyueSvS/mXhqD+c506zKSJpj7vQhSk73XibeffYRAr2IqOsVD6bef1nbS7AXD+mRayWc + VJToqQJOX7hp8nevWH6cSjrX4bMbO0+4RuD4uXAcPhWwi/oWFMuVUAw8QpN6BNGUjAMKJ1/QCw1phRY3 + 6BaEMtUa0gyCnkPIBxOsHwevFHJSUaKNVmDO1p3HF51wCc8/5hwWvvsTj6X2Z0OSZI0K1DV0cAEp6/+8 + /zfeIelw9Y1Di7IP9aphSqImnRBFiX1wlVrQCgFBL0TdEKgg3SCtsHUXFFKUaKMC5jo4h+Y2tXWjqvYu + zntLJuycQiZGR8fRNziMg44BE05e4U9KqhqFgpwvR6OyvR8+RUr4FPfAn8THv4REqLRHEKPrZSp6VsK3 + hN4TV4q6cTG/C565nbA6lcZJRX0wKsD08KmgmKq6u9CNjEI3PApFlwbjTyag7dNB3nQfo2OPMfxoDMmZ + 5fj0XCAq2ntxIfc+PHNEPIxwF1AI3iObfDa1BRT448kUTipKtHEB23Y7vuF0IWpi8OEItP06qPuGBN+j + GYBS3U++Hx3dWtjsd0FmSR2K72oRXfMAXnliQjd9Ak7klqUw4GoMvd/okMhJRYnWF2C665DXB3uOXEnd + d8x3slOphUo7gNzCGuw+4IIPD7ujsEyG9i4tKqTNsP7IDX9zC0ZMWik6NDqE8H7TN4Ful/BN+Jy3oJy3 + QYnrtA28FddoG/yJs5IGWHxy86lE6wsw2+vgg8qaZgzpRjDy6DG6acabtp/AitVW21atsbayOeAO5YN+ + VMnaUFTZhMSMMmzecQYVcgWsHFPx3rEkbKKZbTjKJOBd+3isJyzt4ilhHMwPS2B+SIJ1H8eqV1l5/YVy + skIaruH8XYcvoux2E7pVfehQatDWqcZ2Wye89Y7NzrfX79m575gPrYAGBeUNyC2VIzA8Exu2n+TBPyGM + ZdqY7xnB8s2el5414KkScuN3lh8efHvD/myrPS6T5bQS9S2dSM+rhq3dJew77ovMglrIqU+SXo7fr/8Y + q9bYFC1fufkYjeX7PCXV/4qp7wDDOsN6YyiAG2YrVm/+7Uf2l5+00+xLq1tQRCsib+5ES0cPahsUyCyS + ITmnGuu32k++/NqKNTRmITH1YZktoukLYDOz3HY0NjKuAPWtnciiZBHxt5BeIEVqXg1CYnIQl1kJSUYF + nDxC8Ms3NyXRmAVLfrVRiPGfIv6INt/iT0crEjLL4OUXBYvNh7Buy5HJhKxKxKSWYtXa3ZMWWw5OOroE + wd0nCkuWv1tFYxa+vsziK0Fng/gjmumLP17y0pqNB8uWrtyS/KNXfv2H1eZ7iq+HpsLTLxbLV24pWfzy + G5Y/W2ae+NNlljWLXlj8Go157tVfrPtK0Nkg/pCtfc+OHe8nn1Bm4ZtvbbNbbbEfq9ftw+tL37GnPj5w + vO9TB2/OKz//HxUwg/FB4bs6dcXEezuDPRt0NszY+f8DJv8Eh52mfnp1TP0AAAAASUVORK5CYII= + + + + Dokumentart Konfiguration + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAD10RVh0VGl0 + bGUATmV3O1BhZ2U7QmFycztSaWJib247U3RhbmRhcmQ7SXRlbTtCbGFuaztEZWZhdWx0O0VtcHR5OxME + Uu0AAAYISURBVFhHnZf5b1RVFMfLvij76or/mom/WEEpKGtLgS4gtIK1BBBKkSiB0hZQlgpoLaCBUDAo + MSEUKRRamE5n6XT2mR6/33Pffe9NOxONL/nmzBT6Pt/vuee+d1smImW+a0pr+92fj3fek+Md96TVVqr9 + rhxvN/UYZGqvHDvTKy1tvXIU9WjbHVXjke6duNd0aCrvub/117L9x26U7YP8l7J9BqZAUwn8r1c6nZWx + RFoi0YS8Co5K/0BI7j14ITd7+2XXga4a3G8G78l749/K9hzuxkfvwi0mGZjGtLxyuXHJ5R3l8qh5yeJn + VAbfqWTKGAiPJuVlMCaPn43IVyd+k/FxkSs3Hkl144Va3HMmpCZqm66ieFcxA9PZWmPAQo0sNJOFgWxe + 0o6SqYzE4mkJhuIwEJSGoz1qIJbIyuWeh7KpvrMO950FTXMY7lXMwIwWrCUvk5QwpAbIwA1UayYvqUwO + NSfxZEZGsAx96EBd8zU1kEjn1cSFa39JRfWpetx7NlRgorgBDBEvQiYC+TnF6sCpJJXOSQjL8Kg/KFWN + l9QAjSfVRE7OXXkg5ZtOTDJRzMDMI6d9BhRmUhKcyhqoggG1SmAYI7GU9PWPyIb68/r7NIGmaRf5fzov + 35cP1rfQhJ2JSQb4w1mHTxkDmnhiUnw30KwDhjCIiVROorG0PB2KSG1Tl3xS3S5rtp2RNVVnZHUl1SZn + u+5LY8t1wuZC7EJRA7MPnbztGHDSKtAT0xJowaxjCQwiFAgn5O+BsPzxcEju/PlMbv3+FFvyiXTf6pPr + t/uk4esewuZBpQ0c/O6WGnBTKxRVgVmJ+5UEHOIQskbH0hjGpAzDyGBwTAaGovLkeVhn4/HToOw51E3Y + fIgPqaIG5hz41hjQ9jIta1GwgVIxCh0YxXZkjaJGaAaDGQjHZTAQk8BITHYf+omwBVBJA3Ob+SChAbTX + g+YMDJ9dKLaYQtn+uKmjrFDUyjWR0IdVfbMaWAgVNcB1ea3pm5tqgCkL05p1NtCsATpQD5iRCGqEFUMZ + dhTEssRgBk9CwhZBJQ28vr8VBuDArq8m9SXWtH4ohZsTzsrWW3AYWzM0asQ5qWn6kbDFUEkD8/Zhq9CA + ttpN7AcT5gCdz/60VMjKgY9EUzrMO/Z1EbYE4kuqqIH5jb5n+aQ2OwmtCDPwlAET5oNaBdVAVqq/uEzY + UogGpkw0wLbM33v4FxgYd6GsfqhKob60oxw2bkFjQKGoBAcj2JaRlO6kqoaLhC2DShpYwL1KA17ijIRR + VS7YSYnPCibMCgNHaBBQGhh2DHCgt+z5dwMLdx+8JnkY0JQ2LapZV4At3AG7bQZkmA8hyoEGUAORhFbO + 1ObPLxC2HOL7oKiBRXXNV40BJ7E3UBTBRm6LFWiTGgXCBCflFfb/qxAOK6GEDvPG+u8JWwGVNLC49ktj + wEvqB6K1bKuCvfYG3LSEOmBWgAlXA1jSz+rOE7YSKmqA67JkJ7ZKHscwd5IV7IlwN6kVgExtEntQq6GR + hA7z+pqzhL0BFRpwTNDA0u3YKjSg62qhSKhrXAC1adFiagKwQMG4DvS6nWrgTYhHtIIO6GkIWrat4ZIe + RHVt3fVFiwHRgdK0psUvUV0oqwMcdKCDPnE3rd3eQdhbUEkDyyv3XlQDLtQnu64T22ySxg08SMXlhdVw + XJ6jcpB5UAHjbaioAa7LCm4VHkhNWoKZliC22bSaaVWaFgktGJ8t1GhMntMAxFlaU6UG3oFKGli5cdcP + akBTamonqaa0smkJNy12E6sIduCBuAxAfG6srmoj7F2otIEN2Cr8O2Byi520hKoSXlpUF2ih+E7wQIB1 + TIe5fOtpa4Cn46IGln9ac07/BnBPQc5r2ZwHzGu58AXlvaT0wYVW8xlS8LDCruEOKt98irCSQ6hPwtWV + J3sqsF3W7eiUCmjtdqpD1lZ36BB9vM3IPfVa4eT70Vao8rSUb/H0IaBW71e03ACj5NtQD6UQTyx8WtEp + J5ZDM1Fso1+riug9n/id9yJ8DkSWYfsMsAv8B3aCy8E2TRQN/l/x95mc5w6ywJayfwAQQd/PPqM0twAA + AABJRU5ErkJggg== + + + + Objekttyp Einstellungen + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACt0RVh0VGl0 + bGUAT3BlbjtGb2xkZXI7QmFycztSaWJib247U3RhbmRhcmQ7TG9hZPHDxGMAAAfgSURBVFhHxZYJVFV1 + HsefVpNlqS1OqTkFaaNzmkZNxkwFFagQ3FHTSVIzxhgdTc0VMLdxRVBjExCRRUVBSK1EETQW2TdZ3Nhl + Xx/vPd5j+/b93/eePhs6x5lT9j/nc+7lncv9/L6///3/75UB+F3p9sfHSbc/Pk70o8cj8qsNwwLEjZ8g + T3XDH3SIc3HNr1aEYQFPxLqZWmb6mqdk+1lAT5YeXy3xh8zm89onSY/MI+YyLZNlGd7mRByJ1wPSPXn0 + nCRL9yDuWgyHYQFPZfqYV7WUfYsuTS65YUCORFtTPLKPTatxc3hnIK8XRfT8P3hoGg0LeJrVAx13gdYL + 5DygOkciAWUEoDhLzqEu+wASDpqd5PW9yTOPwLMGiL/FVN6fRsMCerFdQPttnfjbB+KWMEB+BmgORZc8 + nEUcQsphM6Qc0nHQDMl63EzJBCS5mhIeD0zAdRctcXvHp4VuGD2FrqeJ6MbDBaS5TwTabnUrRtNJoDEE + aAhCV+NpdKli0aVOJ2kGpOpIMSBZRxKaC08gbve4arpEN0QXHirgmZSDpiwgr3txfRA5jq7aY+iqOYqu + al90VRwhnugsd0dn6WF0FLuho+gAZ3EfG7kb7Td3oi1/O9pyt0KT44T2O+6I2zlW2J4jUgGG41nRMvCh + +3liIYZeXEVx5RF03qO4TIgPUepK6X6039pD6Q6052+l1BltOY7QZG2EJn0d1GlroMlzwRUnE1FAXyKW + 9EMPZe/E/eP58GU9ENfpElfrxd4PxCUUFwvxXkqZ8oYTZeuhyaAodRXUSSugSnSAKn4ZlNeWQhG7BKpU + R0Quf1sU8Ap5nvQi+odS1jt+zzg+fJxLIa7xfyCt8GCbDzOtvsX70XFHm7Yt1wnK5JW4dWIWkr/5AMmH + LIkFktwm47rrJCS6mCFxnykS9k6AuH/kv4wR6WCMCAcjhH9hpAj9/I0gukU3ZM/9yPnp4FpvL/NEW8lh + tN1xgebmLmg4j+rcLVBnO0LNlqrS1zPNGiiT/o3K8//gRjUHdXlnuFcUkyJSyIeOtN7VcZsP7S2JTmUB + yUOnIhfy0micWWpUTLdYFbLnr24bA3XlJSgLXKDI3oHKaAfkBMxEqrcNUr2skeJhhWR3Ky5BJj1oietu + FiiI+Aqapkx0KDKhKfSBOt8FrXn70XpjL1pzd6M1ZxeU2TuhzNoOZcbXaElzRkvqZrSkb0Vu0CcIsnvd + j24xDbI+Mc4mUBSFozHZGXXX1iDN0wattWIJ6RKpmUZ9R4uU6iY6lPlor4tGa74rZXugyt4FVY4Q7oAy + cxuU6V9DIaQpjpAnb4T8+jo0J6xBc7IjYpzfh4ftoDl0S1PQN3rzaDTkBKDi0ircPrkA2cH26FTlQ8Pl + oy5wI65SQnUuE+buo2i3lqz/QJG1EwoKFRlboRDSVCdKN6M5aQOaE7+idDWa41eh8eoKshz1V9fg1CLj + VuvhfV6mW3oI+0WtG4nKhMO4e3oxUtwsURzrgo76a5KsNXcvZbqEFCopVGZu1wrTtmhbm+IEedImplyP + poS1aIpfjaYfV6GJwoYYBzRE26P+0lLUX7ZHwbHZCJg7OIpesT1Lu2K/778cgaKLO5DjPRtX2J7mO2HQ + lARLQlXmTqgyOI/p2yijkDJtW4VwIxOug5ytbYqj8Jo2ZUP0MklWd/Ez1P2wCLXf2aHm/HzUnFuAq44m + cJ82cC2997flFy4s/yvyQ9ciYddkxG6fiPaqC2hJ+BLyuJVo4dwphIy0XN8AeeJ67VzGMeU1tjZ2hS7l + MjREfU7pEtR+/ymlCyldgOoIW1SemYaKU1aoCpuBUDtjrBz70tv0Sq92UcCLkf/8C9J9luKH1aOQ4bcY + 6kJ/NEV9isYoOzRctEN91EI0XFqCxphlaLxCWSznMvoLtpWtFSkvLkIdU9ZyaVZHzkV12ExUnbJBRciH + uBdsiXtB5igPssBNr0nwmz6wgE6xGd1/M750dvFbfGPZItx+GEouOqIlYxvqv5uP+gvzUHeenLNFTeRs + 1ETwxuEkbDqqTk9FFZNVhdqgMtQa9yirCLGQZPcCJ6H8+ESUBZih1N+UjEeZP9+Km/6Ggx8O8KRTvJR6 + Hp06SPhlL5/6ZAiiNlngzJJhkGftR8PlpaiNmIWaszNRHT6DwqmUUHRqCipPfoSKE5QxWYUkm4zyAAop + K6ekTMiOjkOp3/so8R2LkiNjUOz9d56/h8jP3sSWCf0X0im24h5+1uL7Rib7Y6CtEcLsR+Ly5vGQpziz + hUzIVFWhVlpZCNsYzDYGUshk5QHkmJmUqsxPKysVMp8xKKWwxNsEJV7voshrFIo8R6LIYwQK3UfB12aQ + esQrvQbTKdZ/Dx8rbQH9/WcMRvD8ochwny4tl0op4QdMyJaKhJJUCE2ZbjyF45iICX3eY0KBCYq9iOdo + FHq+i2KPURSOJEI8Arfc3kGy03C4mr8aQ98L5EmfjwbIBGL085oyOC1o3lAWMQwhH/8ZwfPIx0MROPct + BEkMQdCcIQgkx23fxPHZZJYxj8YImGmk4w0cm0Gmvw5/wTQy9U84OnUwfK1fwzcWAxrmDO87gT7xSdfT + z3qQTCCG2I/7kP5EvC5f/RmizF9C9PCXEHcXiHNx335EWvt+1q9Jcn0BYjMQa1IU8qiIG/0viP/Rf03/ + 10epGPqvk9+a++N+AfqT34tuf3x8QPYTe6ndyZod4FAAAAAASUVORK5CYII= + + + + Basiseinstellungen RecordOrganizer + + + Grundeinstellungen + + + Wiedervorlagen Email + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACh0RVh0VGl0 + bGUATGV0dGVyO2UtbWFpbDtlbWFpbDttYWlsO1RlbXBsYXRlO5vhJQwAAAcqSURBVFhHxZbZb1TnGcYp + LdkgkKTqbf+B3lS96FWrNFFvUhrSKlKlBLUVF01MSqAJqQOh4DEESAJh8cISMN43PDP22CYG27FjDN7G + O95iIMYr9oxn38fL0+f9zpzBgN0CUtUj/fR+x57zPc/7fusqAP9XVhkMhjh8fvC/Zqme0nxA+IcxfvQY + rHlE5LeryX0mdAOrM0taXi2w9LQVlHeDEfmWbuSR3NIu5JiFTmSbOpFlFDpwoaQDGSVWZFy04nyxFeeK + 2vBVUSvOFrTiTH4LTpNTec04lduM9NwmpGQ1Wj879fVvqSUJxk3IozJPz74+PWXzIhSJIhSOIhKdw/zC + AofpyZ4Ffit9SH9hMjblwuH02mlqSTUeMrBmW3ojEs81YW5+gR/MIUATQlA3w78vLi7Gun/4kf/Jb6LR + eZWAfCffh/nt3NwCuj5IQNebr3DWrXqarH7IwPbUBphq+pBn7oDbG+JH8+wgAn8wgkBIIxiHpmhSELEQ + 3+Xv+u8U/FaScXkCOJt3De1/+A2a/rRRDDxDHjLw1JHzVzF6ZxrW3jEcPVOH5o4RRGlCMvHRhI4YUu1A + GH4iUfAuiZK5VK2h+SaSjlagoWUYbW//Hsc/LxQDz5H4PJBHZubTJ8/WYnj/PzE66cTg7WmkZNQjlTic + fmVkqYhejUCQbUVIi6EwqxKFxxtAQ9Mg6q4PYnTCDrvDC/vYJN+/EwMbyFNEmSCagWvbEjDw19dpwI07 + 4058N2JDrrEViQdMqGkcZEaaCcnafGUA6QVtSMuLkduG1NxWpOa0IiWnBSnZjNktOJnVjBPZJLMZx7Oa + NC404VhGE46ca6ynrixNZeCZ/j9vRP/WtzAy4VQGRsZmcXPEjqq6G/jkoJGlLMe0zaNmdBrFZD7eYxEL + y7GwMkfOXZNqyIpQBp61/uVNDLf34vboLG6N2XFL4qgdw6xEZe0AdiabsGXHefQNjeMks2T/nB8yUecY + ZdXokX8LCWwLwTnOm1ib+Mk8DXxx9qq+IjQDxw4Xou/mDAUpekeEtdh+YxIjrMjktAuV1V2oqe/GcZZU + MhShyvohVNQNKsolfsNILLXCgKKsth9lNRr+gCzpRRw606CvCGXguX1fXsbO1G8xdGsmTnvPONp6JtQk + DHCpzTp8uHl7Cl9mXFdllMyUmI4IxoSE0poBwlitYSa+QFQtz4Np38YNyGxcuzmpAn/cU47+4WmFtXcc + 9c1cipx8svTU8vNzJfgCavx0AxaK6KJKLCZoru7jZO2HqfoGTJeFPhiJ108D3Jj2p9aJgWfjBjZ9bMHb + hkvoHZpk1mO43DCsZr7XHyGy/Bh9IWXgc46fjKNko+N9oC1CevRIW2LsPUoDSSe/uc/Aujc+LkPN9Vuw + 9oziYmUvxyoChyugdkWvL8xOwmwHucb9OHS6QY2jj52ZrkimWpYiaGRUVN1Ayde9iouKHhQTt08zsPdY + tRiQTUkZeH57chlaWodQUN7FH4U46TyYmHJjasaDmVkfHO4g8cPl9uFAWj3HcVFlExer6oXHF1FCmmAv + ii9RlBRJrGQkbv5GKrvnyBUxsFY3sD5xXxFqN78FJ4Umpt1qRxznCTZx141JmpjiHjA544Zt1oXklDpE + OZFEcGmG0nlclGKFQoXQrUUe9S5vhHvJPHZ9USUG1sUNlG56A40v/wLjd134ftzBDckRM+HWTLAiYmjG + 5kTSiVpVRhEUpFMVOVTS1pB27N0TgZNtp4cwioHEw/cbWNfwq5/j6muvYLC5E/3cD/526DJe3lqITYml + aONeMPb9XTRt2Yz+9BPYe7RGlVEE9CwLmKW6zJB8gZcZnTxLF/LKupBb1kkTIbWBffRppRh4XgyosyD/ + d6/n7N/1leOjgxZs3FGMXycU4tX3ivC+wYzdyRdhem0jan75M3SfTlPjF47yqGV29wQpEqczJqiJCjml + HcjmUT/rDvMgm8OHn1aIgfViQN2IiGwK4ugF8uIDvBTjJ+Snuz6rUmV0sKRLReNiSlAjW65yEk3tMQM8 + OWngH/vLNQOxM1lMSCX+22VTTL6UeOgSr1rzmKUBEctVYh1aljGyKJZlbtcwsU0DmcZ22F0htYFtN1jE + wAZl4FHhI8bW7zx4SR08ko1kpaNERYiCmSpqosIFo1VhdwV5oYli275SMfDCskIrETOw4YMDFaqM0plk + l8lb8j0xKzJ5W1aijIK6PZe0KWzOoNqwtu4xi4EXlxVaCd3AjmQLj9kobCyndGgnEm1O7d1GY9p7EDMx + bI5YJB5u7wmfmJ7YwPr3k8o4jnJXjMbj0vMgfhYI3NJFUEf2C4nv7DY+0RDIaln7zu7iuvf+VYq/7zWr + UuokCMwsYbcJ78YxKrF3dzEqSlTcsjO/jn2tW1ZoJfioK7yYILJc9eX548dElrbsgmuWFfpP8NH3jZWW + 6qMifaxeVuRJ4CPGHguDwbDq340j4jYtOeG+AAAAAElFTkSuQmCC + + + + Log Record Changes - - Schnellstart + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAA90RVh0VGl0 + bGUAU2hvdztFeWU7SeMHJQAACKVJREFUWEfFlwlUVNcdxl8MJhqTahK7RNOkW+wxbW2M0dQqEESQHQeG + ZYBhkx2EkWHfZZNN9m1AGHYBEWVTBhQMoCW4sCibyr4rCCpYzGnP13ufGY5NSc/p6an9n/Obe999793v + +99tZhgA/1dWbXyVrNr4Klm18VXy38RrP8D/LKQCawivv4TMS9Brep/ynxnqyhEyXWJXppOSfYzpyBIw + 7adc6C1WNF2gvak57gi/+aRFXnO0WWdTpAkawwxRH6SLWl9tVLmr3Ck7qlCUZ73PWqi07SfknbUEaog1 + kqiylYk98GMmSm4Tc2LvBtL0vaCiCYHHmJgAIRPqfYw2scLlx40+vJZgdepmusNSf4k3hquDMd0Yg0et + yXhyU4SFtlRM1EWgt8gdLSdNUel2CGKTnX9L5Wwr8JTbuo308QaBNSLg8xhPcx4T/DkdrO9FB8k2wV9A + q6wwQaY53sq1O9/t+UR9BBFKw2KnGM96ivDX/jIsD1Tg2+GL+Ha0HsvDtXh2rxoLXcWYbkrDnSJPSPy0 + kMnd/vdQuc2hv9oo8zbtj/btYW64uoFbIkdasOLOnD9tuClylAxWBOBBSyIW2nMx1JKNkowwhPkLYWlm + AWUVDj7brYRPP1PAVwe0YGJshiAfdxRlROFecxEmW7LQle+J84KDiFP+8Or+D9ZuJn3TaVmzqoHrKXa0 + WKO485frb4ns+wfOBWCqKQX1BZHwFTrDzJAHY00V6B5SgoaKGtQ0uVDjmkKJYwxVDR2oKipDXW4/tOVl + wdU4jGNOTqjOicZATSwaw3lI1f5keMuGNRuJBjVBE/2XoMO+9usYs3O9xd5oLT6BYE8BvGz5sOKbYs8B + YsAhEM6BiQhIyEVcznmkl9QiqbAKifkVCEkthFtYKkydg/ClIg96Glqw5WrAy9kRX4uD0XiCj2jlj+qJ + Bl2B0sW5EvRCpkCoodkuckB5gjdCBNaIP3EcZ8srcZDrAkFoPgJTKpBX24YrfSOoun4HHhEZ0D3iA5eg + FJyub0PehTYkFDfAP7EMclpOyM49jTBfDwj5eiiIcEWFmxqcd77HI1rrCTThlaAX6y6FGQ+ejRUi2s0G + Z8+Wo7//Lk4VVMHQMRZ+ydWIK2hE88AEmu6P4pvxGRYVQwGUuEehySfzL7lOTFxHLHnOTJiEkNh89Pb2 + obSkFB58DnL8bZGgvX2MaG0irEwF/VgrdlI6VB1lh3gvW0hq6zA2PoknTxbh4p8Ga18xAlKqkXmuFZe6 + B4jwNDoezuPG1CwUOY5QOGwHBW07OHjHobzxDpJKmiCMOA0j+xN4TPoYHR3HhYsS+JrpQGSnDotPXtcg + miujwGZf6a2ZnephvlxdUY3hoTHMLyxicek5DGzDYRdQiIDkGogr2iAITkLr2AsDbuFpkFW1wH6CrKol + WZD2qGrqRUrJVTINVZDXccPSs+eYf7yI4ZFxVNdI4KN3YNntdzJpRPNHBLoW2I8NNb5a/fmi9Pnu232Y + nprDwuMlPF1chr5NKMzcsuB+8hzSz1yFvPoR7FHgYTeLEalTeGwpq2KO8oY7iM1rhFtUGRS5nni6tExG + 4RkePFxA791hiBITp712yHQSzfcI7H6kBt62csu913CpDUMD45iefoTZR4vE+TPYeiSC75oBD2IgraQF + PGs/7Nirgz/+mUMgJanvYEsOjO38WQNxxIBjcAFZoCFYIOJz80uYmX2C4bEHkDS0Q8Uorv9lA3QK3jI9 + KorMLmwmBiYwNjGHqQcLeEBeis88j8NWUXAJPYOIU5eQfvoKdssb4NPP1V+wi6KGXfu4yC1vItN0HWGi + Ohg4xMI/MhcP555i5uETTEzPEwOzOClqwFeHj0cSTXomsFNAF+EbX8jq/cbJr3T2ZvsABoZmMDI+h/Gp + eXR0j+CggRes/HLhFVOBGHEDMkubYGjphT3y+vhClgsDcw/klbegqKYdMTmNcI88C3mOO5q/6SHCCxgl + CQ2OzuJW9xj0bcULH/9W/vdE8y3CylZkp0HHPMohIrkOPf3juDs4g4GRhxgam0Nk8hmomATB1i8fPnGV + iMu/gjySaZmkC6UX21Eq6URmWSvC0+vgm1AJNdPj8ArLxjBJggrfG55B7/1p+EbUYJ+qJ/2me5dAh39l + G7JbkfCuvnVSSnpeM7p6J9BzdxK9A9PoI9h7JkHJwA92fnnwPlmB4DQJorMvs6LRWZfJSSiBS0gxlHn+ + MHGKRDd5t58k0XNvCrf7JhCX2YgDnNBMovFTwjoCzZ41QINW2O1I2KxrGZ/kFV6Jhmt30dkzhi7SQVfv + JIJiCiGr7QqOTTSsvLLgSobaJbyEjEwu9OxisF/LFccCRGTaRonoJLp6xnH5aj+cfMvIWREiIn1vIUiH + fkWcsXAtpMXLJt5X0BTyePbi8bBECS42duNG1whu3R7BhYYO+ITngGMRhL0azgQXaJoGQBiYgXPkmG4n + z9xgn+tGYMwFqPPTJnfJ2ZqRPn9GWPkeUOdnkOK7MBMUMqYuBbQqNUF/RGxcv2HTR8rc44G6VhmDNu7F + iEiuR3bJX3C+tgMtbffRemsQre1DbP18bSeyTl9DWGIdzAWFUDNOHtqv7hP85rp3fk36oluOJrYirmby + kgG+cz5j4pzHGDvl0UtqgkIXCT0u6YLZ8ocv9RQP6gbHqhvF1mqaJfcdtjy1zLHMAimhZZ65rGaU1K+k + FyWR1wyI375LR5W883PC+wQ65OzvAMJrVFjKShgfzWeMiDjPMZcxdMhlDOxzaLN0NKgR6v4dAs2ELqKt + hI8Iv/iOjwlU8AMC/eFBj1lqnr7LCkuzXtWAERHmEWFDImxgl8Po24kZPRsxw7XJprelRqRm6PS8SaCm + qAiF1mkbvUefoUO9Irya+D8ZkGatT8Vts1+IW2czugQdqyxG50gWwyGQkE7Pv0Wdn0lERT8oLIWN1f6t + vEpWbXyVrNr46gDzDwm9y+evWey0AAAAAElFTkSuQmCC + - - BarButtonItem7 + + Datenbank Verbindungen Verwaltung @@ -1735,67 +1668,12 @@ aV3TJKNJSVsYzQ361myTOaI2lBk8Q5nfAK6UO7kYFLMOAAAAAElFTkSuQmCC - - $this - - - Horizontal - - - Task -Konfiguration + + BarButtonItem15 Constructor Designer - - LabelMachine - - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - Basiseinstellungen RecordOrganizer - - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACR0RVh0VGl0 - bGUASW5zZXJ0O1BhZ2U7QWRkO0l0ZW07TGlzdDtQbHVzWBJ15AAABuBJREFUWEe1l3lQVWUYxk+btkrb - HzVTM7llM5mVoWS2/lEu04zZZGo1zuQ6iKJNrrm1GIkLgggCyiqLbC4UZbkhiLJEIThlghjCFe7lLlwu - 914u6Dy973vOuVz1Yk6T78xvnu8c7v2e5/3Ouec7KH3UbbcAbwHw4lv8ods17rgBd94Ed10Df88boq8A - tyfnVx1N2fsbriVZ1/y+qLohibmVx2h+DiYh/AXgP9zBk92K2ppUwk79NJ8+A9zJabm6e67A03OZ9DI8 - 3VdUlbF6rI6voEsbd9F5xtPdo41JPar2XL6CiMTj7NSf4Mvbd4AkLYCYyIS96CZX4dENL8Mthqw9cGvH - POYAm3YW3VSAu5Ly1ABeA0abmFVMBDLRjhkXHTPuLl35M93wCB40NJrY6X6Cb0a/JQES837tDaBNnn2w - Fnt+Ys6o+mMtsnzILKxB5g8+fH+aVqwH6cdCEJ7/GsLzXsUGYmls4Any6L9sR6CyLHaU8nnMS2KsFwfo - tytXDSDLqHVltHRejVXVVsasqcVBY4K0hdTl7kJYzli4ehq8LIkZJatAY4UJjRgpxnrxtem3M6dSArho - KZ0avp1lEOkFTLXKgWrsJtL2M7+r7PsdnU4X1me9gosduahuXYez5igs2jqSAwQYnYcVo/OQEhz+vBjr - JQESsiskgNNN5u5udBIt1CXDHXJ3vlxibXPARKvS3uGEze5AO2EymfFl2hg02NJRYViOGmM4yJADPEEE - aNxLeO8JDtA/PqtcArCxg3F1S1ep+39DKnWW6vNwStEeMvzLqfvbiG17Z2JtShBWJwdhVVIQviDOmnei - pDEUFc3rsCJhFJbHB4LuASwlFm55oZw8+caU4gB378gskwBs7HB2o4PUQB0Kpg5NHWg20phQ1QGL1Y6V - u0bjT3MSzttyqPMc0RpjFH6pm43iC5+juiUCdZZM1JkzUNMai0WRL/CKPCruVBIgNuOkBOhgc6cHdmJ2 - poJP0xTMSFbwcSIRp2BarIIPtyn4IFLB5C0K/qo3YGnMSzhUF4zEyrHIrB6H3NrJ2HdmKgr++Aj5tVOw - p/o9pFa+jZjS0Ug49TpCNo3gAI+xORcHuGf7bjWAvbMb7Z0eQtdr6YKN1OYgJcwWKxZHvYgfzs5CUvlb - SCx/EzvL3kBC2WuILH4ecafGIq50DGJLX8b2E0GIPjEac8KGXx9gW2qpBGh30ORi4EFcVoWXHZlMuRBL - xDAZZaj9swnLNk/B9OXPYNqyYZi6ZBjmbXgO0cVB2HhkOKKOB+L9xUMxOXQo3mMWDsH4mQMryPMhcafi - u/HeyOQSCaB2RgE6mC5Y/WDRsdOx3UWrYMOlFiOaDS2oqT2DWV8/i91Vk7D+4DCEHx6BSQuGcMeBBP8S - mIcJ3iGlJABvGlzWDrfXYHt6GaLTTyF6N2naKWwTTgpRqScRSasWlUJKbE0pxdbkUjRebMaMNc8gpWIC - 1hYOwjcU4t3gQRxg0IEzs5T9tbOUiXMHibFeHOC+TQlFEsBMXbG52e7GBYMdF5rb0WDQsaOh2Y7zdK4X - m2h9kw31NG5sbML0FU8j/uRbWFM4GKsLBmPi3IESIO/0DCX39CfK+NkDxVgvCRAef9QboK2dArS7EUkd - cVdMBJN0QtiSqLI5sURlVzE27VL1UqsJ81ZNxIQ5A0FGwhtTnzxNHo8Tt42b+ZTyDuFbHOD+sJgjEqCN - jNtsbphIz1NX55u07jStu+iDfixqFYy0JxguteJcfT3O1dWjqKSKux9K3EPwvnNdcYAH1kcfkgAmMjda - XaQu2supMx82JhwnihFOKsQfxwbRImyIo3FcEVqtTrQwFpc81D77Kp8DPEjIaxlZXPc+IAG+jvyZ/cmc - ApB5K4Xg7s5RVyo0brTiLx6zNloIXS04qx23mJ20TxAUgJ+mi7+UAPyT4xdUvwE42YB1ET+xv9oBfbnV - 4pSuvqOuuDPWsB2+HMO3OrE6R2HQAxD8VA1dl3dzAVZtLmR/MucAPIFL7UaOXaL6xP5g42uxc4A1uezE - v/sbBghYGf49+/ud2HdsaPMZE810zOdYe+mUc7yfLFgtAR4h/AaQF1IiYHlYAft7J/bF16TXjE06RXuh - 8yYnmkibTJ2yAiGrc/41AN+EA5as38/+ct34i4y6K9KYNibuRj2vnyP1nteQc1cz/4s97KQ/ev1eAg5w - X+ia7KOha/OwaG0uWENJF9L1U8nRyJUl5a4WrMpGiJCjKUFm80nnr8xGMMHmc5ak8X9GD2g+XnMJoKWQ - t2KCX5P4dYnT+oOX0R/8YtEX/D1+85H/jHzNfQNw6ZeCl4nhQP8VNmN4rM8nT8AbBdCLP/h/462rA0D5 - B1PyXtHiYG5zAAAAAElFTkSuQmCC - - - - StatusVersion - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAADp0RVh0VGl0 @@ -1834,6 +1712,49 @@ Konfiguration DkE1/yB5PNR9tJv+78GYfwPiYK7C4w/SeAAAAABJRU5ErkJggg== + + Vorlagenmanagement + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACp0RVh0VGl0 + bGUASGVhZGVyO0FkZCBHcm91cCBIZWFkZXI7SGVhZGVyO0dyb3Vwx7rTcQAAByNJREFUWEetlnlQ1eUa + x4+Vmnmzxeouf1nNrWmdqbRyuv+61Z1pmVummRMzmSkiihuxCRx2Oewu4QKRgoKICyqCCgi2ySZoWpne + unAEZFE453A4HHru93ne33sONJxxmuk385nv8/sxvN/v825gwjMO3AHuBHfdhvF/kAmAf4/HZp8xnzt3 + FdVV5hY30JjsZ+pR11MONAfvSg2KlO7S4P3qrz20pWQ5hWT/y4N/wvTT8Bq3LGG6KXjra4J+7mKj4eHf + /iSGRT/b9hpd6twOsulSx1b6NP4lgtcdLe0ZpubrGaZ1WTOVO57xnJx/acg9PDZDw+RijHepjffRtVtw + u920fvNMqr22lorOvyEsjX1RAjRZU0yNbRZTUIY3wISdRXW+A2BwXYsJo03FUH1zo/MhGDMul4vWZM6k + 6qurqLDpDWGJ+QUOwPuC9wPD+072xYQdhXUYAAEMs5SSi2QpuUDJxS20CSQVNlNC4XmK39tEMQVNZN7T + SFFfNlBkXj1F5NVR889dZClYSkHpr9Lq9FdodZqi8koAFTbOo30gMOVlWmkxSJ5BAUkzKo0Qponb934n + AfQ0JhY107HLvXSUudRLR5jvu+nQRUUJOHABtHTT/pYuun5rgFalvkLnranUZLVQY2syNbQm0cmfltO+ + hnm0F5Rf/oS++SWSvv5vOJ29FkofRTzPM8InxHT35/kqwCDMB13DFJPfCKMe2nzWKmTVghorZda0UQZz + po3SQVo100rXbtgowDKDTv3oL2ZMgTCX9tbPFc1nBazM4tDn9JKY7t6251uZeg7gdLkpPLeOitGZGMJI + G6afaRXD1CpFClP5P7qKAP5J06n8h6ViUlA/xzCbQ/l1gBXsQa2YTYtGBJi0ZffXEsDpGpIAG7K/oYLG + G5Tf0El7wO56UNdBecy5DvoC5J5rp5xv22knuNJpJ/OOJTR/zVP0XtCT9C5YHPq8GCnm0KKQ5+itFU+A + f9Kb4N/LHq+AtyzBpKy8ryTAwOAQcNPK9DPkF3+SFsdU0GJzOS2KKqOFkWW0IOI4vR92jN4NLaX/hJTS + O+sP09sg0HKaSmuvUMNlKzWCvn4bDJ+lwxc+pN3nZoNZ9EHws9zxZMC3o74h5RTck5FbK8eJAzicbrI7 + oVIPSe3FRbYBKBDFN9uA+ibqcFE/1DHgFMODzQvoy+9mCQs2PMMBJpZe9DMdueBnev2Tx9hbnslpOTUS + QJuMNLOJiTby0m+YeeB3A7tjgBbCsLhpPuXBnHl//dMS4FDLh6aS5g9M89c+rdzxTE7dcUaOnx48Lfes + IqeWUoFWJmUXFLAKO2uggBVEZZRjhpy0YdNCmrfkMfAozf34UZrtN+0UvMbP8ZtmmvXRNNP8Nd4Af0nO + rpITIJ39rps+0UGB6z47fxukW1CFUdtYFX3A5nCS3e6gH65YufNHwCQgF8/vn3uTtlXSAHa/NrTsqBGS + 0ZEFs5M8ku2KTUK10mymmpJARGoZ9dqcYFD2kDmzggPcB2THE9Eo+Lk3YetpCcDJGd0Jc9Po7KaBHpy/ + 9/Zz7aWH3/sHRRkb9lF0+gl2uR/4DDAlLuskdr1bBmUT7iTp8yrRRCxPIuoEkLhNaQIriDc0YWslxQtV + FLrpGPX0OakL8JJGppTdNsB95owKOX4SQHeETrTqjrox6KgasHb3DRjA+JYXXtLw5OPs8gDwHSA67YQc + PW0WhyWJ21Lp0dgthm4+7SHGU59CbZB1ioITjtIN/HFieD+FJR1llweBzwD3b0w5Lufe2423K55K6QjK + g3KtFCY3DQzDTtQj4dPxWWKpDiD3/lgBHuBp4vUSUwxkRidCppfozJOCOQPKoI7C0kWDqHQG79C1sYep + A+YdvQiAJd0Qd4RdpgLfAUIxTbxenq6Mjjxd3XKIdvQ6ZGA26ETdeRPvGv5Zj4PaDeV3Pi3rYg+xy0PA + Z4AHQzBNfMHoqVMdVVBkGmCVupw28jvYKDVILce5H02Q+RBd77HT9W4EwH5aE3NwZIBxYwWYGhx3WNZL + dac70h2jK6MzUQ8wgSp0zcrmim4ECIo+wC4PA98B1scelMtGTEBECroB4cKJUYRZFOGiZRSWrFURGHmA + rDBv4wDYsKsii9mFr2KfAR5aaz4od0B7r106U6fAi5yE2wEzrW3dNmrrsksduNETgP8HGDPAwzxNfAd4 + phTpuQsvDtUVBtXdca1p7VKGbYa2GjUHWBlexC5/Bb4DrMY08QU00pRNrNyJUYuB0ZlGGdtE2VS4YSi+ + 8SkKCCu8bYCpgRHF2DC4A/iKRWoB08nKR5PvBu/RVBeRuoRQixo/41MEVadJHVP/0H3swpvQZ4Apy4J3 + V60M34/p2k8BmLKRrEAHK7QyoYXkr1XYpzTEULAc35aHKF2yLrcaHvqP0ZgBJoIpgFPyVP3NB3//A/zD + UB6PzdlD/hkZHYBM/wcBo+LeK778qgAAAABJRU5ErkJggg== + + + + Language - Dependent Objects + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABV0RVh0VGl0 @@ -1885,53 +1806,202 @@ Konfiguration SS0AAAAASUVORK5CYII= - - DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + Import windream-Files + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACR0RVh0VGl0 + bGUASW5zZXJ0O1BhZ2U7QWRkO0l0ZW07TGlzdDtQbHVzWBJ15AAABuBJREFUWEe1l3lQVWUYxk+btkrb + HzVTM7llM5mVoWS2/lEu04zZZGo1zuQ6iKJNrrm1GIkLgggCyiqLbC4UZbkhiLJEIThlghjCFe7lLlwu + 914u6Dy973vOuVz1Yk6T78xvnu8c7v2e5/3Ouec7KH3UbbcAbwHw4lv8ods17rgBd94Ed10Df88boq8A + tyfnVx1N2fsbriVZ1/y+qLohibmVx2h+DiYh/AXgP9zBk92K2ppUwk79NJ8+A9zJabm6e67A03OZ9DI8 + 3VdUlbF6rI6voEsbd9F5xtPdo41JPar2XL6CiMTj7NSf4Mvbd4AkLYCYyIS96CZX4dENL8Mthqw9cGvH + POYAm3YW3VSAu5Ly1ABeA0abmFVMBDLRjhkXHTPuLl35M93wCB40NJrY6X6Cb0a/JQES837tDaBNnn2w + Fnt+Ys6o+mMtsnzILKxB5g8+fH+aVqwH6cdCEJ7/GsLzXsUGYmls4Any6L9sR6CyLHaU8nnMS2KsFwfo + tytXDSDLqHVltHRejVXVVsasqcVBY4K0hdTl7kJYzli4ehq8LIkZJatAY4UJjRgpxnrxtem3M6dSArho + KZ0avp1lEOkFTLXKgWrsJtL2M7+r7PsdnU4X1me9gosduahuXYez5igs2jqSAwQYnYcVo/OQEhz+vBjr + JQESsiskgNNN5u5udBIt1CXDHXJ3vlxibXPARKvS3uGEze5AO2EymfFl2hg02NJRYViOGmM4yJADPEEE + aNxLeO8JDtA/PqtcArCxg3F1S1ep+39DKnWW6vNwStEeMvzLqfvbiG17Z2JtShBWJwdhVVIQviDOmnei + pDEUFc3rsCJhFJbHB4LuASwlFm55oZw8+caU4gB378gskwBs7HB2o4PUQB0Kpg5NHWg20phQ1QGL1Y6V + u0bjT3MSzttyqPMc0RpjFH6pm43iC5+juiUCdZZM1JkzUNMai0WRL/CKPCruVBIgNuOkBOhgc6cHdmJ2 + poJP0xTMSFbwcSIRp2BarIIPtyn4IFLB5C0K/qo3YGnMSzhUF4zEyrHIrB6H3NrJ2HdmKgr++Aj5tVOw + p/o9pFa+jZjS0Ug49TpCNo3gAI+xORcHuGf7bjWAvbMb7Z0eQtdr6YKN1OYgJcwWKxZHvYgfzs5CUvlb + SCx/EzvL3kBC2WuILH4ecafGIq50DGJLX8b2E0GIPjEac8KGXx9gW2qpBGh30ORi4EFcVoWXHZlMuRBL + xDAZZaj9swnLNk/B9OXPYNqyYZi6ZBjmbXgO0cVB2HhkOKKOB+L9xUMxOXQo3mMWDsH4mQMryPMhcafi + u/HeyOQSCaB2RgE6mC5Y/WDRsdOx3UWrYMOlFiOaDS2oqT2DWV8/i91Vk7D+4DCEHx6BSQuGcMeBBP8S + mIcJ3iGlJABvGlzWDrfXYHt6GaLTTyF6N2naKWwTTgpRqScRSasWlUJKbE0pxdbkUjRebMaMNc8gpWIC + 1hYOwjcU4t3gQRxg0IEzs5T9tbOUiXMHibFeHOC+TQlFEsBMXbG52e7GBYMdF5rb0WDQsaOh2Y7zdK4X + m2h9kw31NG5sbML0FU8j/uRbWFM4GKsLBmPi3IESIO/0DCX39CfK+NkDxVgvCRAef9QboK2dArS7EUkd + cVdMBJN0QtiSqLI5sURlVzE27VL1UqsJ81ZNxIQ5A0FGwhtTnzxNHo8Tt42b+ZTyDuFbHOD+sJgjEqCN + jNtsbphIz1NX55u07jStu+iDfixqFYy0JxguteJcfT3O1dWjqKSKux9K3EPwvnNdcYAH1kcfkgAmMjda + XaQu2supMx82JhwnihFOKsQfxwbRImyIo3FcEVqtTrQwFpc81D77Kp8DPEjIaxlZXPc+IAG+jvyZ/cmc + ApB5K4Xg7s5RVyo0brTiLx6zNloIXS04qx23mJ20TxAUgJ+mi7+UAPyT4xdUvwE42YB1ET+xv9oBfbnV + 4pSuvqOuuDPWsB2+HMO3OrE6R2HQAxD8VA1dl3dzAVZtLmR/MucAPIFL7UaOXaL6xP5g42uxc4A1uezE + v/sbBghYGf49+/ud2HdsaPMZE810zOdYe+mUc7yfLFgtAR4h/AaQF1IiYHlYAft7J/bF16TXjE06RXuh + 8yYnmkibTJ2yAiGrc/41AN+EA5as38/+ct34i4y6K9KYNibuRj2vnyP1nteQc1cz/4s97KQ/ev1eAg5w + X+ia7KOha/OwaG0uWENJF9L1U8nRyJUl5a4WrMpGiJCjKUFm80nnr8xGMMHmc5ak8X9GD2g+XnMJoKWQ + t2KCX5P4dYnT+oOX0R/8YtEX/D1+85H/jHzNfQNw6ZeCl4nhQP8VNmN4rM8nT8AbBdCLP/h/462rA0D5 + B1PyXtHiYG5zAAAAAElFTkSuQmCC + + + + StatusLanguage + + + Rechte Designer + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 + YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAC3RFWHRUaXRsZQBVc2VyO5db + CgIAAAmJSURBVFhHlZcLOJT5HseHwplhDCN3rcskcommMCK6uFQuuUQ1uYRCKkpIFyGKtpNNKhspKZFU + u4ZSyjWrNkWkrT2rtc4Wm5It6bSdnu/+3yntZN+z55zf83yeZ+b3vL/f9/v7v+/7n/8wAPwlqbPYjBR7 + NmP7TDZj60y2/hYBOzbRRqE43lqhlSLOWuEYYS6BQUHX46+gTUpCiffcLGVssWWvznTTR9k2b9TlRqP9 + bBraylNxeX8k9iyxQMx0hZyYGQoMKuj6/Cdok6NQIZ7clu15JGLWu74bBfipfh/un9uEjpPhuJW/DG35 + QtwqDMfeQGtEWcpHkBJpghRVS9dzLLTJUagg4qppTprDPXWH8H1lMq7tdkZdmj2uJAlweYs1KhL4KIww + wYGgyVg9Vf5tuBmrM9iYGU5Kx1P1dH0loU2OQsVmgUJ86eZFeFjzd9RnzEUVETy/1hRl4YYoDNLD/sVa + yPDQRIITD6kuGjjoPxFr+Wws5jH9Sfk4ur6S0CZHoYI8cB23Srbi9rEInF1niqNCXeR4aSBzvgrSnZQQ + b8vBjsV8tJZuR6yNEnI8VLHOUh5+vL9VknImXV9JaJOjkJCKt2GPfFeZiYrNdsj21kLSbCWst2IjcioL + gVNY2B/phF+u5+LpzS9RGOeO6GkKiJgiRwwwn5B6Jbq+ktAmRyEhHWej8Oj68UQcEuojaQ4XmQGOOJ7o + D9HeVbhXlYHB20eIeC6eXM/Gz7WZSF8yAwGT5ODLY74l9Wp0fSWhTY5CGdhopdBYkRmCTA9t7Itwx8jP + LRi6W4LndwrF4s/I5E9astHftAePrqahJicUQlOl37z0mW9IvSZdX0lok6NQBmKmy289tNIB8XYT8F3z + BQz/eAVDHScw2Pap+OPadPxYlYiGgwFYaa3xzv0z5iNSr0HXVxLa5CgkpObqyqnGCriPYmZw0NvVgpfd + 1RhsP/Zx2cWT16bhn5e2oev0Goh2LkIQX31otpbcUVLPoesrCW1ylA8xXjiFFbjBWhnfVp3Ai+7LeHYr + //3kjZ9/FO+pjEdrQRAK18+Gn4nyHVJnQNXS9ZWENikJCWpX40RN5/QUJq/GcE8Dmf4wmZwSTxeL/1QZ + h3slEaj/wge7lpjD2UDhJKnh0vUbC21SErIPUCbkvM1UQ5L87Z+0VxfiaWsBHtft/CAejwenI/HNIT+c + 2GCPUCv1IUt1uSBS81/3AAra5FhIUKug5GOh/uX+mCVoq/gCvTU78cPXsbhTFIbmHD+UJToiwVkfdpqy + JeRaDYI0Xa+x0CbHEhQUxDA0NJSbJbCOSVwwGemBc1GcvBzVWcshSvPAgZUzEOOog0DzCdDRUEtksVjM + tXN1pVbPmRgQ4aBzZuVMrcehAo3HQVaqZ5bxVQJNNZjSvmYcce8/iUlCTUGQYysqqnh6ep5b7Ld4eG+Q + Fc7tEiJpkRlWTFNBgBkHkQJ1xDvrIdLOABYWFq90dHQqVthP3JufEonrlfno7zyNnobduJgTgl2hDvAx + U0rTYo8fRwl8IlheXs5IUOeKISFDUJvHZgX72gq+P3v2LIqLi5EeZI/e2t3oLE9A7f5glG5ZiPy1s5C9 + YgZC7Iywa9cuJK4OwNH0dfj3y268/kceXt3LxvCd3XjRmoKeqjVI8TfBfJ58KOkv/YmBsrIyxpncPEpc + VlNmvGmICqdh92QDbJztKBZ/9+4dYqNCULYnAk35a/At+YG6krUUhRtdkLzcDsu83NDR0YEoTxu01onw + 5nENBq5n4NyORUjxtkR9SQ6ekU2sdLM9XPRZIvGQkgZKS0spcWpp9MInKHVeDAtBe2gIzrstRGBgILkE + GBoagq+PLyICA7A+OhqxK1ci0t0dC12c0dzcjKamJgTbaeP5QD9GHuSj+0I8trsbY7qOYtzekLn47WU/ + mrNd4KzLHCA6ip8YIEE97dzo6OijWX6+6Ni3D23EQJPDLLjz+ejq6sLIyAi6u7sxb948pO5Ixc6dO+Hq + 4opr166JxXNzcyG0UhcbGL6bjb6rG1Ge5Izdy63RWnEEv3YW4NpeR8yZKDdItFTHGpAxMDAQkCavvkrZ + jrxl/mhfFYZGezvsMDdDQkIC+vv70draKjZw9+5dnDp1Cq7zXVFZWYnq6mq4ublhOXkb7re14FVXHoaa + 1uP51Qg8uxSEAZEfeksXooicK6zUZW4SPbWxBrjh4eFH6+vrcfN0CbZPt8DtsFA02M3EBXNz8CdNQkND + A2xtbcXiVGRlZZGVuQcrqxnIy8+HuaYSMtf44fXAXSIei8Grq/C0OhADFb54cs4ND444Io6cnIyUx2UR + vT9uAQlq+Q1TU1Mf9fb24oebN7BZTwc3A4SoJYIXzUyRNomHqcTEAi4X5LqPBqjPsxUVwddVE4u/6u/A + r9c2YvDKKgxUCXG/aCG6jnmhdJMNEjxNYMYdf1FaisEjeuMkDcjx+XyfgoIC8X3u6+nBZm01tPh444qV + FapMTSCaYozCSYY4Q0z4KiuLhcPCwuCmyMFWPc0P4nfI5BvwsJzsFd7ELI+F+ZOV4cTjwJ6niklc5hUp + KYY50ZMV60oYUFq6dOkhkUiEFy9e4BdyrzdpqKDR1RXV/GmonGKCr4yMcMbQECU8AxTp6cGTw8ECMnmS + rjo+HxVvXI+HZ5YiyYsHDy4TJuRNr6mpwdcVFVgXHQNLS8tTREvdesL497oSBnSioqJutLS04OnTp3h4 + /z42qXNR6zgbFyymosLYCOeIeJmBAU4R8WN6+sibOBHb9f4Qf94Yg2eXQ9BZ4CGePESeDXtZaXSRvYF6 + g3IOHISTk1Mb0dK1Unm/+pIGDDMyMt4ODAygr68P7Q11iFOfgBqBDURmJjhvRJaex8MpfX0U6eqigIjv + MNB6L97Xjuf169B9egm2kckpcQ8uC5EsFlzkZNBIVqCp+RuIqqoREBBAnRWN6Qyo+vr6Fh3OOwLRxRpU + 5OxHpJoKTpoY4yhZ8sO6n+EQEc3R1kaWpiYyNLWwnK+CN/96TcTXEnF/Im5AHlAmljFZCGYyEUoMuMrJ + ovjgAVy8VIPk5BQIBALqFqjRGaD2/sn+/v41iYmJCLOcijAuG6EUymysIAR/IECJDSHB30KZlALPyGvW + mb9APLkrmwlfDgs+ivLw5hAUWfDkW0IoFMLBweEq0TCmtP5kQPyFPJkEbYIlwZoGGwlmOhuyq7yM2fAw + VBCLm6jIHCd5pzHXjTKNoEOQpcRpDfw/kKD2Dcowh6BGoA4h1Gfxf8L/JQAwfgd3hPPGW+V/iAAAAABJ + RU5ErkJggg== + + + + 0, 0 + + + Kalender + + + Schnellstart + + + Home + + + Yellow + + + Quickstart + + + Entitäten 2 + + + Programm Konfiguration + + + Tasks und Wiedervorlagen + + + Menü Konfiguration + + + Windream Konfiguration + + + SQL Konfiguration - - Wiedervorlagen Email + + Administration - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAACh0RVh0VGl0 - bGUATGV0dGVyO2UtbWFpbDtlbWFpbDttYWlsO1RlbXBsYXRlO5vhJQwAAAcqSURBVFhHxZbZb1TnGcYp - LdkgkKTqbf+B3lS96FWrNFFvUhrSKlKlBLUVF01MSqAJqQOh4DEESAJh8cISMN43PDP22CYG27FjDN7G - O95iIMYr9oxn38fL0+f9zpzBgN0CUtUj/fR+x57zPc/7fusqAP9XVhkMhjh8fvC/Zqme0nxA+IcxfvQY - rHlE5LeryX0mdAOrM0taXi2w9LQVlHeDEfmWbuSR3NIu5JiFTmSbOpFlFDpwoaQDGSVWZFy04nyxFeeK - 2vBVUSvOFrTiTH4LTpNTec04lduM9NwmpGQ1Wj879fVvqSUJxk3IozJPz74+PWXzIhSJIhSOIhKdw/zC - AofpyZ4Ffit9SH9hMjblwuH02mlqSTUeMrBmW3ojEs81YW5+gR/MIUATQlA3w78vLi7Gun/4kf/Jb6LR - eZWAfCffh/nt3NwCuj5IQNebr3DWrXqarH7IwPbUBphq+pBn7oDbG+JH8+wgAn8wgkBIIxiHpmhSELEQ - 3+Xv+u8U/FaScXkCOJt3De1/+A2a/rRRDDxDHjLw1JHzVzF6ZxrW3jEcPVOH5o4RRGlCMvHRhI4YUu1A - GH4iUfAuiZK5VK2h+SaSjlagoWUYbW//Hsc/LxQDz5H4PJBHZubTJ8/WYnj/PzE66cTg7WmkZNQjlTic - fmVkqYhejUCQbUVIi6EwqxKFxxtAQ9Mg6q4PYnTCDrvDC/vYJN+/EwMbyFNEmSCagWvbEjDw19dpwI07 - 4058N2JDrrEViQdMqGkcZEaaCcnafGUA6QVtSMuLkduG1NxWpOa0IiWnBSnZjNktOJnVjBPZJLMZx7Oa - NC404VhGE46ca6ynrixNZeCZ/j9vRP/WtzAy4VQGRsZmcXPEjqq6G/jkoJGlLMe0zaNmdBrFZD7eYxEL - y7GwMkfOXZNqyIpQBp61/uVNDLf34vboLG6N2XFL4qgdw6xEZe0AdiabsGXHefQNjeMks2T/nB8yUecY - ZdXokX8LCWwLwTnOm1ib+Mk8DXxx9qq+IjQDxw4Xou/mDAUpekeEtdh+YxIjrMjktAuV1V2oqe/GcZZU - MhShyvohVNQNKsolfsNILLXCgKKsth9lNRr+gCzpRRw606CvCGXguX1fXsbO1G8xdGsmTnvPONp6JtQk - DHCpzTp8uHl7Cl9mXFdllMyUmI4IxoSE0poBwlitYSa+QFQtz4Np38YNyGxcuzmpAn/cU47+4WmFtXcc - 9c1cipx8svTU8vNzJfgCavx0AxaK6KJKLCZoru7jZO2HqfoGTJeFPhiJ108D3Jj2p9aJgWfjBjZ9bMHb - hkvoHZpk1mO43DCsZr7XHyGy/Bh9IWXgc46fjKNko+N9oC1CevRIW2LsPUoDSSe/uc/Aujc+LkPN9Vuw - 9oziYmUvxyoChyugdkWvL8xOwmwHucb9OHS6QY2jj52ZrkimWpYiaGRUVN1Ayde9iouKHhQTt08zsPdY - tRiQTUkZeH57chlaWodQUN7FH4U46TyYmHJjasaDmVkfHO4g8cPl9uFAWj3HcVFlExer6oXHF1FCmmAv - ii9RlBRJrGQkbv5GKrvnyBUxsFY3sD5xXxFqN78FJ4Umpt1qRxznCTZx141JmpjiHjA544Zt1oXklDpE - OZFEcGmG0nlclGKFQoXQrUUe9S5vhHvJPHZ9USUG1sUNlG56A40v/wLjd134ftzBDckRM+HWTLAiYmjG - 5kTSiVpVRhEUpFMVOVTS1pB27N0TgZNtp4cwioHEw/cbWNfwq5/j6muvYLC5E/3cD/526DJe3lqITYml - aONeMPb9XTRt2Yz+9BPYe7RGlVEE9CwLmKW6zJB8gZcZnTxLF/LKupBb1kkTIbWBffRppRh4XgyosyD/ - d6/n7N/1leOjgxZs3FGMXycU4tX3ivC+wYzdyRdhem0jan75M3SfTlPjF47yqGV29wQpEqczJqiJCjml - HcjmUT/rDvMgm8OHn1aIgfViQN2IiGwK4ugF8uIDvBTjJ+Snuz6rUmV0sKRLReNiSlAjW65yEk3tMQM8 - OWngH/vLNQOxM1lMSCX+22VTTL6UeOgSr1rzmKUBEctVYh1aljGyKJZlbtcwsU0DmcZ22F0htYFtN1jE - wAZl4FHhI8bW7zx4SR08ko1kpaNERYiCmSpqosIFo1VhdwV5oYli275SMfDCskIrETOw4YMDFaqM0plk - l8lb8j0xKzJ5W1aijIK6PZe0KWzOoNqwtu4xi4EXlxVaCd3AjmQLj9kobCyndGgnEm1O7d1GY9p7EDMx - bI5YJB5u7wmfmJ7YwPr3k8o4jnJXjMbj0vMgfhYI3NJFUEf2C4nv7DY+0RDIaln7zu7iuvf+VYq/7zWr - UuokCMwsYbcJ78YxKrF3dzEqSlTcsjO/jn2tW1ZoJfioK7yYILJc9eX548dElrbsgmuWFfpP8NH3jZWW - 6qMifaxeVuRJ4CPGHguDwbDq340j4jYtOeG+AAAAAElFTkSuQmCC - + + 1546, 150 + + + 0, 679 - 1538, 23 + 1546, 23 - + + RibbonStatusBar1 + + + DevExpress.XtraBars.Ribbon.RibbonStatusBar, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 1 + + + ribbonMain + + + DevExpress.XtraBars.Ribbon.RibbonControl, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 3 + + + 242, 17 + + + Workflow/Tasks + + + 279, 56 + + + Schnellstart + + + True + + + 212 + + + White + + + 6, 13 + + + 1546, 702 + + + Segoe UI, 8.25pt + + AAABAAEAgIUAAAEAGAD4zwAAFgAAACgAAACAAAAACgEAAAEAGAAAAAAAAAAAAEgAAABIAAAAAAAAAAAA AAAAAABGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqpGHqoA @@ -2823,324 +2893,319 @@ Konfiguration /////////////wA///////////////////8f//////////////////// - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + Form1 - - System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + NotifyIcon - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + System.Windows.Forms.NotifyIcon, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 0, 0 + + ADDIBeendenToolStripMenuItem - - Dokumentart Konfiguration + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + CockpitAnzeigenToolStripMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TimerTasks + + + System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 DD_DMSDataSet - - BarButtonItem2 + + DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - + + VWPMO_WF_ACTIVEBindingSource + + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + VWPMO_WF_ACTIVETableAdapter + + + DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + TableAdapterManager + + + DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + MainMenu + + + DevExpress.XtraBars.Ribbon.ApplicationMenu, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + itemInfo + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - TimerClose3Minutes + + itemSettings + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + itemExit + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + LabelMachine + + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a LabelUser - - frmMain + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - BarButtonItem13 + + LabelLoggedIn - - 0 + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Menü + + LabelVersion - - 2 + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Administration + + BarButtonItem1 - - itemExit + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - + + BarButtonItem3 + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DevExpress.XtraBars.Ribbon.RibbonForm, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + BarButtonItem4 - - DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Windream Konfiguration + + BarButtonItem5 - - Vorlagenmanagement + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem6 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem7 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem8 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem9 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem2 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem10 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem12 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + BarButtonItem13 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - + + BarButtonItem14 - - Grundeinstellungen + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Hilfe + + BarButtonItem15 - + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Timer1 + + BarButtonItem16 - - DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - BarButtonItem12 + + BarButtonItem17 - - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Beenden + + BarButtonItem18 - - DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAD10RVh0VGl0 - bGUATmV3O1BhZ2U7QmFycztSaWJib247U3RhbmRhcmQ7SXRlbTtCbGFuaztEZWZhdWx0O0VtcHR5OxME - Uu0AAAYISURBVFhHnZf5b1RVFMfLvij76or/mom/WEEpKGtLgS4gtIK1BBBKkSiB0hZQlgpoLaCBUDAo - MSEUKRRamE5n6XT2mR6/33Pffe9NOxONL/nmzBT6Pt/vuee+d1smImW+a0pr+92fj3fek+Md96TVVqr9 - rhxvN/UYZGqvHDvTKy1tvXIU9WjbHVXjke6duNd0aCrvub/117L9x26U7YP8l7J9BqZAUwn8r1c6nZWx - RFoi0YS8Co5K/0BI7j14ITd7+2XXga4a3G8G78l749/K9hzuxkfvwi0mGZjGtLxyuXHJ5R3l8qh5yeJn - VAbfqWTKGAiPJuVlMCaPn43IVyd+k/FxkSs3Hkl144Va3HMmpCZqm66ieFcxA9PZWmPAQo0sNJOFgWxe - 0o6SqYzE4mkJhuIwEJSGoz1qIJbIyuWeh7KpvrMO950FTXMY7lXMwIwWrCUvk5QwpAbIwA1UayYvqUwO - NSfxZEZGsAx96EBd8zU1kEjn1cSFa39JRfWpetx7NlRgorgBDBEvQiYC+TnF6sCpJJXOSQjL8Kg/KFWN - l9QAjSfVRE7OXXkg5ZtOTDJRzMDMI6d9BhRmUhKcyhqoggG1SmAYI7GU9PWPyIb68/r7NIGmaRf5fzov - 35cP1rfQhJ2JSQb4w1mHTxkDmnhiUnw30KwDhjCIiVROorG0PB2KSG1Tl3xS3S5rtp2RNVVnZHUl1SZn - u+5LY8t1wuZC7EJRA7MPnbztGHDSKtAT0xJowaxjCQwiFAgn5O+BsPzxcEju/PlMbv3+FFvyiXTf6pPr - t/uk4esewuZBpQ0c/O6WGnBTKxRVgVmJ+5UEHOIQskbH0hjGpAzDyGBwTAaGovLkeVhn4/HToOw51E3Y - fIgPqaIG5hz41hjQ9jIta1GwgVIxCh0YxXZkjaJGaAaDGQjHZTAQk8BITHYf+omwBVBJA3Ob+SChAbTX - g+YMDJ9dKLaYQtn+uKmjrFDUyjWR0IdVfbMaWAgVNcB1ea3pm5tqgCkL05p1NtCsATpQD5iRCGqEFUMZ - dhTEssRgBk9CwhZBJQ28vr8VBuDArq8m9SXWtH4ohZsTzsrWW3AYWzM0asQ5qWn6kbDFUEkD8/Zhq9CA - ttpN7AcT5gCdz/60VMjKgY9EUzrMO/Z1EbYE4kuqqIH5jb5n+aQ2OwmtCDPwlAET5oNaBdVAVqq/uEzY - UogGpkw0wLbM33v4FxgYd6GsfqhKob60oxw2bkFjQKGoBAcj2JaRlO6kqoaLhC2DShpYwL1KA17ijIRR - VS7YSYnPCibMCgNHaBBQGhh2DHCgt+z5dwMLdx+8JnkY0JQ2LapZV4At3AG7bQZkmA8hyoEGUAORhFbO - 1ObPLxC2HOL7oKiBRXXNV40BJ7E3UBTBRm6LFWiTGgXCBCflFfb/qxAOK6GEDvPG+u8JWwGVNLC49ktj - wEvqB6K1bKuCvfYG3LSEOmBWgAlXA1jSz+rOE7YSKmqA67JkJ7ZKHscwd5IV7IlwN6kVgExtEntQq6GR - hA7z+pqzhL0BFRpwTNDA0u3YKjSg62qhSKhrXAC1adFiagKwQMG4DvS6nWrgTYhHtIIO6GkIWrat4ZIe - RHVt3fVFiwHRgdK0psUvUV0oqwMcdKCDPnE3rd3eQdhbUEkDyyv3XlQDLtQnu64T22ySxg08SMXlhdVw - XJ6jcpB5UAHjbaioAa7LCm4VHkhNWoKZliC22bSaaVWaFgktGJ8t1GhMntMAxFlaU6UG3oFKGli5cdcP - akBTamonqaa0smkJNy12E6sIduCBuAxAfG6srmoj7F2otIEN2Cr8O2Byi520hKoSXlpUF2ih+E7wQIB1 - TIe5fOtpa4Cn46IGln9ac07/BnBPQc5r2ZwHzGu58AXlvaT0wYVW8xlS8LDCruEOKt98irCSQ6hPwtWV - J3sqsF3W7eiUCmjtdqpD1lZ36BB9vM3IPfVa4eT70Vao8rSUb/H0IaBW71e03ACj5NtQD6UQTyx8WtEp - J5ZDM1Fso1+riug9n/id9yJ8DkSWYfsMsAv8B3aCy8E2TRQN/l/x95mc5w6ywJayfwAQQd/PPqM0twAA - AABJRU5ErkJggg== - + + BarButtonItem19 - - + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 6, 13 + + LabelLanguage - - 0 + + DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - $this + + pageHome - - DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - BarButtonItem6 + + RibbonPageGroup2 - - Beendet das Programm + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_USER_ACTIVETableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + groupQuickAccessForm - - Regular + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + pageForms - - VWPMO_WF_USER_ACTIVETableAdapter + + DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Yellow + + groupQuickAccessForm2 - - Grundeinstellungen + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - MainMenu + + pageAdmin - - StatusMachine + + DevExpress.XtraBars.Ribbon.RibbonPage, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 1538, 698 + + RibbonPageGroupProgram + + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a RibbonPageGroupTask - - ribbonMain - - - BarButtonItem18 - - - True + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Log Record Changes + + RibbonPageGroupMenue - - - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAAC50RVh0VGl0 - bGUAR3JvdXA7RmllbGQ7Q29sbGVjdGlvbjtDdXN0b21pejtTZXR0aW5nc3z46Z4AAAfpSURBVFhHvZUJ - VFTnFcdRYjFaT7o3pk1PltPaVk2beqznxHOaaixg1GhbxRSLUTRRowYUNZaqGJTdlU0DFISE3WHfd9kX - YWBGdhFGYBhnhnUEQYR/731vGAdDekrb03vOb+77vjffvffb/s8EgAE235QGk8CcVpPggjaT4Pw27prz - 3+CT0khONONchpzTGmTeSfUmXSPj/MgB5hKmep57hnkz8A0juM3jOI5gxrkMOac1yC7FydjNvZogXeuf - 0VR5Lb0Z/oRfWhPRCF8mpQHexNVkIqkeVxLv4HLCHVyMl+NinIyQwzNGevt0UK45xeJihSKMcxlyTmuI - xn829U5pVNUqdeh6NCHQqef+MPMEiuFxtDMPx3GPaGN042glWobGUdw+gPPhUhXFMiN4JaflMuSc1hCN - C5h3iWZUP/gYRT0jKGSUI7ilp6CbGUY+kddlROcwcjsfIvf+Q1RqRnE2rIqDLiBmVQD/2cw1sgbVvaPI - F4JTUA5M5DCUIFvxEFkKnUiHDpl6Mtp1SCdKVCNwDCrnoN8k+CxMy2XIOa0hGhcw/1RwBc16GGn3BvXB - hyj4EAUn7g1RPzOI1LZBpDB3B5HMtA4iiSigwh38SjnoImLWBTx/MqAM2ZQ0UqZBlKwXsfW9uNnQh/im - fgMJzewHIGnsRyy9i63vQ6S8F19INUhsHsABzzwO+gLBB3FaLkPOaQ3RuNqFDn7FSKeZhVGwMKkaoTUi - N6pFQm4zD/APpkqFoCq9r3yAQIKL3euWw0G/Rcy+ALurhUhqGRCSBD+TiBMEVaoEH1ChQkC5Cp8T15my - HlwjIuVa7HLO4qDfJmZdwAJavp7AWwpIGvpxk5aWlzfmTq9ANAWPlBF1WkSQDycfXqvFl1ItviAfVqPB - 5Yw27DiT2kOxDFswo81QAF9Ds/ePh27d65qt3uuaA/KwdcmC7fks7D5H0Mw+OJtJZGCnUzpsiL8SO86k - wfp0KqxPpeJ9x2S1he0Va4rF15AnxWeLYwu4xQqC97UF8ID5BJ9g3kNexu/o+S7xfeIHen5IvGjES8Ri - gt/x7J8nWIxmlugZCmDjl1wxLx0zpfVmZ0IKzD0kdbe94u/Ak/CQyOEukcGNiamDC3Geia7FuSgpnCOl - +CyiBmfDq+EUXoPTNypuH/HJfCrRX1PAs2YoyDVWpiolmW0dGBNo0dPcP4ZGoqFvDPW9InLtKGREHali - LSFVjyK9QYNPAyueSvS/mXhqD+c506zKSJpj7vQhSk73XibeffYRAr2IqOsVD6bef1nbS7AXD+mRayWc - VJToqQJOX7hp8nevWH6cSjrX4bMbO0+4RuD4uXAcPhWwi/oWFMuVUAw8QpN6BNGUjAMKJ1/QCw1phRY3 - 6BaEMtUa0gyCnkPIBxOsHwevFHJSUaKNVmDO1p3HF51wCc8/5hwWvvsTj6X2Z0OSZI0K1DV0cAEp6/+8 - /zfeIelw9Y1Di7IP9aphSqImnRBFiX1wlVrQCgFBL0TdEKgg3SCtsHUXFFKUaKMC5jo4h+Y2tXWjqvYu - zntLJuycQiZGR8fRNziMg44BE05e4U9KqhqFgpwvR6OyvR8+RUr4FPfAn8THv4REqLRHEKPrZSp6VsK3 - hN4TV4q6cTG/C565nbA6lcZJRX0wKsD08KmgmKq6u9CNjEI3PApFlwbjTyag7dNB3nQfo2OPMfxoDMmZ - 5fj0XCAq2ntxIfc+PHNEPIxwF1AI3iObfDa1BRT448kUTipKtHEB23Y7vuF0IWpi8OEItP06qPuGBN+j - GYBS3U++Hx3dWtjsd0FmSR2K72oRXfMAXnliQjd9Ak7klqUw4GoMvd/okMhJRYnWF2C665DXB3uOXEnd - d8x3slOphUo7gNzCGuw+4IIPD7ujsEyG9i4tKqTNsP7IDX9zC0ZMWik6NDqE8H7TN4Ful/BN+Jy3oJy3 - QYnrtA28FddoG/yJs5IGWHxy86lE6wsw2+vgg8qaZgzpRjDy6DG6acabtp/AitVW21atsbayOeAO5YN+ - VMnaUFTZhMSMMmzecQYVcgWsHFPx3rEkbKKZbTjKJOBd+3isJyzt4ilhHMwPS2B+SIJ1H8eqV1l5/YVy - skIaruH8XYcvoux2E7pVfehQatDWqcZ2Wye89Y7NzrfX79m575gPrYAGBeUNyC2VIzA8Exu2n+TBPyGM - ZdqY7xnB8s2el5414KkScuN3lh8efHvD/myrPS6T5bQS9S2dSM+rhq3dJew77ovMglrIqU+SXo7fr/8Y - q9bYFC1fufkYjeX7PCXV/4qp7wDDOsN6YyiAG2YrVm/+7Uf2l5+00+xLq1tQRCsib+5ES0cPahsUyCyS - ITmnGuu32k++/NqKNTRmITH1YZktoukLYDOz3HY0NjKuAPWtnciiZBHxt5BeIEVqXg1CYnIQl1kJSUYF - nDxC8Ms3NyXRmAVLfrVRiPGfIv6INt/iT0crEjLL4OUXBYvNh7Buy5HJhKxKxKSWYtXa3ZMWWw5OOroE - wd0nCkuWv1tFYxa+vsziK0Fng/gjmumLP17y0pqNB8uWrtyS/KNXfv2H1eZ7iq+HpsLTLxbLV24pWfzy - G5Y/W2ae+NNlljWLXlj8Go157tVfrPtK0Nkg/pCtfc+OHe8nn1Bm4ZtvbbNbbbEfq9ftw+tL37GnPj5w - vO9TB2/OKz//HxUwg/FB4bs6dcXEezuDPRt0NszY+f8DJv8Eh52mfnp1TP0AAAAASUVORK5CYII= - + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a RibbonPageGroupWindream - - Regular - - + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - RibbonPageGroup2 - - - Workflow/Tasks - - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + RibbonPageGroup1 - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Language - Dependent Objects + + DefaultLookAndFeel1 - - Import windream-Files + + DevExpress.LookAndFeel.DefaultLookAndFeel, DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Kalender + + BarButtonItem11 DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - BarButtonItem1 + + TimerClose3Minutes - - BarButtonItem16 + + System.Windows.Forms.Timer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DevExpress.XtraBars.Ribbon.ApplicationMenu, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + RibbonPageGroup3 + + + DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - + + BarButtonItem20 - + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - Segoe UI, 8.25pt + + frmMain - - DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DevExpress.XtraBars.Ribbon.RibbonForm, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 1365, 17 - - - 1276, 17 - - - 1103, 17 - - - 410, 17 - - - 61 - - - 17, 17 - - - 553, 17 - - - True - - - 831, 17 - - - 132, 17 - - - 242, 17 - \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmMain.vb b/app/DD-Record-Organiser/frmMain.vb index a7f9518..d0e340c 100644 --- a/app/DD-Record-Organiser/frmMain.vb +++ b/app/DD-Record-Organiser/frmMain.vb @@ -78,12 +78,12 @@ Public Class frmMain LabelVersion.Caption = String.Format("Version {0}", My.Application.Info.Version.ToString) LabelUser.Caption = Environment.UserName LabelMachine.Caption = My.Computer.Name - + LabelLanguage.Caption = "Language: " & USER_LANGUAGE Load_Connection_Dep_Data() 'Wenn Argumente übergeben wurden, wird Formular geladen und zu record gesprungen ClassJumpRecord.ParseArgs() - + TimerTasks.Interval = Task_Popup_minutes * 60000 Catch ex As Exception MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try @@ -107,9 +107,9 @@ Public Class frmMain End Sub Sub Load_TasksforUser() Try - VWPMO_WF_USER_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString - Me.VWPMO_WF_USER_ACTIVETableAdapter.FillByUser(Me.DD_DMSDataSet.VWPMO_WF_USER_ACTIVE, Environment.UserName) - CURRENT_TASKS_GENERAL = Me.DD_DMSDataSet.VWPMO_WF_USER_ACTIVE + VWPMO_WF_ACTIVETableAdapter.Connection.ConnectionString = MyConnectionString + Me.VWPMO_WF_ACTIVETableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, Environment.UserName) + CURRENT_TASKS_GENERAL = Me.DD_DMSDataSet.VWPMO_WF_ACTIVE Catch ex As Exception MsgBox("Error in Load Tasks:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try @@ -396,7 +396,7 @@ Public Class frmMain Sub Refresh_TaskReminder() Load_TasksforUser() Try - If DD_DMSDataSet.VWPMO_WF_USER_ACTIVE.Rows.Count > 0 Then + If DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows.Count > 0 Then NotifyIcon.Visible = True If USER_LANGUAGE = "de-DE" Then NotifyIcon.ShowBalloonTip(50000, "ADDI-Unerledigte Tasks", "Sie haben unerledigte Tasks in Ihrem Verantwortungsbereich." & vbNewLine & "Bitte überprüfen Sie Ihre Workflow-Tasks", ToolTipIcon.Info) @@ -436,7 +436,7 @@ Public Class frmMain End Sub - Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick + Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles TimerTasks.Tick Refresh_TaskReminder() End Sub @@ -448,7 +448,7 @@ Public Class frmMain Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown Refresh_TaskReminder() - Timer1.Start() + TimerTasks.Start() RUN_TIMER() If Sett_ConstructorStart <> 0 Then Cursor = Cursors.WaitCursor @@ -548,6 +548,10 @@ Public Class frmMain If CONNECTION_CHANGED = True Then Load_Connection_Dep_Data() End If + TimerTasks.Stop() + TimerTasks.Interval = Task_Popup_minutes * 60000 + TimerTasks.Start() + End Sub Private Sub BarButtonItem3_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem3.ItemClick Cursor = Cursors.WaitCursor @@ -662,10 +666,6 @@ Public Class frmMain End Sub - Private Sub NotifyIcon_Click(sender As Object, e As EventArgs) Handles NotifyIcon.Click - - End Sub - Private Sub NotifyIcon_BalloonTipClicked(sender As Object, e As EventArgs) Handles NotifyIcon.BalloonTipClicked OpenFormCockpit() End Sub @@ -674,4 +674,16 @@ Public Class frmMain Close_Maximized_Forms() OpenWindream_Files() End Sub + + Private Sub CockpitAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles CockpitAnzeigenToolStripMenuItem.Click + OpenFormCockpit() + End Sub + + Private Sub BarButtonItem20_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem20.ItemClick + Close_Maximized_Forms() + Dim frm As New frmGroup_Rights + frm = frmGroup_Rights.Instance() + frm.MdiParent = MAIN_FORM + frm.Show() + End Sub End Class diff --git a/app/DD-Record-Organiser/frmQuickEdit.Designer.vb b/app/DD-Record-Organiser/frmQuickEdit.Designer.vb index 2446c94..bc53c63 100644 --- a/app/DD-Record-Organiser/frmQuickEdit.Designer.vb +++ b/app/DD-Record-Organiser/frmQuickEdit.Designer.vb @@ -131,7 +131,6 @@ Partial Class frmQuickEdit Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete diff --git a/app/DD-Record-Organiser/frmRecord_Changes.Designer.vb b/app/DD-Record-Organiser/frmRecord_Changes.Designer.vb index 882aadb..5437284 100644 --- a/app/DD-Record-Organiser/frmRecord_Changes.Designer.vb +++ b/app/DD-Record-Organiser/frmRecord_Changes.Designer.vb @@ -260,7 +260,6 @@ Partial Class frmRecord_Changes Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete diff --git a/app/DD-Record-Organiser/frmSQLEditor.Designer.vb b/app/DD-Record-Organiser/frmSQLEditor.Designer.vb index 8af46bb..4152ab6 100644 --- a/app/DD-Record-Organiser/frmSQLEditor.Designer.vb +++ b/app/DD-Record-Organiser/frmSQLEditor.Designer.vb @@ -129,7 +129,6 @@ Partial Class frmSQLEditor Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete diff --git a/app/DD-Record-Organiser/frmTask_Editor.Designer.vb b/app/DD-Record-Organiser/frmTask_Editor.Designer.vb index 7fe3c56..7bed464 100644 --- a/app/DD-Record-Organiser/frmTask_Editor.Designer.vb +++ b/app/DD-Record-Organiser/frmTask_Editor.Designer.vb @@ -34,6 +34,7 @@ Partial Class frmTask_Editor Dim DUE_DATELabel As System.Windows.Forms.Label Dim Label4 As System.Windows.Forms.Label Dim RECORD_IDLabel As System.Windows.Forms.Label + Dim WF_IDLabel As System.Windows.Forms.Label Me.OK_Button = New System.Windows.Forms.Button() Me.Cancel_Button = New System.Windows.Forms.Button() Me.DD_DMSDataSet = New DD_Record_Organiser.DD_DMSDataSet() @@ -42,9 +43,8 @@ Partial Class frmTask_Editor Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() Me.TBPMO_WORKFLOW_TASK_STATETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_TASK_STATETableAdapter() Me.GroupBox1 = New System.Windows.Forms.GroupBox() + Me.RECORD_IDTextBox = New System.Windows.Forms.TextBox() Me.VWPMO_WF_ACTIVEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.TBPMO_WORKFLOW_TASK_STATEBindingSource = New System.Windows.Forms.BindingSource(Me.components) - Me.WF_IDTextBox = New System.Windows.Forms.TextBox() Me.DateTimePicker1 = New System.Windows.Forms.DateTimePicker() Me.btnAddAppointment = New System.Windows.Forms.Button() Me.btndeleteTask = New System.Windows.Forms.Button() @@ -56,20 +56,22 @@ Partial Class frmTask_Editor Me.ADDED_WHENTextBox = New System.Windows.Forms.TextBox() Me.DUE_DATEDateTimePicker = New System.Windows.Forms.DateTimePicker() Me.STATE_IDComboBox = New System.Windows.Forms.ComboBox() + Me.TBPMO_WORKFLOW_TASK_STATEBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.Label1 = New System.Windows.Forms.Label() Me.GroupBox2 = New System.Windows.Forms.GroupBox() Me.btnAddUser = New System.Windows.Forms.Button() Me.ListBoxUser = New System.Windows.Forms.ListBox() Me.ListViewExclusiveUser = New System.Windows.Forms.ListView() - Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) - Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) - Me.ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader) + Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(),System.Windows.Forms.ColumnHeader) + Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(),System.Windows.Forms.ColumnHeader) + Me.ColumnHeader3 = CType(New System.Windows.Forms.ColumnHeader(),System.Windows.Forms.ColumnHeader) Me.Label3 = New System.Windows.Forms.Label() Me.btndeleteuser = New System.Windows.Forms.Button() Me.Label2 = New System.Windows.Forms.Label() Me.btndelete_following = New System.Windows.Forms.Button() Me.ListBoxFollowing = New System.Windows.Forms.ListBox() Me.VWPMO_WF_ACTIVETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter() + Me.WF_IDTextBox = New System.Windows.Forms.TextBox() CHANGED_WHENLabel = New System.Windows.Forms.Label() GUIDLabel = New System.Windows.Forms.Label() CHANGED_WHOLabel = New System.Windows.Forms.Label() @@ -80,13 +82,14 @@ Partial Class frmTask_Editor DUE_DATELabel = New System.Windows.Forms.Label() Label4 = New System.Windows.Forms.Label() RECORD_IDLabel = New System.Windows.Forms.Label() - CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBPMO_WORKFLOW_TASKBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox1.SuspendLayout() - CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() - Me.GroupBox2.SuspendLayout() - Me.SuspendLayout() + WF_IDLabel = New System.Windows.Forms.Label() + CType(Me.DD_DMSDataSet,System.ComponentModel.ISupportInitialize).BeginInit + CType(Me.TBPMO_WORKFLOW_TASKBindingSource,System.ComponentModel.ISupportInitialize).BeginInit + Me.GroupBox1.SuspendLayout + CType(Me.VWPMO_WF_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).BeginInit + CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingSource,System.ComponentModel.ISupportInitialize).BeginInit + Me.GroupBox2.SuspendLayout + Me.SuspendLayout ' 'CHANGED_WHENLabel ' @@ -163,11 +166,12 @@ Partial Class frmTask_Editor ' 'TBPMO_WORKFLOW_TASKTableAdapter ' - Me.TBPMO_WORKFLOW_TASKTableAdapter.ClearBeforeFill = True + Me.TBPMO_WORKFLOW_TASKTableAdapter.ClearBeforeFill = true ' 'TableAdapterManager ' - Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.BackupDataSetBeforeUpdate = false + Me.TableAdapterManager.TBDD_CLIENTTableAdapter = Nothing Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing @@ -176,6 +180,7 @@ Partial Class frmTask_Editor Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing @@ -192,19 +197,22 @@ Partial Class frmTask_Editor Me.TableAdapterManager.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing 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_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Me.TBPMO_WORKFLOW_TASK_STATETableAdapter Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' 'TBPMO_WORKFLOW_TASK_STATETableAdapter ' - Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.ClearBeforeFill = True + Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.ClearBeforeFill = true ' 'GroupBox1 ' + Me.GroupBox1.Controls.Add(WF_IDLabel) Me.GroupBox1.Controls.Add(Me.WF_IDTextBox) + Me.GroupBox1.Controls.Add(Me.RECORD_IDTextBox) Me.GroupBox1.Controls.Add(RECORD_IDLabel) Me.GroupBox1.Controls.Add(Me.DateTimePicker1) Me.GroupBox1.Controls.Add(Label4) @@ -228,27 +236,23 @@ Partial Class frmTask_Editor Me.GroupBox1.Controls.Add(DUE_DATELabel) resources.ApplyResources(Me.GroupBox1, "GroupBox1") Me.GroupBox1.Name = "GroupBox1" - Me.GroupBox1.TabStop = False + Me.GroupBox1.TabStop = false + ' + 'RECORD_IDTextBox + ' + Me.RECORD_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "RECORD_ID", true)) + resources.ApplyResources(Me.RECORD_IDTextBox, "RECORD_IDTextBox") + Me.RECORD_IDTextBox.Name = "RECORD_IDTextBox" + Me.RECORD_IDTextBox.ReadOnly = true ' 'VWPMO_WF_ACTIVEBindingSource ' Me.VWPMO_WF_ACTIVEBindingSource.DataMember = "VWPMO_WF_ACTIVE" Me.VWPMO_WF_ACTIVEBindingSource.DataSource = Me.DD_DMSDataSet ' - 'TBPMO_WORKFLOW_TASK_STATEBindingSource - ' - Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.DataMember = "TBPMO_WORKFLOW_TASK_STATE" - Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.DataSource = Me.DD_DMSDataSet - ' - 'WF_IDTextBox - ' - Me.WF_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "WF_ID", True)) - resources.ApplyResources(Me.WF_IDTextBox, "WF_IDTextBox") - Me.WF_IDTextBox.Name = "WF_IDTextBox" - ' 'DateTimePicker1 ' - Me.DateTimePicker1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.VWPMO_WF_ACTIVEBindingSource, "TASK_DATE", True)) + Me.DateTimePicker1.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.VWPMO_WF_ACTIVEBindingSource, "TASK_DATE", true)) Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.[Short] resources.ApplyResources(Me.DateTimePicker1, "DateTimePicker1") Me.DateTimePicker1.Name = "DateTimePicker1" @@ -258,73 +262,78 @@ Partial Class frmTask_Editor Me.btnAddAppointment.Image = Global.DD_Record_Organiser.My.Resources.Resources.AddTable_5632 resources.ApplyResources(Me.btnAddAppointment, "btnAddAppointment") Me.btnAddAppointment.Name = "btnAddAppointment" - Me.btnAddAppointment.UseVisualStyleBackColor = True + Me.btnAddAppointment.UseVisualStyleBackColor = true ' 'btndeleteTask ' Me.btndeleteTask.Image = Global.DD_Record_Organiser.My.Resources.Resources.note_delete resources.ApplyResources(Me.btndeleteTask, "btndeleteTask") Me.btndeleteTask.Name = "btndeleteTask" - Me.btndeleteTask.UseVisualStyleBackColor = True + Me.btndeleteTask.UseVisualStyleBackColor = true ' 'GUIDTextBox ' - Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "WF_TASK_ID", True)) + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "WF_TASK_ID", true)) resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox") Me.GUIDTextBox.Name = "GUIDTextBox" - Me.GUIDTextBox.ReadOnly = True + Me.GUIDTextBox.ReadOnly = true ' 'CHANGED_WHENTextBox ' - Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "CHANGED_WHEN", True)) + Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "CHANGED_WHEN", true)) resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox") Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" - Me.CHANGED_WHENTextBox.ReadOnly = True + Me.CHANGED_WHENTextBox.ReadOnly = true ' 'TITLETextBox ' - Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "TITLE", True)) + Me.TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "WF_TITLE", true)) resources.ApplyResources(Me.TITLETextBox, "TITLETextBox") Me.TITLETextBox.Name = "TITLETextBox" - Me.TITLETextBox.ReadOnly = True + Me.TITLETextBox.ReadOnly = true ' 'CHANGED_WHOTextBox ' - Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "CHANGED_WHO", True)) + Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "CHANGED_WHO", true)) resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox") Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" - Me.CHANGED_WHOTextBox.ReadOnly = True + Me.CHANGED_WHOTextBox.ReadOnly = true ' 'COMMENTTextBox ' - Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "COMMENT", True)) + Me.COMMENTTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "COMMENT", true)) resources.ApplyResources(Me.COMMENTTextBox, "COMMENTTextBox") Me.COMMENTTextBox.Name = "COMMENTTextBox" ' 'ADDED_WHENTextBox ' - Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "ADDED_WHEN", True)) + Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "ADDED_WHEN", true)) resources.ApplyResources(Me.ADDED_WHENTextBox, "ADDED_WHENTextBox") Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" - Me.ADDED_WHENTextBox.ReadOnly = True + Me.ADDED_WHENTextBox.ReadOnly = true ' 'DUE_DATEDateTimePicker ' - Me.DUE_DATEDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.VWPMO_WF_ACTIVEBindingSource, "DUE_DATE", True)) + Me.DUE_DATEDateTimePicker.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.VWPMO_WF_ACTIVEBindingSource, "DUE_DATE", true)) Me.DUE_DATEDateTimePicker.Format = System.Windows.Forms.DateTimePickerFormat.[Short] resources.ApplyResources(Me.DUE_DATEDateTimePicker, "DUE_DATEDateTimePicker") Me.DUE_DATEDateTimePicker.Name = "DUE_DATEDateTimePicker" ' 'STATE_IDComboBox ' - Me.STATE_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.VWPMO_WF_ACTIVEBindingSource, "STATE_ID", True)) + Me.STATE_IDComboBox.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.VWPMO_WF_ACTIVEBindingSource, "STATE_ID", true)) Me.STATE_IDComboBox.DataSource = Me.TBPMO_WORKFLOW_TASK_STATEBindingSource Me.STATE_IDComboBox.DisplayMember = "STATE_DESC" - Me.STATE_IDComboBox.FormattingEnabled = True + Me.STATE_IDComboBox.FormattingEnabled = true resources.ApplyResources(Me.STATE_IDComboBox, "STATE_IDComboBox") Me.STATE_IDComboBox.Name = "STATE_IDComboBox" Me.STATE_IDComboBox.ValueMember = "GUID" ' + 'TBPMO_WORKFLOW_TASK_STATEBindingSource + ' + Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.DataMember = "TBPMO_WORKFLOW_TASK_STATE" + Me.TBPMO_WORKFLOW_TASK_STATEBindingSource.DataSource = Me.DD_DMSDataSet + ' 'Label1 ' resources.ApplyResources(Me.Label1, "Label1") @@ -342,29 +351,29 @@ Partial Class frmTask_Editor Me.GroupBox2.Controls.Add(Me.btndeleteuser) Me.GroupBox2.Controls.Add(Me.Label2) Me.GroupBox2.Name = "GroupBox2" - Me.GroupBox2.TabStop = False + Me.GroupBox2.TabStop = false ' 'btnAddUser ' Me.btnAddUser.Image = Global.DD_Record_Organiser.My.Resources.Resources.arrow_left resources.ApplyResources(Me.btnAddUser, "btnAddUser") Me.btnAddUser.Name = "btnAddUser" - Me.btnAddUser.UseVisualStyleBackColor = True + Me.btnAddUser.UseVisualStyleBackColor = true ' 'ListBoxUser ' resources.ApplyResources(Me.ListBoxUser, "ListBoxUser") - Me.ListBoxUser.FormattingEnabled = True + Me.ListBoxUser.FormattingEnabled = true Me.ListBoxUser.Name = "ListBoxUser" ' 'ListViewExclusiveUser ' - Me.ListViewExclusiveUser.AllowDrop = True + Me.ListViewExclusiveUser.AllowDrop = true resources.ApplyResources(Me.ListViewExclusiveUser, "ListViewExclusiveUser") Me.ListViewExclusiveUser.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2, Me.ColumnHeader3}) - Me.ListViewExclusiveUser.FullRowSelect = True + Me.ListViewExclusiveUser.FullRowSelect = true Me.ListViewExclusiveUser.Name = "ListViewExclusiveUser" - Me.ListViewExclusiveUser.UseCompatibleStateImageBehavior = False + Me.ListViewExclusiveUser.UseCompatibleStateImageBehavior = false Me.ListViewExclusiveUser.View = System.Windows.Forms.View.Details ' 'ColumnHeader1 @@ -390,7 +399,7 @@ Partial Class frmTask_Editor Me.btndeleteuser.Image = Global.DD_Record_Organiser.My.Resources.Resources.note_delete resources.ApplyResources(Me.btndeleteuser, "btndeleteuser") Me.btndeleteuser.Name = "btndeleteuser" - Me.btndeleteuser.UseVisualStyleBackColor = True + Me.btndeleteuser.UseVisualStyleBackColor = true ' 'Label2 ' @@ -403,19 +412,31 @@ Partial Class frmTask_Editor Me.btndelete_following.Image = Global.DD_Record_Organiser.My.Resources.Resources.note_delete resources.ApplyResources(Me.btndelete_following, "btndelete_following") Me.btndelete_following.Name = "btndelete_following" - Me.btndelete_following.UseVisualStyleBackColor = True + Me.btndelete_following.UseVisualStyleBackColor = true ' 'ListBoxFollowing ' Me.ListBoxFollowing.DisplayMember = "WF_TASK_ID" - Me.ListBoxFollowing.FormattingEnabled = True + Me.ListBoxFollowing.FormattingEnabled = true resources.ApplyResources(Me.ListBoxFollowing, "ListBoxFollowing") Me.ListBoxFollowing.Name = "ListBoxFollowing" Me.ListBoxFollowing.ValueMember = "WF_TASK_ID" ' 'VWPMO_WF_ACTIVETableAdapter ' - Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = True + Me.VWPMO_WF_ACTIVETableAdapter.ClearBeforeFill = true + ' + 'WF_IDLabel + ' + resources.ApplyResources(WF_IDLabel, "WF_IDLabel") + WF_IDLabel.Name = "WF_IDLabel" + ' + 'WF_IDTextBox + ' + Me.WF_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.VWPMO_WF_ACTIVEBindingSource, "WF_ID", true)) + resources.ApplyResources(Me.WF_IDTextBox, "WF_IDTextBox") + Me.WF_IDTextBox.Name = "WF_IDTextBox" + Me.WF_IDTextBox.ReadOnly = true ' 'frmTask_Editor ' @@ -430,22 +451,22 @@ Partial Class frmTask_Editor Me.Controls.Add(Me.GroupBox2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.GroupBox1) - Me.MaximizeBox = False - Me.MinimizeBox = False + Me.MaximizeBox = false + Me.MinimizeBox = false Me.Name = "frmTask_Editor" - Me.ShowInTaskbar = False - CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBPMO_WORKFLOW_TASKBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox1.ResumeLayout(False) - Me.GroupBox1.PerformLayout() - CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingSource, System.ComponentModel.ISupportInitialize).EndInit() - Me.GroupBox2.ResumeLayout(False) - Me.GroupBox2.PerformLayout() - Me.ResumeLayout(False) - Me.PerformLayout() + Me.ShowInTaskbar = false + CType(Me.DD_DMSDataSet,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBPMO_WORKFLOW_TASKBindingSource,System.ComponentModel.ISupportInitialize).EndInit + Me.GroupBox1.ResumeLayout(false) + Me.GroupBox1.PerformLayout + CType(Me.VWPMO_WF_ACTIVEBindingSource,System.ComponentModel.ISupportInitialize).EndInit + CType(Me.TBPMO_WORKFLOW_TASK_STATEBindingSource,System.ComponentModel.ISupportInitialize).EndInit + Me.GroupBox2.ResumeLayout(false) + Me.GroupBox2.PerformLayout + Me.ResumeLayout(false) + Me.PerformLayout - End Sub +End Sub Friend WithEvents OK_Button As System.Windows.Forms.Button Friend WithEvents Cancel_Button As System.Windows.Forms.Button Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet @@ -481,6 +502,7 @@ Partial Class frmTask_Editor Friend WithEvents ListBoxFollowing As System.Windows.Forms.ListBox Friend WithEvents VWPMO_WF_ACTIVEBindingSource As System.Windows.Forms.BindingSource Friend WithEvents VWPMO_WF_ACTIVETableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_WF_ACTIVETableAdapter + Friend WithEvents RECORD_IDTextBox As System.Windows.Forms.TextBox Friend WithEvents WF_IDTextBox As System.Windows.Forms.TextBox End Class diff --git a/app/DD-Record-Organiser/frmTask_Editor.resx b/app/DD-Record-Organiser/frmTask_Editor.resx index 8fdf2eb..be574db 100644 --- a/app/DD-Record-Organiser/frmTask_Editor.resx +++ b/app/DD-Record-Organiser/frmTask_Editor.resx @@ -125,11 +125,14 @@ True + + Segoe UI, 9pt, style=Italic + - 400, 249 + 357, 249 - 90, 15 + 92, 15 16 @@ -147,7 +150,7 @@ GroupBox1 - 6 + 8 False @@ -155,11 +158,14 @@ True + + Segoe UI, 9pt, style=Italic + 9, 20 - 50, 15 + 51, 15 4 @@ -177,7 +183,7 @@ GroupBox1 - 9 + 11 False @@ -185,11 +191,14 @@ True + + Segoe UI, 9pt, style=Italic + - 241, 248 + 213, 248 - 80, 15 + 81, 15 14 @@ -207,7 +216,7 @@ GroupBox1 - 10 + 12 False @@ -215,6 +224,9 @@ True + + Segoe UI, 9pt, style=Italic + 84, 20 @@ -237,7 +249,7 @@ GroupBox1 - 13 + 15 False @@ -245,11 +257,14 @@ True + + Segoe UI, 9pt, style=Italic + 82, 249 - 77, 15 + 78, 15 12 @@ -267,7 +282,7 @@ GroupBox1 - 14 + 16 False @@ -297,7 +312,7 @@ GroupBox1 - 17 + 19 False @@ -327,7 +342,7 @@ GroupBox1 - 18 + 20 False @@ -357,7 +372,7 @@ GroupBox1 - 21 + 23 False @@ -387,7 +402,7 @@ GroupBox1 - 3 + 5 False @@ -395,11 +410,14 @@ True + + Segoe UI, 9pt, style=Italic + 12, 68 - 63, 15 + 62, 15 21 @@ -417,7 +435,7 @@ GroupBox1 - 1 + 3 @@ -504,203 +522,89 @@ 17, 56 - - WF_IDTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 0 - - - DateTimePicker1 - - - System.Windows.Forms.DateTimePicker, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 2 - - - btnAddAppointment - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 4 - - - btndeleteTask - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 5 - - - GUIDTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 7 - - - CHANGED_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + False + + + True - - GroupBox1 + + Segoe UI, 9pt, style=Italic - - 8 + + 487, 249 - - TITLETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 42, 15 - - GroupBox1 + + 23 - - 11 + + WF ID: - - CHANGED_WHOTextBox + + WF_IDLabel - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + GroupBox1 - - 12 + + 0 - - COMMENTTextBox + + 904, 56 + + + Segoe UI, 9pt, style=Italic - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 487, 267 - - GroupBox1 + + 42, 23 - - 15 + + 24 - - ADDED_WHENTextBox + + WF_IDTextBox - + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GroupBox1 - - - 16 - - - DUE_DATEDateTimePicker - - - System.Windows.Forms.DateTimePicker, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 19 - - - STATE_IDComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 20 - - - 0, 0 - - - 700, 312 - - - 19 - - - Aktueller Task: - - + GroupBox1 - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 1 - - $this + + Segoe UI, 9pt, style=Italic - - 6 - - - 904, 56 - - - 883, 17 - - - 904, 56 - - + 12, 88 - + 68, 23 - + 23 - - WF_IDTextBox + + RECORD_IDTextBox - + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + GroupBox1 - - 0 + + 2 87, 178 @@ -721,7 +625,7 @@ GroupBox1 - 2 + 4 MiddleLeft @@ -751,7 +655,7 @@ GroupBox1 - 4 + 6 MiddleLeft @@ -781,7 +685,10 @@ GroupBox1 - 5 + 7 + + + Segoe UI, 9pt, style=Italic 12, 40 @@ -802,13 +709,16 @@ GroupBox1 - 7 + 9 + + + Segoe UI, 9pt, style=Italic - 403, 269 + 360, 267 - 160, 23 + 121, 23 17 @@ -823,7 +733,10 @@ GroupBox1 - 8 + 10 + + + Segoe UI, 9pt, style=Italic 87, 40 @@ -844,10 +757,13 @@ GroupBox1 - 11 + 13 + + + Segoe UI, 9pt, style=Italic - 244, 269 + 216, 267 138, 23 @@ -865,7 +781,7 @@ GroupBox1 - 12 + 14 87, 88 @@ -889,13 +805,16 @@ GroupBox1 - 15 + 17 + + + Segoe UI, 9pt, style=Italic - 85, 269 + 87, 267 - 138, 23 + 123, 23 13 @@ -910,7 +829,7 @@ GroupBox1 - 16 + 18 209, 178 @@ -931,7 +850,7 @@ GroupBox1 - 19 + 21 883, 17 @@ -955,7 +874,31 @@ GroupBox1 - 20 + 22 + + + 0, 0 + + + 700, 312 + + + 19 + + + Aktueller Task: + + + GroupBox1 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 6 True @@ -990,102 +933,6 @@ Top, Bottom, Left - - btnAddUser - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 0 - - - ListBoxUser - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 1 - - - ListViewExclusiveUser - - - System.Windows.Forms.ListView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 2 - - - Label3 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 3 - - - btndeleteuser - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 4 - - - Label2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox2 - - - 5 - - - 0, 318 - - - 700, 264 - - - 22 - - - Exklusive Zuordnung von Tasks zu Usern: - - - GroupBox2 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 4 - MiddleLeft @@ -1147,6 +994,24 @@ zuordnen Top, Bottom, Left + + ID + + + 40 + + + Task + + + 200 + + + User + + + 120 + 12, 37 @@ -1168,24 +1033,6 @@ zuordnen 2 - - ID - - - 40 - - - Task - - - 200 - - - User - - - 120 - True @@ -1276,6 +1123,30 @@ zuordnen 5 + + 0, 318 + + + 700, 264 + + + 22 + + + Exklusive Zuordnung von Tasks zu Usern: + + + GroupBox2 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 4 + TopLeft diff --git a/app/DD-Record-Organiser/frmTask_Editor.vb b/app/DD-Record-Organiser/frmTask_Editor.vb index f00ddd6..7435b1a 100644 --- a/app/DD-Record-Organiser/frmTask_Editor.vb +++ b/app/DD-Record-Organiser/frmTask_Editor.vb @@ -52,31 +52,29 @@ Public Class frmTask_Editor Sub Load_Task() Try - Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, CURRENT_RECORD_ID, Environment.UserName) + Me.VWPMO_WF_ACTIVETableAdapter.FillByRecord(Me.DD_DMSDataSet.VWPMO_WF_ACTIVE, USER_LANGUAGE, Environment.UserName, CURRENT_RECORD_ID) Catch ex As Exception MsgBox("Error in Load_Task:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub Sub Load_Following() Try - Dim sql = "select WF_TASK_ID,TITLE from VWPMO_WF_ACTIVE where WF_TASK_ID <> " & Me.GUIDTextBox.Text + Dim sql = "select WF_TASK_ID, dbo.FNPMO_GETOBJECTCAPTION('{0}', 'TASK_TITLE' + CONVERT(VARCHAR(5), WF_ID), 1) AS [Workflow-Title] from VWPMO_WF_ACTIVE where WF_TASK_ID <> " & Me.GUIDTextBox.Text & " AND RECORD_ID = " & CURRENT_RECORD_ID Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "GET FOLLOWING TASKS") - - - - 'Dim sql As String = "SELECT T.GUID as [Task-ID],T1.TITLE as Task, T2.STATE_DESC As Status ,T.DUE_DATE as Fälligkeit" & _ - ' " FROM TBPMO_WORKFLOW_TASK T, TBPMO_WORKFLOW T1, TBPMO_WORKFLOW_TASK_STATE T2" & _ - ' " WHERE T.WF_ID = T1.GUID AND T.STATE_ID = T2.GUID AND T2.GUID NOT IN (SELECT WORKFLOW_FINAL_STATE1 FROM TBPMO_KONFIGURATIOn WHERE GUID = 1) AND T.RECORD_ID = " & CURRENT_RECORD_ID & " and T.GUID <> " & Me.GUIDTextBox.Text - 'Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) - 'If DT Is Nothing Then - ' Me.DataGridView1.Visible = False - ' Exit Sub - 'End If - If DT.rows.count > 0 Then - If DT.rows.count = 1 Then - Label1.Text = "1 nachfolgender Task:" + Dim msg As String = " nachfolgender Task" + If USER_LANGUAGE <> "de-DE" Then + msg = " following task:" + End If + If DT.Rows.Count > 0 Then + If DT.Rows.Count = 1 Then + Label1.Text = "1" & msg Else - Label1.Text = DT.rows.count.ToString & " nachfolgende Tasks:" + If USER_LANGUAGE <> "de-DE" Then + msg = " following tasks:" + Else + msg = " nachfolgende Tasks:" + End If + Label1.Text = DT.Rows.Count.ToString & msg End If ListBoxFollowing.Visible = True @@ -86,7 +84,12 @@ Public Class frmTask_Editor ListBoxFollowing.ValueMember = DT.Columns(0).ColumnName 'Me.DataGridView1.DataSource = DT Else - Label1.Text = "Keine nachfolgenden Tasks" + If USER_LANGUAGE <> "de-DE" Then + msg = "No following tasks" + Else + msg = "Keine nachfolgenden Tasks" + End If + Label1.Text = msg Me.ListBoxFollowing.Visible = False btndelete_following.Visible = False End If @@ -134,7 +137,7 @@ Public Class frmTask_Editor Private Sub frmWF_TaskEditor_Shown(sender As Object, e As EventArgs) Handles Me.Shown Try Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.FillBy(Me.DD_DMSDataSet.TBPMO_WORKFLOW_TASK_STATE, USER_LANGUAGE, WF_IDTextBox.Text, CURRENT_FORM_ID) - Dim state = DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("STATE_DESC") + Dim state = DD_DMSDataSet.VWPMO_WF_ACTIVE.Rows(0).Item("STATE_TITLE") Me.STATE_IDComboBox.SelectedIndex = STATE_IDComboBox.FindStringExact(state) Catch ex As Exception MsgBox("Error in Load_TaskStates:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) diff --git a/app/DD-Record-Organiser/frmTask_Management.designer.vb b/app/DD-Record-Organiser/frmTask_Management.designer.vb index 5996736..92a3ca2 100644 --- a/app/DD-Record-Organiser/frmTask_Management.designer.vb +++ b/app/DD-Record-Organiser/frmTask_Management.designer.vb @@ -32,7 +32,6 @@ Partial Class frmTask_Management Dim DESCRIPTIONLabel As System.Windows.Forms.Label Dim TITLELabel As System.Windows.Forms.Label Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Dim GUIDLabel As System.Windows.Forms.Label Dim STATE_DESCLabel As System.Windows.Forms.Label Dim COLORLabel As System.Windows.Forms.Label @@ -107,10 +106,8 @@ Partial Class frmTask_Management Me.VWPMO_GUI_ENTITYBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.StatusStrip1 = New System.Windows.Forms.StatusStrip() Me.tslbl = New System.Windows.Forms.ToolStripStatusLabel() - Me.TBPMO_WORKFLOW_FORMBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPMO_WORKFLOWTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOWTableAdapter() Me.TableAdapterManager = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager() - Me.TBPMO_WORKFLOW_FORMTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_FORMTableAdapter() Me.VWPMO_GUI_ENTITYTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_GUI_ENTITYTableAdapter() Me.TbpmO_WD_FVIEW_DT_INDEXTableAdapter1 = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_FVIEW_DT_INDEXTableAdapter() Me.TableAdapterManager1 = New DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager() @@ -148,7 +145,6 @@ Partial Class frmTask_Management Me.TBPMO_WORKFLOW_TASK_STATEBindingNavigator.SuspendLayout() CType(Me.VWPMO_GUI_ENTITYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.StatusStrip1.SuspendLayout() - CType(Me.TBPMO_WORKFLOW_FORMBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'SplitContainer1 @@ -433,16 +429,8 @@ Partial Class frmTask_Management Me.DataGridView1.AllowUserToDeleteRows = False DataGridViewCellStyle1.BackColor = System.Drawing.Color.NavajoWhite Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 - Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize - DataGridViewCellStyle2.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft - DataGridViewCellStyle2.BackColor = System.Drawing.SystemColors.Window - DataGridViewCellStyle2.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Bold) - DataGridViewCellStyle2.ForeColor = System.Drawing.Color.FromArgb(CType(CType(32, Byte), Integer), CType(CType(31, Byte), Integer), CType(CType(53, Byte), Integer)) - DataGridViewCellStyle2.SelectionBackColor = System.Drawing.SystemColors.Highlight - DataGridViewCellStyle2.SelectionForeColor = System.Drawing.SystemColors.HighlightText - DataGridViewCellStyle2.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] - Me.DataGridView1.DefaultCellStyle = DataGridViewCellStyle2 resources.ApplyResources(Me.DataGridView1, "DataGridView1") + Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView1.Name = "DataGridView1" ' 'btnAddWorkflowConfig @@ -507,7 +495,7 @@ Partial Class frmTask_Management ' 'ListBoxStati ' - Me.ListBoxStati.BackColor = System.Drawing.SystemColors.GradientInactiveCaption + Me.ListBoxStati.BackColor = System.Drawing.SystemColors.ScrollBar Me.ListBoxStati.DataSource = Me.TBPMO_WORKFLOW_TASK_STATEBindingSource Me.ListBoxStati.DisplayMember = "STATE_DESC" Me.ListBoxStati.FormattingEnabled = True @@ -610,6 +598,7 @@ Partial Class frmTask_Management ' 'TreeViewEntities ' + Me.TreeViewEntities.BackColor = System.Drawing.SystemColors.GradientInactiveCaption Me.TreeViewEntities.ForeColor = System.Drawing.Color.OrangeRed resources.ApplyResources(Me.TreeViewEntities, "TreeViewEntities") Me.TreeViewEntities.Name = "TreeViewEntities" @@ -721,11 +710,6 @@ Partial Class frmTask_Management Me.tslbl.Name = "tslbl" resources.ApplyResources(Me.tslbl, "tslbl") ' - 'TBPMO_WORKFLOW_FORMBindingSource - ' - Me.TBPMO_WORKFLOW_FORMBindingSource.DataMember = "TBPMO_WORKFLOW_FORM" - Me.TBPMO_WORKFLOW_FORMBindingSource.DataSource = Me.DD_DMSDataSet - ' 'TBPMO_WORKFLOWTableAdapter ' Me.TBPMO_WORKFLOWTableAdapter.ClearBeforeFill = True @@ -733,6 +717,7 @@ Partial Class frmTask_Management 'TableAdapterManager ' Me.TableAdapterManager.BackupDataSetBeforeUpdate = False + Me.TableAdapterManager.TBDD_CLIENTTableAdapter = Nothing Me.TableAdapterManager.TBDD_CONNECTIONTableAdapter = Nothing Me.TableAdapterManager.TBDD_DOKUMENTARTTableAdapter = Nothing Me.TableAdapterManager.TBDD_EINGANGSARTENTableAdapter = Nothing @@ -741,6 +726,7 @@ Partial Class frmTask_Management Me.TableAdapterManager.TBDD_INDEX_AUTOMTableAdapter = Nothing Me.TableAdapterManager.TBDD_USER_GROUPSTableAdapter = Nothing Me.TableAdapterManager.TBDD_USERTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FILES_USERTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLOW_UP_EMAILTableAdapter = Nothing Me.TableAdapterManager.TBPMO_FOLLUPEMAIL_USERTableAdapter = Nothing @@ -757,16 +743,13 @@ Partial Class frmTask_Management Me.TableAdapterManager.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing 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_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Me.TBPMO_WORKFLOWTableAdapter Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' - 'TBPMO_WORKFLOW_FORMTableAdapter - ' - Me.TBPMO_WORKFLOW_FORMTableAdapter.ClearBeforeFill = True - ' 'VWPMO_GUI_ENTITYTableAdapter ' Me.VWPMO_GUI_ENTITYTableAdapter.ClearBeforeFill = True @@ -824,7 +807,6 @@ Partial Class frmTask_Management CType(Me.VWPMO_GUI_ENTITYBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.StatusStrip1.ResumeLayout(False) Me.StatusStrip1.PerformLayout() - CType(Me.TBPMO_WORKFLOW_FORMBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -849,8 +831,6 @@ Partial Class frmTask_Management Friend WithEvents BindingNavigatorMoveLastItem As System.Windows.Forms.ToolStripButton Friend WithEvents BindingNavigatorSeparator2 As System.Windows.Forms.ToolStripSeparator Friend WithEvents TBPMO_WORKFLOWBindingNavigatorSaveItem As System.Windows.Forms.ToolStripButton - Friend WithEvents TBPMO_WORKFLOW_FORMBindingSource As System.Windows.Forms.BindingSource - Friend WithEvents TBPMO_WORKFLOW_FORMTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_FORMTableAdapter Friend WithEvents VWPMO_GUI_ENTITYBindingSource As System.Windows.Forms.BindingSource Friend WithEvents VWPMO_GUI_ENTITYTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.VWPMO_GUI_ENTITYTableAdapter Friend WithEvents XtraTabControl1 As DevExpress.XtraTab.XtraTabControl diff --git a/app/DD-Record-Organiser/frmTask_Management.resx b/app/DD-Record-Organiser/frmTask_Management.resx index d26b230..c2dedb4 100644 --- a/app/DD-Record-Organiser/frmTask_Management.resx +++ b/app/DD-Record-Organiser/frmTask_Management.resx @@ -169,7 +169,7 @@ True - 185, 472 + 185, 521 77, 15 @@ -196,7 +196,7 @@ Bottom, Left - 188, 490 + 188, 539 148, 23 @@ -226,7 +226,7 @@ True - 12, 472 + 12, 521 71, 15 @@ -253,7 +253,7 @@ Bottom, Left - 15, 490 + 15, 539 152, 23 @@ -283,7 +283,7 @@ True - 185, 428 + 185, 477 84, 15 @@ -310,7 +310,7 @@ Bottom, Left - 188, 446 + 188, 495 148, 23 @@ -340,7 +340,7 @@ True - 15, 428 + 15, 477 71, 15 @@ -367,7 +367,7 @@ Bottom, Left - 15, 446 + 15, 495 152, 23 @@ -397,7 +397,7 @@ True - 12, 334 + 12, 383 50, 15 @@ -424,7 +424,7 @@ Bottom, Left - 15, 352 + 15, 401 32, 23 @@ -454,7 +454,7 @@ True - 12, 378 + 12, 427 82, 15 @@ -481,7 +481,7 @@ Bottom, Left - 15, 396 + 15, 445 321, 23 @@ -511,7 +511,7 @@ True - 65, 334 + 65, 383 33, 15 @@ -538,7 +538,7 @@ Bottom, Left - 68, 352 + 68, 401 268, 23 @@ -559,7 +559,7 @@ 14 - 934, 17 + 17, 56 @@ -777,7 +777,7 @@ True - 9, 73 + 6, 104 28, 16 @@ -824,11 +824,14 @@ 1 + + Top, Bottom, Left, Right + - 9, 93 + 9, 123 - 732, 104 + 732, 178 45 @@ -1032,7 +1035,7 @@ NoControl - 249, 67 + 249, 97 75, 23 @@ -1098,7 +1101,7 @@ 3, 298 - 779, 206 + 779, 310 37 @@ -1152,13 +1155,13 @@ 1 - 735, 95 + 495, 95 285, 48 - 212, 199 + 212, 238 31 @@ -1587,7 +1590,7 @@ 3, 20 - 276, 272 + 276, 266 4 @@ -1605,7 +1608,7 @@ 18 - 17, 56 + 278, 56 @@ -1808,7 +1811,7 @@ 19 - 758, 565 + 754, 611 Entitätszuordnungen und Stati-Definition @@ -1836,7 +1839,7 @@ 0 - 760, 591 + 760, 640 1 @@ -1866,7 +1869,7 @@ 1 - 1143, 591 + 1143, 640 379 @@ -1887,7 +1890,7 @@ 0 - 912, 56 + 611, 56 17, 17 @@ -1902,7 +1905,7 @@ False - 0, 591 + 0, 640 1143, 22 @@ -1925,32 +1928,26 @@ 1 - - 350, 56 - 522, 17 761, 17 - - 634, 56 - - 17, 95 + 857, 56 - 257, 95 + 17, 95 - 555, 95 + 315, 95 - 17, 134 + 812, 95 - 901, 134 + 17, 134 True @@ -1962,7 +1959,7 @@ 7, 15 - 1143, 613 + 1143, 662 Segoe UI, 9pt @@ -2150,12 +2147,6 @@ System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TBPMO_WORKFLOW_FORMBindingSource - - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - TBPMO_WORKFLOWTableAdapter @@ -2168,12 +2159,6 @@ DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - TBPMO_WORKFLOW_FORMTableAdapter - - - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WORKFLOW_FORMTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - VWPMO_GUI_ENTITYTableAdapter diff --git a/app/DD-Record-Organiser/frmTask_Management.vb b/app/DD-Record-Organiser/frmTask_Management.vb index 6210bcc..de63e69 100644 --- a/app/DD-Record-Organiser/frmTask_Management.vb +++ b/app/DD-Record-Organiser/frmTask_Management.vb @@ -42,7 +42,6 @@ ClassWindowLocation.LoadFormLocationSize(Me, 1, CURRENT_SCREEN_ID, "frmTaskmanagement") Me.TBPMO_WORKFLOW_TASK_STATETableAdapter.Connection.ConnectionString = MyConnectionString VWPMO_GUI_ENTITYTableAdapter.Connection.ConnectionString = MyConnectionString - TBPMO_WORKFLOW_FORMTableAdapter.Connection.ConnectionString = MyConnectionString TBPMO_WORKFLOWTableAdapter.Connection.ConnectionString = MyConnectionString Try Me.VWPMO_GUI_ENTITYTableAdapter.Fill(Me.DD_DMSDataSet.VWPMO_GUI_ENTITY) @@ -186,21 +185,6 @@ Private Sub frmTaskmanagement_Shown(sender As Object, e As EventArgs) Handles Me.Shown formloaded = True End Sub - Private Sub ToolStripButton14_Click(sender As Object, e As EventArgs) - Try - Me.TBPMO_WORKFLOW_FORMBindingSource.EndEdit() - If DD_DMSDataSet.TBPMO_WORKFLOW_FORM.GetChanges Is Nothing = False Then - Me.TBPMO_WORKFLOW_FORMTableAdapter.Update(DD_DMSDataSet.TBPMO_WORKFLOW_FORM) - toolstriplabel(True, "Änderungen erfolgreich gespeichert - " & Now) - Else - toolstriplabel(False, "") - End If - Catch ex As Exception - MsgBox("Error in Save TBPMO_WORKFLOW_FORM:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End Try - - End Sub - Private Sub ToolStripButton18_Click(sender As Object, e As EventArgs) Handles ToolStripButton18.Click Save_State() End Sub @@ -326,7 +310,6 @@ 'If ListBoxEntityWorkflow.SelectedIndex <> -1 Then ' Dim ID = ListBoxEntityWorkflow.SelectedValue - ' Dim del As String = "DELETE FROM TBPMO_WORKFLOW_FORM WHERE GUID = " & ID ' If ClassDatabase.Execute_non_Query(del) = True Then ' Dim txt As String = "Der Datensatz wurde erfolgreich gelöscht - " & Now ' If USER_LANGUAGE <> "de-DE" Then @@ -369,6 +352,7 @@ Dim DT As DataTable = ClassDatabase.Return_Datatable(sql, "Get Entity-States") DataGridView1.DataSource = DT lblSelection.Text = txtlbl + DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.AllCells 'ListBoxEntity_State.DataSource = DT 'ListBoxEntity_State.DisplayMember = DT.Columns(1).ColumnName 'ListBoxEntity_State.ValueMember = DT.Columns(0).ColumnName diff --git a/app/DD-Record-Organiser/frmTask_Overview.designer.vb b/app/DD-Record-Organiser/frmTask_Overview.designer.vb index 8eb5f6a..3bdac60 100644 --- a/app/DD-Record-Organiser/frmTask_Overview.designer.vb +++ b/app/DD-Record-Organiser/frmTask_Overview.designer.vb @@ -127,7 +127,6 @@ Partial Class frmTask_Overview Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete diff --git a/app/DD-Record-Organiser/frmTemplates.Designer.vb b/app/DD-Record-Organiser/frmTemplates.Designer.vb index 47ba669..2db658d 100644 --- a/app/DD-Record-Organiser/frmTemplates.Designer.vb +++ b/app/DD-Record-Organiser/frmTemplates.Designer.vb @@ -266,7 +266,6 @@ Partial Class frmTemplates Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Me.TBPMO_TEMPLATETableAdapter Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete diff --git a/app/DD-Record-Organiser/frmTemplates.vb b/app/DD-Record-Organiser/frmTemplates.vb index c5c6671..70c2945 100644 --- a/app/DD-Record-Organiser/frmTemplates.vb +++ b/app/DD-Record-Organiser/frmTemplates.vb @@ -132,7 +132,7 @@ For Each cc In doc.ContentControls If Not IsNothing(cc) Then - If LogErrorsOnly = False Then ClassLogger.Add(">> Office-Pattern: " & cc.Tag, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Office-Pattern: " & cc.Tag, False) If Pattern_exists(cc.tag.ToString.ToUpper) = False Then TBPMO_TEMPLATE_PATTERNTableAdapter.cmdInsertBasics(cc.tag.ToString, Environment.UserName, _TEMPLATE_ENTITY_ID) End If diff --git a/app/DD-Record-Organiser/frmUserKonfig.Designer.vb b/app/DD-Record-Organiser/frmUserKonfig.Designer.vb index a62f003..7c61461 100644 --- a/app/DD-Record-Organiser/frmUserKonfig.Designer.vb +++ b/app/DD-Record-Organiser/frmUserKonfig.Designer.vb @@ -421,9 +421,9 @@ Partial Class frmUserKonfig Me.TableAdapterManager.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing 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_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete diff --git a/app/DD-Record-Organiser/frmUserKonfig.resx b/app/DD-Record-Organiser/frmUserKonfig.resx index 74f9ac4..c58bb13 100644 --- a/app/DD-Record-Organiser/frmUserKonfig.resx +++ b/app/DD-Record-Organiser/frmUserKonfig.resx @@ -1556,1983 +1556,1749 @@ True - - TabControl1 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True - - XtraTabPage1 + + 6, 13 - - 0 + + 109, 13 - - 1081, 153 + + 2 - - User-/Gruppenzuordnung + + Verfügbare Gruppen: - - XtraTabPage1 + + Label1 - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - XtraTabControl1 + + TabPage1 - + 0 - - 1087, 181 - - - 30 + + MiddleLeft - - 490, 54 + + 382, 37 - - True + + 321, 23 - - 302, 62 + + 5 - - 15 + + Benutzer aus Gruppe entfernen - - COMMENTTextBox + + btnRemoveUserFromGroup - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabGruppendefinition + + TabPage1 - + 1 - - 9, 38 - - - 120, 121 - - - 13 - - - ListBox1 + + 929, 17 + + + 140, 10 - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 236, 21 - - TabGruppendefinition + + 0 - - 2 + + cmbGroup - - 138, 54 + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 54, 21 + + TabPage1 - + 2 - - GUIDTextBox1 + + True - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 6, 40 - - TabGruppendefinition + + 118, 13 - + 4 - - 203, 54 + + Zugewiesene Gruppen: - - 278, 21 + + Label2 - - 4 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - NAMETextBox1 + + TabPage1 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 3 - - TabGruppendefinition + + MiddleLeft - - 6 + + 382, 8 - - 138, 95 + + 321, 23 - - 163, 21 + + 1 - - 6 + + Ausgewählten Benutzer zu Gruppe hinzufügen - - ADDED_WHOTextBox1 + + btnAddUserToGroup - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabGruppendefinition + + TabPage1 - - 8 + + 4 - - 307, 95 + + Top, Bottom, Left - - 174, 21 + + 140, 40 - - 8 + + 236, 69 - - ADDED_WHENTextBox1 + + 3 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + lbGroups - - TabGruppendefinition + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 10 + + TabPage1 - - 138, 137 + + 5 - - 163, 21 + + 4, 22 - - 10 + + 3, 3, 3, 3 - - CHANGED_WHOTextBox1 + + 1077, 130 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 0 - - TabGruppendefinition + + User zu Gruppe - - 12 + + TabPage1 - - 307, 137 + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 174, 21 + + TabControl1 - - 12 + + 0 - - CHANGED_WHENTextBox1 + + Segoe UI, 8.25pt, style=Italic - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 229, 20 - - TabGruppendefinition - - - 14 - - - 793, 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 - - - 929, 17 - - - 35, 22 - - - of {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 - - - - 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 + + 192, 22 - - 6, 25 + + 38 - - Position + + txtUserSearch3 - - False + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 50, 23 + + TabPage2 - + 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 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo - dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= - - - - 23, 22 - - - Daten speichern - - - Magenta - - - 23, 22 - - - ToolStripButton1 - - - 0, 0 - - - 1081, 25 - - - 1 - - - BindingNavigator1 - - - BindingNavigator1 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabGruppendefinition + + Segoe UI, 8.25pt, style=Italic - - 15 + + 611, 19 - - 1081, 153 + + 192, 22 - - Gruppendefinition + + 37 - - TabGruppendefinition + + txtUserSearch2 - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - XtraTabControl1 + + TabPage2 - + 1 - - True - - - 575, 95 - - - - 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 - - - 74, 22 - - - of {0} Clients - - - 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 - - - - 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 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo - dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= - - - - 23, 22 - - - Daten speichern - - - Magenta - - - 23, 22 - - - ToolStripButton1 - - - 3, 3 - - - 1067, 25 - - - 2 - - - BindingNavigator2 - - - BindingNavigator2 - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 0 - - - True + + MiddleLeft - + NoControl - - 514, 117 - - - 66, 13 - - - 37 - - - Data saved! - - - False - - - Label7 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage5 - - - 1 + + 809, 19 - - 171, 95 - - - Tahoma, 8.25pt, style=Italic + + 194, 23 - - 10, 53 + + 12 - - 54, 21 + + Benutzer aus Gruppe entfernen - - 3 + + MiddleRight - - GUIDTextBox + + btndeleteUserfromGroup - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage5 + + TabPage2 - + 2 - - 74, 53 + + True - - 254, 21 + + NoControl - - 4 + + 611, 3 - - CLIENT_NAMETextBox + + 85, 13 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 11 - - TabPage5 + + User zu Gruppe: - - 4 + + lblUserforGroup - - Top, Left, Right + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 171, 95 - - - 826, 37 + + TabPage2 - - 241, 108 + + 3 - - 36 + + Top, Bottom, Left - - ListBox2 + + 611, 47 - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 192, 100 - - TabPage5 + + 10 - - 5 + + chklbxUserForGroup - - 334, 53 + + System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 177, 21 + + TabPage2 - - 6 + + 4 - - SHORTNAMETextBox + + MiddleLeft - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + NoControl - - TabPage5 + + 427, 19 - - 8 + + 178, 46 - - Tahoma, 8.25pt, style=Italic + + 9 - - 672, 93 + + Ausgewählte User zu +Gruppe hinzufügen - - 148, 21 + + btnaddSelectedUser2Group - - 16 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - CHANGED_WHENTextBox2 + + TabPage2 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 5 - - TabPage5 + + True - - 9 + + NoControl - - 74, 93 + + 226, 3 - - 437, 21 + + 94, 13 - + 8 - - COMMENTTextBox1 + + User zur Auswahl: - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Label4 - - TabPage5 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 12 + + TabPage2 - - Tahoma, 8.25pt, style=Italic + + 6 - - 517, 93 + + Top, Bottom, Left - - 146, 21 + + 229, 47 - - 14 + + 192, 100 - - CHANGED_WHOTextBox2 + + 7 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + clbUsersGroups - - TabPage5 + + System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 13 + + TabPage2 - - Tahoma, 8.25pt, style=Italic + + 7 - - 517, 53 + + True - - 146, 21 + + NoControl - - 10 + + 7, 3 - - ADDED_WHOTextBox2 + + 109, 13 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 4 - - TabPage5 + + Verfügbare Gruppen: - - 16 + + Label3 - - Tahoma, 8.25pt, style=Italic + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 672, 53 + + TabPage2 - - 148, 21 + + 8 - - 12 + + 10, 19 - - ADDED_WHENTextBox2 + + 213, 21 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 3 - - TabPage5 + + cmbGroups_Group2User - - 18 + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 - + + 9 + + 4, 22 - + 3, 3, 3, 3 - + 1073, 127 - - 0 + + 1 - - Mandantendefinition + + Gruppe zu Usern - - TabPage5 + + TabPage2 - + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabControl3 + + TabControl1 - - 0 + + 1 - - Segoe UI, 8.25pt, style=Italic + + Fill - - 569, 22 + + 0, 0 - - 192, 22 + + 1085, 156 - - 38 + + 6 - - txtUserSearch5 + + TabControl1 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage6 + + XtraTabPage1 - + 0 - - Segoe UI, 8.25pt, style=Italic + + 1085, 156 - - 187, 20 + + User-/Gruppenzuordnung - - 192, 22 + + XtraTabPage1 - - 37 + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - txtUserSearch4 + + XtraTabControl1 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 0 - - TabPage6 + + 1087, 181 - - 1 + + 30 - - MiddleLeft + + 490, 54 - - NoControl + + True - - 767, 20 + + 302, 62 - - 194, 23 + + 15 - - 17 + + COMMENTTextBox - - Benutzer aus Gruppe entfernen + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - MiddleRight + + TabGruppendefinition - - btndeleteUserfromClient + + 1 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 9, 38 - - TabPage6 + + 120, 121 - - 2 + + 13 - - True + + ListBox1 - - NoControl + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 569, 4 + + TabGruppendefinition - - 77, 13 + + 2 - - 16 + + 138, 54 - - User zu Client: + + 54, 21 - - lblUser2Client + + 2 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + GUIDTextBox1 - - TabPage6 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 3 + + TabGruppendefinition - - Top, Bottom, Left + + 4 - - 569, 48 + + 203, 54 - - 192, 68 + + 278, 21 - - 15 + + 4 - - chklbxUsersforClient + + NAMETextBox1 - - System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage6 + + TabGruppendefinition - - 4 + + 6 - - MiddleLeft + + 138, 95 - - NoControl + + 163, 21 - - 385, 20 + + 6 - - 178, 46 + + ADDED_WHOTextBox1 - - 14 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Ausgewählte User zu -Gruppe hinzufügen + + TabGruppendefinition - - btnsaddUser2Client + + 8 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 307, 95 - - TabPage6 + + 174, 21 - - 5 + + 8 - - True + + ADDED_WHENTextBox1 - - NoControl + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 184, 4 + + TabGruppendefinition - - 94, 13 + + 10 - - 13 + + 138, 137 - - User zur Auswahl: + + 163, 21 - - Label16 + + 10 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + CHANGED_WHOTextBox1 - - TabPage6 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 6 + + TabGruppendefinition - - Top, Bottom, Left + + 12 - - 187, 48 + + 307, 137 - - 192, 68 + + 174, 21 - + 12 - - chklbxUserClient + + CHANGED_WHENTextBox1 - - System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage6 + + TabGruppendefinition - - 7 + + 14 - + + 793, 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 - - NoControl + + 23, 22 - - 7, 4 + + Neu hinzufügen - - 65, 13 + + 35, 22 - - 11 + + of {0} - - Mandanten: + + Die Gesamtanzahl der Elemente. - - Label17 + + + 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= + - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True - - TabPage6 + + 23, 22 - - 8 + + Löschen - - 7, 20 + + + 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= + - - 171, 21 + + True - - 10 + + 23, 22 - - cmbClientsforUser + + Erste verschieben - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 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 + - - TabPage6 + + True - - 9 + + 23, 22 - - 4, 22 + + Vorherige verschieben - - 3, 3, 3, 3 + + 6, 25 - - 1073, 127 + + Position - - 1 + + False - - User zu Mandant hinzufügen + + 50, 23 - - TabPage6 + + 0 - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Aktuelle Position - - TabControl3 + + 6, 25 - - 1 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + - - Fill + + True - - 0, 0 + + 23, 22 - - 1081, 153 + + Nächste verschieben - - 38 + + + 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== + - - TabControl3 + + True - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 23, 22 - - XtraTabPage2 + + Letzte verschieben - - 0 + + 6, 25 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + 23, 22 - - 1081, 153 + + Daten speichern - - Mandantendefinition + + Magenta - - XtraTabPage2 + + 23, 22 - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + ToolStripButton1 - - XtraTabControl1 + + 0, 0 - - 2 + + 1085, 25 - - XtraTabControl1 + + 1 - - DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + BindingNavigator1 - - $this + + BindingNavigator1 - - 6 + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage1 + + TabGruppendefinition - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 15 - - TabControl1 + + 1085, 156 - - 0 + + Gruppendefinition - - TabPage2 + + TabGruppendefinition - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - TabControl1 + + XtraTabControl1 - + 1 - - Fill + + True - - 0, 0 + + 575, 95 + + + + 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== + - - 1081, 153 + + True - - 6 + + 23, 22 - - TabControl1 + + Neu hinzufügen - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 74, 22 - - XtraTabPage1 + + of {0} Clients - - 0 + + Die Gesamtanzahl der Elemente. - - Label1 + + + 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= + - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True - - TabPage1 + + 23, 22 - - 0 + + Löschen - - btnRemoveUserFromGroup + + + 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= + - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True - - TabPage1 + + 23, 22 - - 1 + + Erste verschieben - - cmbGroup + + + 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 + - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True - - TabPage1 + + 23, 22 - - 2 + + Vorherige verschieben - - Label2 + + 6, 25 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Position - - TabPage1 + + False - - 3 + + 50, 23 - - btnAddUserToGroup + + 0 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Aktuelle Position - - TabPage1 + + 6, 25 - - 4 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + - - lbGroups + + True - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 23, 22 - - TabPage1 + + Nächste verschieben - - 5 + + + 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== + - - 4, 22 + + True - - 3, 3, 3, 3 + + 23, 22 - - 1073, 127 + + Letzte verschieben - - 0 + + 6, 25 - - User zu Gruppe + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + - - TabPage1 + + 23, 22 - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Daten speichern - - TabControl1 + + Magenta - - 0 + + 23, 22 - - True + + ToolStripButton1 - - 6, 13 + + 3, 3 - - 109, 13 + + 1067, 25 - + 2 - - Verfügbare Gruppen: + + BindingNavigator2 - - Label1 + + BindingNavigator2 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage1 + + TabPage5 - + 0 - - MiddleLeft + + True - - 382, 37 + + NoControl - - 321, 23 + + 514, 117 - - 5 + + 66, 13 - - Benutzer aus Gruppe entfernen + + 37 - - btnRemoveUserFromGroup + + Data saved! - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + False - - TabPage1 + + Label7 - + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage5 + + 1 - - 929, 17 + + 171, 95 - - 140, 10 + + Tahoma, 8.25pt, style=Italic - - 236, 21 + + 10, 53 - - 0 + + 54, 21 - - cmbGroup + + 3 - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + GUIDTextBox - - TabPage1 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 2 + + TabPage5 - - True + + 2 - - 6, 40 + + 74, 53 - - 118, 13 + + 254, 21 - + 4 - - Zugewiesene Gruppen: - - - Label2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 3 + + CLIENT_NAMETextBox - - MiddleLeft + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 382, 8 + + TabPage5 - - 321, 23 + + 4 - - 1 + + Top, Left, Right - - Ausgewählten Benutzer zu Gruppe hinzufügen + + 826, 37 - - btnAddUserToGroup + + 241, 108 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 36 - - TabPage1 + + ListBox2 - - 4 + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Top, Bottom, Left + + TabPage5 - - 140, 40 + + 5 - - 236, 69 + + 334, 53 - - 3 + + 177, 21 - - lbGroups + + 6 - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + SHORTNAMETextBox - - TabPage1 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 5 + + TabPage5 - - txtUserSearch3 + + 8 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Tahoma, 8.25pt, style=Italic - - TabPage2 + + 672, 93 - - 0 + + 148, 21 - - txtUserSearch2 + + 16 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + CHANGED_WHENTextBox2 - - TabPage2 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 1 + + TabPage5 - - btndeleteUserfromGroup + + 9 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 74, 93 - - TabPage2 + + 437, 21 - - 2 + + 8 - - lblUserforGroup + + COMMENTTextBox1 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage2 + + TabPage5 - - 3 + + 12 - - chklbxUserForGroup + + Tahoma, 8.25pt, style=Italic - - System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 517, 93 - - TabPage2 + + 146, 21 - - 4 + + 14 - - btnaddSelectedUser2Group + + CHANGED_WHOTextBox2 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage2 + + TabPage5 - - 5 + + 13 - - Label4 + + Tahoma, 8.25pt, style=Italic - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 517, 53 - - TabPage2 + + 146, 21 - - 6 + + 10 - - clbUsersGroups + + ADDED_WHOTextBox2 - - System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage2 + + TabPage5 - - 7 + + 16 - - Label3 + + Tahoma, 8.25pt, style=Italic - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 672, 53 - - TabPage2 + + 148, 21 - - 8 + + 12 - - cmbGroups_Group2User + + ADDED_WHENTextBox2 - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage2 + + TabPage5 - - 9 + + 18 - + 4, 22 - + 3, 3, 3, 3 - - 1038, 157 + + 1073, 127 - - 1 + + 0 - - Gruppe zu Usern + + Mandantendefinition - - TabPage2 + + TabPage5 - + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabControl1 + + TabControl3 - - 1 + + 0 - + Segoe UI, 8.25pt, style=Italic - - 229, 20 + + 569, 22 - + 192, 22 - + 38 - - txtUserSearch3 + + txtUserSearch5 - + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage2 + + TabPage6 - + 0 - + Segoe UI, 8.25pt, style=Italic - - 611, 19 + + 187, 20 - + 192, 22 - + 37 - - txtUserSearch2 + + txtUserSearch4 - + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage2 + + TabPage6 - + 1 - + MiddleLeft - + NoControl - - 809, 19 + + 767, 20 - + 194, 23 - - 12 + + 17 - + Benutzer aus Gruppe entfernen - + MiddleRight - - btndeleteUserfromGroup + + btndeleteUserfromClient - + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage2 + + TabPage6 - + 2 - + True - + NoControl - - 611, 3 + + 569, 4 - - 85, 13 + + 77, 13 - - 11 + + 16 - - User zu Gruppe: + + User zu Client: - - lblUserforGroup + + lblUser2Client - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage2 + + TabPage6 - + 3 - + Top, Bottom, Left - - 611, 47 + + 569, 48 - - 192, 100 + + 192, 68 - - 10 + + 15 - - chklbxUserForGroup + + chklbxUsersforClient - + System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage2 + + TabPage6 - + 4 - + MiddleLeft - + NoControl - - 427, 19 + + 385, 20 - + 178, 46 - - 9 + + 14 - + Ausgewählte User zu Gruppe hinzufügen - - btnaddSelectedUser2Group + + btnsaddUser2Client - + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage2 + + TabPage6 - + 5 - + True - + NoControl - - 226, 3 + + 184, 4 - + 94, 13 - - 8 + + 13 - + User zur Auswahl: - - Label4 + + Label16 - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage2 + + TabPage6 - + 6 - + Top, Bottom, Left - - 229, 47 + + 187, 48 - - 192, 100 + + 192, 68 - - 7 + + 12 - - clbUsersGroups + + chklbxUserClient - + System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage2 + + TabPage6 - + 7 - + True - + NoControl - - 7, 3 + + 7, 4 - - 109, 13 + + 65, 13 - - 4 + + 11 - - Verfügbare Gruppen: + + Mandanten: - - Label3 + + Label17 - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage2 + + TabPage6 - + 8 - - 10, 19 + + 7, 20 - - 213, 21 + + 171, 21 - - 3 + + 10 - - cmbGroups_Group2User + + cmbClientsforUser - + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TabPage2 + + TabPage6 - + 9 + + 4, 22 + + + 3, 3, 3, 3 + + + 1073, 127 + + + 1 + + + User zu Mandant hinzufügen + + + TabPage6 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl3 + + + 1 + + + Fill + + + 0, 0 + + + 1085, 156 + + + 38 + + + TabControl3 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 0 + + + 1085, 156 + + + Mandantendefinition + + + XtraTabPage2 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl1 + + + 2 + + + XtraTabControl1 + + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 6 + 259, 56 diff --git a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.Designer.vb b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.Designer.vb index 1c34187..d47585a 100644 --- a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.Designer.vb +++ b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.Designer.vb @@ -28,10 +28,18 @@ Partial Class frmUserKonfig_AddUsers Me.lbGroups = New System.Windows.Forms.ListBox() Me.ToolStrip1 = New System.Windows.Forms.ToolStrip() Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel() + Me.GridControlUsers = New DevExpress.XtraGrid.GridControl() + Me.TBAD_UsersBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() + Me.GridViewUsers = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colSelect = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colUsername = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colPrename = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colSurname = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colEmail = New DevExpress.XtraGrid.Columns.GridColumn() Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.RBCheck1 = New System.Windows.Forms.RadioButton() Me.RBCheck2 = New System.Windows.Forms.RadioButton() - Me.clbUsers = New System.Windows.Forms.CheckedListBox() Me.ToolStrip2 = New System.Windows.Forms.ToolStrip() Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel() Me.tbSelectEverything = New System.Windows.Forms.ToolStripButton() @@ -44,6 +52,10 @@ Partial Class frmUserKonfig_AddUsers Me.SplitContainer1.Panel2.SuspendLayout() Me.SplitContainer1.SuspendLayout() Me.ToolStrip1.SuspendLayout() + CType(Me.GridControlUsers, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewUsers, System.ComponentModel.ISupportInitialize).BeginInit() Me.GroupBox1.SuspendLayout() Me.ToolStrip2.SuspendLayout() Me.SuspendLayout() @@ -51,75 +63,199 @@ Partial Class frmUserKonfig_AddUsers 'SplitContainer1 ' resources.ApplyResources(Me.SplitContainer1, "SplitContainer1") + Me.ToolTipController1.SetAllowHtmlText(Me.SplitContainer1, CType(resources.GetObject("SplitContainer1.AllowHtmlText"), DevExpress.Utils.DefaultBoolean)) Me.SplitContainer1.Name = "SplitContainer1" ' 'SplitContainer1.Panel1 ' + resources.ApplyResources(Me.SplitContainer1.Panel1, "SplitContainer1.Panel1") + Me.ToolTipController1.SetAllowHtmlText(Me.SplitContainer1.Panel1, CType(resources.GetObject("SplitContainer1.Panel1.AllowHtmlText"), DevExpress.Utils.DefaultBoolean)) Me.SplitContainer1.Panel1.Controls.Add(Me.lbGroups) Me.SplitContainer1.Panel1.Controls.Add(Me.ToolStrip1) + Me.ToolTipController1.SetTitle(Me.SplitContainer1.Panel1, resources.GetString("SplitContainer1.Panel1.Title")) + Me.ToolTipController1.SetToolTip(Me.SplitContainer1.Panel1, resources.GetString("SplitContainer1.Panel1.ToolTip")) + Me.ToolTipController1.SetToolTipIconType(Me.SplitContainer1.Panel1, CType(resources.GetObject("SplitContainer1.Panel1.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)) ' 'SplitContainer1.Panel2 ' + resources.ApplyResources(Me.SplitContainer1.Panel2, "SplitContainer1.Panel2") + Me.ToolTipController1.SetAllowHtmlText(Me.SplitContainer1.Panel2, CType(resources.GetObject("SplitContainer1.Panel2.AllowHtmlText"), DevExpress.Utils.DefaultBoolean)) + Me.SplitContainer1.Panel2.Controls.Add(Me.GridControlUsers) Me.SplitContainer1.Panel2.Controls.Add(Me.GroupBox1) - Me.SplitContainer1.Panel2.Controls.Add(Me.clbUsers) Me.SplitContainer1.Panel2.Controls.Add(Me.ToolStrip2) Me.SplitContainer1.Panel2.Controls.Add(Me.btnCancel) Me.SplitContainer1.Panel2.Controls.Add(Me.btnAddUsers) + Me.ToolTipController1.SetTitle(Me.SplitContainer1.Panel2, resources.GetString("SplitContainer1.Panel2.Title")) + Me.ToolTipController1.SetToolTip(Me.SplitContainer1.Panel2, resources.GetString("SplitContainer1.Panel2.ToolTip")) + Me.ToolTipController1.SetToolTipIconType(Me.SplitContainer1.Panel2, CType(resources.GetObject("SplitContainer1.Panel2.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)) + Me.ToolTipController1.SetTitle(Me.SplitContainer1, resources.GetString("SplitContainer1.Title")) + Me.ToolTipController1.SetToolTip(Me.SplitContainer1, resources.GetString("SplitContainer1.ToolTip")) + Me.ToolTipController1.SetToolTipIconType(Me.SplitContainer1, CType(resources.GetObject("SplitContainer1.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)) ' 'lbGroups ' - Me.lbGroups.BackColor = System.Drawing.SystemColors.GradientInactiveCaption resources.ApplyResources(Me.lbGroups, "lbGroups") + Me.ToolTipController1.SetAllowHtmlText(Me.lbGroups, CType(resources.GetObject("lbGroups.AllowHtmlText"), DevExpress.Utils.DefaultBoolean)) + Me.lbGroups.BackColor = System.Drawing.SystemColors.GradientInactiveCaption Me.lbGroups.FormattingEnabled = True Me.lbGroups.Name = "lbGroups" + Me.ToolTipController1.SetTitle(Me.lbGroups, resources.GetString("lbGroups.Title")) + Me.ToolTipController1.SetToolTip(Me.lbGroups, resources.GetString("lbGroups.ToolTip")) + Me.ToolTipController1.SetToolTipIconType(Me.lbGroups, CType(resources.GetObject("lbGroups.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)) ' 'ToolStrip1 ' + resources.ApplyResources(Me.ToolStrip1, "ToolStrip1") + Me.ToolTipController1.SetAllowHtmlText(Me.ToolStrip1, CType(resources.GetObject("ToolStrip1.AllowHtmlText"), DevExpress.Utils.DefaultBoolean)) Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel1}) - resources.ApplyResources(Me.ToolStrip1, "ToolStrip1") Me.ToolStrip1.Name = "ToolStrip1" + Me.ToolTipController1.SetTitle(Me.ToolStrip1, resources.GetString("ToolStrip1.Title")) + Me.ToolTipController1.SetToolTip(Me.ToolStrip1, resources.GetString("ToolStrip1.ToolTip")) + Me.ToolTipController1.SetToolTipIconType(Me.ToolStrip1, CType(resources.GetObject("ToolStrip1.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)) ' 'ToolStripLabel1 ' resources.ApplyResources(Me.ToolStripLabel1, "ToolStripLabel1") Me.ToolStripLabel1.Name = "ToolStripLabel1" ' + 'GridControlUsers + ' + resources.ApplyResources(Me.GridControlUsers, "GridControlUsers") + Me.GridControlUsers.DataSource = Me.TBAD_UsersBindingSource + Me.GridControlUsers.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlUsers.EmbeddedNavigator.AccessibleDescription") + Me.GridControlUsers.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlUsers.EmbeddedNavigator.AccessibleName") + Me.GridControlUsers.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlUsers.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean) + Me.GridControlUsers.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlUsers.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles) + Me.GridControlUsers.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlUsers.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image) + Me.GridControlUsers.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlUsers.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout) + Me.GridControlUsers.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlUsers.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode) + Me.GridControlUsers.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlUsers.EmbeddedNavigator.MaximumSize"), System.Drawing.Size) + Me.GridControlUsers.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlUsers.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation) + Me.GridControlUsers.EmbeddedNavigator.ToolTip = resources.GetString("GridControlUsers.EmbeddedNavigator.ToolTip") + Me.GridControlUsers.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlUsers.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType) + Me.GridControlUsers.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlUsers.EmbeddedNavigator.ToolTipTitle") + Me.GridControlUsers.MainView = Me.GridViewUsers + Me.GridControlUsers.Name = "GridControlUsers" + Me.GridControlUsers.ShowOnlyPredefinedDetails = True + Me.GridControlUsers.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUsers}) + ' + 'TBAD_UsersBindingSource + ' + Me.TBAD_UsersBindingSource.DataMember = "TBAD_Users" + Me.TBAD_UsersBindingSource.DataSource = Me.DD_ECMAdmin + ' + 'DD_ECMAdmin + ' + Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin" + Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'GridViewUsers + ' + Me.GridViewUsers.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewUsers.Appearance.EvenRow.BackColor"), System.Drawing.Color) + Me.GridViewUsers.Appearance.EvenRow.FontSizeDelta = CType(resources.GetObject("GridViewUsers.Appearance.EvenRow.FontSizeDelta"), Integer) + Me.GridViewUsers.Appearance.EvenRow.FontStyleDelta = CType(resources.GetObject("GridViewUsers.Appearance.EvenRow.FontStyleDelta"), System.Drawing.FontStyle) + Me.GridViewUsers.Appearance.EvenRow.GradientMode = CType(resources.GetObject("GridViewUsers.Appearance.EvenRow.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode) + Me.GridViewUsers.Appearance.EvenRow.Image = CType(resources.GetObject("GridViewUsers.Appearance.EvenRow.Image"), System.Drawing.Image) + Me.GridViewUsers.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewUsers.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridViewUsers.Appearance.FocusedRow.BackColor"), System.Drawing.Color) + Me.GridViewUsers.Appearance.FocusedRow.FontSizeDelta = CType(resources.GetObject("GridViewUsers.Appearance.FocusedRow.FontSizeDelta"), Integer) + Me.GridViewUsers.Appearance.FocusedRow.FontStyleDelta = CType(resources.GetObject("GridViewUsers.Appearance.FocusedRow.FontStyleDelta"), System.Drawing.FontStyle) + Me.GridViewUsers.Appearance.FocusedRow.GradientMode = CType(resources.GetObject("GridViewUsers.Appearance.FocusedRow.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode) + Me.GridViewUsers.Appearance.FocusedRow.Image = CType(resources.GetObject("GridViewUsers.Appearance.FocusedRow.Image"), System.Drawing.Image) + Me.GridViewUsers.Appearance.FocusedRow.Options.UseBackColor = True + resources.ApplyResources(Me.GridViewUsers, "GridViewUsers") + Me.GridViewUsers.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSelect, Me.colUsername, Me.colPrename, Me.colSurname, Me.colEmail}) + Me.GridViewUsers.GridControl = Me.GridControlUsers + Me.GridViewUsers.Name = "GridViewUsers" + Me.GridViewUsers.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewUsers.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewUsers.OptionsBehavior.CopyToClipboardWithColumnHeaders = False + Me.GridViewUsers.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewUsers.OptionsView.ColumnAutoWidth = False + Me.GridViewUsers.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewUsers.OptionsView.ShowAutoFilterRow = True + Me.GridViewUsers.OptionsView.ShowGroupPanel = False + ' + 'colSelect + ' + resources.ApplyResources(Me.colSelect, "colSelect") + Me.colSelect.FieldName = "Select" + Me.colSelect.Name = "colSelect" + Me.colSelect.Summary.AddRange(New DevExpress.XtraGrid.GridSummaryItem() {New DevExpress.XtraGrid.GridColumnSummaryItem()}) + ' + 'colUsername + ' + resources.ApplyResources(Me.colUsername, "colUsername") + Me.colUsername.FieldName = "Username" + Me.colUsername.Name = "colUsername" + Me.colUsername.OptionsColumn.AllowEdit = False + ' + 'colPrename + ' + resources.ApplyResources(Me.colPrename, "colPrename") + Me.colPrename.FieldName = "Prename" + Me.colPrename.Name = "colPrename" + Me.colPrename.OptionsColumn.AllowEdit = False + ' + 'colSurname + ' + resources.ApplyResources(Me.colSurname, "colSurname") + Me.colSurname.FieldName = "Surname" + Me.colSurname.Name = "colSurname" + Me.colSurname.OptionsColumn.AllowEdit = False + ' + 'colEmail + ' + resources.ApplyResources(Me.colEmail, "colEmail") + Me.colEmail.FieldName = "Email" + Me.colEmail.Name = "colEmail" + Me.colEmail.OptionsColumn.AllowEdit = False + ' 'GroupBox1 ' + resources.ApplyResources(Me.GroupBox1, "GroupBox1") + Me.ToolTipController1.SetAllowHtmlText(Me.GroupBox1, CType(resources.GetObject("GroupBox1.AllowHtmlText"), DevExpress.Utils.DefaultBoolean)) Me.GroupBox1.Controls.Add(Me.RBCheck1) Me.GroupBox1.Controls.Add(Me.RBCheck2) - resources.ApplyResources(Me.GroupBox1, "GroupBox1") Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.TabStop = False + Me.ToolTipController1.SetTitle(Me.GroupBox1, resources.GetString("GroupBox1.Title")) + Me.ToolTipController1.SetToolTip(Me.GroupBox1, resources.GetString("GroupBox1.ToolTip")) + Me.ToolTipController1.SetToolTipIconType(Me.GroupBox1, CType(resources.GetObject("GroupBox1.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)) ' 'RBCheck1 ' resources.ApplyResources(Me.RBCheck1, "RBCheck1") + Me.ToolTipController1.SetAllowHtmlText(Me.RBCheck1, CType(resources.GetObject("RBCheck1.AllowHtmlText"), DevExpress.Utils.DefaultBoolean)) Me.RBCheck1.Name = "RBCheck1" + Me.ToolTipController1.SetTitle(Me.RBCheck1, resources.GetString("RBCheck1.Title")) + Me.ToolTipController1.SetToolTip(Me.RBCheck1, resources.GetString("RBCheck1.ToolTip")) + Me.ToolTipController1.SetToolTipIconType(Me.RBCheck1, CType(resources.GetObject("RBCheck1.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)) Me.RBCheck1.UseVisualStyleBackColor = True ' 'RBCheck2 ' resources.ApplyResources(Me.RBCheck2, "RBCheck2") + Me.ToolTipController1.SetAllowHtmlText(Me.RBCheck2, CType(resources.GetObject("RBCheck2.AllowHtmlText"), DevExpress.Utils.DefaultBoolean)) Me.RBCheck2.Checked = True Me.RBCheck2.Name = "RBCheck2" Me.RBCheck2.TabStop = True + Me.ToolTipController1.SetTitle(Me.RBCheck2, resources.GetString("RBCheck2.Title")) + Me.ToolTipController1.SetToolTip(Me.RBCheck2, resources.GetString("RBCheck2.ToolTip")) + Me.ToolTipController1.SetToolTipIconType(Me.RBCheck2, CType(resources.GetObject("RBCheck2.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)) Me.RBCheck2.UseVisualStyleBackColor = True ' - 'clbUsers - ' - Me.clbUsers.BackColor = System.Drawing.SystemColors.GradientActiveCaption - resources.ApplyResources(Me.clbUsers, "clbUsers") - Me.clbUsers.FormattingEnabled = True - Me.clbUsers.Name = "clbUsers" - ' 'ToolStrip2 ' + resources.ApplyResources(Me.ToolStrip2, "ToolStrip2") + Me.ToolTipController1.SetAllowHtmlText(Me.ToolStrip2, CType(resources.GetObject("ToolStrip2.AllowHtmlText"), DevExpress.Utils.DefaultBoolean)) Me.ToolStrip2.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel2, Me.tbSelectEverything, Me.tbSelectNone}) - resources.ApplyResources(Me.ToolStrip2, "ToolStrip2") Me.ToolStrip2.Name = "ToolStrip2" + Me.ToolTipController1.SetTitle(Me.ToolStrip2, resources.GetString("ToolStrip2.Title")) + Me.ToolTipController1.SetToolTip(Me.ToolStrip2, resources.GetString("ToolStrip2.ToolTip")) + Me.ToolTipController1.SetToolTipIconType(Me.ToolStrip2, CType(resources.GetObject("ToolStrip2.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)) ' 'ToolStripLabel2 ' @@ -128,39 +264,51 @@ Partial Class frmUserKonfig_AddUsers ' 'tbSelectEverything ' + resources.ApplyResources(Me.tbSelectEverything, "tbSelectEverything") Me.tbSelectEverything.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text Me.tbSelectEverything.ForeColor = System.Drawing.Color.Firebrick - resources.ApplyResources(Me.tbSelectEverything, "tbSelectEverything") Me.tbSelectEverything.Name = "tbSelectEverything" ' 'tbSelectNone ' - Me.tbSelectNone.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text resources.ApplyResources(Me.tbSelectNone, "tbSelectNone") + Me.tbSelectNone.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Text Me.tbSelectNone.Name = "tbSelectNone" ' 'btnCancel ' - Me.btnCancel.Image = Global.DD_Record_Organiser.My.Resources.Resources.cancel1 resources.ApplyResources(Me.btnCancel, "btnCancel") + Me.ToolTipController1.SetAllowHtmlText(Me.btnCancel, CType(resources.GetObject("btnCancel.AllowHtmlText"), DevExpress.Utils.DefaultBoolean)) + Me.btnCancel.Image = Global.DD_Record_Organiser.My.Resources.Resources.cancel1 Me.btnCancel.Name = "btnCancel" + Me.ToolTipController1.SetTitle(Me.btnCancel, resources.GetString("btnCancel.Title")) + Me.ToolTipController1.SetToolTip(Me.btnCancel, resources.GetString("btnCancel.ToolTip")) + Me.ToolTipController1.SetToolTipIconType(Me.btnCancel, CType(resources.GetObject("btnCancel.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)) Me.btnCancel.UseVisualStyleBackColor = True ' 'btnAddUsers ' - Me.btnAddUsers.Image = Global.DD_Record_Organiser.My.Resources.Resources.add1 resources.ApplyResources(Me.btnAddUsers, "btnAddUsers") + Me.ToolTipController1.SetAllowHtmlText(Me.btnAddUsers, CType(resources.GetObject("btnAddUsers.AllowHtmlText"), DevExpress.Utils.DefaultBoolean)) + Me.btnAddUsers.Image = Global.DD_Record_Organiser.My.Resources.Resources.add1 Me.btnAddUsers.Name = "btnAddUsers" + Me.ToolTipController1.SetTitle(Me.btnAddUsers, resources.GetString("btnAddUsers.Title")) + Me.ToolTipController1.SetToolTip(Me.btnAddUsers, resources.GetString("btnAddUsers.ToolTip")) + Me.ToolTipController1.SetToolTipIconType(Me.btnAddUsers, CType(resources.GetObject("btnAddUsers.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)) Me.btnAddUsers.UseVisualStyleBackColor = True ' 'frmUserKonfig_AddUsers ' resources.ApplyResources(Me, "$this") + Me.ToolTipController1.SetAllowHtmlText(Me, CType(resources.GetObject("$this.AllowHtmlText"), DevExpress.Utils.DefaultBoolean)) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.Controls.Add(Me.SplitContainer1) Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "frmUserKonfig_AddUsers" + Me.ToolTipController1.SetTitle(Me, resources.GetString("$this.Title")) + Me.ToolTipController1.SetToolTip(Me, resources.GetString("$this.ToolTip")) + Me.ToolTipController1.SetToolTipIconType(Me, CType(resources.GetObject("$this.ToolTipIconType"), DevExpress.Utils.ToolTipIconType)) Me.SplitContainer1.Panel1.ResumeLayout(False) Me.SplitContainer1.Panel1.PerformLayout() Me.SplitContainer1.Panel2.ResumeLayout(False) @@ -169,6 +317,10 @@ Partial Class frmUserKonfig_AddUsers Me.SplitContainer1.ResumeLayout(False) Me.ToolStrip1.ResumeLayout(False) Me.ToolStrip1.PerformLayout() + CType(Me.GridControlUsers, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewUsers, System.ComponentModel.ISupportInitialize).EndInit() Me.GroupBox1.ResumeLayout(False) Me.GroupBox1.PerformLayout() Me.ToolStrip2.ResumeLayout(False) @@ -185,10 +337,18 @@ Partial Class frmUserKonfig_AddUsers Friend WithEvents ToolStrip2 As System.Windows.Forms.ToolStrip Friend WithEvents tbSelectEverything As System.Windows.Forms.ToolStripButton Friend WithEvents tbSelectNone As System.Windows.Forms.ToolStripButton - Friend WithEvents clbUsers As System.Windows.Forms.CheckedListBox Friend WithEvents ToolStripLabel2 As System.Windows.Forms.ToolStripLabel Friend WithEvents ToolTipController1 As DevExpress.Utils.ToolTipController Friend WithEvents RBCheck2 As System.Windows.Forms.RadioButton Friend WithEvents RBCheck1 As System.Windows.Forms.RadioButton Friend WithEvents GroupBox1 As System.Windows.Forms.GroupBox + Friend WithEvents GridControlUsers As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewUsers As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents TBAD_UsersBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin + Friend WithEvents colSelect As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colUsername As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colPrename As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colSurname As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colEmail As DevExpress.XtraGrid.Columns.GridColumn End Class diff --git a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.en-US.resx b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.en-US.resx index 3f397ce..f06f6ea 100644 --- a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.en-US.resx +++ b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.en-US.resx @@ -117,6 +117,29 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Default + + + Default + + + Default + + + + + + + + + + None + + + Default + 103, 22 @@ -124,6 +147,132 @@ Available Groups: + + + + + + + + None + + + + + + + + + None + + + Default + + + + + + + + + + Default + + + Top, Left + + + + + + Tile + + + Inherit + + + 0, 0 + + + + Center + + + + + + None + + + + + + + 0 + + + Regular + + + Horizontal + + + + + + 0 + + + Regular + + + Horizontal + + + + + + Selection + + + Default + + + Default + + + + + + + + + None + + + Default + + + + + + + + + None + + + + + + + + + None + + + Default + 94, 22 @@ -172,19 +321,72 @@ Select none - + + + + + + + + None + + + Default + NoControl Cancel + + + + + + + + None + + + Default + NoControl Add User + + + + + + + + None + + + + + + + + + None + + + + + + + + + None + + + Default + AAABAAYAMDAAAAEACACoDgAAZgAAACAgAAABAAgAqAgAAA4PAAAQEAAAAQAIAGgFAAC2FwAAMDAAAAEA @@ -564,7 +766,13 @@ L/8AADf/AABG/wAATf8AAEn/AABa/wAA6P8AAP//AAD4/wAAzv8AAav/AAOs/w== - - NoControl + + + + + + + + None \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.resx b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.resx index 4842f22..cc8160a 100644 --- a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.resx +++ b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.resx @@ -117,383 +117,152 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Fill + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - 0, 0 + + - - Fill + + + 297, 529 - - 0, 25 + + + Default - - 263, 432 + + + Center - - 2 - - - lbGroups - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel1 - - + 0 - - 17, 17 - - - Segoe UI, 9pt, style=Bold - - - 125, 22 - - - Verfügbare Gruppen: + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 0, 0 + + Basic Method - - 263, 25 + + Default - - 1 + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - ToolStrip1 + + Cyan - - ToolStrip1 + + True System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - SplitContainer1.Panel1 - - - 1 - - - SplitContainer1.Panel1 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1 - - - 0 - - - True + + 18, 21 - - 95, 17 - - - 7 - - - Basic Method + + SplitContainer1.Panel2 - - RBCheck1 + + System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 3 - - GroupBox1 + + + - - 0 + + SplitContainer1.Panel2 - + True - - NoControl - - - 18, 44 - - - 137, 17 - - - 8 - - - UserPrincipal-Method - - - RBCheck2 - - - System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 1 - - - 3, 378 - - - 185, 70 - - - 9 - - - AD-Methodik - - - GroupBox1 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 + + GridViewUsers - + 0 - - Top - - - 0, 25 - - - 409, 344 - - - 6 - - - clbUsers - - - System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + - - SplitContainer1.Panel2 - - - 1 + + RBCheck1 - - 124, 17 - - - Segoe UI, 9pt, style=Bold + + - - 128, 22 + + 854, 595 - - Verfügbare Benutzer: + + SplitContainer1.Panel1 - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG - YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 - 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw - bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc - VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 - c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 - Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo - mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ - kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D - TgDQASA1MVpwzwAAAABJRU5ErkJggg== - + + ToolStripLabel2 - - Magenta + + - - 90, 22 + + 545, 25 - - Alle auswählen + + 0, 0 - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAAIDSURBVDhPpZLrS5NhGMb3j4SWh0oRQVExD4gonkDpg4hG - YKxG6WBogkMZKgPNCEVJFBGdGETEvgwyO9DJE5syZw3PIlPEE9pgBCLZ5XvdMB8Ew8gXbl54nuf63dd9 - 0OGSnwCahxbPRNPAPMw9Xpg6ZmF46kZZ0xSKzJPIrhpDWsVnpBhGkKx3nAX8Pv7z1zg8OoY/cITdn4fw - bf/C0kYAN3Ma/w3gWfZL5kzTKBxjWyK2DftwI9tyMYCZKXbNHaD91bLYJrDXsYbrWfUKwJrPE9M2M1Oc - VzOOpHI7Jr376Hi9ogHqFIANO0/MmmmbmSmm9a8ze+I4MrNWAdjtoJgWcx+PSzg166yZZ8xM8XvXDix9 - c4jIqFYAjoriBV9AhEPv1mH/sonogha0afbZMMZz+yreTGyhpusHwtNNCsA5U1zS4BLxzJIfg299qO32 - Ir7UJtZfftyATqeT+8o2D8JSjQrAJblrncYL7ZJ2+bfaFnC/1S1NjL3diRat7qrO7wLRP3HjWsojBeCo - mDEo5mNjuweFGvjWg2EBhCbpkW78htSHHwRyNdmgAFzPEee2iFkzayy2OLXzT4gr6UdUnlXrullsxxQ+ - kx0g8BTA3aZlButjSTyjODq/WcQcW/B/Je4OQhLvKQDnzN1mp0nnkvAhR8VuMzNrpm1mpjgkoVwB/v8D - TgDQASA1MVpwzwAAAABJRU5ErkJggg== - + + 1 Magenta - - 104, 22 - - - Nichts auswählen - - - 0, 0 - - - 409, 25 - - - 5 - - - ToolStrip2 - - - ToolStrip2 - - - System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 2 + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - MiddleLeft + + Segoe UI, 8.25pt - - 297, 422 + + Add User from AD - - 100, 26 + + 90, 22 - - 4 + + ToolStrip1 - - Abbrechen + + True - - MiddleRight + + ToolStrip1 - - btnCancel + + + None - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True - - SplitContainer1.Panel2 + + 9 - - 3 + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - MiddleLeft + + 18, 44 - - 297, 389 - - - 100, 27 - - - 3 - - - Hinzufügen - - - MiddleRight - - - btnAddUsers - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel2 - - - 4 - - - SplitContainer1.Panel2 - - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1 - - - 1 - - - 676, 457 - - - 263 - - - 1 - - - SplitContainer1 - - - System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 0 - - - 231, 17 - - - True - - - 6, 13 - - - 676, 457 - - - Segoe UI, 8.25pt + + 6, 13 @@ -874,43 +643,589 @@ L/8AADf/AABG/wAATf8AAEn/AABa/wAA6P8AAP//AAD4/wAAzv8AAav/AAOs/w== - - Add User from AD + + Bottom, Left - - ToolStripLabel1 + + 4 - - System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Regular - - ToolStripLabel2 + + + + + UserPrincipal-Method + + + + + + 86 + + + Fill + + + + + + Horizontal + + + Default + + + True + + + None + + + 8 + + + None System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 305, 25 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Segoe UI, 9pt, style=Bold + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + + SplitContainer1.Panel1 + tbSelectEverything + + System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + + Fill + + + + + + 137, 17 + + + 0, 0 + + + 0, 0 + + + GroupBox1 + + + Inherit + + + btnCancel + + + colSelect + + + 4 + + + GridControlUsers + + + + + + frmUserKonfig_AddUsers + + + $this + + + + + + DD_Record_Organiser.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + MiddleLeft + + + Top, Bottom, Left, Right + + + 95, 17 + + + System.Windows.Forms.SplitContainer, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 1 + + + SplitContainer1 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAgNJREFUOE+lkutLk2EYxvePhJaHShFBUTEPiCieQOmDiEZgrEbpYGiCQxkqA80I + RUkUEZ0YRMS+DDI70MkTmzJnDc8iU8QT2mAEItnle90wHwTDyBduXnie5/rd133Q4ZKfAJqHFs9E08A8 + zD1emDpmYXjqRlnTFIrMk8iuGkNaxWekGEaQrHecBfw+/vPXODw6hj9whN2fh/Bt/8LSRgA3cxr/DeBZ + 9kvmTNMoHGNbIrYN+3Aj23IxgJkpds0doP3VstgmsNexhutZ9QrAms8T0zYzU5xXM46kcjsmvfvoeL2i + AeoUgA07T8yaaZuZKab1rzN74jgys1YB2O2gmBZzH49LODXrrJlnzEzxe9cOLH1ziMioVgCOiuIFX0CE + Q+/WYf+yieiCFrRp9tkwxnP7Kt5MbKGm6wfC000KwDlTXNLgEvHMkh+Db32o7fYivtQm1l9+3IBOp5P7 + yjYPwlKNCsAluWudxgvtknb5t9oWcL/VLU2Mvd2JFq3uqs7vAtE/ceNayiMF4KiYMSjmY2O7B4Ua+NaD + YQGEJumRbvyG1IcfBHI12aAAXM8R57aIWTNrLLY4tfNPiCvpR1SeVeu6WWzHFD6THSDwFMDdpmUG62NJ + PKM4Or9ZxBxb8H8l7g5CEu8pAOfM3WanSeeS8CFHxW4zM2umbWamOCShXAH+/wNOANABIDUxWnDPAAAA + AElFTkSuQmCC + + + + True + + + Default + + + Default + + + Tile + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - tbSelectNone + + 0 - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + None + + + 0 + + + lbGroups + + + 3 + + + Magenta + + + MiddleRight + + + + + + SplitContainer1 + + + colPrename + + + 2 + + + None + + + 7 + + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Fuchsia + + + SplitContainer1.Panel2 + + + + + + colEmail + + + 0 + + + 128, 22 ToolTipController1 + + + + + 1 + + + SplitContainer1 + + + None + + + None + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAgNJREFUOE+lkutLk2EYxvePhJaHShFBUTEPiCieQOmDiEZgrEbpYGiCQxkqA80I + RUkUEZ0YRMS+DDI70MkTmzJnDc8iU8QT2mAEItnle90wHwTDyBduXnie5/rd133Q4ZKfAJqHFs9E08A8 + zD1emDpmYXjqRlnTFIrMk8iuGkNaxWekGEaQrHecBfw+/vPXODw6hj9whN2fh/Bt/8LSRgA3cxr/DeBZ + 9kvmTNMoHGNbIrYN+3Aj23IxgJkpds0doP3VstgmsNexhutZ9QrAms8T0zYzU5xXM46kcjsmvfvoeL2i + AeoUgA07T8yaaZuZKab1rzN74jgys1YB2O2gmBZzH49LODXrrJlnzEzxe9cOLH1ziMioVgCOiuIFX0CE + Q+/WYf+yieiCFrRp9tkwxnP7Kt5MbKGm6wfC000KwDlTXNLgEvHMkh+Db32o7fYivtQm1l9+3IBOp5P7 + yjYPwlKNCsAluWudxgvtknb5t9oWcL/VLU2Mvd2JFq3uqs7vAtE/ceNayiMF4KiYMSjmY2O7B4Ua+NaD + YQGEJumRbvyG1IcfBHI12aAAXM8R57aIWTNrLLY4tfNPiCvpR1SeVeu6WWzHFD6THSDwFMDdpmUG62NJ + PKM4Or9ZxBxb8H8l7g5CEu8pAOfM3WanSeeS8CFHxW4zM2umbWamOCShXAH+/wNOANABIDUxWnDPAAAA + AElFTkSuQmCC + + DevExpress.Utils.ToolTipController, DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - frmUserKonfig_AddUsers + + colUsername + + + Top, Left + + + 0 + + + 0 + + + 305 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + + + + GroupBox1 + + + True + + + 4 + + + Segoe UI, 9pt, style=Bold + + + Alle auswählen + + + 5 + + + RBCheck2 + + + 1 + + + None + + + SplitContainer1.Panel2 + + + 0, 25 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + True + + + MiddleRight + + + Verfügbare Benutzer: + + + Default + + + 1 + + + btnAddUsers + + + Abbrechen + + + NoControl + + + Default + + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 104, 22 + + + TBAD_UsersBindingSource + + + + + + Horizontal + + + Verfügbare Gruppen: + + + + + + Nichts auswählen + + + 100, 26 + + + + + + + + + None + + + 3, 518 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 1 + + + + + + MiddleLeft + + + 3 + + + 305, 570 + + + 0, 25 + + + + + + Bottom, Left + + + GroupBox1 + + + 0 + + + Regular + + + Hinzufügen + + + Default + + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + colSurname + + + None + + + ToolStrip2 + + + + + + 545, 485 + + + DD_ECMAdmin + + + Auswahl + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 2 + + + SplitContainer1.Panel1 + + + Default + + + 854, 595 + + + 125, 22 + + + SplitContainer1.Panel2 + + + 185, 70 + + + None + + + Default + + + Default + + + 2 + + + 1 + + + + + + None + + + 297, 562 + + + SplitContainer1.Panel2 + + + 100, 27 + + + None + + + Default + + + + + + + + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ToolStripLabel1 + + + + + + Bottom, Left + + + tbSelectNone + + + AD-Methodik + + + Default + + + ToolStrip2 + + + 0, 0 + + + + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + 17, 17 + + + True + + + en-US + + + 124, 17 + + + 231, 17 + + + 519, 17 + + + 384, 17 + \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb index 904e340..6c1db77 100644 --- a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb +++ b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb @@ -1,19 +1,41 @@ Imports System.DirectoryServices Imports System.DirectoryServices.ActiveDirectory Imports System.DirectoryServices.AccountManagement +Imports System.IO Public Class frmUserKonfig_AddUsers + Private Sub frmUserKonfig_AddUsers_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing + Try + Dim Filename As String = String.Format("{0}-UserLayout.xml", GridViewUsers.Name) + Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), Filename) + GridViewUsers.SaveLayoutToXml(XMLPath) + Catch ex As Exception + MsgBox("Error in SaveGrid_Layout:" & vbNewLine & ex.Message) + End Try + + End Sub + Private Sub formUserConfig_AddUsers_Load(sender As Object, e As EventArgs) Handles MyBase.Load Try Cursor = Cursors.WaitCursor GetGroups(Environment.UserName) - Catch ex As Exception MsgBox("Error in Load Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try + Try + Dim Filename As String = String.Format("{0}-UserLayout.xml", GridViewUsers.Name) + Dim XMLPath = System.IO.Path.Combine(Application.UserAppDataPath(), Filename) + If File.Exists(XMLPath) Then + GridViewUsers.RestoreLayoutFromXml(XMLPath) + 'grvwGrid.ClearGrouping() + GridViewUsers.ClearSelection() + End If + Catch ex As Exception + MsgBox("Error in Load Grid_Layout:" & vbNewLine & ex.Message) + End Try Cursor = Cursors.Default - + End Sub Function GetActiveDirectoryGroups() As List(Of String) @@ -60,41 +82,72 @@ Public Class frmUserKonfig_AddUsers Private Sub lbGroups_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbGroups.SelectedIndexChanged Dim group As String = lbGroups.SelectedItem Dim users As List(Of UserPrincipal) = GetUsersForGroup(group) - - clbUsers.Items.Clear() + DD_ECMAdmin.TBAD_Users.Clear() For Each user In users - clbUsers.Items.Add(user) + Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow + newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow + newUserRow.Username = user.ToString + Try + Dim userldap As UserPrincipal = user + Dim PRENAME As String = userldap.GivenName + Dim NAME As String = userldap.Surname + Dim USERNAME As String = userldap.SamAccountName + Dim email As String = userldap.EmailAddress + newUserRow.Prename = PRENAME + newUserRow.Surname = NAME + newUserRow.Email = email + Catch ex As Exception + + End Try + DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow) Next End Sub Private Sub btnAddUsers_Click(sender As Object, e As EventArgs) Handles btnAddUsers.Click - Dim items As CheckedListBox.CheckedItemCollection = clbUsers.CheckedItems + 'Dim items As CheckedListBox.CheckedItemCollection = clbUsers.CheckedItems Dim usersAdded As Integer = 0 - If items.Count = 0 Then - MsgBox("Keine Benutzer ausgewählt!", MsgBoxStyle.Information) - Exit Sub - End If + 'If items.Count = 0 Then + ' MsgBox("Keine Benutzer ausgewählt!", MsgBoxStyle.Information) + ' Exit Sub + 'End If - For Each item As UserPrincipal In items - Dim user As UserPrincipal = item - Dim PRENAME As String = user.GivenName - Dim NAME As String = user.Surname - Dim USERNAME As String = user.SamAccountName - Dim email As String = user.EmailAddress - Dim SQL - If Not UserExists(USERNAME) Then - SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, MODULE_RECORD_ORG,LANGUAGE) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "'," & 1 & ",'" & USER_LANGUAGE & "')" - If ClassDatabase.Execute_non_Query(SQL) = True Then - usersAdded = usersAdded + 1 - End If - Else - SQL = "UPDATE TBDD_USER SET MODULE_RECORD_ORG = 1 WHERE UPPER(USERNAME) = UPPER('" & USERNAME & "')" - If ClassDatabase.Execute_non_Query(SQL) = True Then - usersAdded = usersAdded + 1 + For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows + If row.Item(0) = CBool(True) Then + Dim USERNAME As String = row.Item(1) + + Dim PRENAME As String = row.Item(2) + Dim NAME As String = row.Item(3) + Dim email As String + Try + email = row.Item(4) + Catch ex As Exception + email = "" + End Try + Dim SQL + If Not UserExists(USERNAME) Then + SQL = "INSERT INTO TBDD_USER(PRENAME, NAME, USERNAME, EMAIL, MODULE_RECORD_ORG,LANGUAGE) VALUES('" & PRENAME & "', '" & NAME & "', '" & USERNAME & "','" & email & "'," & 1 & ",'" & USER_LANGUAGE & "')" + If ClassDatabase.Execute_non_Query(SQL) = True Then + usersAdded = usersAdded + 1 + End If + Else + SQL = "UPDATE TBDD_USER SET MODULE_RECORD_ORG = 1 WHERE UPPER(USERNAME) = UPPER('" & USERNAME & "')" + If ClassDatabase.Execute_non_Query(SQL) = True Then + usersAdded = usersAdded + 1 + End If End If End If + Next + 'For Each item As UserPrincipal In items + ' Dim user As UserPrincipal = item + ' Dim PRENAME As String = user.GivenName + ' Dim NAME As String = user.Surname + ' Dim USERNAME As String = user.SamAccountName + ' Dim email As String = user.EmailAddress + ' Dim SQL + + 'Next If usersAdded = 1 Then MsgBox(usersAdded & " neuer Benutzer hinzugefügt", MsgBoxStyle.Information) @@ -123,27 +176,29 @@ Public Class frmUserKonfig_AddUsers End Sub Private Sub tbSelectEverything_Click(sender As Object, e As EventArgs) Handles tbSelectEverything.Click - For i = 0 To clbUsers.Items.Count - 1 - clbUsers.SetItemChecked(i, True) + For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows + row.Item(0) = CBool(True) Next + + End Sub Private Sub tbSelectNone_Click(sender As Object, e As EventArgs) Handles tbSelectNone.Click - For i = 0 To clbUsers.Items.Count - 1 - clbUsers.SetItemChecked(i, False) + For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows + row.Item(0) = CBool(False) Next End Sub - Private Sub clbUsers_SelectedIndexChanged(sender As Object, e As EventArgs) Handles clbUsers.SelectedIndexChanged - ToolTipController1.HideHint() - Dim userstring As String = clbUsers.SelectedItem.ToString - Dim userldap As UserPrincipal = clbUsers.SelectedItem - Dim PRENAME As String = userldap.GivenName - Dim NAME As String = userldap.Surname - Dim USERNAME As String = userldap.SamAccountName - Dim email As String = userldap.EmailAddress - ToolTipController1.ShowHint("Used ldap paramters:", userstring & USERNAME & vbNewLine & email, DevExpress.Utils.ToolTipLocation.RightCenter) - End Sub + 'Private Sub clbUsers_SelectedIndexChanged(sender As Object, e As EventArgs) + ' ToolTipController1.HideHint() + ' Dim userstring As String = clbUsers.SelectedItem.ToString + ' Dim userldap As UserPrincipal = clbUsers.SelectedItem + ' Dim PRENAME As String = userldap.GivenName + ' Dim NAME As String = userldap.Surname + ' Dim USERNAME As String = userldap.SamAccountName + ' Dim email As String = userldap.EmailAddress + ' ToolTipController1.ShowHint("Used ldap paramters:", userstring & USERNAME & vbNewLine & email, DevExpress.Utils.ToolTipLocation.RightCenter) + 'End Sub Private Sub RBCheck2_CheckedChanged(sender As Object, e As EventArgs) Handles RBCheck2.CheckedChanged If RBCheck2.Checked Then diff --git a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.Designer.vb b/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.Designer.vb index 0dec952..b05b265 100644 --- a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.Designer.vb +++ b/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.Designer.vb @@ -43,7 +43,8 @@ Partial Class frmWD_Dokumentart_Konfig Dim CHANGED_WHENLabel As System.Windows.Forms.Label Dim OBJEKTTYPLabel As System.Windows.Forms.Label Dim SQL_RESULTLabel As System.Windows.Forms.Label - Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() Me.TBDD_DOKUMENTARTBindingNavigator = New System.Windows.Forms.BindingNavigator(Me.components) Me.BindingNavigatorAddNewItem = New System.Windows.Forms.ToolStripButton() Me.TBDD_DOKUMENTARTBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -633,7 +634,6 @@ Partial Class frmWD_Dokumentart_Konfig Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILE_IDXTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete @@ -902,13 +902,21 @@ Partial Class frmWD_Dokumentart_Konfig ' Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AllowUserToAddRows = False Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AllowUserToDeleteRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua - Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + DataGridViewCellStyle4.BackColor = System.Drawing.Color.Aqua + Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 resources.ApplyResources(Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView, "TBPMO_WD_FORMVIEW_DOKTYPESDataGridView") Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AutoGenerateColumns = False Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn7, Me.DataGridViewTextBoxColumn8, Me.DataGridViewTextBoxColumn9}) Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.DataSource = Me.TBPMO_WD_FORMVIEW_DOKTYPESBindingSource + DataGridViewCellStyle5.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft + DataGridViewCellStyle5.BackColor = System.Drawing.SystemColors.Window + DataGridViewCellStyle5.Font = New System.Drawing.Font("Tahoma", 8.25!) + DataGridViewCellStyle5.ForeColor = System.Drawing.Color.FromArgb(CType(CType(32, Byte), Integer), CType(CType(31, Byte), Integer), CType(CType(53, Byte), Integer)) + DataGridViewCellStyle5.SelectionBackColor = System.Drawing.SystemColors.Highlight + DataGridViewCellStyle5.SelectionForeColor = System.Drawing.SystemColors.HighlightText + DataGridViewCellStyle5.WrapMode = System.Windows.Forms.DataGridViewTriState.[False] + Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.DefaultCellStyle = DataGridViewCellStyle5 Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.Name = "TBPMO_WD_FORMVIEW_DOKTYPESDataGridView" Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.ReadOnly = True ' diff --git a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx b/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx index dc4dd0f..4347e59 100644 --- a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx +++ b/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx @@ -934,6 +934,256 @@ 28 + + 17, 17 + + + GridControl1 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GroupBox1 + + + 0 + + + Button1 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 1 + + + Label4 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 2 + + + ListBox3 + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 3 + + + lblSaveDokart + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 4 + + + btnNamenkonvention + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 5 + + + OBJEKTTYPComboBox + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 6 + + + btnZielpfad + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 8 + + + GUIDTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 10 + + + BEZEICHNUNGTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 12 + + + KURZNAMETextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 14 + + + ZIEL_PFADTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 16 + + + BESCHREIBUNGTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 18 + + + AKTIVCheckBox + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 19 + + + ERSTELLTWERTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 21 + + + ERSTELLTWANNTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 23 + + + GEANDERTWERTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 25 + + + GEAENDERTWANNTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 27 + + + + Top + + + Segoe UI, 9pt, style=Bold + + + 0, 0 + + + 1312, 314 + + + 1 + + + Dokumentarten + + + GroupBox1 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 2 + 3, 59 @@ -973,7 +1223,6 @@ 0 - Top, Right @@ -1031,12 +1280,12 @@ 2 - - Top, Right - 339, 95 + + Top, Right + Segoe UI, 9pt, style=Italic @@ -1064,6 +1313,9 @@ 3 + + 339, 95 + True @@ -1424,36 +1676,6 @@ 27 - - Top - - - Segoe UI, 9pt, style=Bold - - - 0, 0 - - - 1312, 314 - - - 1 - - - Dokumentarten - - - GroupBox1 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 2 - 160, 17 @@ -1478,12 +1700,6 @@ 403, 56 - - 121, 17 - - - ToolStripStatusLabel1 - 0, 581 @@ -1508,6 +1724,12 @@ 1 + + 121, 17 + + + ToolStripStatusLabel1 + Top, Bottom, Left, Right @@ -2050,9 +2272,114 @@ 2 + + 786, 56 + True + + Label3 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 0 + + + TBPMO_WD_FORMVIEW_DOKTYPESDataGridView + + + System.Windows.Forms.DataGridView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 1 + + + Label1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 2 + + + btnAddDokart_Entity + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 3 + + + cmbEntity_Doctype + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 4 + + + BindingNavigator1 + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 5 + + + 1261, 249 + + + Zurodnung Dokumentart - Entität + + + XtraTabPage2 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl1 + + + 1 + + + XtraTabControl1 + + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 0 + True @@ -2212,6 +2539,9 @@ 4 + + 940, 56 + 786, 56 @@ -2371,7 +2701,7 @@ 0, 0 - 1265, 25 + 1261, 25 2 @@ -2391,36 +2721,6 @@ 5 - - 1265, 252 - - - Zurodnung Dokumentart - Entität - - - XtraTabPage2 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl1 - - - 1 - - - XtraTabControl1 - - - DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - $this - - - 0 - 1184, 56 diff --git a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.vb b/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.vb index e93e96e..bc46b9a 100644 --- a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.vb +++ b/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.vb @@ -85,11 +85,11 @@ Sub Refresh_Dokart(All As Boolean) Try If All = False Then - If LogErrorsOnly = False Then ClassLogger.Add(">> Dokumentarten für RecordOrganizer werden geladen", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Dokumentarten für RecordOrganizer werden geladen", False) Me.TBDD_DOKUMENTARTTableAdapter.FillByPMO(Me.DD_DMSDataSet.TBDD_DOKUMENTART, USER_LANGUAGE) - If LogErrorsOnly = False Then ClassLogger.Add(">> Anzahl Dokumentarten: " & DD_DMSDataSet.TBDD_DOKUMENTART.Rows.Count, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl Dokumentarten: " & DD_DMSDataSet.TBDD_DOKUMENTART.Rows.Count, False) Else - If LogErrorsOnly = False Then ClassLogger.Add(">> Alle Dokumentarten werden geladen", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Alle Dokumentarten werden geladen", False) Me.TBDD_DOKUMENTARTTableAdapter.Fill(Me.DD_DMSDataSet.TBDD_DOKUMENTART, USER_LANGUAGE) End If diff --git a/app/DD-Record-Organiser/frmWD_EntityImport.vb b/app/DD-Record-Organiser/frmWD_EntityImport.vb index 34097ab..6e00713 100644 --- a/app/DD-Record-Organiser/frmWD_EntityImport.vb +++ b/app/DD-Record-Organiser/frmWD_EntityImport.vb @@ -152,28 +152,28 @@ Public Class frmWD_EntityImport If dt.Rows.Count = 1 Then Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString Dim idxvalue = CURRENT_FORM_ID - If LogErrorsOnly = False Then ClassLogger.Add(" - Entity-ID: " & idxvalue.ToString, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Entity-ID: " & idxvalue.ToString, False) indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) - If indexierung_erfolgreich = False Then - MsgBox("Error in indexing file Entity - See log", MsgBoxStyle.Critical) - End If - indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString + If indexierung_erfolgreich = False Then + MsgBox("Error in indexing file Entity - See log", MsgBoxStyle.Critical) + End If + indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString idxvalue = CURRENT_PARENT_ID - If LogErrorsOnly = False Then ClassLogger.Add(" - Parent-ID: " & idxvalue.ToString, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-ID: " & idxvalue.ToString, False) indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) If indexierung_erfolgreich = False Then MsgBox("Error in indexing file Parent-ID - See log", MsgBoxStyle.Critical) '### 'den Record-Key auslesen indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString idxvalue = CURRENT_RECORD_ID - If LogErrorsOnly = False Then ClassLogger.Add(" - Record-ID: " & idxvalue.ToString, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Record-ID: " & idxvalue.ToString, False) indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) If indexierung_erfolgreich = False Then MsgBox("Unexpected Error in indexing file Record-ID - See log", MsgBoxStyle.Critical) 'den Doctype-Key auslesen indexname = dt.Rows(0).Item("IDXNAME_DOCTYPE").ToString idxvalue = CURRENT_DOKARTSTRING - If LogErrorsOnly = False Then ClassLogger.Add(" - Doctype: " & idxvalue.ToString, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Doctype: " & idxvalue.ToString, False) indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) If indexierung_erfolgreich = False Then MsgBox("Unexpected Error in indexing file Doctype - See log", MsgBoxStyle.Critical) '#### diff --git a/app/DD-Record-Organiser/frmWD_Index_Dokart.Designer.vb b/app/DD-Record-Organiser/frmWD_Index_Dokart.Designer.vb index f2912fc..46c09f7 100644 --- a/app/DD-Record-Organiser/frmWD_Index_Dokart.Designer.vb +++ b/app/DD-Record-Organiser/frmWD_Index_Dokart.Designer.vb @@ -161,7 +161,7 @@ Partial Class frmWD_Index_Dokart Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_IMPORT_PROFILETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete diff --git a/app/DD-Record-Organiser/frmWD_Index_Dokart.vb b/app/DD-Record-Organiser/frmWD_Index_Dokart.vb index dff1a37..482811c 100644 --- a/app/DD-Record-Organiser/frmWD_Index_Dokart.vb +++ b/app/DD-Record-Organiser/frmWD_Index_Dokart.vb @@ -42,7 +42,7 @@ Public Class frmWD_Index_Dokart idxvalue = idxvalue.ToString.Replace("@Dokart", vDokart) End Select End If - If LogErrorsOnly = False Then ClassLogger.Add(" - Indexvalue: " & idxvalue.ToString, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Indexvalue: " & idxvalue.ToString, False) Count += 1 indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) If indexierung_erfolgreich = False Then @@ -63,7 +63,7 @@ Public Class frmWD_Index_Dokart 'den Entity-Key auslesen Dim indexname = dt.Rows(0).Item("IDXNAME_ENTITYID").ToString Dim idxvalue = CURRENT_FORM_ID - If LogErrorsOnly = False Then ClassLogger.Add(" - Entity-ID: " & idxvalue.ToString, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Entity-ID: " & idxvalue.ToString, False) indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) If indexierung_erfolgreich = False Then err = True @@ -73,7 +73,7 @@ Public Class frmWD_Index_Dokart 'den Parent-Key auslesen indexname = dt.Rows(0).Item("IDXNAME_PARENTID").ToString idxvalue = CURRENT_PARENT_ID - If LogErrorsOnly = False Then ClassLogger.Add(" - Parent-ID: " & idxvalue.ToString, False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Parent-ID: " & idxvalue.ToString, False) indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) If indexierung_erfolgreich = False Then err = True @@ -83,7 +83,7 @@ Public Class frmWD_Index_Dokart ''den Record-Key auslesen 'indexname = dt.Rows(0).Item("IDXNAME_RECORDID").ToString 'idxvalue = CURRENT_RECORD_ID - 'If LogErrorsOnly = False Then ClassLogger.Add(" - Record-ID: " & idxvalue.ToString, False) + 'If LogErrorsOnly = False Then ClassLogger.Add(" >> Record-ID: " & idxvalue.ToString, False) 'indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) 'If indexierung_erfolgreich = False Then ' err = True @@ -93,7 +93,7 @@ Public Class frmWD_Index_Dokart ''den Doctype-Key auslesen 'indexname = dt.Rows(0).Item("IDXNAME_DOCTYPE").ToString 'idxvalue = CURRENT_DOKARTSTRING - 'If LogErrorsOnly = False Then ClassLogger.Add(" - Doctype: " & idxvalue.ToString, False) + 'If LogErrorsOnly = False Then ClassLogger.Add(" >> Doctype: " & idxvalue.ToString, False) 'indexierung_erfolgreich = ClassWindream.DateiIndexieren(CURRENT_FILEIN_WD, indexname, idxvalue) 'If indexierung_erfolgreich = False Then ' err = True diff --git a/app/DD-Record-Organiser/frmWD_ObjecttypeConfig.Designer.vb b/app/DD-Record-Organiser/frmWD_ObjecttypeConfig.Designer.vb index 6d934c3..ffee706 100644 --- a/app/DD-Record-Organiser/frmWD_ObjecttypeConfig.Designer.vb +++ b/app/DD-Record-Organiser/frmWD_ObjecttypeConfig.Designer.vb @@ -179,7 +179,7 @@ Partial Class frmWD_ObjecttypeConfig Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Me.TBPMO_WD_OBJECTTYPETableAdapter - Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete diff --git a/app/DD-Record-Organiser/frmWiedervorlage.Designer.vb b/app/DD-Record-Organiser/frmWiedervorlage.Designer.vb index 3cbce02..eaf1d78 100644 --- a/app/DD-Record-Organiser/frmWiedervorlage.Designer.vb +++ b/app/DD-Record-Organiser/frmWiedervorlage.Designer.vb @@ -851,7 +851,7 @@ Partial Class frmWiedervorlage Me.TableAdapterManager.TBPMO_TEMPLATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_FVIEW_DT_INDEXTableAdapter = Nothing Me.TableAdapterManager.TBPMO_WD_OBJECTTYPETableAdapter = Nothing - Me.TableAdapterManager.TBPMO_WORKFLOW_FORMTableAdapter = Nothing + Me.TableAdapterManager.TBPMO_WORKFLOW_TASK_STATETableAdapter = Nothing Me.TableAdapterManager.TBPMO_WORKFLOWTableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete