diff --git a/app/DD-Record-Organiser/ClassControlBuilder.vb b/app/DD-Record-Organiser/ClassControlBuilder.vb index a3f35fd..df43f44 100644 --- a/app/DD-Record-Organiser/ClassControlBuilder.vb +++ b/app/DD-Record-Organiser/ClassControlBuilder.vb @@ -106,6 +106,7 @@ Public Class ClassControlBuilder Dim CONTROL_ID Public Sub OnComboBoxValueChanged(sender As Object, ByVal e As EventArgs) If CURRENT_RECORD_ENABLED = False Then Exit Sub + Try Dim control As Control = DirectCast(sender, Control) Dim controlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id @@ -1559,12 +1560,29 @@ Public Class ClassControlBuilder If DT_ListBox Is Nothing = False Then If DT_ListBox.Rows.Count > 0 Then control.DataSource = DT_ListBox - control.DisplayMember = DT_ListBox.Columns(1).ColumnName - control.ValueMember = DT_ListBox.Columns(0).ColumnName + If DT_ListBox.Columns.Count = 1 Then + control.DisplayMember = DT_ListBox.Columns(0).ColumnName + control.ValueMember = DT_ListBox.Columns(0).ColumnName + Else + Try + control.ValueMember = DT_ListBox.Columns(0).ColumnName + control.DisplayMember = DT_ListBox.Columns(1).ColumnName + Catch ex As Exception + Dim colstring = "" + For Each Col As DataColumn In DT_ListBox.Columns + colstring = colstring & ";" & Col.ColumnName + Next + ClassLogger.Add("Error in Binding CheckedListBox: " & ex.Message & " - Columns: " & colstring) + control.DisplayMember = DT_ListBox.Columns(0).ColumnName + End Try + End If + End If End If End If End If + 'Bei clicken checken + control.CheckOnClick = True ' Wenn statische liste vorhanden, werte splitten und einfügen If static_list.Length > 0 Then @@ -1584,6 +1602,7 @@ Public Class ClassControlBuilder Me.AddToPanel(control) End If Catch ex As Exception + ClassLogger.Add("Unexpected Error in AddCheckedListBox: " & ex.Message) MsgBox("Error in AddCheckedListBox: " + vbNewLine + ex.Message) End Try End Sub diff --git a/app/DD-Record-Organiser/ClassControlCommandsUI.vb b/app/DD-Record-Organiser/ClassControlCommandsUI.vb index a8fcb95..5561a8d 100644 --- a/app/DD-Record-Organiser/ClassControlCommandsUI.vb +++ b/app/DD-Record-Organiser/ClassControlCommandsUI.vb @@ -487,8 +487,14 @@ Public Class ClassControlCommandsUI End Sub Private Sub UpdateAllControls(FormID As Integer, RecordID As Integer, controls As Control.ControlCollection) + Dim controlGUID Try + For Each ctrl As Control In controls + controlGUID = DirectCast(ctrl.Tag, ClassControlMetadata).Id + If controlGUID = 993 Then + Console.WriteLine("Obacht") + End If 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) Dim CONTROL_VALUE As String = GetControlValue(ctrl) @@ -506,15 +512,27 @@ Public Class ClassControlCommandsUI End If If TypeOf ctrl Is DevExpress.XtraEditors.CheckedListBoxControl Then - Dim id As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id - UpdateMultipleValues(id, RecordID, CONTROL_VALUE) - Continue For + Try + If Not IsNothing(CONTROL_VALUE) Then + Dim id As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id + UpdateMultipleValues(id, RecordID, CONTROL_VALUE) + Continue For + End If + Catch ex As Exception + MsgBox("Unexpected Error in UpdateAllControls-CheckedListBox: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End If If TypeOf ctrl Is Windows.Forms.DataGridView Then - Dim id As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id - UpdateMultipleValues(id, RecordID, CONTROL_VALUE) - Continue For + Try + Dim id As Integer = DirectCast(ctrl.Tag, ClassControlMetadata).Id + UpdateMultipleValues(id, RecordID, CONTROL_VALUE) + Continue For + Catch ex As Exception + MsgBox("Unexpected Error in UpdateAllControls-DataGridView: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End If Dim ValueExists = ClassDatabase.Execute_Scalar(String.Format("SELECT RECORD_ID FROM VWPMO_VALUES WHERE RECORD_ID = {0} AND CONTROL_ID = {1}", RecordID, CONTROL_ID)) @@ -531,9 +549,9 @@ Public Class ClassControlCommandsUI End If Next Catch ex As Exception - MsgBox("Unexpected Error in UpdateAllControls: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + MsgBox("Unexpected Error in UpdateAllControls - Control-ID: " & controlGUID.tostring & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try - + End Sub Public Sub UpdateMultipleValues(ControlId As Integer, RecordId As Integer, value As String) @@ -562,135 +580,169 @@ Public Class ClassControlCommandsUI End Sub Function GetControlValue(ctrl As Control) As String + Try + 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) + Dim CONTROL_VALUE As String = Nothing + 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) + Return DirectCast(ctrl, ComboBox).Text + Case "CheckBox" + Return DirectCast(ctrl, CheckBox).Checked.ToString() + Case "RadioButton" + Return DirectCast(ctrl, RadioButton).Checked.ToString() + Case "DateEdit" + Dim Value = DirectCast(ctrl, DevExpress.XtraEditors.DateEdit).EditValue - 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) - Dim CONTROL_VALUE As String = Nothing - 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) - Return DirectCast(ctrl, ComboBox).Text - Case "CheckBox" - Return DirectCast(ctrl, CheckBox).Checked.ToString() - Case "RadioButton" - Return DirectCast(ctrl, RadioButton).Checked.ToString() - Case "DateEdit" - Dim Value = DirectCast(ctrl, DevExpress.XtraEditors.DateEdit).EditValue + If IsDBNull(Value) Then + Return "" + Else + Return DirectCast(ctrl, DevExpress.XtraEditors.DateEdit).DateTime.ToString("yyyy-MM-dd") + End If + Case "PictureBox" + 'Return "PictureBox" 'Es ist egal was für ein String hier zurückgegeben wird, hauptsache nicht Nothing + Case "CheckedListBoxControl" + Dim chklbx As DevExpress.XtraEditors.CheckedListBoxControl + chklbx = DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl) - If IsDBNull(Value) Then - Return "" - Else - Return DirectCast(ctrl, DevExpress.XtraEditors.DateEdit).DateTime.ToString("yyyy-MM-dd") - End If - Case "PictureBox" - 'Return "PictureBox" 'Es ist egal was für ein String hier zurückgegeben wird, hauptsache nicht Nothing - Case "CheckedListBoxControl" - Dim chklbx As DevExpress.XtraEditors.CheckedListBoxControl - chklbx = DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl) + 'TODO: Wenn keine Datasource vorhanden, angecheckte einträge als string speichern + If IsNothing(chklbx.DataSource) Then + Dim result As New List(Of String) + Dim result_string As String - 'TODO: Wenn keine Datasource vorhanden, angecheckte einträge als string speichern - If IsNothing(chklbx.DataSource) Then - Dim result As New List(Of String) - Dim result_string As String + For Each item As DevExpress.XtraEditors.Controls.CheckedListBoxItem In chklbx.CheckedItems + result.Add(item.Value.ToString.Trim) + Next - For Each item As DevExpress.XtraEditors.Controls.CheckedListBoxItem In chklbx.CheckedItems - result.Add(item.Value.ToString.Trim) + result_string = String.Join(";", result) + + ' Hier wird ein String zurückgegeben, der als VALUE gespeichert werden soll + ' Überspringt den Rest der funktion + Return result_string + End If + Dim countSelectedItems As Integer = 0 + For Each item As Object In DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl).CheckedItems + countSelectedItems += 1 Next - result_string = String.Join(";", result) + Dim sqlControl = ClassDatabase.Execute_Scalar("SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = " & CONTROL_ID) + sqlControl = sqlControl.ToString.ToUpper + Dim checked_result_string As String + If sqlControl.contains("SELECT [RECORD-ID],") Then + 'Alle Recorddatensätze durchlaufen und überprüfen ob nicht angehakt + 'Wenn nicht angehakt dann Record löschen + Dim index As Integer = 0 + For i As Integer = 0 To chklbx.ItemCount - 1 + Dim item = chklbx.GetItem(i) + Dim row As DataRowView = CType(item, DataRowView) + If chklbx.GetItemCheckState(i) = 0 Then + Try + If CInt(row(0)) > 0 Then + 'Überprüfen ob es den Record gibt + Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0)) + 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) + End If + End If + End If + Catch ex As Exception + ClassLogger.Add(" >> ERROR CHECKEDLISTBOX NoINTEGER-COLUMN: " & ex.Message) + Return Nothing + End Try - ' Hier wird ein String zurückgegeben, der als VALUE gespeichert werden soll - ' Überspringt den Rest der funktion - Return result_string - End If - - 'Alle Recorddatensätze durchlaufen und überprüfen ob nicht angehakt - 'Wenn nicht angehakt dann Record löschen - Dim index As Integer = 0 - For i As Integer = 0 To chklbx.ItemCount - 1 - Dim item = chklbx.GetItem(i) - Dim row As DataRowView = CType(item, DataRowView) - If chklbx.GetItemCheckState(i) = 0 Then - If CInt(row(0)) > 0 Then - 'Überprüfen ob es den Record gibt - Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0)) - 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) - End If End If - End If - End If - Next + Next - 'Für jeden gecheckten Eintrag den Record der Stammentität mit dem selektierten linken - Dim checked_result As New List(Of String) - Dim checked_result_string As String + 'Für jeden gecheckten Eintrag den Record der Stammentität mit dem selektierten linken + Dim checked_result As New List(Of String) + + + For Each item As Object In DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl).CheckedItems + Dim row As DataRowView = CType(item, DataRowView) + Try + If CInt(row(0)) > 0 Then + Dim rid = CInt(row(0)) + Dim checked_value = row(1) + checked_result.Add(checked_value) + checked_result_string = String.Join(";", checked_result) + Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0)) + If ClassDatabase.Execute_Scalar(SQL) = 0 Then + If CURRENT_RECORD_ID = 0 Then + 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) + End If + End If - For Each item As Object In DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl).CheckedItems - Dim row As DataRowView = CType(item, DataRowView) - Try - If CInt(row(0)) > 0 Then - Dim rid = CInt(row(0)) - Dim checked_value = row(1) - checked_result.Add(checked_value) - checked_result_string = String.Join(";", checked_result) - Dim SQL = "SELECT COUNT(*) FROM TBPMO_RECORD_CONNECT WHERE RECORD1_ID = " & CURRENT_RECORD_ID & " AND RECORD2_ID = " & CInt(row(0)) - If ClassDatabase.Execute_Scalar(SQL) = 0 Then - If CURRENT_RECORD_ID = 0 Then - 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) End If End If + Catch ex As Exception + ClassLogger.Add("Error in CheckedListBoxGetControlValue: " & ex.Message, True) + End Try - End If + Next + Else 'Einfach nur eine Datensauswahl mit Strings! + If countSelectedItems > 0 Then + Dim checked_result As New List(Of String) + For Each item As Object In DirectCast(ctrl, DevExpress.XtraEditors.CheckedListBoxControl).CheckedItems + Dim row As DataRowView = CType(item, DataRowView) + Dim checked_value = row(1) + checked_result.Add(checked_value) + checked_result_string = String.Join(";", checked_result) + Next + + Else + checked_result_string = "" End If - Catch ex As Exception - ClassLogger.Add("Error in CheckedListBoxGetControlValue: " & ex.Message, True) - End Try - - Next - ' Hier wird ein String zurückgegeben, der als VALUE gespeichert werden soll - ' Überspringt den Rest der funktion - If Not IsNothing(checked_result_string) Then - Dim sql = String.Format("select count(*) from TBPMO_CONTROL_VALUE where CONTROL_ID = {0} and RECORD_ID = {1}", CONTROL_ID, CURRENT_RECORD_ID) - If ClassDatabase.Execute_Scalar(sql) = 0 Then - InsertControlValue(CONTROL_ID, CURRENT_RECORD_ID, "") End If - Return checked_result_string - Else - 'In jedem Fall Nothing zurückgeben + ' Hier wird ein String zurückgegeben, der als VALUE gespeichert werden soll + ' Überspringt den Rest der funktion + If Not IsNothing(checked_result_string) Then + Dim sql = String.Format("select count(*) from TBPMO_CONTROL_VALUE where CONTROL_ID = {0} and RECORD_ID = {1}", CONTROL_ID, CURRENT_RECORD_ID) + If ClassDatabase.Execute_Scalar(sql) = 0 Then + InsertControlValue(CONTROL_ID, CURRENT_RECORD_ID, checked_result_string) + End If + Return checked_result_string + Else + 'In jedem Fall Nothing zurückgeben + Return Nothing + End If + + + Case "ListBoxControl" + Dim listbox As DevExpress.XtraEditors.ListBoxControl = DirectCast(ctrl, DevExpress.XtraEditors.ListBoxControl) + Return listbox.SelectedValue + + Case "DataGridView" + Dim list As New List(Of String) + Dim dgv As DataGridView = DirectCast(ctrl, DataGridView) + + For Each row As DataGridViewRow In dgv.Rows + Dim cell As DataGridViewCell = row.Cells(0) + If Not IsNothing(cell.Value) Then + list.Add(cell.Value) + End If + Next + + Return String.Join(";", list) + + Case Else Return Nothing - End If - - - Case "ListBoxControl" - Dim listbox As DevExpress.XtraEditors.ListBoxControl = DirectCast(ctrl, DevExpress.XtraEditors.ListBoxControl) - Return listbox.SelectedValue - - Case "DataGridView" - Dim list As New List(Of String) - Dim dgv As DataGridView = DirectCast(ctrl, DataGridView) - - For Each row As DataGridViewRow In dgv.Rows - Dim cell As DataGridViewCell = row.Cells(0) - If Not IsNothing(cell.Value) Then - list.Add(cell.Value) - End If - Next - - Return String.Join(";", list) - - Case Else - Return Nothing - End Select + End Select + Catch ex As Exception + ClassLogger.Add("Unexpected Error in GetControlValue: " & ex.Message) + MsgBox("Unexpected Error in GetControlValue: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return Nothing + End Try + End Function Public Shared Function InsertControlValue(ControlID As Integer, RecordID As Integer, Value As String) diff --git a/app/DD-Record-Organiser/ClassControlValues.vb b/app/DD-Record-Organiser/ClassControlValues.vb index e7bddb3..9cd9985 100644 --- a/app/DD-Record-Organiser/ClassControlValues.vb +++ b/app/DD-Record-Organiser/ClassControlValues.vb @@ -183,7 +183,25 @@ Public Class ClassControlValues End Try End Sub + Public Shared Function GetControlValuesREC_CONTROL(RecordId As Integer, CONTROL_ID As Integer) + Try + 'Dim SQL As String = String.Format("SELECT * FROM VWPMO_VALUES WHERE VALUE <> '' AND RECORD_ID = {0}", RecordId) + Dim SQL As String = String.Format("SELECT VALUE FROM VWPMO_VALUES WHERE RECORD_ID = {0} AND CONTROL_ID = {1}", RecordId, CONTROL_ID) + Dim RESULT = ClassDatabase.Execute_Scalar(SQL) + If IsNothing(RESULT) Then + Return Nothing + ElseIf RESULT = "" Then + Return Nothing + Else + Return RESULT + End If + Catch ex As Exception + ClassLogger.Add("Unexpected Error in GetControlValuesREC_CONTROL: " & ex.Message, True) + MsgBox("Error in GetControlValuesREC_CONTROL:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return Nothing + End Try + End Function Private Shared Sub LoadControlHints(controls As Control.ControlCollection) For Each c As Control In controls diff --git a/app/DD-Record-Organiser/ClassInit.vb b/app/DD-Record-Organiser/ClassInit.vb index edb35b3..83d4d8a 100644 --- a/app/DD-Record-Organiser/ClassInit.vb +++ b/app/DD-Record-Organiser/ClassInit.vb @@ -51,120 +51,126 @@ Public Class ClassInit End Sub Public Shared Function InitUserLogin() - Dim sql = sql_UserID - sql = sql.Replace("@user", Environment.UserName) - ClassLogger.Add(">> Neuanmeldung am System: " & Now.ToString, False) - ClassLogger.Add(">> Username: " & Environment.UserName, False) - - USER_GUID = ClassDatabase.Execute_Scalar(sql) - If USER_GUID Is Nothing Then - ClassLogger.Add(" - User '" & Environment.UserName & "' not listed in Useradminsitration!", False) - 'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") - 'Me.Close() - Dim msg = String.Format("Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!") - - If USER_LANGUAGE <> "de-DE" Then - msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.") - End If - MsgBox(msg, MsgBoxStyle.Exclamation) - Return False - Else - USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & USER_GUID, False) - Dim DT_CLIENT_USER As DataTable = ClassDatabase.Return_Datatable("SELECT CLIENT_ID FROM TBDD_CLIENT_USER WHERE USER_ID = " & USER_GUID) - Dim i As Integer = 0 - For Each row As DataRow In DT_CLIENT_USER.Rows - If i = 0 Then - USER_CLIENTS_COMMA_SEPERATED = row.Item(0).ToString - Else - USER_CLIENTS_COMMA_SEPERATED = USER_CLIENTS_COMMA_SEPERATED & "," & row.Item(0).ToString - End If - i += 1 - - Next - - - sql = "SELECT MODULE_RECORD_ORG FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))" + Try + Dim sql = sql_UserID sql = sql.Replace("@user", Environment.UserName) - If ClassDatabase.Execute_Scalar(sql) = False Then - ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False) - 'MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") - Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!") + ClassLogger.Add(">> Login at: " & Now.ToString, False) + ClassLogger.Add(">> Username: " & Environment.UserName, False) + + USER_GUID = ClassDatabase.Execute_Scalar(sql) + If USER_GUID Is Nothing Then + ClassLogger.Add(" - User '" & Environment.UserName & "' not listed in Useradminsitration!", False) + 'MsgBox("Achtung: Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") + 'Me.Close() + Dim msg = String.Format("Sie sind nicht in der Userverwaltung hinterlegt." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!") If USER_LANGUAGE <> "de-DE" Then - msg = String.Format("You are not authorized for using this module." & vbNewLine & "Please contact the admin.") + msg = String.Format("You are not listed in the Useradministration." & vbNewLine & "Please contact the admin.") End If MsgBox(msg, MsgBoxStyle.Exclamation) Return False - 'Me.Close() Else - 'Am System anmelden - ClassLicence.Refresh_Licence() - 'Am System anmelden - sql = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))" - sql = sql.Replace("@LogInOut", 1) - sql = sql.Replace("@ANGEMELDETWO", Environment.MachineName) + USER_LANGUAGE = ClassDatabase.Execute_Scalar("SELECT LANGUAGE FROM TBDD_USER WHERE GUID = " & USER_GUID, False) + Dim DT_CLIENT_USER As DataTable = ClassDatabase.Return_Datatable("SELECT CLIENT_ID FROM TBDD_CLIENT_USER WHERE USER_ID = " & USER_GUID) + Dim i As Integer = 0 + For Each row As DataRow In DT_CLIENT_USER.Rows + If i = 0 Then + USER_CLIENTS_COMMA_SEPERATED = row.Item(0).ToString + Else + USER_CLIENTS_COMMA_SEPERATED = USER_CLIENTS_COMMA_SEPERATED & "," & row.Item(0).ToString + End If + i += 1 + + Next + + + sql = "SELECT MODULE_RECORD_ORG FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))" sql = sql.Replace("@user", Environment.UserName) - ClassDatabase.Execute_non_Query(sql) - sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'RECORD_ORGANIZER'" - If ClassDatabase.Execute_non_Query(sql, True) = True Then - - End If - - sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & USER_GUID & ",'RECORD_ORGANIZER')" - ClassDatabase.Execute_non_Query(sql) - sql = "SELECT RECORD_ADMIN FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))" - sql = sql.Replace("@user", Environment.UserName) - USER_IS_ADMIN = ClassDatabase.Execute_Scalar(sql) - 'If USER_IS_ADMIN = True Then - ' 'Admin - ' pageAdmin.Visible = True - 'End If - - sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE MODULE = 'RECORD_ORGANIZER'" - Dim anzahl = ClassDatabase.Execute_Scalar(sql) - USERS_LOGGED_IN = CInt(anzahl) - If LogErrorsOnly = False Then ClassLogger.Add(" >> Anzahl Angemeldete User: " & anzahl.ToString, False) - '#### - - If LICENSE_COUNT < USERS_LOGGED_IN And LICENSE_EXPIRED = False Then - Dim msg = String.Format("Die Anzahl der aktuell angemeldeten User (" & USERS_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!") + If ClassDatabase.Execute_Scalar(sql) = False Then + ClassLogger.Add(" - User: " & Environment.UserName & " nicht für Modul freigegben!", False) + 'MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:") + Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!") If USER_LANGUAGE <> "de-DE" Then - msg = String.Format("The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses." & vbNewLine & _ - "Number of licenses: " & LICENSE_COUNT.ToString & vbNewLine & "Please contact Your admin!") + msg = String.Format("You are not authorized for using this module." & vbNewLine & "Please contact the admin.") End If MsgBox(msg, MsgBoxStyle.Exclamation) - ClassLogger.Add(" >> The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ", False) - If USER_IS_ADMIN = False Then - 'Anmeldung wieder herausnehmen - sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'RECORD_ORGANIZER'" - ClassDatabase.Execute_non_Query(sql, True) - ClassLogger.Add(" - logged out the user", False) - Return False - End If + Return False + 'Me.Close() Else - Try - 'Die FolderWatch starten - Dim sql1 = "SELECT FOLDER_PATH FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID - Dim folderwatch_SCAN = ClassDatabase.Execute_Scalar(sql1, True) + 'Am System anmelden + ClassLicence.Refresh_Licence() + 'Am System anmelden + sql = "UPDATE TBDD_USER SET LOGGED_IN = @LogInOut, LOGGED_WHERE = '@ANGEMELDETWO' WHERE (LOWER(USERNAME) = LOWER('@user'))" + sql = sql.Replace("@LogInOut", 1) + sql = sql.Replace("@ANGEMELDETWO", Environment.MachineName) + sql = sql.Replace("@user", Environment.UserName) + ClassDatabase.Execute_non_Query(sql) + sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'RECORD_ORGANIZER'" + If ClassDatabase.Execute_non_Query(sql, True) = True Then - If Not folderwatch_SCAN Is Nothing Then - CURRENT_SCAN_FOLDERWATCH = folderwatch_SCAN - If FWSCAN_started = True Then - ClassFolderWatcher.StartStop_FolderWatchSCAN() - End If + End If + + sql = "INSERT INTO TBDD_USER_MODULE_LOG_IN (USER_ID,MODULE) VALUES (" & USER_GUID & ",'RECORD_ORGANIZER')" + ClassDatabase.Execute_non_Query(sql) + sql = "SELECT RECORD_ADMIN FROM TBDD_USER WHERE (LOWER(USERNAME) = LOWER('@user'))" + sql = sql.Replace("@user", Environment.UserName) + USER_IS_ADMIN = ClassDatabase.Execute_Scalar(sql) + 'If USER_IS_ADMIN = True Then + ' 'Admin + ' pageAdmin.Visible = True + 'End If + + sql = "SELECT COUNT(*) AS Expr1 FROM TBDD_USER_MODULE_LOG_IN WHERE UPPER(MODULE) = UPPER('RECORD_ORGANIZER')" + Dim anzahl = ClassDatabase.Execute_Scalar(sql) + USERS_LOGGED_IN = CInt(anzahl) + If LogErrorsOnly = False Then ClassLogger.Add(" >> User# logged in: " & anzahl.ToString, False) + '#### + + If LICENSE_COUNT < USERS_LOGGED_IN And LICENSE_EXPIRED = False Then + Dim msg = String.Format("Die Anzahl der aktuell angemeldeten User (" & USERS_LOGGED_IN.ToString & ") überschreitet die Anzahl der aktuellen Lizenzen!" & vbNewLine & "Anzahl der Lizenzen: " & LICENSE_COUNT.ToString & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!") + + If USER_LANGUAGE <> "de-DE" Then + msg = String.Format("The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses." & vbNewLine & _ + "Number of licenses: " & LICENSE_COUNT.ToString & vbNewLine & "Please contact Your admin!") End If - Catch ex As Exception - ClassLogger.Add("Unexpected Error in Init_Folderwatch: " & ex.Message, True) - Return False - End Try + MsgBox(msg, MsgBoxStyle.Exclamation) + ClassLogger.Add(" >> The number of logged Users (" & USERS_LOGGED_IN.ToString & ") exceeds the number of licenses (" & LICENSE_COUNT & ") ", False) + If USER_IS_ADMIN = False Then + 'Anmeldung wieder herausnehmen + sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'RECORD_ORGANIZER'" + ClassDatabase.Execute_non_Query(sql, True) + ClassLogger.Add(" - logged out the user", False) + Return False + End If + Else + Try + 'Die FolderWatch starten + Dim sql1 = "SELECT FOLDER_PATH FROM TBPMO_FOLDERWATCH_USER WHERE FOLDER_TYPE = 'SCAN' AND USER_ID = " & USER_GUID + Dim folderwatch_SCAN = ClassDatabase.Execute_Scalar(sql1, True) + If Not folderwatch_SCAN Is Nothing Then + CURRENT_SCAN_FOLDERWATCH = folderwatch_SCAN + If FWSCAN_started = True Then + ClassFolderWatcher.StartStop_FolderWatchSCAN() + End If + End If + Catch ex As Exception + ClassLogger.Add("Unexpected Error in Init_Folderwatch: " & ex.Message, True) + Return False + End Try + + End If + Return True + 'LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & anzahl.ToString End If - Return True - - 'LabelLoggedIn.Caption = "Anzahl Angemeldete User: " & anzahl.ToString End If - End If + Catch ex As Exception + ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True) + MsgBox("Unexpected Error in InitUserLogin: " & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function End Class diff --git a/app/DD-Record-Organiser/ClassLicence.vb b/app/DD-Record-Organiser/ClassLicence.vb index 5e3d552..01843e0 100644 --- a/app/DD-Record-Organiser/ClassLicence.vb +++ b/app/DD-Record-Organiser/ClassLicence.vb @@ -23,8 +23,8 @@ Public Class ClassLicence LICENSE_COUNT = 0 End If - 'Die Anzahl der Userlizenzen - LICENSE_COUNT = split(1) + ''Die Anzahl der Userlizenzen + 'LICENSE_COUNT = split(1) Try LICENSE_DOSSIER_COUNT = split(2) diff --git a/app/DD-Record-Organiser/ClassWindream.vb b/app/DD-Record-Organiser/ClassWindream.vb index 44537d1..f2dbffc 100644 --- a/app/DD-Record-Organiser/ClassWindream.vb +++ b/app/DD-Record-Organiser/ClassWindream.vb @@ -45,6 +45,7 @@ Public Class ClassWindream Public Shared _WDObjekttyp As String Private Shared aktWMObject As WINDREAMLib.WMObject Public Shared WD_SERVER + Public Shared CURRENT_WMObject As WMObject #End Region diff --git a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj index b1ab323..37a06a0 100644 --- a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj +++ b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj @@ -1161,6 +1161,7 @@ + diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xsc b/app/DD-Record-Organiser/DD_DMSDataSet.xsc index cfcad7d..6cf7288 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.xsc +++ b/app/DD-Record-Organiser/DD_DMSDataSet.xsc @@ -304,53 +304,39 @@ - - + - - + - - + - - + - - + - - + - - + - - + - - + - - + - - + - - + - - + - - + diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xsd b/app/DD-Record-Organiser/DD_DMSDataSet.xsd index 1914c00..6e0d4c6 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.xsd +++ b/app/DD-Record-Organiser/DD_DMSDataSet.xsd @@ -2234,36 +2234,38 @@ WHERE (GUID = @Original_GUID) - + INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL (CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, - SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5) -VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@SEQUENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_NAME2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH_PATTERN4,@SEARCH_PATTERN5); + SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5, CONTROL_DOCTYPE_MATCH) +VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@SEQUENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_NAME2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH_PATTERN4,@SEARCH_PATTERN5,@CONTROL_DOCTYPE_MATCH); SELECT GUID, CONSTRUCT_ID, FORM_ID, 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 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + SELECT GUID, CONSTRUCT_ID, FORM_ID, 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 + COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5, LOAD_DIRECT, SQL_QUICK_VIEW, + CONTROL_DOCTYPE_MATCH FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = @ID) @@ -2277,8 +2279,9 @@ WHERE (GUID = @ID) SET CONSTRUCT_ID = @CONSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_SELECT, SEQUENCE = @SEQUENCE, SQL_SELECT_EBENE1 = @SQL_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_WHO, COLUMN_NAME1 = @COLUMN_NAME1, COLUMN_NAME2 = @COLUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTERN1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, - SEARCH_PATTERN3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SEARCH_PATTERN5, LOAD_DIRECT = @LOAD_DIRECT, SQL_QUICK_VIEW = -WHERE (GUID = @Original_GUID); + SEARCH_PATTERN3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SEARCH_PATTERN5, LOAD_DIRECT = @LOAD_DIRECT, + SQL_QUICK_VIEW = @SQL_QUICK_VIEW, CONTROL_DOCTYPE_MATCH = @CONTROL_DOCTYPE_MATCH +WHERE (GUID = @Original_GUID); SELECT GUID, CONSTRUCT_ID, FORM_ID, 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 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = @GUID) @@ -2298,6 +2301,8 @@ SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELE + + @@ -2328,6 +2333,7 @@ SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELE + @@ -3160,7 +3166,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3201,7 +3207,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3279,7 +3285,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3374,7 +3380,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3397,7 +3403,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3442,7 +3448,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3480,7 +3486,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3515,7 +3521,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3559,7 +3565,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3580,7 +3586,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3617,7 +3623,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3662,7 +3668,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3729,7 +3735,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3766,7 +3772,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3821,7 +3827,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3860,7 +3866,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3984,7 +3990,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4053,7 +4059,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4083,7 +4089,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4120,7 +4126,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4157,7 +4163,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4189,7 +4195,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4209,7 +4215,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4255,7 +4261,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4313,7 +4319,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4343,7 +4349,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4498,7 +4504,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4523,7 +4529,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4558,7 +4564,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4587,7 +4593,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4646,7 +4652,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4719,7 +4725,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4749,7 +4755,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4822,10 +4828,11 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D + - + @@ -4919,7 +4926,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4958,7 +4965,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4976,7 +4983,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -5022,7 +5029,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -5036,7 +5043,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -5088,7 +5095,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -5132,7 +5139,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -5164,7 +5171,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -5246,7 +5253,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -5298,7 +5305,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -5371,7 +5378,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -5559,24 +5566,24 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb b/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb index 11e2fc2..d75d5e8 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb +++ b/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb @@ -14596,6 +14596,8 @@ Partial Public Class DD_DMSDataSet Private columnSQL_QUICK_VIEW As Global.System.Data.DataColumn + Private columnCONTROL_DOCTYPE_MATCH As Global.System.Data.DataColumn + _ Public Sub New() @@ -14807,6 +14809,14 @@ Partial Public Class DD_DMSDataSet End Get End Property + _ + Public ReadOnly Property CONTROL_DOCTYPE_MATCHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONTROL_DOCTYPE_MATCH + End Get + End Property + _ @@ -14865,9 +14875,10 @@ Partial Public Class DD_DMSDataSet 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 + ByVal SQL_QUICK_VIEW As String, _ + ByVal CONTROL_DOCTYPE_MATCH As Integer) 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} + 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, CONTROL_DOCTYPE_MATCH} 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 @@ -14924,6 +14935,7 @@ Partial Public Class DD_DMSDataSet Me.columnSEARCH_PATTERN5 = MyBase.Columns("SEARCH_PATTERN5") Me.columnLOAD_DIRECT = MyBase.Columns("LOAD_DIRECT") Me.columnSQL_QUICK_VIEW = MyBase.Columns("SQL_QUICK_VIEW") + Me.columnCONTROL_DOCTYPE_MATCH = MyBase.Columns("CONTROL_DOCTYPE_MATCH") End Sub _ Public Property ADDED_WHEN() As Date Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn),Date) + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.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_DETAIL ist DBNul"& _ + "l.", e) + End Try End Get Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = value @@ -27068,6 +27088,17 @@ Partial Public Class DD_DMSDataSet End Set End Property + _ + Public Property CONTROL_DOCTYPE_MATCH() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONTROL_DOCTYPE_MATCHColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONTROL_DOCTYPE_MATCHColumn) = value + End Set + End Property + _ Public Property TBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow @@ -27114,6 +27145,18 @@ Partial Public Class DD_DMSDataSet Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub + _ + Public Function IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = Global.System.Convert.DBNull + End Sub + _ Public Function IsCHANGED_WHONull() As Boolean @@ -42917,6 +42960,7 @@ Namespace DD_DMSDataSetTableAdapters 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("CONTROL_DOCTYPE_MATCH", "CONTROL_DOCTYPE_MATCH") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection @@ -42929,14 +42973,15 @@ Namespace DD_DMSDataSetTableAdapters ", 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())" + "CH_PATTERN5, CONTROL_DOCTYPE_MATCH)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONSTRUCT_ID,@FORM_ID,@PARE"& _ + "NT_ID,@LEVEL1_SELECT,@SEQUENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,"& _ + "@COLUMN_NAME1,@COLUMN_NAME2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@"& _ + "SEARCH_PATTERN3,@SEARCH_PATTERN4,@SEARCH_PATTERN5,@CONTROL_DOCTYPE_MATCH); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SE"& _ + "LECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT"& _ + "_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, CO"& _ + "LUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEA"& _ + "RCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAI"& _ + "L 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, "", "", "")) @@ -42954,6 +42999,7 @@ Namespace DD_DMSDataSetTableAdapters 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("@CONTROL_DOCTYPE_MATCH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_DOCTYPE_MATCH", 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"& _ @@ -42964,12 +43010,13 @@ Namespace DD_DMSDataSetTableAdapters "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)" + "ARCH_PATTERN5, LOAD_DIRECT = @LOAD_DIRECT, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_QUICK_"& _ + "VIEW = @SQL_QUICK_VIEW, CONTROL_DOCTYPE_MATCH = @CONTROL_DOCTYPE_MATCH"&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_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, S"& _ + "EARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTER"& _ + "N5 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("@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, "", "", "")) @@ -42988,6 +43035,8 @@ Namespace DD_DMSDataSetTableAdapters 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("@SQL_QUICK_VIEW", Global.System.Data.SqlDbType.NVarChar, 2147483647, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_QUICK_VIEW", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONTROL_DOCTYPE_MATCH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_DOCTYPE_MATCH", 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 @@ -43009,8 +43058,8 @@ Namespace DD_DMSDataSetTableAdapters "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)" + "5, LOAD_DIRECT, SQL_QUICK_VIEW, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CONTROL_DOCTYPE_MATCH"& _ + ""&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(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() @@ -43146,7 +43195,8 @@ Namespace DD_DMSDataSetTableAdapters ByVal SEARCH_PATTERN2 As String, _ ByVal SEARCH_PATTERN3 As String, _ ByVal SEARCH_PATTERN4 As String, _ - ByVal SEARCH_PATTERN5 As String) As Integer + ByVal SEARCH_PATTERN5 As String, _ + ByVal CONTROL_DOCTYPE_MATCH As Integer) 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) @@ -43207,6 +43257,7 @@ Namespace DD_DMSDataSetTableAdapters Else Me.Adapter.InsertCommand.Parameters(15).Value = CType(SEARCH_PATTERN5,String) End If + Me.Adapter.InsertCommand.Parameters(16).Value = CType(CONTROL_DOCTYPE_MATCH,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 @@ -43244,6 +43295,8 @@ Namespace DD_DMSDataSetTableAdapters ByVal SEARCH_PATTERN4 As String, _ ByVal SEARCH_PATTERN5 As String, _ ByVal LOAD_DIRECT As Boolean, _ + ByVal SQL_QUICK_VIEW As String, _ + ByVal CONTROL_DOCTYPE_MATCH As Integer, _ ByVal Original_GUID As Integer, _ ByVal GUID As Integer) As Integer Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONSTRUCT_ID,Integer) @@ -43307,8 +43360,14 @@ Namespace DD_DMSDataSetTableAdapters 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) + If (SQL_QUICK_VIEW Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_QUICK_VIEW") + Else + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(SQL_QUICK_VIEW,String) + End If + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(CONTROL_DOCTYPE_MATCH,Integer) + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(20).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 diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb b/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb index cef6f4b..a0d9d32 100644 --- a/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb +++ b/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb @@ -1034,20 +1034,24 @@ Partial Public Class DD_ECMAdmin Private columnSQL_QUICK_VIEW As Global.System.Data.DataColumn - _ + Private columnCONTROL_DOCTYPE_MATCH As Global.System.Data.DataColumn + + Private columnSQL_RIGHT_READ_AND_VIEW_ONLY As Global.System.Data.DataColumn + + _ Public Sub New() - MyBase.New + MyBase.New() Me.TableName = "TBPMO_FORM_CONSTRUCTOR_DETAIL" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New + MyBase.New() Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive @@ -1061,251 +1065,269 @@ Partial Public Class DD_ECMAdmin Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - _ + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) - Me.InitVars + Me.InitVars() End Sub - - _ + + _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + _ Public ReadOnly Property 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 Get Return Me.columnSQL_SELECT_EBENE1 End Get End Property - - _ + + _ Public ReadOnly Property SQL_SELECT_EBENE2Column() As Global.System.Data.DataColumn Get Return Me.columnSQL_SELECT_EBENE2 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 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 - - _ + + _ + Public ReadOnly Property CONTROL_DOCTYPE_MATCHColumn() As Global.System.Data.DataColumn + Get + Return Me.columnCONTROL_DOCTYPE_MATCH + End Get + End Property + + _ + Public ReadOnly Property SQL_RIGHT_READ_AND_VIEW_ONLYColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_RIGHT_READ_AND_VIEW_ONLY + 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_FORM_CONSTRUCTOR_DETAILRow + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow Get - Return CType(Me.Rows(index),TBPMO_FORM_CONSTRUCTOR_DETAILRow) + Return CType(Me.Rows(index), TBPMO_FORM_CONSTRUCTOR_DETAILRow) End Get End Property - - _ + + _ Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler - - _ + + _ Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler - - _ + + _ Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleting As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler - - _ + + _ Public Event TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler - - _ + + _ Public Overloads Sub AddTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow) 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 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 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, FORM_ID, 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} + ByVal parentTBPMO_FORM_CONSTRUCTORRowByFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As TBPMO_FORM_CONSTRUCTORRow, _ + 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 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, _ + ByVal CONTROL_DOCTYPE_MATCH As Integer, _ + ByVal SQL_RIGHT_READ_AND_VIEW_ONLY 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, FORM_ID, 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, CONTROL_DOCTYPE_MATCH, SQL_RIGHT_READ_AND_VIEW_ONLY} 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 @@ -1313,29 +1335,29 @@ Partial Public Class DD_ECMAdmin Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTOR_DETAILRow) Return rowTBPMO_FORM_CONSTRUCTOR_DETAILRow 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) + 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 TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = CType(MyBase.Clone,TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) - cln.InitVars + Dim cln As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable = CType(MyBase.Clone, TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) + cln.InitVars() Return cln End Function - - _ + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_FORM_CONSTRUCTOR_DETAILDataTable() End Function - - _ + + _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnCONSTRUCT_ID = MyBase.Columns("CONSTRUCT_ID") @@ -1359,10 +1381,12 @@ Partial Public Class DD_ECMAdmin Me.columnSEARCH_PATTERN5 = MyBase.Columns("SEARCH_PATTERN5") Me.columnLOAD_DIRECT = MyBase.Columns("LOAD_DIRECT") Me.columnSQL_QUICK_VIEW = MyBase.Columns("SQL_QUICK_VIEW") + Me.columnCONTROL_DOCTYPE_MATCH = MyBase.Columns("CONTROL_DOCTYPE_MATCH") + Me.columnSQL_RIGHT_READ_AND_VIEW_ONLY = MyBase.Columns("SQL_RIGHT_READ_AND_VIEW_ONLY") 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) @@ -1408,25 +1432,28 @@ Partial Public Class DD_ECMAdmin 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.columnLEVEL1_SELECT.AllowDBNull = false - Me.columnSEQUENCE.AllowDBNull = false + Me.columnCONTROL_DOCTYPE_MATCH = New Global.System.Data.DataColumn("CONTROL_DOCTYPE_MATCH", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnCONTROL_DOCTYPE_MATCH) + Me.columnSQL_RIGHT_READ_AND_VIEW_ONLY = New Global.System.Data.DataColumn("SQL_RIGHT_READ_AND_VIEW_ONLY", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSQL_RIGHT_READ_AND_VIEW_ONLY) + 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.columnLEVEL1_SELECT.AllowDBNull = False + Me.columnSEQUENCE.AllowDBNull = False Me.columnSQL_SELECT_EBENE1.MaxLength = 4000 - Me.columnSQL_SELECT_EBENE2.AllowDBNull = false + 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.columnCOLUMN_NAME1.AllowDBNull = false + Me.columnCOLUMN_NAME1.AllowDBNull = False Me.columnCOLUMN_NAME1.MaxLength = 100 - Me.columnCOLUMN_NAME2.AllowDBNull = false + Me.columnCOLUMN_NAME2.AllowDBNull = False Me.columnCOLUMN_NAME2.MaxLength = 100 Me.columnWINDREAM_SEARCH.MaxLength = 300 Me.columnSEARCH_PATTERN1.MaxLength = 50 @@ -1434,73 +1461,77 @@ Partial Public Class DD_ECMAdmin 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.columnLOAD_DIRECT.AllowDBNull = False + Me.columnSQL_QUICK_VIEW.AllowDBNull = False Me.columnSQL_QUICK_VIEW.MaxLength = 2147483647 + Me.columnCONTROL_DOCTYPE_MATCH.AllowDBNull = False + Me.columnCONTROL_DOCTYPE_MATCH.DefaultValue = CType(0, Integer) + Me.columnSQL_RIGHT_READ_AND_VIEW_ONLY.AllowDBNull = False + Me.columnSQL_RIGHT_READ_AND_VIEW_ONLY.MaxLength = 5000 End Sub - - _ + + _ Public Function NewTBPMO_FORM_CONSTRUCTOR_DETAILRow() As TBPMO_FORM_CONSTRUCTOR_DETAILRow - Return CType(Me.NewRow,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 TBPMO_FORM_CONSTRUCTOR_DETAILRow(builder) End Function - - _ + + _ Protected Overrides Function GetRowType() As Global.System.Type 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.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)) + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowChanged(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) End If End Sub - - _ + + _ 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)) + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowChanging(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) End If End Sub - - _ + + _ 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)) + RaiseEvent TBPMO_FORM_CONSTRUCTOR_DETAILRowDeleted(Me, New TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTOR_DETAILRow), e.Action)) End If End Sub - - _ + + _ 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)) + 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 RemoveTBPMO_FORM_CONSTRUCTOR_DETAILRow(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow) 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() @@ -1529,35 +1560,35 @@ Partial Public Class DD_ECMAdmin If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then - s1.Close + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -1565,55 +1596,55 @@ Partial Public Class DD_ECMAdmin Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + _ Partial Public Class TBDD_CONNECTIONDataTable Inherits Global.System.Data.TypedTableBase(Of TBDD_CONNECTIONRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnBEZEICHNUNG As Global.System.Data.DataColumn - + Private columnSQL_PROVIDER As Global.System.Data.DataColumn - + Private columnSERVER As Global.System.Data.DataColumn - + Private columnDATENBANK As Global.System.Data.DataColumn - + Private columnUSERNAME As Global.System.Data.DataColumn - + Private columnPASSWORD As Global.System.Data.DataColumn - + Private columnBEMERKUNG As Global.System.Data.DataColumn - + Private columnAKTIV As Global.System.Data.DataColumn - + Private columnERSTELLTWER As Global.System.Data.DataColumn - + Private columnERSTELLTWANN As Global.System.Data.DataColumn - + Private columnGEANDERTWER As Global.System.Data.DataColumn - + Private columnGEAENDERTWANN As Global.System.Data.DataColumn - - _ + + _ Public Sub New() - MyBase.New + MyBase.New() Me.TableName = "TBDD_CONNECTION" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New + MyBase.New() Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive @@ -1627,185 +1658,185 @@ Partial Public Class DD_ECMAdmin Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - _ + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) - Me.InitVars + Me.InitVars() End Sub - - _ + + _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + _ Public ReadOnly Property BEZEICHNUNGColumn() As Global.System.Data.DataColumn Get Return Me.columnBEZEICHNUNG End Get End Property - - _ + + _ Public ReadOnly Property SQL_PROVIDERColumn() As Global.System.Data.DataColumn Get Return Me.columnSQL_PROVIDER End Get End Property - - _ + + _ Public ReadOnly Property SERVERColumn() As Global.System.Data.DataColumn Get Return Me.columnSERVER End Get End Property - - _ + + _ Public ReadOnly Property DATENBANKColumn() As Global.System.Data.DataColumn Get 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 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 - - _ + + _ 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 + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TBDD_CONNECTIONRow Get - Return CType(Me.Rows(index),TBDD_CONNECTIONRow) + 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 BEZEICHNUNG As String, ByVal SQL_PROVIDER As String, ByVal SERVER As String, ByVal DATENBANK As String, ByVal USERNAME As String, ByVal PASSWORD As String, ByVal BEMERKUNG As String, ByVal AKTIV As Boolean, ByVal ERSTELLTWER As String, ByVal ERSTELLTWANN As Date, ByVal GEANDERTWER As String, ByVal GEAENDERTWANN As Date) As TBDD_CONNECTIONRow - Dim rowTBDD_CONNECTIONRow As TBDD_CONNECTIONRow = CType(Me.NewRow,TBDD_CONNECTIONRow) + Dim rowTBDD_CONNECTIONRow As TBDD_CONNECTIONRow = CType(Me.NewRow, TBDD_CONNECTIONRow) Dim columnValuesArray() As Object = New Object() {Nothing, BEZEICHNUNG, SQL_PROVIDER, SERVER, DATENBANK, USERNAME, PASSWORD, BEMERKUNG, AKTIV, ERSTELLTWER, ERSTELLTWANN, GEANDERTWER, GEAENDERTWANN} rowTBDD_CONNECTIONRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBDD_CONNECTIONRow) Return rowTBDD_CONNECTIONRow End Function - - _ + + _ Public Function FindByGUID(ByVal GUID As Short) As TBDD_CONNECTIONRow - Return CType(Me.Rows.Find(New Object() {GUID}),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 TBDD_CONNECTIONDataTable = CType(MyBase.Clone,TBDD_CONNECTIONDataTable) - cln.InitVars + Dim cln As TBDD_CONNECTIONDataTable = CType(MyBase.Clone, TBDD_CONNECTIONDataTable) + cln.InitVars() Return cln End Function - - _ + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBDD_CONNECTIONDataTable() End Function - - _ + + _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnBEZEICHNUNG = MyBase.Columns("BEZEICHNUNG") @@ -1821,9 +1852,9 @@ Partial Public Class DD_ECMAdmin Me.columnGEANDERTWER = MyBase.Columns("GEANDERTWER") Me.columnGEAENDERTWANN = MyBase.Columns("GEAENDERTWANN") End Sub - - _ + + _ Private Sub InitClass() Me.columnGUID = New Global.System.Data.DataColumn("GUID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnGUID) @@ -1851,11 +1882,11 @@ Partial Public Class DD_ECMAdmin 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.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True Me.columnBEZEICHNUNG.MaxLength = 100 Me.columnSQL_PROVIDER.MaxLength = 50 Me.columnSERVER.MaxLength = 150 @@ -1863,75 +1894,75 @@ Partial Public Class DD_ECMAdmin Me.columnUSERNAME.MaxLength = 100 Me.columnPASSWORD.MaxLength = 100 Me.columnBEMERKUNG.MaxLength = 400 - Me.columnAKTIV.AllowDBNull = false - Me.columnAKTIV.DefaultValue = CType(true,Boolean) - Me.columnERSTELLTWER.AllowDBNull = false + Me.columnAKTIV.AllowDBNull = False + Me.columnAKTIV.DefaultValue = CType(True, Boolean) + Me.columnERSTELLTWER.AllowDBNull = False Me.columnERSTELLTWER.MaxLength = 50 Me.columnGEANDERTWER.MaxLength = 50 End Sub - - _ + + _ Public Function NewTBDD_CONNECTIONRow() As TBDD_CONNECTIONRow - Return CType(Me.NewRow,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 TBDD_CONNECTIONRow(builder) End Function - - _ + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBDD_CONNECTIONRow) 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)) + RaiseEvent TBDD_CONNECTIONRowChanged(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row, TBDD_CONNECTIONRow), e.Action)) End If End Sub - - _ + + _ 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)) + RaiseEvent TBDD_CONNECTIONRowChanging(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row, TBDD_CONNECTIONRow), e.Action)) End If End Sub - - _ + + _ 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)) + RaiseEvent TBDD_CONNECTIONRowDeleted(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row, TBDD_CONNECTIONRow), e.Action)) End If End Sub - - _ + + _ 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)) + RaiseEvent TBDD_CONNECTIONRowDeleting(Me, New TBDD_CONNECTIONRowChangeEvent(CType(e.Row, TBDD_CONNECTIONRow), e.Action)) End If End Sub - - _ + + _ Public Sub RemoveTBDD_CONNECTIONRow(ByVal row As TBDD_CONNECTIONRow) Me.Rows.Remove(row) End Sub - - _ + + _ Public Shared Function GetTypedTableSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() Dim sequence As Global.System.Xml.Schema.XmlSchemaSequence = New Global.System.Xml.Schema.XmlSchemaSequence() @@ -1960,35 +1991,35 @@ Partial Public Class DD_ECMAdmin If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then - s1.Close + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -1996,39 +2027,39 @@ Partial Public Class DD_ECMAdmin Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + _ Partial Public Class VWTEMPQUICKVIEWDataTable Inherits Global.System.Data.TypedTableBase(Of VWTEMPQUICKVIEWRow) - + Private _columnRecord_ID As Global.System.Data.DataColumn - + Private columnAktenzeichen As Global.System.Data.DataColumn - + Private _columnWiedergabe_der_Marke__Bild_ As Global.System.Data.DataColumn - + Private columnTag_der_Eintragung_im_Register As Global.System.Data.DataColumn - + Private columnAktenzustand As Global.System.Data.DataColumn - - _ + + _ Public Sub New() - MyBase.New + MyBase.New() Me.TableName = "VWTEMPQUICKVIEW" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New + MyBase.New() Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive @@ -2042,121 +2073,121 @@ Partial Public Class DD_ECMAdmin Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - _ + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) - Me.InitVars + Me.InitVars() End Sub - - _ + + _ Public ReadOnly Property _Record_IDColumn() As Global.System.Data.DataColumn Get Return Me._columnRecord_ID End Get End Property - - _ + + _ Public ReadOnly Property AktenzeichenColumn() As Global.System.Data.DataColumn Get Return Me.columnAktenzeichen End Get End Property - - _ + + _ Public ReadOnly Property _Wiedergabe_der_Marke__Bild_Column() As Global.System.Data.DataColumn Get Return Me._columnWiedergabe_der_Marke__Bild_ End Get End Property - - _ + + _ Public ReadOnly Property Tag_der_Eintragung_im_RegisterColumn() As Global.System.Data.DataColumn Get Return Me.columnTag_der_Eintragung_im_Register End Get End Property - - _ + + _ Public ReadOnly Property AktenzustandColumn() As Global.System.Data.DataColumn Get Return Me.columnAktenzustand 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 VWTEMPQUICKVIEWRow + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As VWTEMPQUICKVIEWRow Get - Return CType(Me.Rows(index),VWTEMPQUICKVIEWRow) + Return CType(Me.Rows(index), VWTEMPQUICKVIEWRow) End Get End Property - - _ + + _ Public Event VWTEMPQUICKVIEWRowChanging As VWTEMPQUICKVIEWRowChangeEventHandler - - _ + + _ Public Event VWTEMPQUICKVIEWRowChanged As VWTEMPQUICKVIEWRowChangeEventHandler - - _ + + _ Public Event VWTEMPQUICKVIEWRowDeleting As VWTEMPQUICKVIEWRowChangeEventHandler - - _ + + _ Public Event VWTEMPQUICKVIEWRowDeleted As VWTEMPQUICKVIEWRowChangeEventHandler - - _ + + _ Public Overloads Sub AddVWTEMPQUICKVIEWRow(ByVal row As VWTEMPQUICKVIEWRow) Me.Rows.Add(row) End Sub - - _ + + _ Public Overloads Function AddVWTEMPQUICKVIEWRow(ByVal _Record_ID As Integer, ByVal Aktenzeichen As String, ByVal _Wiedergabe_der_Marke__Bild_() As Byte, ByVal Tag_der_Eintragung_im_Register As String, ByVal Aktenzustand As String) As VWTEMPQUICKVIEWRow - Dim rowVWTEMPQUICKVIEWRow As VWTEMPQUICKVIEWRow = CType(Me.NewRow,VWTEMPQUICKVIEWRow) + Dim rowVWTEMPQUICKVIEWRow As VWTEMPQUICKVIEWRow = CType(Me.NewRow, VWTEMPQUICKVIEWRow) Dim columnValuesArray() As Object = New Object() {_Record_ID, Aktenzeichen, _Wiedergabe_der_Marke__Bild_, Tag_der_Eintragung_im_Register, Aktenzustand} rowVWTEMPQUICKVIEWRow.ItemArray = columnValuesArray Me.Rows.Add(rowVWTEMPQUICKVIEWRow) Return rowVWTEMPQUICKVIEWRow End Function - - _ + + _ Public Function FindBy_Record_ID(ByVal _Record_ID As Integer) As VWTEMPQUICKVIEWRow - Return CType(Me.Rows.Find(New Object() {_Record_ID}),VWTEMPQUICKVIEWRow) + Return CType(Me.Rows.Find(New Object() {_Record_ID}), VWTEMPQUICKVIEWRow) End Function - - _ + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As VWTEMPQUICKVIEWDataTable = CType(MyBase.Clone,VWTEMPQUICKVIEWDataTable) - cln.InitVars + Dim cln As VWTEMPQUICKVIEWDataTable = CType(MyBase.Clone, VWTEMPQUICKVIEWDataTable) + cln.InitVars() Return cln End Function - - _ + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New VWTEMPQUICKVIEWDataTable() End Function - - _ + + _ Friend Sub InitVars() Me._columnRecord_ID = MyBase.Columns("Record-ID") Me.columnAktenzeichen = MyBase.Columns("Aktenzeichen") @@ -2164,9 +2195,9 @@ Partial Public Class DD_ECMAdmin Me.columnTag_der_Eintragung_im_Register = MyBase.Columns("Tag der Eintragung im Register") Me.columnAktenzustand = MyBase.Columns("Aktenzustand") End Sub - - _ + + _ Private Sub InitClass() Me._columnRecord_ID = New Global.System.Data.DataColumn("Record-ID", GetType(Integer), Nothing, Global.System.Data.MappingType.Element) Me._columnRecord_ID.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "_columnRecord_ID") @@ -2182,80 +2213,80 @@ Partial Public Class DD_ECMAdmin MyBase.Columns.Add(Me.columnTag_der_Eintragung_im_Register) Me.columnAktenzustand = New Global.System.Data.DataColumn("Aktenzustand", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnAktenzustand) - Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me._columnRecord_ID}, true)) - Me._columnRecord_ID.AllowDBNull = false - Me._columnRecord_ID.Unique = true - Me.columnAktenzeichen.ReadOnly = true + Me.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me._columnRecord_ID}, True)) + Me._columnRecord_ID.AllowDBNull = False + Me._columnRecord_ID.Unique = True + Me.columnAktenzeichen.ReadOnly = True Me.columnAktenzeichen.MaxLength = 2147483647 - Me._columnWiedergabe_der_Marke__Bild_.ReadOnly = true - Me.columnTag_der_Eintragung_im_Register.ReadOnly = true + Me._columnWiedergabe_der_Marke__Bild_.ReadOnly = True + Me.columnTag_der_Eintragung_im_Register.ReadOnly = True Me.columnTag_der_Eintragung_im_Register.MaxLength = 2147483647 - Me.columnAktenzustand.ReadOnly = true + Me.columnAktenzustand.ReadOnly = True Me.columnAktenzustand.MaxLength = 2147483647 End Sub - - _ + + _ Public Function NewVWTEMPQUICKVIEWRow() As VWTEMPQUICKVIEWRow - Return CType(Me.NewRow,VWTEMPQUICKVIEWRow) + Return CType(Me.NewRow, VWTEMPQUICKVIEWRow) End Function - - _ + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New VWTEMPQUICKVIEWRow(builder) End Function - - _ + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(VWTEMPQUICKVIEWRow) End Function - - _ + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.VWTEMPQUICKVIEWRowChangedEvent) Is Nothing) Then - RaiseEvent VWTEMPQUICKVIEWRowChanged(Me, New VWTEMPQUICKVIEWRowChangeEvent(CType(e.Row,VWTEMPQUICKVIEWRow), e.Action)) + RaiseEvent VWTEMPQUICKVIEWRowChanged(Me, New VWTEMPQUICKVIEWRowChangeEvent(CType(e.Row, VWTEMPQUICKVIEWRow), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.VWTEMPQUICKVIEWRowChangingEvent) Is Nothing) Then - RaiseEvent VWTEMPQUICKVIEWRowChanging(Me, New VWTEMPQUICKVIEWRowChangeEvent(CType(e.Row,VWTEMPQUICKVIEWRow), e.Action)) + RaiseEvent VWTEMPQUICKVIEWRowChanging(Me, New VWTEMPQUICKVIEWRowChangeEvent(CType(e.Row, VWTEMPQUICKVIEWRow), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.VWTEMPQUICKVIEWRowDeletedEvent) Is Nothing) Then - RaiseEvent VWTEMPQUICKVIEWRowDeleted(Me, New VWTEMPQUICKVIEWRowChangeEvent(CType(e.Row,VWTEMPQUICKVIEWRow), e.Action)) + RaiseEvent VWTEMPQUICKVIEWRowDeleted(Me, New VWTEMPQUICKVIEWRowChangeEvent(CType(e.Row, VWTEMPQUICKVIEWRow), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.VWTEMPQUICKVIEWRowDeletingEvent) Is Nothing) Then - RaiseEvent VWTEMPQUICKVIEWRowDeleting(Me, New VWTEMPQUICKVIEWRowChangeEvent(CType(e.Row,VWTEMPQUICKVIEWRow), e.Action)) + RaiseEvent VWTEMPQUICKVIEWRowDeleting(Me, New VWTEMPQUICKVIEWRowChangeEvent(CType(e.Row, VWTEMPQUICKVIEWRow), e.Action)) End If End Sub - - _ + + _ Public Sub RemoveVWTEMPQUICKVIEWRow(ByVal row As VWTEMPQUICKVIEWRow) 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() @@ -2284,35 +2315,35 @@ Partial Public Class DD_ECMAdmin If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then - s1.Close + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -2320,35 +2351,35 @@ Partial Public Class DD_ECMAdmin Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + _ Partial Public Class TBWH_ENTITIESDataTable Inherits Global.System.Data.TypedTableBase(Of TBWH_ENTITIESRow) - + 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 + MyBase.New() Me.TableName = "TBWH_ENTITIES" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New + MyBase.New() Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive @@ -2362,113 +2393,113 @@ Partial Public Class DD_ECMAdmin Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - _ + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) - Me.InitVars + Me.InitVars() End Sub - - _ + + _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + _ Public ReadOnly Property 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 - - _ + + _ 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 TBWH_ENTITIESRow + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TBWH_ENTITIESRow Get - Return CType(Me.Rows(index),TBWH_ENTITIESRow) + Return CType(Me.Rows(index), TBWH_ENTITIESRow) End Get End Property - - _ + + _ Public Event TBWH_ENTITIESRowChanging As TBWH_ENTITIESRowChangeEventHandler - - _ + + _ Public Event TBWH_ENTITIESRowChanged As TBWH_ENTITIESRowChangeEventHandler - - _ + + _ Public Event TBWH_ENTITIESRowDeleting As TBWH_ENTITIESRowChangeEventHandler - - _ + + _ Public Event TBWH_ENTITIESRowDeleted As TBWH_ENTITIESRowChangeEventHandler - - _ + + _ Public Overloads Sub AddTBWH_ENTITIESRow(ByVal row As TBWH_ENTITIESRow) Me.Rows.Add(row) End Sub - - _ + + _ 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 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) + Return CType(Me.Rows.Find(New Object() {GUID}), TBWH_ENTITIESRow) End Function - - _ + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBWH_ENTITIESDataTable = CType(MyBase.Clone,TBWH_ENTITIESDataTable) - cln.InitVars + Dim cln As TBWH_ENTITIESDataTable = CType(MyBase.Clone, TBWH_ENTITIESDataTable) + cln.InitVars() Return cln End Function - - _ + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_ENTITIESDataTable() End Function - - _ + + _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") Me.columnCAPTION = MyBase.Columns("CAPTION") 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) @@ -2476,81 +2507,81 @@ Partial Public Class DD_ECMAdmin 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.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.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.ReadOnly = True Me.columnCAPTION.MaxLength = 100 End Sub - - _ + + _ Public Function NewTBWH_ENTITIESRow() As TBWH_ENTITIESRow - Return CType(Me.NewRow,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 TBWH_ENTITIESRow(builder) End Function - - _ + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_ENTITIESRow) End Function - - _ + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_ENTITIESRowChangedEvent) Is Nothing) Then - RaiseEvent TBWH_ENTITIESRowChanged(Me, New TBWH_ENTITIESRowChangeEvent(CType(e.Row,TBWH_ENTITIESRow), e.Action)) + RaiseEvent TBWH_ENTITIESRowChanged(Me, New TBWH_ENTITIESRowChangeEvent(CType(e.Row, TBWH_ENTITIESRow), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_ENTITIESRowChangingEvent) Is Nothing) Then - RaiseEvent TBWH_ENTITIESRowChanging(Me, New TBWH_ENTITIESRowChangeEvent(CType(e.Row,TBWH_ENTITIESRow), e.Action)) + RaiseEvent TBWH_ENTITIESRowChanging(Me, New TBWH_ENTITIESRowChangeEvent(CType(e.Row, TBWH_ENTITIESRow), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_ENTITIESRowDeletedEvent) Is Nothing) Then - RaiseEvent TBWH_ENTITIESRowDeleted(Me, New TBWH_ENTITIESRowChangeEvent(CType(e.Row,TBWH_ENTITIESRow), e.Action)) + RaiseEvent TBWH_ENTITIESRowDeleted(Me, New TBWH_ENTITIESRowChangeEvent(CType(e.Row, TBWH_ENTITIESRow), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_ENTITIESRowDeletingEvent) Is Nothing) Then - RaiseEvent TBWH_ENTITIESRowDeleting(Me, New TBWH_ENTITIESRowChangeEvent(CType(e.Row,TBWH_ENTITIESRow), e.Action)) + RaiseEvent TBWH_ENTITIESRowDeleting(Me, New TBWH_ENTITIESRowChangeEvent(CType(e.Row, TBWH_ENTITIESRow), e.Action)) End If End Sub - - _ + + _ Public Sub RemoveTBWH_ENTITIESRow(ByVal row As TBWH_ENTITIESRow) 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() @@ -2579,35 +2610,35 @@ Partial Public Class DD_ECMAdmin If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then - s1.Close + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -2615,33 +2646,33 @@ Partial Public Class DD_ECMAdmin Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + _ Partial Public Class TBWH_USER_GROUPSDataTable Inherits Global.System.Data.TypedTableBase(Of TBWH_USER_GROUPSRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnNAME As Global.System.Data.DataColumn - - _ + + _ Public Sub New() - MyBase.New + MyBase.New() Me.TableName = "TBWH_USER_GROUPS" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New + MyBase.New() Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive @@ -2655,181 +2686,181 @@ Partial Public Class DD_ECMAdmin Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - _ + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) - Me.InitVars + Me.InitVars() End Sub - - _ + + _ Public ReadOnly Property GUIDColumn() As Global.System.Data.DataColumn Get Return Me.columnGUID End Get End Property - - _ + + _ Public ReadOnly Property NAMEColumn() As Global.System.Data.DataColumn Get Return Me.columnNAME End Get End Property - - _ + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Public Default ReadOnly Property Item(ByVal index As Integer) As TBWH_USER_GROUPSRow + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TBWH_USER_GROUPSRow Get - Return CType(Me.Rows(index),TBWH_USER_GROUPSRow) + Return CType(Me.Rows(index), TBWH_USER_GROUPSRow) End Get 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 Overloads Sub AddTBWH_USER_GROUPSRow(ByVal row As TBWH_USER_GROUPSRow) Me.Rows.Add(row) End Sub - - _ + + _ 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 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 Function FindByGUID(ByVal GUID As Integer) As TBWH_USER_GROUPSRow - Return CType(Me.Rows.Find(New Object() {GUID}),TBWH_USER_GROUPSRow) + Return CType(Me.Rows.Find(New Object() {GUID}), TBWH_USER_GROUPSRow) End Function - - _ + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBWH_USER_GROUPSDataTable = CType(MyBase.Clone,TBWH_USER_GROUPSDataTable) - cln.InitVars + Dim cln As TBWH_USER_GROUPSDataTable = CType(MyBase.Clone, TBWH_USER_GROUPSDataTable) + cln.InitVars() Return cln End Function - - _ + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_USER_GROUPSDataTable() End Function - - _ + + _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnNAME = MyBase.Columns("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.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.Constraints.Add(New Global.System.Data.UniqueConstraint("Constraint1", New Global.System.Data.DataColumn() {Me.columnGUID}, True)) + Me.columnGUID.AutoIncrement = True Me.columnGUID.AutoIncrementSeed = -1 Me.columnGUID.AutoIncrementStep = -1 - Me.columnGUID.AllowDBNull = false - Me.columnGUID.ReadOnly = true - Me.columnGUID.Unique = true + Me.columnGUID.AllowDBNull = False + Me.columnGUID.ReadOnly = True + Me.columnGUID.Unique = True Me.columnNAME.MaxLength = 50 End Sub - - _ + + _ Public Function NewTBWH_USER_GROUPSRow() As TBWH_USER_GROUPSRow - Return CType(Me.NewRow,TBWH_USER_GROUPSRow) + Return CType(Me.NewRow, TBWH_USER_GROUPSRow) End Function - - _ + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_USER_GROUPSRow(builder) End Function - - _ + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_USER_GROUPSRow) End Function - - _ + + _ 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)) + RaiseEvent TBWH_USER_GROUPSRowChanged(Me, New TBWH_USER_GROUPSRowChangeEvent(CType(e.Row, TBWH_USER_GROUPSRow), e.Action)) End If End Sub - - _ + + _ 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)) + RaiseEvent TBWH_USER_GROUPSRowChanging(Me, New TBWH_USER_GROUPSRowChangeEvent(CType(e.Row, TBWH_USER_GROUPSRow), e.Action)) End If End Sub - - _ + + _ 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)) + RaiseEvent TBWH_USER_GROUPSRowDeleted(Me, New TBWH_USER_GROUPSRowChangeEvent(CType(e.Row, TBWH_USER_GROUPSRow), e.Action)) End If End Sub - - _ + + _ 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)) + RaiseEvent TBWH_USER_GROUPSRowDeleting(Me, New TBWH_USER_GROUPSRowChangeEvent(CType(e.Row, TBWH_USER_GROUPSRow), e.Action)) End If End Sub - - _ + + _ Public Sub RemoveTBWH_USER_GROUPSRow(ByVal row As TBWH_USER_GROUPSRow) 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() @@ -2858,35 +2889,35 @@ Partial Public Class DD_ECMAdmin If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then - s1.Close + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -2894,31 +2925,31 @@ Partial Public Class DD_ECMAdmin Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + _ Partial Public Class DT_VORSCHAUDataTable Inherits Global.System.Data.TypedTableBase(Of DT_VORSCHAURow) - + Private columnVALUE As Global.System.Data.DataColumn - - _ + + _ Public Sub New() - MyBase.New + MyBase.New() Me.TableName = "DT_VORSCHAU" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New + MyBase.New() Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive @@ -2932,156 +2963,156 @@ Partial Public Class DD_ECMAdmin Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - _ + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) - Me.InitVars + Me.InitVars() End Sub - - _ + + _ Public ReadOnly Property VALUEColumn() As Global.System.Data.DataColumn Get Return Me.columnVALUE 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 DT_VORSCHAURow + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As DT_VORSCHAURow Get - Return CType(Me.Rows(index),DT_VORSCHAURow) + Return CType(Me.Rows(index), DT_VORSCHAURow) End Get End Property - - _ + + _ 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 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 + 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) + 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)) + 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)) + 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)) + 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)) + 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() @@ -3110,35 +3141,35 @@ Partial Public Class DD_ECMAdmin If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then - s1.Close + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -3146,41 +3177,41 @@ Partial Public Class DD_ECMAdmin 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 - + Private columnID As Global.System.Data.DataColumn - - _ + + _ Public Sub New() - MyBase.New + MyBase.New() Me.TableName = "TBAD_Users" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New + MyBase.New() Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive @@ -3194,123 +3225,123 @@ Partial Public Class DD_ECMAdmin Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - _ + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) - Me.InitVars + Me.InitVars() End Sub - - _ + + _ Public ReadOnly Property 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 IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID 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 TBAD_UsersRow + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TBAD_UsersRow Get - Return CType(Me.Rows(index),TBAD_UsersRow) + 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, ByVal ID As Short) As TBAD_UsersRow - Dim rowTBAD_UsersRow As TBAD_UsersRow = CType(Me.NewRow,TBAD_UsersRow) + Dim rowTBAD_UsersRow As TBAD_UsersRow = CType(Me.NewRow, TBAD_UsersRow) Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} 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 + 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") @@ -3319,9 +3350,9 @@ Partial Public Class DD_ECMAdmin Me.columnEmail = MyBase.Columns("Email") Me.columnID = MyBase.Columns("ID") 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") @@ -3338,71 +3369,71 @@ Partial Public Class DD_ECMAdmin MyBase.Columns.Add(Me.columnEmail) Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) - Me.columnSelect.DefaultValue = CType(false,Boolean) + Me.columnSelect.DefaultValue = CType(False, Boolean) End Sub - - _ + + _ Public Function NewTBAD_UsersRow() As TBAD_UsersRow - Return CType(Me.NewRow,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)) + 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)) + 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)) + 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)) + 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() @@ -3431,35 +3462,35 @@ Partial Public Class DD_ECMAdmin If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then - s1.Close + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -3467,41 +3498,41 @@ Partial Public Class DD_ECMAdmin Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + _ Partial Public Class TBWH_Users1DataTable Inherits Global.System.Data.TypedTableBase(Of TBWH_Users1Row) - + 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 - + Private columnID As Global.System.Data.DataColumn - - _ + + _ Public Sub New() - MyBase.New + MyBase.New() Me.TableName = "TBWH_Users1" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New + MyBase.New() Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive @@ -3515,123 +3546,123 @@ Partial Public Class DD_ECMAdmin Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - _ + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) - Me.InitVars + Me.InitVars() End Sub - - _ + + _ Public ReadOnly Property 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 IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID 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 TBWH_Users1Row + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TBWH_Users1Row Get - Return CType(Me.Rows(index),TBWH_Users1Row) + Return CType(Me.Rows(index), TBWH_Users1Row) End Get End Property - - _ + + _ Public Event TBWH_Users1RowChanging As TBWH_Users1RowChangeEventHandler - - _ + + _ Public Event TBWH_Users1RowChanged As TBWH_Users1RowChangeEventHandler - - _ + + _ Public Event TBWH_Users1RowDeleting As TBWH_Users1RowChangeEventHandler - - _ + + _ Public Event TBWH_Users1RowDeleted As TBWH_Users1RowChangeEventHandler - - _ + + _ Public Overloads Sub AddTBWH_Users1Row(ByVal row As TBWH_Users1Row) Me.Rows.Add(row) End Sub - - _ + + _ Public Overloads Function AddTBWH_Users1Row(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_Users1Row - Dim rowTBWH_Users1Row As TBWH_Users1Row = CType(Me.NewRow,TBWH_Users1Row) + Dim rowTBWH_Users1Row As TBWH_Users1Row = CType(Me.NewRow, TBWH_Users1Row) Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} rowTBWH_Users1Row.ItemArray = columnValuesArray Me.Rows.Add(rowTBWH_Users1Row) Return rowTBWH_Users1Row End Function - - _ + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBWH_Users1DataTable = CType(MyBase.Clone,TBWH_Users1DataTable) - cln.InitVars + Dim cln As TBWH_Users1DataTable = CType(MyBase.Clone, TBWH_Users1DataTable) + cln.InitVars() Return cln End Function - - _ + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_Users1DataTable() End Function - - _ + + _ Friend Sub InitVars() Me.columnSelect = MyBase.Columns("Select") Me.columnUsername = MyBase.Columns("Username") @@ -3640,9 +3671,9 @@ Partial Public Class DD_ECMAdmin Me.columnEmail = MyBase.Columns("Email") Me.columnID = MyBase.Columns("ID") 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") @@ -3659,71 +3690,71 @@ Partial Public Class DD_ECMAdmin MyBase.Columns.Add(Me.columnEmail) Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) - Me.columnSelect.DefaultValue = CType(false,Boolean) + Me.columnSelect.DefaultValue = CType(False, Boolean) End Sub - - _ + + _ Public Function NewTBWH_Users1Row() As TBWH_Users1Row - Return CType(Me.NewRow,TBWH_Users1Row) + Return CType(Me.NewRow, TBWH_Users1Row) End Function - - _ + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_Users1Row(builder) End Function - - _ + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_Users1Row) End Function - - _ + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_Users1RowChangedEvent) Is Nothing) Then - RaiseEvent TBWH_Users1RowChanged(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) + RaiseEvent TBWH_Users1RowChanged(Me, New TBWH_Users1RowChangeEvent(CType(e.Row, TBWH_Users1Row), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_Users1RowChangingEvent) Is Nothing) Then - RaiseEvent TBWH_Users1RowChanging(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) + RaiseEvent TBWH_Users1RowChanging(Me, New TBWH_Users1RowChangeEvent(CType(e.Row, TBWH_Users1Row), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_Users1RowDeletedEvent) Is Nothing) Then - RaiseEvent TBWH_Users1RowDeleted(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) + RaiseEvent TBWH_Users1RowDeleted(Me, New TBWH_Users1RowChangeEvent(CType(e.Row, TBWH_Users1Row), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_Users1RowDeletingEvent) Is Nothing) Then - RaiseEvent TBWH_Users1RowDeleting(Me, New TBWH_Users1RowChangeEvent(CType(e.Row,TBWH_Users1Row), e.Action)) + RaiseEvent TBWH_Users1RowDeleting(Me, New TBWH_Users1RowChangeEvent(CType(e.Row, TBWH_Users1Row), e.Action)) End If End Sub - - _ + + _ Public Sub RemoveTBWH_Users1Row(ByVal row As TBWH_Users1Row) 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() @@ -3752,35 +3783,35 @@ Partial Public Class DD_ECMAdmin If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then - s1.Close + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -3788,41 +3819,41 @@ Partial Public Class DD_ECMAdmin Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + _ Partial Public Class TBWH_Users2DataTable Inherits Global.System.Data.TypedTableBase(Of TBWH_Users2Row) - + 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 - + Private columnID As Global.System.Data.DataColumn - - _ + + _ Public Sub New() - MyBase.New + MyBase.New() Me.TableName = "TBWH_Users2" - Me.BeginInit - Me.InitClass - Me.EndInit + Me.BeginInit() + Me.InitClass() + Me.EndInit() End Sub - - _ + + _ Friend Sub New(ByVal table As Global.System.Data.DataTable) - MyBase.New + MyBase.New() Me.TableName = table.TableName If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then Me.CaseSensitive = table.CaseSensitive @@ -3836,123 +3867,123 @@ Partial Public Class DD_ECMAdmin Me.Prefix = table.Prefix Me.MinimumCapacity = table.MinimumCapacity End Sub - - _ + + _ Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) MyBase.New(info, context) - Me.InitVars + Me.InitVars() End Sub - - _ + + _ Public ReadOnly Property 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 IDColumn() As Global.System.Data.DataColumn Get Return Me.columnID 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 TBWH_Users2Row + + _ + Default Public ReadOnly Property Item(ByVal index As Integer) As TBWH_Users2Row Get - Return CType(Me.Rows(index),TBWH_Users2Row) + Return CType(Me.Rows(index), TBWH_Users2Row) End Get End Property - - _ + + _ Public Event TBWH_Users2RowChanging As TBWH_Users2RowChangeEventHandler - - _ + + _ Public Event TBWH_Users2RowChanged As TBWH_Users2RowChangeEventHandler - - _ + + _ Public Event TBWH_Users2RowDeleting As TBWH_Users2RowChangeEventHandler - - _ + + _ Public Event TBWH_Users2RowDeleted As TBWH_Users2RowChangeEventHandler - - _ + + _ Public Overloads Sub AddTBWH_Users2Row(ByVal row As TBWH_Users2Row) Me.Rows.Add(row) End Sub - - _ + + _ Public Overloads Function AddTBWH_Users2Row(ByVal _Select As Boolean, ByVal Username As String, ByVal Prename As String, ByVal Surname As String, ByVal Email As String, ByVal ID As Short) As TBWH_Users2Row - Dim rowTBWH_Users2Row As TBWH_Users2Row = CType(Me.NewRow,TBWH_Users2Row) + Dim rowTBWH_Users2Row As TBWH_Users2Row = CType(Me.NewRow, TBWH_Users2Row) Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email, ID} rowTBWH_Users2Row.ItemArray = columnValuesArray Me.Rows.Add(rowTBWH_Users2Row) Return rowTBWH_Users2Row End Function - - _ + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBWH_Users2DataTable = CType(MyBase.Clone,TBWH_Users2DataTable) - cln.InitVars + Dim cln As TBWH_Users2DataTable = CType(MyBase.Clone, TBWH_Users2DataTable) + cln.InitVars() Return cln End Function - - _ + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBWH_Users2DataTable() End Function - - _ + + _ Friend Sub InitVars() Me.columnSelect = MyBase.Columns("Select") Me.columnUsername = MyBase.Columns("Username") @@ -3961,9 +3992,9 @@ Partial Public Class DD_ECMAdmin Me.columnEmail = MyBase.Columns("Email") Me.columnID = MyBase.Columns("ID") 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") @@ -3980,71 +4011,71 @@ Partial Public Class DD_ECMAdmin MyBase.Columns.Add(Me.columnEmail) Me.columnID = New Global.System.Data.DataColumn("ID", GetType(Short), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnID) - Me.columnSelect.DefaultValue = CType(false,Boolean) + Me.columnSelect.DefaultValue = CType(False, Boolean) End Sub - - _ + + _ Public Function NewTBWH_Users2Row() As TBWH_Users2Row - Return CType(Me.NewRow,TBWH_Users2Row) + Return CType(Me.NewRow, TBWH_Users2Row) End Function - - _ + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBWH_Users2Row(builder) End Function - - _ + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBWH_Users2Row) End Function - - _ + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBWH_Users2RowChangedEvent) Is Nothing) Then - RaiseEvent TBWH_Users2RowChanged(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) + RaiseEvent TBWH_Users2RowChanged(Me, New TBWH_Users2RowChangeEvent(CType(e.Row, TBWH_Users2Row), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowChanging(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanging(e) If (Not (Me.TBWH_Users2RowChangingEvent) Is Nothing) Then - RaiseEvent TBWH_Users2RowChanging(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) + RaiseEvent TBWH_Users2RowChanging(Me, New TBWH_Users2RowChangeEvent(CType(e.Row, TBWH_Users2Row), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowDeleted(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleted(e) If (Not (Me.TBWH_Users2RowDeletedEvent) Is Nothing) Then - RaiseEvent TBWH_Users2RowDeleted(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) + RaiseEvent TBWH_Users2RowDeleted(Me, New TBWH_Users2RowChangeEvent(CType(e.Row, TBWH_Users2Row), e.Action)) End If End Sub - - _ + + _ Protected Overrides Sub OnRowDeleting(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowDeleting(e) If (Not (Me.TBWH_Users2RowDeletingEvent) Is Nothing) Then - RaiseEvent TBWH_Users2RowDeleting(Me, New TBWH_Users2RowChangeEvent(CType(e.Row,TBWH_Users2Row), e.Action)) + RaiseEvent TBWH_Users2RowDeleting(Me, New TBWH_Users2RowChangeEvent(CType(e.Row, TBWH_Users2Row), e.Action)) End If End Sub - - _ + + _ Public Sub RemoveTBWH_Users2Row(ByVal row As TBWH_Users2Row) 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() @@ -4073,35 +4104,35 @@ Partial Public Class DD_ECMAdmin If xs.Contains(dsSchema.TargetNamespace) Then Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() - Try + Try Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing dsSchema.Write(s1) Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator Do While schemas.MoveNext - schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + schema = CType(schemas.Current, Global.System.Xml.Schema.XmlSchema) s2.SetLength(0) schema.Write(s2) If (s1.Length = s2.Length) Then s1.Position = 0 s2.Position = 0 - - Do While ((s1.Position <> s1.Length) _ + + Do While ((s1.Position <> s1.Length) _ AndAlso (s1.ReadByte = s2.ReadByte)) - - + + Loop If (s1.Position = s1.Length) Then Return type End If End If - + Loop Finally If (Not (s1) Is Nothing) Then - s1.Close + s1.Close() End If If (Not (s2) Is Nothing) Then - s2.Close + s2.Close() End If End Try End If @@ -4109,2199 +4140,2238 @@ Partial Public Class DD_ECMAdmin 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) + 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) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn), Integer) End Get - Set + 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) + 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 + 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) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn), Integer) End Get - Set + 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) + 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 + 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) + 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 + 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) + 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 + 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) + 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 + 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()) + 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 + 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) + 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 + 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) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.LANGUAGEColumn), String) End Get - Set + 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()) + 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) + 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) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.GUIDColumn), Integer) End Get - Set + 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) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn), Integer) End Get - Set + 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) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.FORM_IDColumn), Integer) End Get - Set + 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) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.PARENT_IDColumn), Integer) End Get - Set + 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) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LEVEL1_SELECTColumn), Boolean) End Get - Set + 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) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEQUENCEColumn), Integer) End Get - Set + 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) + 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"& _ + 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 + 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) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE2Column), String) End Get - Set + 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) + 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"& _ + 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 + 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) + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.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_DETAIL ist DBNul" & _ + "l.", e) + End Try End Get - Set + 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) + 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"& _ + 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 + 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) + 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"& _ + 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 + 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) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME1Column), String) End Get - Set + 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) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column), String) End Get - Set + Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.COLUMN_NAME2Column) = value End Set End Property - - _ + + _ Public Property WINDREAM_SEARCH() As String Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn),String) + Try + 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 WINDREAM_SEARCH in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _ + 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 + Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = value End Set End Property - - _ + + _ Public Property SEARCH_PATTERN1() As String Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column),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 "& _ + 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 + Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = value End Set End Property - - _ + + _ Public Property SEARCH_PATTERN2() As String Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column),String) + Try + 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 SEARCH_PATTERN2 in Tabelle TBPMO_FORM_CONSTRUCTOR_DETAIL ist "& _ + 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 + Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = value End Set End Property - - _ + + _ Public Property SEARCH_PATTERN3() As String Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column),String) + 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 "& _ + 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 + 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) + 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 "& _ + 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 + 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) + 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 "& _ + 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 + 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) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.LOAD_DIRECTColumn), Boolean) End Get - Set + 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) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_QUICK_VIEWColumn), String) End Get - Set + Set(value As String) Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_QUICK_VIEWColumn) = value End Set End Property - - _ + + _ + Public Property CONTROL_DOCTYPE_MATCH() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONTROL_DOCTYPE_MATCHColumn), Integer) + End Get + Set(value As Integer) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONTROL_DOCTYPE_MATCHColumn) = value + End Set + End Property + + _ + Public Property SQL_RIGHT_READ_AND_VIEW_ONLY() As String + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_RIGHT_READ_AND_VIEW_ONLYColumn), String) + End Get + Set(value As String) + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_RIGHT_READ_AND_VIEW_ONLYColumn) = 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) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")), TBPMO_FORM_CONSTRUCTORRow) End Get - Set + 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 IsADDED_WHENNull() As Boolean + Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) + End Function + + _ + Public Sub SetADDED_WHENNull() + Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn) = 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) + Me.tableTBDD_CONNECTION = CType(Me.Table, TBDD_CONNECTIONDataTable) End Sub - - _ + + _ Public Property GUID() As Short Get - Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn),Short) + Return CType(Me(Me.tableTBDD_CONNECTION.GUIDColumn), Short) End Get - Set + 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) + 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 + Set(value As String) Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = value End Set End Property - - _ + + _ Public Property SQL_PROVIDER() As String Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn),String) + 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 + Set(value As String) Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = value End Set End Property - - _ + + _ Public Property SERVER() As String Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.SERVERColumn),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 + Set(value As String) Me(Me.tableTBDD_CONNECTION.SERVERColumn) = value End Set End Property - - _ + + _ Public Property DATENBANK() As String Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.DATENBANKColumn),String) + Try + 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 DATENBANK in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get - Set + Set(value As String) Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = value End Set End Property - - _ + + _ Public Property USERNAME() As String Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.USERNAMEColumn),String) + Try + 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 USERNAME in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get - Set + Set(value As String) Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = value End Set End Property - - _ + + _ Public Property PASSWORD() As String Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.PASSWORDColumn),String) + Try + 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 PASSWORD in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get - Set + Set(value As String) Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = value End Set End Property - - _ + + _ Public Property BEMERKUNG() As String Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn),String) + Try + 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 BEMERKUNG in Tabelle TBDD_CONNECTION ist DBNull.", e) End Try End Get - Set + 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) + Return CType(Me(Me.tableTBDD_CONNECTION.AKTIVColumn), Boolean) End Get - Set + Set(value As Boolean) Me(Me.tableTBDD_CONNECTION.AKTIVColumn) = value End Set End Property - - _ + + _ Public Property ERSTELLTWER() As String Get - Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn),String) + Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn), String) End Get - Set + Set(value As String) Me(Me.tableTBDD_CONNECTION.ERSTELLTWERColumn) = value End Set End Property - - _ + + _ Public Property ERSTELLTWANN() As Date Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn),Date) + 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 + Set(value As Date) Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = value End Set End Property - - _ + + _ Public Property GEANDERTWER() As String Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn),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 + Set(value As String) Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = value End Set End Property - - _ + + _ Public Property GEAENDERTWANN() As Date Get - Try - Return CType(Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn),Date) + 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 + Set(value As Date) Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = value End Set End Property - - _ + + _ Public Function IsBEZEICHNUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) End Function - - _ + + _ Public Sub SetBEZEICHNUNGNull() Me(Me.tableTBDD_CONNECTION.BEZEICHNUNGColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsSQL_PROVIDERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) End Function - - _ + + _ Public Sub SetSQL_PROVIDERNull() Me(Me.tableTBDD_CONNECTION.SQL_PROVIDERColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsSERVERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.SERVERColumn) End Function - - _ + + _ Public Sub SetSERVERNull() Me(Me.tableTBDD_CONNECTION.SERVERColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsDATENBANKNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.DATENBANKColumn) End Function - - _ + + _ Public Sub SetDATENBANKNull() Me(Me.tableTBDD_CONNECTION.DATENBANKColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsUSERNAMENull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.USERNAMEColumn) End Function - - _ + + _ Public Sub SetUSERNAMENull() Me(Me.tableTBDD_CONNECTION.USERNAMEColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsPASSWORDNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.PASSWORDColumn) End Function - - _ + + _ Public Sub SetPASSWORDNull() Me(Me.tableTBDD_CONNECTION.PASSWORDColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsBEMERKUNGNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) End Function - - _ + + _ Public Sub SetBEMERKUNGNull() Me(Me.tableTBDD_CONNECTION.BEMERKUNGColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsERSTELLTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) End Function - - _ + + _ Public Sub SetERSTELLTWANNNull() Me(Me.tableTBDD_CONNECTION.ERSTELLTWANNColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsGEANDERTWERNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) End Function - - _ + + _ Public Sub SetGEANDERTWERNull() Me(Me.tableTBDD_CONNECTION.GEANDERTWERColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsGEAENDERTWANNNull() As Boolean Return Me.IsNull(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) End Function - - _ + + _ Public Sub SetGEAENDERTWANNNull() Me(Me.tableTBDD_CONNECTION.GEAENDERTWANNColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class VWTEMPQUICKVIEWRow Inherits Global.System.Data.DataRow - + Private tableVWTEMPQUICKVIEW As VWTEMPQUICKVIEWDataTable - - _ + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableVWTEMPQUICKVIEW = CType(Me.Table,VWTEMPQUICKVIEWDataTable) + Me.tableVWTEMPQUICKVIEW = CType(Me.Table, VWTEMPQUICKVIEWDataTable) End Sub - - _ + + _ Public Property _Record_ID() As Integer Get - Return CType(Me(Me.tableVWTEMPQUICKVIEW._Record_IDColumn),Integer) + Return CType(Me(Me.tableVWTEMPQUICKVIEW._Record_IDColumn), Integer) End Get - Set + Set(value As Integer) Me(Me.tableVWTEMPQUICKVIEW._Record_IDColumn) = value End Set End Property - - _ + + _ Public Property Aktenzeichen() As String Get - Try - Return CType(Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn),String) + Try + Return CType(Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn), 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) End Try End Get - Set + Set(value As String) Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) = value End Set End Property - - _ + + _ Public Property _Wiedergabe_der_Marke__Bild_() As Byte() Get - Try - Return CType(Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column),Byte()) + Try + 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 Wiedergabe der Marke (Bild) in Tabelle VWTEMPQUICKVIEW ist DB"& _ + 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 + Set(value As Byte()) Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) = value End Set End Property - - _ + + _ Public Property Tag_der_Eintragung_im_Register() As String Get - Try - Return CType(Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn),String) + Try + 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 Tag der Eintragung im Register in Tabelle VWTEMPQUICKVIEW ist"& _ + 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 + Set(value As String) Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) = value End Set End Property - - _ + + _ Public Property Aktenzustand() As String Get - Try - Return CType(Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn),String) + Try + Return CType(Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn), 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) End Try End Get - Set + Set(value As String) Me(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) = value End Set End Property - - _ + + _ Public Function IsAktenzeichenNull() As Boolean Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) End Function - - _ + + _ Public Sub SetAktenzeichenNull() Me(Me.tableVWTEMPQUICKVIEW.AktenzeichenColumn) = 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) End Function - - _ + + _ Public Sub Set_Wiedergabe_der_Marke__Bild_Null() Me(Me.tableVWTEMPQUICKVIEW._Wiedergabe_der_Marke__Bild_Column) = 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) End Function - - _ + + _ Public Sub SetTag_der_Eintragung_im_RegisterNull() Me(Me.tableVWTEMPQUICKVIEW.Tag_der_Eintragung_im_RegisterColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsAktenzustandNull() As Boolean Return Me.IsNull(Me.tableVWTEMPQUICKVIEW.AktenzustandColumn) End Function - - _ + + _ 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 - - _ + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBWH_ENTITIES = CType(Me.Table,TBWH_ENTITIESDataTable) + Me.tableTBWH_ENTITIES = CType(Me.Table, TBWH_ENTITIESDataTable) End Sub - - _ + + _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBWH_ENTITIES.GUIDColumn),Integer) + Return CType(Me(Me.tableTBWH_ENTITIES.GUIDColumn), Integer) End Get - Set + Set(value As Integer) Me(Me.tableTBWH_ENTITIES.GUIDColumn) = value End Set End Property - - _ + + _ Public Property FORM_TITLE() As String Get - Return CType(Me(Me.tableTBWH_ENTITIES.FORM_TITLEColumn),String) + Return CType(Me(Me.tableTBWH_ENTITIES.FORM_TITLEColumn), String) End Get - Set + Set(value As String) Me(Me.tableTBWH_ENTITIES.FORM_TITLEColumn) = value End Set End Property - - _ + + _ Public Property CAPTION() As String Get - Try - Return CType(Me(Me.tableTBWH_ENTITIES.CAPTIONColumn),String) + 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 + Set(value As String) Me(Me.tableTBWH_ENTITIES.CAPTIONColumn) = value End Set End Property - - _ + + _ Public Function IsCAPTIONNull() As Boolean Return Me.IsNull(Me.tableTBWH_ENTITIES.CAPTIONColumn) End Function - - _ + + _ Public Sub SetCAPTIONNull() Me(Me.tableTBWH_ENTITIES.CAPTIONColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBWH_USER_GROUPSRow Inherits Global.System.Data.DataRow - + Private tableTBWH_USER_GROUPS As TBWH_USER_GROUPSDataTable - - _ + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBWH_USER_GROUPS = CType(Me.Table,TBWH_USER_GROUPSDataTable) + Me.tableTBWH_USER_GROUPS = CType(Me.Table, TBWH_USER_GROUPSDataTable) End Sub - - _ + + _ Public Property GUID() As Integer Get - Return CType(Me(Me.tableTBWH_USER_GROUPS.GUIDColumn),Integer) + Return CType(Me(Me.tableTBWH_USER_GROUPS.GUIDColumn), Integer) End Get - Set + Set(value As Integer) Me(Me.tableTBWH_USER_GROUPS.GUIDColumn) = value End Set End Property - - _ + + _ Public Property NAME() As String Get - Try - Return CType(Me(Me.tableTBWH_USER_GROUPS.NAMEColumn),String) + 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 + Set(value As String) Me(Me.tableTBWH_USER_GROUPS.NAMEColumn) = value End Set End Property - - _ + + _ Public Function IsNAMENull() As Boolean Return Me.IsNull(Me.tableTBWH_USER_GROUPS.NAMEColumn) End Function - - _ + + _ 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 - - _ + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableDT_VORSCHAU = CType(Me.Table,DT_VORSCHAUDataTable) + Me.tableDT_VORSCHAU = CType(Me.Table, DT_VORSCHAUDataTable) End Sub - - _ + + _ Public Property VALUE() As String Get - Try - Return CType(Me(Me.tableDT_VORSCHAU.VALUEColumn),String) + 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 + 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 Sub SetVALUENull() Me(Me.tableDT_VORSCHAU.VALUEColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBAD_UsersRow Inherits Global.System.Data.DataRow - + Private tableTBAD_Users As TBAD_UsersDataTable - - _ + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBAD_Users = CType(Me.Table,TBAD_UsersDataTable) + Me.tableTBAD_Users = CType(Me.Table, TBAD_UsersDataTable) End Sub - - _ + + _ Public Property _Select() As Boolean Get - Try - Return CType(Me(Me.tableTBAD_Users.SelectColumn),Boolean) + 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 + Set(value As Boolean) Me(Me.tableTBAD_Users.SelectColumn) = value End Set End Property - - _ + + _ Public Property Username() As String Get - Try - Return CType(Me(Me.tableTBAD_Users.UsernameColumn),String) + Try + 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 Username in Tabelle TBAD_Users ist DBNull.", e) End Try End Get - Set + Set(value As String) Me(Me.tableTBAD_Users.UsernameColumn) = value End Set End Property - - _ + + _ Public Property Prename() As String Get - Try - Return CType(Me(Me.tableTBAD_Users.PrenameColumn),String) + Try + 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 Prename in Tabelle TBAD_Users ist DBNull.", e) End Try End Get - Set + Set(value As String) Me(Me.tableTBAD_Users.PrenameColumn) = value End Set End Property - - _ + + _ Public Property Surname() As String Get - Try - Return CType(Me(Me.tableTBAD_Users.SurnameColumn),String) + Try + 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 Surname in Tabelle TBAD_Users ist DBNull.", e) End Try End Get - Set + Set(value As String) Me(Me.tableTBAD_Users.SurnameColumn) = value End Set End Property - - _ + + _ Public Property Email() As String Get - Try - Return CType(Me(Me.tableTBAD_Users.EmailColumn),String) + Try + 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 Email in Tabelle TBAD_Users ist DBNull.", e) End Try End Get - Set + Set(value As String) Me(Me.tableTBAD_Users.EmailColumn) = value End Set End Property - - _ + + _ Public Property ID() As Short Get - Try - Return CType(Me(Me.tableTBAD_Users.IDColumn),Short) + Try + Return CType(Me(Me.tableTBAD_Users.IDColumn), Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBAD_Users ist DBNull.", e) End Try End Get - Set + Set(value As Short) Me(Me.tableTBAD_Users.IDColumn) = value End Set End Property - - _ + + _ Public Function Is_SelectNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.SelectColumn) End Function - - _ + + _ Public Sub Set_SelectNull() Me(Me.tableTBAD_Users.SelectColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsUsernameNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.UsernameColumn) End Function - - _ + + _ Public Sub SetUsernameNull() Me(Me.tableTBAD_Users.UsernameColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsPrenameNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.PrenameColumn) End Function - - _ + + _ Public Sub SetPrenameNull() Me(Me.tableTBAD_Users.PrenameColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsSurnameNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.SurnameColumn) End Function - - _ + + _ 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 - - _ + + _ Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBAD_Users.IDColumn) End Function - - _ + + _ Public Sub SetIDNull() Me(Me.tableTBAD_Users.IDColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBWH_Users1Row Inherits Global.System.Data.DataRow - + Private tableTBWH_Users1 As TBWH_Users1DataTable - - _ + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBWH_Users1 = CType(Me.Table,TBWH_Users1DataTable) + Me.tableTBWH_Users1 = CType(Me.Table, TBWH_Users1DataTable) End Sub - - _ + + _ Public Property _Select() As Boolean Get - Try - Return CType(Me(Me.tableTBWH_Users1.SelectColumn),Boolean) + Try + Return CType(Me(Me.tableTBWH_Users1.SelectColumn), Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBWH_Users1 ist DBNull.", e) End Try End Get - Set + Set(value As Boolean) Me(Me.tableTBWH_Users1.SelectColumn) = value End Set End Property - - _ + + _ Public Property Username() As String Get - Try - Return CType(Me(Me.tableTBWH_Users1.UsernameColumn),String) + Try + Return CType(Me(Me.tableTBWH_Users1.UsernameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBWH_Users1 ist DBNull.", e) End Try End Get - Set + Set(value As String) Me(Me.tableTBWH_Users1.UsernameColumn) = value End Set End Property - - _ + + _ Public Property Prename() As String Get - Try - Return CType(Me(Me.tableTBWH_Users1.PrenameColumn),String) + Try + Return CType(Me(Me.tableTBWH_Users1.PrenameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBWH_Users1 ist DBNull.", e) End Try End Get - Set + Set(value As String) Me(Me.tableTBWH_Users1.PrenameColumn) = value End Set End Property - - _ + + _ Public Property Surname() As String Get - Try - Return CType(Me(Me.tableTBWH_Users1.SurnameColumn),String) + Try + Return CType(Me(Me.tableTBWH_Users1.SurnameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBWH_Users1 ist DBNull.", e) End Try End Get - Set + Set(value As String) Me(Me.tableTBWH_Users1.SurnameColumn) = value End Set End Property - - _ + + _ Public Property Email() As String Get - Try - Return CType(Me(Me.tableTBWH_Users1.EmailColumn),String) + Try + Return CType(Me(Me.tableTBWH_Users1.EmailColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBWH_Users1 ist DBNull.", e) End Try End Get - Set + Set(value As String) Me(Me.tableTBWH_Users1.EmailColumn) = value End Set End Property - - _ + + _ Public Property ID() As Short Get - Try - Return CType(Me(Me.tableTBWH_Users1.IDColumn),Short) + Try + Return CType(Me(Me.tableTBWH_Users1.IDColumn), Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBWH_Users1 ist DBNull.", e) End Try End Get - Set + Set(value As Short) Me(Me.tableTBWH_Users1.IDColumn) = value End Set End Property - - _ + + _ Public Function Is_SelectNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.SelectColumn) End Function - - _ + + _ Public Sub Set_SelectNull() Me(Me.tableTBWH_Users1.SelectColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsUsernameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.UsernameColumn) End Function - - _ + + _ Public Sub SetUsernameNull() Me(Me.tableTBWH_Users1.UsernameColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsPrenameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.PrenameColumn) End Function - - _ + + _ Public Sub SetPrenameNull() Me(Me.tableTBWH_Users1.PrenameColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsSurnameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.SurnameColumn) End Function - - _ + + _ Public Sub SetSurnameNull() Me(Me.tableTBWH_Users1.SurnameColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsEmailNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.EmailColumn) End Function - - _ + + _ Public Sub SetEmailNull() Me(Me.tableTBWH_Users1.EmailColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users1.IDColumn) End Function - - _ + + _ Public Sub SetIDNull() Me(Me.tableTBWH_Users1.IDColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBWH_Users2Row Inherits Global.System.Data.DataRow - + Private tableTBWH_Users2 As TBWH_Users2DataTable - - _ + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBWH_Users2 = CType(Me.Table,TBWH_Users2DataTable) + Me.tableTBWH_Users2 = CType(Me.Table, TBWH_Users2DataTable) End Sub - - _ + + _ Public Property _Select() As Boolean Get - Try - Return CType(Me(Me.tableTBWH_Users2.SelectColumn),Boolean) + Try + Return CType(Me(Me.tableTBWH_Users2.SelectColumn), Boolean) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Select in Tabelle TBWH_Users2 ist DBNull.", e) End Try End Get - Set + Set(value As Boolean) Me(Me.tableTBWH_Users2.SelectColumn) = value End Set End Property - - _ + + _ Public Property Username() As String Get - Try - Return CType(Me(Me.tableTBWH_Users2.UsernameColumn),String) + Try + Return CType(Me(Me.tableTBWH_Users2.UsernameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Username in Tabelle TBWH_Users2 ist DBNull.", e) End Try End Get - Set + Set(value As String) Me(Me.tableTBWH_Users2.UsernameColumn) = value End Set End Property - - _ + + _ Public Property Prename() As String Get - Try - Return CType(Me(Me.tableTBWH_Users2.PrenameColumn),String) + Try + Return CType(Me(Me.tableTBWH_Users2.PrenameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Prename in Tabelle TBWH_Users2 ist DBNull.", e) End Try End Get - Set + Set(value As String) Me(Me.tableTBWH_Users2.PrenameColumn) = value End Set End Property - - _ + + _ Public Property Surname() As String Get - Try - Return CType(Me(Me.tableTBWH_Users2.SurnameColumn),String) + Try + Return CType(Me(Me.tableTBWH_Users2.SurnameColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Surname in Tabelle TBWH_Users2 ist DBNull.", e) End Try End Get - Set + Set(value As String) Me(Me.tableTBWH_Users2.SurnameColumn) = value End Set End Property - - _ + + _ Public Property Email() As String Get - Try - Return CType(Me(Me.tableTBWH_Users2.EmailColumn),String) + Try + Return CType(Me(Me.tableTBWH_Users2.EmailColumn), String) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte Email in Tabelle TBWH_Users2 ist DBNull.", e) End Try End Get - Set + Set(value As String) Me(Me.tableTBWH_Users2.EmailColumn) = value End Set End Property - - _ + + _ Public Property ID() As Short Get - Try - Return CType(Me(Me.tableTBWH_Users2.IDColumn),Short) + Try + Return CType(Me(Me.tableTBWH_Users2.IDColumn), Short) Catch e As Global.System.InvalidCastException Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ID in Tabelle TBWH_Users2 ist DBNull.", e) End Try End Get - Set + Set(value As Short) Me(Me.tableTBWH_Users2.IDColumn) = value End Set End Property - - _ + + _ Public Function Is_SelectNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.SelectColumn) End Function - - _ + + _ Public Sub Set_SelectNull() Me(Me.tableTBWH_Users2.SelectColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsUsernameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.UsernameColumn) End Function - - _ + + _ Public Sub SetUsernameNull() Me(Me.tableTBWH_Users2.UsernameColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsPrenameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.PrenameColumn) End Function - - _ + + _ Public Sub SetPrenameNull() Me(Me.tableTBWH_Users2.PrenameColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsSurnameNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.SurnameColumn) End Function - - _ + + _ Public Sub SetSurnameNull() Me(Me.tableTBWH_Users2.SurnameColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsEmailNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.EmailColumn) End Function - - _ + + _ Public Sub SetEmailNull() Me(Me.tableTBWH_Users2.EmailColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsIDNull() As Boolean Return Me.IsNull(Me.tableTBWH_Users2.IDColumn) End Function - - _ + + _ Public Sub SetIDNull() Me(Me.tableTBWH_Users2.IDColumn) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Row event argument class ''' - _ + _ Public Class TBPMO_FORM_CONSTRUCTORRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBPMO_FORM_CONSTRUCTORRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + _ Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTORRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New + MyBase.New() Me.eventRow = row Me.eventAction = action End Sub - - _ + + _ Public ReadOnly Property Row() As TBPMO_FORM_CONSTRUCTORRow 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_CONSTRUCTOR_DETAILRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBPMO_FORM_CONSTRUCTOR_DETAILRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + _ Public Sub New(ByVal row As TBPMO_FORM_CONSTRUCTOR_DETAILRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New + 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 + 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 VWTEMPQUICKVIEWRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As VWTEMPQUICKVIEWRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + _ Public Sub New(ByVal row As VWTEMPQUICKVIEWRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New + MyBase.New() Me.eventRow = row Me.eventAction = action End Sub - - _ + + _ Public ReadOnly Property Row() As VWTEMPQUICKVIEWRow 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_ENTITIESRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBWH_ENTITIESRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + _ Public Sub New(ByVal row As TBWH_ENTITIESRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New + 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 + 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 + MyBase.New() Me.eventRow = row Me.eventAction = action End Sub - - _ + + _ Public ReadOnly Property Row() As DT_VORSCHAURow 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 TBAD_UsersRowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBAD_UsersRow - + Private eventAction As Global.System.Data.DataRowAction - - _ + + _ Public Sub New(ByVal row As TBAD_UsersRow, ByVal action As Global.System.Data.DataRowAction) - MyBase.New + MyBase.New() Me.eventRow = row Me.eventAction = action End Sub - - _ + + _ Public ReadOnly Property Row() As TBAD_UsersRow 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_Users1RowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBWH_Users1Row - + Private eventAction As Global.System.Data.DataRowAction - - _ + + _ Public Sub New(ByVal row As TBWH_Users1Row, ByVal action As Global.System.Data.DataRowAction) - MyBase.New + MyBase.New() Me.eventRow = row Me.eventAction = action End Sub - - _ + + _ Public ReadOnly Property Row() As TBWH_Users1Row 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_Users2RowChangeEvent Inherits Global.System.EventArgs - + Private eventRow As TBWH_Users2Row - + Private eventAction As Global.System.Data.DataRowAction - - _ + + _ Public Sub New(ByVal row As TBWH_Users2Row, ByVal action As Global.System.Data.DataRowAction) - MyBase.New + MyBase.New() Me.eventRow = row Me.eventAction = action End Sub - - _ + + _ Public ReadOnly Property Row() As TBWH_Users2Row Get Return Me.eventRow End Get End Property - - _ + + _ Public ReadOnly Property Action() As Global.System.Data.DataRowAction Get Return Me.eventAction @@ -6311,57 +6381,57 @@ Partial Public Class DD_ECMAdmin End Class Namespace DD_ECMAdminTableAdapters - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class TBPMO_FORM_CONSTRUCTORTableAdapter 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 + 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 + Me.InitAdapter() End If Return Me._adapter End Get End Property - - _ + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then - Me.InitConnection + Me.InitConnection() End If Return Me._connection End Get - Set + Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -6375,65 +6445,65 @@ Namespace DD_ECMAdminTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - _ + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get - Set + 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) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - _ + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set + 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() @@ -6452,294 +6522,294 @@ Namespace DD_ECMAdminTableAdapters 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" & 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.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"& _ + 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.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"& _ + 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, "", "", "")) + 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).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, "", "", "")) + 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 Overloads Overridable 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_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) + 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 + 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 Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable + + _ + 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) + 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(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 Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) 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 + + _ + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + + _ + 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) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal 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 + + _ + 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) + Me.Adapter.InsertCommand.Parameters(0).Value = CType(FORM_TITLE, String) End If - Me.Adapter.InsertCommand.Parameters(1).Value = CType(SEQUENCE_MENU,Integer) + 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) + 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()) + 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) + 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) + 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) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + 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 + 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 + + _ + 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) + Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TITLE, String) End If - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(SEQUENCE_MENU,Integer) + 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) + 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()) + 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) + 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) + 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) + 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) _ + 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.UpdateCommand.Connection.Open() End If - Try + 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 + Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter 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 + 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 + Me.InitAdapter() End If Return Me._adapter End Get End Property - - _ + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then - Me.InitConnection + Me.InitConnection() End If Return Me._connection End Get - Set + Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -6753,65 +6823,65 @@ Namespace DD_ECMAdminTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - _ + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get - Set + 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) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - _ + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set + 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() @@ -6839,428 +6909,455 @@ Namespace DD_ECMAdminTableAdapters 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("CONTROL_DOCTYPE_MATCH", "CONTROL_DOCTYPE_MATCH") + tableMapping.ColumnMappings.Add("SQL_RIGHT_READ_AND_VIEW_ONLY", "SQL_RIGHT_READ_AND_VIEW_ONLY") 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_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.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_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, CONTROL_DOCTYPE_MATCH, SQL_RIGHT_READ_AND_VIEW_ONLY)" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "VALUES " & _ + " (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@SEQUENCE,@SQL_SELECT_EBENE1," & _ + "@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_NAME2,@WINDREAM_SEARCH,@SEAR" & _ + "CH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH_PATTERN4,@SEARCH_PATTERN5," & _ + "@CONTROL_DOCTYPE_MATCH,@SQL_RIGHT_READ_AND_VIEW_ONLY); " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SELECT GUID, CONSTRUC" & _ + "T_ID, FORM_ID, 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, SEARC" & _ + "H_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCO" & _ + "PE_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("@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("@CONTROL_DOCTYPE_MATCH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_DOCTYPE_MATCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_READ_AND_VIEW_ONLY", 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 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) & " CONTROL_DO" & _ + "CTYPE_MATCH = @CONTROL_DOCTYPE_MATCH, SQL_RIGHT_READ_AND_VIEW_ONLY = @SQL_RIGHT_" & _ + "READ_AND_VIEW_ONLY" & 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, CONS" & _ + "TRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SE" & _ + "LECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COL" & _ + "UMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, S" & _ + "EARCH_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("@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("@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("@CONTROL_DOCTYPE_MATCH", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONTROL_DOCTYPE_MATCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_RIGHT_READ_AND_VIEW_ONLY", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_RIGHT_READ_AND_VIEW_ONLY", 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, 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"& _ + 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) & " CONTROL_DOCTYPE_MATCH" & _ + ", SQL_RIGHT_READ_AND_VIEW_ONLY" & 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("@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("@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_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal 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) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID, Integer) + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData(ByVal ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + + _ + Public Overridable Overloads Function GetData(ByVal ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) - Me.Adapter.SelectCommand.Parameters(0).Value = CType(ID,Integer) + 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 - - _ - Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) 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 - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR_DETAIL") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) + + _ + 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) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert( _ - ByVal 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) + + _ + 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, _ + ByVal CONTROL_DOCTYPE_MATCH As Integer, _ + ByVal SQL_RIGHT_READ_AND_VIEW_ONLY 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + Me.Adapter.InsertCommand.Parameters(15).Value = CType(SEARCH_PATTERN5, String) + End If + Me.Adapter.InsertCommand.Parameters(16).Value = CType(CONTROL_DOCTYPE_MATCH, Integer) + If (SQL_RIGHT_READ_AND_VIEW_ONLY Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_RIGHT_READ_AND_VIEW_ONLY") + Else + Me.Adapter.InsertCommand.Parameters(17).Value = CType(SQL_RIGHT_READ_AND_VIEW_ONLY, 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) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + 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 + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - 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, _ + + _ + 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 CONTROL_DOCTYPE_MATCH As Integer, _ + ByVal SQL_RIGHT_READ_AND_VIEW_ONLY As String, _ + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + 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) + Me.Adapter.UpdateCommand.Parameters(16).Value = CType(LOAD_DIRECT, Boolean) + Me.Adapter.UpdateCommand.Parameters(17).Value = CType(CONTROL_DOCTYPE_MATCH, Integer) + If (SQL_RIGHT_READ_AND_VIEW_ONLY Is Nothing) Then + Throw New Global.System.ArgumentNullException("SQL_RIGHT_READ_AND_VIEW_ONLY") + Else + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(SQL_RIGHT_READ_AND_VIEW_ONLY, String) + End If + Me.Adapter.UpdateCommand.Parameters(19).Value = CType(Original_GUID, Integer) + Me.Adapter.UpdateCommand.Parameters(20).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) _ + 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.UpdateCommand.Connection.Open() End If - Try + 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 + Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class TBDD_CONNECTIONTableAdapter 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 + 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 + Me.InitAdapter() End If Return Me._adapter End Get End Property - - _ + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then - Me.InitConnection + Me.InitConnection() End If Return Me._connection End Get - Set + Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -7274,65 +7371,65 @@ Namespace DD_ECMAdminTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - _ + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get - Set + 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) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - _ + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set + 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() @@ -7354,315 +7451,315 @@ Namespace DD_ECMAdminTableAdapters 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.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.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"& _ + 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.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"& _ + 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, "", "", "")) + 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 - - _ + + _ 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 TBDD_CONNECTION.*"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBDD_CONNECTION" + Me._commandCollection(0).CommandText = "SELECT TBDD_CONNECTION.*" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM TBDD_CONNECTION" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer + + _ + Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer Me.Adapter.SelectCommand = Me.CommandCollection(0) - If (Me.ClearBeforeFill = true) Then - dataTable.Clear + If (Me.ClearBeforeFill = True) Then + dataTable.Clear() End If Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData() As DD_ECMAdmin.TBDD_CONNECTIONDataTable + + _ + Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBDD_CONNECTIONDataTable 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 Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION") End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overloads Overridable Function Delete(ByVal Original_GUID As Short) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Short) + + _ + 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) _ + If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.DeleteCommand.Connection.Open + Me.Adapter.DeleteCommand.Connection.Open() End If - Try + Try Dim returnValue As Integer = Me.Adapter.DeleteCommand.ExecuteNonQuery Return returnValue Finally If (previousConnectionState = Global.System.Data.ConnectionState.Closed) Then - Me.Adapter.DeleteCommand.Connection.Close + Me.Adapter.DeleteCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable Function Insert(ByVal 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 + + _ + 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) + 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) + 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) + 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) + 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) + 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) + 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) + Me.Adapter.InsertCommand.Parameters(6).Value = CType(BEMERKUNG, String) End If - Me.Adapter.InsertCommand.Parameters(7).Value = CType(AKTIV,Boolean) + 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) + 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) _ + If ((Me.Adapter.InsertCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ <> Global.System.Data.ConnectionState.Open) Then - Me.Adapter.InsertCommand.Connection.Open + Me.Adapter.InsertCommand.Connection.Open() End If - Try + 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 + Me.Adapter.InsertCommand.Connection.Close() End If End Try End Function - - _ - Public Overloads Overridable 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 + + _ + 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) + 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) + 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) + 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) + 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) + 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) + 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) + Me.Adapter.UpdateCommand.Parameters(6).Value = CType(BEMERKUNG, String) End If - Me.Adapter.UpdateCommand.Parameters(7).Value = CType(AKTIV,Boolean) + 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(8).Value = CType(GEANDERTWER,String) + 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) + 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) _ + 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.UpdateCommand.Connection.Open() End If - Try + 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 + Me.Adapter.UpdateCommand.Connection.Close() End If End Try End Function End Class - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class VWTEMPQUICKVIEWTableAdapter 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 + 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 + Me.InitAdapter() End If Return Me._adapter End Get End Property - - _ + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then - Me.InitConnection + Me.InitConnection() End If Return Me._connection End Get - Set + Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -7676,65 +7773,65 @@ Namespace DD_ECMAdminTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - _ + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get - Set + 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) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - _ + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set + 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() @@ -7747,100 +7844,100 @@ Namespace DD_ECMAdminTableAdapters 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).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 Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable) As Integer + + _ + 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 + 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_ECMAdmin.VWTEMPQUICKVIEWDataTable + + _ + 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 + 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 + Me.InitAdapter() End If Return Me._adapter End Get End Property - - _ + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then - Me.InitConnection + Me.InitConnection() End If Return Me._connection End Get - Set + Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -7854,65 +7951,65 @@ Namespace DD_ECMAdminTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - _ + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get - Set + 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) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - _ + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set + 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() @@ -7923,125 +8020,125 @@ Namespace DD_ECMAdminTableAdapters tableMapping.ColumnMappings.Add("CAPTION", "CAPTION") 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.FORM_TITLE, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'FORMV"& _ - "IEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), @SCREEN) AS 'CAPTION'"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM "& _ - " TBPMO_FORM AS T INNER JOIN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" TBPMO_FORM_VIEW AS T1 ON "& _ - "T.GUID = T1.FORM_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (T.GUID IN"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (SELE"& _ - "CT DISTINCT ENTITY_ID"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" FROM TBPMO_CLIE"& _ - "NT_ENTITY"&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)&" WHE"& _ - "RE (USER_ID = @USER_ID)))))"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"ORDER BY 'CAPTION'" + Me._commandCollection(0).CommandText = "SELECT T.GUID, T1.FORM_TITLE, dbo.FNPMO_GETOBJECTCAPTION(@LANGUAGE, 'FORMV" & _ + "IEW_TITLE' + CONVERT(VARCHAR(5), T1.GUID), @SCREEN) AS 'CAPTION'" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "FROM " & _ + " TBPMO_FORM AS T INNER JOIN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " TBPMO_FORM_VIEW AS T1 ON " & _ + "T.GUID = T1.FORM_ID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "WHERE (T.GUID IN" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " (SELE" & _ + "CT DISTINCT ENTITY_ID" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " FROM TBPMO_CLIE" & _ + "NT_ENTITY" & 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) & " WHE" & _ + "RE (USER_ID = @USER_ID)))))" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "ORDER BY 'CAPTION'" 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", 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, "", "", "")) + 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", 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_ECMAdmin.TBWH_ENTITIESDataTable, ByVal LANGUAGE As String, ByVal SCREEN As Integer, ByVal USER_ID As Integer) 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) + 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 + 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 Dim returnValue As Integer = Me.Adapter.Fill(dataTable) Return returnValue End Function - - _ - Public Overloads Overridable Function GetData(ByVal LANGUAGE As String, ByVal SCREEN As Integer, ByVal USER_ID As Integer) As DD_ECMAdmin.TBWH_ENTITIESDataTable + + _ + 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) If (LANGUAGE Is Nothing) Then Throw New Global.System.ArgumentNullException("LANGUAGE") Else - Me.Adapter.SelectCommand.Parameters(0).Value = CType(LANGUAGE,String) + 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) + 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 - + ''' '''Represents the connection and commands used to retrieve and save data. ''' - _ + _ Partial Public Class TBWH_USER_GROUPSTableAdapter 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 + 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 + Me.InitAdapter() End If Return Me._adapter End Get End Property - - _ + + _ Friend Property Connection() As Global.System.Data.SqlClient.SqlConnection Get If (Me._connection Is Nothing) Then - Me.InitConnection + Me.InitConnection() End If Return Me._connection End Get - Set + Set(value As Global.System.Data.SqlClient.SqlConnection) Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -8055,65 +8152,65 @@ Namespace DD_ECMAdminTableAdapters Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) If (Not (Me.CommandCollection(i)) Is Nothing) Then - CType(Me.CommandCollection(i),Global.System.Data.SqlClient.SqlCommand).Connection = value + CType(Me.CommandCollection(i), Global.System.Data.SqlClient.SqlCommand).Connection = value End If i = (i + 1) Loop End Set End Property - - _ + + _ Friend Property Transaction() As Global.System.Data.SqlClient.SqlTransaction Get Return Me._transaction End Get - Set + 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) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.DeleteCommand) Is Nothing)) Then Me.Adapter.DeleteCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.InsertCommand) Is Nothing)) Then Me.Adapter.InsertCommand.Transaction = Me._transaction End If - If ((Not (Me.Adapter) Is Nothing) _ + If ((Not (Me.Adapter) Is Nothing) _ AndAlso (Not (Me.Adapter.UpdateCommand) Is Nothing)) Then Me.Adapter.UpdateCommand.Transaction = Me._transaction End If End Set End Property - - _ + + _ Protected ReadOnly Property CommandCollection() As Global.System.Data.SqlClient.SqlCommand() Get If (Me._commandCollection Is Nothing) Then - Me.InitCommandCollection + Me.InitCommandCollection() End If Return Me._commandCollection End Get End Property - - _ + + _ Public Property ClearBeforeFill() As Boolean Get Return Me._clearBeforeFill End Get - Set + 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() @@ -8123,166 +8220,166 @@ Namespace DD_ECMAdminTableAdapters tableMapping.ColumnMappings.Add("NAME", "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 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).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 - - _ - Public Overloads Overridable Function Fill(ByVal dataTable As DD_ECMAdmin.TBWH_USER_GROUPSDataTable) 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 + 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_ECMAdmin.TBWH_USER_GROUPSDataTable + + _ + Public Overridable Overloads Function GetData() As DD_ECMAdmin.TBWH_USER_GROUPSDataTable Me.Adapter.SelectCommand = Me.CommandCollection(0) Dim dataTable As DD_ECMAdmin.TBWH_USER_GROUPSDataTable = New DD_ECMAdmin.TBWH_USER_GROUPSDataTable() Me.Adapter.Fill(dataTable) Return dataTable End Function End Class - + ''' '''TableAdapterManager is used to coordinate TableAdapters in the dataset to enable Hierarchical Update scenarios ''' - _ + _ Partial Public Class TableAdapterManager Inherits Global.System.ComponentModel.Component - + Private _updateOrder As UpdateOrderOption - + Private _tBPMO_FORM_CONSTRUCTORTableAdapter As TBPMO_FORM_CONSTRUCTORTableAdapter - + Private _tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter - + Private _tBDD_CONNECTIONTableAdapter As TBDD_CONNECTIONTableAdapter - + Private _backupDataSetBeforeUpdate As Boolean - + Private _connection As Global.System.Data.IDbConnection - - _ + + _ Public Property UpdateOrder() As UpdateOrderOption Get Return Me._updateOrder End Get - Set + Set(value As UpdateOrderOption) Me._updateOrder = value End Set End Property - - _ + + _ Public Property TBPMO_FORM_CONSTRUCTORTableAdapter() As TBPMO_FORM_CONSTRUCTORTableAdapter Get Return Me._tBPMO_FORM_CONSTRUCTORTableAdapter End Get - Set + Set(value As TBPMO_FORM_CONSTRUCTORTableAdapter) Me._tBPMO_FORM_CONSTRUCTORTableAdapter = value End Set End Property - - _ + + _ Public Property TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter() As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter Get Return Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter End Get - Set + Set(value As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter = value End Set End Property - - _ + + _ Public Property TBDD_CONNECTIONTableAdapter() As TBDD_CONNECTIONTableAdapter Get Return Me._tBDD_CONNECTIONTableAdapter End Get - Set + Set(value As TBDD_CONNECTIONTableAdapter) Me._tBDD_CONNECTIONTableAdapter = value End Set End Property - - _ + + _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate End Get - Set + Set(value As Boolean) Me._backupDataSetBeforeUpdate = value End Set End Property - - _ + + _ Public Property Connection() As Global.System.Data.IDbConnection Get If (Not (Me._connection) Is Nothing) Then Return Me._connection End If - If ((Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) _ + If ((Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection End If - If ((Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) _ + If ((Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) Is Nothing)) Then Return Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection End If - If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ + If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ AndAlso (Not (Me._tBDD_CONNECTIONTableAdapter.Connection) Is Nothing)) Then Return Me._tBDD_CONNECTIONTableAdapter.Connection End If Return Nothing End Get - Set + Set(value As Global.System.Data.IDbConnection) Me._connection = value End Set End Property - - _ + + _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 @@ -8298,18 +8395,18 @@ Namespace DD_ECMAdminTableAdapters Return count End Get End Property - + ''' '''Update rows in top-down order. ''' - _ + _ Private Function UpdateUpdatedRows(ByVal dataSet As DD_ECMAdmin, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow), ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 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) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -8318,7 +8415,7 @@ Namespace DD_ECMAdminTableAdapters If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then Dim updatedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.ModifiedCurrent) updatedRows = Me.GetRealUpdatedRows(updatedRows, allAddedRows) - If ((Not (updatedRows) Is Nothing) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -8327,7 +8424,7 @@ Namespace DD_ECMAdminTableAdapters 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) _ + If ((Not (updatedRows) Is Nothing) _ AndAlso (0 < updatedRows.Length)) Then result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(updatedRows)) allChangedRows.AddRange(updatedRows) @@ -8335,17 +8432,17 @@ Namespace DD_ECMAdminTableAdapters End If Return result End Function - + ''' '''Insert rows in top-down order. ''' - _ + _ Private Function UpdateInsertedRows(ByVal dataSet As DD_ECMAdmin, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 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) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -8353,7 +8450,7 @@ Namespace DD_ECMAdminTableAdapters End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then Dim addedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Added) - If ((Not (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -8361,7 +8458,7 @@ Namespace DD_ECMAdminTableAdapters 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 (addedRows) Is Nothing) _ + If ((Not (addedRows) Is Nothing) _ AndAlso (0 < addedRows.Length)) Then result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(addedRows)) allAddedRows.AddRange(addedRows) @@ -8369,17 +8466,17 @@ Namespace DD_ECMAdminTableAdapters End If Return result End Function - + ''' '''Delete rows in bottom-up order. ''' - _ + _ Private Function UpdateDeletedRows(ByVal dataSet As DD_ECMAdmin, ByVal allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Integer Dim result As Integer = 0 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) _ + If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBDD_CONNECTIONTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) @@ -8387,7 +8484,7 @@ Namespace DD_ECMAdminTableAdapters End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR_DETAIL.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ + If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) @@ -8395,7 +8492,7 @@ Namespace DD_ECMAdminTableAdapters End If If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then Dim deletedRows() As Global.System.Data.DataRow = dataSet.TBPMO_FORM_CONSTRUCTOR.Select(Nothing, Nothing, Global.System.Data.DataViewRowState.Deleted) - If ((Not (deletedRows) Is Nothing) _ + If ((Not (deletedRows) Is Nothing) _ AndAlso (0 < deletedRows.Length)) Then result = (result + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Update(deletedRows)) allChangedRows.AddRange(deletedRows) @@ -8403,18 +8500,18 @@ Namespace DD_ECMAdminTableAdapters End If Return result End Function - + ''' '''Remove inserted rows that become updated rows after calling TableAdapter.Update(inserted rows) first ''' - _ + _ Private Function GetRealUpdatedRows(ByVal updatedRows() As Global.System.Data.DataRow, ByVal allAddedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)) As Global.System.Data.DataRow() - If ((updatedRows Is Nothing) _ + If ((updatedRows Is Nothing) _ OrElse (updatedRows.Length < 1)) Then Return updatedRows End If - If ((allAddedRows Is Nothing) _ + If ((allAddedRows Is Nothing) _ OrElse (allAddedRows.Count < 1)) Then Return updatedRows End If @@ -8422,60 +8519,60 @@ Namespace DD_ECMAdminTableAdapters Dim i As Integer = 0 Do While (i < updatedRows.Length) Dim row As Global.System.Data.DataRow = updatedRows(i) - If (allAddedRows.Contains(row) = false) Then + If (allAddedRows.Contains(row) = False) Then realUpdatedRows.Add(row) End If i = (i + 1) Loop Return realUpdatedRows.ToArray End Function - + ''' '''Update all changes to the dataset. ''' - _ + _ Public Overridable Function UpdateAll(ByVal dataSet As DD_ECMAdmin) As Integer If (dataSet Is Nothing) Then Throw New Global.System.ArgumentNullException("dataSet") End If - If (dataSet.HasChanges = false) Then + If (dataSet.HasChanges = False) Then Return 0 End If - If ((Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) = false)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + If ((Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_CONSTRUCTORTableAdapter.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._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) = false)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + If ((Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.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_CONNECTIONTableAdapter) Is Nothing) _ - AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_CONNECTIONTableAdapter.Connection) = false)) Then - Throw New Global.System.ArgumentException("Für alle von einem TableAdapterManager verwalteten Instanzen von TableAdapter mus"& _ + If ((Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) _ + AndAlso (Me.MatchTableAdapterConnection(Me._tBDD_CONNECTIONTableAdapter.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"& _ - "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes"& _ + Throw New Global.System.ApplicationException("TableAdapterManager enthält keine Verbindungsinformationen. Legen Sie jede TableA" & _ + "dapterManager TableAdapter-Eigenschaft auf eine gültige TableAdapter-Instanz fes" & _ "t.") End If - Dim workConnOpened As Boolean = false - If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ + Dim workConnOpened As Boolean = False + If ((workConnection.State And Global.System.Data.ConnectionState.Broken) _ = Global.System.Data.ConnectionState.Broken) Then - workConnection.Close + workConnection.Close() End If If (workConnection.State = Global.System.Data.ConnectionState.Closed) Then - workConnection.Open - workConnOpened = true + workConnection.Open() + workConnOpened = True End If Dim workTransaction As Global.System.Data.IDbTransaction = workConnection.BeginTransaction If (workTransaction Is Nothing) Then - Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst"& _ - "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt"& _ + Throw New Global.System.ApplicationException("Die Transaktion kann nicht gestartet werden. Die aktuelle Datenverbindung unterst" & _ + "ützt keine Transaktionen, oder der aktuelle Zustand lässt den Start der Transakt" & _ "ion nicht zu.") End If Dim allChangedRows As Global.System.Collections.Generic.List(Of Global.System.Data.DataRow) = New Global.System.Collections.Generic.List(Of Global.System.Data.DataRow)() @@ -8488,33 +8585,33 @@ Namespace DD_ECMAdminTableAdapters backupDataSet = New Global.System.Data.DataSet() backupDataSet.Merge(dataSet) End If - Try + Try '---- Prepare for update ----------- ' If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_FORM_CONSTRUCTORTableAdapter, Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection) - Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter.AcceptChangesDuringUpdate = false + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter.AcceptChangesDuringUpdate = False adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Adapter) End If End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter, Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection) - Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) If Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter.AcceptChangesDuringUpdate = false + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter.AcceptChangesDuringUpdate = False adaptersWithAcceptChangesDuringUpdate.Add(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Adapter) End If End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then revertConnections.Add(Me._tBDD_CONNECTIONTableAdapter, Me._tBDD_CONNECTIONTableAdapter.Connection) - Me._tBDD_CONNECTIONTableAdapter.Connection = CType(workConnection,Global.System.Data.SqlClient.SqlConnection) - Me._tBDD_CONNECTIONTableAdapter.Transaction = CType(workTransaction,Global.System.Data.SqlClient.SqlTransaction) + Me._tBDD_CONNECTIONTableAdapter.Connection = CType(workConnection, Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_CONNECTIONTableAdapter.Transaction = CType(workTransaction, Global.System.Data.SqlClient.SqlTransaction) If Me._tBDD_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate Then - Me._tBDD_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate = false + Me._tBDD_CONNECTIONTableAdapter.Adapter.AcceptChangesDuringUpdate = False adaptersWithAcceptChangesDuringUpdate.Add(Me._tBDD_CONNECTIONTableAdapter.Adapter) End If End If @@ -8532,14 +8629,14 @@ Namespace DD_ECMAdminTableAdapters ' '---- Commit updates ----------- ' - workTransaction.Commit + workTransaction.Commit() If (0 < allAddedRows.Count) Then Dim rows((allAddedRows.Count) - 1) As Global.System.Data.DataRow allAddedRows.CopyTo(rows) Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) - row.AcceptChanges + row.AcceptChanges() i = (i + 1) Loop End If @@ -8549,16 +8646,16 @@ Namespace DD_ECMAdminTableAdapters Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) - row.AcceptChanges + row.AcceptChanges() i = (i + 1) Loop End If Catch ex As Global.System.Exception - workTransaction.Rollback + workTransaction.Rollback() '---- Restore the dataset ----------- If Me.BackupDataSetBeforeUpdate Then Global.System.Diagnostics.Debug.Assert((Not (backupDataSet) Is Nothing)) - dataSet.Clear + dataSet.Clear() dataSet.Merge(backupDataSet) Else If (0 < allAddedRows.Count) Then @@ -8567,8 +8664,8 @@ Namespace DD_ECMAdminTableAdapters Dim i As Integer = 0 Do While (i < rows.Length) Dim row As Global.System.Data.DataRow = rows(i) - row.AcceptChanges - row.SetAdded + row.AcceptChanges() + row.SetAdded() i = (i + 1) Loop End If @@ -8576,18 +8673,18 @@ Namespace DD_ECMAdminTableAdapters Throw ex Finally If workConnOpened Then - workConnection.Close + workConnection.Close() End If If (Not (Me._tBPMO_FORM_CONSTRUCTORTableAdapter) Is Nothing) Then - Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_CONSTRUCTORTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_CONSTRUCTORTableAdapter), Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORM_CONSTRUCTORTableAdapter.Transaction = Nothing End If If (Not (Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) Is Nothing) Then - Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Connection = CType(revertConnections(Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter), Global.System.Data.SqlClient.SqlConnection) Me._tBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Transaction = Nothing End If If (Not (Me._tBDD_CONNECTIONTableAdapter) Is Nothing) Then - Me._tBDD_CONNECTIONTableAdapter.Connection = CType(revertConnections(Me._tBDD_CONNECTIONTableAdapter),Global.System.Data.SqlClient.SqlConnection) + Me._tBDD_CONNECTIONTableAdapter.Connection = CType(revertConnections(Me._tBDD_CONNECTIONTableAdapter), Global.System.Data.SqlClient.SqlConnection) Me._tBDD_CONNECTIONTableAdapter.Transaction = Nothing End If If (0 < adaptersWithAcceptChangesDuringUpdate.Count) Then @@ -8596,63 +8693,63 @@ Namespace DD_ECMAdminTableAdapters Dim i As Integer = 0 Do While (i < adapters.Length) Dim adapter As Global.System.Data.Common.DataAdapter = adapters(i) - adapter.AcceptChangesDuringUpdate = true + adapter.AcceptChangesDuringUpdate = True i = (i + 1) Loop End If End Try Return result End Function - - _ + + _ Protected Overridable Sub SortSelfReferenceRows(ByVal rows() As Global.System.Data.DataRow, ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) Global.System.Array.Sort(Of Global.System.Data.DataRow)(rows, New SelfReferenceComparer(relation, childFirst)) End Sub - - _ + + _ Protected Overridable Function MatchTableAdapterConnection(ByVal inputConnection As Global.System.Data.IDbConnection) As Boolean If (Not (Me._connection) Is Nothing) Then - Return true + Return True End If - If ((Me.Connection Is Nothing) _ + If ((Me.Connection Is Nothing) _ OrElse (inputConnection Is Nothing)) Then - Return true + Return True End If If String.Equals(Me.Connection.ConnectionString, inputConnection.ConnectionString, Global.System.StringComparison.Ordinal) Then - Return true + Return True End If - Return false + Return False End Function - + ''' '''Update Order Option ''' - _ + _ Public Enum UpdateOrderOption - + InsertUpdateDelete = 0 - + UpdateInsertDelete = 1 End Enum - + ''' '''Used to sort self-referenced table's rows ''' - _ + _ Private Class SelfReferenceComparer Inherits Object Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow) - + Private _relation As Global.System.Data.DataRelation - + Private _childFirst As Integer - - _ + + _ Friend Sub New(ByVal relation As Global.System.Data.DataRelation, ByVal childFirst As Boolean) - MyBase.New + MyBase.New() Me._relation = relation If childFirst Then Me._childFirst = -1 @@ -8660,9 +8757,9 @@ Namespace DD_ECMAdminTableAdapters Me._childFirst = 1 End If End Sub - - _ + + _ Private Function GetRoot(ByVal row As Global.System.Data.DataRow, ByRef distance As Integer) As Global.System.Data.DataRow Global.System.Diagnostics.Debug.Assert((Not (row) Is Nothing)) Dim root As Global.System.Data.DataRow = row @@ -8673,8 +8770,8 @@ Namespace DD_ECMAdminTableAdapters Dim parent As Global.System.Data.DataRow = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.[Default]) - Do While ((Not (parent) Is Nothing) _ - AndAlso (traversedRows.ContainsKey(parent) = false)) + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = False)) distance = (distance + 1) root = parent traversedRows(parent) = parent @@ -8683,12 +8780,12 @@ Namespace DD_ECMAdminTableAdapters Loop If (distance = 0) Then - traversedRows.Clear + traversedRows.Clear() traversedRows(row) = row parent = row.GetParentRow(Me._relation, Global.System.Data.DataRowVersion.Original) - Do While ((Not (parent) Is Nothing) _ - AndAlso (traversedRows.ContainsKey(parent) = false)) + Do While ((Not (parent) Is Nothing) _ + AndAlso (traversedRows.ContainsKey(parent) = False)) distance = (distance + 1) root = parent traversedRows(parent) = parent @@ -8699,9 +8796,9 @@ Namespace DD_ECMAdminTableAdapters Return root End Function - - _ + + _ Public Function Compare(ByVal row1 As Global.System.Data.DataRow, ByVal row2 As Global.System.Data.DataRow) As Integer Implements Global.System.Collections.Generic.IComparer(Of Global.System.Data.DataRow).Compare If Object.ReferenceEquals(row1, row2) Then Return 0 @@ -8722,7 +8819,7 @@ Namespace DD_ECMAdminTableAdapters If Object.ReferenceEquals(root1, root2) Then Return (Me._childFirst * distance1.CompareTo(distance2)) Else - Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ + Global.System.Diagnostics.Debug.Assert(((Not (root1.Table) Is Nothing) _ AndAlso (Not (root2.Table) Is Nothing))) If (root1.Table.Rows.IndexOf(root1) < root2.Table.Rows.IndexOf(root2)) Then Return -1 diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.xsd b/app/DD-Record-Organiser/DD_ECMAdmin.xsd index 9bddb43..7676dae 100644 --- a/app/DD-Record-Organiser/DD_ECMAdmin.xsd +++ b/app/DD-Record-Organiser/DD_ECMAdmin.xsd @@ -94,36 +94,39 @@ WHERE (GUID = @Original_GUID) - + INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL (CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, - SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5) -VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@SEQUENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_NAME2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH_PATTERN4,@SEARCH_PATTERN5); + SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5, CONTROL_DOCTYPE_MATCH, SQL_RIGHT_READ_AND_VIEW_ONLY) +VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@SEQUENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_NAME2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH_PATTERN4,@SEARCH_PATTERN5,@CONTROL_DOCTYPE_MATCH,@SQL_RIGHT_READ_AND_VIEW_ONLY); SELECT GUID, CONSTRUCT_ID, FORM_ID, 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 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY()) - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + SELECT GUID, CONSTRUCT_ID, FORM_ID, 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 + COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5, LOAD_DIRECT, SQL_QUICK_VIEW, + CONTROL_DOCTYPE_MATCH, SQL_RIGHT_READ_AND_VIEW_ONLY FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = @ID) @@ -137,8 +140,9 @@ WHERE (GUID = @ID) SET CONSTRUCT_ID = @CONSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_SELECT, SEQUENCE = @SEQUENCE, SQL_SELECT_EBENE1 = @SQL_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_WHO, COLUMN_NAME1 = @COLUMN_NAME1, COLUMN_NAME2 = @COLUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTERN1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, - SEARCH_PATTERN3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SEARCH_PATTERN5, LOAD_DIRECT = @LOAD_DIRECT -WHERE (GUID = @Original_GUID); + SEARCH_PATTERN3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SEARCH_PATTERN5, LOAD_DIRECT = @LOAD_DIRECT, + CONTROL_DOCTYPE_MATCH = @CONTROL_DOCTYPE_MATCH, SQL_RIGHT_READ_AND_VIEW_ONLY = @SQL_RIGHT_READ_AND_VIEW_ONLY +WHERE (GUID = @Original_GUID); SELECT GUID, CONSTRUCT_ID, FORM_ID, 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 FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = @GUID) @@ -158,6 +162,8 @@ SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELE + + @@ -188,6 +194,8 @@ SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELE + + @@ -426,7 +434,7 @@ ORDER BY NAME - + @@ -499,6 +507,14 @@ ORDER BY NAME + + + + + + + + diff --git a/app/DD-Record-Organiser/ModuleRuntimeVariables.vb b/app/DD-Record-Organiser/ModuleRuntimeVariables.vb index fba8df2..0e626b2 100644 --- a/app/DD-Record-Organiser/ModuleRuntimeVariables.vb +++ b/app/DD-Record-Organiser/ModuleRuntimeVariables.vb @@ -27,6 +27,7 @@ Public CURRENT_FILEID As Integer Public CURRENT_FILENAME As String Public CURRENT_NEWFILENAME As String + Public CURRENT_CONTROL_DOCTYPE_MATCH As String = "" Public CURRENT_FORMVIEW_ID As Integer 'Public CURRENT_MASTER_FORM_ID As Integer diff --git a/app/DD-Record-Organiser/My Project/Resources.Designer.vb b/app/DD-Record-Organiser/My Project/Resources.Designer.vb index aa77a4f..a72c57f 100644 --- a/app/DD-Record-Organiser/My Project/Resources.Designer.vb +++ b/app/DD-Record-Organiser/My Project/Resources.Designer.vb @@ -1160,6 +1160,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property lock() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("lock", 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 3bf2d4f..32a97a5 100644 --- a/app/DD-Record-Organiser/My Project/Resources.resx +++ b/app/DD-Record-Organiser/My Project/Resources.resx @@ -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 @@ -238,9 +241,6 @@ ..\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 @@ -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,8 +406,8 @@ ..\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 @@ -472,6 +469,9 @@ ..\Resources\email_edit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\mail.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\bricks.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -490,6 +490,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 @@ -523,6 +526,9 @@ ..\Resources\changechartlegendalignment_32x32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\email_go.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 @@ -562,8 +568,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 @@ -583,10 +589,7 @@ ..\Resources\action_Cancel_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\mail.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - - ..\Resources\email_go.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\lock.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/Resources/lock.png b/app/DD-Record-Organiser/Resources/lock.png new file mode 100644 index 0000000..2ebc4f6 Binary files /dev/null and b/app/DD-Record-Organiser/Resources/lock.png differ diff --git a/app/DD-Record-Organiser/frmConfig_Basic.vb b/app/DD-Record-Organiser/frmConfig_Basic.vb index cac83fc..e19b750 100644 --- a/app/DD-Record-Organiser/frmConfig_Basic.vb +++ b/app/DD-Record-Organiser/frmConfig_Basic.vb @@ -21,7 +21,11 @@ Public Class frmConfig_Basic Cursor = Cursors.Default 'DialogResult = Windows.Forms.DialogResult.OK Dim result As MsgBoxResult - result = MessageBox.Show("Die Verbindung wurde erfolgreich aufgebaut!" & vbNewLine & "Möchten Sie diese Verbindung nun in der Anwendung speichern?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + Dim msg = "Die Verbindung wurde erfolgreich aufgebaut!" & vbNewLine & "Möchten Sie diese Verbindung nun in der Anwendung speichern?" + If USER_LANGUAGE <> "de-DE" Then + msg = "Connection was successfully opened!" & vbNewLine & "Would You like to save it?" + End If + result = MessageBox.Show(msg, "Database-Connection", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If result = MsgBoxResult.Yes Then CONNECTION_CHANGED = True 'Set the construction string @@ -44,7 +48,7 @@ Public Class frmConfig_Basic End If Catch ex As Exception Cursor = Cursors.Default - MsgBox("Fehler beim Verbindungsaufbau: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) + MsgBox("Error in Connectionbuild: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) End Try End Sub diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb b/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb index 987c616..16dbfd6 100644 --- a/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb +++ b/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb @@ -39,7 +39,6 @@ Partial Class frmConstructorDesigner Dim CHANGED_WHOLabel1 As System.Windows.Forms.Label Dim CHANGED_WHENLabel1 As System.Windows.Forms.Label Dim SQL_SELECT_EBENE1Label As System.Windows.Forms.Label - Dim SQL_SELECT_EBENE2Label As System.Windows.Forms.Label Dim COLUMN_NAME1Label1 As System.Windows.Forms.Label Dim SEARCH_PATTERN1Label1 As System.Windows.Forms.Label Dim SEARCH_PATTERN2Label1 As System.Windows.Forms.Label @@ -51,8 +50,10 @@ Partial Class frmConstructorDesigner Dim ADDED_WHENLabel2 As System.Windows.Forms.Label Dim CHANGED_WHOLabel2 As System.Windows.Forms.Label Dim CHANGED_WHENLabel2 As System.Windows.Forms.Label - Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim Label19 As System.Windows.Forms.Label + Dim SQL_RIGHT_READ_AND_VIEW_ONLYLabel 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() Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() Me.TBPMO_FORM_CONSTRUCTORBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPMO_FORM_CONSTRUCTORTableAdapter = New DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter() @@ -91,6 +92,8 @@ Partial Class frmConstructorDesigner Me.XtraTabPage1 = New DevExpress.XtraTab.XtraTabPage() Me.XtraTabControl2 = New DevExpress.XtraTab.XtraTabControl() Me.XtraTabPage3 = New DevExpress.XtraTab.XtraTabPage() + Me.SQL_RIGHT_READ_AND_VIEW_ONLYTextBox = New System.Windows.Forms.TextBox() + Me.CONTROL_DOCTYPE_MATCHTextBox = New System.Windows.Forms.TextBox() Me.LOAD_DIRECTCheckBox = New System.Windows.Forms.CheckBox() Me.Label4 = New System.Windows.Forms.Label() Me.COLUMN_NAME1ComboBox = New System.Windows.Forms.ComboBox() @@ -98,7 +101,6 @@ Partial Class frmConstructorDesigner Me.SQL_SELECT_EBENE1TextBox = New System.Windows.Forms.TextBox() Me.CHANGED_WHENTextBox1 = New System.Windows.Forms.TextBox() Me.CHANGED_WHOTextBox1 = New System.Windows.Forms.TextBox() - Me.SQL_SELECT_EBENE2TextBox = New System.Windows.Forms.TextBox() Me.ADDED_WHENTextBox1 = New System.Windows.Forms.TextBox() Me.ADDED_WHOTextBox1 = New System.Windows.Forms.TextBox() Me.XtraTabPage5 = New DevExpress.XtraTab.XtraTabPage() @@ -223,7 +225,6 @@ Partial Class frmConstructorDesigner CHANGED_WHOLabel1 = New System.Windows.Forms.Label() CHANGED_WHENLabel1 = New System.Windows.Forms.Label() SQL_SELECT_EBENE1Label = New System.Windows.Forms.Label() - SQL_SELECT_EBENE2Label = New System.Windows.Forms.Label() COLUMN_NAME1Label1 = New System.Windows.Forms.Label() SEARCH_PATTERN1Label1 = New System.Windows.Forms.Label() SEARCH_PATTERN2Label1 = New System.Windows.Forms.Label() @@ -235,6 +236,8 @@ Partial Class frmConstructorDesigner ADDED_WHENLabel2 = New System.Windows.Forms.Label() CHANGED_WHOLabel2 = New System.Windows.Forms.Label() CHANGED_WHENLabel2 = New System.Windows.Forms.Label() + Label19 = New System.Windows.Forms.Label() + SQL_RIGHT_READ_AND_VIEW_ONLYLabel = New System.Windows.Forms.Label() CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPMO_FORM_CONSTRUCTORBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPMO_FORM_CONSTRUCTORBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit() @@ -348,11 +351,6 @@ Partial Class frmConstructorDesigner resources.ApplyResources(SQL_SELECT_EBENE1Label, "SQL_SELECT_EBENE1Label") SQL_SELECT_EBENE1Label.Name = "SQL_SELECT_EBENE1Label" ' - 'SQL_SELECT_EBENE2Label - ' - resources.ApplyResources(SQL_SELECT_EBENE2Label, "SQL_SELECT_EBENE2Label") - SQL_SELECT_EBENE2Label.Name = "SQL_SELECT_EBENE2Label" - ' 'COLUMN_NAME1Label1 ' resources.ApplyResources(COLUMN_NAME1Label1, "COLUMN_NAME1Label1") @@ -408,6 +406,16 @@ Partial Class frmConstructorDesigner resources.ApplyResources(CHANGED_WHENLabel2, "CHANGED_WHENLabel2") CHANGED_WHENLabel2.Name = "CHANGED_WHENLabel2" ' + 'Label19 + ' + resources.ApplyResources(Label19, "Label19") + Label19.Name = "Label19" + ' + 'SQL_RIGHT_READ_AND_VIEW_ONLYLabel + ' + resources.ApplyResources(SQL_RIGHT_READ_AND_VIEW_ONLYLabel, "SQL_RIGHT_READ_AND_VIEW_ONLYLabel") + SQL_RIGHT_READ_AND_VIEW_ONLYLabel.Name = "SQL_RIGHT_READ_AND_VIEW_ONLYLabel" + ' 'DD_ECMAdmin ' Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin" @@ -654,6 +662,10 @@ Partial Class frmConstructorDesigner 'XtraTabPage3 ' resources.ApplyResources(Me.XtraTabPage3, "XtraTabPage3") + Me.XtraTabPage3.Controls.Add(SQL_RIGHT_READ_AND_VIEW_ONLYLabel) + Me.XtraTabPage3.Controls.Add(Me.SQL_RIGHT_READ_AND_VIEW_ONLYTextBox) + Me.XtraTabPage3.Controls.Add(Me.CONTROL_DOCTYPE_MATCHTextBox) + Me.XtraTabPage3.Controls.Add(Label19) Me.XtraTabPage3.Controls.Add(Me.LOAD_DIRECTCheckBox) Me.XtraTabPage3.Controls.Add(Me.Label4) Me.XtraTabPage3.Controls.Add(COLUMN_NAME1Label1) @@ -665,17 +677,27 @@ Partial Class frmConstructorDesigner Me.XtraTabPage3.Controls.Add(SQL_SELECT_EBENE1Label) Me.XtraTabPage3.Controls.Add(CHANGED_WHOLabel1) Me.XtraTabPage3.Controls.Add(Me.CHANGED_WHOTextBox1) - Me.XtraTabPage3.Controls.Add(Me.SQL_SELECT_EBENE2TextBox) Me.XtraTabPage3.Controls.Add(ADDED_WHENLabel1) Me.XtraTabPage3.Controls.Add(Me.ADDED_WHENTextBox1) Me.XtraTabPage3.Controls.Add(ADDED_WHOLabel1) Me.XtraTabPage3.Controls.Add(GUIDLabel1) - Me.XtraTabPage3.Controls.Add(SQL_SELECT_EBENE2Label) Me.XtraTabPage3.Controls.Add(Me.ADDED_WHOTextBox1) Me.XtraTabPage3.Controls.Add(Me.GUIDTextBox1) Me.XtraTabPage3.Controls.Add(Me.LEVEL1_SELECTCheckBox) Me.XtraTabPage3.Name = "XtraTabPage3" ' + 'SQL_RIGHT_READ_AND_VIEW_ONLYTextBox + ' + resources.ApplyResources(Me.SQL_RIGHT_READ_AND_VIEW_ONLYTextBox, "SQL_RIGHT_READ_AND_VIEW_ONLYTextBox") + Me.SQL_RIGHT_READ_AND_VIEW_ONLYTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SQL_RIGHT_READ_AND_VIEW_ONLY", True)) + Me.SQL_RIGHT_READ_AND_VIEW_ONLYTextBox.Name = "SQL_RIGHT_READ_AND_VIEW_ONLYTextBox" + ' + 'CONTROL_DOCTYPE_MATCHTextBox + ' + resources.ApplyResources(Me.CONTROL_DOCTYPE_MATCHTextBox, "CONTROL_DOCTYPE_MATCHTextBox") + Me.CONTROL_DOCTYPE_MATCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "CONTROL_DOCTYPE_MATCH", True)) + Me.CONTROL_DOCTYPE_MATCHTextBox.Name = "CONTROL_DOCTYPE_MATCHTextBox" + ' 'LOAD_DIRECTCheckBox ' resources.ApplyResources(Me.LOAD_DIRECTCheckBox, "LOAD_DIRECTCheckBox") @@ -722,12 +744,6 @@ Partial Class frmConstructorDesigner Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1" Me.CHANGED_WHOTextBox1.ReadOnly = True ' - 'SQL_SELECT_EBENE2TextBox - ' - resources.ApplyResources(Me.SQL_SELECT_EBENE2TextBox, "SQL_SELECT_EBENE2TextBox") - Me.SQL_SELECT_EBENE2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SQL_SELECT_EBENE2", True)) - Me.SQL_SELECT_EBENE2TextBox.Name = "SQL_SELECT_EBENE2TextBox" - ' 'ADDED_WHENTextBox1 ' resources.ApplyResources(Me.ADDED_WHENTextBox1, "ADDED_WHENTextBox1") @@ -1150,8 +1166,8 @@ Partial Class frmConstructorDesigner resources.ApplyResources(Me.dgvResult, "dgvResult") Me.dgvResult.AllowUserToAddRows = False Me.dgvResult.AllowUserToDeleteRows = False - DataGridViewCellStyle3.BackColor = System.Drawing.Color.Cyan - Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 + DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan + Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.dgvResult.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvResult.Name = "dgvResult" Me.dgvResult.ReadOnly = True @@ -1161,8 +1177,8 @@ Partial Class frmConstructorDesigner resources.ApplyResources(Me.dgvPlaceholders, "dgvPlaceholders") Me.dgvPlaceholders.AllowUserToAddRows = False Me.dgvPlaceholders.AllowUserToDeleteRows = False - DataGridViewCellStyle4.BackColor = System.Drawing.Color.Cyan - Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle2.BackColor = System.Drawing.Color.Cyan + Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 Me.dgvPlaceholders.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvPlaceholders.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.colPlaceholder, Me.colReplace}) Me.dgvPlaceholders.Name = "dgvPlaceholders" @@ -1708,7 +1724,6 @@ Partial Class frmConstructorDesigner Friend WithEvents ADDED_WHOTextBox1 As System.Windows.Forms.TextBox Friend WithEvents XtraTabPage5 As DevExpress.XtraTab.XtraTabPage Friend WithEvents SQL_SELECT_EBENE1TextBox As System.Windows.Forms.TextBox - Friend WithEvents SQL_SELECT_EBENE2TextBox As System.Windows.Forms.TextBox Friend WithEvents Label2 As System.Windows.Forms.Label Friend WithEvents COLUMN_NAME1ComboBox As System.Windows.Forms.ComboBox Friend WithEvents Label4 As System.Windows.Forms.Label @@ -1811,4 +1826,6 @@ Partial Class frmConstructorDesigner Friend WithEvents GridColumn6 As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents TBWH_Users1BindingSource As System.Windows.Forms.BindingSource Friend WithEvents colID1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents CONTROL_DOCTYPE_MATCHTextBox As System.Windows.Forms.TextBox + Friend WithEvents SQL_RIGHT_READ_AND_VIEW_ONLYTextBox As System.Windows.Forms.TextBox End Class diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.en-US.resx b/app/DD-Record-Organiser/frmConstructorDesigner.en-US.resx index 3a392bc..4e850da 100644 --- a/app/DD-Record-Organiser/frmConstructorDesigner.en-US.resx +++ b/app/DD-Record-Organiser/frmConstructorDesigner.en-US.resx @@ -208,18 +208,18 @@ SQL Level 1: - - 67, 13 - - - SQL Level 2: - 103, 13 Columnname Entity: + + 229, 13 + + + Spaltenmatching Docoumenttype - Control-ID: + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO @@ -296,7 +296,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS - CQAAAk1TRnQBSQFMAgEBAgEAAWABCgFgAQoBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CQAAAk1TRnQBSQFMAgEBAgEAAWgBCgFoAQoBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -344,27 +344,6 @@ Level 1 Selection? - - Entity - Hierarchy - - - General - - - Quick View - - - windream-search - - - Usermapping - - - 1002, 333 - - - Entity-Client Assignment - Load first record @@ -392,6 +371,9 @@ Tahoma, 8.25pt, style=Italic + + General + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m @@ -477,15 +459,15 @@ Please configure the Quickview for Entity-Records + + Quick View + 139, 17 windream search active - - windream-search for Record driven Search: - 104, 13 @@ -498,11 +480,79 @@ windream-Search: + + windream-search for Record driven Search: + windream-search for Entity-wide search: - - Restrictions Recordmanagement + + windream-search + + + + + + + + + + + Default + + + Top, Left + + + + + + Tile + + + Inherit + + + 0, 0 + + + + Center + + + + + + + None + + + + + + + 0 + + + Regular + + + Horizontal + + + + + + 0 + + + Regular + + + Horizontal + + + 77, 15 @@ -540,8 +590,11 @@ User for selection: - - 994, 307 + + Restrictions Recordmanagement + + + Usermapping 89, 13 @@ -559,6 +612,9 @@ selected clients Clients: + + Entity-Client Assignment + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 @@ -573,6 +629,9 @@ selected clients Save + + Entity - Hierarchy + 106, 13 @@ -588,7 +647,6 @@ selected clients Record saved! - AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4xLCBWZXJzaW9uPTE1LjEu @@ -5670,6 +5728,66 @@ selected clients Only the related Users will be able to start/choose the Constructor from Quick menu. + + + + + + + + Default + + + Top, Left + + + + + + Tile + + + Inherit + + + 0, 0 + + + Center + + + + + + None + + + + + + 0 + + + Regular + + + Horizontal + + + + + + 0 + + + Regular + + + Horizontal + + + + AAABAAQAEBAQAAAAAAAoAQAARgAAABAQAAAAAAAAaAUAAG4BAAAgIBAAAAAAAOgCAADWBgAAICAAAAAA diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.resx b/app/DD-Record-Organiser/frmConstructorDesigner.resx index 3dfce73..097936e 100644 --- a/app/DD-Record-Organiser/frmConstructorDesigner.resx +++ b/app/DD-Record-Organiser/frmConstructorDesigner.resx @@ -117,6 +117,10 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + 399, 24 @@ -124,7 +128,6 @@ 0, 0 - 41 @@ -149,8 +152,8 @@ MiddleRight - - 17 + + SEARCH_PATTERN1ComboBox $this @@ -158,17 +161,14 @@ TabPage1 - - Titel des Kombiformulares: - True System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Record-ID + + SEARCH_PATTERN2ComboBox SEQUENCE_MENULabel @@ -208,7 +208,7 @@ 64 - 13 + 16 SEARCH_PATTERN3ComboBox @@ -249,9 +249,6 @@ 42 - - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBTEMP_QUICKDISPLAYTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - QuickView Bild-Control: @@ -349,7 +346,7 @@ 24 - 19 + 21 System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -366,12 +363,15 @@ Add field - - XtraTabControl2 + + Delete field System.Windows.Forms.ImageList, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 93, 13 + Record-ID @@ -403,16 +403,16 @@ True - 186, 30 + 189, 30 - 73, 240 + 403, 258 Constructor-ID: - - Label8 + + 416, 211 Record-ID @@ -427,7 +427,7 @@ 65, 21 - 5 + 9 6 @@ -439,7 +439,7 @@ Spaltenname Entität: - 236, 224 + 566, 242 23, 22 @@ -456,9 +456,6 @@ System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - Fuchsia @@ -474,15 +471,15 @@ 3 - - 5 - 35 558, 33 + + 2 + 79 @@ -519,9 +516,6 @@ Bottom, Left - - XtraTabPage3 - Tahoma, 8.25pt, style=Italic @@ -540,11 +534,8 @@ SHORT_TITLETextBox - - @EntityID - - - True + + System.Windows.Forms.Label, 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 @@ -561,8 +552,8 @@ Fill - - Inherit + + 416, 128 39 @@ -570,14 +561,8 @@ - - - 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 - + + 5 System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -600,6 +585,9 @@ 142, 13 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + Regular @@ -5665,15 +5653,12 @@ Die Gesamtanzahl der Elemente. - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + windream-Suche Konfiguration 217, 23 - - 81 - 15 @@ -5698,6 +5683,9 @@ 44 + + 52 + 13 @@ -5767,8 +5755,8 @@ XtraTabPage5 - - 416, 211 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 Erstellt wann: @@ -5869,11 +5857,8 @@ XtraTabControl2 - - SQL Ebene 2: - - - NoControl + + 178, 46 XtraTabPage1 @@ -5884,14 +5869,17 @@ 858, 82 + + GridViewUserSQL + 733, 66 - - 35 + + TBPMO_CONSTRUCTOR_USER_SQLBindingSource - - GUIDTextBox1 + + 43 1 @@ -5911,9 +5899,6 @@ 2 - - Segoe UI, 8.25pt, style=Bold - Tahoma, 8.25pt, style=Italic @@ -5923,9 +5908,6 @@ $this - - 60, 13 - 6, 25 @@ -5938,11 +5920,14 @@ 539, 161 - - 665, 18 + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - windream-Suche Konfiguration + + 57 + + + SQL_RIGHT_READ_AND_VIEW_ONLYTextBox System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -5968,9 +5953,6 @@ 80 - - XtraTabPage3 - 45 @@ -6016,8 +5998,8 @@ 3 - - TBPMO_CONSTRUCTOR_USER_SQLBindingSource + + TabPage1 XtraTabControl2 @@ -6055,8 +6037,8 @@ Alle Constructor-Forms: - - DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null True @@ -6073,8 +6055,11 @@ 3, 3, 3, 3 - - 1341, 716 + + 75 + + + True 190, 13 @@ -6082,15 +6067,9 @@ System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 72, 107 - Segoe UI, 8.25pt, style=Italic - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - 350, 128 @@ -6106,14 +6085,29 @@ 44 - - Letzte 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 + + + + 821, 148 + + + 1 grpbxWD_RecordSearch - - 1341, 25 + + BindingNavigatorMoveNextItem + + + 243, 13 System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -6130,12 +6124,12 @@ + + 217, 13 + @EntityID - - False - 14 @@ -6148,6 +6142,9 @@ System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Record-ID + 5, 33 @@ -6157,9 +6154,6 @@ TabPage1 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - btndeleteControl @@ -6229,8 +6223,8 @@ 116, 21 - - 51 + + Segoe UI, 8.25pt, style=Bold Headline changed @@ -6247,6 +6241,9 @@ SQL_COMMANDTextBox + + 6 + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -6268,9 +6265,15 @@ 994, 307 + + Inherit + 166, 21 + + 665, 18 + 45 @@ -6295,8 +6298,8 @@ 9, 21 - - Top, Bottom, Left + + True 736, 42 @@ -6345,8 +6348,8 @@ 0, 0 - - TBPMO_CONSTRUCTOR_USER_SQLTableAdapter + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 88 @@ -6372,8 +6375,8 @@ 71, 13 - - Fuchsia + + 757, 96 tsbtnSave @@ -6405,8 +6408,8 @@ XtraTabPage5 - - 3 + + 558, 33 15 @@ -6525,6 +6528,9 @@ 2 + + XtraTabPage3 + GroupBox1 @@ -6543,8 +6549,8 @@ MiddleLeft - - True + + Top, Bottom, Left lblSave1 @@ -6555,11 +6561,8 @@ 6 - - 4 - - - Segoe UI, 8.25pt + + User zur Auswahl: 444, 85 @@ -6570,9 +6573,15 @@ False + + 51 + False + + GUIDTextBox1 + 292, 408 @@ -6680,8 +6689,17 @@ 203, 21 - - Tahoma, 8.25pt, style=Italic + + + 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= + Segoe UI, 8.25pt @@ -6689,14 +6707,17 @@ XtraTabPage5 + + 1341, 716 + System.Windows.Forms.ToolStripButton, 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 + + True NoControl @@ -6752,9 +6773,6 @@ 42 - - True - Default @@ -6774,11 +6792,8 @@ 413, 195 - - 0 - - 70, 183 + 68, 242 Segoe UI, 8.25pt, style=Italic @@ -6790,7 +6805,7 @@ ADDED_WHENTextBox2 - 1 + 5 34 @@ -6819,11 +6834,14 @@ 117, 13 - 12 + 15 78 + + Tahoma, 8.25pt, style=Italic + 4 @@ -6833,9 +6851,6 @@ 19 - - 480, 49 - MiddleLeft @@ -6845,8 +6860,8 @@ 296, 137 - - TBPMO_FORM_CONSTRUCTORBindingSource + + XtraTabPage2 System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -6857,11 +6872,8 @@ 6, 13 - - Segoe UI, 8.25pt, style=Bold - - - 83, 13 + + $this DD_ECMAdmin @@ -6908,9 +6920,6 @@ 8 - - 69, 91 - Form-ID (Entity) @@ -6926,12 +6935,18 @@ 129, 13 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + 166, 21 SQL Befehl testen + + 35 + 287, 21 @@ -6974,12 +6989,12 @@ True - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - Geändert wann: + + 19 + XtraTabPage1 @@ -6995,9 +7010,6 @@ QuickViewBild Control hinzugefügt - - XtraTabPage3 - Label14 @@ -7007,9 +7019,6 @@ 50 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - Aktuelle Position @@ -7025,6 +7034,9 @@ Top, Left, Right + + 576, 50 + Label15 @@ -7049,8 +7061,8 @@ listBoxControls - - NoControl + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 579, 252 @@ -7061,6 +7073,12 @@ Top, Bottom, Left + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 299, 153 + NoControl @@ -7085,8 +7103,8 @@ True - - 292, 386 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 True @@ -7094,11 +7112,11 @@ 432, 47 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 292, 0 - 15 + 18 543, 22 @@ -7109,15 +7127,15 @@ - - $this - Form-ID (Entity) 73, 13 + + 83, 13 + LANGUAGETextBox @@ -7136,9 +7154,6 @@ Label10 - - Fuchsia - 15 @@ -7163,14 +7178,14 @@ True - - GridViewlUsers2Menue + + 0 GroupBox1 - - DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @Record-ID @@ -7202,6 +7217,9 @@ 61 + + MiddleLeft + 11, 8 @@ -7211,9 +7229,6 @@ DevExpress.Utils.ImageCollection, DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 296, 33 - Konfigurierte Feldauswahl: @@ -7238,15 +7253,15 @@ 51 - - BindingNavigatorSeparator - SEARCH_PATTERN3Label BindingNavigatorPositionItem + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -7268,6 +7283,9 @@ System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 69, 127 + 12 @@ -7280,52 +7298,8 @@ 13 - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w - LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 - ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS - CQAAAk1TRnQBSQFMAgEBAgEAAXQBCwF8AQsBEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQCAAEo - AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA - AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 - AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA - AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm - AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM - AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA - ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz - AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ - AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM - AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA - AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA - AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ - AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/ - AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA - AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm - ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ - Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz - AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA - AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM - AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM - ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM - Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA - AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM - AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ - AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz - AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm - AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw - AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wUAAfQBlARNAZQB9AgA - AfQBeQFSAisBTAF0AfQnAAEbAVMBdQKaAZMBdAF1AU0BGgYAARoBUgF6ApoCegFYAUwBGiUAAfQBUwKa - AZMEdAF1AVMB9AQAAfQBWQKaBnoBTAH0JAAEmgGTBXQBdQGaBAACegKaBnoBWQF0JAABUwEaApoCkwV0 - AVMEAAFZAcMDmgZ6AVIkAAFTARoDmgGTBXQBTQQAATgBwwSaBXoBMSQAAVMBGgOaAZQBkwN0AZMBTQQA - ATgBwwSaBXoBMSQAAVMBGgSaApMCdAGUAVMEAAFZAsMEmgR6AVIkAAKaARoEmgGTAXQBkwF6AZoEAAKa - AcMFmgR6JAAB9AF1AhoGmgFTAfQEAAH0AVkCwwaaAVkB9CUAARsBUwGaAxoCmgFTARsGAAEbAVkBmgPD - AZoBegFYARsmAAG9AeMBdQVTARcBvQYAAQgBeAFYBFkBWAFzAQgmAAHjAZQB4wRHARcBFgFHBgABcgEI - AXgFlwGYAUkmAAHjAZQCFwRHARYBRwYAAZcBCAaXAZgBTyYAAeMBlAQXAkcBFgFHBgABlwEIBpcBmAFP - JgAB4wGUBRcBRwEWARcGAAGXAQgCeASXAZgBTyMAAUIBTQE+BwABPgMAASgDAAFAAwABEAMAAQEBAAEB - BQABgBcAA/8BAAHwAQ8B8AEPBAAB4AEHAeABBwQAAcABAwHAAQMEAAHAAQMBwAEDBAABwAEDAcABAwQA - AcABAwHAAQMEAAHAAQMBwAEDBAABwAEDAcABAwQAAcABAwHAAQMEAAHAAQMBwAEDBAAB4AEHAeABBwQA - AeABBwHgAQcEAAHgAQcB4AEHBAAB4AEHAeABBwQAAeABBwHgAQcEAAHgAQcB4AEHGgAL - + + Segoe UI, 8.25pt, style=Bold Button2 @@ -7345,6 +7319,9 @@ chklbxEntitiesforClient + + 292, 386 + Cyan @@ -7354,6 +7331,9 @@ True + + 57, 21 + Hinzufügen Datensatzeinschränkung @@ -7378,9 +7358,6 @@ NoControl - - 175, 23 - Label5 @@ -7402,17 +7379,14 @@ System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 236, 183 - ListBoxConfiguredDisplay DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 93, 13 + + 475, 103 181, 59 @@ -7441,14 +7415,14 @@ TBPMO_FORM_CONSTRUCTORBindingSource1 + + SQL-Command - Record and windream view only: + $this - - SQL_SELECT_EBENE2Label - - - GridViewUserSQL + + TabPage1 92, 23 @@ -7459,8 +7433,8 @@ Label9 - - 733, 26 + + Label19 System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -7478,7 +7452,7 @@ 5 - 8 + 12 windream-Suche wählen @@ -7502,7 +7476,7 @@ XtraTabPage4 - 1006, 359 + 1002, 333 from {0} records @@ -7531,6 +7505,9 @@ cmbSearchPattern5 + + 472, 87 + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m @@ -7575,9 +7552,6 @@ BindingNavigatorMoveFirstItem - - 416, 128 - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m @@ -7614,8 +7588,8 @@ Mandanten hinzu 14 - - MiddleLeft + + 17 System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -7629,9 +7603,6 @@ Mandanten hinzu $this - - 0 - 5 @@ -7650,14 +7621,11 @@ Mandanten hinzu BindingNavigatorAddNewItem - - DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - Horizontal - - XtraTabPage6 + + MiddleLeft 69, 48 @@ -7675,10 +7643,10 @@ Mandanten hinzu Verfügbare Mandanten: - 4 + 8 - 14 + 17 XtraTabPage6 @@ -7710,18 +7678,6 @@ Mandanten hinzu XtraTabPage5 - - - 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= - - 841, 71 @@ -7752,9 +7708,6 @@ Mandanten hinzu 11 - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - 299, 49 @@ -7782,6 +7735,9 @@ Mandanten hinzu 229, 13 + + 18 + 1008, 22 @@ -7797,11 +7753,17 @@ Mandanten hinzu $this + + 55 + XtraTabPage1 + + XtraTabControl2 + - 239, 240 + 569, 258 TopCenter @@ -7821,6 +7783,9 @@ Mandanten hinzu 156, 21 + + XtraTabPage3 + Consolas, 8.25pt @@ -7845,8 +7810,8 @@ Mandanten hinzu 480, 158 - - $this + + Segoe UI, 8.25pt, style=Bold 9, 115 @@ -7869,9 +7834,6 @@ Mandanten hinzu 11 - - True - 536, 143 @@ -7899,11 +7861,8 @@ Mandanten hinzu True - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Cyan + + 0 System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -7912,13 +7871,13 @@ Mandanten hinzu True - 10 + 14 Userauswahl: - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 296, 33 grpbxWD_RecordSearch @@ -7935,8 +7894,8 @@ Mandanten hinzu Tahoma, 8.25pt, style=Italic - - + + True MiddleLeft @@ -7950,6 +7909,9 @@ Mandanten hinzu ImageList1 + + XtraTabPage3 + 11 @@ -7969,16 +7931,13 @@ Mandanten hinzu 96, 13 - 994, 330 + 994, 307 grpbxWD_RecordSearch - - XtraTabPage2 - - - 2 + + 5 True @@ -7987,12 +7946,18 @@ Mandanten hinzu Center + + TBPMO_FORM_CONSTRUCTORTableAdapter1 + colReplace System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + GridViewlUsers2Menue + CHANGED_WHOLabel2 @@ -8026,9 +7991,6 @@ Mandanten hinzu DD_DMSDataSet - - SEARCH_PATTERN2ComboBox - $this @@ -8053,9 +8015,6 @@ Mandanten hinzu 102 - - Consolas, 8.25pt - 8 @@ -8071,9 +8030,6 @@ Mandanten hinzu GridColumn5 - - 37 - TabPage1 @@ -8096,14 +8052,11 @@ Mandanten hinzu Added who: - 6 + 10 System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - User zur Auswahl: - True @@ -8158,6 +8111,9 @@ Mandanten hinzu True + + 72, 143 + 19 @@ -8179,8 +8135,11 @@ Mandanten hinzu True - - 178, 46 + + $this + + + 54 DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null @@ -8192,14 +8151,11 @@ Mandanten hinzu 9, 123 - 9 + 13 XtraTabPage5 - - Segoe UI, 8.25pt, style=Bold - TBWH_Users1BindingSource @@ -8249,8 +8205,8 @@ Mandanten hinzu Segoe UI, 8.25pt, style=Bold - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 Tile @@ -8258,8 +8214,8 @@ Mandanten hinzu XtraTabPage3 - - Cyan + + 4 True @@ -8291,9 +8247,6 @@ Mandanten hinzu frmConstructorDesigner - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - Segoe UI, 8.25pt, style=Italic @@ -8330,18 +8283,18 @@ Mandanten hinzu 733, 127 - - 43 - 94, 13 - 239, 199 + 237, 258 19 + + 0 + 6, 25 @@ -8351,8 +8304,11 @@ Mandanten hinzu MiddleLeft + + 56 + - 72, 149 + 72, 103 System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -8363,14 +8319,58 @@ Mandanten hinzu btnSetHeadline - - 299, 153 + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w + LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 + ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS + CQAAAk1TRnQBSQFMAgEBAgEAAZwBCwGgAQsBEAEAARABAAT/AQkBEAj/AUIBTQE2AQQGAAE2AQQCAAEo + AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA + AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 + AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA + AWYDAAGZAwABzAIAATMDAAIzAgABMwFmAgABMwGZAgABMwHMAgABMwH/AgABZgMAAWYBMwIAAmYCAAFm + AZkCAAFmAcwCAAFmAf8CAAGZAwABmQEzAgABmQFmAgACmQIAAZkBzAIAAZkB/wIAAcwDAAHMATMCAAHM + AWYCAAHMAZkCAALMAgABzAH/AgAB/wFmAgAB/wGZAgAB/wHMAQABMwH/AgAB/wEAATMBAAEzAQABZgEA + ATMBAAGZAQABMwEAAcwBAAEzAQAB/wEAAf8BMwIAAzMBAAIzAWYBAAIzAZkBAAIzAcwBAAIzAf8BAAEz + AWYCAAEzAWYBMwEAATMCZgEAATMBZgGZAQABMwFmAcwBAAEzAWYB/wEAATMBmQIAATMBmQEzAQABMwGZ + AWYBAAEzApkBAAEzAZkBzAEAATMBmQH/AQABMwHMAgABMwHMATMBAAEzAcwBZgEAATMBzAGZAQABMwLM + AQABMwHMAf8BAAEzAf8BMwEAATMB/wFmAQABMwH/AZkBAAEzAf8BzAEAATMC/wEAAWYDAAFmAQABMwEA + AWYBAAFmAQABZgEAAZkBAAFmAQABzAEAAWYBAAH/AQABZgEzAgABZgIzAQABZgEzAWYBAAFmATMBmQEA + AWYBMwHMAQABZgEzAf8BAAJmAgACZgEzAQADZgEAAmYBmQEAAmYBzAEAAWYBmQIAAWYBmQEzAQABZgGZ + AWYBAAFmApkBAAFmAZkBzAEAAWYBmQH/AQABZgHMAgABZgHMATMBAAFmAcwBmQEAAWYCzAEAAWYBzAH/ + AQABZgH/AgABZgH/ATMBAAFmAf8BmQEAAWYB/wHMAQABzAEAAf8BAAH/AQABzAEAApkCAAGZATMBmQEA + AZkBAAGZAQABmQEAAcwBAAGZAwABmQIzAQABmQEAAWYBAAGZATMBzAEAAZkBAAH/AQABmQFmAgABmQFm + ATMBAAGZATMBZgEAAZkBZgGZAQABmQFmAcwBAAGZATMB/wEAApkBMwEAApkBZgEAA5kBAAKZAcwBAAKZ + Af8BAAGZAcwCAAGZAcwBMwEAAWYBzAFmAQABmQHMAZkBAAGZAswBAAGZAcwB/wEAAZkB/wIAAZkB/wEz + AQABmQHMAWYBAAGZAf8BmQEAAZkB/wHMAQABmQL/AQABzAMAAZkBAAEzAQABzAEAAWYBAAHMAQABmQEA + AcwBAAHMAQABmQEzAgABzAIzAQABzAEzAWYBAAHMATMBmQEAAcwBMwHMAQABzAEzAf8BAAHMAWYCAAHM + AWYBMwEAAZkCZgEAAcwBZgGZAQABzAFmAcwBAAGZAWYB/wEAAcwBmQIAAcwBmQEzAQABzAGZAWYBAAHM + ApkBAAHMAZkBzAEAAcwBmQH/AQACzAIAAswBMwEAAswBZgEAAswBmQEAA8wBAALMAf8BAAHMAf8CAAHM + Af8BMwEAAZkB/wFmAQABzAH/AZkBAAHMAf8BzAEAAcwC/wEAAcwBAAEzAQAB/wEAAWYBAAH/AQABmQEA + AcwBMwIAAf8CMwEAAf8BMwFmAQAB/wEzAZkBAAH/ATMBzAEAAf8BMwH/AQAB/wFmAgAB/wFmATMBAAHM + AmYBAAH/AWYBmQEAAf8BZgHMAQABzAFmAf8BAAH/AZkCAAH/AZkBMwEAAf8BmQFmAQAB/wKZAQAB/wGZ + AcwBAAH/AZkB/wEAAf8BzAIAAf8BzAEzAQAB/wHMAWYBAAH/AcwBmQEAAf8CzAEAAf8BzAH/AQAC/wEz + AQABzAH/AWYBAAL/AZkBAAL/AcwBAAJmAf8BAAFmAf8BZgEAAWYC/wEAAf8CZgEAAf8BZgH/AQAC/wFm + AQABIQEAAaUBAANfAQADdwEAA4YBAAOWAQADywEAA7IBAAPXAQAD3QEAA+MBAAPqAQAD8QEAA/gBAAHw + AfsB/wEAAaQCoAEAA4ADAAH/AgAB/wMAAv8BAAH/AwAB/wEAAf8BAAL/AgAD/wUAAfQBlARNAZQB9AgA + AfQBeQFSAisBTAF0AfQnAAEbAVMBdQKaAZMBdAF1AU0BGgYAARoBUgF6ApoCegFYAUwBGiUAAfQBUwKa + AZMEdAF1AVMB9AQAAfQBWQKaBnoBTAH0JAAEmgGTBXQBdQGaBAACegKaBnoBWQF0JAABUwEaApoCkwV0 + AVMEAAFZAcMDmgZ6AVIkAAFTARoDmgGTBXQBTQQAATgBwwSaBXoBMSQAAVMBGgOaAZQBkwN0AZMBTQQA + ATgBwwSaBXoBMSQAAVMBGgSaApMCdAGUAVMEAAFZAsMEmgR6AVIkAAKaARoEmgGTAXQBkwF6AZoEAAKa + AcMFmgR6JAAB9AF1AhoGmgFTAfQEAAH0AVkCwwaaAVkB9CUAARsBUwGaAxoCmgFTARsGAAEbAVkBmgPD + AZoBegFYARsmAAG9AeMBdQVTARcBvQYAAQgBeAFYBFkBWAFzAQgmAAHjAZQB4wRHARcBFgFHBgABcgEI + AXgFlwGYAUkmAAHjAZQCFwRHARYBRwYAAZcBCAaXAZgBTyYAAeMBlAQXAkcBFgFHBgABlwEIBpcBmAFP + JgAB4wGUBRcBRwEWARcGAAGXAQgCeASXAZgBTyMAAUIBTQE+BwABPgMAASgDAAFAAwABEAMAAQEBAAEB + BQABgBcAA/8BAAHwAQ8B8AEPBAAB4AEHAeABBwQAAcABAwHAAQMEAAHAAQMBwAEDBAABwAEDAcABAwQA + AcABAwHAAQMEAAHAAQMBwAEDBAABwAEDAcABAwQAAcABAwHAAQMEAAHAAQMBwAEDBAAB4AEHAeABBwQA + AeABBwHgAQcEAAHgAQcB4AEHBAAB4AEHAeABBwQAAeABBwHgAQcEAAHgAQcB4AEHGgAL + - - 821, 148 + + 81 - - 558, 33 + + NoControl XtraTabPage6 @@ -8378,9 +8378,6 @@ Mandanten hinzu 14, 3 - - 292, 0 - 1049, 126 @@ -8438,9 +8435,6 @@ Mandanten hinzu XtraTabControl2 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - True @@ -8454,7 +8448,7 @@ Mandanten hinzu 12 - 69, 133 + 69, 87 6, 18 @@ -8471,9 +8465,6 @@ Mandanten hinzu TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem - - 16 - Segoe UI, 8.25pt, style=Italic @@ -8489,8 +8480,8 @@ Mandanten hinzu 4 - - TabPage1 + + Titel des Kombiformulares: 23, 22 @@ -8537,8 +8528,8 @@ Mandanten hinzu $this - - Konfigurieren Sie hier die Erstansicht zur Navigation innerhalb der Eintitätsdatensätze + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -8546,6 +8537,9 @@ Mandanten hinzu 6, 18 + + 3 + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO @@ -8558,6 +8552,9 @@ Mandanten hinzu Speichern + + NoControl + 41 @@ -8579,8 +8576,8 @@ Mandanten hinzu True - - DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + 175, 23 XtraTabPage6 @@ -8594,8 +8591,11 @@ Mandanten hinzu 77, 13 - - 5 + + Konfigurieren Sie hier die Erstansicht zur Navigation innerhalb der Eintitätsdatensätze + + + XtraTabPage6 Tahoma, 8.25pt, style=Italic @@ -8636,17 +8636,17 @@ Mandanten hinzu 4 - - 43, 22 + + 480, 49 System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - XtraTabPage5 + + True - - 576, 50 + + CHANGED_WHENLabel2 Designer @@ -8660,6 +8660,9 @@ Mandanten hinzu btnsaddUser2Client + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + 27 @@ -8669,8 +8672,8 @@ Mandanten hinzu Felder zur Auswahl: - - MiddleLeft + + XtraTabPage3 True @@ -8693,8 +8696,8 @@ Mandanten hinzu 212, 24 - - CHANGED_WHENTextBox + + DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBTEMP_QUICKDISPLAYTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null $this @@ -8708,8 +8711,8 @@ Mandanten hinzu System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 2 + + NoControl 71 @@ -8741,6 +8744,9 @@ Mandanten hinzu 1 + + Label8 + TabPage1 @@ -8783,9 +8789,6 @@ Mandanten hinzu System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - BindingNavigatorMoveNextItem - False @@ -8810,9 +8813,6 @@ Mandanten hinzu True - - CHANGED_WHENLabel2 - 44 @@ -8826,7 +8826,7 @@ Mandanten hinzu 248, 154 - 7 + 11 34 @@ -8840,11 +8840,14 @@ Mandanten hinzu GroupBox1 - - 107 - - 70, 224 + 400, 242 + + + SQL_RIGHT_READ_AND_VIEW_ONLYLabel + + + Spaltenmatching Dokumenttyp - Control-ID: 9, 75 @@ -8858,9 +8861,6 @@ Mandanten hinzu TabPage1 - - 0 - 70 @@ -8873,12 +8873,15 @@ Mandanten hinzu 821, 157 - - XtraTabControl2 + + 43, 22 0, 0 + + Segoe UI, 8.25pt + Nächste verschieben @@ -8903,8 +8906,8 @@ Mandanten hinzu 1 - - TBPMO_FORM_CONSTRUCTORTableAdapter1 + + XtraTabControl2 btndeleteUserConstructorRel @@ -8924,6 +8927,9 @@ Mandanten hinzu DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.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 + 23, 22 @@ -8939,9 +8945,6 @@ Mandanten hinzu Button1 - - SEARCH_PATTERN1ComboBox - XtraTabPage5 @@ -8960,8 +8963,8 @@ Mandanten hinzu TabPage1 - - 52 + + XtraTabPage5 System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 @@ -8969,8 +8972,8 @@ Mandanten hinzu Button2 - - Einschränkung Datensätze + + False Erfolgreich gespeichert. @@ -8981,6 +8984,9 @@ Mandanten hinzu Zugeordnete Mandanten: + + 1341, 25 + 7 @@ -8993,8 +8999,8 @@ Mandanten hinzu XtraTabPage3 - - System.Windows.Forms.Label, 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 MiddleLeft @@ -9014,6 +9020,9 @@ Mandanten hinzu 92, 13 + + 3 + 0 @@ -9030,7 +9039,7 @@ Mandanten hinzu 60 - 189, 133 + 189, 87 6 @@ -9041,6 +9050,9 @@ Mandanten hinzu System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + True @@ -9080,8 +9092,11 @@ Mandanten hinzu LEVEL1_SELECTCheckBox - - Delete field + + CHANGED_WHENTextBox + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 79 @@ -9098,11 +9113,8 @@ Mandanten hinzu System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 757, 20 - - - + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a 72, 13 @@ -9125,9 +9137,6 @@ Mandanten hinzu Segoe UI Semibold, 9.75pt, style=Bold, Italic - - 75 - True @@ -9176,6 +9185,9 @@ Mandanten hinzu System.Windows.Forms.ToolStripButton, 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 + 22 @@ -9194,12 +9206,15 @@ Mandanten hinzu 1 - - 0 + + 107 XtraTabPage5 + + 2 + ImageCollection1 @@ -9227,9 +9242,6 @@ Mandanten hinzu 250, 85 - - 57 - SEARCH_PATTERN4Label @@ -9248,6 +9260,9 @@ Mandanten hinzu System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True + Center @@ -9270,7 +9285,7 @@ Mandanten hinzu DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - 3 + 7 lblSave @@ -9305,39 +9320,45 @@ Mandanten hinzu Tahoma, 8.25pt, style=Italic + + 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 - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - @ParentID - - True + + 4 + + + XtraTabPage3 6 + + Einschränkung Datensätze + XtraTabPage5 - - NoControl + + 234, 242 Freigegebene User - Ansicht: + + @EntityID + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a 12 - - 11 - ToolStrip1 @@ -9353,6 +9374,9 @@ Mandanten hinzu System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + colPlaceholder @@ -9371,11 +9395,8 @@ Mandanten hinzu Horizontal - - 72, 13 - - - 17 + + TBPMO_CONSTRUCTOR_USER_SQLTableAdapter $this @@ -9398,6 +9419,9 @@ Mandanten hinzu 80, 13 + + 181, 99 + Top, Left @@ -9407,15 +9431,27 @@ Mandanten hinzu 77 + + CONTROL_DOCTYPE_MATCHTextBox + Erstellt wer: - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 55 + + + DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + TBPMO_FORM_CONSTRUCTORBindingSource 73, 13 + + Letzte verschieben + GroupBox1 @@ -9476,6 +9512,9 @@ Mandanten hinzu 14, 24 + + Consolas, 8.25pt + Left @@ -9494,9 +9533,15 @@ Mandanten hinzu Label6 + + Segoe UI, 8.25pt, style=Italic + Label7 + + NoControl + CHANGED_WHOLabel1 @@ -9506,6 +9551,9 @@ Mandanten hinzu 346, 63 + + 733, 26 + 144, 22 @@ -9534,7 +9582,7 @@ Mandanten hinzu 2 - 18 + 20 CHANGED_WHENLabel @@ -9548,8 +9596,8 @@ Mandanten hinzu btnChangeHOMESTANDARD - - TabPage1 + + True @@ -9582,10 +9630,10 @@ Mandanten hinzu 93, 23 - 73, 199 + 71, 258 - - 18 + + 60, 13 Eingaben erfolgreich gespeichert - @@ -9611,9 +9659,6 @@ Mandanten hinzu - - SQL_SELECT_EBENE2TextBox - CHANGED_WHENLabel1 @@ -9638,8 +9683,8 @@ Mandanten hinzu cmbSearchPattern4 - - Segoe UI, 8.25pt, style=Italic + + 0 0, 0 @@ -9662,11 +9707,8 @@ Mandanten hinzu 101, 13 - - 181, 99 - - - 36 + + BindingNavigatorSeparator 69 @@ -9689,8 +9731,11 @@ Mandanten hinzu Delete QuickView Picture - - False + + True + + + 17, 173 False @@ -9704,6 +9749,12 @@ Mandanten hinzu False + + 299, 134 + + + en-US + 17, 95 @@ -9719,8 +9770,8 @@ Mandanten hinzu 442, 134 - - 344, 173 + + 17, 212 False @@ -9740,9 +9791,6 @@ Mandanten hinzu False - - False - False @@ -9758,41 +9806,44 @@ Mandanten hinzu False - - 17, 56 + + False + + + 125 False - - 17, 173 + + 160, 17 + + + 17, 56 False - + False - - 299, 134 - - - False + + 17, 17 325, 95 - - 160, 17 + + 680, 56 - - True + + 180, 134 335, 56 - - 125 + + 461, 17 False @@ -9818,26 +9869,20 @@ Mandanten hinzu False - - 17, 212 + + False 704, 134 - - 17, 17 + + False 984, 173 - - 680, 56 - - - 461, 17 - - - 667, 173 + + False False @@ -9845,6 +9890,9 @@ Mandanten hinzu True + + 344, 173 + False @@ -9854,7 +9902,7 @@ Mandanten hinzu False - - 180, 134 + + 667, 173 \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.vb b/app/DD-Record-Organiser/frmConstructorDesigner.vb index 4717a7f..72539d5 100644 --- a/app/DD-Record-Organiser/frmConstructorDesigner.vb +++ b/app/DD-Record-Organiser/frmConstructorDesigner.vb @@ -353,7 +353,7 @@ Public Class frmConstructorDesigner Me.CHANGED_WHOTextBox1.Text = Environment.UserName Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource.EndEdit() Me.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter.Update(DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAIL) - tslblSaveDetail.Text = "Constructor-Details erfolgreich gespeichert - " & Now + tslblSaveDetail.Text = "Constructor-Details saved - " & Now Me.tslblSaveDetail.Visible = True Else Me.tslblSaveDetail.Visible = False @@ -397,7 +397,7 @@ Public Class frmConstructorDesigner "',SEARCH_PATTERN4 = '" & SP4 & "',SEARCH_PATTERN5 = '" & SP5 & "', CHANGED_WHO = '" & Environment.UserName & "' where FORM_ID = " & SELECTED_ENTITY_ID & " and SCREEN_ID = " & CURRENT_SCREEN_ID If ClassDatabase.Execute_non_Query(sql) = True Then lblSave1.Visible = True - lblSave1.Text = "Erfolgreich gespeichert - " & Now + lblSave1.Text = "Data saved - " & Now End If Catch ex As Exception MsgBox("Error in Save DocView-properties 2:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) diff --git a/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb b/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb index 898d482..f643c7e 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb @@ -112,6 +112,7 @@ Partial Class frmConstructor_Main Me.AnwendungscacheFreigebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.tsButtonShowTaskOverview = New System.Windows.Forms.ToolStripButton() Me.tsButtonShowWorkflowTasks = New System.Windows.Forms.ToolStripButton() + Me.tslblLocked = New System.Windows.Forms.ToolStripLabel() Me.Panel2 = New System.Windows.Forms.Panel() Me.GridControlParent = New DevExpress.XtraGrid.GridControl() Me.GridViewParent = New DevExpress.XtraGrid.Views.Grid.GridView() @@ -670,7 +671,7 @@ Partial Class frmConstructor_Main 'ToolStripEdit ' Me.ToolStripEdit.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden - Me.ToolStripEdit.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsButtonAdd, Me.tsButtonSave, Me.tsButtonDelete, Me.tsButtonEdit, Me.ToolStripDropDownButton1, Me.tsButtonShowTaskOverview, Me.tsButtonShowWorkflowTasks}) + Me.ToolStripEdit.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsButtonAdd, Me.tsButtonSave, Me.tsButtonDelete, Me.tsButtonEdit, Me.ToolStripDropDownButton1, Me.tsButtonShowTaskOverview, Me.tsButtonShowWorkflowTasks, Me.tslblLocked}) resources.ApplyResources(Me.ToolStripEdit, "ToolStripEdit") Me.ToolStripEdit.Name = "ToolStripEdit" ' @@ -774,6 +775,12 @@ Partial Class frmConstructor_Main Me.tsButtonShowWorkflowTasks.Image = Global.DD_Record_Organiser.My.Resources.Resources.bricks Me.tsButtonShowWorkflowTasks.Name = "tsButtonShowWorkflowTasks" ' + 'tslblLocked + ' + resources.ApplyResources(Me.tslblLocked, "tslblLocked") + Me.tslblLocked.Image = Global.DD_Record_Organiser.My.Resources.Resources.lock + Me.tslblLocked.Name = "tslblLocked" + ' 'Panel2 ' Me.Panel2.Controls.Add(Me.GridControlParent) @@ -1115,4 +1122,5 @@ Partial Class frmConstructor_Main Friend WithEvents SplitContainerBottom As DevExpress.XtraEditors.SplitContainerControl Friend WithEvents ImageCollection1 As DevExpress.Utils.ImageCollection Friend WithEvents ToolTipController As DevExpress.Utils.ToolTipController + Friend WithEvents tslblLocked As System.Windows.Forms.ToolStripLabel End Class diff --git a/app/DD-Record-Organiser/frmConstructor_Main.en-US.resx b/app/DD-Record-Organiser/frmConstructor_Main.en-US.resx index ebee0eb..58f13bc 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.en-US.resx +++ b/app/DD-Record-Organiser/frmConstructor_Main.en-US.resx @@ -117,33 +117,14 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Default + + + Default + - - 189, 70 - - - 183, 170 - - - Details - - - windream-files - - - Follow Up - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAExpc3Q7QnVsbGV0O1FzfzkAAABa - SURBVDhPY/j//z9FGEPAxsaGEYhBNF4MUw/TVADED0A0kkHMQMyCBbOCaHQDQJr/g2gkA0B8nBimDqYY - wwXEYqyCpGCsgqRgMEGxF6CaQYEzGogjMRD/MwAARTWKOO3Nn7MAAAAASUVORK5CYII= - - - - positions - 188, 22 @@ -159,6 +140,37 @@ 188, 22 + + 189, 70 + + + + + + + + + + + + + None + + + + + + + + + + + + None + + + Default + 182, 22 @@ -207,6 +219,126 @@ Refresh Data + + 183, 170 + + + + + + + + + + + + None + + + + + + + + + + Default + + + Top, Left + + + + + + Tile + + + Inherit + + + 0, 0 + + + + Center + + + + + + None + + + + + + + 0 + + + Regular + + + Horizontal + + + + + + 0 + + + Regular + + + Horizontal + + + + + + + + + + + + 0 + + + Regular + + + Horizontal + + + + + + Default + + + + + + + + + + + + None + + + Details + + + + + + Default + AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w @@ -215,6 +347,24 @@ AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAfG4AAKodAAAAAAAACw== + + + + + + + + None + + + Default + + + 174, 22 + + + Configuration User + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 @@ -234,14 +384,47 @@ configuration windream-View - - 174, 22 + + - - Configuration User + + - - Special recipient for record: + + + + + None + + + windream-files + + + + + + Default + + + + + + + + + + + + None + + + Default + + + Default + + + Default @@ -263,27 +446,288 @@ delete user + + + + + + + + + + + None + + + Default + Add user tu follow up + + + + + + + + + + + None + + + Default + + + + + + + + + + + + None + + + Default + + + + + + + + + + + + None + + + Default + + + + + + + + + + + + None + + + Default + 216, 13 Attention: this list overdrives the general list. + + + + + + + + + + + None + + + Special recipient for record: + + + + + + + + + + + + None + + + Default + 92, 15 Follow Up saved + + + + + + + + + + + None + + + Default + + + + + + + + + + + + None + + + Default + + + + + + + + + + + + None + + + Default + + + + + + + + + + + + None + + + + + + + + + + + + None + + + Default + 91, 13 Saved Follow Ups + + + + + + + + + + + None + + + Follow Up + + + + + + Default + + + + + + + + + Default + + + Top, Left + + + + + + Tile + + + Inherit + + + 0, 0 + + + Center + + + + + + None + + + + + + 0 + + + Regular + + + Horizontal + + + + + + + + + + + + + + + + + + None + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO @@ -296,6 +740,9 @@ rkJggg== + + Default + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO @@ -348,6 +795,38 @@ 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + + + + + + + + None + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAASdEVYdFRpdGxlAExpc3Q7QnVsbGV0O1FzfzkAAABa + SURBVDhPY/j//z9FGEPAxsaGEYhBNF4MUw/TVADED0A0kkHMQMyCBbOCaHQDQJr/g2gkA0B8nBimDqYY + wwXEYqyCpGCsgqRgMEGxF6CaQYEzGogjMRD/MwAARTWKOO3Nn7MAAAAASUVORK5CYII= + + + + positions + + + + + + + + + Default + 49, 22 @@ -374,11 +853,11 @@ Delete - - 123, 22 + + 95, 22 - - record functions + + Work Record 213, 22 @@ -431,9 +910,120 @@ Clear Applications cache + + 123, 22 + + + record functions + TaskOverview + + 131, 22 + + + Only reading access + + + + + + + + + + + + None + + + Default + + + + + + + + + Default + + + Top, Left + + + + + + Tile + + + Inherit + + + 0, 0 + + + Center + + + + + + None + + + + + + 0 + + + Regular + + + Horizontal + + + + + + + + + Default + + + + + + + + + + + + None + + + + + + + + + + + + None + + + + + + + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m @@ -461,7 +1051,24 @@ uIEEMbxns0OpzYNRITMZmOv/PZbXJi3WJC3WJC3Wo939Ao+TPgKX3Mi+AAAAAElFTkSuQmCC - + + + + + Default + + + + + + + + + + + + None + AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4xLCBWZXJzaW9uPTE1LjEu @@ -469,6 +1076,24 @@ ZXZFeHByZXNzLlV0aWxzLkltYWdlQ29sbGVjdGlvblN0cmVhbWVyAAAAAAIAAAAL + + Default + + + + + + + + + + + + None + + + Default + AAABAAgAEBAAAAEACABoBQAAhgAAABAQAAABACAAaAQAAO4FAAAYGAAAAQAIAMgGAABWCgAAGBgAAAEA @@ -918,4 +1543,16 @@ AAAADwAA/gAAAAAPAAD//4AAAB8AAP///8AP/wAA////////AAD///////8AAP///////wAA + + + + + + + + + + + None + \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmConstructor_Main.resx b/app/DD-Record-Organiser/frmConstructor_Main.resx index d8c0eaa..d891f37 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.resx +++ b/app/DD-Record-Organiser/frmConstructor_Main.resx @@ -289,7 +289,7 @@ 0, 0 - 788, 270 + 795, 270 0 @@ -361,7 +361,7 @@ 0, 0 - 1069, 312 + 1072, 316 0 @@ -379,7 +379,7 @@ 0 - 1069, 312 + 1072, 316 Detailansicht @@ -397,7 +397,7 @@ 0 - 1071, 340 + 1078, 347 1 @@ -416,11 +416,11 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACFTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5BeEhvc3QrU3RhdGUBAAAABERhdGEHAgIAAAAJAwAAAA8DAAAAJQAAAAIB - AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAfG4AAKodAAAAAAAACw== + AAAAAQAAAAAAAAAAAAAAABAAAAAAAAEAy24AABMeAAAAAAAACw== - 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 @@ -1363,11 +1363,23 @@ Taskmanagement + + Segoe UI, 9pt, style=Bold + + + 139, 22 + + + Nur lesenden Zugriff + + + False + 0, 0 - 1071, 25 + 1078, 25 0 @@ -1472,7 +1484,7 @@ Panel2 - 1083, 365 + 1083, 372 0 @@ -2456,6 +2468,12 @@ System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + tslblLocked + + + System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + GridViewParent diff --git a/app/DD-Record-Organiser/frmConstructor_Main.vb b/app/DD-Record-Organiser/frmConstructor_Main.vb index 95afb0e..715d55d 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.vb @@ -9,6 +9,7 @@ Imports DevExpress.XtraScheduler Imports System.Text Imports System.IO Imports DevExpress.XtraGrid +Imports WINDREAMLib Public Class frmConstructor_Main @@ -69,6 +70,8 @@ Public Class frmConstructor_Main Private RIGHT_VIEW_DOC As Boolean = True Private RIGHT_DELETE_DOC As Boolean = False + Private RIGHT_ONLY_READ As Boolean = False + Private windream_Docshow As Boolean = False Private WD_Suche As String Private DocView @@ -81,6 +84,7 @@ Public Class frmConstructor_Main Private LinkParentID As Integer + Private CONTROL_DOCTYPE_MATCH As Integer = 0 Private FOLLOW_UPisActive As Boolean = False Private DT_FU_Record As DataTable @@ -94,6 +98,7 @@ Public Class frmConstructor_Main Private IS_SINGLE_RECORD As Boolean = False Private RECORD_ID As Integer Private PARENT_ID As Integer + Private SQL_RIGHT_READ_AND_VIEW_ONLY As String = "" Private FORM_TYPE As Integer Private ENTITY_ID As Integer @@ -116,6 +121,10 @@ Public Class frmConstructor_Main End Enum #End Region + Private Sub frmConstructor_Main_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop + + End Sub + Private Sub frmForm_Constructor_Main_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing _FormClosing = True ' Check_Record_Changed() @@ -141,7 +150,7 @@ Public Class frmConstructor_Main MsgBox("Error while Loading Form part 1" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try - + ' Bestimme Dinge ausblenden wenn kein admin If USER_IS_ADMIN = True Then @@ -676,6 +685,57 @@ Public Class frmConstructor_Main VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True Show_Selected_Record_Data(Grid_RecordID, False) + RIGHT_ONLY_READ = False + RecordKopierenToolStripMenuItem.Enabled = True + tslblLocked.Visible = False + TabFollowUp.PageEnabled = True + Dim tempsql + If SQL_RIGHT_READ_AND_VIEW_ONLY <> "" Then + Try + tempsql = SQL_RIGHT_READ_AND_VIEW_ONLY + tempsql = tempsql.Replace("@RECORDID", RECORD_ID) + tempsql = tempsql.Replace("@RECORD_ID", RECORD_ID) + tempsql = tempsql.Replace("@USER_ID", USER_GUID) + tempsql = tempsql.Replace("@USER_GUID", USER_GUID) + + ''Regulären Ausdruck zum Auslesen der windream-Indexe definieren + 'Dim preg As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" + '' einen Regulären Ausdruck laden + 'Dim regulärerAusdruck As System.Text.RegularExpressions.Regex = New System.Text.RegularExpressions.Regex(preg) + '' die Vorkommen im SQL-String auslesen + 'Dim elemente As System.Text.RegularExpressions.MatchCollection = regulärerAusdruck.Matches(tempsql) + '' alle Vorkommen der windream-Indexe im SQL-String durchlaufen + ''##### + '' alle Vorkommen der windream-Indexe im SQL-String durchlaufen + 'For Each element As System.Text.RegularExpressions.Match In elemente + ' Dim elementohneSZ = element.Value.Replace("[%", "") + ' elementohneSZ = elementohneSZ.Replace("]", "") + ' ' den Platzhalter für den auszulesenden View durch den Viewnamen ersetzen + ' tempsql = tempsql.Replace(element.Value, controlvalue.ToString) + 'Next + + Try + RIGHT_ONLY_READ = CBool(ClassDatabase.Execute_Scalar(tempsql)) + Catch ex As Exception + RIGHT_ONLY_READ = False + End Try + If RIGHT_ONLY_READ = True Then + tsButtonAdd.Enabled = False + tsButtonEdit.Enabled = False + tsButtonSave.Enabled = False + tsButtonDelete.Enabled = False + tslblLocked.Visible = True + RecordKopierenToolStripMenuItem.Enabled = False + TabFollowUp.PageEnabled = False + End If + + Catch ex As Exception + MsgBox("unexpected Error in Check Read-Limitations:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + ClassLogger.Add("Unexpected Error in Check Read-Limitations: " & ex.Message) + ClassLogger.Add("TempSQL so far: " & tempsql) + End Try + End If + 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") @@ -693,7 +753,9 @@ Public Class frmConstructor_Main End If If RECORD_ID > 0 Then - tsButtonEdit.Enabled = True + If RIGHT_ONLY_READ = False Then + tsButtonEdit.Enabled = True + End If Get_RecordCounts_Nodes() End If End If @@ -1257,18 +1319,36 @@ Public Class frmConstructor_Main If result = MsgBoxResult.Yes Then Dim del = "EXEC [dbo].[PRPMO_DELETE_RECORD] " & SELECTED_RECORD_ID If ClassDatabase.Execute_non_Query(del, True) = True Then + RECORD_CHANGED = False + EDIT_STATE = EditState.None + CURRENT_RECORD_ENABLED = False + ' Update_Record_Label(SELECTED_RECORD_ID) 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) + + msg = "Wollen Sie die zugehörigen windream-Dateien ebenfalls löschen?" + If USER_LANGUAGE <> "de-DE" Then + msg = "Do You want to delete the related windream-documents?" + End If + Dim result1 As MsgBoxResult + result1 = MessageBox.Show(msg, "Confirmation:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + If result = MsgBoxResult.Yes Then + WD_DELETE_DOCS() + End If + SELECTED_RECORD_ID = 0 + RECORD_ID = 0 + CURRENT_RECORD_ID = 0 + RECORD_CHANGED = False 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 @@ -1414,7 +1494,7 @@ Public Class frmConstructor_Main RIGHT_DELETE_DOC = True End If Next - + End If tsButtonSave.Visible = True tsButtonAdd.Visible = True @@ -1454,6 +1534,8 @@ Public Class frmConstructor_Main LOAD_DIRECT = ClassDatabase.Execute_Scalar("SELECT LOAD_DIRECT FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID) CURRENT_CONSTRUCTOR_DETAIL_ID = ClassDatabase.Execute_Scalar("SELECT GUID FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID) POS_ENTITY = ClassDatabase.Execute_Scalar("SELECT POS_ENTITY FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID) + CONTROL_DOCTYPE_MATCH = ClassDatabase.Execute_Scalar("SELECT CONTROL_DOCTYPE_MATCH FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID) + SQL_RIGHT_READ_AND_VIEW_ONLY = ClassDatabase.Execute_Scalar("SELECT SQL_RIGHT_READ_AND_VIEW_ONLY FROM VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID) If VIEW_ID_RUNTIME <> -1 Then GRID_TYPE_ID = VIEW_ID_RUNTIME Else @@ -2626,7 +2708,7 @@ Public Class frmConstructor_Main Dim sw As New Stopwatch sw.Start() Dim elapsed As Double - + If ClassWindream.Init() = True Then windream_inited = True End If @@ -2956,6 +3038,173 @@ Public Class frmConstructor_Main If LogErrorsOnly = False Then ClassLogger.Add(" >> Run WD Search took " & Format(elapsed, "0.000000000") & " seconds", False) Cursor = Cursors.Default End Sub + Private Sub WD_DELETE_DOCS() + Dim sw As New Stopwatch + sw.Start() + Dim elapsed As Double + Dim Basesearch As String + Try + Dim windream_temp_search + If Not windream_Docshow = True Or Sett_LoadWD_Docs = False Then + Exit Sub + End If + Cursor = Cursors.WaitCursor + Dim DTWD As DataTable + Dim sql = "SELECT WINDREAM_SEARCH,SEARCH_PATTERN1,SEARCH_PATTERN2,SEARCH_PATTERN3,SEARCH_PATTERN4,SEARCH_PATTERN5 FROM TBPMO_FORM_VIEW WHERE WINDREAM_SEARCH <> '' AND FORM_ID = " & ENTITY_ID + DTWD = ClassDatabase.Return_Datatable(sql) + If DTWD.Rows.Count = 1 Then + If IsDBNull(DTWD.Rows(0).Item(0)) Then + Cursor = Cursors.Default + Exit Sub + End If + Else + Cursor = Cursors.Default + Exit Sub + End If + 'Die SearchPatterns durchlaufen und zwischenspeichern + If IsDBNull(DTWD.Rows(0).Item(0)) Then + Cursor = Cursors.Default + Exit Sub + End If + Basesearch = DTWD.Rows(0).Item(0) + SP1 = DTWD.Rows(0).Item(1) + If IsDBNull(DTWD.Rows(0).Item(2)) Then + SP2 = "" + Else + SP2 = DTWD.Rows(0).Item(2) + End If + If IsDBNull(DTWD.Rows(0).Item(3)) Then + SP3 = "" + Else + SP3 = DTWD.Rows(0).Item(3) + End If + If IsDBNull(DTWD.Rows(0).Item(4)) Then + SP4 = "" + Else + SP4 = DTWD.Rows(0).Item(4) + End If + If IsDBNull(DTWD.Rows(0).Item(5)) Then + SP5 = "" + Else + SP5 = DTWD.Rows(0).Item(5) + End If + + 'Eine tempfile generieren + Dim tempFilename1 = My.Computer.FileSystem.GetTempFileName() + 'Nur den Filenamen ohne Erweiterung + Dim tempName = Path.GetFileNameWithoutExtension(tempFilename1) + 'tempfile lsöchen + If My.Computer.FileSystem.FileExists(tempFilename1) Then + My.Computer.FileSystem.DeleteFile(tempFilename1) + End If + + Dim temppath = Path.GetTempPath + + Dim EncodingFormat As Encoding + 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) + Else + 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) + fileContents = My.Computer.FileSystem.ReadAllText(BaseSearch, EncodingFormat) ', System.Text.Encoding.Unicode + If LogErrorsOnly = False Then ClassLogger.Add(" >> fileContents geladen", False) + fileContents = fileContents.Replace("Í", "Ö") + Dim _sp1 = SP1 + Dim _sp2 = SP2 + Dim _sp3 = SP3 + Dim _sp4 = SP4 + Dim _sp5 = SP5 + + If _sp1.ToString <> String.Empty Then + _sp1 = Return_SearchPattern(_sp1.ToString) + fileContents = fileContents.Replace("%pattern1%", _sp1) + fileContents = fileContents.Replace("471101", _sp1) + End If + If _sp2.ToString <> String.Empty Then + _sp2 = Return_SearchPattern(_sp2.ToString) + If _sp2 = 0 Then + _sp2 = "" + End If + fileContents = fileContents.Replace("%pattern2%", _sp2) + fileContents = fileContents.Replace("471102", _sp2) + End If + If _sp3.ToString <> String.Empty Then + _sp3 = Return_SearchPattern(_sp3.ToString) + If _sp3 = 0 Then + _sp3 = "" + End If + fileContents = fileContents.Replace("%pattern3%", _sp3) + fileContents = fileContents.Replace("471103", _sp3) + End If + If _sp4.ToString <> String.Empty Then + _sp4 = Return_SearchPattern(_sp4.ToString) + If _sp4 = 0 Then + _sp4 = "" + End If + fileContents = fileContents.Replace("%pattern4%", _sp4) + fileContents = fileContents.Replace("471104", _sp4) + End If + If _sp5.ToString <> String.Empty Then + _sp5 = Return_SearchPattern(_sp5.ToString) + If _sp5 = 0 Then + _sp5 = "" + End If + fileContents = fileContents.Replace("%pattern5%", _sp5) + fileContents = fileContents.Replace("471105", _sp5) + End If + 'Die windream File zusammensetzen + windream_temp_search = temppath & tempName & ".wdf" + TEMP_FILES.Add(windream_temp_search) + 'Die File schreiben + My.Computer.FileSystem.WriteAllText(windream_temp_search, fileContents, False, EncodingFormat) + My.Computer.FileSystem.WriteAllText(temppath & "SEARCH_COPY.wdf", fileContents, False, EncodingFormat) + ' XML-Datei öffnen und laden + Dim Stream As New IO.StreamReader(CStr(windream_temp_search), EncodingFormat) + Dim Reader As New System.Xml.XmlTextReader(Stream) + ' XML-Datei initialisieren + Dim xml As New System.Xml.XmlDocument() + ' XML-Datei öffnen und laden + xml.Load(Reader) + Reader.Close() + xml.Save(windream_temp_search) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Xml Generiert: " & windream_temp_search, False) + Dim windreamSucheErgebnisse As WINDREAMLib.WMObjects + Try + windreamSucheErgebnisse = ClassWindream.GetSearchDocuments(windream_temp_search) + 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 + + For Each dok As WMObject In windreamSucheErgebnisse + Dim filename = "W:" & dok.aPath + Try + File.Delete(filename) + Catch ex As Exception + ClassLogger.Add("Unexpected Error in Delete windream-file '" & filename & "- Error: " & ex.Message) + End Try + Next + End If + + + Cursor = Cursors.Default + Catch ex As Exception + MsgBox("Error in WD-Delete Docs:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + ClassLogger.Add("Unexpected Error in Run WD Delete Docs: " & ex.Message) + End Try + elapsed = sw.Elapsed.TotalSeconds + sw.Stop() + sw.Reset() + If LogErrorsOnly = False Then ClassLogger.Add(" >> Run WD Delete Docs took " & Format(elapsed, "0.000000000") & " seconds", False) + Cursor = Cursors.Default + End Sub Private Function Return_SearchPattern(ByVal content As String) Select Case content.ToUpper Case "@Record-ID".ToUpper @@ -3158,20 +3407,32 @@ Public Class frmConstructor_Main End If End Sub Sub Drag_Drop(e As DragEventArgs) - If act_FormViewID <> 0 Then + If act_FormViewID <> 0 And RIGHT_ONLY_READ = False Then Dim sql = "select count(*) from VWPMO_DOKUMENTTYPES where FORMVIEW_ID = " & FORMVIEW_ID If ClassDatabase.Execute_Scalar(sql, True) = 0 Then MsgBox("No documenttypes for this entity configured! Indexing is not possible!" & vbNewLine & "Please check the configuration!", MsgBoxStyle.Exclamation) 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 + If RECORD_CHANGED = True Then + If Save_Record() = False Then + Exit Sub End If + End If + CURRENT_CONTROL_DOCTYPE_MATCH = 0 + If CONTROL_DOCTYPE_MATCH <> 0 Then + Try + CURRENT_CONTROL_DOCTYPE_MATCH = "" + CURRENT_CONTROL_DOCTYPE_MATCH = ClassControlValues.GetControlValuesREC_CONTROL(RECORD_ID, CONTROL_DOCTYPE_MATCH) + Catch ex As Exception + CURRENT_CONTROL_DOCTYPE_MATCH = 0 + CURRENT_CONTROL_DOCTYPE_MATCH = "" + End Try + + End If + + If e.Data.GetDataPresent(DataFormats.StringFormat) Then Dim Wert As String = CType(e.Data.GetData(DataFormats.StringFormat), Object) - Console.WriteLine(Wert) + Console.WriteLine("DragDrop-Wert: " & Wert) If Wert.Contains("SCAN") Then Dim split() = Wert.Split(";") If IsNumeric(split(1)) Then @@ -3183,6 +3444,16 @@ Public Class frmConstructor_Main RUN_WD_SEARCH(WD_Suche, "RECORD") End If + ElseIf (e.Data.GetDataPresent("FileGroupDescriptor")) AndAlso (e.Data.GetDataPresent("FileContents")) Then + CURRENT_RECORD_ID = RECORD_ID + If ClassDragDrop.Drop_File(e) = True Then + Check_Dropped_Files() + End If + ElseIf e.Data.GetDataPresent("FileGroupDescriptor") Then + CURRENT_RECORD_ID = RECORD_ID + If ClassDragDrop.Drop_File(e) = True Then + Check_Dropped_Files() + End If End If Else CURRENT_RECORD_ID = RECORD_ID @@ -3191,6 +3462,11 @@ Public Class frmConstructor_Main End If End If + Else + If RIGHT_ONLY_READ = True Then + ClassLogger.Add(">> RIGHT_ONLY_READ is set! No DragDrop allowed", False) + End If + End If End Sub Sub Check_Dropped_Files() diff --git a/app/DD-Record-Organiser/frmMain.vb b/app/DD-Record-Organiser/frmMain.vb index 28e195a..b85724b 100644 --- a/app/DD-Record-Organiser/frmMain.vb +++ b/app/DD-Record-Organiser/frmMain.vb @@ -488,6 +488,7 @@ Public Class frmMain End If End If Else + MsgBox("Application will close now!", MsgBoxStyle.Critical) Me.Close() End If diff --git a/app/DD-Record-Organiser/frmSplash.vb b/app/DD-Record-Organiser/frmSplash.vb index 2b40d9d..19f260c 100644 --- a/app/DD-Record-Organiser/frmSplash.vb +++ b/app/DD-Record-Organiser/frmSplash.vb @@ -61,39 +61,39 @@ Public NotInheritable Class frmSplash Private Sub bw_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) - Dim Init = New ClassInit() - - bw.ReportProgress(CalcProgress(1), "Initializing Logger") - Init.InitLogger() - - System.Threading.Thread.Sleep(500) - - bw.ReportProgress(CalcProgress(2), "Initializing Database") - If Init.InitDatabase() = True Then + Try + Dim Init = New ClassInit() + bw.ReportProgress(CalcProgress(1), "Initializing Logger") + Init.InitLogger() System.Threading.Thread.Sleep(500) - bw.ReportProgress(CalcProgress(3), "Initializing Basic-Configuration") - Init.InitBasics2() + bw.ReportProgress(CalcProgress(2), "Initializing Database") + If Init.InitDatabase() = True Then + System.Threading.Thread.Sleep(500) - System.Threading.Thread.Sleep(300) + bw.ReportProgress(CalcProgress(3), "Initializing Basic-Configuration") + Init.InitBasics2() - bw.ReportProgress(CalcProgress(4), "Initializing User-Configuration") - If Init.InitUserLogin = False Then - ERROR_INIT = "INVALID USER" + System.Threading.Thread.Sleep(300) + + bw.ReportProgress(CalcProgress(4), "Initializing User-Configuration") + If ClassInit.InitUserLogin = False Then + ERROR_INIT = "INVALID USER" + End If + + System.Threading.Thread.Sleep(500) + + bw.ReportProgress(CalcProgress(5), "Initializing Frontend") + ' InitInterface wurde in frmMain integriert + 'Init.InitInterface(mainForm) + + System.Threading.Thread.Sleep(500) + Else + ERROR_INIT = "DATABASE" End If - - System.Threading.Thread.Sleep(500) - - bw.ReportProgress(CalcProgress(5), "Initializing Frontend") - ' InitInterface wurde in frmMain integriert - 'Init.InitInterface(mainForm) - - System.Threading.Thread.Sleep(500) - Else - ERROR_INIT = "DATABASE" - End If - - + Catch ex As Exception + MsgBox("Unexpecte Error in Init Classes: " & vbNewLine, MsgBoxStyle.Critical) + End Try End Sub Private Sub bw_ProgressChanged(sender As Object, e As System.ComponentModel.ProgressChangedEventArgs) diff --git a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.Designer.vb b/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.Designer.vb index b05b265..3daf108 100644 --- a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.Designer.vb +++ b/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.Designer.vb @@ -43,8 +43,7 @@ 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 DataGridViewCellStyle4 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle5 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle1 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) @@ -153,6 +152,7 @@ Partial Class frmWD_Dokumentart_Konfig Me.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_WD_FORMVIEW_DOKTYPESTableAdapter() Me.TBWH_DOKART_MODULETableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBWH_DOKART_MODULETableAdapter() Me.ToolTipController1 = New DevExpress.Utils.ToolTipController(Me.components) + Me.colOBJEKTTYP = New DevExpress.XtraGrid.Columns.GridColumn() GUIDLabel = New System.Windows.Forms.Label() BEZEICHNUNGLabel = New System.Windows.Forms.Label() KURZNAMELabel = New System.Windows.Forms.Label() @@ -448,7 +448,7 @@ Partial Class frmWD_Dokumentart_Konfig Me.GridView1.Appearance.EvenRow.Options.UseBackColor = True Me.GridView1.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView1.Appearance.FocusedRow.BackColor"), System.Drawing.Color) Me.GridView1.Appearance.FocusedRow.Options.UseBackColor = True - Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colBEZEICHNUNG}) + Me.GridView1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colBEZEICHNUNG, Me.colOBJEKTTYP}) Me.GridView1.GridControl = Me.GridControl1 Me.GridView1.Name = "GridView1" Me.GridView1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] @@ -627,6 +627,7 @@ Partial Class frmWD_Dokumentart_Konfig 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 @@ -902,21 +903,13 @@ Partial Class frmWD_Dokumentart_Konfig ' Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AllowUserToAddRows = False Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AllowUserToDeleteRows = False - DataGridViewCellStyle4.BackColor = System.Drawing.Color.Aqua - Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 + DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua + Me.TBPMO_WD_FORMVIEW_DOKTYPESDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 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 ' @@ -1096,6 +1089,12 @@ Partial Class frmWD_Dokumentart_Konfig ' Me.TBWH_DOKART_MODULETableAdapter.ClearBeforeFill = True ' + 'colOBJEKTTYP + ' + resources.ApplyResources(Me.colOBJEKTTYP, "colOBJEKTTYP") + Me.colOBJEKTTYP.FieldName = "OBJEKTTYP" + Me.colOBJEKTTYP.Name = "colOBJEKTTYP" + ' 'frmWD_Dokumentart_Konfig ' resources.ApplyResources(Me, "$this") @@ -1245,4 +1244,5 @@ Partial Class frmWD_Dokumentart_Konfig Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents colBEZEICHNUNG As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colOBJEKTTYP As DevExpress.XtraGrid.Columns.GridColumn End Class diff --git a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx b/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx index 4347e59..ab1ddf2 100644 --- a/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx +++ b/app/DD-Record-Organiser/frmWD_Dokumentart_Konfig.resx @@ -934,256 +934,6 @@ 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 @@ -1203,7 +953,19 @@ 0 - 277 + 150 + + + Objekttyp + + + True + + + 1 + + + 105 306, 237 @@ -1223,6 +985,7 @@ 0 + Top, Right @@ -1280,12 +1043,12 @@ 2 - - 339, 95 - Top, Right + + 339, 95 + Segoe UI, 9pt, style=Italic @@ -1313,9 +1076,6 @@ 3 - - 339, 95 - True @@ -1676,6 +1436,36 @@ 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 @@ -1700,6 +1490,12 @@ 403, 56 + + 121, 17 + + + ToolStripStatusLabel1 + 0, 581 @@ -1724,12 +1520,6 @@ 1 - - 121, 17 - - - ToolStripStatusLabel1 - Top, Bottom, Left, Right @@ -2040,7 +1830,7 @@ 0, 25 - 305, 227 + 305, 224 2 @@ -2228,7 +2018,7 @@ 0, 0 - 1265, 25 + 1261, 25 1 @@ -2249,7 +2039,7 @@ 22 - 1265, 252 + 1261, 249 Automatische Indexe @@ -2272,114 +2062,9 @@ 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 @@ -2539,9 +2224,6 @@ 4 - - 940, 56 - 786, 56 @@ -2721,6 +2403,36 @@ 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 + 1184, 56 @@ -3163,6 +2875,12 @@ DevExpress.Utils.ToolTipController, DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + colOBJEKTTYP + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + frmWD_Dokumentart_Konfig diff --git a/app/DD-Record-Organiser/frmWD_Index_Dokart.vb b/app/DD-Record-Organiser/frmWD_Index_Dokart.vb index 482811c..9e7a048 100644 --- a/app/DD-Record-Organiser/frmWD_Index_Dokart.vb +++ b/app/DD-Record-Organiser/frmWD_Index_Dokart.vb @@ -444,6 +444,12 @@ Public Class frmWD_Index_Dokart Refresh_indices() End If End If + Me.Hide() + Me.Visible = True + Me.Activate() Me.BringToFront() + If CURRENT_CONTROL_DOCTYPE_MATCH <> "" Then + cmbDokumentart.SelectedIndex = cmbDokumentart.FindStringExact(CURRENT_CONTROL_DOCTYPE_MATCH) + End If End Sub End Class \ No newline at end of file