From ef2a87d849fb062f5e6915a4b16f7ae715e146f5 Mon Sep 17 00:00:00 2001 From: SchreiberM Date: Fri, 8 Apr 2016 14:55:25 +0200 Subject: [PATCH] MS_08.04 --- app/DD-Record-Organiser/App.config | 3 + .../ClassControlBuilder.vb | 27 +- .../ClassControlCommandsUI.vb | 8 +- app/DD-Record-Organiser/ClassControlLoader.vb | 37 +- app/DD-Record-Organiser/ClassControlValues.vb | 78 +- app/DD-Record-Organiser/ClassEmail.vb | 55 + app/DD-Record-Organiser/ClassInit.vb | 5 +- app/DD-Record-Organiser/ClassLogger.vb | 28 +- app/DD-Record-Organiser/ClassWindream.vb | 43 +- .../DD-Record-Organiser.vbproj | 12 +- app/DD-Record-Organiser/DD_DMSDataSet.xsc | 42 +- app/DD-Record-Organiser/DD_DMSDataSet.xsd | 152 +- .../DD_DMSDataSet1.Designer.vb | 110 +- .../DD_ECMAdmin.Designer.vb | 7380 +++++++++------ app/DD-Record-Organiser/DD_ECMAdmin.xsd | 43 +- app/DD-Record-Organiser/DD_ECMAdmin.xss | 17 +- .../ModuleHelperMethods.vb | 4 +- app/DD-Record-Organiser/ModuleMySettings.vb | 13 +- .../My Project/AssemblyInfo.vb | 2 +- .../My Project/Resources.Designer.vb | 20 + .../My Project/Resources.resx | 44 +- .../My Project/Settings.Designer.vb | 46 +- .../My Project/Settings.Settings | 25 +- .../Resources/email_go.png | Bin 0 -> 754 bytes app/DD-Record-Organiser/Resources/mail.bmp | Bin 0 -> 824 bytes .../frmConfig_Basic.Designer.vb | 94 +- app/DD-Record-Organiser/frmConfig_Basic.resx | 2464 ++--- app/DD-Record-Organiser/frmConfig_Basic.vb | 8 + .../frmConstructorDesigner.Designer.vb | 360 +- .../frmConstructorDesigner.en-US.resx | 11 +- .../frmConstructorDesigner.resx | 8410 +++++++++-------- .../frmConstructorDesigner.vb | 116 +- .../frmConstructor_Main.Designer.vb | 14 +- .../frmConstructor_Main.en-US.resx | 6 - .../frmConstructor_Main.resx | 26 +- .../frmConstructor_Main.vb | 287 +- app/DD-Record-Organiser/frmForm_Input.vb | 4 +- app/DD-Record-Organiser/frmMain.Designer.vb | 18 +- app/DD-Record-Organiser/frmMain.resx | 113 +- app/DD-Record-Organiser/frmMain.vb | 26 +- app/DD-Record-Organiser/frmSplash.vb | 6 +- .../frmUserKonfig.Designer.vb | 440 +- app/DD-Record-Organiser/frmUserKonfig.resx | 1661 ++-- app/DD-Record-Organiser/frmUserKonfig.vb | 227 +- .../frmUserKonfig_AddUsers.en-US.resx | 210 +- .../frmUserKonfig_AddUsers.resx | 283 +- .../frmUserKonfig_AddUsers.vb | 8 +- 47 files changed, 12870 insertions(+), 10116 deletions(-) create mode 100644 app/DD-Record-Organiser/Resources/email_go.png create mode 100644 app/DD-Record-Organiser/Resources/mail.bmp diff --git a/app/DD-Record-Organiser/App.config b/app/DD-Record-Organiser/App.config index 63d1dc2..be882d4 100644 --- a/app/DD-Record-Organiser/App.config +++ b/app/DD-Record-Organiser/App.config @@ -48,6 +48,9 @@ False + + + \ No newline at end of file diff --git a/app/DD-Record-Organiser/ClassControlBuilder.vb b/app/DD-Record-Organiser/ClassControlBuilder.vb index 2636c82..35ae0c9 100644 --- a/app/DD-Record-Organiser/ClassControlBuilder.vb +++ b/app/DD-Record-Organiser/ClassControlBuilder.vb @@ -154,7 +154,7 @@ Public Class ClassControlBuilder End Function).SingleOrDefault() sqlcommand = sqlcommand.Replace(match.Groups(1).Value, value) - Console.WriteLine("Executing SQL_COMMAND: {0} for controlID {1}", sqlcommand, dependingControlId) + If LogErrorsOnly = False Then ClassLogger.Add(" >> " & String.Format("Executing SQL_COMMAND: '{0}' for controlID '{1}'", sqlcommand, dependingControlId)) Dim dt As DataTable = ClassDatabase.Return_Datatable(sqlcommand) Dim obj obj = dependingControl.GetType.ToString @@ -173,20 +173,33 @@ Public Class ClassControlBuilder Case "System.Windows.Forms.TextBox" If dt.Rows.Count = 1 Then Try - ControlLoader.TextBox.LoadValue(DirectCast(dependingControl, TextBox), 9999, 9999, dt.Rows(0).Item(0).ToString, True) + Dim value1 As String = dt.Rows(0).Item(0) + ControlLoader.TextBox.LoadValue(DirectCast(dependingControl, TextBox), 9999, 9999, value1, True) Dim sql1 = String.Format("SELECT GUID FROM TBPMO_CONTROL_VALUE WHERE CONTROL_ID = {0} AND RECORD_ID = {1}", dependingControlId, CURRENT_RECORD_ID) Dim id = ClassDatabase.Execute_Scalar(sql1) If Not IsNothing(id) Then - Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE GUID = {1}", dt.Rows(0).Item(0).ToString, id) - ClassDatabase.Execute_non_Query(sql1) + Dim upd = String.Format("UPDATE TBPMO_CONTROL_VALUE SET VALUE = '{0}' WHERE GUID = {1}", value1, id) + If ClassDatabase.Execute_non_Query(sql1) = True Then + If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was not nothing - Updated the ControlValue '" & upd) + Else + ClassLogger.Add(" >> Check Update depending control value as it was nothing and Update was not successful - Update-Command '" & upd & "'") + End If + Else - Dim ins = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", dependingControlId, CURRENT_RECORD_ID, dt.Rows(0).Item(0).ToString, Environment.UserName) - ClassDatabase.Execute_non_Query(ins) + Dim ins = String.Format("INSERT INTO TBPMO_CONTROL_VALUE (CONTROL_ID,RECORD_ID,VALUE,ADDED_WHO) VALUES ({0},{1},'{2}','{3}')", dependingControlId, CURRENT_RECORD_ID, value1, Environment.UserName) + If ClassDatabase.Execute_non_Query(ins) = True Then + If LogErrorsOnly = False Then ClassLogger.Add(" >> Value was nothing - Inserted the ControlValue '" & ins & "'") + Else + ClassLogger.Add(" >> Check Insert depending control value as it was nothing and Insert was not successful- Insert-Command '" & ins & "'") + End If + End If Catch ex As Exception ClassLogger.Add(ex.Message) End Try + Else + ClassLogger.Add(" >> Attention: RowCount for depending control was '" & dt.Rows.Count.ToString & "' and not 1 as expected - Check SQL: '" & sqlcommand & "'") End If End Select @@ -676,7 +689,7 @@ Public Class ClassControlBuilder 'SQL-Command vorhanden also Ausführen des SQL If sqlcommand.Length > 1 Then Dim result - If sqlcommand.Contains("@RECORD_ID") Or sqlcommand.Contains("@RECORDID") Or sqlcommand.Contains("@PARENTRECORD_ID") Or sqlcommand.Contains("@PARENTRECORDID") Then + If sqlcommand.Contains("@RECORD_ID") Or sqlcommand.Contains("@RECORDID") Or sqlcommand.Contains("@ENTITY_ID") Or sqlcommand.Contains("@PARENTRECORD_ID") Or sqlcommand.Contains("@PARENTRECORDID") Then result = Nothing Else result = ClassDatabase.Execute_Scalar(sqlcommand, True) diff --git a/app/DD-Record-Organiser/ClassControlCommandsUI.vb b/app/DD-Record-Organiser/ClassControlCommandsUI.vb index 8a79e5c..b3e75b9 100644 --- a/app/DD-Record-Organiser/ClassControlCommandsUI.vb +++ b/app/DD-Record-Organiser/ClassControlCommandsUI.vb @@ -27,9 +27,7 @@ Public Class ClassControlCommandsUI Sub LoadControls(FormId As Integer) _CtrlBuilder.ClearControls() - Dim sw As New Stopwatch - sw.Start() - Dim elapsed As Double + Dim SQL As String = String.Format("SELECT T.*, dbo.FNPMO_GET_CONTROL_CAPTION ('{2}', {3},T.CONTROL_ID) AS 'CAPTION' FROM VWPMO_CONTROL_SCREEN T WHERE SCREEN_ID = {0} AND FORM_ID = {1}", CURRENT_SCREEN_ID, FormId, USER_LANGUAGE, CURRENT_SCREEN_ID) ' "SELECT * FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = " & FormId & " and SCREEN_ID = 1" @@ -281,10 +279,8 @@ Public Class ClassControlCommandsUI ' Tag wird für ControlId verwendet, master data id bei rechtsklick herausfinden '_CtrlBuilder.CurrentControl.Tag = dr.Item("CTRLSCR_MASTER_DATA_ID") End If - If LogErrorsOnly = False Then ClassLogger.Add(" >> Adding Control '" & control & "' took " & Format(elapsed, "0.000000000") & " seconds", False) - sw.Stop() - sw.Reset() Next + End Sub Function DeleteRecord(RecordID As Integer) diff --git a/app/DD-Record-Organiser/ClassControlLoader.vb b/app/DD-Record-Organiser/ClassControlLoader.vb index 7b05512..f02d40d 100644 --- a/app/DD-Record-Organiser/ClassControlLoader.vb +++ b/app/DD-Record-Organiser/ClassControlLoader.vb @@ -2,22 +2,25 @@ Public Class _BaseControl - Public Shared Function ReplaceSqlCommandPlaceholders(sqlCommand As String, recordId As Integer, parentRecordId As Integer) - sqlCommand = sqlCommand.Replace("@RECORD_ID", recordId) - sqlCommand = sqlCommand.Replace("@RECORDID", recordId) - sqlCommand = sqlCommand.Replace("@PARENTRECORD_ID", parentRecordId) - sqlCommand = sqlCommand.Replace("@PARENTRECORDID", parentRecordId) - - Return sqlCommand - End Function - - Public Shared Function LoadAutoValue(control As Windows.Forms.Control, RecordId As Integer, ParentRecordId As Integer) + 'Public Shared Function ReplaceSqlCommandPlaceholders(sqlCommand As String, recordId As Integer, parentRecordId As Integer, entity_ID As Integer) + ' sqlCommand = sqlCommand.Replace("@RECORD_ID", recordId) + ' sqlCommand = sqlCommand.Replace("@RECORDID", recordId) + ' Dim sql As String = "SELECT FORM_ID FROM TBPMO_RECORD WHERE FORM_ID = " + ' ss() + ' sqlCommand = sqlCommand.Replace("@ENTITY_ID", recordId) + ' sqlCommand = sqlCommand.Replace("@PARENTRECORD_ID", parentRecordId) + ' sqlCommand = sqlCommand.Replace("@PARENTRECORDID", parentRecordId) + + ' Return sqlCommand + 'End Function + + Public Shared Function LoadAutoValue(control As Windows.Forms.Control, RecordId As Integer, ParentRecordId As Integer, entity_ID As Integer) Try Dim AutoValue As String = String.Empty Dim ControlId As Integer = DirectCast(control.Tag, ClassControlMetadata).Id Dim CONNID = ClassDatabase.Execute_Scalar(String.Format("SELECT CONNECTION_ID_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlId)) Dim SQL As String = ClassDatabase.Execute_Scalar(String.Format("SELECT SQL_COMMAND_1 FROM TBPMO_CONTROL WHERE GUID = {0}", ControlId)) - SQL = ClassControlValues.ReplaceSqlCommandPlaceholders(SQL, RecordId, ParentRecordId) + SQL = ClassControlValues.ReplaceSqlCommandPlaceholders(SQL, RecordId, ParentRecordId, entity_ID) If SQL = "" Or IsDBNull(SQL) Then Return Nothing @@ -39,7 +42,7 @@ ClassLogger.Add("Unexpected Error in LoadAutoValue: " & ex.Message, True) Return Nothing End Try - + End Function @@ -191,9 +194,9 @@ Public Class Label : Inherits _BaseControl - Public Shared Sub LoadValue(control As Windows.Forms.Label, recordId As Integer, parentRecordId As Integer, value As String, Optional VARIABLE_VALUE As Boolean = False) + Public Shared Sub LoadValue(control As Windows.Forms.Label, recordId As Integer, parentRecordId As Integer, value As String, entity_ID As Integer, Optional VARIABLE_VALUE As Boolean = False) Try - Dim autoValue = LoadAutoValue(control, recordId, parentRecordId) + Dim autoValue = LoadAutoValue(control, recordId, parentRecordId, entity_ID) If IsNothing(autoValue) Then If VARIABLE_VALUE = True Then @@ -208,7 +211,7 @@ control.Text = labelText End If End If - + Else control.Text = autoValue @@ -256,9 +259,9 @@ Public Class TextBox : Inherits _BaseControl - Public Shared Sub LoadValue(control As Windows.Forms.TextBox, recordId As Integer, parentRecordId As Integer, value As String, Optional VARIABLE_VALUE As Boolean = False) + Public Shared Sub LoadValue(control As Windows.Forms.TextBox, recordId As Integer, parentRecordId As Integer, value As String, entity_ID As Integer, Optional VARIABLE_VALUE As Boolean = False) Try - Dim autoValue = LoadAutoValue(control, recordId, parentRecordId) + Dim autoValue = LoadAutoValue(control, recordId, parentRecordId, entity_ID) If VARIABLE_VALUE = True Then control.Text = value Else diff --git a/app/DD-Record-Organiser/ClassControlValues.vb b/app/DD-Record-Organiser/ClassControlValues.vb index fd2e2e3..70ae742 100644 --- a/app/DD-Record-Organiser/ClassControlValues.vb +++ b/app/DD-Record-Organiser/ClassControlValues.vb @@ -142,7 +142,7 @@ Public Class ClassControlValues Return missingValues.Distinct().ToList() End Function - Public Shared Sub LoadControlValues(RecordId As Integer, ParentRecordId As Integer, FormId As Integer, controls As Control.ControlCollection) + Public Shared Sub LoadControlValues(RecordId As Integer, ParentRecordId As Integer, FormId As Integer, controls As Control.ControlCollection, Entity_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 * FROM VWPMO_VALUES WHERE RECORD_ID = {0}", RecordId) @@ -168,9 +168,9 @@ Public Class ClassControlValues If TypeOf control Is GroupBox Then Dim groupbox As GroupBox = DirectCast(control, GroupBox) - LoadControlValues(RecordId, ParentRecordId, FormId, groupbox.Controls) + LoadControlValues(RecordId, ParentRecordId, FormId, groupbox.Controls, Entity_ID) Else - LoadControlValue(RecordId, ParentRecordId, ControlId, control, values) + LoadControlValue(RecordId, ParentRecordId, ControlId, control, values, Entity_ID) End If Next @@ -198,11 +198,8 @@ Public Class ClassControlValues End Sub - Private Shared Sub LoadControlValue(recordId As Integer, parentRecordId As Integer, controlId As Integer, control As Control, values As List(Of Object)) + Private Shared Sub LoadControlValue(recordId As Integer, parentRecordId As Integer, controlId As Integer, control As Control, values As List(Of Object), entity_ID As Integer) Try - Dim sw As New Stopwatch - sw.Start() - Dim elapsed As Double ' Für die meisten Controls wird nur das erste Element der Liste benötigt Dim value As String = Nothing @@ -212,60 +209,48 @@ Public Class ClassControlValues Select Case control.GetType() Case GetType(TextBox) Dim textbox As TextBox = DirectCast(control, TextBox) - ControlLoader.TextBox.LoadValue(textbox, recordId, parentRecordId, value) - elapsed = sw.Elapsed.TotalSeconds - If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue TextBox took " & Format(elapsed, "0.000000000") & " seconds", False) + ControlLoader.TextBox.LoadValue(textbox, recordId, parentRecordId, value, entity_ID) + Case GetType(Label) Dim label As Label = DirectCast(control, Label) - ControlLoader.Label.LoadValue(label, recordId, parentRecordId, value) - elapsed = sw.Elapsed.TotalSeconds - If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue Label took " & Format(elapsed, "0.000000000") & " seconds", False) + ControlLoader.Label.LoadValue(label, recordId, parentRecordId, value, entity_ID) + Case GetType(ComboBox) Dim combobox As ComboBox = DirectCast(control, ComboBox) ControlLoader.Combobox.LoadValue(combobox, recordId, parentRecordId, value) - elapsed = sw.Elapsed.TotalSeconds - If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue ComboBox took " & Format(elapsed, "0.000000000") & " seconds", False) + Case GetType(CheckBox) Dim checkbox As CheckBox = DirectCast(control, CheckBox) ControlLoader.Checkbox.LoadValue(checkbox, value) - elapsed = sw.Elapsed.TotalSeconds - If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue Checkbox took " & Format(elapsed, "0.000000000") & " seconds", False) + Case GetType(RadioButton) If LogErrorsOnly = False Then ClassLogger.Add(" >> Sub LoadControlValueNeu - GetType(RadioButton) ", False) Dim radiobutton As RadioButton = DirectCast(control, RadioButton) ControlLoader.RadioButton.LoadValue(radiobutton, value) - elapsed = sw.Elapsed.TotalSeconds - If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue RadioButton took " & Format(elapsed, "0.000000000") & " seconds", False) + Case GetType(DevExpress.XtraEditors.DateEdit) Dim datepicker As DevExpress.XtraEditors.DateEdit = DirectCast(control, DevExpress.XtraEditors.DateEdit) ControlLoader.DateTimePicker.LoadValue(datepicker, value) - elapsed = sw.Elapsed.TotalSeconds - If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue DateEdit took " & Format(elapsed, "0.000000000") & " seconds", False) + Case GetType(DevExpress.XtraEditors.ListBoxControl) Dim listbox As DevExpress.XtraEditors.ListBoxControl = DirectCast(control, DevExpress.XtraEditors.ListBoxControl) ControlLoader.ListBox.LoadValue(listbox, value) - elapsed = sw.Elapsed.TotalSeconds - If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue ListBoxControl took " & Format(elapsed, "0.000000000") & " seconds", False) + Case GetType(DevExpress.XtraEditors.CheckedListBoxControl) Dim checkedlistbox As DevExpress.XtraEditors.CheckedListBoxControl = DirectCast(control, DevExpress.XtraEditors.CheckedListBoxControl) ControlLoader.CheckedListBox.LoadValue(checkedlistbox, values) - elapsed = sw.Elapsed.TotalSeconds - If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue CheckedListBoxControl took " & Format(elapsed, "0.000000000") & " seconds", False) + Case GetType(PictureBox) Dim picturebox = DirectCast(control, PictureBox) LoadImage(recordId, controlId, picturebox) - elapsed = sw.Elapsed.TotalSeconds - If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue PictureBox took " & Format(elapsed, "0.000000000") & " seconds", False) + Case GetType(DataGridView) Dim gridview = DirectCast(control, DataGridView) ControlLoader.DataGridView.LoadValue(gridview, values) - elapsed = sw.Elapsed.TotalSeconds - If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValue DataGridView took " & Format(elapsed, "0.000000000") & " seconds", False) + Case Else - If LogErrorsOnly = False Then ClassLogger.Add(" >> Sub LoadControlValue - Control-Type nicht berücksichtigt: " & GetType(Control).ToString(), False) + ClassLogger.Add(" >> Sub LoadControlValue - Control-Type nicht berücksichtigt: " & GetType(Control).ToString(), False) End Select - sw.Stop() - sw.Reset() Catch ex As Exception ClassLogger.Add("Unexpected Error in LoadControlValue: " & ex.Message, True) MsgBox("Error in LoadControlValue:" & vbNewLine & ex.Message) @@ -289,29 +274,25 @@ Public Class ClassControlValues ' CONTROL_SQLCOMMAND_1 wird als SQL gealiast Dim SQL As String = String.Format("SELECT CONTROL_ID, CONTROL_CONNID_1,CONTROL_SQLCOMMAND_1 AS SQL FROM VWPMO_CONTROL_SCREEN WHERE FORM_ID = {0} AND CONTROL_SQLCOMMAND_1 NOT LIKE '%@%'", FormID) Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL) - + Dim elapsed As Double + elapsed = swsql.Elapsed.TotalSeconds swsql.Stop() - If LogErrorsOnly = False Then ClassLogger.Add(String.Format(">> LoadControlValuesList - Database took {0} milliseconds to load", swsql.ElapsedMilliseconds), False) + If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> LoadControlValuesList - Database took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False) If dt.Rows.Count = 0 Then Exit Sub End If For Each Ctrl As Control In controls - - Dim swcontrol As Stopwatch = Stopwatch.StartNew() - Dim controlTagId = DirectCast(Ctrl.Tag, ClassControlMetadata).Id 'If controlTagId = 474 Then ' MsgBox("Thats it") 'End If 'Datatable nach row mit CONTROL_ID wie Ctrl suchen Dim row As DataRow = dt.Select(String.Format("CONTROL_ID={0}", controlTagId)).FirstOrDefault() - If IsNothing(row) Then Continue For End If - Dim sqlcommand As String = row.Item("SQL") Dim ConnID = row.Item("CONTROL_CONNID_1") Select Case Ctrl.GetType() @@ -328,14 +309,10 @@ Public Class ClassControlValues ControlLoader.CheckedListBox.LoadList(chlistbox, FormID, ConnID, sqlcommand) End Select - - swcontrol.Stop() - If LogErrorsOnly = False Then ClassLogger.Add(String.Format(">> LoadControlValuesList Loading '{0}' took {1} milliseconds to load", Ctrl.Name, swcontrol.ElapsedMilliseconds), False) Next SW.Stop() - Dim elapsed As Double - elapsed = SW.Elapsed.TotalSeconds + elapsed = sw.Elapsed.TotalSeconds SW.Stop() SW.Reset() If LogErrorsOnly = False Then ClassLogger.Add(" >> LoadControlValuesList took " & Format(elapsed, "0.000000000") & " seconds", False) @@ -347,7 +324,7 @@ Public Class ClassControlValues End Sub - Public Shared Sub LoadControlValuesListWithPlaceholders(FormId As Integer, RecordId As Integer, ParentRecordId As Integer, controls As Control.ControlCollection) + Public Shared Sub LoadControlValuesListWithPlaceholders(FormId As Integer, RecordId As Integer, ParentRecordId As Integer, controls As Control.ControlCollection, entity_ID As Integer) Try If controls.Count = 0 Then 'MsgBox("LoadControlValuesListWithPlaceholders: Control.ControlCollection is unexpected empty!", MsgBoxStyle.Exclamation) @@ -376,7 +353,7 @@ Public Class ClassControlValues Dim sqlcommand As String = row.Item("SQL") - sqlcommand = ReplaceSqlCommandPlaceholders(sqlcommand, RecordId, ParentRecordId) + sqlcommand = ReplaceSqlCommandPlaceholders(sqlcommand, RecordId, ParentRecordId, entity_ID) Select Case Ctrl.GetType() Case GetType(ComboBox) @@ -393,21 +370,22 @@ Public Class ClassControlValues End Select Next - + Dim elapsed As Double + elapsed = SW.Elapsed.TotalSeconds SW.Stop() - Console.WriteLine("LoadControlValuesListWithPlaceholders took {0} milliseconds to load", SW.ElapsedMilliseconds) + Console.WriteLine("LoadControlValuesListWithPlaceholders took {0} to load", Format(elapsed, "0.000000000") & " seconds") Catch ex As Exception ClassLogger.Add("Unexpected Error in LoadControlValuesListWithPlaceholders: " & ex.Message, True) MsgBox("Unexpected Error in LoadControlValuesListWithPlaceholders:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub - Public Shared Function ReplaceSqlCommandPlaceholders(sqlCommand As String, recordId As Integer, parentRecordId As Integer) + Public Shared Function ReplaceSqlCommandPlaceholders(sqlCommand As String, recordId As Integer, parentRecordId As Integer, entity_Id As Integer) sqlCommand = sqlCommand.Replace("@RECORD_ID", recordId) sqlCommand = sqlCommand.Replace("@RECORDID", recordId) + sqlCommand = sqlCommand.Replace("@ENTITY_ID", entity_Id) sqlCommand = sqlCommand.Replace("@PARENTRECORD_ID", parentRecordId) sqlCommand = sqlCommand.Replace("@PARENTRECORDID", parentRecordId) - Return sqlCommand End Function diff --git a/app/DD-Record-Organiser/ClassEmail.vb b/app/DD-Record-Organiser/ClassEmail.vb index 66e2349..ea5d299 100644 --- a/app/DD-Record-Organiser/ClassEmail.vb +++ b/app/DD-Record-Organiser/ClassEmail.vb @@ -45,5 +45,60 @@ Public Class ClassEmail Return False End Try End Function + Public Function Send_Log_Mail(ByVal vBody As String, ByVal vBetreff As String, ByVal emailfrom As String, ByVal emailsmtp As String, ByVal emailuser As String, ByVal emailpw As String, ByVal email_empf As String) + '#### E-MAIL NACHRICHT VERSENDEN + Try + Dim empfaenger As String() + If email_empf.Contains(";") Then + empfaenger = email_empf.Split(";") + Else + ReDim Preserve empfaenger(0) + empfaenger(0) = email_empf + End If + 'Für jeden Empfänger eine Neue Mail erzeugen + For Each _mailempfaenger As String In empfaenger + ' Neue Nachricht erzeugen: + Dim message As New MailMessage(emailfrom, _mailempfaenger, vBetreff & " - Domain: " & Environment.UserDomainName, _ + "" & vBody & "
>> Version: " & My.Application.Info.Version.ToString & "
>> Maschine: " & Environment.MachineName & "
" & "
>> Domain-Name: " & Environment.UserDomainName & "
" & _ + "
>> Gesendet am: " & My.Computer.Clock.LocalTime.ToShortDateString & " " & _ + My.Computer.Clock.LocalTime.ToLongTimeString & "") + ' create and add the attachment(s) */ + Dim logfile = ClassLogger.logDateiname + If logfile Is Nothing Then + MsgBox("Logging was not initiated", MsgBoxStyle.Exclamation) + Return False + End If + + If logfile.Contains("\\") Then + logfile = logfile.Replace("\\", "\") + End If + If IO.File.Exists(logfile) Then + Dim Attachment As Attachment = New Attachment(logfile) + message.Attachments.Add(Attachment) + End If + + With message + .IsBodyHtml = True + .Priority = MailPriority.High + End With + 'Einen SMTP Client erzeugen und Anmeldungsinformationen hinterlegen + Dim emailClient As New SmtpClient(emailsmtp) + 'Email mit Authentifizierung + Dim SMTPUserInfo As New System.Net.NetworkCredential(emailuser, emailpw) ', My.Settings.vDomain) + emailClient.UseDefaultCredentials = False + emailClient.Credentials = SMTPUserInfo + emailClient.Port = 25 + + '*Send the message */ + emailClient.Send(message) + + 'ClassLogger.Add(">> Support/Log Email erfolgreich an " & _mailempfaenger & " versendet!", False) + Next + Return True + Catch ex As Exception + MsgBox("Error in Send LogMail: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) + Return False + End Try + End Function End Class diff --git a/app/DD-Record-Organiser/ClassInit.vb b/app/DD-Record-Organiser/ClassInit.vb index 25a83d8..4e6571b 100644 --- a/app/DD-Record-Organiser/ClassInit.vb +++ b/app/DD-Record-Organiser/ClassInit.vb @@ -36,7 +36,7 @@ Public Class ClassInit End Function - Public Sub InitWindream() + Public Sub InitBasics2() Try Dim configResult As Boolean configResult = Settings_LoadBasicConfig() @@ -45,12 +45,11 @@ Public Class ClassInit Throw New Exception("Find more information in the logfile.") End If Catch ex As Exception - MsgBox("Unexpected Error in Init windream:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + MsgBox("Unexpected Error in InitBasics2:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub - Public Sub InitUserLogin() Dim sql = sql_UserID sql = sql.Replace("@user", Environment.UserName) diff --git a/app/DD-Record-Organiser/ClassLogger.vb b/app/DD-Record-Organiser/ClassLogger.vb index efc1f3a..b2dd1de 100644 --- a/app/DD-Record-Organiser/ClassLogger.vb +++ b/app/DD-Record-Organiser/ClassLogger.vb @@ -60,7 +60,7 @@ Public Class ClassLogger If ClassLogger.OpenFile Then Try If ACHTUNG Then - ClassLogger.StreamWriter.WriteLine("#ACHTUNG# (" & System.DateTime.Now & "): " & information) + ClassLogger.StreamWriter.WriteLine("#ATTENTION# (" & System.DateTime.Now & "): " & information) Else ClassLogger.StreamWriter.WriteLine(information) End If @@ -72,19 +72,19 @@ Public Class ClassLogger ClassLogger.ShowErrorMessage() End If End Sub - Public Shared Sub Add(ByVal ex As Exception) - If ClassLogger.OpenFile Then - Try - ClassLogger.StreamWriter.WriteLine("##### Exception (" & System.DateTime.Now & ")") - ClassLogger.StreamWriter.WriteLine("##### Error: " & ex.Message & " Source [" & ex.Source & "]") - ClassLogger.CloseFile() - Catch e As Exception - ClassLogger.ShowErrorMessage() - End Try - Else - ClassLogger.ShowErrorMessage() - End If - End Sub + 'Public Shared Sub Add(ByVal ex As Exception) + ' If ClassLogger.OpenFile Then + ' Try + ' ClassLogger.StreamWriter.WriteLine("##### Exception (" & System.DateTime.Now & ")") + ' ClassLogger.StreamWriter.WriteLine("##### Error: " & ex.Message & " Source [" & ex.Source & "]") + ' ClassLogger.CloseFile() + ' Catch e As Exception + ' ClassLogger.ShowErrorMessage() + ' End Try + ' Else + ' ClassLogger.ShowErrorMessage() + ' End If + 'End Sub ' öffnet eine Datei zum Schreiben Private Shared Function OpenFile() Try diff --git a/app/DD-Record-Organiser/ClassWindream.vb b/app/DD-Record-Organiser/ClassWindream.vb index 76f995e..44537d1 100644 --- a/app/DD-Record-Organiser/ClassWindream.vb +++ b/app/DD-Record-Organiser/ClassWindream.vb @@ -266,7 +266,8 @@ Public Class ClassWindream MsgBox("Die installierte windream-Version ist nicht ausreichend für den Betrieb der Tool Collection für windream." & vbNewLine & _ "Bitte kontaktieren Sie Digital Data." & vbNewLine & vbNewLine & "Errormessage:" & vbNewLine & Err.Description, MsgBoxStyle.Exclamation, "Unzureichende windream-Version") Else - MsgBox("Errormessage:" & vbNewLine & ex.Message, MsgBoxStyle.Critical, "Fehler beim Login an windream") + ClassLogger.Add("Unexpected Error in windream init:" & ex.Message) + MsgBox("Unexpected Error in windream init:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End If Return False End Try @@ -537,7 +538,7 @@ Public Class ClassWindream End Try End Function #End Region - Public Shared Function Stream_File(ByVal filenameQuelle As String, ByVal zielpfad As String) + Public Shared Function Stream_File(ByVal filenameQuelle As String, ByVal zielpfad As String, Optional ImportAll As Boolean = False) aktWMObject = Nothing If My.Computer.FileSystem.DirectoryExists(zielpfad) = False Then My.Computer.FileSystem.CreateDirectory(zielpfad) @@ -732,13 +733,37 @@ Public Class ClassWindream endgültigerDateiname = "\" & endgültigerDateiname End If CURRENT_FILEIN_WD = vWLaufwerk & ":" & endgültigerDateiname - ClassLogger.Add(">> Datei '" & CURRENT_FILEIN_WD & "' wurde erfolgreich importiert!", False) + ClassLogger.Add(">> File '" & CURRENT_FILEIN_WD & "' was imported.", False) aktWMObject = WMObject Return True Else - System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) - ClassLogger.Add(" FEHLER bei Datei-Übertragen - FileLength ist 0, Übertragene Datei wurde gelöscht- Überprüfen Sie Log-File") - Return False + If length = 0 Then + If ImportAll = False Then + System.IO.File.Delete(vWLaufwerk & ":\" & endgültigerDateiname) + ClassLogger.Add(" Error in Stream File - FileLength = 0, File " & CURRENT_FILEIN_WD & " was deleted") + Return False + Else + If endgültigerDateiname.StartsWith("\") Then + If endgültigerDateiname.StartsWith("\\") Then + endgültigerDateiname = endgültigerDateiname.Replace("\\", "\") + Else + endgültigerDateiname = endgültigerDateiname + End If + Else + endgültigerDateiname = "\" & endgültigerDateiname + End If + ClassLogger.Add(">> ATTENTION in Stream File - FileLength = 0, File " & CURRENT_FILEIN_WD & " will be imported") + CURRENT_FILEIN_WD = vWLaufwerk & ":" & endgültigerDateiname + ClassLogger.Add(">> File '" & CURRENT_FILEIN_WD & "' was imported.", False) + aktWMObject = WMObject + Return True + End If + + Else + ClassLogger.Add("Error in Stream File - Error <> 0") + Return False + End If + End If Else Return False @@ -785,9 +810,7 @@ Public Class ClassWindream ' ihr den entsprechenden Dokumenttyp zuweisen WMObject.aObjectType = oSession.GetWMObjectByName(WINDREAMLib.WMEntity.WMEntityObjectType, _WDObjekttyp) ' WMObject.aObjectType = Me.selectedProfile.Dokumenttyp - If LogErrorsOnly = False Then ClassLogger.Add(" >> Objekttyp wird gesetzt", False) - Else - If LogErrorsOnly = False Then ClassLogger.Add(" >> Objekttyp war bereits gesetzt", False) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Objecttype '" & _WDObjekttyp & "' was written!", False) End If Try @@ -1302,7 +1325,7 @@ Public Class ClassWindream 'Duplikat Prüfung an, also nur anhängen wenn Wert <> For Each WDValue As Object In wertWD If WDValue Is Nothing = False Then - 'Erst einmal die ALten Werte schreiben + 'Erst die ALten Werte schreiben ReDim Preserve ValueArray(Anzahl) 'Den Wert im Array speichern ValueArray(Anzahl) = WDValue.ToString diff --git a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj index 1f6dd0f..b1ab323 100644 --- a/app/DD-Record-Organiser/DD-Record-Organiser.vbproj +++ b/app/DD-Record-Organiser/DD-Record-Organiser.vbproj @@ -248,10 +248,10 @@ - - frmGroup_Rights.vb + + frmRight_Management.vb - + Form @@ -602,8 +602,8 @@ frmConstructor_Main.vb - - frmGroup_Rights.vb + + frmRight_Management.vb frmWD_Import_Doc_Record.vb @@ -1161,6 +1161,8 @@ + + diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xsc b/app/DD-Record-Organiser/DD_DMSDataSet.xsc index 6cf7288..cfcad7d 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.xsc +++ b/app/DD-Record-Organiser/DD_DMSDataSet.xsc @@ -304,39 +304,53 @@ - + + - + + - + + - + + - + + - + + - + + - + + - + + - + + - + + - + + - + + - + + diff --git a/app/DD-Record-Organiser/DD_DMSDataSet.xsd b/app/DD-Record-Organiser/DD_DMSDataSet.xsd index ee39252..1914c00 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet.xsd +++ b/app/DD-Record-Organiser/DD_DMSDataSet.xsd @@ -2854,8 +2854,9 @@ WHERE (GUID = @Original_GUID) INSERT INTO TBPMO_WD_IMPORT_PROFILE - (NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ENTITY_ID, SQL_DOCTYPE, OLD_OBJECTTYPE, IDX_FILE_WORKED) -VALUES (@NAME,@WD_SEARCH,@UNIQUE_DOC_SQL,@NEW_OBJECTTYPE,@CONNECTION_ID,@ADDED_WHO,@ENTITY_ID,@SQL_DOCTYPE,@OLD_OBJECTTYPE,@IDX_FILE_WORKED); + (NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ENTITY_ID, SQL_DOCTYPE, OLD_OBJECTTYPE, IDX_FILE_WORKED, SQL_PARENT_RECORD, + ONLY_RECORD_CREATING) +VALUES (@NAME,@WD_SEARCH,@UNIQUE_DOC_SQL,@NEW_OBJECTTYPE,@CONNECTION_ID,@ADDED_WHO,@ENTITY_ID,@SQL_DOCTYPE,@OLD_OBJECTTYPE,@IDX_FILE_WORKED,@SQL_PARENT_RECORD,@ONLY_RECORD_CREATING); SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_IMPORT_PROFILE WHERE (GUID = SCOPE_IDENTITY()) @@ -2868,13 +2869,15 @@ SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADD + + SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ENTITY_ID, SQL_DOCTYPE, OLD_OBJECTTYPE, - IDX_FILE_WORKED + IDX_FILE_WORKED, SQL_PARENT_RECORD, ONLY_RECORD_CREATING FROM TBPMO_WD_IMPORT_PROFILE @@ -2883,8 +2886,9 @@ FROM TBPMO_WD_IMPORT_PROFILE UPDATE TBPMO_WD_IMPORT_PROFILE SET NAME = @NAME, WD_SEARCH = @WD_SEARCH, UNIQUE_DOC_SQL = @UNIQUE_DOC_SQL, NEW_OBJECTTYPE = @NEW_OBJECTTYPE, CONNECTION_ID = @CONNECTION_ID, - CHANGED_WHO = @CHANGED_WHO, ENTITY_ID = @ENTITY_ID, SQL_DOCTYPE = @SQL_DOCTYPE, OLD_OBJECTTYPE = @OLD_OBJECTTYPE, IDX_FILE_WORKED = @IDX_FILE_WORKED -WHERE (GUID = @Original_GUID); + CHANGED_WHO = @CHANGED_WHO, ENTITY_ID = @ENTITY_ID, SQL_DOCTYPE = @SQL_DOCTYPE, OLD_OBJECTTYPE = @OLD_OBJECTTYPE, IDX_FILE_WORKED = @IDX_FILE_WORKED, + SQL_PARENT_RECORD = @SQL_PARENT_RECORD, ONLY_RECORD_CREATING = @ONLY_RECORD_CREATING +WHERE (GUID = @Original_GUID); SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_IMPORT_PROFILE WHERE (GUID = @GUID) @@ -2897,6 +2901,8 @@ SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADD + + @@ -2919,6 +2925,8 @@ SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADD + + @@ -3152,7 +3160,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3193,7 +3201,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3271,7 +3279,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3366,7 +3374,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3389,7 +3397,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3434,7 +3442,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3472,7 +3480,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3507,7 +3515,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3551,7 +3559,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3572,7 +3580,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3609,7 +3617,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3654,7 +3662,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3721,7 +3729,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3758,7 +3766,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3813,7 +3821,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3852,7 +3860,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -3976,7 +3984,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4045,7 +4053,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4075,7 +4083,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4112,7 +4120,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4149,7 +4157,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4181,7 +4189,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4201,7 +4209,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4247,7 +4255,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4305,7 +4313,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4335,7 +4343,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4490,7 +4498,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4515,7 +4523,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4550,7 +4558,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4579,7 +4587,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4638,7 +4646,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4711,7 +4719,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4817,7 +4825,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4911,7 +4919,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4950,7 +4958,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -4968,7 +4976,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -5014,7 +5022,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -5028,7 +5036,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -5080,7 +5088,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -5124,7 +5132,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -5156,7 +5164,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -5227,10 +5235,18 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D + + + + + + + + - + @@ -5282,7 +5298,7 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + @@ -5355,13 +5371,13 @@ SELECT GUID, ENTITY_ID, GROUP_ID, EDIT_REC, ADD_REC, DELETE_REC, ADD_DOC, VIEW_D - + - + @@ -5543,24 +5559,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 97f6eb8..11e2fc2 100644 --- a/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb +++ b/app/DD-Record-Organiser/DD_DMSDataSet1.Designer.vb @@ -18155,6 +18155,10 @@ Partial Public Class DD_DMSDataSet Private columnIDX_FILE_WORKED As Global.System.Data.DataColumn + Private columnSQL_PARENT_RECORD As Global.System.Data.DataColumn + + Private columnONLY_RECORD_CREATING As Global.System.Data.DataColumn + _ Public Sub New() @@ -18302,6 +18306,22 @@ Partial Public Class DD_DMSDataSet End Get End Property + _ + Public ReadOnly Property SQL_PARENT_RECORDColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSQL_PARENT_RECORD + End Get + End Property + + _ + Public ReadOnly Property ONLY_RECORD_CREATINGColumn() As Global.System.Data.DataColumn + Get + Return Me.columnONLY_RECORD_CREATING + End Get + End Property + _ @@ -18339,9 +18359,9 @@ Partial Public Class DD_DMSDataSet _ - Public Overloads Function AddTBPMO_WD_IMPORT_PROFILERow(ByVal NAME As String, ByVal WD_SEARCH As String, ByVal UNIQUE_DOC_SQL As String, ByVal NEW_OBJECTTYPE As String, ByVal CONNECTION_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal ENTITY_ID As Integer, ByVal SQL_DOCTYPE As String, ByVal OLD_OBJECTTYPE As String, ByVal IDX_FILE_WORKED As String) As TBPMO_WD_IMPORT_PROFILERow + Public Overloads Function AddTBPMO_WD_IMPORT_PROFILERow(ByVal NAME As String, ByVal WD_SEARCH As String, ByVal UNIQUE_DOC_SQL As String, ByVal NEW_OBJECTTYPE As String, ByVal CONNECTION_ID As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal ENTITY_ID As Integer, ByVal SQL_DOCTYPE As String, ByVal OLD_OBJECTTYPE As String, ByVal IDX_FILE_WORKED As String, ByVal SQL_PARENT_RECORD As String, ByVal ONLY_RECORD_CREATING As Boolean) As TBPMO_WD_IMPORT_PROFILERow Dim rowTBPMO_WD_IMPORT_PROFILERow As TBPMO_WD_IMPORT_PROFILERow = CType(Me.NewRow,TBPMO_WD_IMPORT_PROFILERow) - Dim columnValuesArray() As Object = New Object() {Nothing, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ENTITY_ID, SQL_DOCTYPE, OLD_OBJECTTYPE, IDX_FILE_WORKED} + Dim columnValuesArray() As Object = New Object() {Nothing, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ENTITY_ID, SQL_DOCTYPE, OLD_OBJECTTYPE, IDX_FILE_WORKED, SQL_PARENT_RECORD, ONLY_RECORD_CREATING} rowTBPMO_WD_IMPORT_PROFILERow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_WD_IMPORT_PROFILERow) Return rowTBPMO_WD_IMPORT_PROFILERow @@ -18384,6 +18404,8 @@ Partial Public Class DD_DMSDataSet Me.columnSQL_DOCTYPE = MyBase.Columns("SQL_DOCTYPE") Me.columnOLD_OBJECTTYPE = MyBase.Columns("OLD_OBJECTTYPE") Me.columnIDX_FILE_WORKED = MyBase.Columns("IDX_FILE_WORKED") + Me.columnSQL_PARENT_RECORD = MyBase.Columns("SQL_PARENT_RECORD") + Me.columnONLY_RECORD_CREATING = MyBase.Columns("ONLY_RECORD_CREATING") End Sub _ + Public Property SQL_PARENT_RECORD() As String + Get + Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE.SQL_PARENT_RECORDColumn),String) + End Get + Set + Me(Me.tableTBPMO_WD_IMPORT_PROFILE.SQL_PARENT_RECORDColumn) = value + End Set + End Property + + _ + Public Property ONLY_RECORD_CREATING() As Boolean + Get + Return CType(Me(Me.tableTBPMO_WD_IMPORT_PROFILE.ONLY_RECORD_CREATINGColumn),Boolean) + End Get + Set + Me(Me.tableTBPMO_WD_IMPORT_PROFILE.ONLY_RECORD_CREATINGColumn) = value + End Set + End Property + _ Public Function IsUNIQUE_DOC_SQLNull() As Boolean @@ -46100,6 +46153,8 @@ Namespace DD_DMSDataSetTableAdapters tableMapping.ColumnMappings.Add("SQL_DOCTYPE", "SQL_DOCTYPE") tableMapping.ColumnMappings.Add("OLD_OBJECTTYPE", "OLD_OBJECTTYPE") tableMapping.ColumnMappings.Add("IDX_FILE_WORKED", "IDX_FILE_WORKED") + tableMapping.ColumnMappings.Add("SQL_PARENT_RECORD", "SQL_PARENT_RECORD") + tableMapping.ColumnMappings.Add("ONLY_RECORD_CREATING", "ONLY_RECORD_CREATING") Me._adapter.TableMappings.Add(tableMapping) Me._adapter.DeleteCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.DeleteCommand.Connection = Me.Connection @@ -46110,11 +46165,13 @@ Namespace DD_DMSDataSetTableAdapters Me._adapter.InsertCommand.Connection = Me.Connection Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_WD_IMPORT_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (NAME, WD_SEARCH, U"& _ "NIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ENTITY_ID, SQL_DOCTYPE,"& _ - " OLD_OBJECTTYPE, IDX_FILE_WORKED)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@WD_SEARCH,@UNIQUE_DOC_S"& _ - "QL,@NEW_OBJECTTYPE,@CONNECTION_ID,@ADDED_WHO,@ENTITY_ID,@SQL_DOCTYPE,@OLD_OBJECT"& _ - "TYPE,@IDX_FILE_WORKED); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_"& _ - "OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM"& _ - " TBPMO_WD_IMPORT_PROFILE WHERE (GUID = SCOPE_IDENTITY())" + " OLD_OBJECTTYPE, IDX_FILE_WORKED, SQL_PARENT_RECORD, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + "ONLY_RECORD_CREATING)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@NAME,@WD_SEARCH,@UNIQUE_DOC_SQL,@NEW_OBJE"& _ + "CTTYPE,@CONNECTION_ID,@ADDED_WHO,@ENTITY_ID,@SQL_DOCTYPE,@OLD_OBJECTTYPE,@IDX_FI"& _ + "LE_WORKED,@SQL_PARENT_RECORD,@ONLY_RECORD_CREATING); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, "& _ + "WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN,"& _ + " CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_IMPORT_PROFILE WHERE (GUID = SCOPE_IDEN"& _ + "TITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -46126,16 +46183,19 @@ Namespace DD_DMSDataSetTableAdapters Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_DOCTYPE", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_DOCTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OLD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OLD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_FILE_WORKED", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_FILE_WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PARENT_RECORD", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PARENT_RECORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ONLY_RECORD_CREATING", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ONLY_RECORD_CREATING", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_WD_IMPORT_PROFILE"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET NAME = @NAME, WD_SEARCH "& _ "= @WD_SEARCH, UNIQUE_DOC_SQL = @UNIQUE_DOC_SQL, NEW_OBJECTTYPE = @NEW_OBJECTTYPE"& _ ", CONNECTION_ID = @CONNECTION_ID, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" CHANGED_WHO = @CHAN"& _ "GED_WHO, ENTITY_ID = @ENTITY_ID, SQL_DOCTYPE = @SQL_DOCTYPE, OLD_OBJECTTYPE = @O"& _ - "LD_OBJECTTYPE, IDX_FILE_WORKED = @IDX_FILE_WORKED"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Origina"& _ - "l_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CON"& _ - "NECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN FROM TBPMO_WD_IMPOR"& _ - "T_PROFILE WHERE (GUID = @GUID)" + "LD_OBJECTTYPE, IDX_FILE_WORKED = @IDX_FILE_WORKED, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQ"& _ + "L_PARENT_RECORD = @SQL_PARENT_RECORD, ONLY_RECORD_CREATING = @ONLY_RECORD_CREATI"& _ + "NG"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, NAME, WD_SEARCH, "& _ + "UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_ID, ADDED_WHO, ADDED_WHEN, CHANGED_WH"& _ + "O, CHANGED_WHEN FROM TBPMO_WD_IMPORT_PROFILE WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@NAME", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "NAME", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WD_SEARCH", Global.System.Data.SqlDbType.VarChar, 1000, Global.System.Data.ParameterDirection.Input, 0, 0, "WD_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) @@ -46147,6 +46207,8 @@ Namespace DD_DMSDataSetTableAdapters Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_DOCTYPE", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_DOCTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@OLD_OBJECTTYPE", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "OLD_OBJECTTYPE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@IDX_FILE_WORKED", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "IDX_FILE_WORKED", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_PARENT_RECORD", Global.System.Data.SqlDbType.VarChar, 5000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_PARENT_RECORD", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ONLY_RECORD_CREATING", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "ONLY_RECORD_CREATING", 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 @@ -46166,8 +46228,8 @@ Namespace DD_DMSDataSetTableAdapters Me._commandCollection(0).Connection = Me.Connection Me._commandCollection(0).CommandText = "SELECT GUID, NAME, WD_SEARCH, UNIQUE_DOC_SQL, NEW_OBJECTTYPE, CONNECTION_I"& _ "D, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, ENTITY_ID, SQL_DOCTYPE, OLD"& _ - "_OBJECTTYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" IDX_FILE_WORKED"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_W"& _ - "D_IMPORT_PROFILE" + "_OBJECTTYPE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" IDX_FILE_WORKED, SQL_PARENT_RECORD, ONLY"& _ + "_RECORD_CREATING"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"FROM TBPMO_WD_IMPORT_PROFILE" Me._commandCollection(0).CommandType = Global.System.Data.CommandType.Text End Sub diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb b/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb index 4eae507..cef6f4b 100644 --- a/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb +++ b/app/DD-Record-Organiser/DD_ECMAdmin.Designer.vb @@ -16,59 +16,63 @@ Option Explicit On ''' '''Represents a strongly typed in-memory cache of data. ''' - _ + _ Partial Public Class DD_ECMAdmin Inherits Global.System.Data.DataSet - + Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable - + Private tableTBPMO_FORM_CONSTRUCTOR_DETAIL As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable - + Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable - + Private tableVWTEMPQUICKVIEW As VWTEMPQUICKVIEWDataTable - + Private tableTBWH_ENTITIES As TBWH_ENTITIESDataTable - + Private tableTBWH_USER_GROUPS As TBWH_USER_GROUPSDataTable - + Private tableDT_VORSCHAU As DT_VORSCHAUDataTable - + Private tableTBAD_Users As TBAD_UsersDataTable - + + Private tableTBWH_Users1 As TBWH_Users1DataTable + + Private tableTBWH_Users2 As TBWH_Users2DataTable + Private relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID As Global.System.Data.DataRelation - + Private _schemaSerializationMode As Global.System.Data.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema - - _ + + _ Public Sub New() - MyBase.New() - Me.BeginInit() - Me.InitClass() + MyBase.New + Me.BeginInit + Me.InitClass Dim schemaChangedHandler As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler MyBase.Relations.CollectionChanged, schemaChangedHandler - Me.EndInit() + Me.EndInit 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, False) - If (Me.IsBinarySerialized(info, context) = True) Then - Me.InitVars(False) + MyBase.New(info, context, false) + If (Me.IsBinarySerialized(info, context) = true) Then + Me.InitVars(false) Dim schemaChangedHandler1 As Global.System.ComponentModel.CollectionChangeEventHandler = AddressOf Me.SchemaChanged AddHandler Me.Tables.CollectionChanged, schemaChangedHandler1 AddHandler Me.Relations.CollectionChanged, schemaChangedHandler1 Return End If - Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)), String) + Dim strSchema As String = CType(info.GetValue("XmlSchema", GetType(String)),String) If (Me.DetermineSchemaSerializationMode(info, context) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) @@ -96,14 +100,20 @@ Partial Public Class DD_ECMAdmin If (Not (ds.Tables("TBAD_Users")) Is Nothing) Then MyBase.Tables.Add(New TBAD_UsersDataTable(ds.Tables("TBAD_Users"))) End If + If (Not (ds.Tables("TBWH_Users1")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_Users1DataTable(ds.Tables("TBWH_Users1"))) + End If + If (Not (ds.Tables("TBWH_Users2")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_Users2DataTable(ds.Tables("TBWH_Users2"))) + End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints - Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) - Me.InitVars() + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars Else Me.ReadXmlSchema(New Global.System.Xml.XmlTextReader(New Global.System.IO.StringReader(strSchema))) End If @@ -112,152 +122,172 @@ Partial Public Class DD_ECMAdmin AddHandler MyBase.Tables.CollectionChanged, schemaChangedHandler AddHandler Me.Relations.CollectionChanged, schemaChangedHandler End Sub - - _ + + _ Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR() As TBPMO_FORM_CONSTRUCTORDataTable Get Return Me.tableTBPMO_FORM_CONSTRUCTOR End Get End Property - - _ + + _ Public ReadOnly Property TBPMO_FORM_CONSTRUCTOR_DETAIL() As TBPMO_FORM_CONSTRUCTOR_DETAILDataTable Get Return Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL End Get End Property - - _ + + _ Public ReadOnly Property TBDD_CONNECTION() As TBDD_CONNECTIONDataTable Get Return Me.tableTBDD_CONNECTION End Get End Property - - _ + + _ Public ReadOnly Property VWTEMPQUICKVIEW() As VWTEMPQUICKVIEWDataTable Get Return Me.tableVWTEMPQUICKVIEW End Get End Property - - _ + + _ Public ReadOnly Property TBWH_ENTITIES() As TBWH_ENTITIESDataTable Get Return Me.tableTBWH_ENTITIES End Get End Property - - _ + + _ Public ReadOnly Property TBWH_USER_GROUPS() As TBWH_USER_GROUPSDataTable Get Return Me.tableTBWH_USER_GROUPS End Get End Property - - _ + + _ Public ReadOnly Property DT_VORSCHAU() As DT_VORSCHAUDataTable Get Return Me.tableDT_VORSCHAU End Get End Property - - _ + + _ Public ReadOnly Property TBAD_Users() As TBAD_UsersDataTable Get Return Me.tableTBAD_Users End Get End Property - - _ + + _ + Public ReadOnly Property TBWH_Users1() As TBWH_Users1DataTable + Get + Return Me.tableTBWH_Users1 + End Get + End Property + + _ + Public ReadOnly Property TBWH_Users2() As TBWH_Users2DataTable + Get + Return Me.tableTBWH_Users2 + End Get + End Property + + _ Public Overrides Property SchemaSerializationMode() As Global.System.Data.SchemaSerializationMode Get Return Me._schemaSerializationMode End Get - Set(value As Global.System.Data.SchemaSerializationMode) + Set Me._schemaSerializationMode = value End Set End Property - - _ + + _ Public Shadows ReadOnly Property Tables() As Global.System.Data.DataTableCollection Get Return MyBase.Tables End Get End Property - - _ + + _ Public Shadows ReadOnly Property Relations() As Global.System.Data.DataRelationCollection Get Return MyBase.Relations End Get End Property - - _ + + _ Protected Overrides Sub InitializeDerivedDataSet() - Me.BeginInit() - Me.InitClass() - Me.EndInit() + Me.BeginInit + Me.InitClass + Me.EndInit End Sub - - _ + + _ Public Overrides Function Clone() As Global.System.Data.DataSet - Dim cln As DD_ECMAdmin = CType(MyBase.Clone, DD_ECMAdmin) - cln.InitVars() + Dim cln As DD_ECMAdmin = CType(MyBase.Clone,DD_ECMAdmin) + cln.InitVars cln.SchemaSerializationMode = Me.SchemaSerializationMode Return cln End Function - - _ + + _ Protected Overrides Function ShouldSerializeTables() As Boolean - Return False + Return false End Function - - _ + + _ Protected Overrides Function ShouldSerializeRelations() As Boolean - Return False + Return false End Function - - _ + + _ Protected Overrides Sub ReadXmlSerializable(ByVal reader As Global.System.Xml.XmlReader) If (Me.DetermineSchemaSerializationMode(reader) = Global.System.Data.SchemaSerializationMode.IncludeSchema) Then - Me.Reset() + Me.Reset Dim ds As Global.System.Data.DataSet = New Global.System.Data.DataSet() ds.ReadXml(reader) If (Not (ds.Tables("TBPMO_FORM_CONSTRUCTOR")) Is Nothing) Then @@ -284,96 +314,114 @@ Partial Public Class DD_ECMAdmin If (Not (ds.Tables("TBAD_Users")) Is Nothing) Then MyBase.Tables.Add(New TBAD_UsersDataTable(ds.Tables("TBAD_Users"))) End If + If (Not (ds.Tables("TBWH_Users1")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_Users1DataTable(ds.Tables("TBWH_Users1"))) + End If + If (Not (ds.Tables("TBWH_Users2")) Is Nothing) Then + MyBase.Tables.Add(New TBWH_Users2DataTable(ds.Tables("TBWH_Users2"))) + End If Me.DataSetName = ds.DataSetName Me.Prefix = ds.Prefix Me.Namespace = ds.Namespace Me.Locale = ds.Locale Me.CaseSensitive = ds.CaseSensitive Me.EnforceConstraints = ds.EnforceConstraints - Me.Merge(ds, False, Global.System.Data.MissingSchemaAction.Add) - Me.InitVars() + Me.Merge(ds, false, Global.System.Data.MissingSchemaAction.Add) + Me.InitVars Else Me.ReadXml(reader) - Me.InitVars() + Me.InitVars End If End Sub - - _ + + _ Protected Overrides Function GetSchemaSerializable() As Global.System.Xml.Schema.XmlSchema Dim stream As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() Me.WriteXmlSchema(New Global.System.Xml.XmlTextWriter(stream, Nothing)) stream.Position = 0 Return Global.System.Xml.Schema.XmlSchema.Read(New Global.System.Xml.XmlTextReader(stream), Nothing) End Function - - _ + + _ Friend Overloads Sub InitVars() - Me.InitVars(True) + Me.InitVars(true) End Sub - - _ + + _ Friend Overloads Sub InitVars(ByVal initTable As Boolean) - Me.tableTBPMO_FORM_CONSTRUCTOR = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR"), TBPMO_FORM_CONSTRUCTORDataTable) - If (initTable = True) Then + Me.tableTBPMO_FORM_CONSTRUCTOR = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR"),TBPMO_FORM_CONSTRUCTORDataTable) + If (initTable = true) Then If (Not (Me.tableTBPMO_FORM_CONSTRUCTOR) Is Nothing) Then - Me.tableTBPMO_FORM_CONSTRUCTOR.InitVars() + Me.tableTBPMO_FORM_CONSTRUCTOR.InitVars End If End If - Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"), TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) - If (initTable = True) Then + Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL = CType(MyBase.Tables("TBPMO_FORM_CONSTRUCTOR_DETAIL"),TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) + If (initTable = true) Then If (Not (Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL) Is Nothing) Then - Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.InitVars() + Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.InitVars End If End If - Me.tableTBDD_CONNECTION = CType(MyBase.Tables("TBDD_CONNECTION"), TBDD_CONNECTIONDataTable) - If (initTable = True) Then + Me.tableTBDD_CONNECTION = CType(MyBase.Tables("TBDD_CONNECTION"),TBDD_CONNECTIONDataTable) + If (initTable = true) Then If (Not (Me.tableTBDD_CONNECTION) Is Nothing) Then - Me.tableTBDD_CONNECTION.InitVars() + Me.tableTBDD_CONNECTION.InitVars End If End If - Me.tableVWTEMPQUICKVIEW = CType(MyBase.Tables("VWTEMPQUICKVIEW"), VWTEMPQUICKVIEWDataTable) - If (initTable = True) Then + Me.tableVWTEMPQUICKVIEW = CType(MyBase.Tables("VWTEMPQUICKVIEW"),VWTEMPQUICKVIEWDataTable) + If (initTable = true) Then If (Not (Me.tableVWTEMPQUICKVIEW) Is Nothing) Then - Me.tableVWTEMPQUICKVIEW.InitVars() + Me.tableVWTEMPQUICKVIEW.InitVars End If End If - Me.tableTBWH_ENTITIES = CType(MyBase.Tables("TBWH_ENTITIES"), TBWH_ENTITIESDataTable) - If (initTable = True) Then + Me.tableTBWH_ENTITIES = CType(MyBase.Tables("TBWH_ENTITIES"),TBWH_ENTITIESDataTable) + If (initTable = true) Then If (Not (Me.tableTBWH_ENTITIES) Is Nothing) Then - Me.tableTBWH_ENTITIES.InitVars() + Me.tableTBWH_ENTITIES.InitVars End If End If - Me.tableTBWH_USER_GROUPS = CType(MyBase.Tables("TBWH_USER_GROUPS"), TBWH_USER_GROUPSDataTable) - If (initTable = True) Then + Me.tableTBWH_USER_GROUPS = CType(MyBase.Tables("TBWH_USER_GROUPS"),TBWH_USER_GROUPSDataTable) + If (initTable = true) Then If (Not (Me.tableTBWH_USER_GROUPS) Is Nothing) Then - Me.tableTBWH_USER_GROUPS.InitVars() + Me.tableTBWH_USER_GROUPS.InitVars End If End If - Me.tableDT_VORSCHAU = CType(MyBase.Tables("DT_VORSCHAU"), DT_VORSCHAUDataTable) - If (initTable = True) Then + Me.tableDT_VORSCHAU = CType(MyBase.Tables("DT_VORSCHAU"),DT_VORSCHAUDataTable) + If (initTable = true) Then If (Not (Me.tableDT_VORSCHAU) Is Nothing) Then - Me.tableDT_VORSCHAU.InitVars() + Me.tableDT_VORSCHAU.InitVars End If End If - Me.tableTBAD_Users = CType(MyBase.Tables("TBAD_Users"), TBAD_UsersDataTable) - If (initTable = True) Then + Me.tableTBAD_Users = CType(MyBase.Tables("TBAD_Users"),TBAD_UsersDataTable) + If (initTable = true) Then If (Not (Me.tableTBAD_Users) Is Nothing) Then - Me.tableTBAD_Users.InitVars() + Me.tableTBAD_Users.InitVars + End If + End If + Me.tableTBWH_Users1 = CType(MyBase.Tables("TBWH_Users1"),TBWH_Users1DataTable) + If (initTable = true) Then + If (Not (Me.tableTBWH_Users1) Is Nothing) Then + Me.tableTBWH_Users1.InitVars + End If + End If + Me.tableTBWH_Users2 = CType(MyBase.Tables("TBWH_Users2"),TBWH_Users2DataTable) + If (initTable = true) Then + If (Not (Me.tableTBWH_Users2) Is Nothing) Then + Me.tableTBWH_Users2.InitVars End If End If Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = Me.Relations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID") End Sub - - _ + + _ Private Sub InitClass() Me.DataSetName = "DD_ECMAdmin" Me.Prefix = "" Me.Namespace = "http://tempuri.org/DD_ECMAdmin.xsd" - Me.EnforceConstraints = True + Me.EnforceConstraints = true Me.SchemaSerializationMode = Global.System.Data.SchemaSerializationMode.IncludeSchema Me.tableTBPMO_FORM_CONSTRUCTOR = New TBPMO_FORM_CONSTRUCTORDataTable() MyBase.Tables.Add(Me.tableTBPMO_FORM_CONSTRUCTOR) @@ -391,68 +439,84 @@ Partial Public Class DD_ECMAdmin MyBase.Tables.Add(Me.tableDT_VORSCHAU) Me.tableTBAD_Users = New TBAD_UsersDataTable() MyBase.Tables.Add(Me.tableTBAD_Users) - Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn}, False) + Me.tableTBWH_Users1 = New TBWH_Users1DataTable() + MyBase.Tables.Add(Me.tableTBWH_Users1) + Me.tableTBWH_Users2 = New TBWH_Users2DataTable() + MyBase.Tables.Add(Me.tableTBWH_Users2) + Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID = New Global.System.Data.DataRelation("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID", New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn}, New Global.System.Data.DataColumn() {Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CONSTRUCT_IDColumn}, false) Me.Relations.Add(Me.relationFK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID) End Sub - - _ + + _ Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR() As Boolean - Return False + Return false End Function - - _ + + _ Private Function ShouldSerializeTBPMO_FORM_CONSTRUCTOR_DETAIL() As Boolean - Return False + Return false End Function - - _ + + _ Private Function ShouldSerializeTBDD_CONNECTION() As Boolean - Return False + Return false End Function - - _ + + _ Private Function ShouldSerializeVWTEMPQUICKVIEW() As Boolean - Return False + Return false End Function - - _ + + _ Private Function ShouldSerializeTBWH_ENTITIES() As Boolean - Return False + Return false End Function - - _ + + _ Private Function ShouldSerializeTBWH_USER_GROUPS() As Boolean - Return False + Return false End Function - - _ + + _ Private Function ShouldSerializeDT_VORSCHAU() As Boolean - Return False + Return false End Function - - _ + + _ Private Function ShouldSerializeTBAD_Users() As Boolean - Return False + Return false End Function - - _ + + _ + Private Function ShouldSerializeTBWH_Users1() As Boolean + Return false + End Function + + _ + Private Function ShouldSerializeTBWH_Users2() As Boolean + Return false + End Function + + _ Private Sub SchemaChanged(ByVal sender As Object, ByVal e As Global.System.ComponentModel.CollectionChangeEventArgs) If (e.Action = Global.System.ComponentModel.CollectionChangeAction.Remove) Then - Me.InitVars() + Me.InitVars End If End Sub - - _ + + _ Public Shared Function GetTypedDataSetSchema(ByVal xs As Global.System.Xml.Schema.XmlSchemaSet) As Global.System.Xml.Schema.XmlSchemaComplexType Dim ds As DD_ECMAdmin = New DD_ECMAdmin() Dim type As Global.System.Xml.Schema.XmlSchemaComplexType = New Global.System.Xml.Schema.XmlSchemaComplexType() @@ -465,108 +529,114 @@ 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 xs.Add(dsSchema) Return type End Function - - _ + + _ Public Delegate Sub TBPMO_FORM_CONSTRUCTORRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTORRowChangeEvent) - - _ + + _ Public Delegate Sub TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEventHandler(ByVal sender As Object, ByVal e As TBPMO_FORM_CONSTRUCTOR_DETAILRowChangeEvent) - - _ + + _ Public Delegate Sub TBDD_CONNECTIONRowChangeEventHandler(ByVal sender As Object, ByVal e As TBDD_CONNECTIONRowChangeEvent) - - _ + + _ Public Delegate Sub VWTEMPQUICKVIEWRowChangeEventHandler(ByVal sender As Object, ByVal e As VWTEMPQUICKVIEWRowChangeEvent) - - _ + + _ Public Delegate Sub TBWH_ENTITIESRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_ENTITIESRowChangeEvent) - - _ + + _ Public Delegate Sub TBWH_USER_GROUPSRowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_USER_GROUPSRowChangeEvent) - - _ + + _ Public Delegate Sub DT_VORSCHAURowChangeEventHandler(ByVal sender As Object, ByVal e As DT_VORSCHAURowChangeEvent) - - _ + + _ Public Delegate Sub TBAD_UsersRowChangeEventHandler(ByVal sender As Object, ByVal e As TBAD_UsersRowChangeEvent) - + + _ + Public Delegate Sub TBWH_Users1RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_Users1RowChangeEvent) + + _ + Public Delegate Sub TBWH_Users2RowChangeEventHandler(ByVal sender As Object, ByVal e As TBWH_Users2RowChangeEvent) + ''' '''Represents the strongly named DataTable class. ''' - _ + _ Partial Public Class TBPMO_FORM_CONSTRUCTORDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTORRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnFORM_TITLE As Global.System.Data.DataColumn - + Private columnSEQUENCE_MENU As Global.System.Data.DataColumn - + Private columnADDED_WHO As Global.System.Data.DataColumn - + Private columnADDED_WHEN As Global.System.Data.DataColumn - + Private columnCHANGED_WHO As Global.System.Data.DataColumn - + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - + Private columnMENU_IMG As Global.System.Data.DataColumn - + Private columnSHORT_TITLE As Global.System.Data.DataColumn - + Private columnLANGUAGE As Global.System.Data.DataColumn - - _ + + _ Public Sub New() - MyBase.New() + MyBase.New Me.TableName = "TBPMO_FORM_CONSTRUCTOR" - 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 @@ -580,161 +650,161 @@ 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 SEQUENCE_MENUColumn() As Global.System.Data.DataColumn Get Return Me.columnSEQUENCE_MENU End Get End Property - - _ + + _ Public ReadOnly Property ADDED_WHOColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHO End Get End Property - - _ + + _ Public ReadOnly Property ADDED_WHENColumn() As Global.System.Data.DataColumn Get Return Me.columnADDED_WHEN End Get End Property - - _ + + _ Public ReadOnly Property CHANGED_WHOColumn() As Global.System.Data.DataColumn 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 MENU_IMGColumn() As Global.System.Data.DataColumn Get Return Me.columnMENU_IMG End Get End Property - - _ + + _ Public ReadOnly Property SHORT_TITLEColumn() As Global.System.Data.DataColumn Get Return Me.columnSHORT_TITLE End Get End Property - - _ + + _ Public ReadOnly Property LANGUAGEColumn() As Global.System.Data.DataColumn Get Return Me.columnLANGUAGE End Get End Property - - _ + + _ Public ReadOnly Property Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Default Public ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTORRow + + _ + Public Default ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTORRow Get - Return CType(Me.Rows(index), TBPMO_FORM_CONSTRUCTORRow) + Return CType(Me.Rows(index),TBPMO_FORM_CONSTRUCTORRow) End Get End Property - - _ + + _ Public Event TBPMO_FORM_CONSTRUCTORRowChanging As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler - - _ + + _ Public Event TBPMO_FORM_CONSTRUCTORRowChanged As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler - - _ + + _ Public Event TBPMO_FORM_CONSTRUCTORRowDeleting As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler - - _ + + _ Public Event TBPMO_FORM_CONSTRUCTORRowDeleted As TBPMO_FORM_CONSTRUCTORRowChangeEventHandler - - _ + + _ Public Overloads Sub AddTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) Me.Rows.Add(row) End Sub - - _ + + _ Public Overloads Function AddTBPMO_FORM_CONSTRUCTORRow(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal ADDED_WHO As String, ByVal ADDED_WHEN As Date, ByVal CHANGED_WHO As String, ByVal CHANGED_WHEN As Date, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String) As TBPMO_FORM_CONSTRUCTORRow - Dim rowTBPMO_FORM_CONSTRUCTORRow As TBPMO_FORM_CONSTRUCTORRow = CType(Me.NewRow, TBPMO_FORM_CONSTRUCTORRow) + Dim rowTBPMO_FORM_CONSTRUCTORRow As TBPMO_FORM_CONSTRUCTORRow = CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow) Dim columnValuesArray() As Object = New Object() {Nothing, FORM_TITLE, SEQUENCE_MENU, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WHEN, MENU_IMG, SHORT_TITLE, LANGUAGE} rowTBPMO_FORM_CONSTRUCTORRow.ItemArray = columnValuesArray Me.Rows.Add(rowTBPMO_FORM_CONSTRUCTORRow) Return rowTBPMO_FORM_CONSTRUCTORRow End Function - - _ + + _ Public Function FindByGUID(ByVal GUID As Integer) As TBPMO_FORM_CONSTRUCTORRow - Return CType(Me.Rows.Find(New Object() {GUID}), TBPMO_FORM_CONSTRUCTORRow) + Return CType(Me.Rows.Find(New Object() {GUID}),TBPMO_FORM_CONSTRUCTORRow) End Function - - _ + + _ Public Overrides Function Clone() As Global.System.Data.DataTable - Dim cln As TBPMO_FORM_CONSTRUCTORDataTable = CType(MyBase.Clone, TBPMO_FORM_CONSTRUCTORDataTable) - cln.InitVars() + Dim cln As TBPMO_FORM_CONSTRUCTORDataTable = CType(MyBase.Clone,TBPMO_FORM_CONSTRUCTORDataTable) + cln.InitVars Return cln End Function - - _ + + _ Protected Overrides Function CreateInstance() As Global.System.Data.DataTable Return New TBPMO_FORM_CONSTRUCTORDataTable() End Function - - _ + + _ Friend Sub InitVars() Me.columnGUID = MyBase.Columns("GUID") Me.columnFORM_TITLE = MyBase.Columns("FORM_TITLE") @@ -747,9 +817,9 @@ Partial Public Class DD_ECMAdmin Me.columnSHORT_TITLE = MyBase.Columns("SHORT_TITLE") Me.columnLANGUAGE = MyBase.Columns("LANGUAGE") 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) @@ -771,82 +841,82 @@ Partial Public Class DD_ECMAdmin MyBase.Columns.Add(Me.columnSHORT_TITLE) Me.columnLANGUAGE = New Global.System.Data.DataColumn("LANGUAGE", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnLANGUAGE) - 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.columnFORM_TITLE.MaxLength = 50 - Me.columnSEQUENCE_MENU.AllowDBNull = False + Me.columnSEQUENCE_MENU.AllowDBNull = false Me.columnADDED_WHO.MaxLength = 50 Me.columnCHANGED_WHO.MaxLength = 50 Me.columnSHORT_TITLE.MaxLength = 50 - Me.columnLANGUAGE.AllowDBNull = False + Me.columnLANGUAGE.AllowDBNull = false Me.columnLANGUAGE.MaxLength = 5 End Sub - - _ + + _ Public Function NewTBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow - Return CType(Me.NewRow, TBPMO_FORM_CONSTRUCTORRow) + Return CType(Me.NewRow,TBPMO_FORM_CONSTRUCTORRow) End Function - - _ + + _ Protected Overrides Function NewRowFromBuilder(ByVal builder As Global.System.Data.DataRowBuilder) As Global.System.Data.DataRow Return New TBPMO_FORM_CONSTRUCTORRow(builder) End Function - - _ + + _ Protected Overrides Function GetRowType() As Global.System.Type Return GetType(TBPMO_FORM_CONSTRUCTORRow) End Function - - _ + + _ Protected Overrides Sub OnRowChanged(ByVal e As Global.System.Data.DataRowChangeEventArgs) MyBase.OnRowChanged(e) If (Not (Me.TBPMO_FORM_CONSTRUCTORRowChangedEvent) Is Nothing) Then - RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanged(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTORRow), e.Action)) + RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanged(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), 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_CONSTRUCTORRowChangingEvent) Is Nothing) Then - RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanging(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTORRow), e.Action)) + RaiseEvent TBPMO_FORM_CONSTRUCTORRowChanging(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), 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_CONSTRUCTORRowDeletedEvent) Is Nothing) Then - RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleted(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTORRow), e.Action)) + RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleted(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), 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_CONSTRUCTORRowDeletingEvent) Is Nothing) Then - RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleting(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row, TBPMO_FORM_CONSTRUCTORRow), e.Action)) + RaiseEvent TBPMO_FORM_CONSTRUCTORRowDeleting(Me, New TBPMO_FORM_CONSTRUCTORRowChangeEvent(CType(e.Row,TBPMO_FORM_CONSTRUCTORRow), e.Action)) End If End Sub - - _ + + _ Public Sub RemoveTBPMO_FORM_CONSTRUCTORRow(ByVal row As TBPMO_FORM_CONSTRUCTORRow) 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() @@ -875,35 +945,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 @@ -911,73 +981,73 @@ Partial Public Class DD_ECMAdmin Return type End Function End Class - + ''' '''Represents the strongly named DataTable class. ''' - _ + _ Partial Public Class TBPMO_FORM_CONSTRUCTOR_DETAILDataTable Inherits Global.System.Data.TypedTableBase(Of TBPMO_FORM_CONSTRUCTOR_DETAILRow) - + Private columnGUID As Global.System.Data.DataColumn - + Private columnCONSTRUCT_ID As Global.System.Data.DataColumn - + Private columnFORM_ID As Global.System.Data.DataColumn - + Private columnPARENT_ID As Global.System.Data.DataColumn - + Private columnLEVEL1_SELECT As Global.System.Data.DataColumn - + Private columnSEQUENCE As Global.System.Data.DataColumn - + Private columnSQL_SELECT_EBENE1 As Global.System.Data.DataColumn - + Private columnSQL_SELECT_EBENE2 As Global.System.Data.DataColumn - + Private columnADDED_WHO As Global.System.Data.DataColumn - + Private columnADDED_WHEN As Global.System.Data.DataColumn - + Private columnCHANGED_WHO As Global.System.Data.DataColumn - + Private columnCHANGED_WHEN As Global.System.Data.DataColumn - + Private columnCOLUMN_NAME1 As Global.System.Data.DataColumn - + Private columnCOLUMN_NAME2 As Global.System.Data.DataColumn - + Private columnWINDREAM_SEARCH As Global.System.Data.DataColumn - + Private columnSEARCH_PATTERN1 As Global.System.Data.DataColumn - + Private columnSEARCH_PATTERN2 As Global.System.Data.DataColumn - + Private columnSEARCH_PATTERN3 As Global.System.Data.DataColumn - + Private columnSEARCH_PATTERN4 As Global.System.Data.DataColumn - + Private columnSEARCH_PATTERN5 As Global.System.Data.DataColumn - + Private columnLOAD_DIRECT As Global.System.Data.DataColumn - + Private columnSQL_QUICK_VIEW As Global.System.Data.DataColumn - - _ + + _ Public Sub New() - MyBase.New() + 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 @@ -991,250 +1061,250 @@ 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 Count() As Integer Get Return Me.Rows.Count End Get End Property - - _ - Default Public ReadOnly Property Item(ByVal index As Integer) As TBPMO_FORM_CONSTRUCTOR_DETAILRow + + _ + Public Default 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 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 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} 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) @@ -1243,29 +1313,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") @@ -1290,9 +1360,9 @@ Partial Public Class DD_ECMAdmin Me.columnLOAD_DIRECT = MyBase.Columns("LOAD_DIRECT") Me.columnSQL_QUICK_VIEW = MyBase.Columns("SQL_QUICK_VIEW") 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) @@ -1338,25 +1408,25 @@ 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.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.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 @@ -1364,73 +1434,73 @@ 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 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() @@ -1459,35 +1529,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 @@ -1495,55 +1565,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 @@ -1557,185 +1627,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 - - _ - Default Public ReadOnly Property Item(ByVal index As Integer) As TBDD_CONNECTIONRow + + _ + Public Default 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") @@ -1751,9 +1821,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) @@ -1781,11 +1851,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 @@ -1793,75 +1863,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() @@ -1890,35 +1960,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 @@ -1926,39 +1996,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 @@ -1972,121 +2042,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 - - _ - Default Public ReadOnly Property Item(ByVal index As Integer) As VWTEMPQUICKVIEWRow + + _ + Public Default 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") @@ -2094,9 +2164,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") @@ -2112,80 +2182,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() @@ -2214,35 +2284,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 @@ -2250,35 +2320,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 @@ -2292,113 +2362,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 - - _ - Default Public ReadOnly Property Item(ByVal index As Integer) As TBWH_ENTITIESRow + + _ + Public Default 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) @@ -2406,81 +2476,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() @@ -2509,35 +2579,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 @@ -2545,33 +2615,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 @@ -2585,181 +2655,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 - - _ - Default Public ReadOnly Property Item(ByVal index As Integer) As TBWH_USER_GROUPSRow + + _ + Public Default 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() @@ -2788,35 +2858,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 @@ -2824,31 +2894,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 @@ -2862,156 +2932,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 - - _ - Default Public ReadOnly Property Item(ByVal index As Integer) As DT_VORSCHAURow + + _ + Public Default 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() @@ -3040,35 +3110,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 @@ -3076,39 +3146,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 @@ -3122,125 +3194,134 @@ 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 - - _ - Default Public ReadOnly Property Item(ByVal index As Integer) As TBAD_UsersRow + + _ + Public Default 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) As TBAD_UsersRow - Dim rowTBAD_UsersRow As TBAD_UsersRow = CType(Me.NewRow, TBAD_UsersRow) - Dim columnValuesArray() As Object = New Object() {_Select, Username, Prename, Surname, Email} + + _ + 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 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") Me.columnPrename = MyBase.Columns("Prename") Me.columnSurname = MyBase.Columns("Surname") 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") @@ -3255,71 +3336,73 @@ Partial Public Class DD_ECMAdmin MyBase.Columns.Add(Me.columnSurname) Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) MyBase.Columns.Add(Me.columnEmail) - Me.columnSelect.DefaultValue = CType(False, Boolean) + 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) 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() @@ -3348,35 +3431,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 @@ -3384,1744 +3467,2841 @@ Partial Public Class DD_ECMAdmin Return type End Function End Class - + ''' - '''Represents strongly named DataRow class. + '''Represents the strongly named DataTable 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) + _ + 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 + Me.TableName = "TBWH_Users1" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity End Sub - - _ - Public Property GUID() As Integer + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn), Integer) + Return Me.columnSelect End Get - Set(value As Integer) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn) = value - End Set End Property - - _ - Public Property FORM_TITLE() As String + + _ + Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn), String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) - End Try + Return Me.columnUsername End Get - Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = value - End Set End Property - - _ - Public Property SEQUENCE_MENU() As Integer + + _ + Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn Get - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn), Integer) + Return Me.columnPrename End Get - Set(value As Integer) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn) = value - End Set End Property - - _ - Public Property ADDED_WHO() As String + + _ + Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn), String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) - End Try + Return Me.columnSurname End Get - Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = value - End Set End Property - - _ - Public Property ADDED_WHEN() As Date + + _ + Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn), Date) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) - End Try + Return Me.columnEmail End Get - Set(value As Date) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = value - End Set End Property - - _ - Public Property CHANGED_WHO() As String + + _ + Public ReadOnly Property IDColumn() As Global.System.Data.DataColumn Get - Try - Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn), String) - Catch e As Global.System.InvalidCastException - Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) - End Try + Return Me.columnID End Get - Set(value As String) - Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn) = value - End Set 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 + Get + 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 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 + 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") + Me.columnPrename = MyBase.Columns("Prename") + Me.columnSurname = MyBase.Columns("Surname") + 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") + Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") + Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") + MyBase.Columns.Add(Me.columnSelect) + Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUsername) + Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPrename) + Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSurname) + Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEmail) + Me.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) + End Sub + + _ + Public Function NewTBWH_Users1Row() As 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)) + 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)) + 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)) + 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)) + 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() + Dim ds As DD_ECMAdmin = New DD_ECMAdmin() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_Users1DataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents the strongly named DataTable class. + ''' + _ + Partial Public Class TBWH_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 + Me.TableName = "TBWH_Users2" + Me.BeginInit + Me.InitClass + Me.EndInit + End Sub + + _ + Friend Sub New(ByVal table As Global.System.Data.DataTable) + MyBase.New + Me.TableName = table.TableName + If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then + Me.CaseSensitive = table.CaseSensitive + End If + If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then + Me.Locale = table.Locale + End If + If (table.Namespace <> table.DataSet.Namespace) Then + Me.Namespace = table.Namespace + End If + Me.Prefix = table.Prefix + Me.MinimumCapacity = table.MinimumCapacity + End Sub + + _ + Protected Sub New(ByVal info As Global.System.Runtime.Serialization.SerializationInfo, ByVal context As Global.System.Runtime.Serialization.StreamingContext) + MyBase.New(info, context) + Me.InitVars + End Sub + + _ + Public ReadOnly Property SelectColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSelect + End Get + End Property + + _ + Public ReadOnly Property UsernameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnUsername + End Get + End Property + + _ + Public ReadOnly Property PrenameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnPrename + End Get + End Property + + _ + Public ReadOnly Property SurnameColumn() As Global.System.Data.DataColumn + Get + Return Me.columnSurname + End Get + End Property + + _ + Public ReadOnly Property EmailColumn() As Global.System.Data.DataColumn + Get + Return Me.columnEmail + End Get + End Property + + _ + Public ReadOnly Property 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 + Get + 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 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 + 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") + Me.columnPrename = MyBase.Columns("Prename") + Me.columnSurname = MyBase.Columns("Surname") + 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") + Me.columnSelect.ExtendedProperties.Add("Generator_ColumnVarNameInTable", "columnSelect") + Me.columnSelect.ExtendedProperties.Add("Generator_UserColumnName", "Select") + MyBase.Columns.Add(Me.columnSelect) + Me.columnUsername = New Global.System.Data.DataColumn("Username", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnUsername) + Me.columnPrename = New Global.System.Data.DataColumn("Prename", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnPrename) + Me.columnSurname = New Global.System.Data.DataColumn("Surname", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnSurname) + Me.columnEmail = New Global.System.Data.DataColumn("Email", GetType(String), Nothing, Global.System.Data.MappingType.Element) + MyBase.Columns.Add(Me.columnEmail) + Me.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) + End Sub + + _ + Public Function NewTBWH_Users2Row() As 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)) + 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)) + 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)) + 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)) + 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() + Dim ds As DD_ECMAdmin = New DD_ECMAdmin() + Dim any1 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any1.Namespace = "http://www.w3.org/2001/XMLSchema" + any1.MinOccurs = New Decimal(0) + any1.MaxOccurs = Decimal.MaxValue + any1.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any1) + Dim any2 As Global.System.Xml.Schema.XmlSchemaAny = New Global.System.Xml.Schema.XmlSchemaAny() + any2.Namespace = "urn:schemas-microsoft-com:xml-diffgram-v1" + any2.MinOccurs = New Decimal(1) + any2.ProcessContents = Global.System.Xml.Schema.XmlSchemaContentProcessing.Lax + sequence.Items.Add(any2) + Dim attribute1 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute1.Name = "namespace" + attribute1.FixedValue = ds.Namespace + type.Attributes.Add(attribute1) + Dim attribute2 As Global.System.Xml.Schema.XmlSchemaAttribute = New Global.System.Xml.Schema.XmlSchemaAttribute() + attribute2.Name = "tableTypeName" + attribute2.FixedValue = "TBWH_Users2DataTable" + type.Attributes.Add(attribute2) + type.Particle = sequence + Dim dsSchema As Global.System.Xml.Schema.XmlSchema = ds.GetSchemaSerializable + If xs.Contains(dsSchema.TargetNamespace) Then + Dim s1 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Dim s2 As Global.System.IO.MemoryStream = New Global.System.IO.MemoryStream() + Try + Dim schema As Global.System.Xml.Schema.XmlSchema = Nothing + dsSchema.Write(s1) + Dim schemas As Global.System.Collections.IEnumerator = xs.Schemas(dsSchema.TargetNamespace).GetEnumerator + Do While schemas.MoveNext + schema = CType(schemas.Current,Global.System.Xml.Schema.XmlSchema) + s2.SetLength(0) + schema.Write(s2) + If (s1.Length = s2.Length) Then + s1.Position = 0 + s2.Position = 0 + + Do While ((s1.Position <> s1.Length) _ + AndAlso (s1.ReadByte = s2.ReadByte)) + + + Loop + If (s1.Position = s1.Length) Then + Return type + End If + End If + + Loop + Finally + If (Not (s1) Is Nothing) Then + s1.Close + End If + If (Not (s2) Is Nothing) Then + s2.Close + End If + End Try + End If + xs.Add(dsSchema) + Return type + End Function + End Class + + ''' + '''Represents strongly named DataRow class. + ''' + Partial Public Class TBPMO_FORM_CONSTRUCTORRow + Inherits Global.System.Data.DataRow + + Private tableTBPMO_FORM_CONSTRUCTOR As TBPMO_FORM_CONSTRUCTORDataTable + + _ + Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) + MyBase.New(rb) + Me.tableTBPMO_FORM_CONSTRUCTOR = CType(Me.Table,TBPMO_FORM_CONSTRUCTORDataTable) + End Sub + + _ + Public Property GUID() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.GUIDColumn) = value + End Set + End Property + + _ + Public Property FORM_TITLE() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte FORM_TITLE in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.FORM_TITLEColumn) = value + End Set + End Property + + _ + Public Property SEQUENCE_MENU() As Integer + Get + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn),Integer) + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.SEQUENCE_MENUColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHOColumn) = value + End Set + End Property + + _ + Public Property ADDED_WHEN() As Date + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn),Date) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte ADDED_WHEN in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set + Me(Me.tableTBPMO_FORM_CONSTRUCTOR.ADDED_WHENColumn) = value + End Set + End Property + + _ + Public Property CHANGED_WHO() As String + Get + Try + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR.CHANGED_WHOColumn),String) + Catch e As Global.System.InvalidCastException + Throw New Global.System.Data.StrongTypingException("Der Wert für Spalte CHANGED_WHO in Tabelle TBPMO_FORM_CONSTRUCTOR ist DBNull.", e) + End Try + End Get + Set + 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(value As Date) + Set 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(value As Byte()) + Set 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(value As String) + Set 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(value As String) + Set 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(value As Integer) + Set 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(value As Integer) + Set 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(value As Integer) + Set 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(value As Integer) + Set 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(value As Boolean) + Set 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(value As Integer) + Set 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(value As String) + Set 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(value As String) + Set 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(value As String) + Set 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) + Return CType(Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHENColumn),Date) End Get - Set(value As Date) + Set 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(value As String) + Set 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(value As Date) + Set 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(value As String) + Set 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(value As String) + Set 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(value As String) + Set 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(value As String) + Set 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(value As String) + Set 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(value As String) + Set 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(value As String) + Set 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(value As String) + Set 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(value As Boolean) + Set 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(value As String) + Set Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_QUICK_VIEWColumn) = value End Set End Property - - _ + + _ Public Property TBPMO_FORM_CONSTRUCTORRow() As TBPMO_FORM_CONSTRUCTORRow Get - Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")), TBPMO_FORM_CONSTRUCTORRow) + Return CType(Me.GetParentRow(Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")),TBPMO_FORM_CONSTRUCTORRow) End Get - Set(value As TBPMO_FORM_CONSTRUCTORRow) + Set Me.SetParentRow(value, Me.Table.ParentRelations("FK_TBPMO_FORM_CONSTRUCTOR_DETAIL_CONSTRUCT_ID")) End Set End Property - - _ + + _ Public Function IsSQL_SELECT_EBENE1Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) End Function - - _ + + _ Public Sub SetSQL_SELECT_EBENE1Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SQL_SELECT_EBENE1Column) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsADDED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) End Function - - _ + + _ Public Sub SetADDED_WHONull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.ADDED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsCHANGED_WHONull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) End Function - - _ + + _ Public Sub SetCHANGED_WHONull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHOColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsCHANGED_WHENNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) End Function - - _ + + _ Public Sub SetCHANGED_WHENNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.CHANGED_WHENColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsWINDREAM_SEARCHNull() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) End Function - - _ + + _ Public Sub SetWINDREAM_SEARCHNull() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.WINDREAM_SEARCHColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsSEARCH_PATTERN1Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) End Function - - _ + + _ Public Sub SetSEARCH_PATTERN1Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN1Column) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsSEARCH_PATTERN2Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) End Function - - _ + + _ Public Sub SetSEARCH_PATTERN2Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN2Column) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsSEARCH_PATTERN3Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) End Function - - _ + + _ Public Sub SetSEARCH_PATTERN3Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN3Column) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsSEARCH_PATTERN4Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) End Function - - _ + + _ Public Sub SetSEARCH_PATTERN4Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN4Column) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsSEARCH_PATTERN5Null() As Boolean Return Me.IsNull(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) End Function - - _ + + _ Public Sub SetSEARCH_PATTERN5Null() Me(Me.tableTBPMO_FORM_CONSTRUCTOR_DETAIL.SEARCH_PATTERN5Column) = Global.System.Convert.DBNull End Sub End Class - + ''' '''Represents strongly named DataRow class. ''' Partial Public Class TBDD_CONNECTIONRow Inherits Global.System.Data.DataRow - + Private tableTBDD_CONNECTION As TBDD_CONNECTIONDataTable - - _ + + _ Friend Sub New(ByVal rb As Global.System.Data.DataRowBuilder) MyBase.New(rb) - Me.tableTBDD_CONNECTION = CType(Me.Table, TBDD_CONNECTIONDataTable) + 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(value As Short) + Set 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(value As String) + Set 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(value As String) + Set 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(value As String) + Set 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(value As String) + Set 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(value As String) + Set 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(value As String) + Set 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(value As String) + Set 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(value As Boolean) + Set 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(value As String) + Set 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(value As Date) + Set 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(value As String) + Set 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(value As Date) + Set 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(value As Integer) + Set 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(value As String) + Set 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(value As Byte()) + Set 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(value As String) + Set 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(value As String) + Set 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(value As Integer) + Set 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(value As String) + Set 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(value As String) + Set 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(value As Integer) + Set 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(value As String) + Set 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(value As String) + Set 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(value As Boolean) + Set 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(value As String) + Set 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(value As String) + Set 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(value As String) + Set 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(value As String) + Set 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) + 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 + 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) + End Sub + + _ + Public Property _Select() As Boolean + Get + 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 + 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) + 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 + 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) + 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 + 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) + 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 + 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) + 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 + 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) + 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 + 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) + End Sub + + _ + Public Property _Select() As Boolean + Get + 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 + 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) + 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 + 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) + 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 + 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) + 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 + 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) + 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 + 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) + 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 + 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.tableTBAD_Users.PrenameColumn) + Return Me.IsNull(Me.tableTBWH_Users2.PrenameColumn) End Function - - _ + + _ Public Sub SetPrenameNull() - Me(Me.tableTBAD_Users.PrenameColumn) = Global.System.Convert.DBNull + Me(Me.tableTBWH_Users2.PrenameColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsSurnameNull() As Boolean - Return Me.IsNull(Me.tableTBAD_Users.SurnameColumn) + Return Me.IsNull(Me.tableTBWH_Users2.SurnameColumn) End Function - - _ + + _ Public Sub SetSurnameNull() - Me(Me.tableTBAD_Users.SurnameColumn) = Global.System.Convert.DBNull + Me(Me.tableTBWH_Users2.SurnameColumn) = Global.System.Convert.DBNull End Sub - - _ + + _ Public Function IsEmailNull() As Boolean - Return Me.IsNull(Me.tableTBAD_Users.EmailColumn) + Return Me.IsNull(Me.tableTBWH_Users2.EmailColumn) End Function - - _ + + _ Public Sub SetEmailNull() - Me(Me.tableTBAD_Users.EmailColumn) = Global.System.Convert.DBNull + 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 + 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 + 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 @@ -5131,57 +6311,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(value As Global.System.Data.SqlClient.SqlConnection) + Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -5195,65 +6375,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(value As Global.System.Data.SqlClient.SqlTransaction) + Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + 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(value As Boolean) + Set Me._clearBeforeFill = value End Set End Property - - _ + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -5272,294 +6452,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, "", "", "")) - End Sub - - _ + 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, "", "", "")) - End Sub - - _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable, ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As Integer + Me._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 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 Overridable Overloads Function GetData(ByVal LANGUAGE As String, ByVal SCREEN_ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable + + _ + Public Overloads Overridable 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 Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTORDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR") End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + 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 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 + + _ + 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 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 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 + + _ + Public Overloads Overridable Function Update(ByVal FORM_TITLE As String, ByVal SEQUENCE_MENU As Integer, ByVal CHANGED_WHO As String, ByVal MENU_IMG() As Byte, ByVal SHORT_TITLE As String, ByVal LANGUAGE As String, ByVal Original_GUID As Integer, ByVal GUID As Integer) As Integer If (FORM_TITLE Is Nothing) Then Me.Adapter.UpdateCommand.Parameters(0).Value = Global.System.DBNull.Value Else - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(FORM_TITLE, String) + 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(value As Global.System.Data.SqlClient.SqlConnection) + Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -5573,65 +6753,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(value As Global.System.Data.SqlClient.SqlTransaction) + Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + 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(value As Boolean) + Set Me._clearBeforeFill = value End Set End Property - - _ + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -5662,425 +6842,425 @@ 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_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 " & _ + Me._adapter.InsertCommand.CommandText = "INSERT INTO TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" (CONSTRUCT_ID"& _ + ", FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBE"& _ + "NE2, ADDED_WHO, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" "& _ + " SEARCH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEAR"& _ + "CH_PATTERN5)"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"VALUES (@CONSTRUCT_ID,@FORM_ID,@PARENT_ID,@LEVEL1_SELECT,@S"& _ + "EQUENCE,@SQL_SELECT_EBENE1,@SQL_SELECT_EBENE2,@ADDED_WHO,@COLUMN_NAME1,@COLUMN_N"& _ + "AME2,@WINDREAM_SEARCH,@SEARCH_PATTERN1,@SEARCH_PATTERN2,@SEARCH_PATTERN3,@SEARCH"& _ + "_PATTERN4,@SEARCH_PATTERN5); "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LE"& _ + "VEL1_SELECT, SEQUENCE, SQL_SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WH"& _ + "EN, CHANGED_WHO, CHANGED_WHEN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEAR"& _ + "CH_PATTERN1, SEARCH_PATTERN2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 "& _ "FROM TBPMO_FORM_CONSTRUCTOR_DETAIL WHERE (GUID = SCOPE_IDENTITY())" Me._adapter.InsertCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@ADDED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "ADDED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.InsertCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) Me._adapter.UpdateCommand = New Global.System.Data.SqlClient.SqlCommand() Me._adapter.UpdateCommand.Connection = Me.Connection - Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL" & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "SET CONSTRUCT_ID = @CO" & _ - "NSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_" & _ - "SELECT, SEQUENCE = @SEQUENCE, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " SQL_SELECT_EBENE1 = @SQ" & _ - "L_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_" & _ - "WHO, COLUMN_NAME1 = @COLUMN_NAME1, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " COLUMN_NAME2 = @CO" & _ - "LUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTER" & _ - "N1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, " & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & " SEARCH_PATTER" & _ - "N3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SE" & _ - "ARCH_PATTERN5, LOAD_DIRECT = @LOAD_DIRECT" & 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" & _ + Me._adapter.UpdateCommand.CommandText = "UPDATE TBPMO_FORM_CONSTRUCTOR_DETAIL"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SET CONSTRUCT_ID = @CO"& _ + "NSTRUCT_ID, FORM_ID = @FORM_ID, PARENT_ID = @PARENT_ID, LEVEL1_SELECT = @LEVEL1_"& _ + "SELECT, SEQUENCE = @SEQUENCE, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SQL_SELECT_EBENE1 = @SQ"& _ + "L_SELECT_EBENE1, SQL_SELECT_EBENE2 = @SQL_SELECT_EBENE2, CHANGED_WHO = @CHANGED_"& _ + "WHO, COLUMN_NAME1 = @COLUMN_NAME1, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" COLUMN_NAME2 = @CO"& _ + "LUMN_NAME2, WINDREAM_SEARCH = @WINDREAM_SEARCH, SEARCH_PATTERN1 = @SEARCH_PATTER"& _ + "N1, SEARCH_PATTERN2 = @SEARCH_PATTERN2, "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&" SEARCH_PATTER"& _ + "N3 = @SEARCH_PATTERN3, SEARCH_PATTERN4 = @SEARCH_PATTERN4, SEARCH_PATTERN5 = @SE"& _ + "ARCH_PATTERN5, LOAD_DIRECT = @LOAD_DIRECT"&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"WHERE (GUID = @Original_GUID);"& _ + " "&Global.Microsoft.VisualBasic.ChrW(13)&Global.Microsoft.VisualBasic.ChrW(10)&"SELECT GUID, CONSTRUCT_ID, FORM_ID, PARENT_ID, LEVEL1_SELECT, SEQUENCE, SQL_"& _ + "SELECT_EBENE1, SQL_SELECT_EBENE2, ADDED_WHO, ADDED_WHEN, CHANGED_WHO, CHANGED_WH"& _ + "EN, COLUMN_NAME1, COLUMN_NAME2, WINDREAM_SEARCH, SEARCH_PATTERN1, SEARCH_PATTERN"& _ + "2, SEARCH_PATTERN3, SEARCH_PATTERN4, SEARCH_PATTERN5 FROM TBPMO_FORM_CONSTRUCTOR"& _ "_DETAIL WHERE (GUID = @GUID)" Me._adapter.UpdateCommand.CommandType = Global.System.Data.CommandType.Text - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_DIRECT", Global.System.Data.DataRowVersion.Current, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, False, Nothing, "", "", "")) - End Sub - - _ + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CONSTRUCT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "CONSTRUCT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@FORM_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "FORM_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@PARENT_ID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "PARENT_ID", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LEVEL1_SELECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LEVEL1_SELECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEQUENCE", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "SEQUENCE", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE1", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SQL_SELECT_EBENE2", Global.System.Data.SqlDbType.VarChar, 4000, Global.System.Data.ParameterDirection.Input, 0, 0, "SQL_SELECT_EBENE2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@CHANGED_WHO", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "CHANGED_WHO", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME1", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@COLUMN_NAME2", Global.System.Data.SqlDbType.VarChar, 100, Global.System.Data.ParameterDirection.Input, 0, 0, "COLUMN_NAME2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@WINDREAM_SEARCH", Global.System.Data.SqlDbType.VarChar, 300, Global.System.Data.ParameterDirection.Input, 0, 0, "WINDREAM_SEARCH", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN1", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN1", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN2", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN2", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN3", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN3", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN4", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN4", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@SEARCH_PATTERN5", Global.System.Data.SqlDbType.VarChar, 50, Global.System.Data.ParameterDirection.Input, 0, 0, "SEARCH_PATTERN5", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@LOAD_DIRECT", Global.System.Data.SqlDbType.Bit, 1, Global.System.Data.ParameterDirection.Input, 0, 0, "LOAD_DIRECT", Global.System.Data.DataRowVersion.Current, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@Original_GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + Me._adapter.UpdateCommand.Parameters.Add(New Global.System.Data.SqlClient.SqlParameter("@GUID", Global.System.Data.SqlDbType.Int, 4, Global.System.Data.ParameterDirection.Input, 0, 0, "GUID", Global.System.Data.DataRowVersion.Original, false, Nothing, "", "", "")) + End Sub + + _ Private Sub 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)&"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, "", "", "")) - End Sub - - _ - Public Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable, ByVal ID As Integer) As Integer + 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 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 Overridable Overloads Function GetData(ByVal ID As Integer) As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable + + _ + Public Overloads Overridable 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 Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBPMO_FORM_CONSTRUCTOR_DETAILDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBPMO_FORM_CONSTRUCTOR_DETAIL") End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overridable Overloads Function Delete(ByVal Original_GUID As Integer) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Integer) + + _ + Public Overloads Overridable Function Delete(ByVal Original_GUID As Integer) As Integer + Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.DeleteCommand.Connection.State - If ((Me.Adapter.DeleteCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + 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 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, _ + + _ + 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) + 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 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 Overridable Overloads Function Update( _ - ByVal CONSTRUCT_ID As Integer, _ - ByVal FORM_ID As Integer, _ - ByVal PARENT_ID As Integer, _ - ByVal LEVEL1_SELECT As Boolean, _ - ByVal SEQUENCE As Integer, _ - ByVal SQL_SELECT_EBENE1 As String, _ - ByVal SQL_SELECT_EBENE2 As String, _ - ByVal CHANGED_WHO As String, _ - ByVal COLUMN_NAME1 As String, _ - ByVal COLUMN_NAME2 As String, _ - ByVal WINDREAM_SEARCH As String, _ - ByVal SEARCH_PATTERN1 As String, _ - ByVal SEARCH_PATTERN2 As String, _ - ByVal SEARCH_PATTERN3 As String, _ - ByVal SEARCH_PATTERN4 As String, _ - ByVal SEARCH_PATTERN5 As String, _ - ByVal LOAD_DIRECT As Boolean, _ - ByVal Original_GUID As Integer, _ + + _ + Public Overloads Overridable Function Update( _ + ByVal CONSTRUCT_ID As Integer, _ + ByVal FORM_ID As Integer, _ + ByVal PARENT_ID As Integer, _ + ByVal LEVEL1_SELECT As Boolean, _ + ByVal SEQUENCE As Integer, _ + ByVal SQL_SELECT_EBENE1 As String, _ + ByVal SQL_SELECT_EBENE2 As String, _ + ByVal CHANGED_WHO As String, _ + ByVal COLUMN_NAME1 As String, _ + ByVal COLUMN_NAME2 As String, _ + ByVal WINDREAM_SEARCH As String, _ + ByVal SEARCH_PATTERN1 As String, _ + ByVal SEARCH_PATTERN2 As String, _ + ByVal SEARCH_PATTERN3 As String, _ + ByVal SEARCH_PATTERN4 As String, _ + ByVal SEARCH_PATTERN5 As String, _ + ByVal LOAD_DIRECT As Boolean, _ + ByVal Original_GUID As Integer, _ ByVal GUID As Integer) As Integer - Me.Adapter.UpdateCommand.Parameters(0).Value = CType(CONSTRUCT_ID, Integer) - Me.Adapter.UpdateCommand.Parameters(1).Value = CType(FORM_ID, Integer) - Me.Adapter.UpdateCommand.Parameters(2).Value = CType(PARENT_ID, Integer) - Me.Adapter.UpdateCommand.Parameters(3).Value = CType(LEVEL1_SELECT, Boolean) - Me.Adapter.UpdateCommand.Parameters(4).Value = CType(SEQUENCE, Integer) + 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(Original_GUID,Integer) + Me.Adapter.UpdateCommand.Parameters(18).Value = CType(GUID,Integer) Dim previousConnectionState As Global.System.Data.ConnectionState = Me.Adapter.UpdateCommand.Connection.State - If ((Me.Adapter.UpdateCommand.Connection.State And Global.System.Data.ConnectionState.Open) _ + 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(value As Global.System.Data.SqlClient.SqlConnection) + Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -6094,65 +7274,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(value As Global.System.Data.SqlClient.SqlTransaction) + Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + 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(value As Boolean) + Set Me._clearBeforeFill = value End Set End Property - - _ + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -6174,315 +7354,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, "", "", "")) - End Sub - - _ + 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 Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer + + _ + Public Overloads Overridable 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 Overridable Overloads Function GetData() As DD_ECMAdmin.TBDD_CONNECTIONDataTable + + _ + Public Overloads Overridable 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 Overridable Overloads Function Update(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataTable As DD_ECMAdmin.TBDD_CONNECTIONDataTable) As Integer Return Me.Adapter.Update(dataTable) End Function - - _ - Public Overridable Overloads Function Update(ByVal dataSet As DD_ECMAdmin) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataSet As DD_ECMAdmin) As Integer Return Me.Adapter.Update(dataSet, "TBDD_CONNECTION") End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRow As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(New Global.System.Data.DataRow() {dataRow}) End Function - - _ - Public Overridable Overloads Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer + + _ + Public Overloads Overridable Function Update(ByVal dataRows() As Global.System.Data.DataRow) As Integer Return Me.Adapter.Update(dataRows) End Function - - _ - Public Overridable Overloads Function Delete(ByVal Original_GUID As Short) As Integer - Me.Adapter.DeleteCommand.Parameters(0).Value = CType(Original_GUID, Short) + + _ + Public Overloads Overridable 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 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 + + _ + 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 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 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 + + _ + 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 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(value As Global.System.Data.SqlClient.SqlConnection) + Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -6496,65 +7676,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(value As Global.System.Data.SqlClient.SqlTransaction) + Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + 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(value As Boolean) + Set Me._clearBeforeFill = value End Set End Property - - _ + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -6567,100 +7747,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 Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable) As Integer + + _ + Public Overloads Overridable 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 Overridable Overloads Function GetData() As DD_ECMAdmin.VWTEMPQUICKVIEWDataTable + + _ + Public Overloads Overridable 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(value As Global.System.Data.SqlClient.SqlConnection) + Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -6674,65 +7854,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(value As Global.System.Data.SqlClient.SqlTransaction) + Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + 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(value As Boolean) + Set Me._clearBeforeFill = value End Set End Property - - _ + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -6743,125 +7923,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, "", "", "")) - End Sub - - _ - 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._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 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 Overridable Overloads Function GetData(ByVal LANGUAGE As String, ByVal SCREEN As Integer, ByVal USER_ID As Integer) As DD_ECMAdmin.TBWH_ENTITIESDataTable + + _ + Public Overloads Overridable 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(value As Global.System.Data.SqlClient.SqlConnection) + Set Me._connection = value If (Not (Me.Adapter.InsertCommand) Is Nothing) Then Me.Adapter.InsertCommand.Connection = value @@ -6875,65 +8055,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(value As Global.System.Data.SqlClient.SqlTransaction) + Set Me._transaction = value Dim i As Integer = 0 Do While (i < Me.CommandCollection.Length) Me.CommandCollection(i).Transaction = Me._transaction i = (i + 1) Loop - If ((Not (Me.Adapter) Is Nothing) _ + 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(value As Boolean) + Set Me._clearBeforeFill = value End Set End Property - - _ + + _ Private Sub InitAdapter() Me._adapter = New Global.System.Data.SqlClient.SqlDataAdapter() Dim tableMapping As Global.System.Data.Common.DataTableMapping = New Global.System.Data.Common.DataTableMapping() @@ -6943,166 +8123,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 Overridable Overloads Function Fill(ByVal dataTable As DD_ECMAdmin.TBWH_USER_GROUPSDataTable) As Integer + + _ + Public Overloads Overridable 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 Overridable Overloads Function GetData() As DD_ECMAdmin.TBWH_USER_GROUPSDataTable + + _ + Public Overloads Overridable 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(value As UpdateOrderOption) + Set 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(value As TBPMO_FORM_CONSTRUCTORTableAdapter) + Set 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(value As TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter) + Set 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(value As TBDD_CONNECTIONTableAdapter) + Set Me._tBDD_CONNECTIONTableAdapter = value End Set End Property - - _ + + _ Public Property BackupDataSetBeforeUpdate() As Boolean Get Return Me._backupDataSetBeforeUpdate End Get - Set(value As Boolean) + Set 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(value As Global.System.Data.IDbConnection) + Set Me._connection = value End Set End Property - - _ + + _ Public ReadOnly Property TableAdapterInstanceCount() As Integer Get Dim count As Integer = 0 @@ -7118,18 +8298,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) @@ -7138,7 +8318,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) @@ -7147,7 +8327,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) @@ -7155,17 +8335,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) @@ -7173,7 +8353,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) @@ -7181,7 +8361,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) @@ -7189,17 +8369,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) @@ -7207,7 +8387,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) @@ -7215,7 +8395,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) @@ -7223,18 +8403,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 @@ -7242,60 +8422,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)() @@ -7308,33 +8488,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 @@ -7352,14 +8532,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 @@ -7369,16 +8549,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 @@ -7387,8 +8567,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 @@ -7396,18 +8576,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 @@ -7416,63 +8596,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 @@ -7480,9 +8660,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 @@ -7493,8 +8673,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 @@ -7503,12 +8683,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 @@ -7519,9 +8699,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 @@ -7542,7 +8722,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 22b083e..9bddb43 100644 --- a/app/DD-Record-Organiser/DD_ECMAdmin.xsd +++ b/app/DD-Record-Organiser/DD_ECMAdmin.xsd @@ -350,7 +350,7 @@ ORDER BY NAME - + @@ -396,7 +396,7 @@ ORDER BY NAME - + @@ -502,7 +502,7 @@ ORDER BY NAME - + @@ -575,14 +575,14 @@ ORDER BY NAME - + - + @@ -611,7 +611,7 @@ ORDER BY NAME - + @@ -619,10 +619,11 @@ ORDER BY NAME + - + @@ -643,7 +644,7 @@ ORDER BY NAME - + @@ -657,6 +658,30 @@ ORDER BY NAME + + + + + + + + + + + + + + + + + + + + + + + + @@ -686,7 +711,7 @@ ORDER BY NAME - + \ No newline at end of file diff --git a/app/DD-Record-Organiser/DD_ECMAdmin.xss b/app/DD-Record-Organiser/DD_ECMAdmin.xss index ea01b63..6f83b6a 100644 --- a/app/DD-Record-Organiser/DD_ECMAdmin.xss +++ b/app/DD-Record-Organiser/DD_ECMAdmin.xss @@ -4,16 +4,19 @@ Changes to this file may cause incorrect behavior and will be lost if the code is regenerated. --> - + - - - - - + + + + + + + + - + 345 diff --git a/app/DD-Record-Organiser/ModuleHelperMethods.vb b/app/DD-Record-Organiser/ModuleHelperMethods.vb index 6f82522..704e017 100644 --- a/app/DD-Record-Organiser/ModuleHelperMethods.vb +++ b/app/DD-Record-Organiser/ModuleHelperMethods.vb @@ -261,8 +261,8 @@ frm.MdiParent = MAIN_FORM frm.Show() Catch ex As Exception - ClassLogger.Add(ex) - MsgBox("Fehler beim Laden des Formulars, bitte erneut versuchen") + ClassLogger.Add("Error in OpenFormConstructor: " & ex.Message) + MsgBox("Error in OpenFormConstructor: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub diff --git a/app/DD-Record-Organiser/ModuleMySettings.vb b/app/DD-Record-Organiser/ModuleMySettings.vb index 04a07c5..46827b3 100644 --- a/app/DD-Record-Organiser/ModuleMySettings.vb +++ b/app/DD-Record-Organiser/ModuleMySettings.vb @@ -94,14 +94,14 @@ Module ModuleMySettings Dim DT As DataTable 'if file doesn't exist, create the file with its default xml table If Not File.Exists(ConfigPath) Then - ClassLogger.Add(">> ConfigFile wird erzeugt in: " & ConfigPath, False) + ClassLogger.Add(">> ConfigFile was created in: " & ConfigPath, False) DT = CreateConfigTable() DT.WriteXml(ConfigPath) - ClassLogger.Add(">> Standardwerte wurden gespeichert.", False) + ClassLogger.Add(">> Defaultvalues were saved.", False) End If DT = GetTablefromXML(ConfigPath) If DT Is Nothing Then - MsgBox("Konfiguration konnte nicht geladen werden. Check LogFile!", MsgBoxStyle.Critical) + MsgBox("Configuration could not be loaded!! Check LogFile!", MsgBoxStyle.Critical) Return False End If For Each Row As DataRow In DT.Rows @@ -288,7 +288,7 @@ Module ModuleMySettings table.Rows.Add(newRow11) table.AcceptChanges() - ClassLogger.Add(">> Tabelle wurde erzeugt...", False) + ClassLogger.Add(">> CreateConfigTable su...", False) Return table Catch ex As Exception MsgBox("Error in CreateConfigTable" & vbNewLine & ex.Message, MsgBoxStyle.Critical) @@ -314,7 +314,7 @@ Module ModuleMySettings DT.AcceptChanges() DT.WriteXml(ConfigPath) Else - MsgBox("Setting konnte nicht gespeichert werden! Prüfen Sie dei logfile.", MsgBoxStyle.Critical) + MsgBox("Setting could not be saved! Check logfile.", MsgBoxStyle.Critical) End If Catch ex As Exception @@ -326,8 +326,7 @@ Module ModuleMySettings End Function Public Function Settings_LoadBasicConfig() Try - ClassDatabase.Init() - Dim sql As String = "select * from tbdd_Modules where NAME = 'Record-Organizer'" + Dim sql As String = "select * from tbdd_Modules where UPPER(NAME) = UPPER('Record-Organizer')" Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) If DT.Rows.Count = 1 Then vWLaufwerk = DT.Rows(0).Item("STRING1") diff --git a/app/DD-Record-Organiser/My Project/AssemblyInfo.vb b/app/DD-Record-Organiser/My Project/AssemblyInfo.vb index 0d823ac..028151d 100644 --- a/app/DD-Record-Organiser/My Project/AssemblyInfo.vb +++ b/app/DD-Record-Organiser/My Project/AssemblyInfo.vb @@ -33,7 +33,7 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - + \ No newline at end of file diff --git a/app/DD-Record-Organiser/My Project/Resources.Designer.vb b/app/DD-Record-Organiser/My Project/Resources.Designer.vb index eef6ed8..aa77a4f 100644 --- a/app/DD-Record-Organiser/My Project/Resources.Designer.vb +++ b/app/DD-Record-Organiser/My Project/Resources.Designer.vb @@ -810,6 +810,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property email_go() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("email_go", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -1160,6 +1170,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property mail() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("mail", 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 6176c03..3bf2d4f 100644 --- a/app/DD-Record-Organiser/My Project/Resources.resx +++ b/app/DD-Record-Organiser/My Project/Resources.resx @@ -187,9 +187,6 @@ ..\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 @@ -241,6 +238,9 @@ ..\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 @@ -250,8 +250,8 @@ ..\Resources\application_view_tile.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Home_5699_32.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\application_view_detail.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\magifier_zoom_out.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -301,6 +301,9 @@ ..\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 @@ -406,8 +409,8 @@ ..\Resources\database_key.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\key_go.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 @@ -448,8 +451,11 @@ ..\Resources\user_suit.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Table_748.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\WebUserControl(ascx)_11270_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Home_5699_32.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\table_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -484,9 +490,6 @@ ..\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 @@ -505,6 +508,9 @@ ..\Resources\page_refresh.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Table_748.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + ..\Resources\add1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -556,8 +562,8 @@ ..\Resources\138_PushPin_32x42_721.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\Men5.ico;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 @@ -565,9 +571,6 @@ ..\Resources\EditLabel_13239.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\application_view_detail.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - ..\Resources\HomeHS.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -580,7 +583,10 @@ ..\Resources\action_Cancel_16xLG.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\WebUserControl(ascx)_11270_16x.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\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 \ No newline at end of file diff --git a/app/DD-Record-Organiser/My Project/Settings.Designer.vb b/app/DD-Record-Organiser/My Project/Settings.Designer.vb index 2e80244..96ff6af 100644 --- a/app/DD-Record-Organiser/My Project/Settings.Designer.vb +++ b/app/DD-Record-Organiser/My Project/Settings.Designer.vb @@ -67,7 +67,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("*.db"), _ + Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Public Property WD_ENTITYIMP_EXCLUDE() As String Get Return CType(Me("WD_ENTITYIMP_EXCLUDE"),String) @@ -79,7 +80,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("*.*"), _ + Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Public Property WD_ENTITYIMP_FILTER() As String Get Return CType(Me("WD_ENTITYIMP_FILTER"),String) @@ -91,7 +93,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute(""), _ + Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Public Property WD_ENTITYIMP_IMPPATH() As String Get Return CType(Me("WD_ENTITYIMP_IMPPATH"),String) @@ -103,7 +106,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute(""), _ + Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Public Property WD_ENTITYIMP_TARGETPATH() As String Get Return CType(Me("WD_ENTITYIMP_TARGETPATH"),String) @@ -115,7 +119,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute(""), _ + Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Public Property WD_ENTITYIMP_SAFETYPATH() As String Get Return CType(Me("WD_ENTITYIMP_SAFETYPATH"),String) @@ -127,7 +132,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute(""), _ + Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Public Property WD_ENTITYIMP_OBJECTTYPE() As String Get Return CType(Me("WD_ENTITYIMP_OBJECTTYPE"),String) @@ -139,7 +145,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute(""), _ + Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Public Property WD_INDEXDOKART_SAVE() As String Get Return CType(Me("WD_INDEXDOKART_SAVE"),String) @@ -151,7 +158,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("True"), _ + Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Public Property User_Calendar_isChild() As Boolean Get Return CType(Me("User_Calendar_isChild"),Boolean) @@ -163,7 +171,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("True"), _ + Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Public Property User_DesignPanels_areChild() As Boolean Get Return CType(Me("User_DesignPanels_areChild"),Boolean) @@ -175,7 +184,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("764"), _ + Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Public Property Constructor_DetailsSplitter() As Integer Get Return CType(Me("Constructor_DetailsSplitter"),Integer) @@ -187,7 +197,8 @@ Namespace My _ + Global.System.Configuration.DefaultSettingValueAttribute("False"), _ + Global.System.Configuration.SettingsManageabilityAttribute(Global.System.Configuration.SettingsManageability.Roaming)> _ Public Property User_InBoxScan_NotinFront() As Boolean Get Return CType(Me("User_InBoxScan_NotinFront"),Boolean) @@ -196,6 +207,19 @@ Namespace My Me("User_InBoxScan_NotinFront") = value End Set End Property + + _ + Public Property TBPMO_RIGHT_GROUPDataGridView() As String + Get + Return CType(Me("TBPMO_RIGHT_GROUPDataGridView"),String) + End Get + Set + Me("TBPMO_RIGHT_GROUPDataGridView") = value + End Set + End Property End Class End Namespace diff --git a/app/DD-Record-Organiser/My Project/Settings.Settings b/app/DD-Record-Organiser/My Project/Settings.Settings index dfb3e6d..678de1b 100644 --- a/app/DD-Record-Organiser/My Project/Settings.Settings +++ b/app/DD-Record-Organiser/My Project/Settings.Settings @@ -10,38 +10,41 @@ </SerializableConnectionString> Data Source=172.24.12.41\tests;Initial Catalog=DD_ECM;Persist Security Info=True;User ID=sa;Password=ddd - + *.db - + *.* - + - + - + - + - + - + True - + True - + 764 - + False + + + \ No newline at end of file diff --git a/app/DD-Record-Organiser/Resources/email_go.png b/app/DD-Record-Organiser/Resources/email_go.png new file mode 100644 index 0000000000000000000000000000000000000000..4a6c5d396ad024567a769d1f2285c525bef8c88b GIT binary patch literal 754 zcmV~0d>kmp9&fG9>#5EaEn(MD9Xvl47<{Rb2T3D!0$wpy4@P!Tnn zB0fxQ2!aPL_fZ@!=Wv9zmj8jnf5JO`<=MmZs@#@p z5O*{}9L5B6J+L7ORza<+9h)-B~<&cwIhUkd?cp4is-ziNrfY^u-7xdbFt=#%1534Oi8ajBBo}VZvCxd1 zTu*VtX+~P45)Om?dG5aS`PPW(%?lDPBwaz$6C^$8$_Q#plJTjpbgj;_rYi*?oK~m+ zDD`C->dkZKh0j6|Q^-0bJxIFHnHJOo$@r8{VNIUWU>31rp3@BVvYIZG2D0>Yuj2Y- zg?b?AObc>pK`oG+zkPsr3x_BTWXX8H*w}0@e;@>?SdsP&!-HMidhRn*4VkHi+<58} zTg6ae0~aSoNqRq(^;(g}0#Yiz)&q*YIg-f)mmeJA&3%nD3aJ$X-6L%1+fEQRIeTL* zS5K6|3cOaNtTtBowSZzzj!ZfM7L<|f+jtyp4ccf7mf6J$n}&ALkZlfLEYRoNvtG0Q zzJh|U~_Rdjkv}0kGt_?V}5$?sXN`N zTt|nOa)sx)IIf_-7XW**;!X9`USPjuUUsJrREk)6q*M9ZHEb zl2A!T3LBjrrTx74{FsUNcVA1zw%IWoiGNMw=s9P8>+qh!B*saR2}S literal 0 HcmV?d00001 diff --git a/app/DD-Record-Organiser/Resources/mail.bmp b/app/DD-Record-Organiser/Resources/mail.bmp new file mode 100644 index 0000000000000000000000000000000000000000..95e41c2a89ad3118abecdfb52bb86e60b7a775c0 GIT binary patch literal 824 zcmZWnT~8WO5T)&V)5rdV{(`2@eea*plowL_ne?GGv1v6VZCbx53JO}HhJbxg{Mg2J zt+)k6z(@tRu&{uv>{1FYS!H42^vW93*vXyAWaiAAdvnj-dv~rGI(D1HTf}di`xV2@ zPW>wB`>*TXDUbjI7>1dio}QbVqiH%8i}5@!Nm8v=Yc`vtd+G4u@Robh`s(Gw`}e!L zx_Wwg`uqExPA5fCkw_$&Ocn}-N~LmodfIBW$ZRgSQCzY$w(Rn{O;{XX9ey+P{K-?J z(b(N>GMRdNdq+k_yk4*0?EJ;(iePyc&0_;u>TczbOcd$auldA~vOkCKSJ|v^xITJV1<46xkir z8PwL59HpsIw4>0r^$N;g^x5*a$>qTT@-BiuOoV|Lu#0wBF8lzp00$fZKhKJ-kisuF z!;VeoIljcjfeerWSRh`>>;YAv1RMc5r4-Uc3dJSHGpz3~aRerkt}LhM3^ympey)(q z`gzKqKr+JDt`Jc(`KJFl$qC++~}*~&lm z9n*pI4()TfT%suI@<`;XAEI?Dr#%a)ec{IF9)@=Cj=|fns%1eKoEIqP499V*s$R&6 z7bSa5wN~-*2$l>+_c0v7`yebU!WtDI3jAMwM3)mM>R1g{36>nj_EpbnIK{F=Y!_=U cC1puk$sNw51z+SK7E4sCRZY|W#TX2K0nIOE(*OVf literal 0 HcmV?d00001 diff --git a/app/DD-Record-Organiser/frmConfig_Basic.Designer.vb b/app/DD-Record-Organiser/frmConfig_Basic.Designer.vb index 3f4121a..8181018 100644 --- a/app/DD-Record-Organiser/frmConfig_Basic.Designer.vb +++ b/app/DD-Record-Organiser/frmConfig_Basic.Designer.vb @@ -37,7 +37,6 @@ Partial Class frmConfig_Basic Me.txtServer = New System.Windows.Forms.TextBox() Me.txtUser = New System.Windows.Forms.TextBox() Me.txtPasswort = New System.Windows.Forms.TextBox() - Me.BtnConnect = New System.Windows.Forms.Button() Me.TabPage2 = New System.Windows.Forms.TabPage() Me.GroupBox5 = New System.Windows.Forms.GroupBox() Me.Label11 = New System.Windows.Forms.Label() @@ -58,8 +57,6 @@ Partial Class frmConfig_Basic Me.GroupBox1 = New System.Windows.Forms.GroupBox() Me.chkboxQuickMenue = New System.Windows.Forms.CheckBox() Me.chkLogErrorsOnly = New System.Windows.Forms.CheckBox() - Me.Button1 = New System.Windows.Forms.Button() - Me.btnApplicationFolder = New System.Windows.Forms.Button() Me.LinkLabel1 = New System.Windows.Forms.LinkLabel() Me.TabPage3 = New System.Windows.Forms.TabPage() Me.Label9 = New System.Windows.Forms.Label() @@ -68,6 +65,10 @@ Partial Class frmConfig_Basic Me.Button2 = New System.Windows.Forms.Button() Me.txtScanFolderWatch = New System.Windows.Forms.TextBox() Me.Label8 = New System.Windows.Forms.Label() + Me.BtnConnect = New System.Windows.Forms.Button() + Me.Button4 = New System.Windows.Forms.Button() + Me.Button1 = New System.Windows.Forms.Button() + Me.btnApplicationFolder = New System.Windows.Forms.Button() Me.btnstartstop2 = New System.Windows.Forms.Button() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() @@ -83,16 +84,15 @@ Partial Class frmConfig_Basic ' 'TabControl1 ' - resources.ApplyResources(Me.TabControl1, "TabControl1") Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Controls.Add(Me.TabPage3) + resources.ApplyResources(Me.TabControl1, "TabControl1") Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 ' 'TabPage1 ' - resources.ApplyResources(Me.TabPage1, "TabPage1") Me.TabPage1.Controls.Add(Me.chkbxUserAut) Me.TabPage1.Controls.Add(Me.Label5) Me.TabPage1.Controls.Add(Me.cmbDatenbank) @@ -105,6 +105,7 @@ Partial Class frmConfig_Basic Me.TabPage1.Controls.Add(Me.txtUser) Me.TabPage1.Controls.Add(Me.txtPasswort) Me.TabPage1.Controls.Add(Me.BtnConnect) + resources.ApplyResources(Me.TabPage1, "TabPage1") Me.TabPage1.Name = "TabPage1" Me.TabPage1.UseVisualStyleBackColor = True ' @@ -121,8 +122,8 @@ Partial Class frmConfig_Basic ' 'cmbDatenbank ' - resources.ApplyResources(Me.cmbDatenbank, "cmbDatenbank") Me.cmbDatenbank.FormattingEnabled = True + resources.ApplyResources(Me.cmbDatenbank, "cmbDatenbank") Me.cmbDatenbank.Name = "cmbDatenbank" ' 'Label4 @@ -154,33 +155,26 @@ Partial Class frmConfig_Basic ' 'txtServer ' - resources.ApplyResources(Me.txtServer, "txtServer") Me.txtServer.ForeColor = System.Drawing.SystemColors.WindowText + resources.ApplyResources(Me.txtServer, "txtServer") Me.txtServer.Name = "txtServer" ' 'txtUser ' - resources.ApplyResources(Me.txtUser, "txtUser") Me.txtUser.ForeColor = System.Drawing.SystemColors.WindowText + resources.ApplyResources(Me.txtUser, "txtUser") Me.txtUser.Name = "txtUser" ' 'txtPasswort ' - resources.ApplyResources(Me.txtPasswort, "txtPasswort") Me.txtPasswort.ForeColor = System.Drawing.SystemColors.WindowText + resources.ApplyResources(Me.txtPasswort, "txtPasswort") Me.txtPasswort.Name = "txtPasswort" Me.txtPasswort.UseSystemPasswordChar = True ' - 'BtnConnect - ' - resources.ApplyResources(Me.BtnConnect, "BtnConnect") - Me.BtnConnect.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_go1 - Me.BtnConnect.Name = "BtnConnect" - Me.BtnConnect.UseVisualStyleBackColor = True - ' 'TabPage2 ' - resources.ApplyResources(Me.TabPage2, "TabPage2") + Me.TabPage2.Controls.Add(Me.Button4) Me.TabPage2.Controls.Add(Me.GroupBox5) Me.TabPage2.Controls.Add(Me.GroupBox4) Me.TabPage2.Controls.Add(Me.GroupBox3) @@ -190,15 +184,16 @@ Partial Class frmConfig_Basic Me.TabPage2.Controls.Add(Me.Button1) Me.TabPage2.Controls.Add(Me.btnApplicationFolder) Me.TabPage2.Controls.Add(Me.LinkLabel1) + resources.ApplyResources(Me.TabPage2, "TabPage2") Me.TabPage2.Name = "TabPage2" Me.TabPage2.UseVisualStyleBackColor = True ' 'GroupBox5 ' - resources.ApplyResources(Me.GroupBox5, "GroupBox5") Me.GroupBox5.Controls.Add(Me.Label11) Me.GroupBox5.Controls.Add(Me.Label10) Me.GroupBox5.Controls.Add(Me.txtTask_Popup) + resources.ApplyResources(Me.GroupBox5, "GroupBox5") Me.GroupBox5.Name = "GroupBox5" Me.GroupBox5.TabStop = False ' @@ -219,9 +214,9 @@ Partial Class frmConfig_Basic ' 'GroupBox4 ' - resources.ApplyResources(Me.GroupBox4, "GroupBox4") Me.GroupBox4.Controls.Add(Me.Button3) Me.GroupBox4.Controls.Add(Me.cmbLanguage) + resources.ApplyResources(Me.GroupBox4, "GroupBox4") Me.GroupBox4.Name = "GroupBox4" Me.GroupBox4.TabStop = False ' @@ -233,17 +228,17 @@ Partial Class frmConfig_Basic ' 'cmbLanguage ' - resources.ApplyResources(Me.cmbLanguage, "cmbLanguage") Me.cmbLanguage.FormattingEnabled = True Me.cmbLanguage.Items.AddRange(New Object() {resources.GetString("cmbLanguage.Items"), resources.GetString("cmbLanguage.Items1")}) + resources.ApplyResources(Me.cmbLanguage, "cmbLanguage") Me.cmbLanguage.Name = "cmbLanguage" ' 'GroupBox3 ' - resources.ApplyResources(Me.GroupBox3, "GroupBox3") Me.GroupBox3.Controls.Add(Me.Label7) Me.GroupBox3.Controls.Add(Me.cmbConstructor) Me.GroupBox3.Controls.Add(Me.CheckBox1) + resources.ApplyResources(Me.GroupBox3, "GroupBox3") Me.GroupBox3.Name = "GroupBox3" Me.GroupBox3.TabStop = False ' @@ -254,8 +249,8 @@ Partial Class frmConfig_Basic ' 'cmbConstructor ' - resources.ApplyResources(Me.cmbConstructor, "cmbConstructor") Me.cmbConstructor.FormattingEnabled = True + resources.ApplyResources(Me.cmbConstructor, "cmbConstructor") Me.cmbConstructor.Name = "cmbConstructor" ' 'CheckBox1 @@ -269,11 +264,11 @@ Partial Class frmConfig_Basic ' 'GroupBox2 ' - resources.ApplyResources(Me.GroupBox2, "GroupBox2") Me.GroupBox2.Controls.Add(Me.CheckBoxWD_ShowEnitityDocs) Me.GroupBox2.Controls.Add(Me.chkbxloadWDDocs) Me.GroupBox2.Controls.Add(Me.Label6) Me.GroupBox2.Controls.Add(Me.txtwdSearch_Count) + resources.ApplyResources(Me.GroupBox2, "GroupBox2") Me.GroupBox2.Name = "GroupBox2" Me.GroupBox2.TabStop = False ' @@ -301,8 +296,8 @@ Partial Class frmConfig_Basic ' 'GroupBox1 ' - resources.ApplyResources(Me.GroupBox1, "GroupBox1") Me.GroupBox1.Controls.Add(Me.chkboxQuickMenue) + resources.ApplyResources(Me.GroupBox1, "GroupBox1") Me.GroupBox1.Name = "GroupBox1" Me.GroupBox1.TabStop = False ' @@ -318,20 +313,6 @@ Partial Class frmConfig_Basic Me.chkLogErrorsOnly.Name = "chkLogErrorsOnly" Me.chkLogErrorsOnly.UseVisualStyleBackColor = True ' - 'Button1 - ' - resources.ApplyResources(Me.Button1, "Button1") - Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_go - Me.Button1.Name = "Button1" - Me.Button1.UseVisualStyleBackColor = True - ' - 'btnApplicationFolder - ' - resources.ApplyResources(Me.btnApplicationFolder, "btnApplicationFolder") - Me.btnApplicationFolder.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_go - Me.btnApplicationFolder.Name = "btnApplicationFolder" - Me.btnApplicationFolder.UseVisualStyleBackColor = True - ' 'LinkLabel1 ' resources.ApplyResources(Me.LinkLabel1, "LinkLabel1") @@ -340,7 +321,6 @@ Partial Class frmConfig_Basic ' 'TabPage3 ' - resources.ApplyResources(Me.TabPage3, "TabPage3") Me.TabPage3.Controls.Add(Me.Label9) Me.TabPage3.Controls.Add(Me.DataGridView1) Me.TabPage3.Controls.Add(Me.btnSaveExclusionFiles) @@ -348,6 +328,7 @@ Partial Class frmConfig_Basic Me.TabPage3.Controls.Add(Me.txtScanFolderWatch) Me.TabPage3.Controls.Add(Me.Label8) Me.TabPage3.Controls.Add(Me.btnstartstop2) + resources.ApplyResources(Me.TabPage3, "TabPage3") Me.TabPage3.Name = "TabPage3" Me.TabPage3.UseVisualStyleBackColor = True ' @@ -358,9 +339,9 @@ Partial Class frmConfig_Basic ' 'DataGridView1 ' - resources.ApplyResources(Me.DataGridView1, "DataGridView1") DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua Me.DataGridView1.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 + resources.ApplyResources(Me.DataGridView1, "DataGridView1") Me.DataGridView1.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.DataGridView1.Name = "DataGridView1" ' @@ -378,8 +359,8 @@ Partial Class frmConfig_Basic ' 'txtScanFolderWatch ' - resources.ApplyResources(Me.txtScanFolderWatch, "txtScanFolderWatch") Me.txtScanFolderWatch.BackColor = System.Drawing.Color.LemonChiffon + resources.ApplyResources(Me.txtScanFolderWatch, "txtScanFolderWatch") Me.txtScanFolderWatch.Name = "txtScanFolderWatch" ' 'Label8 @@ -387,10 +368,38 @@ Partial Class frmConfig_Basic resources.ApplyResources(Me.Label8, "Label8") Me.Label8.Name = "Label8" ' + 'BtnConnect + ' + Me.BtnConnect.Image = Global.DD_Record_Organiser.My.Resources.Resources.database_go1 + resources.ApplyResources(Me.BtnConnect, "BtnConnect") + Me.BtnConnect.Name = "BtnConnect" + Me.BtnConnect.UseVisualStyleBackColor = True + ' + 'Button4 + ' + Me.Button4.Image = Global.DD_Record_Organiser.My.Resources.Resources.email_go + resources.ApplyResources(Me.Button4, "Button4") + Me.Button4.Name = "Button4" + Me.Button4.UseVisualStyleBackColor = True + ' + 'Button1 + ' + Me.Button1.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_go + resources.ApplyResources(Me.Button1, "Button1") + Me.Button1.Name = "Button1" + Me.Button1.UseVisualStyleBackColor = True + ' + 'btnApplicationFolder + ' + Me.btnApplicationFolder.Image = Global.DD_Record_Organiser.My.Resources.Resources.folder_go + resources.ApplyResources(Me.btnApplicationFolder, "btnApplicationFolder") + Me.btnApplicationFolder.Name = "btnApplicationFolder" + Me.btnApplicationFolder.UseVisualStyleBackColor = True + ' 'btnstartstop2 ' - resources.ApplyResources(Me.btnstartstop2, "btnstartstop2") Me.btnstartstop2.Image = Global.DD_Record_Organiser.My.Resources.Resources.bell_go + resources.ApplyResources(Me.btnstartstop2, "btnstartstop2") Me.btnstartstop2.Name = "btnstartstop2" Me.btnstartstop2.UseVisualStyleBackColor = True ' @@ -467,4 +476,5 @@ Partial Class frmConfig_Basic Friend WithEvents Label11 As System.Windows.Forms.Label Friend WithEvents Label10 As System.Windows.Forms.Label Friend WithEvents txtTask_Popup As System.Windows.Forms.TextBox + Friend WithEvents Button4 As System.Windows.Forms.Button End Class diff --git a/app/DD-Record-Organiser/frmConfig_Basic.resx b/app/DD-Record-Organiser/frmConfig_Basic.resx index f51dd26..7f42ee6 100644 --- a/app/DD-Record-Organiser/frmConfig_Basic.resx +++ b/app/DD-Record-Organiser/frmConfig_Basic.resx @@ -117,1596 +117,1680 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - txtServer - - - - 602, 22 - - - en-US + + + True - - CenterScreen - - - 2 + + NoControl - - MiddleRight + + + 510, 36 - - System.Windows.Forms.DataGridView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 170, 17 - - 185, 13 + + 47 - - CheckBoxWD_ShowEnitityDocs + + Windows-Authentifizierung - - TabPage1 + + chkbxUserAut - - 547, 22 + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 481, 44 + + TabPage1 - - System.Windows.Forms.LinkLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 0 - - 4, 22 + + True - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + NoControl - - 1 + + 5, 115 - - 184, 17 + + 150, 13 - - 209, 102 + + 46 - - Top, Left, Right + + Aktueller ConnectionString: - - 8 + + Label5 - - 3 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 7, 41 + + TabPage1 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 1 - - 8, 12 + + 8, 82 - - 10, 21 + + 252, 21 - - 8, 135 + + 39 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + cmbDatenbank - - 1 + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Hot Folder - Scan + + TabPage1 - - max. Ergebnissanzahl windream-Suche: + + 2 - - + True - + NoControl - - GroupBox3 + + 5, 62 - - TabPage2 + + 67, 13 - - 1 + + 44 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Datenbank: - - 252, 21 + + Label4 - + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TabPage1 - - 0 + + 3 - - txtActualConnection + + True - - 287, 30 + + NoControl + + + 5, 14 + + + 74, 13 41 - - 10 + + Server-Name: - - True + + Label1 - - GroupBox2 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Windream-Suche bei Entitätswechsel auslösen + + TabPage1 - + + 4 + + + True + + NoControl - - 10, 86 + + 299, 14 - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 84, 13 - - Passwort: + + 42 - - NoControl + + Benutzername: - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Label2 - - True + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 5 + + TabPage1 - - 0 + + 5 - - GroupBox2 + + True - - txtPasswort + + NoControl - - 2 + + 423, 14 - - TabPage1 + + 56, 13 - - 15 + + 43 - - GroupBox4 + + Passwort: - - 611, 13 + + Label3 - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 11, 102 + + TabPage1 - - TabPage2 + + 6 + + + Top, Left, Right + + + 8, 135 + + + 547, 22 45 - - 6 + + txtActualConnection - - User-Grundeinstellungen + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TabPage1 - - 0 + + 7 - - 248, 21 + + 8, 34 - - 3 + + 288, 22 - - 0 + + 36 - - LinkLabel1 + + txtServer - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - True + + TabPage1 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 8 - - 33, 22 + + 302, 34 - - 3 + + 118, 22 - - NoControl + + 37 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + txtUser - - 5 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - True + + TabPage1 - - 9, 48 + + 9 - - 5, 62 + + 426, 34 - - Top, Bottom, Left + + 64, 22 - - Definieren Sie hier Inhalte von Dateinamen welche von der Folderwatch-Überwachung ausgenommen werden sollen: + + 38 - - 61, 22 + + txtPasswort - - alle + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 265, 17 + + TabPage1 - - 8, 82 + + 10 - - 3, 3, 3, 3 + + MiddleLeft - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + NoControl - - 1 + + 302, 82 - - 6 + + 253, 25 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 40 - - 7 + + Verbindung zur Datenbank herstellen - - 0 + + MiddleRight - - Label8 + + BtnConnect - - 3, 3, 3, 3 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TabPage1 - - 134, 23 + + 11 - - GroupBox3 + + 4, 22 - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 3, 3, 3, 3 - - 74, 13 + + 687, 261 - - Label4 + + 0 - - 134, 21 + + Datenbank-Verbindung - - 284, 14 + + TabPage1 - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 38 + + TabControl1 - - TabPage3 + + 0 - - 1 + + MiddleLeft - - 189, 17 + + NoControl - - chkboxQuickMenue + + 481, 97 - - 6 + + 198, 23 - - Verbindung zur Datenbank herstellen + + 14 - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Create Log-Email - - TabPage1 + + MiddleRight - - 4, 22 + + Button4 - - TabPage2 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + TabPage2 - - Button1 + + 0 - - 4 + + True - - 695, 287 + + NoControl - - 0 + + 64, 25 - - TabPage3 + + 157, 13 - - 47 + + 8 - - 7 + + Minuten ein Popup anzeigen - - System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Label11 - - 6, 25 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - txtScanFolderWatch + + GroupBox5 - - 302, 82 + + 0 - - TabPage2 + + True - - TabPage3 + + NoControl - - 297, 129 + + 6, 25 - - Button2 + + 25, 13 - - 44 + + 7 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + alle - - TabPage2 + + Label10 - - 6, 21 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - windream-Suche direkt starten + + GroupBox5 - - True + + 1 - - 5 + + 33, 22 - + + 25, 22 + + 6 - - TabPage1 + + txtTask_Popup - - TabPage2 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Button3 + + GroupBox5 - - GroupBox4 + + 2 - - Label6 + + 297, 129 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 382, 53 - - 3 + + 13 - - 0, 0 + + Tasks-Einstellungen - - TabPage1 + + GroupBox5 - - 0 + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Überwachung starten + + TabPage2 - - 37 + + 1 - - 10, 57 + + NoControl - - MiddleLeft + + 9, 48 - - GroupBox2 + + 134, 23 - - chkbxloadWDDocs + + 47 - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Sprache jetzt wechseln - - Link zu Support-Tool Digital Data + + Button3 - + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox4 + + 0 - - 423, 14 + + de-DE - - Sprache jetzt wechseln + + en-US - - TabPage3 + + 9, 21 - - Quick-Menü (Buttons) anzeigen + + 134, 21 - - 6 + + 46 - - 478, 15 + + cmbLanguage - - TabPage1 + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 3, 3, 3, 3 + + GroupBox4 - + 1 - - Formularaufrufe: + + 297, 44 - - 10 + + 157, 77 - - Open AppFolder User + + 12 + + + Aktuelle Sprache: + + + GroupBox4 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 TabPage2 - + 2 - - TabPage1 + + True - - GroupBox4 + + NoControl - - True + + 284, 14 - - MiddleLeft + + 185, 13 - - 118, 22 + + 4 - - txtwdSearch_Count + + Formular bei Programmstart laden: - - 0 + + Label7 - - Weitere Einstellungen + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 253, 25 + + GroupBox3 - - btnstartstop2 + + 0 - - 665, 61 + + 287, 30 - - Label9 + + 248, 21 - - 14, 188 + + 1 - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + cmbConstructor - - Label3 + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + + GroupBox3 + + + 1 + + True - - 170, 17 + + NoControl - + + 10, 21 + + + 184, 30 + + 0 - - TabControl1 + + Kalender als Child aufrufen +(Eingebettet in Hauptformular) - - 687, 261 + + CheckBox1 - - 49, 22 + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - MiddleLeft + + GroupBox3 - - Windream-Einstellungen + + 2 - - True + + 14, 188 - - 12 + + 665, 61 + + + 11 + + + Formularaufrufe: + + + GroupBox3 System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Datenbank-Verbindung - - + TabPage2 - - GroupBox5 + + 3 - - 105, 17 + + True - - 8 + + NoControl - - Definieren Sie hier den Ordner der für Scan2Folder verwendet werden soll: + + 10, 86 - - 25, 13 + + 265, 17 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 6 - - 17 + + Windream-Suche bei Entitätswechsel auslösen - - 7 + + CheckBoxWD_ShowEnitityDocs - - GroupBox1 + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 64, 22 + + GroupBox2 - - Segoe UI, 9.75pt + + 0 - + + True + + + NoControl + + + 10, 21 + + + 184, 17 + + + 0 + + + windream-Suche direkt starten + + + chkbxloadWDDocs + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 288, 22 + + GroupBox2 - - GroupBox5 + + 1 + + + True + + + NoControl + + + 7, 41 + + + 209, 13 3 - + + max. Ergebnissanzahl windream-Suche: + + + Label6 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + 2 - - 616, 28 + + 10, 57 - - DataGridView1 + + 61, 22 - - 1 + + 5 - + + txtwdSearch_Count + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox2 + + + 3 + + + 14, 6 + + + 277, 115 + + + 10 + + + Windream-Einstellungen + + + GroupBox2 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 4 + + True - - 84, 13 + + NoControl - - - AAABAAYAMDAAAAEACACoDgAAZgAAACAgAAABAAgAqAgAAA4PAAAQEAAAAQAIAGgFAAC2FwAAMDAAAAEA - IACoJQAAHh0AACAgAAABACAAqBAAAMZCAAAQEAAAAQAgAGgEAABuUwAAKAAAADAAAABgAAAAAQAIAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADNZ2cA0WtrANRubgDWcHAA2XNzANt1dQDdd3cA4Hp6AOJ8 - fADlf38A54GBAOmDgwDshoYA5oSDAO6IiADJc3MA8IqKAPKMjADriYgA9Y+PAPeRkQD5k5MA2YCAAMt4 - eAD8lpYA/piYAM17ewD/mpoA/5ycAP+engDzlpYA/6CgAKlqagD/oqIA5pKSAI9cXAD/paUA0IeHAP+n - pwD/qakAmGVlAP+rqwD/rq4AxYaGAP+wsADnn58ArHd3AP+ysgD/tLQA6KSkAP+2tgD9tbQA+7SzAH5a - WgD/uLgAs4KCAKZ5eQD/u7sAq35+AP+9vQCYcXEA/7+/AP/BwQCziYkA/8TEAP/GxgDRoqIAgmVlANys - rACKbGwAt5CQAP/KygDEoKAA3ba2ALmamgBnVlYAdGNjAFxUVACwoaEAy7y8AFNNTQCemZkAqKSkAKGe - ngBqaWkA03FvANl5dwDlg4EA3H58AOmHhQDriYcA9JKQAPOSkADdj4wAtHVzAOucmQD0pqMA76WiAMCE - gwD2trQA56upAPy/vgD7wb8AzHFtANJ6dgDXfnoA24R/AOGHgwDiiYUAzH97APWalgDrlZAA86qmAPSt - qgD3sa4AuY2LAPW9ugDmtrQAzq2rAIt2dQB7a2oAloOCAM9+dwDlkIoA752XAOqjnQDzubUAvJWSALCQ - jQDajoYA7bu1AOSckwCojIgAxK6rAMiDeADMiX0A0o2CAN6ZjgDXlIkA3ZyQAOKroQDptKsA1pqNAN2l - mQC3j4cAwqKbAK+TjQDJq6UAya6pANKVhwDBmY8A0ZmKANSejwDbrJ8Ay6GVALmbkwDGp54Ay5eHAM+b - iwDRn48A1aSVALORhgDDn5QAvpuQAL+spgDGlIIAzZ6NANSqnADHppoAxKOYAMGhlgC+oJUAyaqfAMqs - ogDKrqQAyJyKAM2ikADPp5cAyaeZAMWjlgDJqJsArKCbAK+qqADFmYYAyZ+MANWyowDEpZcAza2fAM2w - owCompQAxZ2JAMmkkQDJqJgAza6eAKOKfgDPsaIAz7KkAJWRjwCWlJMAx6GNAMmjjwDHoo4AyKaTAMqp - lgDIp5UAza2bAMytnADLrJsAxqiXANCxoADQsqEA0LKiAM+xoQC4qJ8Awp+JAMShjADDoIsAw6GMAMak - jwDEoo0AxaOPAMalkADHppIAyqmVAMmolADLq5cAy6uYAMysmQDNrpsAza6cAM+wngDOr50A0bSiANO2 - pQB7cWoAmJiYAJSUlACSkpIAjo6OAIyMjACAgIAAfHx8AHp6egB3d3cAdHR0AG9vbwBjY2MAXl5eAFxc - XABbW1sAWFhYAFVVVQBTU1MATExMAAAAAAD/////////////////////////////VPX9+FXx7/////// - ////////////////////////////////////////7+/17u++w3ZKd0t6Ve////////////////////// - /////////////////////8esk3ZJ+5Po2UhISEhIee////////////////////////////////////// - //+3rKh1QkJCeYXOwEJCQkJChe//7+/08e///////////////////////////////6zR10JCQkJCdqPi - skJCQkJCgfW2w6RFTPfv/////////////////////////////5Ln3INBQUFBQYPhmkFBQUFBQ3nQsmdB - QXj77f///////////////////////////6zq35o/Pz8/Pz9mPz8/Pz8/drPAfz8/Pz9H+f////////// - /////////////6zs8ay14sk+Pj4+Pj4+Pj4+Pj4+Pj51Pj4+Pj4+eP//////////////////////rKyi - Q03D6NpkPDw8PDw8PDw8PDw8PDw8PDw8PDxk7/////////////////////+swslkOjpluslkOjo6Ojo6 - Ojo6Ojo6Ojo6Ojo6OjqA7/////////////////////+s4I03Nzc3N2Q3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3 - Nzd4/////////////////////4bSyjUzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzP+7//v7/L///// - /////////6vMoTExMTExMTExMTExMTE0jo6omo1zMTExMTExMTE7Tnh0MkT1/////////////8XOynIw - MDAwMDAwMDAwMEr/////rdDLoXIwMDAwMDAwczAwMDL97/////////////+148hyLS0tLS0tLS1yUP// - //////+p5d2QLS0tLS0tLS0tLS1G9f//////////////s+PIcSsrKysrKytP////////////ndLeoSsr - KysrKysrKysu+////////////////9XMvyoqKioqKkD//////////////53S3ZAqKioqKioqKioqev// - ////////////U5zjoCgoKCgoYVL///////////////+d5dliKCgoKCgoKChi////////////xus7OX5h - YScnJycnOP//////////////////xOCnJycnJycnJzL/////////////ztclJSUlJSUlJSUlef////// - ////////////gOfcfiUlJSUlY/////////////+R5LkiIiIiIiIiIiIi9v///////////////////9Xh - mSIiIiIiRO7///////////+R46AgICAgICAgICBe8////////////////////6rO1yAgICAgL/727P// - //////+R46AeHh4eHh4eHh4m9P///////////////////5XS3H0eHh4eHiMvTPz0//////+R5NcdHR0d - HR0dHR0m9//////////////////////p3oQdHR0dHR0dHR/7//////+k5tyEbxwcHBwcHBwf+/////// - ///////////////q34ocHBwcHBwcHBz7////////paXBzLGMbxoaGhoaTv/////////////////////q - y4oaGhoaGhoaGhr7////////////pbPgnxkZGRkZRPD////////////////////q3ooZGRkZGRkZGRn6 - /////////////6TksBYWFhYWX/j////////////////////p23AWFhYWFhYWFhby////////////U6un - XBUVFRUVFVHs///////////////////n2V0VFRUVFRUVXWD///////////++448UFBQUFBQUFCH4//// - /////////////6vjmBQUFBQUY9b//////////////6XNixISEhISEhISEhJM9P///////////////9Db - fBISEhISNvP/////////////perflhEREREREREREREXUfH/////////////nOSYERERERERG/7t//// - /////////6PjvxMPDw8PDw8PDw8PG1Hy//////////+lz6dbDw8PDw8PDyH97f///////////5XS24IN - DQ0NDQ0NDQ0NDRhO+P///////7e7p1oNDQ0NDQ0NDQ0h/f////////////+8zLgMDAwMbWwMDAwMDAwM - KU779e7seqSLDgwMDAwMDAwMDAwMIf////////////+U0tuJI6Wb4r9YCwsLCwsLCwsQKSlfXgsLCwsL - CwsLCwsLCwsLPf//////////////0tIj//+l0txrCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgpZVP// - //////////////////+szrgJCQkJCQkJCQkJCQkJCQkJCQkJCQmCnmsJCQkv//////////////////// - //+14YkICAgICAgICAgICAgICAgICAgICAiXnt6uWRf//////////////////////6XT3WoHBwcHBwcH - BwcHBwcHBwcHBwcHBwc2eq6urv///////////////////////5LOuAYGBgYGBleIVwYGBgYGBgYGBgYG - BgYh+P///////////////////////////6Pkv2kFBQUFBajLiAUFBQUFBYmIBQUFBQUFTv////////// - //////////////////+15L97BAQEO7TMpgQEBAQEauXZaQQEBAQERP////////////////////////// - ////rujdiFYs/6PkuAMDAwMDENTMpgMDAwMDbv///////////////////////////////3e9vb3//5Ll - 1wICAgICJIHT3ocCAmhu/////////////////////////////////////////6/n2GgCAgICKYGdztlu - bv///////////////////////////////////////////6/T24doAQEBgf////////////////////// - //////////////////////////////+vr6+vr6+v//////////////////////////////wH//8AAP// - AAP//wAA//wAA///AAD/8AACD/8AAP/gAAAH/wAA/+AAAAP/AAD/4AAAA/8AAP8AAAAD/wAA/gAAAAP/ - AAD8AAAAA/8AAPwAAAAH/wAA+AAAAAI/AAD4AAAAAB8AAPgAB4AADwAA/AAP4AAPAAD+AB/wAA8AAP8A - P/gADwAA/gA//AAfAADwAH/+AD8AAPAAf/4AfwAA4AB//wA/AADgAH//AA8AAOAAf/8AAwAA4AB//4AD - AADgAH//gAMAAPAAf/+AAwAA/gA//4ADAAD/AD//gAMAAP4AH/+ABwAA/AAf/wA/AAD4AA//AD8AAPAA - B/4AHwAA+AAD/AAPAAD4AAH4AA8AAPwAAAAADwAA/AAAAAAPAAD+MAAAAA8AAP/wAAAAHwAA//AAAAA/ - AAD/4AAAAH8AAP/gAAAD/wAA/+AAAAP/AAD/8AAAA/8AAP/4EAAD/wAA//wwAAf/AAD///AAH/8AAP// - 8Af//wAA///4D///AAAoAAAAIAAAAEAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH9s - bQDRZmcA2W9wANdubwDTbG0A13BxANtzdADfdncA43l6AOV9fgDmfn8A6oKDAO6FhgD3i40A9oyNAPWN - jgC6bG0A/JOUAPuTlAD9nZ4A/6GiAP+lpgD/tbYA/7m6AP+6uwD/vb4A/8PEAP/FxgDVa2sA2HFxANVx - cADgd3cA2nR0AN54eADie3sA4Xt7AOWAfwDlf38A439+AOmDgwDlgIAA7oaGAOWCgQDjgIAA3Hx8AOyG - hgDphIQA8ImJANt+fQDwiooA7YqJAOeGhQDIdHMA9I6OAOuIiAD4kZEA/JSUAPuUlAD3kZEA9pOSAP2Y - lwD+mJgA6oyMAP+bmwD/np4A/6GhALh0dAD/paUArG9vAP+npwCfaGgA/6ioAP+srAD+q6sA+qqpAP+u - rgCvd3cA/6+vANuWlgDChoYA/rCwAO2kpAD/srIA76moAIVdXQD/tLQA9q2tAP+1tQD/trYAoXNzAI9n - ZwD/ubkA1pubAK9/fwD/vLwApXp6AOWrqwDVn58A/8DAAP2+vgCGZWUAfl9fAP/DwwCogIAAtYuLAP3E - xAD/x8cAjG1tAHRbWwD/ysoA/83NAJN3dwB5ZGQAiHFxAN25uQCrkJAAdGVlAF5SUgCjkpIAqJmZAGxn - ZwBeWloAioWFAIOAgABnZmYAZmVlAFZVVQClpKQAzmxqANJvbQDYdXMA2Hh2AOWGgwDskY4A+52aAPaa - lwDqlZIA4JWSAPynpQDRjYsA252cAPazsQD4t7UAyJWUAP2+vQD+wL8A3KqpAPnFwwDgtLMArI2MANF5 - dADbhH8A44uGAPOWkgDyqqYA+K+sAPmzsADVgXsA3IuFAOqinADuqaMA7rizAPK9uQCIbmwAinx7AG9k - YwDgk4sA6JuTAPCzrQCNengA042DAMqGfQDRk4oAt5uXAJqTkgDSkIUAy4yCAOWtpADIpJ4A5rasAJR/ - ewDFrKcAuqypAN+rngC4kokAxqmiANihkgCXhH8AyZSEANSgkADMmooA1qOUAMKnnwCpmZQAyZiHANGf - jgDRoZEAz6KSAMegkgDUq5wA0LSqAKeUjQC+mowAzaueALOWiwDGp5oAyKyhAMqvpACjjYQAyqCNAM6l - kgDOqZgAwJ6PAMirngC+pJkAzaeUANCrmADLp5UAwqKSAMamlgCfhnkAs5iLAMClmADEqp0AZGJhAM6p - lQDEpJIAyq6eAM6tmQDLrZoAyauZAMeqmQDKrZwAwaaWAMOrnQDJqpYAy6+dAMGmkgDHrJgAwaqZAJKR - jwCbm5sAmJiYAJSUlACTk5MAjIyMAIaGhgCEhIQAfX19AGpqagBlZWUAYGBgAFxcXABYWFgAAAAAAP// - ////////////////8/P49vP///////////////////////////////N8+fPKrnS8efP///////////// - //////////////O8s5WmzdSUbm619fPz////////////////////////3KNra5PcyGprb3B5vJZ1+v// - /////////////////9flohxnG7S0G2drkN20G6Jyff////////////////97qu64Z2NjY2NjY2OSopFj - Y2Sl////////////////3pNp3MgZX19fX19fX18aGl9fYa///////////////+OyGBmPjlxcXFwYGBkY - XFxcXFxp9v////////////+62Z1ZWFlZWFhZVo6pqZ1ZF1hYWGh6pXB+/////////8/Zm1ZTU1NTU1dz - ///J1LicU1NTV41UUXH4/////////87Ym05MTExSt///////0NihTkxMTE5MkH3//////////+DTS0lJ - Spb/////////5NibSUlJSUlLeP///////68BubiLSEhPgP//////////6MBGSEhISGL/////////xUYW - FkRERGD////////////Q7KAWRERegP///////9vAQkJCQkJCcf/////////////muxVCQmb79f////// - 1btBQUFBQUF1/////////////9bTFEFBiU1lff/////OxYdAQEBAQG3/////////////uuKIQEBAQED+ - ////////zMCoPT4+W/b///////////+22Zo+Pj4+Pv3/////////19OaOTpD+////////////8HiPDo6 - OhIT+P///////7fLiTs7Oz929P//////////3744OziGiqD/////////x4YPNjY2NkX99P/////////v - pxA2DqTx/////////+jEMDIyMjIyN1X89P//////rsUzMjIwR3/y////////uuyZDSoNKi4uL1V/9/// - /8LGmSouLi4qR/z/////////560MNKefDCgoKBFtf+G1rYUMKCgoKCgrbP/////////k5OTk8L8nJiYm - KSwtMSsLCyYmJgoLJTF3/////////////+TqsAkkJCQkJCQjIyQkJAmfXZgjUP//////////////5Nqe - CCIiCAgiIiIiCCIiIEPRXV3////////////////P0oMHISGrniEhISGEISEhEXr///////////////// - /+TmsR8DQ+29BgYEntKXAwYepP///////////////////+Tkv4z/68OCBR018L0FBTVd//////////// - ///////////////g0oECAlq35qxd/////////////////////////////+TpsbGt//////////////// - /////B///8AP//8AA///AAD//gAAf/wAAH/4AAB/8AAAf+AAAA/gAwAH8AfAB/gP4AfgD/AP4B/wD8Af - +AfAH/gDwB/4A/AP+AP4D/gD8Af4B/AD+A/gAfAH4ADgB/AAAAfwAAAH/gAAD/4AAB/+AAB//gAAf/8I - AH//+AH///g//ygAAAAQAAAAIAAAAAEACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzJmZAMSU - lADFlpYAw5SUAMycnAC7j48Auo6OALKIiADOnp4Av5OTALeNjQCziooAsomJALqQkADNoKAAu5KSAKuF - hQDQo6MAo4CAALWPjwCae3sAkXR0ANasrACYenoAk3Z2AI9zcwCnh4cAiG5uANOsrADOqKgAiG9vANCq - qgCJcHAAtZWVAMWlpQCzlpYAknt7AKeNjQCxmJgAppCQALegoACkkZEAuKSkAJyMjACYiIgAZ2FhAFJO - TgBjX18AYl5eAJ+fnwCYmJgAkZGRAImJiQCDg4MAgoKCAICAgAB5eXkAc3NzAG5ubgBtbW0AZ2dnAGVl - ZQBkZGQAX19fAF5eXgBWVlYAU1NTAE9PTwBNTU0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARkZGRkZG - RjVDNEZGRkZGRkZGRkYtQCIBGT0sQThGRkZGRkYPAR8MAQ0WAQY7RkZGRkY5EAEBAQEBAQEIRDw5RkYF - Cw0BAQEgAQEBAwgEMEZGAQEBASlGRkZGAQEBASpGRiQBASVGRkZGRkYBASE+Nx4OAQQ6RkZGRkZGCQEN - E0MBAQERP0ZGRkZGRh4BAQEzHh4BAkUyRkZGRkYBAREmRkYjAQEcQjNGRkYnAQEVMUZGAQEBARovQi4Y - AQEBAShGRhceDwEBAQEBAQEHGwFGRkZGRhIBAQEBAQEBCjZGRkZGRkYXAR4dARQrAQFGRkZGRkZGRkZG - FwEBRkZGRkZGRv4//7rwB1lY4AdYWMABjqmAAVkXg8FYaIfgcH4H4P//B+D/zwPhVlOBwVNTgAH//4AD - uJzgB1NX4A9Rcfx///8oAAAAMAAAAGAAAAABACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA - AAkAAAAPAAAAFQAAABAAAAADAAAAKgAAAGAAAACLAAAArAAAAKEAAACUAAAAfwAAAF0AAAAYAAAAAQAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAMAAAAQAAAAJwAAAEwAAABxAAAAiwAAAG5ZRkJDhHFlr5Z8bOTnubT72a6u882kpO6xjo7lhWpq1hkU - FKYAAAA9AAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAADQAAADEdGRd3ZFRLxKODfeHjtLL2v5eX6gAAAKebeXLMzq+d/8Ogi///ysr//8rK///K - yv//ysr//8rK/1JBQcYAAABbAAAADAAAAAkAAAAPAAAAEwAAABMAAAAEAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAKOS0qaZF3bNjTq57/87+7///Hx///x8f//8fH/2JMTNGlhn3uza2b/8mk - kf//x8f//8fH///Hx///x8f//8fH/5Z1ddoAAABrAAAAHwAAAEsAAABwAAAAiAAAAH0AAAA9AAAADQAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACjfnd7xKWU98Ofiv//xsb//8bG///Gxv//xsb//8bG/+ay - svfFn5X/y6uX/9Cnl///xsb//8bG///Gxv//xsb//8bG/6N+fuAAAACLemdfoJJ6bNy6lInx2qio8j0v - L8gAAACdAAAAVAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC0jIXRz7Ce/8Sijf/vubT//8TE///E - xP//xMT//8TE///ExP/rvbb/yaiU/9ytof//xMT//8TE///ExP//xMT//8TE/82enu5XREDMy6yb/86n - lv/7wb///8TE///ExP9yV1fXAAAApwAAAGsAAAAVAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAADQAAABKSZ2V80rWk/8em - kv/brKD//8HB///Bwf//wcH//8HB///Bwf//wcH//L++///Bwf//wcH//8HB///Bwf//wcH//8HB/+au - rvfMppr/yaWS//O5tf//wcH//8HB///Bwf//wcH/sIWF5wAAAKMAAAAwAAAABgAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8AAABDAAAAZwAA - AH8kGBiIyamb/8url//Joo///7+///+/v///v7///7+///+/v///v7///7+///+/v///v7///7+///+/ - v///v7///7+///+/v///v7//97q4//+/v///v7///7+///+/v///v7///7+//1xFRbIAAAAcAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACXNc - VoOIc2bUrYh87M6Zme1QOzvLoH938M6vnf/DoYz/87ay//+9vf//vb3//729//+9vf//vb3//729//+9 - vf//vb3//729//+9vf//vb3//729//+9vf//vb3//729//+9vf//vb3//729//+9vf//vb3/9LW1+gAA - AHEAAAAPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAABfFlXa82unv/Io5D/97a0//+7u///u7v/56up/9Wyo//Io4//97a0//+7u///u7v//7u7//+7 - u///u7v//7u7//+7u///u7v//7u7//+7u///u7v//7u7//+7u///u7v//7u7//+7u///u7v//7u7//+7 - u///u7v/tISE4QAAAEUAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAABYOjocuZiM68mplf/gqp///7i4//+4uP//uLj//7i4//+4uP/3tLL//7i4//+4 - uP//uLj//7i4//+4uP//uLj//7i4//+4uP//uLj//7i4//+4uP//uLj//7i4//+4uP//uLj//7i4//+4 - uP//uLj//7i4//+4uP//uLj/aUxMwwAAAC0AAAADAAAACQAAAA8AAAAVAAAABwAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGWbmqPz7Gg/8eijv/7tLP//7a2//+2tv//trb//7a2//+2 - tv//trb//7a2//+2tv//trb//7a2//+2tv//trb//7a2//+2tv//trb//7a2//+2tv//trb//7a2//+2 - tv//trb//7a2//+2tv//trb//7a2//+2tv//trb/AAAAtQAAAGgAAAA6AAAATgAAAHEAAACCAAAASAAA - AAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIFWVhO+m5DxyqmW/9immP//tLT//7S0//+0 - tP//tLT//7S0//+0tP//tLT//7S0//+0tP//tLT//7S0//+0tP//tLT//bW0/++1r//jsqf/1qqb/9uq - nf/kq6L/97Gu//+0tP//tLT//7S0//+0tP//tLT//7S0//+0tP//tLT/oXJy4yMeG75rUUzKsH584eej - o/ZjRUXPAAAAiwAAAB4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlmZiDMrZ7wzK2a/8ei - jv/zrqr//7Ky//+ysv//srL//7Ky//+ysv//srL//7Ky//+ysv//srL//7Ky//+ysv/Mj4+ghF1dHwAA - AAGZZmYwuZSLcsGekuDLrJv/yKeT/9KklP/zrqr//7Ky//+ysv//srL//7Ky//+ysv//srL//7Ky//ew - rf//srL//7Ky//+ysv/moaH3AAAArQAAAFEAAAAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AACkdXJgyaib/8urmP/HoY3/86yo//+wsP//sLD//7Cw//+wsP//sLD//7Cw//+wsP//sLD/9amp+XpU - VGQAAAAJAAAAAAAAAAAAAAAAAAAAAAAAAACug31gw6CU8M2um//Fo47/36ab//+wsP//sLD//7Cw//+w - sP//sLD//7Cw//+wsP//sLD//7Cw//+wsP//sLD/c09P1QAAAIwAAAAbAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAApHVyYMinmf/Lq5j/xqCM//Oqpv//rq7//66u//+urv//rq7//66u//+u - rv//rq7/YEJCfwAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmWZmELiSidDPsZ//xqWQ/9ej - lf//rq7//66u//+urv//rq7//66u//+urv//rq7//66u//+urv//rq7/5pyc9wAAAKcAAAA0AAAABgAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAB5hsaWfPsaH/yqqW/8Weiv//q6v//6ur//+r - q///q6v//6ur//+rq/+gbGzMAAAAKAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlm - ZhC4konQz7Gf/8Wjj//fpJn//6ur//+rq///q6v//6ur//+rq///q6v//6ur//+rq///q6v//6ur/2JC - QqcAAAAtAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABMAAAArAAAARQAAAFu0kojty6uY/9Cg - kP//qan//6mp//+pqf//qan//6mp//SiovokGBhxAAAADwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAACZZmYgxKKW8M2um//DoYv/76Wg//+pqf//qan//6mp//+pqf//qan//6mp//+p - qf//qan/7p6e75BfX1UAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEDEpJYNQQjnAmGRk15Zi - Ytnoo5//8qei//emo///p6f//6en//+np///p6f//6en/6dtbdsAAAA3AAAABAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAApHVyYM+xov/JqZX/zJ+N//+np///p6f//6en//+n - p///p6f//6en//+np//nl5flTTIyNQAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAvZyRt82t - m//Cnon//6Wl//+lpf//paX//6Wl//+lpf//paX//6Wl//+lpf//paX//6Wl/0QsLLQAAAAcAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALKJguDPsJ7/xKKN/+ui - m///paX//6Wl//+lpf//paX//6Wl/7R0dOEsHBxdAAAACQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAt4+H/8ysmf/Jn4z//6Ki//+iov//oqL//6Ki//+iov//oqL//6Ki//+iov//oqL//6Ki/wAA - AI8AAAATAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKR1 - cmDPsaH/yaiU/9Sej///oqL//6Ki//+iov//oqL//6Ki/2RAQMwAAABtAAAAIgAAAA0AAAAEAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAt4+H/8urmP/Rn4///6Cg//+goP//oKD//6Cg//+goP//oKD//6Cg//+g - oP//oKD/2omJ8gAAAIUAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAADAnZLwzK2a/8Kfif//oKD//6Cg//+goP//oKD//6Cg/6FlZeMAAACyAAAAkQAA - AGcAAAA3AAAAGwAAAAAAAAAAAAAAAAAAAAAAAAAAt4+H/8urmP/Rn4///56e//+env//np7//56e//+e - nv//np7//56e//+env//np7/zoCA7QAAAIgAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACxioOzz7Gf/8Sijf/vnZf//56e//+env//np7//56e//+e - nv/mj4/3oWRk4j8nJ8MAAACqAAAAiQAAABYAAAAAAAAAAAAAAAAAAAAAt4+H/8ysmf/Bnoj//5yc//+c - nP//nJz//5yc//+cnP//nJz//5yc//+cnP//nJz/zH197wAAAJsAAAAYAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACleXWD0bSi/8alkP/jm5L//5yc//+c - nP//nJz//5yc//+cnP//nJz//5yc//+cnP/zlZX7AAAApgAAABgAAAAAAAAAAAAAAAAAAAAAuZOK782u - nP/Eoo3/5JyT//Oalv//mpr//5qa//+amv//mpr//5qa//+amv//mpr/85KS+wAAAKcAAAAlAAAAAQAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACSYWFU07al/8em - kv/fmo///5qa//+amv//mpr//5qa//+amv//mpr//5qa//+amv//mpr/AAAApwAAABgAAAAAAAAAAAAA - AAAAAAAAmWZmILCIgXLFpJiyyaiY/8qql//NopD/3ZyQ//eZlv/+mJj//piY//6YmP/+mJj//piY/xcO - DrQAAABGAAAABwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AACQYGBE07em/8imkv/fmo///piY//6YmP/+mJj//piY//6YmP/+mJj//piY//6YmP/+mJj/AAAApwAA - ABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmWZmEKh7d4DIp5n/yqmV/8+bi//8lpb//JaW//yW - lv/8lpb//JaW/2I6Os0AAABzAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAACKXFxH07al/8elkf/dmI3//JaW//yWlv/8lpb//JaW//yWlv/8lpb//JaW//yW - lv/8lpb/AAAApAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2+mpD/zKyZ/8ic - iv/5k5P/+ZOT//mTk//5k5P/+ZOT/6xlZecAAACgAAAAKwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACYa2l30bSi/8Wkj//rlZD/+ZOT//mTk//5k5P/+ZOT//mT - k//5k5P/+ZOT//mTk//5k5P/AAAAgwAAABUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFkg2 - NHTAoJH5zp+O//SSkP/3kZH/95GR//eRkf/3kZH/95GR//eRkf8VDQ26AAAAZwAAABIAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACmgXubz7Ce/8Ogi//zkpD/95GR//eR - kf/3kZH/95GR//eRkf/3kZH/95GR//OSkP/pkI3kAAAAFgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAWb1ZSn8urmf/Wmo3/9Y+P//WPj//1j4//9Y+P//WPj//1j4//9Y+P//WPj/+bWlrjAAAAoQAA - AD8AAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAa5lozny6yY/9GZ - iv/1j4//9Y+P//WPj//1j4//9Y+P/756duuWf3Gto4N2XY13ahcAAAABAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAmhg3qryKeV/9eWiv/yjIz/8oyM//KMjP/yjIz/8oyM//KMjP/yjIz/8oyM//KM - jP/yjIz/OiEhyQAAAIkAAAAuAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHRO - TlTLq5z/xqSQ/+WQiv/yjIz/8oyM//KMjP/yjIz/8oyM/102NtAAAACFAAAAIgAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJZkZGLStaT/x6aS/9KVh//wior/8IqK//CKiv/wior/8IqK//CK - iv/wior/8IqK//CKiv/wior/2Hx89xUMDLwAAACAAAAALQAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAADaqIf9TMrJn/0JiJ//CKiv/wior/8IqK//CKiv/wior/8IqK/8x1dfMAAACyAAAAawAA - AB4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlmZiDCnpP/y6yY/8Wdif/riYj/7oiI/+6I - iP/uiIj/7oiI/+6IiP/uiIj/7oiI/+6IiP/uiIj/7oiI/8pzc/MUDAy7AAAAgwAAAD0AAAAQAAAAAwAA - AAAAAAAAAAAAAAAAAAAAAAAMfF1Zh8ytnP/MnYz/64mH/+6IiP/uiIj/7oiI/+6IiP/uiIj/7oiI/+6I - iP+kXV3nAAAArQAAAGsAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACzi4Sx0LKg/8Wk - j//bjob/7IaG/+yGhv/shob/7IaG/+yGhv/shob/7IaG/+yGhv/shob/7IaG/+yGhv/IcXHzOCAgyAAA - AKAAAABjAAAAMAAAABYAAAANAAAADAAAABlLOTZuwqKU+Myejf/ph4X/7IaG/+yGhv/shob/7IaG/+yG - hv/shob/7IaG/+yGhv/shob/olxc5wAAAKwAAABWAAAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AACZZmZAza2f/8qql//Gmof/6YOD/+mDg//pg4P/6YOD/+KJhf/hh4P/6YOD/+mDg//pg4P/6YOD/+mD - g//pg4P/6YOD/4VKSt8nFha9AAAApgAAAIsAAABtAAAAZ1hHQqq+moz61pKI/+aEg//pg4P/6YOD/+mD - g//pg4P/6YOD/+mDg//pg4P/6YOD/+mDg//pg4P/6YOD/5dVVdwAAABLAAAACQAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAt5CIwNCxoP/GpI//1o2D/+F9fdXKdXWXy6GV/8url//EnYn/5YOB/+eB - gf/ngYH/54GB/+eBgf/ngYH/54GB/+eBgf/ngYH/xW5u85JRUeGHS0varWto7N6OiP/ngYH/54GB/+eB - gf/ngYH/54GB/+eBgf/ngYH/54GB/+eBgf/ngYH/54GB/+eBgf/ngYH/54GB/3VBQb4AAAAlAAAAAQAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmWZmMMmqnIKxlINJAAAABgAAAAAAAAAAr4yEmdCy - oP/Foo3/3YR//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/ - f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//23p6+iIT - E2oAAAANAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAADsY2E2M2tm//Fmof/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8 - fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/2Y2G/8uXh//ZhH7/4nx8/+J8 - fP/ifHz/lFFRxAAAACcAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAB3UFApyaia/8molP/OjYH/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6 - ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/wJeN+s6v - nf/GpZD/zZGD/9x+e//VdHTqPSEhOgAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACcdG970bOh/8Wjjv/Xfnr/3Xd3/913d//dd3f/3Xd3/913 - d//dd3f/3Xd3/913d//dd3f/3Xd3/913d//dd3f/3Xd3/913d//dd3f/3Xd3/913d//dd3f/3Xd3/913 - d//dd3f/ZTY202tPTLTEopbjw6WTtreWgoipW1sqAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC1kIfUza2b/8WZhv/bdXX/23V1/9t1 - df/bdXX/23V1/9t1df/Yenj/zol+/9l3dv/bdXX/23V1/9t1df/bdXX/23V1/9t1df/bdXX/23V1/9t1 - df/bdXX/23V1/9t1df/bdXX/olZW6wAAAKEAAAAlAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADCn5T/zKyZ/8Sd - if/Uenb/2XNz/9lzc//Zc3P/2XNz/9lzc//TqJr/yKeT/8uKfv/Zc3P/2XNz/9lzc//Zc3P/2XNz/9lz - c//RjYP/zId9/9lzc//Zc3P/2XNz/9lzc//Zc3P/2XNz/xQKCrQAAABCAAAABwAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AACkdXJgyaib/8ysmf/Fnor/z353/9ZwcP/WcHD/1nBw/5FSUr/Fo5b/yqmW/8aSgf/WcHD/1nBw/9Zw - cP/WcHD/1nBw/9Z9ev/Nrpv/w6GL/9B6df/WcHD/1nBw/9ZwcP/WcHD/1nBw/1ovL74AAABJAAAACgAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAroN+MMKglODOr53/xaOP/8mIfP/TcW//sVxcvgAAAB/Cn5T/y6yZ/8SY - hf/Ubm7/1G5u/9Rubv/Ubm7/1G5u/8lxcP/QsqL/yqmW/8WVg//Ubm7/1G5u/9Rubv/Ubm7/1G5u/5lP - T5sAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlmZhC1jIWvxqaX4b+fi6e4hXd4hkREGQAA - AAG7lYzhza6b/8Kfif/Ra2v/0Wtr/9Fra//Ra2v/0Wtr/3s/P9mhe3bV0LKh/8alkP/Ig3j/0Wtr/9Fr - a//MaGj1nVBQawAAAAkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAC1j4bCz7Ce/8ShjP/Mc27/0Gpq/9Bqav/Qamr/0Gpq/3U8PMY7JydTxKKW8M2t - m//DoIv/xnFs5b5hYYx8Pz8bAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC0jIWQ0LKh/8akj//Hgnf/ynFs/81nZ//NZ2f/zWdn/39A - QGcAAAAKpnd0UMqunmSiiHkoAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC5koogvZmOgcSmlpS5lIjCw6OTxMWm - k7W2loN5pYZzOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//4AAf//AAD/+AAB//8AAP/wAAAP/wAA/+AAAAf/ - AAD/4AAAA/8AAP/gAAAB/wAA/wAAAAD/AAD+AAAAAf8AAPwAAAAB/wAA+AAAAAH/AAD4AAAAAB8AAPAA - AAAADwAA8AAAAAAPAADwAAAAAAcAAPgAB8AABwAA/AAP4AADAAD4AA/wAAMAAPAAH/gABwAA4AAf/AAP - AADgAD/+AB8AAOAAP/4ABwAA4AA//wADAADgAD//AAEAAOAAP/8AAQAA4AAf/wABAADgAB//AAEAAPwA - H/8AAQAA/gAP/wABAAD8AA//AAMAAPgAB/4ABwAA8AAD/gAfAADwAAH8AA8AAPAAAHgABwAA+AAAAAAD - AAD4AAAAAAMAAPwAAAAAAwAA/DAAAAAHAAD/4AAAAAcAAP/gAAAADwAA/+AAAAAfAAD/4AAAAP8AAP/g - AAAA/wAA/+AAAAD/AAD/8AAAAf8AAP/4AAAD/wAA///wAAf/AAD///AAP/8AAP//8Af//wAAKAAAACAA - AABAAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAIAAAALAAAAEwAAABkAAAANAAAAPQAAAGcAAAB7AAAAcQAAAFgAAAAfAAAAAgAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAEAAAANAAAAKwAAAFkUEBCHAAAAgmFSSnyMc2rDsY6O4Z+AgN6AZmbTJB0drAAA - AE4AAAANAAAACwAAAA0AAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAABAAAADTUrJ2R4YVjGxJ6X7t+xsPRIOTjIrY6C7c6pmP/5xcP//8vL///K - yv99Y2PTAAAAbAAAADoAAABVAAAAXwAAADgAAAAOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAIBQUwihfXZ5xKKS9fK9uf//yMn//8fH/9moqPPGpJb91Kyd//3E - xP//x8f//83N/4ZjZOAnHhyseGVZw598eNxJOTnEAAAAlAAAAFEAAAAPAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAAGa2KgMvOrZn/7bix///Fxv//w8P//8PE/+e3 - rv/qt6///8PE///Dw///x8f/wpOS8pl+cfDitKf//8PE/+21tflxVlbWAwICmgAAAC4AAAAFAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADh0ZFlcmHBuJZEpIvMGmkv7crqH//8LC///A - wP//wMD//8HB///AwP//wMD//8DA///AwP/+wL//77iy//2+vf//wMD//8DA//2+vv5QPDypAAAAJQAA - AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAASIbGWIq41+5tqioPKqfHzpxKWU/NSq - mv/+u7r//7y9//+8vP//vLz//7y8//+8vP//vLz//7y8//+8vf//vb7//729//+8vP//vLz/5Kio9Tgq - KoMAAAATAAAABQAAAAcAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAelVUP8Skkv7lraT//7m6//+6 - u//4t7X/9bWx//+5uf//ubn//7m5//+5uf//ubr//7m6//+6u///ubr//7m5//+5uf//ubn//7m5//+5 - uf+vf3/hAAAAcgAAACwAAAA2AAAAPQAAABAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAGwjIK+0auZ//my - r///trf//7W1//+2tv//trb//7W1//+1tf//trb//rS0//axsP/wtK7/8LGr//izsP//trf//7W2//+1 - tf//tbX//7W1/5xvb+EUEA+wUTs5rmxLS8EIBgaeAAAAQwAAAAcAAAAAAAAAAAAAAAAAAAAAl2NkBsCd - kNnPq5j/8a2n//+ztP//srL//7Ky//+ysv//srL//7Ky//esrPrGioqYxZGOTLePh2XBnZDDzqiY/96r - nv/4r6z//7Kz//+ysv//srL/9aqq+9mZmPTvqKf7/rCw/1U7O8sAAAB7AAAAFgAAAAAAAAAAAAAAAAAA - AACVX2EBoXNwRcGgkuvNqJX/8aql//+vr///rq7//66u//+urv/soaH3bUtLcwAAAA4AAAAAAAAAAAAA - AACsg3xYxKaW5M2mlP/uqaP//6+w//+urv//rq7//66v//+vr///rq7/x4iI7QAAAJkAAAApAAAABAAA - AAAAAAAAAAAAAAAAAAEAAAAXbVFPXL+llO3PpZP/+aqo//+srP//rKz//qur/4teXrYAAAAcAAAAAAAA - AAAAAAAAAAAAAAAAAAC5lIs8xaaW6M2nlP/0qKX//6yt//+srP//rKz//6ys//+srP/6qan8Vzo6hAAA - ABYAAAABAAAAAAAAAAAAAAAATEE7GEExLYZJLzC0tI2D8+KonP/8p6X//6io//+oqP/Zj4/vAAAAXgAA - AAsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwhX9hx6qY/tWjlP/+p6f//6io//+oqP//qKj//6io/8mE - hMZAKiokAAAAAQAAAAAAAAAAAAAAAAAAAAC9oJCzz56P+P+np///pqb//6Wm//+lpf//paX//6Wl/5Nf - X9QAAAA9AAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJZiYwK5k4rAyKqV/+uimv//pab//6Wl//+l - pf+haWnaBgQEWQAAABYAAAAIAAAAAAAAAAAAAAAAAAAAAMKikv/WopP//6Gh//+hof//oaH//6Gh//+h - of//oaH/TDExvwAAADUAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ9xb1PLrpv/16CS//+h - ov//oaH//6Gh/2I9PdIAAACaAAAAbAAAAEUAAAAIAAAAAAAAAAAAAAAAwJ6P/9ihkv//np7//56e//+e - nv//np7//56e//+env9FKyu9AAAAOgAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAondzHcOj - lerNpJH//Z2e//+env//np7/6ZCQ+KVmZuNoQEDNAAAAlwAAABgAAAAAAAAAAAAAAADEo5T10qKR//ud - mv//mpr//5qb//+bm///m5v//5ub/0YqKsEAAABSAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AACldnMQuJSJzM6plf/2mpf//5ub//+bm///m5v//5ub//+bm/8AAACnAAAAGAAAAAAAAAAAAAAAAL6Z - j1W+nY+qxZ6P3Najlf/om5P//ZiX//6YmP/+mJj/eEhI1AAAAHUAAAASAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAGsiICxz6uY//OXk///mJj//piY//6YmP/+mJj//piY/wAAAKMAAAAYAAAAAAAA - AAAAAAAAAAAAAAAAAAB2VlQuuJ2O6M2lkv/zlJH//JSU//qUlP+waGjoAAAAmwAAAC8AAAADAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAhVxbDLGOhMfPqZX/9pOS//uUlP/6lJT/+5SU//yTlP/7k5T/AAAAewAA - ABMAAAAAAAAAAAAAAAAAAAAAAAAADGFPSXu8loj26ZeQ//eRkP/3kZH/95GR/+qKivslFRW8AAAAawAA - ABcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACPb2keupyO6dSgkP/4kJD/95GR//iRkf/sj4393o2J7OWR - jNcAAAAVAAAAAAAAAAAAAAAAAAAAAAAAAASUeHB0xZ2O9uuSjv/2jI3/9I6O//SOjv/0jo7/9I6O/6Nf - X+UAAACkAAAAUgAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAIRiX1vHrJj/4pSL//WNjv/0jo7/94uN/nFR - TNYdGxd7AAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAnmxsJ8OllfTRn47/74mJ//GKiv/wior/8IqK//CK - iv/wior/64eH/Wo9PdYAAACgAAAAVwAAABoAAAAHAAAAAQAAAAEAAAAXo4Z809Ghkf/tion/8YqK//CK - iv/wiYn/k1dW4wAAAKkAAABkAAAAFQAAAAAAAAAAAAAAAAAAAACXZGQCuJOJycqqlv/gi4b/7oWG/+2G - hv/uhYb/7YaG/+yGhv/shob/6YSE/nNCQtoAAACqAAAAeQAAAEMAAAAhAAAAJ4BoYazPopL/5oqG/+6G - hv/shob/7IaG/+yGhv/uhob/k1JT4gIBAaAAAAA4AAAABwAAAAAAAAAAAAAAAAAAAACidHJSyauZ/9CX - if/pgoL/54aF/92Siv/fioT/6oKD/+mDg//pg4P/6YOD/69iYutRLS3MCwYGrw4LCqR8YVnP0JGI/eWG - g//qgoP/6YOD/+mDg//pg4P/6YOD/+mDg//mgYH+YTY2uQAAAC4AAAAEAAAAAAAAAAAAAAAAAAAAAJlm - Zgi/m5CawqGOoMlzcFGycW9UwKaV986aiv/jf37/5X9//+V/f//lf3//5YCA/+N/f/7benr72nx7++SC - gf/mf3//5n5//+V/f//lf4D/5H9//+V9fv/mfn//5YB//9p6evpLKiqDAAAAEwAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAI9jYT6/o5P40pCF/+N5ev/he3v/4Xt7/+F7e//he3v/4Xt7/+F7 - e//ie3v/4nt7/+F7e//he3v/4Xt7/+J5ev/ZjIb/0ZyN/9uEf//ienv/sGFhxAAAACUAAAACAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABoH12lMunlf/WgXv/33Z3/954eP/eeHj/3nZ2/992 - d//eeHj/3nh4/954eP/eeHj/3nd3/954eP/eeHj/4Hd3/65paPCUe3Dcv5yL5MmCeqmJSkokAAAAAgAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJVpaA+6mYzQy6GO/9h1c//bc3T/2nR0/9p1 - df/TjYP/04F6/9p0dP/adHT/2nR0/9p1df/YeHb/2nR0/9p0dP/adHT/vGJj8hMLDK0AAAA6AAAABwAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAn25tCreQh5nLrZn/zI6B/9Vx - cP/Zb3D/t2Zm5sqtm/nIk4P/1nBw/9dwcf/Xbm//1oB8/8qgjv/ReXT/2G9w/9dxcf/YcXH/TyorrQAA - ADQAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmGRlAriS - in7GqJftx5SF9MNraMR7SUpOv6WW78mYh//Sb23/02xt/9Vra//AcnD4v6mX+smVhf/TbGz/021t/8lo - aO6FRUVlAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAMCckja+o5BAj1lTFAAAAAG/oZTqyZ+M/85sav/PZmb/0mZn/4VKSsWfgnmsy62a/8d+ - dfC9XV6eoFJSNwAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAu4B8AbqXjaLFpJLnxYZ88cp+d+zJe3PUmFdVS2xL - TBXGrZw0pXBmFwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/gAf//gAA//wA - AH/8AAA/+AAAH/AAAB/gAAAH4AAAA8AAAAPAAAADwAOAAcAHwAHAB+ADwAfgA8AH8AHAB/ABwAfwAcAH - 8AHwA/AB4APwA8AB8AfAAAADwAAAAeAAAAHgAAAD/gAAA/wAAAf8AAAf/AAAH/4AAD//gAB///AB/ygA - AAAQAAAAIAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAA - AD0AAAAiAAAAdgAAAKwAAABuAAAAIgAAAD0AAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFWJJ - SacAAACgoXl5ysyZmf+DYmLfAAAAmGRLS6MAAAChAAAAfwAAABUAAAAAAAAAAAAAAAAAAAABAAAAFseV - leTMmZn/dllZ3a+Dg/HMmZn/roOD8oJhYeHMmZn/uYuL9gAAAJEAAAAnAAAAFgAAAAEAAAABAAAAJQAA - AIa1iIjqzJmZ/8yZmf/MmZn/zJmZ/8yZmf/MmZn/zJmZ/66CgvMAAACwAAAAkgAAAIYAAAAniGZmGMmX - l/OyhYXuroOD8syZmf/MmZn/zJmZ/8OSksjMmZn/zJmZ/8yZmf/Ek5P5roKC88KSkvsTDg6pAAAARsyZ - mWDMmZn/zJmZ/8yZmf/MmZn/jWpqogAAABUAAAAAzJmZEMyZmYDMmZn/zJmZ/8yZmf/MmZn/dVhYqAAA - ACUAAAAQmXNzv8yZmf/MmZn/c1ZWxwAAACEAAAAAAAAAAAAAAAAAAAAAzJmZcMyZmf/MmZn/dllZ3AAA - AJoAAAB9w5KSt7SHh+vMmZn/wpKS+wAAAIwAAAASAAAAAAAAAAAAAAAAAAAAAAAAAADLmJjwzJmZ/66D - g/Kac3PoAAAArMyZmf/MmZn/zJmZ/6V8fO0AAACbAAAAIgAAAAAAAAAAAAAAAAAAAAAAAAABwZGRysyZ - mf/MmZn/zJmZ/wAAAGfMmZmAwZGRysyZmf/DkpL6AAAAsgAAAGAAAAAZAAAAAQAAAAAAAAADVD8/J8yZ - mf/MmZn/pXx87YlnZ78AAAAtgmJiGa+Dg7nMmZn/zJmZ/3ZYWN4AAACpAAAAZwAAACsAAAAcAAAAMZFt - bbTMmZn/zJmZ/45ra+QTDg6qAAAAT8qYmHHMmZn/zJmZ/8yZmf/MmZn/gWFh4hINDboAAACpJRwcsoZk - ZNrMmZn/zJmZ/8yZmf/MmZn/gGBgsgAAACXMmZkQzJmZz8OSkqbHlZXkzJmZ/8yZmf/MmZn/zJmZ/8yZ - mf/MmZn/zJmZ/7iKiveXcXHXxpSU1mBISCIAAAABAAAAAAAAAAAAAAABypeX4syZmf/MmZn/zJmZ/8yZ - mf/MmZn/zJmZ/8yZmf+8jY3yAAAAfAAAABkAAAABAAAAAAAAAAAAAAAAzJmZEMyZmc/MmZn/lnBwbcaU - lMXMmZn/rIGB44RjY5TMmZn/xZSU11ZAQCYAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzJmZMAAA - AATMmZmAzJmZ/7aJiX0AAAAKzJmZMAAAAAQAAAAAAAAAAAAAAAAAAAAA8AcAAOADAACAAAABAACCvgAA - mf8BAK//A8C3/wPgtf8DwLb/AIC2/wAAtf8AALX/AAC2/8ABtP/AA7D/8A+u/w== - + + 6, 21 - - CheckBox1 + + 189, 17 + + + 8 + + + Quick-Menü (Buttons) anzeigen + + + chkboxQuickMenue + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 0 14, 129 - - 299, 14 + + 277, 53 - - 1 + + 9 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Menü-Einstellungen + + + GroupBox1 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 5 + + + True + + + NoControl + + + 306, 17 + + + 105, 17 - - 12 + + 7 - - 198, 23 + + Log Errors Only - - TabControl1 + + chkLogErrorsOnly - - 94, 29 + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 10, 21 + + TabPage2 - - 687, 261 + + 6 - + MiddleLeft - - 2 + + NoControl - - 8 + + 481, 70 - - 36 + + 198, 23 - - 297, 44 + + 6 - - 1 + + Open Log-Folder - - 14, 6 + + MiddleRight - - 25, 22 + + Button1 - - Windows-Authentifizierung + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 40 + + TabPage2 - - 42 + + 7 - - 67, 13 + + MiddleLeft - - Menü-Einstellungen + + NoControl - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 481, 44 - - 16 + + 198, 23 - - MiddleLeft + + 2 - - Log Errors Only + + Open AppFolder User - - 13 + + MiddleRight - - 8, 34 + + btnApplicationFolder - - TabPage1 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GroupBox2 + + TabPage2 - - 8, 86 + + 8 - - NoControl + + True - - 6, 13 + + Segoe UI, 9.75pt - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + NoControl - - 2 + + 478, 15 - - 277, 53 + + 201, 17 - - 2 + + 1 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Link zu Support-Tool Digital Data - - 11 + + LinkLabel1 - - 2 + + System.Windows.Forms.LinkLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Datenbank: + + TabPage2 - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 9 - - chkLogErrorsOnly + + 4, 22 - - 205, 25 + + 3, 3, 3, 3 - - 4 + + 687, 261 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 1 - - 277, 115 + + Weitere Einstellungen - - 11, 28 + + TabPage2 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Formular bei Programmstart laden: + + TabControl1 - - Segoe UI, 8.25pt + + 1 - + True - - 157, 13 + + NoControl - - 4 + + 8, 86 - - de-DE + + 611, 13 - - True + + 17 - - Aktuelle Sprache: + + Definieren Sie hier Inhalte von Dateinamen welche von der Folderwatch-Überwachung ausgenommen werden sollen: - - 408, 55 + + Label9 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - MiddleRight + + TabPage3 - - True + + 0 - - $this + + Top, Bottom, Left - - GroupBox2 + + 11, 102 - - 13 + + 192, 153 - - 687, 261 + + 15 - - 198, 23 + + DataGridView1 - - Kalender als Child aufrufen -(Eingebettet in Hauptformular) + + System.Windows.Forms.DataGridView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 1 - - Tasks-Einstellungen + + MiddleLeft - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + NoControl - - TabPage3 + + 209, 102 - - GroupBox3 + + 94, 29 - - Server-Name: + + 16 - - 9 + + Speichern - - 209, 13 + + MiddleRight - - 5, 115 + + btnSaveExclusionFiles - - frmConfig_Basic + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + TabPage3 - - Label7 + + 2 - + NoControl - - TabPage3 + + 616, 28 - - 382, 53 + + 49, 22 - - 9, 21 + + 14 - - 7 + + ... - - cmbDatenbank + + Button2 - - 47 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 64, 25 + + TabPage3 - - Speichern + + 3 - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 11, 28 - - 11 + + 602, 22 - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 12 - - 56, 13 + + txtScanFolderWatch - - TabPage1 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - txtUser + + TabPage3 - - 6 + + 4 - + True - - 392, 13 - - - Minuten ein Popup anzeigen - - - Label10 + + NoControl - - 306, 17 + + 8, 12 - - 43 + + 392, 13 - - Open Log-Folder + + 11 - - NoControl + + Definieren Sie hier den Ordner der für Scan2Folder verwendet werden soll: - - 0 + + Label8 - - 150, 13 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TabPage3 - - TabPage2 + + 5 - - Fill + + MiddleLeft - - Benutzername: + + NoControl - - Label2 + + 408, 55 - - 14 + + 4, 4, 4, 4 - - Label11 + + 205, 25 - - True + + 13 - - 302, 34 + + Überwachung starten - + MiddleRight - - 39 - - - 510, 36 - - - btnSaveExclusionFiles + + btnstartstop2 - - 8 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GroupBox3 + + TabPage3 - - 0 + + 6 - - 11 + + 4, 22 - - True + + 3, 3, 3, 3 - - cmbConstructor + + 687, 261 - - 184, 30 + + 2 - - 695, 287 + + Hot Folder - Scan - - Label1 + + TabPage3 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 0 + + TabControl1 - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 2 - - 5, 14 + + Fill - - TabPage3 + + 0, 0 - - txtTask_Popup + + 695, 287 - - GroupBox1 + + 0 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TabControl1 - - TabPage1 + + System.Windows.Forms.TabControl, 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 + + $this - - chkbxUserAut + + 0 - + True + + + 6, 13 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 695, 287 + + + Segoe UI, 8.25pt + + + + AAABAAYAMDAAAAEACACoDgAAZgAAACAgAAABAAgAqAgAAA4PAAAQEAAAAQAIAGgFAAC2FwAAMDAAAAEA + IACoJQAAHh0AACAgAAABACAAqBAAAMZCAAAQEAAAAQAgAGgEAABuUwAAKAAAADAAAABgAAAAAQAIAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADNZ2cA0WtrANRubgDWcHAA2XNzANt1dQDdd3cA4Hp6AOJ8 + fADlf38A54GBAOmDgwDshoYA5oSDAO6IiADJc3MA8IqKAPKMjADriYgA9Y+PAPeRkQD5k5MA2YCAAMt4 + eAD8lpYA/piYAM17ewD/mpoA/5ycAP+engDzlpYA/6CgAKlqagD/oqIA5pKSAI9cXAD/paUA0IeHAP+n + pwD/qakAmGVlAP+rqwD/rq4AxYaGAP+wsADnn58ArHd3AP+ysgD/tLQA6KSkAP+2tgD9tbQA+7SzAH5a + WgD/uLgAs4KCAKZ5eQD/u7sAq35+AP+9vQCYcXEA/7+/AP/BwQCziYkA/8TEAP/GxgDRoqIAgmVlANys + rACKbGwAt5CQAP/KygDEoKAA3ba2ALmamgBnVlYAdGNjAFxUVACwoaEAy7y8AFNNTQCemZkAqKSkAKGe + ngBqaWkA03FvANl5dwDlg4EA3H58AOmHhQDriYcA9JKQAPOSkADdj4wAtHVzAOucmQD0pqMA76WiAMCE + gwD2trQA56upAPy/vgD7wb8AzHFtANJ6dgDXfnoA24R/AOGHgwDiiYUAzH97APWalgDrlZAA86qmAPSt + qgD3sa4AuY2LAPW9ugDmtrQAzq2rAIt2dQB7a2oAloOCAM9+dwDlkIoA752XAOqjnQDzubUAvJWSALCQ + jQDajoYA7bu1AOSckwCojIgAxK6rAMiDeADMiX0A0o2CAN6ZjgDXlIkA3ZyQAOKroQDptKsA1pqNAN2l + mQC3j4cAwqKbAK+TjQDJq6UAya6pANKVhwDBmY8A0ZmKANSejwDbrJ8Ay6GVALmbkwDGp54Ay5eHAM+b + iwDRn48A1aSVALORhgDDn5QAvpuQAL+spgDGlIIAzZ6NANSqnADHppoAxKOYAMGhlgC+oJUAyaqfAMqs + ogDKrqQAyJyKAM2ikADPp5cAyaeZAMWjlgDJqJsArKCbAK+qqADFmYYAyZ+MANWyowDEpZcAza2fAM2w + owCompQAxZ2JAMmkkQDJqJgAza6eAKOKfgDPsaIAz7KkAJWRjwCWlJMAx6GNAMmjjwDHoo4AyKaTAMqp + lgDIp5UAza2bAMytnADLrJsAxqiXANCxoADQsqEA0LKiAM+xoQC4qJ8Awp+JAMShjADDoIsAw6GMAMak + jwDEoo0AxaOPAMalkADHppIAyqmVAMmolADLq5cAy6uYAMysmQDNrpsAza6cAM+wngDOr50A0bSiANO2 + pQB7cWoAmJiYAJSUlACSkpIAjo6OAIyMjACAgIAAfHx8AHp6egB3d3cAdHR0AG9vbwBjY2MAXl5eAFxc + XABbW1sAWFhYAFVVVQBTU1MATExMAAAAAAD/////////////////////////////VPX9+FXx7/////// + ////////////////////////////////////////7+/17u++w3ZKd0t6Ve////////////////////// + /////////////////////8esk3ZJ+5Po2UhISEhIee////////////////////////////////////// + //+3rKh1QkJCeYXOwEJCQkJChe//7+/08e///////////////////////////////6zR10JCQkJCdqPi + skJCQkJCgfW2w6RFTPfv/////////////////////////////5Ln3INBQUFBQYPhmkFBQUFBQ3nQsmdB + QXj77f///////////////////////////6zq35o/Pz8/Pz9mPz8/Pz8/drPAfz8/Pz9H+f////////// + /////////////6zs8ay14sk+Pj4+Pj4+Pj4+Pj4+Pj51Pj4+Pj4+eP//////////////////////rKyi + Q03D6NpkPDw8PDw8PDw8PDw8PDw8PDw8PDxk7/////////////////////+swslkOjpluslkOjo6Ojo6 + Ojo6Ojo6Ojo6Ojo6OjqA7/////////////////////+s4I03Nzc3N2Q3Nzc3Nzc3Nzc3Nzc3Nzc3Nzc3 + Nzd4/////////////////////4bSyjUzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzMzP+7//v7/L///// + /////////6vMoTExMTExMTExMTExMTE0jo6omo1zMTExMTExMTE7Tnh0MkT1/////////////8XOynIw + MDAwMDAwMDAwMEr/////rdDLoXIwMDAwMDAwczAwMDL97/////////////+148hyLS0tLS0tLS1yUP// + //////+p5d2QLS0tLS0tLS0tLS1G9f//////////////s+PIcSsrKysrKytP////////////ndLeoSsr + KysrKysrKysu+////////////////9XMvyoqKioqKkD//////////////53S3ZAqKioqKioqKioqev// + ////////////U5zjoCgoKCgoYVL///////////////+d5dliKCgoKCgoKChi////////////xus7OX5h + YScnJycnOP//////////////////xOCnJycnJycnJzL/////////////ztclJSUlJSUlJSUlef////// + ////////////gOfcfiUlJSUlY/////////////+R5LkiIiIiIiIiIiIi9v///////////////////9Xh + mSIiIiIiRO7///////////+R46AgICAgICAgICBe8////////////////////6rO1yAgICAgL/727P// + //////+R46AeHh4eHh4eHh4m9P///////////////////5XS3H0eHh4eHiMvTPz0//////+R5NcdHR0d + HR0dHR0m9//////////////////////p3oQdHR0dHR0dHR/7//////+k5tyEbxwcHBwcHBwf+/////// + ///////////////q34ocHBwcHBwcHBz7////////paXBzLGMbxoaGhoaTv/////////////////////q + y4oaGhoaGhoaGhr7////////////pbPgnxkZGRkZRPD////////////////////q3ooZGRkZGRkZGRn6 + /////////////6TksBYWFhYWX/j////////////////////p23AWFhYWFhYWFhby////////////U6un + XBUVFRUVFVHs///////////////////n2V0VFRUVFRUVXWD///////////++448UFBQUFBQUFCH4//// + /////////////6vjmBQUFBQUY9b//////////////6XNixISEhISEhISEhJM9P///////////////9Db + fBISEhISNvP/////////////perflhEREREREREREREXUfH/////////////nOSYERERERERG/7t//// + /////////6PjvxMPDw8PDw8PDw8PG1Hy//////////+lz6dbDw8PDw8PDyH97f///////////5XS24IN + DQ0NDQ0NDQ0NDRhO+P///////7e7p1oNDQ0NDQ0NDQ0h/f////////////+8zLgMDAwMbWwMDAwMDAwM + KU779e7seqSLDgwMDAwMDAwMDAwMIf////////////+U0tuJI6Wb4r9YCwsLCwsLCwsQKSlfXgsLCwsL + CwsLCwsLCwsLPf//////////////0tIj//+l0txrCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgpZVP// + //////////////////+szrgJCQkJCQkJCQkJCQkJCQkJCQkJCQmCnmsJCQkv//////////////////// + //+14YkICAgICAgICAgICAgICAgICAgICAiXnt6uWRf//////////////////////6XT3WoHBwcHBwcH + BwcHBwcHBwcHBwcHBwc2eq6urv///////////////////////5LOuAYGBgYGBleIVwYGBgYGBgYGBgYG + BgYh+P///////////////////////////6Pkv2kFBQUFBajLiAUFBQUFBYmIBQUFBQUFTv////////// + //////////////////+15L97BAQEO7TMpgQEBAQEauXZaQQEBAQERP////////////////////////// + ////rujdiFYs/6PkuAMDAwMDENTMpgMDAwMDbv///////////////////////////////3e9vb3//5Ll + 1wICAgICJIHT3ocCAmhu/////////////////////////////////////////6/n2GgCAgICKYGdztlu + bv///////////////////////////////////////////6/T24doAQEBgf////////////////////// + //////////////////////////////+vr6+vr6+v//////////////////////////////wH//8AAP// + AAP//wAA//wAA///AAD/8AACD/8AAP/gAAAH/wAA/+AAAAP/AAD/4AAAA/8AAP8AAAAD/wAA/gAAAAP/ + AAD8AAAAA/8AAPwAAAAH/wAA+AAAAAI/AAD4AAAAAB8AAPgAB4AADwAA/AAP4AAPAAD+AB/wAA8AAP8A + P/gADwAA/gA//AAfAADwAH/+AD8AAPAAf/4AfwAA4AB//wA/AADgAH//AA8AAOAAf/8AAwAA4AB//4AD + AADgAH//gAMAAPAAf/+AAwAA/gA//4ADAAD/AD//gAMAAP4AH/+ABwAA/AAf/wA/AAD4AA//AD8AAPAA + B/4AHwAA+AAD/AAPAAD4AAH4AA8AAPwAAAAADwAA/AAAAAAPAAD+MAAAAA8AAP/wAAAAHwAA//AAAAA/ + AAD/4AAAAH8AAP/gAAAD/wAA/+AAAAP/AAD/8AAAA/8AAP/4EAAD/wAA//wwAAf/AAD///AAH/8AAP// + 8Af//wAA///4D///AAAoAAAAIAAAAEAAAAABAAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAH9s + bQDRZmcA2W9wANdubwDTbG0A13BxANtzdADfdncA43l6AOV9fgDmfn8A6oKDAO6FhgD3i40A9oyNAPWN + jgC6bG0A/JOUAPuTlAD9nZ4A/6GiAP+lpgD/tbYA/7m6AP+6uwD/vb4A/8PEAP/FxgDVa2sA2HFxANVx + cADgd3cA2nR0AN54eADie3sA4Xt7AOWAfwDlf38A439+AOmDgwDlgIAA7oaGAOWCgQDjgIAA3Hx8AOyG + hgDphIQA8ImJANt+fQDwiooA7YqJAOeGhQDIdHMA9I6OAOuIiAD4kZEA/JSUAPuUlAD3kZEA9pOSAP2Y + lwD+mJgA6oyMAP+bmwD/np4A/6GhALh0dAD/paUArG9vAP+npwCfaGgA/6ioAP+srAD+q6sA+qqpAP+u + rgCvd3cA/6+vANuWlgDChoYA/rCwAO2kpAD/srIA76moAIVdXQD/tLQA9q2tAP+1tQD/trYAoXNzAI9n + ZwD/ubkA1pubAK9/fwD/vLwApXp6AOWrqwDVn58A/8DAAP2+vgCGZWUAfl9fAP/DwwCogIAAtYuLAP3E + xAD/x8cAjG1tAHRbWwD/ysoA/83NAJN3dwB5ZGQAiHFxAN25uQCrkJAAdGVlAF5SUgCjkpIAqJmZAGxn + ZwBeWloAioWFAIOAgABnZmYAZmVlAFZVVQClpKQAzmxqANJvbQDYdXMA2Hh2AOWGgwDskY4A+52aAPaa + lwDqlZIA4JWSAPynpQDRjYsA252cAPazsQD4t7UAyJWUAP2+vQD+wL8A3KqpAPnFwwDgtLMArI2MANF5 + dADbhH8A44uGAPOWkgDyqqYA+K+sAPmzsADVgXsA3IuFAOqinADuqaMA7rizAPK9uQCIbmwAinx7AG9k + YwDgk4sA6JuTAPCzrQCNengA042DAMqGfQDRk4oAt5uXAJqTkgDSkIUAy4yCAOWtpADIpJ4A5rasAJR/ + ewDFrKcAuqypAN+rngC4kokAxqmiANihkgCXhH8AyZSEANSgkADMmooA1qOUAMKnnwCpmZQAyZiHANGf + jgDRoZEAz6KSAMegkgDUq5wA0LSqAKeUjQC+mowAzaueALOWiwDGp5oAyKyhAMqvpACjjYQAyqCNAM6l + kgDOqZgAwJ6PAMirngC+pJkAzaeUANCrmADLp5UAwqKSAMamlgCfhnkAs5iLAMClmADEqp0AZGJhAM6p + lQDEpJIAyq6eAM6tmQDLrZoAyauZAMeqmQDKrZwAwaaWAMOrnQDJqpYAy6+dAMGmkgDHrJgAwaqZAJKR + jwCbm5sAmJiYAJSUlACTk5MAjIyMAIaGhgCEhIQAfX19AGpqagBlZWUAYGBgAFxcXABYWFgAAAAAAP// + ////////////////8/P49vP///////////////////////////////N8+fPKrnS8efP///////////// + //////////////O8s5WmzdSUbm619fPz////////////////////////3KNra5PcyGprb3B5vJZ1+v// + /////////////////9flohxnG7S0G2drkN20G6Jyff////////////////97qu64Z2NjY2NjY2OSopFj + Y2Sl////////////////3pNp3MgZX19fX19fX18aGl9fYa///////////////+OyGBmPjlxcXFwYGBkY + XFxcXFxp9v////////////+62Z1ZWFlZWFhZVo6pqZ1ZF1hYWGh6pXB+/////////8/Zm1ZTU1NTU1dz + ///J1LicU1NTV41UUXH4/////////87Ym05MTExSt///////0NihTkxMTE5MkH3//////////+DTS0lJ + Spb/////////5NibSUlJSUlLeP///////68BubiLSEhPgP//////////6MBGSEhISGL/////////xUYW + FkRERGD////////////Q7KAWRERegP///////9vAQkJCQkJCcf/////////////muxVCQmb79f////// + 1btBQUFBQUF1/////////////9bTFEFBiU1lff/////OxYdAQEBAQG3/////////////uuKIQEBAQED+ + ////////zMCoPT4+W/b///////////+22Zo+Pj4+Pv3/////////19OaOTpD+////////////8HiPDo6 + OhIT+P///////7fLiTs7Oz929P//////////3744OziGiqD/////////x4YPNjY2NkX99P/////////v + pxA2DqTx/////////+jEMDIyMjIyN1X89P//////rsUzMjIwR3/y////////uuyZDSoNKi4uL1V/9/// + /8LGmSouLi4qR/z/////////560MNKefDCgoKBFtf+G1rYUMKCgoKCgrbP/////////k5OTk8L8nJiYm + KSwtMSsLCyYmJgoLJTF3/////////////+TqsAkkJCQkJCQjIyQkJAmfXZgjUP//////////////5Nqe + CCIiCAgiIiIiCCIiIEPRXV3////////////////P0oMHISGrniEhISGEISEhEXr///////////////// + /+TmsR8DQ+29BgYEntKXAwYepP///////////////////+Tkv4z/68OCBR018L0FBTVd//////////// + ///////////////g0oECAlq35qxd/////////////////////////////+TpsbGt//////////////// + /////B///8AP//8AA///AAD//gAAf/wAAH/4AAB/8AAAf+AAAA/gAwAH8AfAB/gP4AfgD/AP4B/wD8Af + +AfAH/gDwB/4A/AP+AP4D/gD8Af4B/AD+A/gAfAH4ADgB/AAAAfwAAAH/gAAD/4AAB/+AAB//gAAf/8I + AH//+AH///g//ygAAAAQAAAAIAAAAAEACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzJmZAMSU + lADFlpYAw5SUAMycnAC7j48Auo6OALKIiADOnp4Av5OTALeNjQCziooAsomJALqQkADNoKAAu5KSAKuF + hQDQo6MAo4CAALWPjwCae3sAkXR0ANasrACYenoAk3Z2AI9zcwCnh4cAiG5uANOsrADOqKgAiG9vANCq + qgCJcHAAtZWVAMWlpQCzlpYAknt7AKeNjQCxmJgAppCQALegoACkkZEAuKSkAJyMjACYiIgAZ2FhAFJO + TgBjX18AYl5eAJ+fnwCYmJgAkZGRAImJiQCDg4MAgoKCAICAgAB5eXkAc3NzAG5ubgBtbW0AZ2dnAGVl + ZQBkZGQAX19fAF5eXgBWVlYAU1NTAE9PTwBNTU0AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAARkZGRkZG + RjVDNEZGRkZGRkZGRkYtQCIBGT0sQThGRkZGRkYPAR8MAQ0WAQY7RkZGRkY5EAEBAQEBAQEIRDw5RkYF + Cw0BAQEgAQEBAwgEMEZGAQEBASlGRkZGAQEBASpGRiQBASVGRkZGRkYBASE+Nx4OAQQ6RkZGRkZGCQEN + E0MBAQERP0ZGRkZGRh4BAQEzHh4BAkUyRkZGRkYBAREmRkYjAQEcQjNGRkYnAQEVMUZGAQEBARovQi4Y + AQEBAShGRhceDwEBAQEBAQEHGwFGRkZGRhIBAQEBAQEBCjZGRkZGRkYXAR4dARQrAQFGRkZGRkZGRkZG + FwEBRkZGRkZGRv4//7rwB1lY4AdYWMABjqmAAVkXg8FYaIfgcH4H4P//B+D/zwPhVlOBwVNTgAH//4AD + uJzgB1NX4A9Rcfx///8oAAAAMAAAAGAAAAABACAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAQAA + AAkAAAAPAAAAFQAAABAAAAADAAAAKgAAAGAAAACLAAAArAAAAKEAAACUAAAAfwAAAF0AAAAYAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAMAAAAQAAAAJwAAAEwAAABxAAAAiwAAAG5ZRkJDhHFlr5Z8bOTnubT72a6u882kpO6xjo7lhWpq1hkU + FKYAAAA9AAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAADQAAADEdGRd3ZFRLxKODfeHjtLL2v5eX6gAAAKebeXLMzq+d/8Ogi///ysr//8rK///K + yv//ysr//8rK/1JBQcYAAABbAAAADAAAAAkAAAAPAAAAEwAAABMAAAAEAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAKOS0qaZF3bNjTq57/87+7///Hx///x8f//8fH/2JMTNGlhn3uza2b/8mk + kf//x8f//8fH///Hx///x8f//8fH/5Z1ddoAAABrAAAAHwAAAEsAAABwAAAAiAAAAH0AAAA9AAAADQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACjfnd7xKWU98Ofiv//xsb//8bG///Gxv//xsb//8bG/+ay + svfFn5X/y6uX/9Cnl///xsb//8bG///Gxv//xsb//8bG/6N+fuAAAACLemdfoJJ6bNy6lInx2qio8j0v + L8gAAACdAAAAVAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC0jIXRz7Ce/8Sijf/vubT//8TE///E + xP//xMT//8TE///ExP/rvbb/yaiU/9ytof//xMT//8TE///ExP//xMT//8TE/82enu5XREDMy6yb/86n + lv/7wb///8TE///ExP9yV1fXAAAApwAAAGsAAAAVAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAAADQAAABKSZ2V80rWk/8em + kv/brKD//8HB///Bwf//wcH//8HB///Bwf//wcH//L++///Bwf//wcH//8HB///Bwf//wcH//8HB/+au + rvfMppr/yaWS//O5tf//wcH//8HB///Bwf//wcH/sIWF5wAAAKMAAAAwAAAABgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA8AAABDAAAAZwAA + AH8kGBiIyamb/8url//Joo///7+///+/v///v7///7+///+/v///v7///7+///+/v///v7///7+///+/ + v///v7///7+///+/v///v7//97q4//+/v///v7///7+///+/v///v7///7+//1xFRbIAAAAcAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACXNc + VoOIc2bUrYh87M6Zme1QOzvLoH938M6vnf/DoYz/87ay//+9vf//vb3//729//+9vf//vb3//729//+9 + vf//vb3//729//+9vf//vb3//729//+9vf//vb3//729//+9vf//vb3//729//+9vf//vb3/9LW1+gAA + AHEAAAAPAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAABfFlXa82unv/Io5D/97a0//+7u///u7v/56up/9Wyo//Io4//97a0//+7u///u7v//7u7//+7 + u///u7v//7u7//+7u///u7v//7u7//+7u///u7v//7u7//+7u///u7v//7u7//+7u///u7v//7u7//+7 + u///u7v/tISE4QAAAEUAAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAABYOjocuZiM68mplf/gqp///7i4//+4uP//uLj//7i4//+4uP/3tLL//7i4//+4 + uP//uLj//7i4//+4uP//uLj//7i4//+4uP//uLj//7i4//+4uP//uLj//7i4//+4uP//uLj//7i4//+4 + uP//uLj//7i4//+4uP//uLj/aUxMwwAAAC0AAAADAAAACQAAAA8AAAAVAAAABwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAGWbmqPz7Gg/8eijv/7tLP//7a2//+2tv//trb//7a2//+2 + tv//trb//7a2//+2tv//trb//7a2//+2tv//trb//7a2//+2tv//trb//7a2//+2tv//trb//7a2//+2 + tv//trb//7a2//+2tv//trb//7a2//+2tv//trb/AAAAtQAAAGgAAAA6AAAATgAAAHEAAACCAAAASAAA + AAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAIFWVhO+m5DxyqmW/9immP//tLT//7S0//+0 + tP//tLT//7S0//+0tP//tLT//7S0//+0tP//tLT//7S0//+0tP//tLT//bW0/++1r//jsqf/1qqb/9uq + nf/kq6L/97Gu//+0tP//tLT//7S0//+0tP//tLT//7S0//+0tP//tLT/oXJy4yMeG75rUUzKsH584eej + o/ZjRUXPAAAAiwAAAB4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlmZiDMrZ7wzK2a/8ei + jv/zrqr//7Ky//+ysv//srL//7Ky//+ysv//srL//7Ky//+ysv//srL//7Ky//+ysv/Mj4+ghF1dHwAA + AAGZZmYwuZSLcsGekuDLrJv/yKeT/9KklP/zrqr//7Ky//+ysv//srL//7Ky//+ysv//srL//7Ky//ew + rf//srL//7Ky//+ysv/moaH3AAAArQAAAFEAAAAJAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACkdXJgyaib/8urmP/HoY3/86yo//+wsP//sLD//7Cw//+wsP//sLD//7Cw//+wsP//sLD/9amp+XpU + VGQAAAAJAAAAAAAAAAAAAAAAAAAAAAAAAACug31gw6CU8M2um//Fo47/36ab//+wsP//sLD//7Cw//+w + sP//sLD//7Cw//+wsP//sLD//7Cw//+wsP//sLD/c09P1QAAAIwAAAAbAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAApHVyYMinmf/Lq5j/xqCM//Oqpv//rq7//66u//+urv//rq7//66u//+u + rv//rq7/YEJCfwAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmWZmELiSidDPsZ//xqWQ/9ej + lf//rq7//66u//+urv//rq7//66u//+urv//rq7//66u//+urv//rq7/5pyc9wAAAKcAAAA0AAAABgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADAAAAB5hsaWfPsaH/yqqW/8Weiv//q6v//6ur//+r + q///q6v//6ur//+rq/+gbGzMAAAAKAAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlm + ZhC4konQz7Gf/8Wjj//fpJn//6ur//+rq///q6v//6ur//+rq///q6v//6ur//+rq///q6v//6ur/2JC + QqcAAAAtAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABMAAAArAAAARQAAAFu0kojty6uY/9Cg + kP//qan//6mp//+pqf//qan//6mp//SiovokGBhxAAAADwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAACZZmYgxKKW8M2um//DoYv/76Wg//+pqf//qan//6mp//+pqf//qan//6mp//+p + qf//qan/7p6e75BfX1UAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAEDEpJYNQQjnAmGRk15Zi + Ytnoo5//8qei//emo///p6f//6en//+np///p6f//6en/6dtbdsAAAA3AAAABAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAApHVyYM+xov/JqZX/zJ+N//+np///p6f//6en//+n + p///p6f//6en//+np//nl5flTTIyNQAAAAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAvZyRt82t + m//Cnon//6Wl//+lpf//paX//6Wl//+lpf//paX//6Wl//+lpf//paX//6Wl/0QsLLQAAAAcAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAALKJguDPsJ7/xKKN/+ui + m///paX//6Wl//+lpf//paX//6Wl/7R0dOEsHBxdAAAACQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAt4+H/8ysmf/Jn4z//6Ki//+iov//oqL//6Ki//+iov//oqL//6Ki//+iov//oqL//6Ki/wAA + AI8AAAATAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKR1 + cmDPsaH/yaiU/9Sej///oqL//6Ki//+iov//oqL//6Ki/2RAQMwAAABtAAAAIgAAAA0AAAAEAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAt4+H/8urmP/Rn4///6Cg//+goP//oKD//6Cg//+goP//oKD//6Cg//+g + oP//oKD/2omJ8gAAAIUAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAADAnZLwzK2a/8Kfif//oKD//6Cg//+goP//oKD//6Cg/6FlZeMAAACyAAAAkQAA + AGcAAAA3AAAAGwAAAAAAAAAAAAAAAAAAAAAAAAAAt4+H/8urmP/Rn4///56e//+env//np7//56e//+e + nv//np7//56e//+env//np7/zoCA7QAAAIgAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACxioOzz7Gf/8Sijf/vnZf//56e//+env//np7//56e//+e + nv/mj4/3oWRk4j8nJ8MAAACqAAAAiQAAABYAAAAAAAAAAAAAAAAAAAAAt4+H/8ysmf/Bnoj//5yc//+c + nP//nJz//5yc//+cnP//nJz//5yc//+cnP//nJz/zH197wAAAJsAAAAYAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACleXWD0bSi/8alkP/jm5L//5yc//+c + nP//nJz//5yc//+cnP//nJz//5yc//+cnP/zlZX7AAAApgAAABgAAAAAAAAAAAAAAAAAAAAAuZOK782u + nP/Eoo3/5JyT//Oalv//mpr//5qa//+amv//mpr//5qa//+amv//mpr/85KS+wAAAKcAAAAlAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACSYWFU07al/8em + kv/fmo///5qa//+amv//mpr//5qa//+amv//mpr//5qa//+amv//mpr/AAAApwAAABgAAAAAAAAAAAAA + AAAAAAAAmWZmILCIgXLFpJiyyaiY/8qql//NopD/3ZyQ//eZlv/+mJj//piY//6YmP/+mJj//piY/xcO + DrQAAABGAAAABwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACQYGBE07em/8imkv/fmo///piY//6YmP/+mJj//piY//6YmP/+mJj//piY//6YmP/+mJj/AAAApwAA + ABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmWZmEKh7d4DIp5n/yqmV/8+bi//8lpb//JaW//yW + lv/8lpb//JaW/2I6Os0AAABzAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAACKXFxH07al/8elkf/dmI3//JaW//yWlv/8lpb//JaW//yWlv/8lpb//JaW//yW + lv/8lpb/AAAApAAAABgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA2+mpD/zKyZ/8ic + iv/5k5P/+ZOT//mTk//5k5P/+ZOT/6xlZecAAACgAAAAKwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACYa2l30bSi/8Wkj//rlZD/+ZOT//mTk//5k5P/+ZOT//mT + k//5k5P/+ZOT//mTk//5k5P/AAAAgwAAABUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFkg2 + NHTAoJH5zp+O//SSkP/3kZH/95GR//eRkf/3kZH/95GR//eRkf8VDQ26AAAAZwAAABIAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACmgXubz7Ce/8Ogi//zkpD/95GR//eR + kf/3kZH/95GR//eRkf/3kZH/95GR//OSkP/pkI3kAAAAFgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAWb1ZSn8urmf/Wmo3/9Y+P//WPj//1j4//9Y+P//WPj//1j4//9Y+P//WPj/+bWlrjAAAAoQAA + AD8AAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAa5lozny6yY/9GZ + iv/1j4//9Y+P//WPj//1j4//9Y+P/756duuWf3Gto4N2XY13ahcAAAABAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAmhg3qryKeV/9eWiv/yjIz/8oyM//KMjP/yjIz/8oyM//KMjP/yjIz/8oyM//KM + jP/yjIz/OiEhyQAAAIkAAAAuAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHRO + TlTLq5z/xqSQ/+WQiv/yjIz/8oyM//KMjP/yjIz/8oyM/102NtAAAACFAAAAIgAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAJZkZGLStaT/x6aS/9KVh//wior/8IqK//CKiv/wior/8IqK//CK + iv/wior/8IqK//CKiv/wior/2Hx89xUMDLwAAACAAAAALQAAAAYAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAADaqIf9TMrJn/0JiJ//CKiv/wior/8IqK//CKiv/wior/8IqK/8x1dfMAAACyAAAAawAA + AB4AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlmZiDCnpP/y6yY/8Wdif/riYj/7oiI/+6I + iP/uiIj/7oiI/+6IiP/uiIj/7oiI/+6IiP/uiIj/7oiI/8pzc/MUDAy7AAAAgwAAAD0AAAAQAAAAAwAA + AAAAAAAAAAAAAAAAAAAAAAAMfF1Zh8ytnP/MnYz/64mH/+6IiP/uiIj/7oiI/+6IiP/uiIj/7oiI/+6I + iP+kXV3nAAAArQAAAGsAAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACzi4Sx0LKg/8Wk + j//bjob/7IaG/+yGhv/shob/7IaG/+yGhv/shob/7IaG/+yGhv/shob/7IaG/+yGhv/IcXHzOCAgyAAA + AKAAAABjAAAAMAAAABYAAAANAAAADAAAABlLOTZuwqKU+Myejf/ph4X/7IaG/+yGhv/shob/7IaG/+yG + hv/shob/7IaG/+yGhv/shob/olxc5wAAAKwAAABWAAAADQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACZZmZAza2f/8qql//Gmof/6YOD/+mDg//pg4P/6YOD/+KJhf/hh4P/6YOD/+mDg//pg4P/6YOD/+mD + g//pg4P/6YOD/4VKSt8nFha9AAAApgAAAIsAAABtAAAAZ1hHQqq+moz61pKI/+aEg//pg4P/6YOD/+mD + g//pg4P/6YOD/+mDg//pg4P/6YOD/+mDg//pg4P/6YOD/5dVVdwAAABLAAAACQAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAt5CIwNCxoP/GpI//1o2D/+F9fdXKdXWXy6GV/8url//EnYn/5YOB/+eB + gf/ngYH/54GB/+eBgf/ngYH/54GB/+eBgf/ngYH/xW5u85JRUeGHS0varWto7N6OiP/ngYH/54GB/+eB + gf/ngYH/54GB/+eBgf/ngYH/54GB/+eBgf/ngYH/54GB/+eBgf/ngYH/54GB/3VBQb4AAAAlAAAAAQAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmWZmMMmqnIKxlINJAAAABgAAAAAAAAAAr4yEmdCy + oP/Foo3/3YR//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/ + f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//5X9//+V/f//lf3//23p6+iIT + E2oAAAANAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAADsY2E2M2tm//Fmof/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8 + fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/4nx8/+J8fP/ifHz/2Y2G/8uXh//ZhH7/4nx8/+J8 + fP/ifHz/lFFRxAAAACcAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAB3UFApyaia/8molP/OjYH/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6 + ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/4Hp6/+B6ev/genr/wJeN+s6v + nf/GpZD/zZGD/9x+e//VdHTqPSEhOgAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACcdG970bOh/8Wjjv/Xfnr/3Xd3/913d//dd3f/3Xd3/913 + d//dd3f/3Xd3/913d//dd3f/3Xd3/913d//dd3f/3Xd3/913d//dd3f/3Xd3/913d//dd3f/3Xd3/913 + d//dd3f/ZTY202tPTLTEopbjw6WTtreWgoipW1sqAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC1kIfUza2b/8WZhv/bdXX/23V1/9t1 + df/bdXX/23V1/9t1df/Yenj/zol+/9l3dv/bdXX/23V1/9t1df/bdXX/23V1/9t1df/bdXX/23V1/9t1 + df/bdXX/23V1/9t1df/bdXX/olZW6wAAAKEAAAAlAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADCn5T/zKyZ/8Sd + if/Uenb/2XNz/9lzc//Zc3P/2XNz/9lzc//TqJr/yKeT/8uKfv/Zc3P/2XNz/9lzc//Zc3P/2XNz/9lz + c//RjYP/zId9/9lzc//Zc3P/2XNz/9lzc//Zc3P/2XNz/xQKCrQAAABCAAAABwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACkdXJgyaib/8ysmf/Fnor/z353/9ZwcP/WcHD/1nBw/5FSUr/Fo5b/yqmW/8aSgf/WcHD/1nBw/9Zw + cP/WcHD/1nBw/9Z9ev/Nrpv/w6GL/9B6df/WcHD/1nBw/9ZwcP/WcHD/1nBw/1ovL74AAABJAAAACgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAroN+MMKglODOr53/xaOP/8mIfP/TcW//sVxcvgAAAB/Cn5T/y6yZ/8SY + hf/Ubm7/1G5u/9Rubv/Ubm7/1G5u/8lxcP/QsqL/yqmW/8WVg//Ubm7/1G5u/9Rubv/Ubm7/1G5u/5lP + T5sAAAASAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJlmZhC1jIWvxqaX4b+fi6e4hXd4hkREGQAA + AAG7lYzhza6b/8Kfif/Ra2v/0Wtr/9Fra//Ra2v/0Wtr/3s/P9mhe3bV0LKh/8alkP/Ig3j/0Wtr/9Fr + a//MaGj1nVBQawAAAAkAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAC1j4bCz7Ce/8ShjP/Mc27/0Gpq/9Bqav/Qamr/0Gpq/3U8PMY7JydTxKKW8M2t + m//DoIv/xnFs5b5hYYx8Pz8bAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC0jIWQ0LKh/8akj//Hgnf/ynFs/81nZ//NZ2f/zWdn/39A + QGcAAAAKpnd0UMqunmSiiHkoAAAAAwAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAC5koogvZmOgcSmlpS5lIjCw6OTxMWm + k7W2loN5pYZzOAAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA//4AAf//AAD/+AAB//8AAP/wAAAP/wAA/+AAAAf/ + AAD/4AAAA/8AAP/gAAAB/wAA/wAAAAD/AAD+AAAAAf8AAPwAAAAB/wAA+AAAAAH/AAD4AAAAAB8AAPAA + AAAADwAA8AAAAAAPAADwAAAAAAcAAPgAB8AABwAA/AAP4AADAAD4AA/wAAMAAPAAH/gABwAA4AAf/AAP + AADgAD/+AB8AAOAAP/4ABwAA4AA//wADAADgAD//AAEAAOAAP/8AAQAA4AAf/wABAADgAB//AAEAAPwA + H/8AAQAA/gAP/wABAAD8AA//AAMAAPgAB/4ABwAA8AAD/gAfAADwAAH8AA8AAPAAAHgABwAA+AAAAAAD + AAD4AAAAAAMAAPwAAAAAAwAA/DAAAAAHAAD/4AAAAAcAAP/gAAAADwAA/+AAAAAfAAD/4AAAAP8AAP/g + AAAA/wAA/+AAAAD/AAD/8AAAAf8AAP/4AAAD/wAA///wAAf/AAD///AAP/8AAP//8Af//wAAKAAAACAA + AABAAAAAAQAgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAIAAAALAAAAEwAAABkAAAANAAAAPQAAAGcAAAB7AAAAcQAAAFgAAAAfAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAEAAAANAAAAKwAAAFkUEBCHAAAAgmFSSnyMc2rDsY6O4Z+AgN6AZmbTJB0drAAA + AE4AAAANAAAACwAAAA0AAAAFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAABAAAADTUrJ2R4YVjGxJ6X7t+xsPRIOTjIrY6C7c6pmP/5xcP//8vL///K + yv99Y2PTAAAAbAAAADoAAABVAAAAXwAAADgAAAAOAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAIBQUwihfXZ5xKKS9fK9uf//yMn//8fH/9moqPPGpJb91Kyd//3E + xP//x8f//83N/4ZjZOAnHhyseGVZw598eNxJOTnEAAAAlAAAAFEAAAAPAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAKAAAAGa2KgMvOrZn/7bix///Fxv//w8P//8PE/+e3 + rv/qt6///8PE///Dw///x8f/wpOS8pl+cfDitKf//8PE/+21tflxVlbWAwICmgAAAC4AAAAFAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAADh0ZFlcmHBuJZEpIvMGmkv7crqH//8LC///A + wP//wMD//8HB///AwP//wMD//8DA///AwP/+wL//77iy//2+vf//wMD//8DA//2+vv5QPDypAAAAJQAA + AAMAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAASIbGWIq41+5tqioPKqfHzpxKWU/NSq + mv/+u7r//7y9//+8vP//vLz//7y8//+8vP//vLz//7y8//+8vf//vb7//729//+8vP//vLz/5Kio9Tgq + KoMAAAATAAAABQAAAAcAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAelVUP8Skkv7lraT//7m6//+6 + u//4t7X/9bWx//+5uf//ubn//7m5//+5uf//ubr//7m6//+6u///ubr//7m5//+5uf//ubn//7m5//+5 + uf+vf3/hAAAAcgAAACwAAAA2AAAAPQAAABAAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAGwjIK+0auZ//my + r///trf//7W1//+2tv//trb//7W1//+1tf//trb//rS0//axsP/wtK7/8LGr//izsP//trf//7W2//+1 + tf//tbX//7W1/5xvb+EUEA+wUTs5rmxLS8EIBgaeAAAAQwAAAAcAAAAAAAAAAAAAAAAAAAAAl2NkBsCd + kNnPq5j/8a2n//+ztP//srL//7Ky//+ysv//srL//7Ky//esrPrGioqYxZGOTLePh2XBnZDDzqiY/96r + nv/4r6z//7Kz//+ysv//srL/9aqq+9mZmPTvqKf7/rCw/1U7O8sAAAB7AAAAFgAAAAAAAAAAAAAAAAAA + AACVX2EBoXNwRcGgkuvNqJX/8aql//+vr///rq7//66u//+urv/soaH3bUtLcwAAAA4AAAAAAAAAAAAA + AACsg3xYxKaW5M2mlP/uqaP//6+w//+urv//rq7//66v//+vr///rq7/x4iI7QAAAJkAAAApAAAABAAA + AAAAAAAAAAAAAAAAAAEAAAAXbVFPXL+llO3PpZP/+aqo//+srP//rKz//qur/4teXrYAAAAcAAAAAAAA + AAAAAAAAAAAAAAAAAAC5lIs8xaaW6M2nlP/0qKX//6yt//+srP//rKz//6ys//+srP/6qan8Vzo6hAAA + ABYAAAABAAAAAAAAAAAAAAAATEE7GEExLYZJLzC0tI2D8+KonP/8p6X//6io//+oqP/Zj4/vAAAAXgAA + AAsAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACwhX9hx6qY/tWjlP/+p6f//6io//+oqP//qKj//6io/8mE + hMZAKiokAAAAAQAAAAAAAAAAAAAAAAAAAAC9oJCzz56P+P+np///pqb//6Wm//+lpf//paX//6Wl/5Nf + X9QAAAA9AAAABQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJZiYwK5k4rAyKqV/+uimv//pab//6Wl//+l + pf+haWnaBgQEWQAAABYAAAAIAAAAAAAAAAAAAAAAAAAAAMKikv/WopP//6Gh//+hof//oaH//6Gh//+h + of//oaH/TDExvwAAADUAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJ9xb1PLrpv/16CS//+h + ov//oaH//6Gh/2I9PdIAAACaAAAAbAAAAEUAAAAIAAAAAAAAAAAAAAAAwJ6P/9ihkv//np7//56e//+e + nv//np7//56e//+env9FKyu9AAAAOgAAAAUAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAondzHcOj + lerNpJH//Z2e//+env//np7/6ZCQ+KVmZuNoQEDNAAAAlwAAABgAAAAAAAAAAAAAAADEo5T10qKR//ud + mv//mpr//5qb//+bm///m5v//5ub/0YqKsEAAABSAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AACldnMQuJSJzM6plf/2mpf//5ub//+bm///m5v//5ub//+bm/8AAACnAAAAGAAAAAAAAAAAAAAAAL6Z + j1W+nY+qxZ6P3Najlf/om5P//ZiX//6YmP/+mJj/eEhI1AAAAHUAAAASAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAGsiICxz6uY//OXk///mJj//piY//6YmP/+mJj//piY/wAAAKMAAAAYAAAAAAAA + AAAAAAAAAAAAAAAAAAB2VlQuuJ2O6M2lkv/zlJH//JSU//qUlP+waGjoAAAAmwAAAC8AAAADAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAhVxbDLGOhMfPqZX/9pOS//uUlP/6lJT/+5SU//yTlP/7k5T/AAAAewAA + ABMAAAAAAAAAAAAAAAAAAAAAAAAADGFPSXu8loj26ZeQ//eRkP/3kZH/95GR/+qKivslFRW8AAAAawAA + ABcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACPb2keupyO6dSgkP/4kJD/95GR//iRkf/sj4393o2J7OWR + jNcAAAAVAAAAAAAAAAAAAAAAAAAAAAAAAASUeHB0xZ2O9uuSjv/2jI3/9I6O//SOjv/0jo7/9I6O/6Nf + X+UAAACkAAAAUgAAABMAAAAAAAAAAAAAAAAAAAAAAAAAAIRiX1vHrJj/4pSL//WNjv/0jo7/94uN/nFR + TNYdGxd7AAAAHAAAAAAAAAAAAAAAAAAAAAAAAAAAnmxsJ8OllfTRn47/74mJ//GKiv/wior/8IqK//CK + iv/wior/64eH/Wo9PdYAAACgAAAAVwAAABoAAAAHAAAAAQAAAAEAAAAXo4Z809Ghkf/tion/8YqK//CK + iv/wiYn/k1dW4wAAAKkAAABkAAAAFQAAAAAAAAAAAAAAAAAAAACXZGQCuJOJycqqlv/gi4b/7oWG/+2G + hv/uhYb/7YaG/+yGhv/shob/6YSE/nNCQtoAAACqAAAAeQAAAEMAAAAhAAAAJ4BoYazPopL/5oqG/+6G + hv/shob/7IaG/+yGhv/uhob/k1JT4gIBAaAAAAA4AAAABwAAAAAAAAAAAAAAAAAAAACidHJSyauZ/9CX + if/pgoL/54aF/92Siv/fioT/6oKD/+mDg//pg4P/6YOD/69iYutRLS3MCwYGrw4LCqR8YVnP0JGI/eWG + g//qgoP/6YOD/+mDg//pg4P/6YOD/+mDg//mgYH+YTY2uQAAAC4AAAAEAAAAAAAAAAAAAAAAAAAAAJlm + Zgi/m5CawqGOoMlzcFGycW9UwKaV986aiv/jf37/5X9//+V/f//lf3//5YCA/+N/f/7benr72nx7++SC + gf/mf3//5n5//+V/f//lf4D/5H9//+V9fv/mfn//5YB//9p6evpLKiqDAAAAEwAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAI9jYT6/o5P40pCF/+N5ev/he3v/4Xt7/+F7e//he3v/4Xt7/+F7 + e//ie3v/4nt7/+F7e//he3v/4Xt7/+J5ev/ZjIb/0ZyN/9uEf//ienv/sGFhxAAAACUAAAACAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAABoH12lMunlf/WgXv/33Z3/954eP/eeHj/3nZ2/992 + d//eeHj/3nh4/954eP/eeHj/3nd3/954eP/eeHj/4Hd3/65paPCUe3Dcv5yL5MmCeqmJSkokAAAAAgAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAJVpaA+6mYzQy6GO/9h1c//bc3T/2nR0/9p1 + df/TjYP/04F6/9p0dP/adHT/2nR0/9p1df/YeHb/2nR0/9p0dP/adHT/vGJj8hMLDK0AAAA6AAAABwAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAn25tCreQh5nLrZn/zI6B/9Vx + cP/Zb3D/t2Zm5sqtm/nIk4P/1nBw/9dwcf/Xbm//1oB8/8qgjv/ReXT/2G9w/9dxcf/YcXH/TyorrQAA + ADQAAAAGAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAmGRlAriS + in7GqJftx5SF9MNraMR7SUpOv6WW78mYh//Sb23/02xt/9Vra//AcnD4v6mX+smVhf/TbGz/021t/8lo + aO6FRUVlAAAACgAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAMCckja+o5BAj1lTFAAAAAG/oZTqyZ+M/85sav/PZmb/0mZn/4VKSsWfgnmsy62a/8d+ + dfC9XV6eoFJSNwAAAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAu4B8AbqXjaLFpJLnxYZ88cp+d+zJe3PUmFdVS2xL + TBXGrZw0pXBmFwAAAAEAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAD/gAf//gAA//wA + AH/8AAA/+AAAH/AAAB/gAAAH4AAAA8AAAAPAAAADwAOAAcAHwAHAB+ADwAfgA8AH8AHAB/ABwAfwAcAH + 8AHwA/AB4APwA8AB8AfAAAADwAAAAeAAAAHgAAAD/gAAA/wAAAf8AAAf/AAAH/4AAD//gAB///AB/ygA + AAAQAAAAIAAAAAEAIAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAHAAA + AD0AAAAiAAAAdgAAAKwAAABuAAAAIgAAAD0AAAAcAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAFWJJ + SacAAACgoXl5ysyZmf+DYmLfAAAAmGRLS6MAAAChAAAAfwAAABUAAAAAAAAAAAAAAAAAAAABAAAAFseV + leTMmZn/dllZ3a+Dg/HMmZn/roOD8oJhYeHMmZn/uYuL9gAAAJEAAAAnAAAAFgAAAAEAAAABAAAAJQAA + AIa1iIjqzJmZ/8yZmf/MmZn/zJmZ/8yZmf/MmZn/zJmZ/66CgvMAAACwAAAAkgAAAIYAAAAniGZmGMmX + l/OyhYXuroOD8syZmf/MmZn/zJmZ/8OSksjMmZn/zJmZ/8yZmf/Ek5P5roKC88KSkvsTDg6pAAAARsyZ + mWDMmZn/zJmZ/8yZmf/MmZn/jWpqogAAABUAAAAAzJmZEMyZmYDMmZn/zJmZ/8yZmf/MmZn/dVhYqAAA + ACUAAAAQmXNzv8yZmf/MmZn/c1ZWxwAAACEAAAAAAAAAAAAAAAAAAAAAzJmZcMyZmf/MmZn/dllZ3AAA + AJoAAAB9w5KSt7SHh+vMmZn/wpKS+wAAAIwAAAASAAAAAAAAAAAAAAAAAAAAAAAAAADLmJjwzJmZ/66D + g/Kac3PoAAAArMyZmf/MmZn/zJmZ/6V8fO0AAACbAAAAIgAAAAAAAAAAAAAAAAAAAAAAAAABwZGRysyZ + mf/MmZn/zJmZ/wAAAGfMmZmAwZGRysyZmf/DkpL6AAAAsgAAAGAAAAAZAAAAAQAAAAAAAAADVD8/J8yZ + mf/MmZn/pXx87YlnZ78AAAAtgmJiGa+Dg7nMmZn/zJmZ/3ZYWN4AAACpAAAAZwAAACsAAAAcAAAAMZFt + bbTMmZn/zJmZ/45ra+QTDg6qAAAAT8qYmHHMmZn/zJmZ/8yZmf/MmZn/gWFh4hINDboAAACpJRwcsoZk + ZNrMmZn/zJmZ/8yZmf/MmZn/gGBgsgAAACXMmZkQzJmZz8OSkqbHlZXkzJmZ/8yZmf/MmZn/zJmZ/8yZ + mf/MmZn/zJmZ/7iKiveXcXHXxpSU1mBISCIAAAABAAAAAAAAAAAAAAABypeX4syZmf/MmZn/zJmZ/8yZ + mf/MmZn/zJmZ/8yZmf+8jY3yAAAAfAAAABkAAAABAAAAAAAAAAAAAAAAzJmZEMyZmc/MmZn/lnBwbcaU + lMXMmZn/rIGB44RjY5TMmZn/xZSU11ZAQCYAAAABAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAzJmZMAAA + AATMmZmAzJmZ/7aJiX0AAAAKzJmZMAAAAAQAAAAAAAAAAAAAAAAAAAAA8AcAAOADAACAAAABAACCvgAA + mf8BAK//A8C3/wPgtf8DwLb/AIC2/wAAtf8AALX/AAC2/8ABtP/AA7D/8A+u/w== + - + NoControl - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - ... - - - 426, 34 - - - 0 - - - 1 - - - TabControl1 - - - 4, 22 - - - 157, 77 - - - Label5 - - - 1 - - - TabPage1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 46 - - - TabControl1 - - - MiddleRight - - - btnApplicationFolder - - - 2 - - - cmbLanguage - - - Aktueller ConnectionString: - - - 4, 4, 4, 4 - - - 9 - - - 5 - - - 192, 153 - - - 4 - - - BtnConnect - - - TabPage1 - - - GroupBox5 - - - True - - - 201, 17 - - - 481, 73 + + CenterScreen - - MiddleRight + + User-Grundeinstellungen - - GroupBox5 + + frmConfig_Basic - - 46 + + System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - True - - - en-US - \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmConfig_Basic.vb b/app/DD-Record-Organiser/frmConfig_Basic.vb index 194580b..b6eacd2 100644 --- a/app/DD-Record-Organiser/frmConfig_Basic.vb +++ b/app/DD-Record-Organiser/frmConfig_Basic.vb @@ -3,6 +3,7 @@ Imports System.Globalization Public Class frmConfig_Basic Dim formloaded As Boolean = False + Private email As New ClassEmail Private Sub BtnConnect_Click(sender As Object, e As EventArgs) Handles BtnConnect.Click Try Dim con As String @@ -378,4 +379,11 @@ Public Class frmConfig_Basic Private Sub txtTask_Popup_TextChanged(sender As Object, e As EventArgs) Handles txtTask_Popup.TextChanged SaveMySettingsValue("Task_Popup_minutes", txtTask_Popup.Text, "ConfigMain") End Sub + + Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click + If email.Send_Log_Mail(" Log-/SupportMail Record-Organizer.

", _ + "Support-Mail Record-Organizer", "support@didalog.de", "mail.triplew.de", "support@didalog.de", "ddemail40", "support@didalog.de") = True Then + MsgBox("Log Mail was sent to Digital Data!", MsgBoxStyle.Information, "Success!") + End If + End Sub End Class \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb b/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb index 1a17e90..987c616 100644 --- a/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb +++ b/app/DD-Record-Organiser/frmConstructorDesigner.Designer.vb @@ -51,8 +51,8 @@ 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 DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() - Dim DataGridViewCellStyle2 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle() + Dim DataGridViewCellStyle4 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() @@ -142,6 +142,13 @@ Partial Class frmConstructorDesigner Me.XtraTabPage2 = New DevExpress.XtraTab.XtraTabPage() Me.TabControl1 = New System.Windows.Forms.TabControl() Me.TabPage1 = New System.Windows.Forms.TabPage() + Me.GridControlUserSQL = New DevExpress.XtraGrid.GridControl() + Me.TBWH_Users1BindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GridViewUserSQL = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn6 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colID1 = New DevExpress.XtraGrid.Columns.GridColumn() Me.Label12 = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label() Me.dgvResult = New System.Windows.Forms.DataGridView() @@ -160,8 +167,6 @@ Partial Class frmConstructorDesigner Me.SQL_COMMANDTextBox = New System.Windows.Forms.TextBox() Me.GUIDTextBox = New System.Windows.Forms.TextBox() Me.Label10 = New System.Windows.Forms.Label() - Me.txtSearchUser = New System.Windows.Forms.TextBox() - Me.lbxUserSQL = New System.Windows.Forms.ListBox() Me.TabPage2 = New System.Windows.Forms.TabPage() Me.XtraTabPage6 = New DevExpress.XtraTab.XtraTabPage() Me.btndeleteEntityfromClient = New System.Windows.Forms.Button() @@ -196,7 +201,13 @@ Partial Class frmConstructorDesigner Me.btnChangeHOMESTANDARD = New System.Windows.Forms.Button() Me.TableAdapterManager3 = New DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager() Me.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter = New DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter() - Me.chksbxUserConstructor = New System.Windows.Forms.CheckedListBox() + Me.GridControlUsers2Menue = New DevExpress.XtraGrid.GridControl() + Me.TBAD_UsersBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GridViewlUsers2Menue = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colSelect = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colID = New DevExpress.XtraGrid.Columns.GridColumn() GUIDLabel = New System.Windows.Forms.Label() FORM_TITLELabel = New System.Windows.Forms.Label() SEQUENCE_MENULabel = New System.Windows.Forms.Label() @@ -244,6 +255,9 @@ Partial Class frmConstructorDesigner Me.XtraTabPage2.SuspendLayout() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() + CType(Me.GridControlUserSQL, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBWH_Users1BindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewUserSQL, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPMO_CONSTRUCTOR_USER_SQLBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() @@ -254,6 +268,9 @@ Partial Class frmConstructorDesigner CType(Me.TBTEMP_QUICKDISPLAYBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPMO_FORM_CONSTRUCTORBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewlUsers2Menue, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'GUIDLabel @@ -419,13 +436,13 @@ Partial Class frmConstructorDesigner ' 'TBPMO_FORM_CONSTRUCTORBindingNavigator ' + resources.ApplyResources(Me.TBPMO_FORM_CONSTRUCTORBindingNavigator, "TBPMO_FORM_CONSTRUCTORBindingNavigator") Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.AddNewItem = Me.BindingNavigatorAddNewItem Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.BindingSource = Me.TBPMO_FORM_CONSTRUCTORBindingSource Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.CountItem = Me.BindingNavigatorCountItem Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.CountItemFormat = "from {0} records" Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.DeleteItem = Me.BindingNavigatorDeleteItem Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.BindingNavigatorAddNewItem, Me.BindingNavigatorDeleteItem, Me.TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem}) - resources.ApplyResources(Me.TBPMO_FORM_CONSTRUCTORBindingNavigator, "TBPMO_FORM_CONSTRUCTORBindingNavigator") Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem Me.TBPMO_FORM_CONSTRUCTORBindingNavigator.MoveNextItem = Me.BindingNavigatorMoveNextItem @@ -435,37 +452,37 @@ Partial Class frmConstructorDesigner ' 'BindingNavigatorAddNewItem ' - Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image resources.ApplyResources(Me.BindingNavigatorAddNewItem, "BindingNavigatorAddNewItem") + Me.BindingNavigatorAddNewItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.BindingNavigatorAddNewItem.Name = "BindingNavigatorAddNewItem" ' 'BindingNavigatorCountItem ' - Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" resources.ApplyResources(Me.BindingNavigatorCountItem, "BindingNavigatorCountItem") + Me.BindingNavigatorCountItem.Name = "BindingNavigatorCountItem" ' 'BindingNavigatorDeleteItem ' - Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image resources.ApplyResources(Me.BindingNavigatorDeleteItem, "BindingNavigatorDeleteItem") + Me.BindingNavigatorDeleteItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.BindingNavigatorDeleteItem.Name = "BindingNavigatorDeleteItem" ' 'BindingNavigatorMoveFirstItem ' - Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image resources.ApplyResources(Me.BindingNavigatorMoveFirstItem, "BindingNavigatorMoveFirstItem") + Me.BindingNavigatorMoveFirstItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.BindingNavigatorMoveFirstItem.Name = "BindingNavigatorMoveFirstItem" ' 'BindingNavigatorMovePreviousItem ' - Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image resources.ApplyResources(Me.BindingNavigatorMovePreviousItem, "BindingNavigatorMovePreviousItem") + Me.BindingNavigatorMovePreviousItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.BindingNavigatorMovePreviousItem.Name = "BindingNavigatorMovePreviousItem" ' 'BindingNavigatorSeparator ' - Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" resources.ApplyResources(Me.BindingNavigatorSeparator, "BindingNavigatorSeparator") + Me.BindingNavigatorSeparator.Name = "BindingNavigatorSeparator" ' 'BindingNavigatorPositionItem ' @@ -474,30 +491,30 @@ Partial Class frmConstructorDesigner ' 'BindingNavigatorSeparator1 ' - Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" resources.ApplyResources(Me.BindingNavigatorSeparator1, "BindingNavigatorSeparator1") + Me.BindingNavigatorSeparator1.Name = "BindingNavigatorSeparator1" ' 'BindingNavigatorMoveNextItem ' - Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image resources.ApplyResources(Me.BindingNavigatorMoveNextItem, "BindingNavigatorMoveNextItem") + Me.BindingNavigatorMoveNextItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.BindingNavigatorMoveNextItem.Name = "BindingNavigatorMoveNextItem" ' 'BindingNavigatorMoveLastItem ' - Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image resources.ApplyResources(Me.BindingNavigatorMoveLastItem, "BindingNavigatorMoveLastItem") + Me.BindingNavigatorMoveLastItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.BindingNavigatorMoveLastItem.Name = "BindingNavigatorMoveLastItem" ' 'BindingNavigatorSeparator2 ' - Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" resources.ApplyResources(Me.BindingNavigatorSeparator2, "BindingNavigatorSeparator2") + Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2" ' 'TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem ' - Me.TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image resources.ApplyResources(Me.TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem, "TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem") + Me.TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image Me.TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem.Name = "TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem" ' 'TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource @@ -507,22 +524,22 @@ Partial Class frmConstructorDesigner ' 'TreeViewDetails ' + resources.ApplyResources(Me.TreeViewDetails, "TreeViewDetails") Me.TreeViewDetails.AllowDrop = True Me.TreeViewDetails.ContextMenuStrip = Me.cmstrpEntity - resources.ApplyResources(Me.TreeViewDetails, "TreeViewDetails") Me.TreeViewDetails.ImageList = Me.ImageList1 Me.TreeViewDetails.Name = "TreeViewDetails" ' 'cmstrpEntity ' + resources.ApplyResources(Me.cmstrpEntity, "cmstrpEntity") Me.cmstrpEntity.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.FormDesignerToolStripMenuItem}) Me.cmstrpEntity.Name = "cmstrpEntity" - resources.ApplyResources(Me.cmstrpEntity, "cmstrpEntity") ' 'FormDesignerToolStripMenuItem ' - Me.FormDesignerToolStripMenuItem.Name = "FormDesignerToolStripMenuItem" resources.ApplyResources(Me.FormDesignerToolStripMenuItem, "FormDesignerToolStripMenuItem") + Me.FormDesignerToolStripMenuItem.Name = "FormDesignerToolStripMenuItem" ' 'ImageList1 ' @@ -533,82 +550,82 @@ Partial Class frmConstructorDesigner ' 'CONSTRUCTOR_IDTextBox ' + resources.ApplyResources(Me.CONSTRUCTOR_IDTextBox, "CONSTRUCTOR_IDTextBox") Me.CONSTRUCTOR_IDTextBox.BackColor = System.Drawing.Color.WhiteSmoke Me.CONSTRUCTOR_IDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "GUID", True)) - resources.ApplyResources(Me.CONSTRUCTOR_IDTextBox, "CONSTRUCTOR_IDTextBox") Me.CONSTRUCTOR_IDTextBox.Name = "CONSTRUCTOR_IDTextBox" Me.CONSTRUCTOR_IDTextBox.ReadOnly = True ' 'FORM_TITLETextBox ' - Me.FORM_TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "FORM_TITLE", True)) resources.ApplyResources(Me.FORM_TITLETextBox, "FORM_TITLETextBox") + Me.FORM_TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "FORM_TITLE", True)) Me.FORM_TITLETextBox.Name = "FORM_TITLETextBox" ' 'SEQUENCE_MENUNumericUpDown ' - Me.SEQUENCE_MENUNumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "SEQUENCE_MENU", True)) resources.ApplyResources(Me.SEQUENCE_MENUNumericUpDown, "SEQUENCE_MENUNumericUpDown") + Me.SEQUENCE_MENUNumericUpDown.DataBindings.Add(New System.Windows.Forms.Binding("Value", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "SEQUENCE_MENU", True)) Me.SEQUENCE_MENUNumericUpDown.Name = "SEQUENCE_MENUNumericUpDown" ' 'SHORT_TITLETextBox ' - Me.SHORT_TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "SHORT_TITLE", True)) resources.ApplyResources(Me.SHORT_TITLETextBox, "SHORT_TITLETextBox") + Me.SHORT_TITLETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "SHORT_TITLE", True)) Me.SHORT_TITLETextBox.Name = "SHORT_TITLETextBox" ' 'ADDED_WHOTextBox ' + resources.ApplyResources(Me.ADDED_WHOTextBox, "ADDED_WHOTextBox") Me.ADDED_WHOTextBox.BackColor = System.Drawing.Color.WhiteSmoke Me.ADDED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "ADDED_WHO", True)) - resources.ApplyResources(Me.ADDED_WHOTextBox, "ADDED_WHOTextBox") Me.ADDED_WHOTextBox.Name = "ADDED_WHOTextBox" Me.ADDED_WHOTextBox.ReadOnly = True ' 'ADDED_WHENTextBox ' + resources.ApplyResources(Me.ADDED_WHENTextBox, "ADDED_WHENTextBox") Me.ADDED_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke Me.ADDED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "ADDED_WHEN", True)) - resources.ApplyResources(Me.ADDED_WHENTextBox, "ADDED_WHENTextBox") Me.ADDED_WHENTextBox.Name = "ADDED_WHENTextBox" Me.ADDED_WHENTextBox.ReadOnly = True ' 'CHANGED_WHOTextBox ' + resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox") Me.CHANGED_WHOTextBox.BackColor = System.Drawing.Color.WhiteSmoke Me.CHANGED_WHOTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "CHANGED_WHO", True)) - resources.ApplyResources(Me.CHANGED_WHOTextBox, "CHANGED_WHOTextBox") Me.CHANGED_WHOTextBox.Name = "CHANGED_WHOTextBox" Me.CHANGED_WHOTextBox.ReadOnly = True ' 'CHANGED_WHENTextBox ' + resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox") Me.CHANGED_WHENTextBox.BackColor = System.Drawing.Color.WhiteSmoke Me.CHANGED_WHENTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "CHANGED_WHEN", True)) - resources.ApplyResources(Me.CHANGED_WHENTextBox, "CHANGED_WHENTextBox") Me.CHANGED_WHENTextBox.Name = "CHANGED_WHENTextBox" Me.CHANGED_WHENTextBox.ReadOnly = True ' 'GUIDTextBox1 ' + resources.ApplyResources(Me.GUIDTextBox1, "GUIDTextBox1") Me.GUIDTextBox1.BackColor = System.Drawing.Color.WhiteSmoke Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "GUID", True)) - resources.ApplyResources(Me.GUIDTextBox1, "GUIDTextBox1") Me.GUIDTextBox1.Name = "GUIDTextBox1" Me.GUIDTextBox1.ReadOnly = True ' 'LEVEL1_SELECTCheckBox ' - Me.LEVEL1_SELECTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "LEVEL1_SELECT", True)) resources.ApplyResources(Me.LEVEL1_SELECTCheckBox, "LEVEL1_SELECTCheckBox") + Me.LEVEL1_SELECTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "LEVEL1_SELECT", True)) Me.LEVEL1_SELECTCheckBox.Name = "LEVEL1_SELECTCheckBox" Me.LEVEL1_SELECTCheckBox.UseVisualStyleBackColor = True ' 'WINDREAM_SEARCHTextBox ' + resources.ApplyResources(Me.WINDREAM_SEARCHTextBox, "WINDREAM_SEARCHTextBox") Me.WINDREAM_SEARCHTextBox.BackColor = System.Drawing.SystemColors.Info Me.WINDREAM_SEARCHTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "WINDREAM_SEARCH", True)) - resources.ApplyResources(Me.WINDREAM_SEARCHTextBox, "WINDREAM_SEARCHTextBox") Me.WINDREAM_SEARCHTextBox.Name = "WINDREAM_SEARCHTextBox" ' 'XtraTabControl1 @@ -620,12 +637,12 @@ Partial Class frmConstructorDesigner ' 'XtraTabPage1 ' + resources.ApplyResources(Me.XtraTabPage1, "XtraTabPage1") Me.XtraTabPage1.Controls.Add(Me.XtraTabControl2) Me.XtraTabPage1.Controls.Add(Me.StatusStrip1) Me.XtraTabPage1.Controls.Add(Me.ToolStrip1) Me.XtraTabPage1.Controls.Add(Me.TreeViewDetails) Me.XtraTabPage1.Name = "XtraTabPage1" - resources.ApplyResources(Me.XtraTabPage1, "XtraTabPage1") ' 'XtraTabControl2 ' @@ -661,8 +678,8 @@ Partial Class frmConstructorDesigner ' 'LOAD_DIRECTCheckBox ' - Me.LOAD_DIRECTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "LOAD_DIRECT", True)) resources.ApplyResources(Me.LOAD_DIRECTCheckBox, "LOAD_DIRECTCheckBox") + Me.LOAD_DIRECTCheckBox.DataBindings.Add(New System.Windows.Forms.Binding("CheckState", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "LOAD_DIRECT", True)) Me.LOAD_DIRECTCheckBox.Name = "LOAD_DIRECTCheckBox" Me.LOAD_DIRECTCheckBox.UseVisualStyleBackColor = True ' @@ -673,9 +690,9 @@ Partial Class frmConstructorDesigner ' 'COLUMN_NAME1ComboBox ' + resources.ApplyResources(Me.COLUMN_NAME1ComboBox, "COLUMN_NAME1ComboBox") Me.COLUMN_NAME1ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "COLUMN_NAME1", True)) Me.COLUMN_NAME1ComboBox.FormattingEnabled = True - resources.ApplyResources(Me.COLUMN_NAME1ComboBox, "COLUMN_NAME1ComboBox") Me.COLUMN_NAME1ComboBox.Name = "COLUMN_NAME1ComboBox" ' 'Label2 @@ -685,45 +702,45 @@ Partial Class frmConstructorDesigner ' 'SQL_SELECT_EBENE1TextBox ' - Me.SQL_SELECT_EBENE1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SQL_SELECT_EBENE1", True)) resources.ApplyResources(Me.SQL_SELECT_EBENE1TextBox, "SQL_SELECT_EBENE1TextBox") + Me.SQL_SELECT_EBENE1TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SQL_SELECT_EBENE1", True)) Me.SQL_SELECT_EBENE1TextBox.Name = "SQL_SELECT_EBENE1TextBox" ' 'CHANGED_WHENTextBox1 ' + resources.ApplyResources(Me.CHANGED_WHENTextBox1, "CHANGED_WHENTextBox1") Me.CHANGED_WHENTextBox1.BackColor = System.Drawing.Color.WhiteSmoke Me.CHANGED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "CHANGED_WHEN", True)) - resources.ApplyResources(Me.CHANGED_WHENTextBox1, "CHANGED_WHENTextBox1") Me.CHANGED_WHENTextBox1.Name = "CHANGED_WHENTextBox1" Me.CHANGED_WHENTextBox1.ReadOnly = True ' 'CHANGED_WHOTextBox1 ' + resources.ApplyResources(Me.CHANGED_WHOTextBox1, "CHANGED_WHOTextBox1") Me.CHANGED_WHOTextBox1.BackColor = System.Drawing.Color.WhiteSmoke Me.CHANGED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "CHANGED_WHO", True)) - resources.ApplyResources(Me.CHANGED_WHOTextBox1, "CHANGED_WHOTextBox1") Me.CHANGED_WHOTextBox1.Name = "CHANGED_WHOTextBox1" Me.CHANGED_WHOTextBox1.ReadOnly = True ' 'SQL_SELECT_EBENE2TextBox ' - Me.SQL_SELECT_EBENE2TextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SQL_SELECT_EBENE2", True)) 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") Me.ADDED_WHENTextBox1.BackColor = System.Drawing.Color.WhiteSmoke Me.ADDED_WHENTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "ADDED_WHEN", True)) - resources.ApplyResources(Me.ADDED_WHENTextBox1, "ADDED_WHENTextBox1") Me.ADDED_WHENTextBox1.Name = "ADDED_WHENTextBox1" Me.ADDED_WHENTextBox1.ReadOnly = True ' 'ADDED_WHOTextBox1 ' + resources.ApplyResources(Me.ADDED_WHOTextBox1, "ADDED_WHOTextBox1") Me.ADDED_WHOTextBox1.BackColor = System.Drawing.Color.WhiteSmoke Me.ADDED_WHOTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "ADDED_WHO", True)) - resources.ApplyResources(Me.ADDED_WHOTextBox1, "ADDED_WHOTextBox1") Me.ADDED_WHOTextBox1.Name = "ADDED_WHOTextBox1" Me.ADDED_WHOTextBox1.ReadOnly = True ' @@ -801,8 +818,8 @@ Partial Class frmConstructorDesigner ' 'ListBoxConfiguredDisplay ' - Me.ListBoxConfiguredDisplay.FormattingEnabled = True resources.ApplyResources(Me.ListBoxConfiguredDisplay, "ListBoxConfiguredDisplay") + Me.ListBoxConfiguredDisplay.FormattingEnabled = True Me.ListBoxConfiguredDisplay.Name = "ListBoxConfiguredDisplay" ' 'Label6 @@ -828,11 +845,11 @@ Partial Class frmConstructorDesigner ' 'XtraTabPage4 ' + resources.ApplyResources(Me.XtraTabPage4, "XtraTabPage4") Me.XtraTabPage4.Controls.Add(Me.chkWDSearch_Active) Me.XtraTabPage4.Controls.Add(Me.grpbxWD_RecordSearch) Me.XtraTabPage4.Controls.Add(Me.GroupBox1) Me.XtraTabPage4.Name = "XtraTabPage4" - resources.ApplyResources(Me.XtraTabPage4, "XtraTabPage4") ' 'chkWDSearch_Active ' @@ -873,8 +890,8 @@ Partial Class frmConstructorDesigner ' 'txtWindreamsuche ' - Me.txtWindreamsuche.BackColor = System.Drawing.SystemColors.Info resources.ApplyResources(Me.txtWindreamsuche, "txtWindreamsuche") + Me.txtWindreamsuche.BackColor = System.Drawing.SystemColors.Info Me.txtWindreamsuche.Name = "txtWindreamsuche" ' 'Label15 @@ -968,53 +985,54 @@ Partial Class frmConstructorDesigner ' 'SEARCH_PATTERN4ComboBox ' + resources.ApplyResources(Me.SEARCH_PATTERN4ComboBox, "SEARCH_PATTERN4ComboBox") Me.SEARCH_PATTERN4ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SEARCH_PATTERN4", True)) Me.SEARCH_PATTERN4ComboBox.FormattingEnabled = True Me.SEARCH_PATTERN4ComboBox.Items.AddRange(New Object() {resources.GetString("SEARCH_PATTERN4ComboBox.Items"), resources.GetString("SEARCH_PATTERN4ComboBox.Items1"), resources.GetString("SEARCH_PATTERN4ComboBox.Items2")}) - resources.ApplyResources(Me.SEARCH_PATTERN4ComboBox, "SEARCH_PATTERN4ComboBox") Me.SEARCH_PATTERN4ComboBox.Name = "SEARCH_PATTERN4ComboBox" ' 'SEARCH_PATTERN1ComboBox ' + resources.ApplyResources(Me.SEARCH_PATTERN1ComboBox, "SEARCH_PATTERN1ComboBox") Me.SEARCH_PATTERN1ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SEARCH_PATTERN1", True)) Me.SEARCH_PATTERN1ComboBox.FormattingEnabled = True Me.SEARCH_PATTERN1ComboBox.Items.AddRange(New Object() {resources.GetString("SEARCH_PATTERN1ComboBox.Items"), resources.GetString("SEARCH_PATTERN1ComboBox.Items1"), resources.GetString("SEARCH_PATTERN1ComboBox.Items2")}) - resources.ApplyResources(Me.SEARCH_PATTERN1ComboBox, "SEARCH_PATTERN1ComboBox") Me.SEARCH_PATTERN1ComboBox.Name = "SEARCH_PATTERN1ComboBox" ' 'SEARCH_PATTERN3ComboBox ' + resources.ApplyResources(Me.SEARCH_PATTERN3ComboBox, "SEARCH_PATTERN3ComboBox") Me.SEARCH_PATTERN3ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SEARCH_PATTERN3", True)) Me.SEARCH_PATTERN3ComboBox.FormattingEnabled = True Me.SEARCH_PATTERN3ComboBox.Items.AddRange(New Object() {resources.GetString("SEARCH_PATTERN3ComboBox.Items"), resources.GetString("SEARCH_PATTERN3ComboBox.Items1"), resources.GetString("SEARCH_PATTERN3ComboBox.Items2")}) - resources.ApplyResources(Me.SEARCH_PATTERN3ComboBox, "SEARCH_PATTERN3ComboBox") Me.SEARCH_PATTERN3ComboBox.Name = "SEARCH_PATTERN3ComboBox" ' 'SEARCH_PATTERN2ComboBox ' + resources.ApplyResources(Me.SEARCH_PATTERN2ComboBox, "SEARCH_PATTERN2ComboBox") Me.SEARCH_PATTERN2ComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource, "SEARCH_PATTERN2", True)) Me.SEARCH_PATTERN2ComboBox.FormattingEnabled = True Me.SEARCH_PATTERN2ComboBox.Items.AddRange(New Object() {resources.GetString("SEARCH_PATTERN2ComboBox.Items"), resources.GetString("SEARCH_PATTERN2ComboBox.Items1"), resources.GetString("SEARCH_PATTERN2ComboBox.Items2")}) - resources.ApplyResources(Me.SEARCH_PATTERN2ComboBox, "SEARCH_PATTERN2ComboBox") Me.SEARCH_PATTERN2ComboBox.Name = "SEARCH_PATTERN2ComboBox" ' 'XtraTabPage2 ' + resources.ApplyResources(Me.XtraTabPage2, "XtraTabPage2") Me.XtraTabPage2.Controls.Add(Me.TabControl1) Me.XtraTabPage2.Name = "XtraTabPage2" - resources.ApplyResources(Me.XtraTabPage2, "XtraTabPage2") ' 'TabControl1 ' + resources.ApplyResources(Me.TabControl1, "TabControl1") Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage2) - resources.ApplyResources(Me.TabControl1, "TabControl1") Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 ' 'TabPage1 ' resources.ApplyResources(Me.TabPage1, "TabPage1") + Me.TabPage1.Controls.Add(Me.GridControlUserSQL) Me.TabPage1.Controls.Add(Me.Label12) Me.TabPage1.Controls.Add(Me.Label17) Me.TabPage1.Controls.Add(Me.dgvResult) @@ -1035,11 +1053,88 @@ Partial Class frmConstructorDesigner Me.TabPage1.Controls.Add(GUIDLabel2) Me.TabPage1.Controls.Add(Me.GUIDTextBox) Me.TabPage1.Controls.Add(Me.Label10) - Me.TabPage1.Controls.Add(Me.txtSearchUser) - Me.TabPage1.Controls.Add(Me.lbxUserSQL) Me.TabPage1.Name = "TabPage1" Me.TabPage1.UseVisualStyleBackColor = True ' + 'GridControlUserSQL + ' + resources.ApplyResources(Me.GridControlUserSQL, "GridControlUserSQL") + Me.GridControlUserSQL.DataSource = Me.TBWH_Users1BindingSource + Me.GridControlUserSQL.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlUserSQL.EmbeddedNavigator.AccessibleDescription") + Me.GridControlUserSQL.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlUserSQL.EmbeddedNavigator.AccessibleName") + Me.GridControlUserSQL.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlUserSQL.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean) + Me.GridControlUserSQL.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlUserSQL.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles) + Me.GridControlUserSQL.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlUserSQL.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image) + Me.GridControlUserSQL.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlUserSQL.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout) + Me.GridControlUserSQL.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlUserSQL.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode) + Me.GridControlUserSQL.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlUserSQL.EmbeddedNavigator.MaximumSize"), System.Drawing.Size) + Me.GridControlUserSQL.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlUserSQL.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation) + Me.GridControlUserSQL.EmbeddedNavigator.ToolTip = resources.GetString("GridControlUserSQL.EmbeddedNavigator.ToolTip") + Me.GridControlUserSQL.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlUserSQL.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType) + Me.GridControlUserSQL.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlUserSQL.EmbeddedNavigator.ToolTipTitle") + Me.GridControlUserSQL.MainView = Me.GridViewUserSQL + Me.GridControlUserSQL.Name = "GridControlUserSQL" + Me.GridControlUserSQL.ShowOnlyPredefinedDetails = True + Me.GridControlUserSQL.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUserSQL}) + ' + 'TBWH_Users1BindingSource + ' + Me.TBWH_Users1BindingSource.DataMember = "TBWH_Users1" + Me.TBWH_Users1BindingSource.DataSource = Me.DD_ECMAdmin + ' + 'GridViewUserSQL + ' + Me.GridViewUserSQL.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewUserSQL.Appearance.EvenRow.BackColor"), System.Drawing.Color) + Me.GridViewUserSQL.Appearance.EvenRow.FontSizeDelta = CType(resources.GetObject("GridViewUserSQL.Appearance.EvenRow.FontSizeDelta"), Integer) + Me.GridViewUserSQL.Appearance.EvenRow.FontStyleDelta = CType(resources.GetObject("GridViewUserSQL.Appearance.EvenRow.FontStyleDelta"), System.Drawing.FontStyle) + Me.GridViewUserSQL.Appearance.EvenRow.GradientMode = CType(resources.GetObject("GridViewUserSQL.Appearance.EvenRow.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode) + Me.GridViewUserSQL.Appearance.EvenRow.Image = CType(resources.GetObject("GridViewUserSQL.Appearance.EvenRow.Image"), System.Drawing.Image) + Me.GridViewUserSQL.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewUserSQL.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridViewUserSQL.Appearance.FocusedRow.BackColor"), System.Drawing.Color) + Me.GridViewUserSQL.Appearance.FocusedRow.FontSizeDelta = CType(resources.GetObject("GridViewUserSQL.Appearance.FocusedRow.FontSizeDelta"), Integer) + Me.GridViewUserSQL.Appearance.FocusedRow.FontStyleDelta = CType(resources.GetObject("GridViewUserSQL.Appearance.FocusedRow.FontStyleDelta"), System.Drawing.FontStyle) + Me.GridViewUserSQL.Appearance.FocusedRow.GradientMode = CType(resources.GetObject("GridViewUserSQL.Appearance.FocusedRow.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode) + Me.GridViewUserSQL.Appearance.FocusedRow.Image = CType(resources.GetObject("GridViewUserSQL.Appearance.FocusedRow.Image"), System.Drawing.Image) + Me.GridViewUserSQL.Appearance.FocusedRow.Options.UseBackColor = True + resources.ApplyResources(Me.GridViewUserSQL, "GridViewUserSQL") + Me.GridViewUserSQL.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn4, Me.GridColumn5, Me.GridColumn6, Me.colID1}) + Me.GridViewUserSQL.GridControl = Me.GridControlUserSQL + Me.GridViewUserSQL.Name = "GridViewUserSQL" + Me.GridViewUserSQL.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewUserSQL.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewUserSQL.OptionsBehavior.CopyToClipboardWithColumnHeaders = False + Me.GridViewUserSQL.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewUserSQL.OptionsView.ColumnAutoWidth = False + Me.GridViewUserSQL.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewUserSQL.OptionsView.ShowAutoFilterRow = True + Me.GridViewUserSQL.OptionsView.ShowGroupPanel = False + ' + 'GridColumn4 + ' + resources.ApplyResources(Me.GridColumn4, "GridColumn4") + Me.GridColumn4.FieldName = "Username" + Me.GridColumn4.Name = "GridColumn4" + Me.GridColumn4.OptionsColumn.AllowEdit = False + ' + 'GridColumn5 + ' + resources.ApplyResources(Me.GridColumn5, "GridColumn5") + Me.GridColumn5.FieldName = "Email" + Me.GridColumn5.Name = "GridColumn5" + Me.GridColumn5.OptionsColumn.AllowEdit = False + ' + 'GridColumn6 + ' + resources.ApplyResources(Me.GridColumn6, "GridColumn6") + Me.GridColumn6.FieldName = "ID" + Me.GridColumn6.Name = "GridColumn6" + ' + 'colID1 + ' + resources.ApplyResources(Me.colID1, "colID1") + Me.colID1.FieldName = "ID" + Me.colID1.Name = "colID1" + ' 'Label12 ' resources.ApplyResources(Me.Label12, "Label12") @@ -1052,22 +1147,22 @@ Partial Class frmConstructorDesigner ' 'dgvResult ' + resources.ApplyResources(Me.dgvResult, "dgvResult") Me.dgvResult.AllowUserToAddRows = False Me.dgvResult.AllowUserToDeleteRows = False - DataGridViewCellStyle1.BackColor = System.Drawing.Color.Cyan - Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 - resources.ApplyResources(Me.dgvResult, "dgvResult") + DataGridViewCellStyle3.BackColor = System.Drawing.Color.Cyan + Me.dgvResult.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle3 Me.dgvResult.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize Me.dgvResult.Name = "dgvResult" Me.dgvResult.ReadOnly = True ' 'dgvPlaceholders ' + resources.ApplyResources(Me.dgvPlaceholders, "dgvPlaceholders") Me.dgvPlaceholders.AllowUserToAddRows = False Me.dgvPlaceholders.AllowUserToDeleteRows = False - DataGridViewCellStyle2.BackColor = System.Drawing.Color.Cyan - Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2 - resources.ApplyResources(Me.dgvPlaceholders, "dgvPlaceholders") + DataGridViewCellStyle4.BackColor = System.Drawing.Color.Cyan + Me.dgvPlaceholders.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle4 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" @@ -1092,8 +1187,8 @@ Partial Class frmConstructorDesigner ' 'btnAddUserSQL ' - Me.btnAddUserSQL.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xLG resources.ApplyResources(Me.btnAddUserSQL, "btnAddUserSQL") + Me.btnAddUserSQL.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_add_16xLG Me.btnAddUserSQL.Name = "btnAddUserSQL" Me.btnAddUserSQL.UseVisualStyleBackColor = True ' @@ -1105,8 +1200,8 @@ Partial Class frmConstructorDesigner ' 'CHANGED_WHENTextBox2 ' - Me.CHANGED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONSTRUCTOR_USER_SQLBindingSource, "CHANGED_WHEN", True)) resources.ApplyResources(Me.CHANGED_WHENTextBox2, "CHANGED_WHENTextBox2") + Me.CHANGED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONSTRUCTOR_USER_SQLBindingSource, "CHANGED_WHEN", True)) Me.CHANGED_WHENTextBox2.Name = "CHANGED_WHENTextBox2" Me.CHANGED_WHENTextBox2.ReadOnly = True ' @@ -1122,35 +1217,35 @@ Partial Class frmConstructorDesigner ' 'CHANGED_WHOTextBox2 ' - Me.CHANGED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONSTRUCTOR_USER_SQLBindingSource, "CHANGED_WHO", True)) resources.ApplyResources(Me.CHANGED_WHOTextBox2, "CHANGED_WHOTextBox2") + Me.CHANGED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONSTRUCTOR_USER_SQLBindingSource, "CHANGED_WHO", True)) Me.CHANGED_WHOTextBox2.Name = "CHANGED_WHOTextBox2" Me.CHANGED_WHOTextBox2.ReadOnly = True ' 'ADDED_WHENTextBox2 ' - Me.ADDED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONSTRUCTOR_USER_SQLBindingSource, "ADDED_WHEN", True)) resources.ApplyResources(Me.ADDED_WHENTextBox2, "ADDED_WHENTextBox2") + Me.ADDED_WHENTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONSTRUCTOR_USER_SQLBindingSource, "ADDED_WHEN", True)) Me.ADDED_WHENTextBox2.Name = "ADDED_WHENTextBox2" Me.ADDED_WHENTextBox2.ReadOnly = True ' 'ADDED_WHOTextBox2 ' - Me.ADDED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONSTRUCTOR_USER_SQLBindingSource, "ADDED_WHO", True)) resources.ApplyResources(Me.ADDED_WHOTextBox2, "ADDED_WHOTextBox2") + Me.ADDED_WHOTextBox2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONSTRUCTOR_USER_SQLBindingSource, "ADDED_WHO", True)) Me.ADDED_WHOTextBox2.Name = "ADDED_WHOTextBox2" Me.ADDED_WHOTextBox2.ReadOnly = True ' 'SQL_COMMANDTextBox ' - Me.SQL_COMMANDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONSTRUCTOR_USER_SQLBindingSource, "SQL_COMMAND", True)) resources.ApplyResources(Me.SQL_COMMANDTextBox, "SQL_COMMANDTextBox") + Me.SQL_COMMANDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONSTRUCTOR_USER_SQLBindingSource, "SQL_COMMAND", True)) Me.SQL_COMMANDTextBox.Name = "SQL_COMMANDTextBox" ' 'GUIDTextBox ' - Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONSTRUCTOR_USER_SQLBindingSource, "GUID", True)) resources.ApplyResources(Me.GUIDTextBox, "GUIDTextBox") + Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_CONSTRUCTOR_USER_SQLBindingSource, "GUID", True)) Me.GUIDTextBox.Name = "GUIDTextBox" Me.GUIDTextBox.ReadOnly = True ' @@ -1159,17 +1254,6 @@ Partial Class frmConstructorDesigner resources.ApplyResources(Me.Label10, "Label10") Me.Label10.Name = "Label10" ' - 'txtSearchUser - ' - resources.ApplyResources(Me.txtSearchUser, "txtSearchUser") - Me.txtSearchUser.Name = "txtSearchUser" - ' - 'lbxUserSQL - ' - resources.ApplyResources(Me.lbxUserSQL, "lbxUserSQL") - Me.lbxUserSQL.FormattingEnabled = True - Me.lbxUserSQL.Name = "lbxUserSQL" - ' 'TabPage2 ' resources.ApplyResources(Me.TabPage2, "TabPage2") @@ -1178,6 +1262,7 @@ Partial Class frmConstructorDesigner ' 'XtraTabPage6 ' + resources.ApplyResources(Me.XtraTabPage6, "XtraTabPage6") Me.XtraTabPage6.Controls.Add(Me.btndeleteEntityfromClient) Me.XtraTabPage6.Controls.Add(Me.lblUser2Client) Me.XtraTabPage6.Controls.Add(Me.chklbxEntitiesforClient) @@ -1185,12 +1270,11 @@ Partial Class frmConstructorDesigner Me.XtraTabPage6.Controls.Add(Me.Label18) Me.XtraTabPage6.Controls.Add(Me.chklbxClient) Me.XtraTabPage6.Name = "XtraTabPage6" - resources.ApplyResources(Me.XtraTabPage6, "XtraTabPage6") ' 'btndeleteEntityfromClient ' - Me.btndeleteEntityfromClient.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete resources.ApplyResources(Me.btndeleteEntityfromClient, "btndeleteEntityfromClient") + Me.btndeleteEntityfromClient.Image = Global.DD_Record_Organiser.My.Resources.Resources.delete Me.btndeleteEntityfromClient.Name = "btndeleteEntityfromClient" Me.btndeleteEntityfromClient.UseVisualStyleBackColor = True ' @@ -1208,8 +1292,8 @@ Partial Class frmConstructorDesigner ' 'btnsaddUser2Client ' - Me.btnsaddUser2Client.Image = Global.DD_Record_Organiser.My.Resources.Resources.add1 resources.ApplyResources(Me.btnsaddUser2Client, "btnsaddUser2Client") + Me.btnsaddUser2Client.Image = Global.DD_Record_Organiser.My.Resources.Resources.add1 Me.btnsaddUser2Client.Name = "btnsaddUser2Client" Me.btnsaddUser2Client.UseVisualStyleBackColor = True ' @@ -1227,20 +1311,20 @@ Partial Class frmConstructorDesigner ' 'StatusStrip1 ' - Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblSaveDetail}) resources.ApplyResources(Me.StatusStrip1, "StatusStrip1") + Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tslblSaveDetail}) Me.StatusStrip1.Name = "StatusStrip1" ' 'tslblSaveDetail ' + resources.ApplyResources(Me.tslblSaveDetail, "tslblSaveDetail") Me.tslblSaveDetail.BackColor = System.Drawing.Color.Yellow Me.tslblSaveDetail.Name = "tslblSaveDetail" - resources.ApplyResources(Me.tslblSaveDetail, "tslblSaveDetail") ' 'ToolStrip1 ' - Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnSave}) resources.ApplyResources(Me.ToolStrip1, "ToolStrip1") + Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbtnSave}) Me.ToolStrip1.Name = "ToolStrip1" ' 'tsbtnSave @@ -1320,6 +1404,7 @@ Partial Class frmConstructorDesigner Me.TableAdapterManager2.TBPMO_LANGUAGE_OBJECTTableAdapter = Nothing Me.TableAdapterManager2.TBPMO_RECORD_LOG_CONFIGTableAdapter = Nothing Me.TableAdapterManager2.TBPMO_RECORDTableAdapter = Nothing + Me.TableAdapterManager2.TBPMO_RIGHT_GROUPTableAdapter = Nothing Me.TableAdapterManager2.TBPMO_TEMPLATE_ENTITYTableAdapter = Nothing Me.TableAdapterManager2.TBPMO_TEMPLATE_PATTERNTableAdapter = Nothing Me.TableAdapterManager2.TBPMO_TEMPLATETableAdapter = Nothing @@ -1375,8 +1460,8 @@ Partial Class frmConstructorDesigner ' 'LANGUAGETextBox ' - Me.LANGUAGETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "LANGUAGE", True)) resources.ApplyResources(Me.LANGUAGETextBox, "LANGUAGETextBox") + Me.LANGUAGETextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPMO_FORM_CONSTRUCTORBindingSource, "LANGUAGE", True)) Me.LANGUAGETextBox.Name = "LANGUAGETextBox" Me.LANGUAGETextBox.ReadOnly = True ' @@ -1388,8 +1473,8 @@ Partial Class frmConstructorDesigner ' 'btnChangeHOMESTANDARD ' - Me.btnChangeHOMESTANDARD.Image = Global.DD_Record_Organiser.My.Resources.Resources.Link resources.ApplyResources(Me.btnChangeHOMESTANDARD, "btnChangeHOMESTANDARD") + Me.btnChangeHOMESTANDARD.Image = Global.DD_Record_Organiser.My.Resources.Resources.Link Me.btnChangeHOMESTANDARD.Name = "btnChangeHOMESTANDARD" Me.btnChangeHOMESTANDARD.UseVisualStyleBackColor = True ' @@ -1405,18 +1490,90 @@ Partial Class frmConstructorDesigner ' Me.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter.ClearBeforeFill = True ' - 'chksbxUserConstructor - ' - resources.ApplyResources(Me.chksbxUserConstructor, "chksbxUserConstructor") - Me.chksbxUserConstructor.BackColor = System.Drawing.SystemColors.GradientActiveCaption - Me.chksbxUserConstructor.FormattingEnabled = True - Me.chksbxUserConstructor.Name = "chksbxUserConstructor" + 'GridControlUsers2Menue + ' + resources.ApplyResources(Me.GridControlUsers2Menue, "GridControlUsers2Menue") + Me.GridControlUsers2Menue.DataSource = Me.TBAD_UsersBindingSource + Me.GridControlUsers2Menue.EmbeddedNavigator.AccessibleDescription = resources.GetString("GridControlUsers2Menue.EmbeddedNavigator.AccessibleDescription") + Me.GridControlUsers2Menue.EmbeddedNavigator.AccessibleName = resources.GetString("GridControlUsers2Menue.EmbeddedNavigator.AccessibleName") + Me.GridControlUsers2Menue.EmbeddedNavigator.AllowHtmlTextInToolTip = CType(resources.GetObject("GridControlUsers2Menue.EmbeddedNavigator.AllowHtmlTextInToolTip"), DevExpress.Utils.DefaultBoolean) + Me.GridControlUsers2Menue.EmbeddedNavigator.Anchor = CType(resources.GetObject("GridControlUsers2Menue.EmbeddedNavigator.Anchor"), System.Windows.Forms.AnchorStyles) + Me.GridControlUsers2Menue.EmbeddedNavigator.BackgroundImage = CType(resources.GetObject("GridControlUsers2Menue.EmbeddedNavigator.BackgroundImage"), System.Drawing.Image) + Me.GridControlUsers2Menue.EmbeddedNavigator.BackgroundImageLayout = CType(resources.GetObject("GridControlUsers2Menue.EmbeddedNavigator.BackgroundImageLayout"), System.Windows.Forms.ImageLayout) + Me.GridControlUsers2Menue.EmbeddedNavigator.ImeMode = CType(resources.GetObject("GridControlUsers2Menue.EmbeddedNavigator.ImeMode"), System.Windows.Forms.ImeMode) + Me.GridControlUsers2Menue.EmbeddedNavigator.MaximumSize = CType(resources.GetObject("GridControlUsers2Menue.EmbeddedNavigator.MaximumSize"), System.Drawing.Size) + Me.GridControlUsers2Menue.EmbeddedNavigator.TextLocation = CType(resources.GetObject("GridControlUsers2Menue.EmbeddedNavigator.TextLocation"), DevExpress.XtraEditors.NavigatorButtonsTextLocation) + Me.GridControlUsers2Menue.EmbeddedNavigator.ToolTip = resources.GetString("GridControlUsers2Menue.EmbeddedNavigator.ToolTip") + Me.GridControlUsers2Menue.EmbeddedNavigator.ToolTipIconType = CType(resources.GetObject("GridControlUsers2Menue.EmbeddedNavigator.ToolTipIconType"), DevExpress.Utils.ToolTipIconType) + Me.GridControlUsers2Menue.EmbeddedNavigator.ToolTipTitle = resources.GetString("GridControlUsers2Menue.EmbeddedNavigator.ToolTipTitle") + Me.GridControlUsers2Menue.MainView = Me.GridViewlUsers2Menue + Me.GridControlUsers2Menue.Name = "GridControlUsers2Menue" + Me.GridControlUsers2Menue.ShowOnlyPredefinedDetails = True + Me.GridControlUsers2Menue.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewlUsers2Menue}) + ' + 'TBAD_UsersBindingSource + ' + Me.TBAD_UsersBindingSource.DataMember = "TBAD_Users" + Me.TBAD_UsersBindingSource.DataSource = Me.DD_ECMAdmin + ' + 'GridViewlUsers2Menue + ' + Me.GridViewlUsers2Menue.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewlUsers2Menue.Appearance.EvenRow.BackColor"), System.Drawing.Color) + Me.GridViewlUsers2Menue.Appearance.EvenRow.FontSizeDelta = CType(resources.GetObject("GridViewlUsers2Menue.Appearance.EvenRow.FontSizeDelta"), Integer) + Me.GridViewlUsers2Menue.Appearance.EvenRow.FontStyleDelta = CType(resources.GetObject("GridViewlUsers2Menue.Appearance.EvenRow.FontStyleDelta"), System.Drawing.FontStyle) + Me.GridViewlUsers2Menue.Appearance.EvenRow.GradientMode = CType(resources.GetObject("GridViewlUsers2Menue.Appearance.EvenRow.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode) + Me.GridViewlUsers2Menue.Appearance.EvenRow.Image = CType(resources.GetObject("GridViewlUsers2Menue.Appearance.EvenRow.Image"), System.Drawing.Image) + Me.GridViewlUsers2Menue.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewlUsers2Menue.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridViewlUsers2Menue.Appearance.FocusedRow.BackColor"), System.Drawing.Color) + Me.GridViewlUsers2Menue.Appearance.FocusedRow.FontSizeDelta = CType(resources.GetObject("GridViewlUsers2Menue.Appearance.FocusedRow.FontSizeDelta"), Integer) + Me.GridViewlUsers2Menue.Appearance.FocusedRow.FontStyleDelta = CType(resources.GetObject("GridViewlUsers2Menue.Appearance.FocusedRow.FontStyleDelta"), System.Drawing.FontStyle) + Me.GridViewlUsers2Menue.Appearance.FocusedRow.GradientMode = CType(resources.GetObject("GridViewlUsers2Menue.Appearance.FocusedRow.GradientMode"), System.Drawing.Drawing2D.LinearGradientMode) + Me.GridViewlUsers2Menue.Appearance.FocusedRow.Image = CType(resources.GetObject("GridViewlUsers2Menue.Appearance.FocusedRow.Image"), System.Drawing.Image) + Me.GridViewlUsers2Menue.Appearance.FocusedRow.Options.UseBackColor = True + resources.ApplyResources(Me.GridViewlUsers2Menue, "GridViewlUsers2Menue") + Me.GridViewlUsers2Menue.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSelect, Me.GridColumn1, Me.GridColumn2, Me.colID}) + Me.GridViewlUsers2Menue.GridControl = Me.GridControlUsers2Menue + Me.GridViewlUsers2Menue.Name = "GridViewlUsers2Menue" + Me.GridViewlUsers2Menue.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewlUsers2Menue.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewlUsers2Menue.OptionsBehavior.CopyToClipboardWithColumnHeaders = False + Me.GridViewlUsers2Menue.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewlUsers2Menue.OptionsView.ColumnAutoWidth = False + Me.GridViewlUsers2Menue.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewlUsers2Menue.OptionsView.ShowAutoFilterRow = True + Me.GridViewlUsers2Menue.OptionsView.ShowGroupPanel = False + ' + 'colSelect + ' + resources.ApplyResources(Me.colSelect, "colSelect") + Me.colSelect.FieldName = "Select" + Me.colSelect.Name = "colSelect" + ' + 'GridColumn1 + ' + resources.ApplyResources(Me.GridColumn1, "GridColumn1") + Me.GridColumn1.FieldName = "Username" + Me.GridColumn1.Name = "GridColumn1" + Me.GridColumn1.OptionsColumn.AllowEdit = False + ' + 'GridColumn2 + ' + resources.ApplyResources(Me.GridColumn2, "GridColumn2") + Me.GridColumn2.FieldName = "Email" + Me.GridColumn2.Name = "GridColumn2" + Me.GridColumn2.OptionsColumn.AllowEdit = False + ' + 'colID + ' + resources.ApplyResources(Me.colID, "colID") + Me.colID.FieldName = "ID" + Me.colID.Name = "colID" ' 'frmConstructorDesigner ' resources.ApplyResources(Me, "$this") Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.Controls.Add(Me.chksbxUserConstructor) + Me.Controls.Add(Me.GridControlUsers2Menue) Me.Controls.Add(Me.btnChangeHOMESTANDARD) Me.Controls.Add(Me.CheckBoxHome) Me.Controls.Add(Me.LANGUAGETextBox) @@ -1476,6 +1633,9 @@ Partial Class frmConstructorDesigner Me.TabControl1.ResumeLayout(False) Me.TabPage1.ResumeLayout(False) Me.TabPage1.PerformLayout() + CType(Me.GridControlUserSQL, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBWH_Users1BindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewUserSQL, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvResult, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.dgvPlaceholders, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPMO_CONSTRUCTOR_USER_SQLBindingSource, System.ComponentModel.ISupportInitialize).EndInit() @@ -1489,6 +1649,9 @@ Partial Class frmConstructorDesigner CType(Me.TBTEMP_QUICKDISPLAYBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPMO_FORM_CONSTRUCTORBindingSource1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.ImageCollection1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlUsers2Menue, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewlUsers2Menue, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) Me.PerformLayout() @@ -1610,8 +1773,6 @@ Partial Class frmConstructorDesigner Friend WithEvents TabPage2 As System.Windows.Forms.TabPage Friend WithEvents TableAdapterManager3 As DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager Friend WithEvents Label10 As System.Windows.Forms.Label - Friend WithEvents txtSearchUser As System.Windows.Forms.TextBox - Friend WithEvents lbxUserSQL As System.Windows.Forms.ListBox Friend WithEvents TBPMO_CONSTRUCTOR_USER_SQLBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBPMO_CONSTRUCTOR_USER_SQLTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter Friend WithEvents lblsaveSQLUser As System.Windows.Forms.Label @@ -1636,5 +1797,18 @@ Partial Class frmConstructorDesigner Friend WithEvents btnsaddUser2Client As System.Windows.Forms.Button Friend WithEvents Label18 As System.Windows.Forms.Label Friend WithEvents chklbxClient As System.Windows.Forms.CheckedListBox - Friend WithEvents chksbxUserConstructor As System.Windows.Forms.CheckedListBox + Friend WithEvents GridControlUsers2Menue As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewlUsers2Menue As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colSelect As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents TBAD_UsersBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents GridControlUserSQL As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewUserSQL As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn5 As DevExpress.XtraGrid.Columns.GridColumn + 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 End Class diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.en-US.resx b/app/DD-Record-Organiser/frmConstructorDesigner.en-US.resx index 151a010..3a392bc 100644 --- a/app/DD-Record-Organiser/frmConstructorDesigner.en-US.resx +++ b/app/DD-Record-Organiser/frmConstructorDesigner.en-US.resx @@ -296,7 +296,7 @@ AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS - CQAAAk1TRnQBSQFMAgEBAgEAAVgBCgFYAQoBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo + CQAAAk1TRnQBSQFMAgEBAgEAAWABCgFgAQoBEAEAARABAAT/AQkBAAj/AUIBTQE2AQQGAAE2AQQCAAEo AwABQAMAARADAAEBAQABCAYAAQQYAAGAAgABgAMAAoABAAGAAwABgAEAAYABAAKAAgADwAEAAcAB3AHA AQAB8AHKAaYBAAEzBQABMwEAATMBAAEzAQACMwIAAxYBAAMcAQADIgEAAykBAANVAQADTQEAA0IBAAM5 AQABgAF8Af8BAAJQAf8BAAGTAQAB1gEAAf8B7AHMAQABxgHWAe8BAAHWAucBAAGQAakBrQIAAf8BMwMA @@ -359,6 +359,9 @@ Usermapping + + 1002, 333 + Entity-Client Assignment @@ -522,6 +525,9 @@ Test SQL-Result + + Add Record-Restriction + 80, 13 @@ -534,6 +540,9 @@ User for selection: + + 994, 307 + 89, 13 diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.resx b/app/DD-Record-Organiser/frmConstructorDesigner.resx index c2e3437..3dfce73 100644 --- a/app/DD-Record-Organiser/frmConstructorDesigner.resx +++ b/app/DD-Record-Organiser/frmConstructorDesigner.resx @@ -117,3802 +117,506 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - False - - - - True - - - Segoe UI, 8.25pt, style=Italic + + 399, 24 - - 247, 28 + + 0, 0 - - 80, 13 + + + 41 - - 2 + + Search Pattern 3: - - Constructor-ID: + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GUIDLabel + + dgvResult - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Platzhalter - - $this + + 543, 21 - - 29 + + windream-Suche|*.wdf|Alle Dateien|*.* - - False - - - True + + MiddleRight - - 247, 69 + + 17 - - 142, 13 + + $this - - 4 + + TabPage1 Titel des Kombiformulares: - - FORM_TITLELabel + + True - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - $this - - - 27 + + Record-ID - - False - - - True + + SEQUENCE_MENULabel - - 247, 112 + + 93, 13 - - 106, 13 + + 0 - - 6 + + Segoe UI, 8.25pt - - Reihenfolge Menü: + + + Top, Bottom, Left - - SEQUENCE_MENULabel + + Tahoma, 8.25pt, style=Italic - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + - - $this + + 0 - - 25 + + BottomCenter - - False - - - True + + Record-ID - - 413, 112 + + 4 - - 60, 13 + + 64 - - 8 + + 13 - - Kurzname: + + SEARCH_PATTERN3ComboBox - - SHORT_TITLELabel + + XtraTabPage5 - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - $this - - - 23 - - - False - - + True - - Segoe UI, 8.25pt, style=Italic + + GroupBox1 - - 248, 154 + + 85, 13 - - 61, 13 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 10 + + XtraTabPage2 - - Erstellt wer: + + DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - ADDED_WHOLabel + + 80, 13 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Regular - - $this + + 25 - - 21 + + 42 - - False - - - True + + DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBTEMP_QUICKDISPLAYTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - Segoe UI, 8.25pt, style=Italic + + QuickView Bild-Control: - - 413, 154 + + 4 - - 70, 13 + + 1 - - 12 + + 9, 34 - - Erstellt wann: + + Inherit - - ADDED_WHENLabel + + 129, 13 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 85 - - $this + + 319, 13 - - 19 + + System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - False - - + True - - Segoe UI, 8.25pt, style=Italic + + 272, 274 - - 248, 195 + + True - - 73, 13 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 14 + + grpbxWD_RecordSearch - - Geändert wer: + + 0 - - CHANGED_WHOLabel + + 20 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 4, 22 - - $this - - - 17 - - - False - - - True + + TabPage1 - - Segoe UI, 8.25pt, style=Italic + + chklbxClient - - 413, 195 + + Regular - - 82, 13 + + TBAD_UsersBindingSource - - 16 + + 135, 13 - - Geändert wann: + + Record-ID - - CHANGED_WHENLabel + + $this - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - $this + + @ParentID - - 15 + + System.Windows.Forms.TreeView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - False - - - True + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 12, 11 + + COLUMN_NAME1ComboBox - - 22, 13 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 18 + + Fill - - ID: + + 24 - - GUIDLabel1 + + 19 - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - XtraTabPage3 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + - - 15 + + Add field - - False - - - True + + XtraTabControl2 - - 6, 18 + + System.Windows.Forms.ImageList, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 90, 13 + + Record-ID - - 34 + + 26 - - windream-Suche: + + True - - WINDREAM_SEARCHLabel + + XtraTabPage5 - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GroupBox1 + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 1 + + 5, 187 - - False - - - True + + NoControl - - 70, 183 + + 1 - - 65, 13 + + True - - 43 + + 186, 30 - - Erstellt wer: + + 73, 240 - - ADDED_WHOLabel1 + + Constructor-ID: - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Label8 - - XtraTabPage3 + + Record-ID - - 14 + + 2 - - False - - + True - - 236, 183 - - - 73, 13 + + 65, 21 - - 44 + + 5 - - Erstellt wann: + + 6 - - ADDED_WHENLabel1 + + Top, Left - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Spaltenname Entität: - - XtraTabPage3 + + 236, 224 - - 12 + + 23, 22 - - False - - + True - - 70, 224 - - - 77, 13 - - - 45 - - - Geändert wer: + + 93, 56 - - CHANGED_WHOLabel1 + + 0 - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - XtraTabPage3 + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 9 + + Fuchsia - - False - - - True + + 1049, 70 - - 236, 224 + + 56 - - 85, 13 + + btnAddControl - - 46 + + 3 - - Geändert wann: + + 5 - - CHANGED_WHENLabel1 + + 35 - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 558, 33 - - XtraTabPage3 - - - 6 - - - False - - - True - - - 69, 48 - - - 72, 13 - - - 34 + + 79 - - SQL Ebene 1: + + 10 - - SQL_SELECT_EBENE1Label + + 1002, 333 - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - XtraTabPage3 - - - 8 - - - False - - - True - - - 69, 91 - - - 72, 13 - - - 36 - - - SQL Ebene 2: - - - SQL_SELECT_EBENE2Label + + 133, 21 - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - XtraTabPage3 + + 0 - - 16 + + TabPage1 - - False - - - True + + 102, 13 - - 69, 133 + + 8 - - 108, 13 + + 855, 66 - - 48 + + Bottom, Left - - Spaltenname Entität: + + XtraTabPage3 - - COLUMN_NAME1Label1 + + Tahoma, 8.25pt, style=Italic - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + XtraTabPage3 - - 2 - - + False - - - True - - - 6, 59 - - - 92, 13 - - - 39 - - - Search Pattern 1: - - - SEARCH_PATTERN1Label1 - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GroupBox1 + + SHORT_TITLETextBox - - 7 + + @EntityID - - False - - + True - - 181, 59 - - - 92, 13 - - - 40 - - - Search Pattern 2: - - - SEARCH_PATTERN2Label1 - - - 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 - - GroupBox1 + + 1300, 408 - - 10 + + $this - - False - - - True + + cmstrpEntity - - 6, 99 + + Fill - - 92, 13 + + Inherit - - 41 + + 39 - - Search Pattern 3: + + - - SEARCH_PATTERN3Label + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + - + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - GroupBox1 - - - 6 - - - False - - - True - - - 181, 99 - - - 92, 13 - - - 42 + + Top, Bottom, Left - - Search Pattern 4: + + 107 - - SEARCH_PATTERN4Label + + $this - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 310, 22 - - GroupBox1 + + 16 - - 2 + + 142, 13 - - False - - - True + + Regular - - Tahoma, 8.25pt, style=Italic + + 9, 79 - - 179, 26 + + colID - - 22, 13 + + 65 - - 3 + + SEQUENCE_MENUNumericUpDown - - ID: - - - GUIDLabel2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 17 - - - False - - - True - - - 233, 27 - - - 80, 13 - - - 5 - - - SQL Command: - - - SQL_COMMANDLabel - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 15 - - - False - - - True - - - Tahoma, 8.25pt, style=Italic - - - 733, 26 - - - 65, 13 - - - 7 - - - Added who: - - - ADDED_WHOLabel2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 13 - - - False - - - True - - - Tahoma, 8.25pt, style=Italic - - - 855, 26 - - - 71, 13 - - - 9 - - - Added when: - - - ADDED_WHENLabel2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 11 - - - False - - - True - - - Tahoma, 8.25pt, style=Italic - - - 733, 66 - - - 77, 13 - - - 11 - - - Changed who: - - - CHANGED_WHOLabel2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 9 - - - False - - - True - - - Tahoma, 8.25pt, style=Italic - - - 855, 66 - - - 83, 13 - - - 13 - - - Changed when: - - - CHANGED_WHENLabel2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 7 - - - 17, 17 - - - 160, 17 - - - 461, 17 - - - 757, 17 - - - 362, 56 - - - 930, 17 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC - pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ - Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ - /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA - zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ - IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E - rkJggg== - - - - True - - - 23, 22 - - - Neu hinzufügen - - - 92, 22 - - - from {0} records - - - Die Gesamtanzahl der Elemente. - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC - DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC - rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV - i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG - 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG - QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX - bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Löschen - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 - wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 - v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg - UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA - Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu - lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Erste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w - 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f - Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ - 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC - - - - True - - - 23, 22 - - - Vorherige verschieben - - - 6, 25 - - - Position - - - False - - - 50, 23 - - - 0 - - - Aktuelle Position - - - 6, 25 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 - n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI - N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f - oAc0QjgAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Nächste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// - h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B - twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA - kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG - WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 - 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - - - True - - - 23, 22 - - - Letzte verschieben - - - 6, 25 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo - dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= - - - - 23, 22 - - - Daten speichern - - - 0, 0 - - - 1341, 25 - - - 0 - - - BindingNavigator1 - - - TBPMO_FORM_CONSTRUCTORBindingNavigator - - - System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 31 - - - 17, 56 - - - 862, 103 - - - 153, 22 - - - Form-Designer - - - 154, 26 - - - cmstrpEntity - - - System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - Left - - - 0 - - - 701, 56 - - - - AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w - LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0 - ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAABS - CQAAAk1TRnQBSQFMAgEBAgEAAWwBCwFsAQsBEAEAARABAAT/AQkBAAj/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 - AeABBwHgAQcEAAHgAQcB4AEHBAAB4AEHAeABBwQAAeABBwHgAQcEAAHgAQcB4AEHBAAL - - - - 0, 0 - - - 1 - - - 292, 434 - - - 1 - - - TreeViewDetails - - - System.Windows.Forms.TreeView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 3 - - - Segoe UI, 8.25pt, style=Italic - - - 250, 44 - - - 83, 22 - - - 3 - - - CONSTRUCTOR_IDTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 30 - - - 250, 85 - - - 310, 22 - - - 5 - - - FORM_TITLETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 28 - - - 250, 129 - - - 43, 22 - - - 7 - - - SEQUENCE_MENUNumericUpDown - - - System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 26 - - - 416, 128 - - - 144, 22 - - - 9 - - - SHORT_TITLETextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 24 - - - Segoe UI, 8.25pt, style=Italic - - - 251, 170 - - - 149, 22 - - - 11 - - - ADDED_WHOTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 22 - - - Segoe UI, 8.25pt, style=Italic - - - 417, 170 - - - 144, 22 - - - 13 - - - ADDED_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 20 - - - Segoe UI, 8.25pt, style=Italic - - - 251, 211 - - - 149, 22 - - - 15 - - - CHANGED_WHOTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 18 - - - Segoe UI, 8.25pt, style=Italic - - - 416, 211 - - - 144, 22 - - - 17 - - - CHANGED_WHENTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 16 - - - 15, 27 - - - 34, 21 - - - 19 - - - GUIDTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage3 - - - 18 - - - 72, 25 - - - 122, 24 - - - 25 - - - Level 1 Auswahl? - - - LEVEL1_SELECTCheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage3 - - - 19 - - - 9, 34 - - - 543, 21 - - - 35 - - - WINDREAM_SEARCHTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 3 - - - Bottom, Left, Right - - - 15, 251 - - - Fill - - - 292, 25 - - - True - - - 701, 25 - - - 128, 24 - - - 52 - - - Ersten Record laden - - - LOAD_DIRECTCheckBox - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage3 - - - 0 - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 189, 133 - - - 236, 13 - - - 51 - - - Dient zur Anzeige der Selektion von Datensätzen - - - Label4 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage3 - - - 1 - - - 72, 149 - - - 247, 21 - - - 49 - - - COLUMN_NAME1ComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage3 - - - 3 - - - True - - - Segoe UI, 8.25pt, style=Italic - - - 186, 30 - - - 319, 13 - - - 48 - - - Kann man für diese Entität auf der ersten Ebene Daten selektieren? - - - Label2 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage3 - - - 4 - - - Consolas, 8.25pt - - - 72, 64 - - - 757, 20 - - - 35 - - - SQL_SELECT_EBENE1TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage3 - - - 5 - - - 239, 240 - - - 160, 21 - - - 47 - - - CHANGED_WHENTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage3 - - - 7 - - - 73, 240 - - - 160, 21 - - - 46 - - - CHANGED_WHOTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage3 - - - 10 - - - Consolas, 8.25pt - - - 72, 107 - - - 757, 20 - - - 37 - - - SQL_SELECT_EBENE2TextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage3 - - - 11 - - - 239, 199 - - - 160, 21 - - - 45 - - - ADDED_WHENTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage3 - - - 13 - - - 73, 199 - - - 160, 21 - - - 44 - - - ADDED_WHOTextBox1 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage3 - - - 17 - - - 1010, 362 - - - Allgemein - - - XtraTabPage3 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl2 - - - 1 - - - 1012, 387 - - - 35 - - - True - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJpSURBVDhPpZP7S1NhGMf9W/SHKEGiGyFhFBTmvMyd - tTa3eTvL9LjFIpam7AzTDGoYuvCHcJbaVSt/yTSxUV4ycnYdWh4rL+3URq3pObumfNsmbS5HEL3weeE8 - PJ/vy3nOeZMA/BcbCgsaTco8Van/QJUzsyqSm1GVcO9JJTNFyvW2UmnKn/1xD4tqDfGJotjvpib4RywI - vLUiMDEK/n43FrRleF1IsC+UQmK9EyfPVVD88t1urM6+Q3DwHoJdzQiaL+Dn7TasjA/CUauFVZ7NP5dm - RkMi27xanRyS7dzNLqwyNgQvn4O72YClphr4LxkQaKHhN56C/8EtLB4nMX7kgH1Msi85GhCSaWe9Hiu2 - yciJPhMN13kdvA3qOLjTJPy91/AqLwPD4gw6GvCROsZ4eq8j2GOG21iFb0XihCxXkeCb6uAwVOMxkc5E - A5gKlTfwsBdBkwHus9pQKfFyyHLgogqxZG6FJW+XN1RaC5ghi7y+ng74G7XwnimPNCda4QBnmQJLba0Y - Em6LBUyXKhiXsQ6+ZhrcSWWkMSHyPLjra7FQq8OgIC32CrZiKc1IBPD2dMKtksBVJtogs9JssAUieLqu - YFS4AwNZW2JDfFMkTn5ZQtgXK0vgudMRGZhTIVwTZblgJSFZIgTf2Y6pYnFYtvcJNsc+Y5jJghxiQnaI - nzuqgOdGB3400nCQcnxRyuBq0IO/2o5pZT76s1L5kBz/I/3mmfQg8fTwftYq2oOvNTq4Wi5G+Fx9Ak9y - todldr0cJi4gzIh4b8qwMF1vIXYzj/J3ckOCrdxAbhrTn52q78vc9PfL9O8g6Rcd0s65aUjWSwAAAABJ - RU5ErkJggg== - - - - MiddleRight - - - 299, 180 - - - 175, 23 - - - 52 - - - Delete QuickView Picture - - - MiddleLeft - - - Button2 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage5 - - - 0 - - - True - - - Segoe UI, 8.25pt, style=Bold - - - 480, 158 - - - 190, 13 - - - 51 - - - QuickViewBild Control hinzugefügt - - - False - - - lblQuickViewAdded - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage5 - - - 1 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAALhJREFUOE+tk8ENhCAQRSnFWqiEOiiAO42sJXjmRCnsXriy83VIZCQE153kJcKf - /yM6KFk5Z0NsRBFgz3DbtUhciBhCKNbaorVuwB409KCXbUexOTnnLkaJ9x4hqQmhRYTQM/TgkFjNBq8m - m9bXWt7ps4NnqfNxDAK23pnBKAQeeBHQCJJRCLxNQG0ccQ75f0CPmSM8/ojPfiPPQpyZwkozSCha7KM8 - M43dUUZxyG+X6Vwk3rjOSn0Bs2pSjcG3D98AAAAASUVORK5CYII= - - - - MiddleRight - - - 200, 137 - - - 93, 56 - - - 50 - - - Set as QuickView Picture - - - MiddleLeft - - - False - - - btnSetQuickViewPicture - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage5 - - - 2 - - - 299, 153 - - - 175, 21 - - - 49 - - - txtQuickViewPicture - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage5 - - - 3 - - - True - - - 296, 137 - - - 117, 13 - - - 48 - - - QuickView Bild-Control: - - - Label8 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage5 - - - 4 - - - True - - - Segoe UI, 8.25pt, style=Bold - - - 477, 88 - - - 101, 13 - - - 45 - - - Headline changed - - - False - - - lblChangeHeadline - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage5 - - - 5 - - - 480, 49 - - - 168, 38 - - - 7 - - - Button2 - - - False - - - btnSetHeadline - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage5 - - - 6 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJpSURBVDhPpZP7S1NhGMf9W/SHKEGiGyFhFBTmvMyd - tTa3eTvL9LjFIpam7AzTDGoYuvCHcJbaVSt/yTSxUV4ycnYdWh4rL+3URq3pObumfNsmbS5HEL3weeE8 - PJ/vy3nOeZMA/BcbCgsaTco8Van/QJUzsyqSm1GVcO9JJTNFyvW2UmnKn/1xD4tqDfGJotjvpib4RywI - vLUiMDEK/n43FrRleF1IsC+UQmK9EyfPVVD88t1urM6+Q3DwHoJdzQiaL+Dn7TasjA/CUauFVZ7NP5dm - RkMi27xanRyS7dzNLqwyNgQvn4O72YClphr4LxkQaKHhN56C/8EtLB4nMX7kgH1Msi85GhCSaWe9Hiu2 - yciJPhMN13kdvA3qOLjTJPy91/AqLwPD4gw6GvCROsZ4eq8j2GOG21iFb0XihCxXkeCb6uAwVOMxkc5E - A5gKlTfwsBdBkwHus9pQKfFyyHLgogqxZG6FJW+XN1RaC5ghi7y+ng74G7XwnimPNCda4QBnmQJLba0Y - Em6LBUyXKhiXsQ6+ZhrcSWWkMSHyPLjra7FQq8OgIC32CrZiKc1IBPD2dMKtksBVJtogs9JssAUieLqu - YFS4AwNZW2JDfFMkTn5ZQtgXK0vgudMRGZhTIVwTZblgJSFZIgTf2Y6pYnFYtvcJNsc+Y5jJghxiQnaI - nzuqgOdGB3400nCQcnxRyuBq0IO/2o5pZT76s1L5kBz/I/3mmfQg8fTwftYq2oOvNTq4Wi5G+Fx9Ak9y - todldr0cJi4gzIh4b8qwMF1vIXYzj/J3ckOCrdxAbhrTn52q78vc9PfL9O8g6Rcd0s65aUjWSwAAAABJ - RU5ErkJggg== - - - - MiddleRight - - - 201, 78 - - - 92, 23 - - - 6 - - - Delete field - - - MiddleLeft - - - btndeleteControl - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage5 - - - 7 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAALhJREFUOE+tk8ENhCAQRSnFWqiEOiiAO42sJXjmRCnsXriy83VIZCQE153kJcKf - /yM6KFk5Z0NsRBFgz3DbtUhciBhCKNbaorVuwB409KCXbUexOTnnLkaJ9x4hqQmhRYTQM/TgkFjNBq8m - m9bXWt7ps4NnqfNxDAK23pnBKAQeeBHQCJJRCLxNQG0ccQ75f0CPmSM8/ojPfiPPQpyZwkozSCha7KM8 - M43dUUZxyG+X6Vwk3rjOSn0Bs2pSjcG3D98AAAAASUVORK5CYII= - - - - MiddleRight - - - 200, 49 - - - 93, 23 - - - 5 - - - Add field - - - MiddleLeft - - - btnAddControl - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage5 - - - 8 - - - 299, 49 - - - 175, 69 - - - 4 - - - ListBoxConfiguredDisplay - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage5 - - - 9 - - - True - - - 296, 33 - - - 135, 13 - - - 3 - - - Konfigurierte Feldauswahl: - - - Label6 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage5 - - - 10 - - - True - - - 5, 33 - - - 102, 13 - - - 2 - - - Felder zur Auswahl: - - - Label5 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage5 - - - 11 - - - Top, Bottom, Left - - - 8, 49 - - - 186, 212 - - - 1 - - - listBoxControls - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage5 - - - 12 - - - True - - - 3, 10 - - - 416, 13 - - - 0 - - - Konfigurieren Sie hier die Erstansicht zur Navigation innerhalb der Eintitätsdatensätze - - - Label3 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage5 - - - 13 - - - 1010, 362 - - - Quick View Konfiguration - - - XtraTabPage5 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl2 - - - 0 - - - True - - - 14, 3 - - - 133, 17 - - - 79 - - - Windream-Suche aktiv - - - chkWDSearch_Active - - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage4 - - - 0 - - - Top, Left, Right - - - True - - - Segoe UI, 8.25pt, style=Bold - - - 346, 126 - - - 129, 13 - - - 78 - - - Erfolgreich gespeichert. - - - False - - - lblSave1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxWD_RecordSearch - - - 0 - - - True - - - Segoe UI, 8.25pt - - - 6, 18 - - - 96, 13 - - - 64 - - - windream-Suche: - - - Label9 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxWD_RecordSearch - - - 1 - - - Segoe UI, 8.25pt - - - 9, 34 - - - 543, 22 - - - 66 - - - txtWindreamsuche - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxWD_RecordSearch - - - 2 - - - True - - - Segoe UI, 8.25pt - - - 346, 63 - - - 93, 13 - - - 76 - - - Search Pattern 5: - - - Label15 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxWD_RecordSearch - - - 3 - - - Segoe UI, 8.25pt - - - Form-ID (Entity) - - - Record-ID - - - 349, 79 - - - 203, 21 - - - 77 - - - cmbSearchPattern5 - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxWD_RecordSearch - - - 4 - - - Segoe UI, 8.25pt - - - Form-ID (Entity) - - - Record-ID - - - 9, 79 - - - 166, 21 - - - 69 - - - cmbSearchPattern1 - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxWD_RecordSearch - - - 5 - - - True - - - Segoe UI, 8.25pt - - - 6, 63 - - - 93, 13 - - - 68 - - - Search Pattern 1: - - - Label11 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxWD_RecordSearch - - - 6 - - - Segoe UI, 8.25pt - - - 558, 33 - - - 24, 21 - - - 65 - - - ... - - - btnWindreamsuche - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxWD_RecordSearch - - - 7 - - - True - - - Segoe UI, 8.25pt - - - 181, 107 - - - 93, 13 - - - 74 - - - Search Pattern 4: - - - Label14 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxWD_RecordSearch - - - 8 - - - Segoe UI, 8.25pt - - - Form-ID (Entity) - - - Record-ID - - - 184, 123 - - - 156, 21 - - - 75 - - - cmbSearchPattern4 - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxWD_RecordSearch - - - 9 - - - Segoe UI, 8.25pt - - - Form-ID (Entity) - - - Record-ID - - - 9, 123 - - - 166, 21 - - - 73 - - - cmbSearchPattern3 - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxWD_RecordSearch - - - 10 - - - Segoe UI, 8.25pt - - - Form-ID (Entity) - - - Record-ID - - - 184, 79 - - - 156, 21 - - - 71 - - - cmbSearchPattern2 - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxWD_RecordSearch - - - 11 - - - True - - - Segoe UI, 8.25pt - - - 6, 107 - - - 93, 13 - - - 72 - - - Search Pattern 3: - - - Label13 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxWD_RecordSearch - - - 12 - - - True - - - Segoe UI, 8.25pt - - - 181, 63 - - - 93, 13 - - - 70 - - - Search Pattern 2: - - - Label7 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - grpbxWD_RecordSearch - - - 13 - - - False - - - Segoe UI, 8.25pt, style=Bold - - - 5, 24 - - - 825, 157 - - - 78 - - - windream-Suche für Recordbezogene Suche: - - - grpbxWD_RecordSearch - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage4 - - - 1 - - - Top, Left, Right - - - Segoe UI, 8.25pt - - - 558, 33 - - - 24, 21 - - - 66 - - - ... - - - Button1 - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 0 - - - @Record-ID - - - @EntityID - - - @ParentID - - - 184, 115 - - - 156, 21 - - - 43 - - - SEARCH_PATTERN4ComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 4 - - - @Record-ID - - - @EntityID - - - @ParentID - - - 9, 75 - - - 166, 21 - - - 40 - - - SEARCH_PATTERN1ComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 5 - - - @Record-ID - - - @EntityID - - - @ParentID - - - 9, 115 - - - 166, 21 - - - 42 - - - SEARCH_PATTERN3ComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 8 - - - @Record-ID - - - @EntityID - - - @ParentID - - - 184, 75 - - - 156, 21 - - - 41 - - - SEARCH_PATTERN2ComboBox - - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - GroupBox1 - - - 9 - - - 5, 187 - - - 825, 148 - - - 44 - - - windream-Suche für Entitätsweite Suche: - - - GroupBox1 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage4 - - - 2 - - - 1010, 362 - - - windream-Suche Konfiguration - - - XtraTabPage4 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl2 - - - 2 - - - True - - - Bottom, Left - - - True - - - Segoe UI, 9pt - - - NoControl - - - 179, 145 - - - 132, 15 - - - 85 - - - Platzhalter Ersetzungen: - - - Label12 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 0 - - - Bottom, Left - - - True - - - Segoe UI, 9pt - - - NoControl - - - 457, 152 - - - 55, 15 - - - 84 - - - Ergebnis: - - - Label17 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 1 - - - Bottom, Left - - - 460, 173 - - - 531, 130 - - - 83 - - - dgvResult - - - System.Windows.Forms.DataGridView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 2 - - - Bottom, Left - - - True - - - Platzhalter - - - True - - - Ersetzung - - - False - - - 183, 163 - - - 258, 140 - - - 82 - - - dgvPlaceholders - - - System.Windows.Forms.DataGridView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 3 - - - Bottom, Left - - - Segoe UI Semibold, 9.75pt, style=Bold, Italic - - - MiddleLeft - - - NoControl - - - 736, 136 - - - 255, 31 - - - 81 - - - SQL Befehl testen - - - MiddleRight - - - btnTestSQL - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 4 - - - 182, 69 - - - 48, 23 - - - 80 - - - btnAddUserSQL - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 5 - - - True - - - Segoe UI, 8.25pt, style=Bold - - - NoControl - - - 733, 106 - - - 129, 13 - - - 79 - - - Erfolgreich gespeichert. - - - False - - - lblsaveSQLUser - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 6 - - - 17, 173 - - - 886, 95 - - - Tahoma, 8.25pt, style=Italic - - - 858, 82 - - - 133, 21 - - - 14 - - - CHANGED_WHENTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 8 - - - Tahoma, 8.25pt, style=Italic - - - 736, 82 - - - 116, 21 - - - 12 - - - CHANGED_WHOTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 10 - - - Tahoma, 8.25pt, style=Italic - - - 858, 42 - - - 133, 21 - - - 10 - - - ADDED_WHENTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 12 - - - Tahoma, 8.25pt, style=Italic - - - 736, 42 - - - 116, 21 - - - 8 - - - ADDED_WHOTextBox2 - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 14 - - - 236, 42 - - - True - - - 494, 77 - - - 6 - - - SQL_COMMANDTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 16 - - - Tahoma, 8.25pt, style=Italic - - - 182, 42 - - - 48, 21 - - - 4 - - - GUIDTextBox - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 18 - - - True - - - NoControl - - - 6, 3 - - - 94, 13 - - - 2 - - - User zur Auswahl: - - - Label10 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 19 - - - 9, 19 - - - 153, 21 - - - 1 - - - txtSearchUser - - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 20 - - - Top, Bottom, Left - - - 9, 42 - - - 153, 251 - - - 0 - - - lbxUserSQL - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 21 - - - 4, 22 - - - 3, 3, 3, 3 - - - 1002, 336 - - - 0 - - - Einschränkung Datensätze - - - TabPage1 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 0 - - - 4, 22 - - - 3, 3, 3, 3 - - - 1002, 336 - - - 1 - - - TabPage2 - - - TabPage2 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 1 - - - Fill - - - 0, 0 - - - 1010, 362 - - - 0 - - - TabControl1 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage2 - - - 0 - - - 1010, 362 - - - Einschränkungen User - - - XtraTabPage2 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl2 - - - 3 - - - MiddleLeft - - - NoControl - - - 597, 24 - - - 217, 23 - - - 23 - - - Lösche Entität-Mandanten Zuordnung - - - MiddleRight - - - btndeleteEntityfromClient - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage6 - - - 0 - - - True - - - NoControl - - - 396, 8 - - - 130, 13 - - - 22 - - - Zugeordnete Mandanten: - - - lblUser2Client - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage6 - - - 1 - - - Top, Bottom, Left - - - 399, 24 - - - 192, 132 - - - 21 - - - chklbxEntitiesforClient - - - System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage6 - - - 2 - - - MiddleLeft - - - NoControl - - - 212, 24 - - - 178, 46 - - - 20 - - - Füge Entität zu gewähltem -Mandanten hinzu - - - MiddleRight - - - btnsaddUser2Client - - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage6 - - - 3 - - - True - - - NoControl - - - 11, 8 - - - 122, 13 - - - 19 - - - Verfügbare Mandanten: - - - Label18 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage6 - - - 4 - - - Top, Bottom, Left - - - 14, 24 - - - 192, 132 - - - 18 - - - chklbxClient - - - System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage6 - - - 5 - - - 1010, 362 - - - Zuordnung Entität-Client - - - XtraTabPage6 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl2 - - - 4 - - - XtraTabControl2 - - - DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabPage1 - - - 0 - - - 606, 95 - - - 191, 17 - - - Eingaben erfolgreich gespeichert - - - - False - - - 292, 412 - - - 1012, 22 - - - 35 - - - StatusStrip1 - - - StatusStrip1 - - - System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 1 - - - 499, 95 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAJcEhZcwAADsMAAA7DAcdvqGQAAABWSURBVDhPY6AK+Pbt238S8PsvX74YQLVCAEjCyckJjj+8 - /wjHyGIguq2tDdMQUgwAYZghUO2kGwDCID1Q7fgNQMbIamhrADF41IBBaQA5GKqdEsDAAADtDPd9n5qK - lQAAAABJRU5ErkJggg== - - - - Magenta - - - 79, 22 - - - Speichern - - - 292, 0 - - - 1012, 25 - - - 34 - - - ToolStrip1 - - - ToolStrip1 - - - System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - XtraTabPage1 - - - 2 - - - 1304, 434 - - - Entitäten-Übersicht - - - XtraTabPage1 - - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - XtraTabControl1 - - - 0 - - - 1306, 459 - - - 40 - - - XtraTabControl1 - - - DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - - $this - - - 14 - - - 17, 134 - - - Top, Bottom, Left - - - 15, 44 - - - 224, 199 - - - 42 - - - ListBox1 - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 13 - - - True - - - 12, 28 - - - 128, 13 - - - 43 - - - Alle Constructor-Forms: - - - Label1 - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 12 - - - 811, 56 - - - 17, 95 - - - 319, 95 - - - True - - - Segoe UI, 8.25pt, style=Bold - - - 432, 47 - - - 129, 13 - - - 44 - - - Erfolgreich gespeichert. - - - lblSave - - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 11 - - - 723, 95 - - - windream-Suche|*.wdf|Alle Dateien|*.* - - - windream-Suche wählen - - - 279, 134 - - - 535, 134 - - - 715, 134 - - - 320, 240 - - - + + AAEAAAD/////AQAAAAAAAAAMAgAAAFpEZXZFeHByZXNzLlV0aWxzLnYxNS4xLCBWZXJzaW9uPTE1LjEu Ny4wLCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI4OGQxNzU0ZDcwMGU0OWEMAwAAAFFT @@ -8955,638 +5659,4202 @@ Mandanten hinzu YxnLk0v+7/v/HwTSd2NvxWDZAAAAAElFTkSuQmCCCw== - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m - dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJpSURBVDhPpZP7S1NhGMf9W/SHKEGiGyFhFBTmvMyd - tTa3eTvL9LjFIpam7AzTDGoYuvCHcJbaVSt/yTSxUV4ycnYdWh4rL+3URq3pObumfNsmbS5HEL3weeE8 - PJ/vy3nOeZMA/BcbCgsaTco8Van/QJUzsyqSm1GVcO9JJTNFyvW2UmnKn/1xD4tqDfGJotjvpib4RywI - vLUiMDEK/n43FrRleF1IsC+UQmK9EyfPVVD88t1urM6+Q3DwHoJdzQiaL+Dn7TasjA/CUauFVZ7NP5dm - RkMi27xanRyS7dzNLqwyNgQvn4O72YClphr4LxkQaKHhN56C/8EtLB4nMX7kgH1Msi85GhCSaWe9Hiu2 - yciJPhMN13kdvA3qOLjTJPy91/AqLwPD4gw6GvCROsZ4eq8j2GOG21iFb0XihCxXkeCb6uAwVOMxkc5E - A5gKlTfwsBdBkwHus9pQKfFyyHLgogqxZG6FJW+XN1RaC5ghi7y+ng74G7XwnimPNCda4QBnmQJLba0Y - Em6LBUyXKhiXsQ6+ZhrcSWWkMSHyPLjra7FQq8OgIC32CrZiKc1IBPD2dMKtksBVJtogs9JssAUieLqu - YFS4AwNZW2JDfFMkTn5ZQtgXK0vgudMRGZhTIVwTZblgJSFZIgTf2Y6pYnFYtvcJNsc+Y5jJghxiQnaI - nzuqgOdGB3400nCQcnxRyuBq0IO/2o5pZT76s1L5kBz/I/3mmfQg8fTwftYq2oOvNTq4Wi5G+Fx9Ak9y - todldr0cJi4gzIh4b8qwMF1vIXYzj/J3ckOCrdxAbhrTn52q78vc9PfL9O8g6Rcd0s65aUjWSwAAAABJ - RU5ErkJggg== - + + + + + Die Gesamtanzahl der Elemente. + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 217, 23 + + + 81 + + + 15 + + + 144, 22 + + + 52 + + + Segoe UI, 8.25pt, style=Italic + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 13 + + + Segoe UI, 8.25pt + + + 44 + + + 13 + + + 14 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ADDED_WHENTextBox1 + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Top, Bottom, Left + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Segoe UI, 8.25pt + + + 1002, 333 + + + Bitte konfigurieren Sie die Userzuordnung. + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 48 + + + grpbxWD_RecordSearch + + + 29 + + + 5 + + + 2 + + + TabPage1 + + + 0 + + + 6, 25 + + + 34, 21 + + + 54 + + + XtraTabPage5 + + + 416, 211 + + + Erstellt wann: + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 49 + + + Search Pattern 4: + + + 396, 8 + + + XtraTabPage5 + + + 34 + + + 579, 69 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + 1 + + + Bottom, Left + + + True + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 93, 13 + + + SEARCH_PATTERN4ComboBox + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + True + + + 4, 22 + + + 13 + + + System.Windows.Forms.OpenFileDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 18 + + + System.Windows.Forms.CheckBox, 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 + + + Platzhalter Ersetzungen: + + + btnSetQuickViewPicture + + + 247, 21 + + + XtraTabPage3 + + + lblUser2Client + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + False + + + DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager, DD_DMSDataSetCalendar.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + XtraTabControl2 + + + SQL Ebene 2: + + + NoControl + + + XtraTabPage1 + + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 858, 82 + + + 733, 66 + + + 35 + + + GUIDTextBox1 + + + 1 + + + XtraTabPage4 + + + 349, 79 + + + Segoe UI, 8.25pt + + + NoControl + + + 2 + + + Segoe UI, 8.25pt, style=Bold + + + Tahoma, 8.25pt, style=Italic + + + TabPage1 + + + $this + + + 60, 13 + + + 6, 25 + + + cmbSearchPattern2 + + + MiddleRight + + + 539, 161 + + + 665, 18 + + + windream-Suche Konfiguration + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 40 + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 90, 13 + + + 16 + + + 1 + + + System.Windows.Forms.NumericUpDown, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 80 + + + XtraTabPage3 + + + 45 + + + XtraTabPage3 + + + 11 + + + GroupBox1 + + + 97, 23 + + + TBTEMP_QUICKDISPLAYTableAdapter + + + 1 + + + $this + + + 0 + + + Added when: + + + Löschen + + + $this + + + XtraTabControl2 + + + $this + + + 3 + + + TBPMO_CONSTRUCTOR_USER_SQLBindingSource + + + XtraTabControl2 + + + 0 + + + BindingNavigatorCountItem + + + 40 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + + XtraTabControl1 + + + $this + + + BindingNavigatorSeparator2 + + + GridControlUserSQL + + + 8, 49 + + + Alle Constructor-Forms: + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + True + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + @ParentID + + + 130, 13 + + + 3, 3, 3, 3 + + + 1341, 716 + + + 190, 13 + + + 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 + + + 8 + + + Geändert wann: + + + 92, 13 + + + 44 + + + Letzte verschieben + + + grpbxWD_RecordSearch + + + 1341, 25 + + + System.Windows.Forms.Label, 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 + + + 2 + + + 10 + + + + + + @EntityID + + + False + + + 14 + + + 0 + + + CHANGED_WHOLabel + + + System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 5, 33 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + btndeleteControl + + + 0 + + + XtraTabPage4 + + + lblChangeHeadline + + + DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + 13 + + + MiddleRight + + + TabPage1 + + + 160, 21 + + + Search Pattern 2: + + + 0 + + + 299, 180 + + + $this + + + Change HOME/STANDARD + + + MiddleRight + + + 22, 13 + + + 192, 132 + + + 8 + + + Delete user + + + 201, 78 + + + XtraTabPage6 + + + 247, 28 + + + 116, 21 + + + 51 + + + Headline changed + + + Allgemein + + + 133, 21 + + + 7 + + + SQL_COMMANDTextBox + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Windream-Suche aktiv + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + TBPMO_FORM_CONSTRUCTORBindingNavigator + + + ID: + + + 994, 307 + + + 166, 21 + + + 45 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 9 + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 24, 21 + + + 55, 15 + + + 9, 21 + + + Top, Bottom, Left + + + 736, 42 + + + windream-Suche: + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + + + + 108, 13 + + + False + + + 68 + + + 4 + + + XtraTabPage3 + + + 5 + + + FormDesignerToolStripMenuItem + + + TableAdapterManager + + + @ParentID + + + 0, 0 + + + TBPMO_CONSTRUCTOR_USER_SQLTableAdapter + + + 88 + + + dgvPlaceholders + + + MiddleRight + + + 3 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + 1002, 333 + + + 71, 13 + + + Fuchsia + + + tsbtnSave + + + 11 + + + ADDED_WHOTextBox1 + + + 0 + + + Segoe UI, 8.25pt, style=Italic + + + Segoe UI, 8.25pt + + + 3 + + + MiddleLeft + + + 7 + + + XtraTabPage5 + + + 3 + + + 15 + + + Geändert wer: + + + ListBox1 + + + colSelect + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + 9 + + + CHANGED_WHOTextBox1 + + + 93, 13 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + + + + Dient zur Anzeige der Selektion von Datensätzen + + + 10 + + + Einschränkungen User + + + $this + + + NoControl + + + GroupBox1 + + + Neu hinzufügen + + + 18 + + + Quick View Konfiguration + + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + @Record-ID + + + TabControl1 + + + Segoe UI, 8.25pt, style=Italic + + + Segoe UI, 8.25pt, style=Italic + + + 97, 17 + + + 9 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabControl1 + + + Segoe UI, 8.25pt + + + 52 + + + 13 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Segoe UI, 8.25pt + + + 416, 13 + + + 320, 240 + + + 2 + + + GroupBox1 + + + 186, 186 + + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 9 + + + MiddleLeft + + + True + + + lblSave1 + + + Position + + + 6 + + + 4 + + + Segoe UI, 8.25pt + + + 444, 85 + + + 128, 24 + + + False + + + False + + + 292, 408 + + + BindingNavigatorDeleteItem + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + 23, 22 + + + Geändert wer: + + + 156, 21 + + + 0 + + + + AAABAAQAEBAQAAAAAAAoAQAARgAAABAQAAAAAAAAaAUAAG4BAAAgIBAAAAAAAOgCAADWBgAAICAAAAAA + AACoCAAAvgkAACgAAAAQAAAAIAAAAAEABAAAAAAAwAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAACAAACA + AAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8AAAAAAAAA + AAAA//8AAAAAAAD//wAAAAAAAP/wcAAABwAA//AAAAAAAA///wAAAAAAD///8AAAAAAP//8Ad3eQAA// + /wd3d3AAAAAABwdwcAAAAAEAAAAIAAAAAAAAiIgAAAAAAIiIgAAAAAAAgIiIcAAAAAAACAAAAAAAAAAA + AACAA///gAH//4AB//+AAf//gAH//wAD//8AB///AAP//wAD//8AA///8AD///AA///wAf//+AD///gA + ///5J///KAAAABAAAAAgAAAAAQAIAAAAAABAAQAAAAAAAAAAAAAAAQAAAAAAAAAAAAAAAIAAAIAAAACA + gACAAAAAgACAAICAAADAwMAAwNzAAPDKpgAEBAQACAgIAAwMDAAREREAFhYWABwcHAAiIiIAKSkpAFVV + VQBNTU0AQkJCADk5OQCAfP8AUFD/AJMA1gD/7MwAxtbvANbn5wCQqa0AAAAzAAAAZgAAAJkAAADMAAAz + AAAAMzMAADNmAAAzmQAAM8wAADP/AABmAAAAZjMAAGZmAABmmQAAZswAAGb/AACZAAAAmTMAAJlmAACZ + mQAAmcwAAJn/AADMAAAAzDMAAMxmAADMmQAAzMwAAMz/AAD/ZgAA/5kAAP/MADMAAAAzADMAMwBmADMA + mQAzAMwAMwD/ADMzAAAzMzMAMzNmADMzmQAzM8wAMzP/ADNmAAAzZjMAM2ZmADNmmQAzZswAM2b/ADOZ + AAAzmTMAM5lmADOZmQAzmcwAM5n/ADPMAAAzzDMAM8xmADPMmQAzzMwAM8z/ADP/MwAz/2YAM/+ZADP/ + zAAz//8AZgAAAGYAMwBmAGYAZgCZAGYAzABmAP8AZjMAAGYzMwBmM2YAZjOZAGYzzABmM/8AZmYAAGZm + MwBmZmYAZmaZAGZmzABmmQAAZpkzAGaZZgBmmZkAZpnMAGaZ/wBmzAAAZswzAGbMmQBmzMwAZsz/AGb/ + AABm/zMAZv+ZAGb/zADMAP8A/wDMAJmZAACZM5kAmQCZAJkAzACZAAAAmTMzAJkAZgCZM8wAmQD/AJlm + AACZZjMAmTNmAJlmmQCZZswAmTP/AJmZMwCZmWYAmZmZAJmZzACZmf8AmcwAAJnMMwBmzGYAmcyZAJnM + zACZzP8Amf8AAJn/MwCZzGYAmf+ZAJn/zACZ//8AzAAAAJkAMwDMAGYAzACZAMwAzACZMwAAzDMzAMwz + ZgDMM5kAzDPMAMwz/wDMZgAAzGYzAJlmZgDMZpkAzGbMAJlm/wDMmQAAzJkzAMyZZgDMmZkAzJnMAMyZ + /wDMzAAAzMwzAMzMZgDMzJkAzMzMAMzM/wDM/wAAzP8zAJn/ZgDM/5kAzP/MAMz//wDMADMA/wBmAP8A + mQDMMwAA/zMzAP8zZgD/M5kA/zPMAP8z/wD/ZgAA/2YzAMxmZgD/ZpkA/2bMAMxm/wD/mQAA/5kzAP+Z + ZgD/mZkA/5nMAP+Z/wD/zAAA/8wzAP/MZgD/zJkA/8zMAP/M/wD//zMAzP9mAP//mQD//8wAZmb/AGb/ + ZgBm//8A/2ZmAP9m/wD//2YAIQClAF9fXwB3d3cAhoaGAJaWlgDLy8sAsrKyANfX1wDd3d0A4+PjAOrq + 6gDx8fEA+Pj4APD7/wCkoKAAgICAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAFBQUFBQUFBQU + FBQUFAAAABT09PT0FBQUFBQUEhIUAAAU9PT09BQUFBQUFBIUFAAAFPT09BSaFBQUFBIUmhQAABT09PQU + FBQUFBQSEhQUABT09PT09BQUFBQUFBISAAAU9PT09PT0FBQUFBQUAAAAFPT09PT0FBSampqadRQAABT0 + 9PT09BSampqampoUAAAUFBQUFBQUmhSamhSaFAAAAAAAABQQFBQUFBQUFK8UFAAAAAAUQ0MUZ2eugo2v + FBQAAAAAFBQUFOvrgo2NFBQAAAAAAAAUFGbrZ4KCja+wFAAAAAAAFBQUFBQUghQUFBQAAAAAABQUABQU + ABQUAAAAgAP//4AB//+AAf//gAH//4AB//8AA///AAf//wAD//8AA///AAP///AA///wAP//8AH///gA + ///4AP//+Sf//ygAAAAgAAAAQAAAAAEABAAAAAAAgAIAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAACAAACA + AAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8AAAAAAAAA + AAAAAAAAAAAAAAAAAAAAAAAICIg4iIiAAAAAAIeP//8AAIiIiIiIhwAAAACHj///AAgIiIiIiHcAAAAI + eP///wADiIiIiIiHAAAACHj///8ACAiIiIiIAAAAAAh4///wd3CIiIiIgHdwAAAIeIiIAHdwiIiIiIB3 + cAAACHiHdwAAAAiIiIiIAAAAAIePh4gAAACIiIiIiId3AACHj4ePAAAAiIiIiIh4dwAAh4h4//AACAAA + AACIh3AAAIeIeP/wAAAHd3d3AIdwAACHiHj//wAHdwAAB5kAAAAIePiI////B3d3d3d5AAAACHj///// + 8Hd3d3d3d5AAAAh4//////B3d3d3d3eQAAAIeP/////wdwcHdwcHkAAAAAAAAAAAAHeAh3eAh5AAAAAA + AAAAAAB3d3d3d3AAAAAAAAAAAAEAd3d3AAAIiAAAAAAAAAAAAAAAAAiIiIh3cAAAAAAAAAAACDCIiIh3 + hwAAAAAAAAAAAIAIOIiHiAAAAAAAAAAAAAAAgIiIiHAAAAAAAAAAAAAACAiIiHiHAAAAAAAAAAAAAACA + iIeHh3AAAAAAAAAAAAgICIiIh4d3cAAAAAAAAAAAAIAIhYAAAAAAAAAAAAAAAAgAAIiAAAAAAAAAAAAA + AAAAAAAIcAAAAAAAAAAAAAAAAAAAAAAAAAD//AAf4AAAD+AAAAfgAAAHwAAAB8AAAAfAAAADwAAAA8AA + AAGAAAABgAAAAYAAAAOAAAADgAAABwAAAB8AAAAPAAAADwAAAA8AAAAP/+AAD//AAAD/gAAA/4AAAf8A + AAP/AAAP//AAB//wAAH/4AAA/+AAAP/BCD//xxw///+ePygAAAAgAAAAQAAAAAEACAAAAAAAgAQAAAAA + AAAAAAAAAAEAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAMDcwADwyqYABAQEAAgI + CAAMDAwAERERABYWFgAcHBwAIiIiACkpKQBVVVUATU1NAEJCQgA5OTkAgHz/AFBQ/wCTANYA/+zMAMbW + 7wDW5+cAkKmtAAAAMwAAAGYAAACZAAAAzAAAMwAAADMzAAAzZgAAM5kAADPMAAAz/wAAZgAAAGYzAABm + ZgAAZpkAAGbMAABm/wAAmQAAAJkzAACZZgAAmZkAAJnMAACZ/wAAzAAAAMwzAADMZgAAzJkAAMzMAADM + /wAA/2YAAP+ZAAD/zAAzAAAAMwAzADMAZgAzAJkAMwDMADMA/wAzMwAAMzMzADMzZgAzM5kAMzPMADMz + /wAzZgAAM2YzADNmZgAzZpkAM2bMADNm/wAzmQAAM5kzADOZZgAzmZkAM5nMADOZ/wAzzAAAM8wzADPM + ZgAzzJkAM8zMADPM/wAz/zMAM/9mADP/mQAz/8wAM///AGYAAABmADMAZgBmAGYAmQBmAMwAZgD/AGYz + AABmMzMAZjNmAGYzmQBmM8wAZjP/AGZmAABmZjMAZmZmAGZmmQBmZswAZpkAAGaZMwBmmWYAZpmZAGaZ + zABmmf8AZswAAGbMMwBmzJkAZszMAGbM/wBm/wAAZv8zAGb/mQBm/8wAzAD/AP8AzACZmQAAmTOZAJkA + mQCZAMwAmQAAAJkzMwCZAGYAmTPMAJkA/wCZZgAAmWYzAJkzZgCZZpkAmWbMAJkz/wCZmTMAmZlmAJmZ + mQCZmcwAmZn/AJnMAACZzDMAZsxmAJnMmQCZzMwAmcz/AJn/AACZ/zMAmcxmAJn/mQCZ/8wAmf//AMwA + AACZADMAzABmAMwAmQDMAMwAmTMAAMwzMwDMM2YAzDOZAMwzzADMM/8AzGYAAMxmMwCZZmYAzGaZAMxm + zACZZv8AzJkAAMyZMwDMmWYAzJmZAMyZzADMmf8AzMwAAMzMMwDMzGYAzMyZAMzMzADMzP8AzP8AAMz/ + MwCZ/2YAzP+ZAMz/zADM//8AzAAzAP8AZgD/AJkAzDMAAP8zMwD/M2YA/zOZAP8zzAD/M/8A/2YAAP9m + MwDMZmYA/2aZAP9mzADMZv8A/5kAAP+ZMwD/mWYA/5mZAP+ZzAD/mf8A/8wAAP/MMwD/zGYA/8yZAP/M + zAD/zP8A//8zAMz/ZgD//5kA///MAGZm/wBm/2YAZv//AP9mZgD/Zv8A//9mACEApQBfX18Ad3d3AIaG + hgCWlpYAy8vLALKysgDX19cA3d3dAOPj4wDq6uoA8fHxAPj4+ADw+/8ApKCgAICAgAAAAP8AAP8AAAD/ + /wD/AAAA/wD/AP//AAD///8AAAAAAAAAAAAAAAAAAAAUFBQUFBQUFBQUFBQUAAAAAAAAAAAUFBQUFBQU + FBQUFBJtEm1t627s7JLskpIUAAAAAAAAABTr8ev09PT09BQUEhJtbW3r6+vs7JKSku8UAAAAAAAAFOvx + 6/T09PT0FBQSbRJt623r7OzskpLv7xQAAAAAABTr8ev09PT09PQUEhJKbW1t6+vs65LskpLvFAAAAAAA + FOvx6/T09PT09BQUFG0SbW3r7OuN7JKSFBQUAAAAAAAU6/Hr9PT09PQUmpqaFG1tbevr7HOS7BSampoU + AAAAABTr8evr6+vrFBSampoUbW1t6+vr7OySFJqamhQAAAAAFOvx6+vx8fEUFBQUFBISbett6+zs7JKS + FBQUFBQAABTr8ev06/Hr6xQUFBQSEm1tbevr7OuS7JKS7+/vFAAAFOvx6/Tr8ev0FBQUEhQSbW3rbevs + 7OySku+S7wcUAAAU6/Hr6/Hr9PT0FBQUEm0SFBQUFBQUFJKSku8HFAAAABTr8evr8ev09PQUFBQSFBSa + mpqampqaFBSS7+8UAAAAFOvx6+vx6/T09PQUFBSampoUFBQUFJp1dRQUFAAAABTr8ev06+vr9PT09PT0 + FJqampqampqampp1FAAAAAAAFOvx6/T09PT09PT09BSampqampqampqampp1FAAAAAAU6/Hr9PT09PT0 + 9PT0FJqampqampqampqamnUUAAAAABTr8ev09PT09PT09PQUmpoUmhSampoUmhSadRQAAAAAFBQUFBQU + FBQUFBQUFBSamuwU7JqamuwU7Jp1FAAAAAAAAAAAAAAAAAAAABQUFJqampqampqampqaFBQUAAAAAAAA + AAAAAAAAAAAUEGcUmpqampqaFBQUFBSvjq8UFBQUAAAAAAAAAAAAFD1mQxQUFBQUFBRnjY2Ngo6vjrC2 + sBQAAAAAAAAAAAAUQ0NEZxRnZ21oZ42CjY2vjbCwr7AUAAAAAAAAAAAAFENDRENmRGdtZ2euaK6Ngo2w + jq8UFAAAAAAAAAAAAAAUFBQUFBRnFGdn62eNgo2Nja+wFAAAAAAAAAAAAAAAAAAAAAAUEhRnZ+tnjYKN + jY2wjq+wFAAAAAAAAAAAAAAAAAAAABRnZ2dnZ41njY2CsI2wjrC2FBQAAAAAAAAAAAAAAAAUEkRmbWfr + Z42Ngo2NjbCvsLDRthQAAAAAAAAAAAAAABQUZ0QUZ2eNZxSNjYivFBQUFBQUFAAAAAAAAAAAAAAUREMU + FAAU62cUABSCr44UAAAAAAAAAAAAAAAAAAAAABQUFAAAABRnFAAAABSNsBQAAAAAAAAAAAAAAAAAAAAA + AAAAAAAAABQUAAAAABQUFAAAAAAAAP/8AB/gAAAP4AAAB+AAAAfAAAAHwAAAB8AAAAPAAAADwAAAAYAA + AAGAAAABgAAAA4AAAAOAAAAHAAAAHwAAAA8AAAAPAAAADwAAAA//4AAP/8AAAP+AAAD/gAAB/wAAA/8A + AA//8AAH//AAAf/gAAD/4AAA/8EIP//HHD///54/ + + + + 203, 21 + + + Tahoma, 8.25pt, style=Italic + + + Segoe UI, 8.25pt + + + XtraTabPage5 + + + 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 + + + NoControl + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Segoe UI, 8.25pt, style=Italic + + + TabPage2 + + + 838, 52 + + + Segoe UI, 8.25pt, style=Italic + + + 7 + + + 1 + + + 12 + + + 184, 123 + + + 156, 21 + + + StatusStrip1 + + + DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + Bottom, Left + + + 15, 44 + + + 2 + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 42 + + + True + + + + Default + + + Search Pattern 1: + + + btnTestSQL + + + Daten speichern + + + Segoe UI, 8.25pt + + + 413, 195 + + + 0 + + + 70, 183 + + + Segoe UI, 8.25pt, style=Italic + + + 0 + + + ADDED_WHENTextBox2 + + + 1 + + + 34 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJpSURBVDhPpZP7S1NhGMf9W/SHKEGiGyFhFBTmvMyd + tTa3eTvL9LjFIpam7AzTDGoYuvCHcJbaVSt/yTSxUV4ycnYdWh4rL+3URq3pObumfNsmbS5HEL3weeE8 + PJ/vy3nOeZMA/BcbCgsaTco8Van/QJUzsyqSm1GVcO9JJTNFyvW2UmnKn/1xD4tqDfGJotjvpib4RywI + vLUiMDEK/n43FrRleF1IsC+UQmK9EyfPVVD88t1urM6+Q3DwHoJdzQiaL+Dn7TasjA/CUauFVZ7NP5dm + RkMi27xanRyS7dzNLqwyNgQvn4O72YClphr4LxkQaKHhN56C/8EtLB4nMX7kgH1Msi85GhCSaWe9Hiu2 + yciJPhMN13kdvA3qOLjTJPy91/AqLwPD4gw6GvCROsZ4eq8j2GOG21iFb0XihCxXkeCb6uAwVOMxkc5E + A5gKlTfwsBdBkwHus9pQKfFyyHLgogqxZG6FJW+XN1RaC5ghi7y+ng74G7XwnimPNCda4QBnmQJLba0Y + Em6LBUyXKhiXsQ6+ZhrcSWWkMSHyPLjra7FQq8OgIC32CrZiKc1IBPD2dMKtksBVJtogs9JssAUieLqu + YFS4AwNZW2JDfFMkTn5ZQtgXK0vgudMRGZhTIVwTZblgJSFZIgTf2Y6pYnFYtvcJNsc+Y5jJghxiQnaI + nzuqgOdGB3400nCQcnxRyuBq0IO/2o5pZT76s1L5kBz/I/3mmfQg8fTwftYq2oOvNTq4Wi5G+Fx9Ak9y + todldr0cJi4gzIh4b8qwMF1vIXYzj/J3ckOCrdxAbhrTn52q78vc9PfL9O8g6Rcd0s65aUjWSwAAAABJ + RU5ErkJggg== + + + + System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 117, 13 + + + 12 + + + 78 + + + 4 + + + TreeViewDetails + + + 19 + + + 480, 49 + + + MiddleLeft + + + True + + + 296, 137 + + + TBPMO_FORM_CONSTRUCTORBindingSource + + + System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 166, 21 + + + 6, 13 + + + Segoe UI, 8.25pt, style=Bold + + + 83, 13 + + + DD_ECMAdmin + + + grpbxWD_RecordSearch + + + DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + GroupBox1 + + + Changed who: + + + Form-ID (Entity) + + + XtraTabPage5 + + + TabControl1 + + + 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 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 22 + + + MiddleRight + + + 8 + + + 69, 91 + + + Form-ID (Entity) + + + Erstellt wann: + + + XtraTabPage5 + + + 292, 25 + + + 129, 13 + + + 166, 21 + + + SQL Befehl testen + + + 287, 21 + + + 144, 22 + + + + + + 18 + + + Magenta + + + 156, 21 + + + 1 + + + 46 + + + GridControlUsers2Menue + + + grpbxWD_RecordSearch + + + True + + + Entitäten-Übersicht + + + 160, 21 + + + True + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Geändert wann: + + + XtraTabPage1 + + + GUIDLabel1 + + + @EntityID + + + Segoe UI, 8.25pt + + + QuickViewBild Control hinzugefügt + + + XtraTabPage3 + + + Label14 + + + 59 + + + 50 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Aktuelle Position + + + Form-ID (Entity) + + + Add user + + + Segoe UI, 9pt + + + Top, Left, Right + + + Label15 + + + XtraTabPage1 + + + 3, 10 + + + BindingNavigatorMoveLastItem + + + 8 + + + btnAddUser2ConstructorREL + + + ADDED_WHOTextBox2 + + + listBoxControls + + + NoControl + + + 579, 252 + + + 84 + + + Top, Bottom, Left + + + NoControl + + + 3 + + + Form-ID (Entity) + + + 30 + + + $this + + + $this + + + 576, 28 + + + True + + + 292, 386 + + + True + + + 432, 47 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 15 + + + 543, 22 + + + 224, 225 + + + + + + $this + + + Form-ID (Entity) + + + 73, 13 + + + LANGUAGETextBox + + + TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource + + + Segoe UI, 8.25pt + + + 40 + + + 248, 195 + + + Label10 + + + Fuchsia + + + 15 + + + CheckBoxHome + + + 166, 21 + + + 116, 52 + + + True + + + Label11 + + + XtraTabPage3 + + + True + + + GridViewlUsers2Menue + + + GroupBox1 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + @Record-ID + + + SEARCH_PATTERN2Label1 + + + 122, 24 + + + 184, 75 + + + System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + 202, 160 + + + grpbxWD_RecordSearch + + + Label16 + + + 61 + + + 11, 8 + + + 1306, 436 + + + DevExpress.Utils.ImageCollection, DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + 296, 33 + + + Konfigurierte Feldauswahl: + + + 2 + + + XtraTabPage1 + + + 5 + + + 19 + + + Label17 + + + 83, 22 + + + 51 + + + BindingNavigatorSeparator + + + SEARCH_PATTERN3Label + + + BindingNavigatorPositionItem + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + @EntityID + + + 250, 44 + + + 4 + + + 6, 99 + + + lblConfiguredUsers + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 12 + + + XtraTabPage5 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 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 + + + + Button2 + + + 15, 27 + + + 6, 63 + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 61, 13 + + + chklbxEntitiesforClient + + + Cyan + + + Label12 + + + True + + + Hinzufügen Datensatzeinschränkung + + + 9 + + + Default + + + 6, 59 + + + TabPage1 + + + True + + + TableAdapterManager2 + + + NoControl + + + 175, 23 + + + Label5 + + + Label13 + + + True + + + 102 + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 9 + + + 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 + + + 181, 59 + + + Form-Designer + + + 65, 13 + + + Label18 + + + 738, 248 + + + XtraTabPage3 + + + XtraTabPage4 + + + grpbxWD_RecordSearch + + + TBPMO_FORM_CONSTRUCTORBindingSource1 + + + $this + + + SQL_SELECT_EBENE2Label + + + GridViewUserSQL + + + 92, 23 + + + 92, 13 + + + Label9 + + + 733, 26 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + 10 + + + 72 + + + 5 + + + 8 + + + windream-Suche wählen + + + 54 + + + Bottom, Left, Right + + + 597, 24 + + + 11 + + + System.Windows.Forms.DataGridView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage4 + + + 1006, 359 + + + from {0} records + + + 82, 13 + + + Selection + + + Level 1 Auswahl? + + + 149, 22 + + + CHANGED_WHOTextBox2 + + + $this + + + TabPage1 + + + cmbSearchPattern5 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJpSURBVDhPpZP7S1NhGMf9W/SHKEGiGyFhFBTmvMyd + tTa3eTvL9LjFIpam7AzTDGoYuvCHcJbaVSt/yTSxUV4ycnYdWh4rL+3URq3pObumfNsmbS5HEL3weeE8 + PJ/vy3nOeZMA/BcbCgsaTco8Van/QJUzsyqSm1GVcO9JJTNFyvW2UmnKn/1xD4tqDfGJotjvpib4RywI + vLUiMDEK/n43FrRleF1IsC+UQmK9EyfPVVD88t1urM6+Q3DwHoJdzQiaL+Dn7TasjA/CUauFVZ7NP5dm + RkMi27xanRyS7dzNLqwyNgQvn4O72YClphr4LxkQaKHhN56C/8EtLB4nMX7kgH1Msi85GhCSaWe9Hiu2 + yciJPhMN13kdvA3qOLjTJPy91/AqLwPD4gw6GvCROsZ4eq8j2GOG21iFb0XihCxXkeCb6uAwVOMxkc5E + A5gKlTfwsBdBkwHus9pQKfFyyHLgogqxZG6FJW+XN1RaC5ghi7y+ng74G7XwnimPNCda4QBnmQJLba0Y + Em6LBUyXKhiXsQ6+ZhrcSWWkMSHyPLjra7FQq8OgIC32CrZiKc1IBPD2dMKtksBVJtogs9JssAUieLqu + YFS4AwNZW2JDfFMkTn5ZQtgXK0vgudMRGZhTIVwTZblgJSFZIgTf2Y6pYnFYtvcJNsc+Y5jJghxiQnaI + nzuqgOdGB3400nCQcnxRyuBq0IO/2o5pZT76s1L5kBz/I/3mmfQg8fTwftYq2oOvNTq4Wi5G+Fx9Ak9y + todldr0cJi4gzIh4b8qwMF1vIXYzj/J3ckOCrdxAbhrTn52q78vc9PfL9O8g6Rcd0s65aUjWSwAAAABJ + RU5ErkJggg== + + + + True + + + False + + + SQL_SELECT_EBENE1TextBox + + + 72, 25 + + + 35 + + + True + + + 3, 3, 3, 3 + + + Segoe UI, 8.25pt, style=Bold + + + BindingNavigatorMoveFirstItem + + + 416, 128 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAAK/INwWK6QAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAJpSURBVDhPpZP7S1NhGMf9W/SHKEGiGyFhFBTmvMyd + tTa3eTvL9LjFIpam7AzTDGoYuvCHcJbaVSt/yTSxUV4ycnYdWh4rL+3URq3pObumfNsmbS5HEL3weeE8 + PJ/vy3nOeZMA/BcbCgsaTco8Van/QJUzsyqSm1GVcO9JJTNFyvW2UmnKn/1xD4tqDfGJotjvpib4RywI + vLUiMDEK/n43FrRleF1IsC+UQmK9EyfPVVD88t1urM6+Q3DwHoJdzQiaL+Dn7TasjA/CUauFVZ7NP5dm + RkMi27xanRyS7dzNLqwyNgQvn4O72YClphr4LxkQaKHhN56C/8EtLB4nMX7kgH1Msi85GhCSaWe9Hiu2 + yciJPhMN13kdvA3qOLjTJPy91/AqLwPD4gw6GvCROsZ4eq8j2GOG21iFb0XihCxXkeCb6uAwVOMxkc5E + A5gKlTfwsBdBkwHus9pQKfFyyHLgogqxZG6FJW+XN1RaC5ghi7y+ng74G7XwnimPNCda4QBnmQJLba0Y + Em6LBUyXKhiXsQ6+ZhrcSWWkMSHyPLjra7FQq8OgIC32CrZiKc1IBPD2dMKtksBVJtogs9JssAUieLqu + YFS4AwNZW2JDfFMkTn5ZQtgXK0vgudMRGZhTIVwTZblgJSFZIgTf2Y6pYnFYtvcJNsc+Y5jJghxiQnaI + nzuqgOdGB3400nCQcnxRyuBq0IO/2o5pZT76s1L5kBz/I/3mmfQg8fTwftYq2oOvNTq4Wi5G+Fx9Ak9y + todldr0cJi4gzIh4b8qwMF1vIXYzj/J3ckOCrdxAbhrTn52q78vc9PfL9O8g6Rcd0s65aUjWSwAAAABJ + RU5ErkJggg== + + + + 16 + + + Füge Entität zu gewähltem +Mandanten hinzu + + + $this + + + Zuordnung Entität-Client + + + 15, 277 + + + 14 + + + MiddleLeft + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ID: + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 0 + + + 5 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAALhJREFUOE+tk8ENhCAQRSnFWqiEOiiAO42sJXjmRCnsXriy83VIZCQE153kJcKf + /yM6KFk5Z0NsRBFgz3DbtUhciBhCKNbaorVuwB409KCXbUexOTnnLkaJ9x4hqQmhRYTQM/TgkFjNBq8m + m9bXWt7ps4NnqfNxDAK23pnBKAQeeBHQCJJRCLxNQG0ccQ75f0CPmSM8/ojPfiPPQpyZwkozSCha7KM8 + M43dUUZxyG+X6Vwk3rjOSn0Bs2pSjcG3D98AAAAASUVORK5CYII= + + + + 181, 107 + + + 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 + + + 69, 48 + + + TabPage1 + + + cmbSearchPattern1 + + + 128, 13 + + + Verfügbare Mandanten: + + + 4 + + + 14 + + + XtraTabPage6 + + + SEARCH_PATTERN1Label1 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + 24, 21 + + + Segoe UI, 8.25pt + + + System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + MiddleLeft + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 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 + + + 346, 126 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + cmbSearchPattern3 + + + 11 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + 299, 49 + + + Search Pattern 4: + + + 21 + + + windream-Suche für Entitätsweite Suche: + + + 192, 132 + + + Search Pattern 2: + + + 9 + + + 175, 21 + + + 229, 13 + + + 1008, 22 + + + 0 + + + ADDED_WHENTextBox + + + MiddleRight + + + $this + + + XtraTabPage1 + + + 239, 240 + + + TopCenter + + + Segoe UI, 8.25pt, style=Italic + + + 160, 21 + + + 0 + + + NoControl + + + 156, 21 + + + Consolas, 8.25pt + + + Erfolgreich gespeichert. + + + + + + GroupBox1 + + + TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + + + 116, 21 + + + Search Pattern 1: + + + 480, 158 + + + $this + + + 9, 115 + + + CHANGED_WHENTextBox1 + + + 1008, 361 + + + 14 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + System.Windows.Forms.StatusStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 11 + + + True + + + 536, 143 + + + 5, 24 + + + 133, 17 + + + GroupBox1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 132, 15 + + + grpbxWD_RecordSearch + + + 79, 22 + + + True + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Cyan + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + 10 + + + Userauswahl: + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpbxWD_RecordSearch + + + CONSTRUCTOR_IDTextBox + + + Top, Left, Right + + + 83 + + + Tahoma, 8.25pt, style=Italic + + + + + + MiddleLeft + + + ADDED_WHOLabel + + + TabPage1 + + + ImageList1 + + + 11 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAALhJREFUOE+tk8ENhCAQRSnFWqiEOiiAO42sJXjmRCnsXriy83VIZCQE153kJcKf + /yM6KFk5Z0NsRBFgz3DbtUhciBhCKNbaorVuwB409KCXbUexOTnnLkaJ9x4hqQmhRYTQM/TgkFjNBq8m + m9bXWt7ps4NnqfNxDAK23pnBKAQeeBHQCJJRCLxNQG0ccQ75f0CPmSM8/ojPfiPPQpyZwkozSCha7KM8 + M43dUUZxyG+X6Vwk3rjOSn0Bs2pSjcG3D98AAAAASUVORK5CYII= + + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 96, 13 + + + 994, 330 + + + grpbxWD_RecordSearch + + + XtraTabPage2 + + + 2 + + + True + + + + Center + + + colReplace + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + CHANGED_WHOLabel2 + + + 73 + + + 17 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + True + + + 0 + + + $this + + + btnWindreamsuche + + + 92, 22 + + + DD_DMSDataSet + + + SEARCH_PATTERN2ComboBox + + + $this + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + True + + + ... + + + GridColumn4 + + + 35 + + + Top, Bottom, Left + + + 102 + + + Consolas, 8.25pt + + + 8 + + + lblQuickViewAdded + + + 6, 107 + + + True + + + GridColumn5 + + + 37 + + + TabPage1 + + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + MiddleLeft + + + ... + + + 858, 42 + + + 3 + + + Added who: + + + 6 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + User zur Auswahl: + + + True + + + TabPage1 + + + txtQuickViewPicture + + + 256, 173 + + + NoControl + + + Cyan + + + 31 + + + 168, 38 + + + GridColumn2 + + + lblsaveSQLUser + + + grpbxWD_RecordSearch + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Tahoma, 8.25pt, style=Italic + + + 3 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Windows.Forms.ToolStripTextBox, 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 + + + True + + + 19 + + + 251, 170 + + + Label3 + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 477, 88 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + 178, 46 + + + DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 9, 123 + + + 9 + + + XtraTabPage5 + + + Segoe UI, 8.25pt, style=Bold + + + TBWH_Users1BindingSource + + + TabPage1 + + + 28 + + + False + + + 44 + + + 74 + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + btndeleteEntityfromClient + + + 21 + + + Add to HOME + + + grpbxWD_RecordSearch + + + 20 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAFZJREFUOE9joAr49u3bfxLw+y9fvhhAtUIASMLJyQmOP7z/CMfIYiC6ra0N0xBS + DABhmCFQ7aQbAMIgPVDt+A1AxshqaGsAMXjUgEFpADkYqp0SwMAAAO0M932fmoqVAAAAAElFTkSuQmCC + + + + NoControl + + + Segoe UI, 8.25pt, style=Bold + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Tile + + + XtraTabPage3 + + + Cyan + + + True + + + 6 + + + windream-Suche für Recordbezogene Suche: + + + GUIDTextBox + + + SQL Command: + + + 10 + + + LOAD_DIRECTCheckBox + + + 153, 22 + + + 10 + + + frmConstructorDesigner + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Segoe UI, 8.25pt, style=Italic + + + 66 + + + SHORT_TITLELabel + + + Horizontal + + + BindingNavigator1 + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 25 + + + 2 + + + 1002, 333 + + + XtraTabPage3 + + + 733, 127 + + + 43 + + + 94, 13 + + + 239, 199 + + + 19 + + + 6, 25 + + + grpbxWD_RecordSearch + + + MiddleLeft + + + 72, 149 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + btnSetHeadline + + + 299, 153 + + + 821, 148 + + + 558, 33 + + + XtraTabPage6 + + + 14, 3 + + + 292, 0 + + + 1049, 126 + + + XtraTabPage3 + + + OFDWindreamsuche + + + ADDED_WHENLabel2 + + + Changed when: + + + windream-Suche: + + + Fuchsia + + + ToolStrip1 + + + WINDREAM_SEARCHLabel + + + XtraTabPage3 + + + 1 + + + Vorherige verschieben + + + btnAddUserSQL + + + Erstellt wer: + + + 12, 28 + + + 1 + + + 1 + + + GUIDLabel2 + + + XtraTabControl2 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + Ersten Record laden + + + XtraTabPage6 + + + 12 + + + 69, 133 + + + 6, 18 + + + CHANGED_WHENTextBox2 + + + True + + + 247, 112 + + + TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem + + + 16 + + + Segoe UI, 8.25pt, style=Italic + + + 4 + + + 23, 22 + + + Search Pattern 5: + + + 4 + + + TabPage1 + + + 23, 22 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 49 + + + System.Windows.Forms.DataGridView, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 701, 25 + + + 287, 161 + + + 733, 106 + + + 417, 170 + + + True + + + Segoe UI, 9pt + + + Horizontal + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + Konfigurieren Sie hier die Erstansicht zur Navigation innerhalb der Eintitätsdatensätze + + + + + + 6, 18 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + xAAADsQBlSsOGwAAALhJREFUOE+tk8ENhCAQRSnFWqiEOiiAO42sJXjmRCnsXriy83VIZCQE153kJcKf + /yM6KFk5Z0NsRBFgz3DbtUhciBhCKNbaorVuwB409KCXbUexOTnnLkaJ9x4hqQmhRYTQM/TgkFjNBq8m + m9bXWt7ps4NnqfNxDAK23pnBKAQeeBHQCJJRCLxNQG0ccQ75f0CPmSM8/ojPfiPPQpyZwkozSCha7KM8 + M43dUUZxyG+X6Vwk3rjOSn0Bs2pSjcG3D98AAAAASUVORK5CYII= + + + + Speichern + + + 41 + + + Tahoma, 8.25pt, style=Italic + + + NoControl + + + 7 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + True + + + DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + XtraTabPage6 + + + StatusStrip1 + + + BindingNavigatorSeparator1 + + + 77, 13 + + + 5 + + + Tahoma, 8.25pt, style=Italic + + + 50, 23 + + + 58 + + + Reihenfolge Menü: + + + TabPage1 + + + 97, 23 + + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 23 + + + TBTEMP_QUICKDISPLAYBindingSource + + + COLUMN_NAME1Label1 + + + Bottom, Left + + + 92, 13 + + + 4 + + + 43, 22 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage5 + + + 576, 50 + + + Designer + + + 1 + + + Erste verschieben + + + btnsaddUser2Client + + + 27 + + + 855, 26 + + + Felder zur Auswahl: + + + MiddleLeft + + + True + + + 47 + + + 23, 22 + + + 7 + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + tslblSaveDetail + + + 212, 24 + + + CHANGED_WHENTextBox + + + $this + + + 246, 140 + + + True + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 2 + + + 71 + + + FORM_TITLELabel + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 736, 82 + + + 42 + + + XtraTabPage3 + + + Ersetzung + + + 449, 140 + + + XtraTabPage3 + + + 1 + + + TabPage1 + + + 0 + + + 7 + + + lblUsers + + + 200, 49 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + ADDED_WHOLabel1 + + + None + + + @Record-ID + + + TBPMO_FORM_CONSTRUCTORTableAdapter + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + grpbxWD_RecordSearch + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + BindingNavigatorMoveNextItem + + + False + + + WINDREAM_SEARCHTextBox + + + True + + + $this + + + GridColumn1 + + + 6 + + + ADDED_WHOTextBox + + + True + + + CHANGED_WHENLabel2 + + + 44 + + + 82 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 248, 154 + + + 7 + + + 34 + + + SQL Ebene 1: + + + Segoe UI, 8.25pt + + + GroupBox1 + + + 107 + + + 70, 224 + + + 9, 75 + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 12 + + + TabPage1 + + + 0 + + + 70 + + + 65, 13 + + + SQL_COMMANDLabel + + + 821, 157 + + + XtraTabControl2 + + + 0, 0 + + + Nächste verschieben + + + 757, 20 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + True + + + BindingNavigatorMovePreviousItem + + + TabControl1 + + + Label1 + + + 1 + + + TBPMO_FORM_CONSTRUCTORTableAdapter1 + + + btndeleteUserConstructorRel + + + grpbxWD_RecordSearch + + + 251, 211 + + + 20 + + + colID1 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + 23, 22 + + + 4 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + ADDED_WHOLabel2 + + + Button1 + + + SEARCH_PATTERN1ComboBox + + + XtraTabPage5 + + + 3 + + + 43 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + 2 + + + TabPage1 + + + 52 + + + System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Button2 + + + Einschränkung Datensätze + + + Erfolgreich gespeichert. + + + TabPage1 + + + Zugeordnete Mandanten: + + + 7 + + + ADDED_WHENLabel1 + + + 3 + + + XtraTabPage3 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + MiddleLeft + + + 5 + + + 46 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 93, 13 + + + 92, 13 + + + 0 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 1 + + + 9, 34 + + + 60 - - MiddleRight + + 189, 133 - - NoControl + + 6 - - 738, 99 + + 72, 64 - - 97, 23 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 58 + + True - - Delete user + + @Record-ID - - MiddleLeft + + 6, 3 - - btndeleteUserConstructorRel + + 50, 22 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + FORM_TITLETextBox - - $this + + 236, 13 - - 5 + + 8 - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - xAAADsQBlSsOGwAAALhJREFUOE+tk8ENhCAQRSnFWqiEOiiAO42sJXjmRCnsXriy83VIZCQE153kJcKf - /yM6KFk5Z0NsRBFgz3DbtUhciBhCKNbaorVuwB409KCXbUexOTnnLkaJ9x4hqQmhRYTQM/TgkFjNBq8m - m9bXWt7ps4NnqfNxDAK23pnBKAQeeBHQCJJRCLxNQG0ccQ75f0CPmSM8/ojPfiPPQpyZwkozSCha7KM8 - M43dUUZxyG+X6Vwk3rjOSn0Bs2pSjcG3D98AAAAASUVORK5CYII= - + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - MiddleRight + + GroupBox1 - - NoControl + + False - - 738, 70 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 97, 23 + + DD_Record_Organiser.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null - - 57 + + LEVEL1_SELECTCheckBox - - Add user + + Delete field - - MiddleLeft + + 79 - - btnAddUser2ConstructorREL + + 175, 69 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Erfolgreich gespeichert. - + + 149, 22 + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 757, 20 + + + + + + 72, 13 + + $this - - 6 + + chkWDSearch_Active - - Top, Bottom, Left + + 100, 17 - - 841, 71 + + True - - 202, 173 + + True - - 56 + + Segoe UI Semibold, 9.75pt, style=Bold, Italic - - ListBoxUsersFORConstructor + + 75 - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True - - $this + + 12, 11 - - 7 + + Bottom, Left - - NoControl + + 250, 129 - - 838, 52 + + Bottom, Left - - 178, 17 + + GUIDLabel - - 53 + + 70, 13 - - Freigegebene User - Ansicht: + + TabPage2 - - lblConfiguredUsers + + txtWindreamsuche - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Set as QuickView Picture - - $this + + 1002, 333 - - 8 + + 23, 22 - - NoControl + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 576, 50 + + Segoe UI, 8.25pt, style=Bold - - 100, 17 + + MiddleRight - - 52 + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Userauswahl: + + 22 - - lblUsers + + Regular - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - $this + + 413, 112 - - 9 + + 2 - + + 1 + + + 0 + + + XtraTabPage5 + + + ImageCollection1 + + True - - NoControl + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 7 + + + 6 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Label4 + + + 191, 17 - - 576, 28 + + 250, 85 - - 229, 13 + + 57 - - 54 + + SEARCH_PATTERN4Label - - Bitte konfigurieren Sie die Userzuordnung. + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Label16 + + True - - System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Bottom, Left - - $this + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 10 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 350, 128 + + Center - - 50, 22 + + 184, 79 - - 59 + + Kurzname: - - LANGUAGETextBox + + XtraTabPage3 - + + 122, 13 + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - $this + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 4 + + 3 - - True + + lblSave - - 738, 128 + + 413, 154 - - 97, 17 + + NoControl - - 60 + + 77, 13 - - Add to HOME + + TableAdapterManager1 - - CheckBoxHome + + NoControl - - System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TableAdapterManager3 - - $this + + CHANGED_WHOTextBox - - 3 + + ListBoxUsersFORConstructor - - TopCenter + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - NoControl + + Tahoma, 8.25pt, style=Italic - - 1049, 70 + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 116, 52 + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 61 + + @ParentID - - Change HOME/STANDARD + + True - - BottomCenter + + 6 - - btnChangeHOMESTANDARD + + XtraTabPage5 - - System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + NoControl - - $this + + Freigegebene User - Ansicht: - - 2 + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 862, 134 - - - 340, 173 - - - Top, Bottom, Left + + 12 - - 579, 70 + + 11 - - 153, 174 + + ToolStrip1 - - 62 + + MiddleRight - - chksbxUserConstructor + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 48 - - $this + + System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 1 + + colPlaceholder - - True - - - 125 - - - 6, 13 + + Ergebnis: - - 1341, 713 + + System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - Segoe UI, 8.25pt + + True - - - AAABAAQAEBAQAAAAAAAoAQAARgAAABAQAAAAAAAAaAUAAG4BAAAgIBAAAAAAAOgCAADWBgAAICAAAAAA - AACoCAAAvgkAACgAAAAQAAAAIAAAAAEABAAAAAAAwAAAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAACAAACA - AAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8AAAAAAAAA - AAAA//8AAAAAAAD//wAAAAAAAP/wcAAABwAA//AAAAAAAA///wAAAAAAD///8AAAAAAP//8Ad3eQAA// - /wd3d3AAAAAABwdwcAAAAAEAAAAIAAAAAAAAiIgAAAAAAIiIgAAAAAAAgIiIcAAAAAAACAAAAAAAAAAA - AACAA///gAH//4AB//+AAf//gAH//wAD//8AB///AAP//wAD//8AA///8AD///AA///wAf//+AD///gA - ///5J///KAAAABAAAAAgAAAAAQAIAAAAAABAAQAAAAAAAAAAAAAAAQAAAAAAAAAAAAAAAIAAAIAAAACA - gACAAAAAgACAAICAAADAwMAAwNzAAPDKpgAEBAQACAgIAAwMDAAREREAFhYWABwcHAAiIiIAKSkpAFVV - VQBNTU0AQkJCADk5OQCAfP8AUFD/AJMA1gD/7MwAxtbvANbn5wCQqa0AAAAzAAAAZgAAAJkAAADMAAAz - AAAAMzMAADNmAAAzmQAAM8wAADP/AABmAAAAZjMAAGZmAABmmQAAZswAAGb/AACZAAAAmTMAAJlmAACZ - mQAAmcwAAJn/AADMAAAAzDMAAMxmAADMmQAAzMwAAMz/AAD/ZgAA/5kAAP/MADMAAAAzADMAMwBmADMA - mQAzAMwAMwD/ADMzAAAzMzMAMzNmADMzmQAzM8wAMzP/ADNmAAAzZjMAM2ZmADNmmQAzZswAM2b/ADOZ - AAAzmTMAM5lmADOZmQAzmcwAM5n/ADPMAAAzzDMAM8xmADPMmQAzzMwAM8z/ADP/MwAz/2YAM/+ZADP/ - zAAz//8AZgAAAGYAMwBmAGYAZgCZAGYAzABmAP8AZjMAAGYzMwBmM2YAZjOZAGYzzABmM/8AZmYAAGZm - MwBmZmYAZmaZAGZmzABmmQAAZpkzAGaZZgBmmZkAZpnMAGaZ/wBmzAAAZswzAGbMmQBmzMwAZsz/AGb/ - AABm/zMAZv+ZAGb/zADMAP8A/wDMAJmZAACZM5kAmQCZAJkAzACZAAAAmTMzAJkAZgCZM8wAmQD/AJlm - AACZZjMAmTNmAJlmmQCZZswAmTP/AJmZMwCZmWYAmZmZAJmZzACZmf8AmcwAAJnMMwBmzGYAmcyZAJnM - zACZzP8Amf8AAJn/MwCZzGYAmf+ZAJn/zACZ//8AzAAAAJkAMwDMAGYAzACZAMwAzACZMwAAzDMzAMwz - ZgDMM5kAzDPMAMwz/wDMZgAAzGYzAJlmZgDMZpkAzGbMAJlm/wDMmQAAzJkzAMyZZgDMmZkAzJnMAMyZ - /wDMzAAAzMwzAMzMZgDMzJkAzMzMAMzM/wDM/wAAzP8zAJn/ZgDM/5kAzP/MAMz//wDMADMA/wBmAP8A - mQDMMwAA/zMzAP8zZgD/M5kA/zPMAP8z/wD/ZgAA/2YzAMxmZgD/ZpkA/2bMAMxm/wD/mQAA/5kzAP+Z - ZgD/mZkA/5nMAP+Z/wD/zAAA/8wzAP/MZgD/zJkA/8zMAP/M/wD//zMAzP9mAP//mQD//8wAZmb/AGb/ - ZgBm//8A/2ZmAP9m/wD//2YAIQClAF9fXwB3d3cAhoaGAJaWlgDLy8sAsrKyANfX1wDd3d0A4+PjAOrq - 6gDx8fEA+Pj4APD7/wCkoKAAgICAAAAA/wAA/wAAAP//AP8AAAD/AP8A//8AAP///wAAFBQUFBQUFBQU - FBQUFAAAABT09PT0FBQUFBQUEhIUAAAU9PT09BQUFBQUFBIUFAAAFPT09BSaFBQUFBIUmhQAABT09PQU - FBQUFBQSEhQUABT09PT09BQUFBQUFBISAAAU9PT09PT0FBQUFBQUAAAAFPT09PT0FBSampqadRQAABT0 - 9PT09BSampqampoUAAAUFBQUFBQUmhSamhSaFAAAAAAAABQQFBQUFBQUFK8UFAAAAAAUQ0MUZ2eugo2v - FBQAAAAAFBQUFOvrgo2NFBQAAAAAAAAUFGbrZ4KCja+wFAAAAAAAFBQUFBQUghQUFBQAAAAAABQUABQU - ABQUAAAAgAP//4AB//+AAf//gAH//4AB//8AA///AAf//wAD//8AA///AAP///AA///wAP//8AH///gA - ///4AP//+Sf//ygAAAAgAAAAQAAAAAEABAAAAAAAgAIAAAAAAAAAAAAAEAAAAAAAAAAAAAAAAACAAACA - AAAAgIAAgAAAAIAAgACAgAAAwMDAAICAgAAAAP8AAP8AAAD//wD/AAAA/wD/AP//AAD///8AAAAAAAAA - AAAAAAAAAAAAAAAAAAAAAAAICIg4iIiAAAAAAIeP//8AAIiIiIiIhwAAAACHj///AAgIiIiIiHcAAAAI - eP///wADiIiIiIiHAAAACHj///8ACAiIiIiIAAAAAAh4///wd3CIiIiIgHdwAAAIeIiIAHdwiIiIiIB3 - cAAACHiHdwAAAAiIiIiIAAAAAIePh4gAAACIiIiIiId3AACHj4ePAAAAiIiIiIh4dwAAh4h4//AACAAA - AACIh3AAAIeIeP/wAAAHd3d3AIdwAACHiHj//wAHdwAAB5kAAAAIePiI////B3d3d3d5AAAACHj///// - 8Hd3d3d3d5AAAAh4//////B3d3d3d3eQAAAIeP/////wdwcHdwcHkAAAAAAAAAAAAHeAh3eAh5AAAAAA - AAAAAAB3d3d3d3AAAAAAAAAAAAEAd3d3AAAIiAAAAAAAAAAAAAAAAAiIiIh3cAAAAAAAAAAACDCIiIh3 - hwAAAAAAAAAAAIAIOIiHiAAAAAAAAAAAAAAAgIiIiHAAAAAAAAAAAAAACAiIiHiHAAAAAAAAAAAAAACA - iIeHh3AAAAAAAAAAAAgICIiIh4d3cAAAAAAAAAAAAIAIhYAAAAAAAAAAAAAAAAgAAIiAAAAAAAAAAAAA - AAAAAAAIcAAAAAAAAAAAAAAAAAAAAAAAAAD//AAf4AAAD+AAAAfgAAAHwAAAB8AAAAfAAAADwAAAA8AA - AAGAAAABgAAAAYAAAAOAAAADgAAABwAAAB8AAAAPAAAADwAAAA8AAAAP/+AAD//AAAD/gAAA/4AAAf8A - AAP/AAAP//AAB//wAAH/4AAA/+AAAP/BCD//xxw///+ePygAAAAgAAAAQAAAAAEACAAAAAAAgAQAAAAA - AAAAAAAAAAEAAAAAAAAAAAAAAACAAACAAAAAgIAAgAAAAIAAgACAgAAAwMDAAMDcwADwyqYABAQEAAgI - CAAMDAwAERERABYWFgAcHBwAIiIiACkpKQBVVVUATU1NAEJCQgA5OTkAgHz/AFBQ/wCTANYA/+zMAMbW - 7wDW5+cAkKmtAAAAMwAAAGYAAACZAAAAzAAAMwAAADMzAAAzZgAAM5kAADPMAAAz/wAAZgAAAGYzAABm - ZgAAZpkAAGbMAABm/wAAmQAAAJkzAACZZgAAmZkAAJnMAACZ/wAAzAAAAMwzAADMZgAAzJkAAMzMAADM - /wAA/2YAAP+ZAAD/zAAzAAAAMwAzADMAZgAzAJkAMwDMADMA/wAzMwAAMzMzADMzZgAzM5kAMzPMADMz - /wAzZgAAM2YzADNmZgAzZpkAM2bMADNm/wAzmQAAM5kzADOZZgAzmZkAM5nMADOZ/wAzzAAAM8wzADPM - ZgAzzJkAM8zMADPM/wAz/zMAM/9mADP/mQAz/8wAM///AGYAAABmADMAZgBmAGYAmQBmAMwAZgD/AGYz - AABmMzMAZjNmAGYzmQBmM8wAZjP/AGZmAABmZjMAZmZmAGZmmQBmZswAZpkAAGaZMwBmmWYAZpmZAGaZ - zABmmf8AZswAAGbMMwBmzJkAZszMAGbM/wBm/wAAZv8zAGb/mQBm/8wAzAD/AP8AzACZmQAAmTOZAJkA - mQCZAMwAmQAAAJkzMwCZAGYAmTPMAJkA/wCZZgAAmWYzAJkzZgCZZpkAmWbMAJkz/wCZmTMAmZlmAJmZ - mQCZmcwAmZn/AJnMAACZzDMAZsxmAJnMmQCZzMwAmcz/AJn/AACZ/zMAmcxmAJn/mQCZ/8wAmf//AMwA - AACZADMAzABmAMwAmQDMAMwAmTMAAMwzMwDMM2YAzDOZAMwzzADMM/8AzGYAAMxmMwCZZmYAzGaZAMxm - zACZZv8AzJkAAMyZMwDMmWYAzJmZAMyZzADMmf8AzMwAAMzMMwDMzGYAzMyZAMzMzADMzP8AzP8AAMz/ - MwCZ/2YAzP+ZAMz/zADM//8AzAAzAP8AZgD/AJkAzDMAAP8zMwD/M2YA/zOZAP8zzAD/M/8A/2YAAP9m - MwDMZmYA/2aZAP9mzADMZv8A/5kAAP+ZMwD/mWYA/5mZAP+ZzAD/mf8A/8wAAP/MMwD/zGYA/8yZAP/M - zAD/zP8A//8zAMz/ZgD//5kA///MAGZm/wBm/2YAZv//AP9mZgD/Zv8A//9mACEApQBfX18Ad3d3AIaG - hgCWlpYAy8vLALKysgDX19cA3d3dAOPj4wDq6uoA8fHxAPj4+ADw+/8ApKCgAICAgAAAAP8AAP8AAAD/ - /wD/AAAA/wD/AP//AAD///8AAAAAAAAAAAAAAAAAAAAUFBQUFBQUFBQUFBQUAAAAAAAAAAAUFBQUFBQU - FBQUFBJtEm1t627s7JLskpIUAAAAAAAAABTr8ev09PT09BQUEhJtbW3r6+vs7JKSku8UAAAAAAAAFOvx - 6/T09PT0FBQSbRJt623r7OzskpLv7xQAAAAAABTr8ev09PT09PQUEhJKbW1t6+vs65LskpLvFAAAAAAA - FOvx6/T09PT09BQUFG0SbW3r7OuN7JKSFBQUAAAAAAAU6/Hr9PT09PQUmpqaFG1tbevr7HOS7BSampoU - AAAAABTr8evr6+vrFBSampoUbW1t6+vr7OySFJqamhQAAAAAFOvx6+vx8fEUFBQUFBISbett6+zs7JKS - FBQUFBQAABTr8ev06/Hr6xQUFBQSEm1tbevr7OuS7JKS7+/vFAAAFOvx6/Tr8ev0FBQUEhQSbW3rbevs - 7OySku+S7wcUAAAU6/Hr6/Hr9PT0FBQUEm0SFBQUFBQUFJKSku8HFAAAABTr8evr8ev09PQUFBQSFBSa - mpqampqaFBSS7+8UAAAAFOvx6+vx6/T09PQUFBSampoUFBQUFJp1dRQUFAAAABTr8ev06+vr9PT09PT0 - FJqampqampqampp1FAAAAAAAFOvx6/T09PT09PT09BSampqampqampqampp1FAAAAAAU6/Hr9PT09PT0 - 9PT0FJqampqampqampqamnUUAAAAABTr8ev09PT09PT09PQUmpoUmhSampoUmhSadRQAAAAAFBQUFBQU - FBQUFBQUFBSamuwU7JqamuwU7Jp1FAAAAAAAAAAAAAAAAAAAABQUFJqampqampqampqaFBQUAAAAAAAA - AAAAAAAAAAAUEGcUmpqampqaFBQUFBSvjq8UFBQUAAAAAAAAAAAAFD1mQxQUFBQUFBRnjY2Ngo6vjrC2 - sBQAAAAAAAAAAAAUQ0NEZxRnZ21oZ42CjY2vjbCwr7AUAAAAAAAAAAAAFENDRENmRGdtZ2euaK6Ngo2w - jq8UFAAAAAAAAAAAAAAUFBQUFBRnFGdn62eNgo2Nja+wFAAAAAAAAAAAAAAAAAAAAAAUEhRnZ+tnjYKN - jY2wjq+wFAAAAAAAAAAAAAAAAAAAABRnZ2dnZ41njY2CsI2wjrC2FBQAAAAAAAAAAAAAAAAUEkRmbWfr - Z42Ngo2NjbCvsLDRthQAAAAAAAAAAAAAABQUZ0QUZ2eNZxSNjYivFBQUFBQUFAAAAAAAAAAAAAAUREMU - FAAU62cUABSCr44UAAAAAAAAAAAAAAAAAAAAABQUFAAAABRnFAAAABSNsBQAAAAAAAAAAAAAAAAAAAAA - AAAAAAAAABQUAAAAABQUFAAAAAAAAP/8AB/gAAAP4AAAB+AAAAfAAAAHwAAAB8AAAAPAAAADwAAAAYAA - AAGAAAABgAAAA4AAAAOAAAAHAAAAHwAAAA8AAAAPAAAADwAAAA//4AAP/8AAAP+AAAD/gAAB/wAAA/8A - AA//8AAH//AAAf/gAAD/4AAA/8EIP//HHD///54/ - + + 76 - - Designer + + Horizontal - - DD_ECMAdmin + + 72, 13 - - DD_Record_Organiser.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + 17 - - TBPMO_FORM_CONSTRUCTORBindingSource + + $this - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Top, Bottom, Left - - TBPMO_FORM_CONSTRUCTORTableAdapter + + 2 - - DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + XtraTabPage3 - - TableAdapterManager + + 106, 13 - - DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + XtraTabPage3 - - TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter + + 80, 13 - - DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTOR_DETAILTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + Top, Left - - BindingNavigatorAddNewItem + + 45 - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 77 - - BindingNavigatorCountItem + + Erstellt wer: - - System.Windows.Forms.ToolStripLabel, 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 - - BindingNavigatorDeleteItem + + 73, 13 - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + GroupBox1 - - BindingNavigatorMoveFirstItem + + 89 - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Label2 - - BindingNavigatorMovePreviousItem + + 200, 137 - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True - - BindingNavigatorSeparator + + 66 - - System.Windows.Forms.ToolStripSeparator, 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 - - BindingNavigatorPositionItem + + 160, 21 - - System.Windows.Forms.ToolStripTextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Kann man für diese Entität auf der ersten Ebene Daten selektieren? - - BindingNavigatorSeparator1 + + 0, 0 - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 10 - - BindingNavigatorMoveNextItem + + 48 - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 258, 23 - - BindingNavigatorMoveLastItem + + 181, 63 - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 53 - - BindingNavigatorSeparator2 + + 12 - - System.Windows.Forms.ToolStripSeparator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + - - TBPMO_FORM_CONSTRUCTORBindingNavigatorSaveItem + + Segoe UI, 8.25pt - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - TBPMO_FORM_CONSTRUCTOR_DETAILBindingSource + + 14, 24 + + + Left + + + 283, 143 + + + Search Pattern 3: + + + 78 + + + Tile + + + Label6 + + + Label7 + + + CHANGED_WHOLabel1 + + + MiddleRight + + + 346, 63 + + + 144, 22 + + + ADDED_WHENLabel + + + True + + + 373, 16 + + + $this System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - FormDesignerToolStripMenuItem + + 286, 42 - - System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 6 - - ImageList1 + + 2 - - System.Windows.Forms.ImageList, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 18 - - colPlaceholder + + CHANGED_WHENLabel - - System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True - - colReplace + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - System.Windows.Forms.DataGridViewTextBoxColumn, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + btnChangeHOMESTANDARD - - TBPMO_CONSTRUCTOR_USER_SQLBindingSource + + TabPage1 - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True + + + XtraTabPage3 + + + GridColumn6 + + + 154, 26 + + + SQL_SELECT_EBENE1Label + + + 247, 69 + + + None + + + 178, 17 + + + Tahoma, 8.25pt, style=Italic + + + 93, 23 + + + 73, 199 + + + 18 + + + Eingaben erfolgreich gespeichert - + + + 637, 21 + + + 22, 13 + + + True + + + 43 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DD_DMSDataSet + + 23 - - DD_Record_Organiser.DD_DMSDataSet, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + - - tslblSaveDetail + + SQL_SELECT_EBENE2TextBox - - System.Windows.Forms.ToolStripStatusLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + CHANGED_WHENLabel1 - - tsbtnSave + + 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 + + 17 - - TBTEMP_QUICKDISPLAYBindingSource + + 255, 31 - - System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 3 - - TBPMO_FORM_CONSTRUCTORBindingSource1 + + XtraTabPage3 - - System.Windows.Forms.BindingSource, 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 - - TBPMO_FORM_CONSTRUCTORTableAdapter1 + + cmbSearchPattern4 - - DD_Record_Organiser.DD_ECMAdminTableAdapters.TBPMO_FORM_CONSTRUCTORTableAdapter, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + Segoe UI, 8.25pt, style=Italic - - TableAdapterManager1 + + 0, 0 - - DD_Record_Organiser.DD_ECMAdminTableAdapters.TableAdapterManager, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + Courier New, 8.25pt - - OFDWindreamsuche + + 1008, 25 - - System.Windows.Forms.OpenFileDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 184, 115 - - TBTEMP_QUICKDISPLAYTableAdapter + + True - - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBTEMP_QUICKDISPLAYTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + Lösche Entität-Mandanten Zuordnung - - TableAdapterManager2 + + 101, 13 - - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TableAdapterManager, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + 181, 99 - - ImageCollection1 + + 36 - - DevExpress.Utils.ImageCollection, DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 69 - - TableAdapterManager3 + + - - DD_Record_Organiser.DD_DMSDataSetCalendarTableAdapters.TableAdapterManager, DD_DMSDataSetCalendar.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - TBPMO_CONSTRUCTOR_USER_SQLTableAdapter + + 129, 13 - - DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter, DD_DMSDataSet1.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + XtraTabPage6 - - frmConstructorDesigner + + 5 - - System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Delete QuickView Picture + + False + + + False + + + False + + + False + + + False + + + 17, 95 + + + False + + + False + + + False + + + 442, 134 + + + 344, 173 + + + False + + + False + + + False + + + True + + + False + + + False + + + False + + + False + + + False + + + 914, 95 + + + 164, 173 + + + False + + + 17, 56 + + + False + + + 17, 173 + + + False + + + False + + + 299, 134 + + + False + + + 325, 95 + + + 160, 17 + + + True + + + 335, 56 + + + 125 + + + False + + + 1019, 56 + + + 17, 134 + + + False + + + 807, 95 + + + 757, 17 + + + 960, 134 + + + False + + + 17, 212 + + + 704, 134 + + + 17, 17 + + + 984, 173 + + + 680, 56 + + + 461, 17 + + + 667, 173 + + + False + + + True + + + False + + + 627, 95 + + + False + + + 180, 134 + \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmConstructorDesigner.vb b/app/DD-Record-Organiser/frmConstructorDesigner.vb index 2798d06..4717a7f 100644 --- a/app/DD-Record-Organiser/frmConstructorDesigner.vb +++ b/app/DD-Record-Organiser/frmConstructorDesigner.vb @@ -110,17 +110,30 @@ Public Class frmConstructorDesigner End Sub Public Sub Load_ConstructorUser() Try - Dim Sql = String.Format("SELECT GUID,USERNAME FROM TBDD_USER WHERE MODULE_RECORD_ORG = 1 AND GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = {0}) ORDER By USERNAME", CONSTRUCTOR_IDTextBox.Text) + Dim Sql = String.Format("SELECT GUID, USERNAME, EMAIL FROM TBDD_USER WHERE MODULE_RECORD_ORG = 1 AND GUID NOT IN (SELECT USER_ID FROM TBPMO_CONSTRUCTOR_USER WHERE CONSTRUCT_ID = {0}) ORDER By USERNAME", CONSTRUCTOR_IDTextBox.Text) Dim DT_USER = ClassDatabase.Return_Datatable(Sql) Sql = String.Format("SELECT T1.GUID, T.USERNAME + ' - ' + CASE T1.HOME_MENUE WHEN 1 THEN 'HOME' ELSE 'STANDARD' END AS USERNAME FROM TBDD_USER T, TBPMO_CONSTRUCTOR_USER T1 WHERE T1.USER_ID = T.GUID AND T1.CONSTRUCT_ID = {0} ORDER BY T.USERNAME", CONSTRUCTOR_IDTextBox.Text) Dim DT_USER_CONSTR As DataTable = ClassDatabase.Return_Datatable(Sql, "LOAD USERS FOR CONSTRUCT") Try - chksbxUserConstructor.Items.Clear() + DD_ECMAdmin.TBAD_Users.Clear() + For Each row As DataRow In DT_USER.Rows - chksbxUserConstructor.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)}) + Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow + newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow + + newUserRow.Username = row.Item(1) + Try + newUserRow.Email = row.Item(2) + Catch ex As Exception + newUserRow.Email = "" + End Try + + newUserRow.ID = row.Item(0) + DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow) + ' chklbxUserForGroup.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)}) Next Catch ex As Exception - + MsgBox("Error Load_Users for menues:" & vbNewLine & ex.Message) End Try @@ -526,13 +539,23 @@ Public Class frmConstructorDesigner End Sub Public Sub Load_UserSQL() Try - lbxUserSQL.Items.Clear() - - Dim sql = String.Format("SELECT DISTINCT T.GUID, T.USERNAME FROM TBDD_USER T, TBDD_CLIENT_USER T1 WHERE T.MODULE_RECORD_ORG = 1 AND T.GUID = T1.USER_ID AND T1.CLIENT_ID IN ({0}) ORDER BY T.USERNAME", USER_CLIENTS_COMMA_SEPERATED) + Dim sql = String.Format("SELECT DISTINCT T.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T, TBDD_CLIENT_USER T1 WHERE T.MODULE_RECORD_ORG = 1 AND T.GUID = T1.USER_ID AND T1.CLIENT_ID IN ({0}) ORDER BY T.USERNAME", USER_CLIENTS_COMMA_SEPERATED) Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) - lbxUserSQL.DataSource = DT - lbxUserSQL.DisplayMember = DT.Columns(1).ColumnName - lbxUserSQL.ValueMember = DT.Columns(0).ColumnName + DD_ECMAdmin.TBWH_Users1.Clear() + For Each row As DataRow In DT.Rows + Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row + newUserRow = DD_ECMAdmin.TBWH_Users1.NewTBWH_Users1Row + newUserRow.Username = row.Item(1) + Try + newUserRow.Email = row.Item(2) + Catch ex As Exception + newUserRow.Email = "" + End Try + + newUserRow.ID = row.Item(0) + DD_ECMAdmin.TBWH_Users1.Rows.Add(newUserRow) + ' chklbxUsersforClient.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)}) + Next Catch ex As Exception MsgBox("UnexpectedError Load_UserSQL:" & vbNewLine & ex.Message) End Try @@ -652,15 +675,18 @@ Public Class frmConstructorDesigner Private Sub btnAddUser2ConstructorREL_Click(sender As Object, e As EventArgs) Handles btnAddUser2ConstructorREL.Click Try - For Each obj As Object In chksbxUserConstructor.CheckedItems - Dim item As MyListBoxItem = CType(obj, MyListBoxItem) - Dim home As Integer = CInt(CheckBoxHome.Checked) - Dim insert = "INSERT INTO TBPMO_CONSTRUCTOR_USER (CONSTRUCT_ID, USER_ID,ADDED_WHO,HOME_MENUE) VALUES (" & CONSTRUCTOR_IDTextBox.Text & ", " & item.ExtraData & ",'" & Environment.UserName & "'," & home & ")" - If ClassDatabase.Execute_non_Query(insert, True) Then + For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows + If row.Item(0) = CBool(True) Then + Dim home As Integer = CInt(CheckBoxHome.Checked) + Dim insert = "INSERT INTO TBPMO_CONSTRUCTOR_USER (CONSTRUCT_ID, USER_ID,ADDED_WHO,HOME_MENUE) VALUES (" & CONSTRUCTOR_IDTextBox.Text & ", " & row.Item(5) & ",'" & Environment.UserName & "'," & home & ")" + If ClassDatabase.Execute_non_Query(insert, True) Then + End If End If Next - chksbxUserConstructor.ClearSelected() + For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows + row.Item(0) = CBool(False) + Next Load_ConstructorUser() Catch ex As Exception MsgBox("Error while adding user to Constructor-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) @@ -717,27 +743,6 @@ Public Class frmConstructorDesigner MsgBox("Error while deleting user to Constructor-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub - - Private Sub txtSearchUser_TextChanged(sender As Object, e As EventArgs) Handles txtSearchUser.TextChanged - Dim i As Integer = lbxUserSQL.FindString(txtSearchUser.Text) - lbxUserSQL.SelectedIndex = i - If txtSearchUser.Text = "" Then - lbxUserSQL.SelectedIndex = -1 - End If - End Sub - - Private Sub lbxUserSQL_SelectedIndexChanged(sender As Object, e As EventArgs) Handles lbxUserSQL.SelectedIndexChanged - Try - Me.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Connection.ConnectionString = MyConnectionString - Me.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQL, SELECTED_CONSTRUCTOR_DETAIL_ID, lbxUserSQL.SelectedValue) - Catch ex As System.Exception - If Not ex.Message.ToLower.Contains("atarowview") Then - MsgBox("Error while loading User-Restrictions:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - End If - End Try - lblsaveSQLUser.Visible = False - End Sub - Private Sub btnAddUserSQL_Click(sender As Object, e As EventArgs) Handles btnAddUserSQL.Click If GUIDTextBox.Text = "" Then TBPMO_CONSTRUCTOR_USER_SQLBindingSource.AddNew() @@ -746,9 +751,13 @@ Public Class frmConstructorDesigner Private Sub TBPMO_CONSTRUCTOR_USER_SQLBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPMO_CONSTRUCTOR_USER_SQLBindingSource.AddingNew Try - DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQL.ADDED_WHOColumn.DefaultValue = Environment.UserName - DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQL.CONSTR_DET_IDColumn.DefaultValue = SELECTED_CONSTRUCTOR_DETAIL_ID - DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQL.USER_IDColumn.DefaultValue = lbxUserSQL.SelectedValue + Dim USERID = GridViewUserSQL.GetFocusedRowCellValue(GridViewUserSQL.Columns("ID")) + If Not USERID Is Nothing Then + DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQL.ADDED_WHOColumn.DefaultValue = Environment.UserName + DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQL.CONSTR_DET_IDColumn.DefaultValue = SELECTED_CONSTRUCTOR_DETAIL_ID + DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQL.USER_IDColumn.DefaultValue = USERID + End If + Catch ex As Exception MsgBox("Error while Adding User-Restrictions:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try @@ -772,12 +781,12 @@ Public Class frmConstructorDesigner Dim matches As MatchCollection = atPlaceholderRegex.Matches(text) dgvPlaceholders.Rows.Clear() - + Dim USERID = GridViewUserSQL.GetFocusedRowCellValue(GridViewUserSQL.Columns("ID")) For Each match As Match In matches Dim placeholder = "" Select Case match.Value.ToUpper Case "@USER_ID" - placeholder = lbxUserSQL.SelectedValue + placeholder = USERID End Select dgvPlaceholders.Rows.Add({match.Value, placeholder}) Next @@ -839,4 +848,27 @@ Public Class frmConstructorDesigner Next Load_ClientsforEntity() End Sub + + Private Sub TBWH_Users1BindingSource_CurrentChanged(sender As Object, e As EventArgs) Handles TBWH_Users1BindingSource.CurrentChanged + Load_SQL_ForUSer() + End Sub + Sub Load_SQL_ForUSer() + Try + Try + Dim USERID = GridViewUserSQL.GetFocusedRowCellValue(GridViewUserSQL.Columns("ID")) + If Not USERID Is Nothing Then + Me.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Connection.ConnectionString = MyConnectionString + Me.TBPMO_CONSTRUCTOR_USER_SQLTableAdapter.Fill(Me.DD_DMSDataSet.TBPMO_CONSTRUCTOR_USER_SQL, SELECTED_CONSTRUCTOR_DETAIL_ID, USERID) + End If + + Catch ex As System.Exception + If Not ex.Message.ToLower.Contains("atarowview") Then + MsgBox("Error while loading User-Restrictions:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End If + End Try + lblsaveSQLUser.Visible = False + Catch ex As Exception + MsgBox("Error in Load SQL for User:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub End Class \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb b/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb index 3b9b2a3..8b8111b 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.Designer.vb @@ -98,7 +98,7 @@ Partial Class frmConstructor_Main Me.tsButtonAdd = New System.Windows.Forms.ToolStripButton() Me.tsButtonSave = New System.Windows.Forms.ToolStripButton() Me.tsButtonDelete = New System.Windows.Forms.ToolStripButton() - Me.tsButtonEditMode = New System.Windows.Forms.ToolStripButton() + Me.tsButtonEdit = New System.Windows.Forms.ToolStripButton() Me.ToolStripDropDownButton1 = New System.Windows.Forms.ToolStripDropDownButton() Me.WindreamsucheNeuLadenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator() @@ -669,7 +669,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.tsButtonEditMode, 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}) resources.ApplyResources(Me.ToolStripEdit, "ToolStripEdit") Me.ToolStripEdit.Name = "ToolStripEdit" ' @@ -690,11 +690,11 @@ Partial Class frmConstructor_Main Me.tsButtonDelete.Image = Global.DD_Record_Organiser.My.Resources.Resources.action_Cancel_16xLG Me.tsButtonDelete.Name = "tsButtonDelete" ' - 'tsButtonEditMode + 'tsButtonEdit ' - resources.ApplyResources(Me.tsButtonEditMode, "tsButtonEditMode") - Me.tsButtonEditMode.Image = Global.DD_Record_Organiser.My.Resources.Resources.EditLabel_13239 - Me.tsButtonEditMode.Name = "tsButtonEditMode" + resources.ApplyResources(Me.tsButtonEdit, "tsButtonEdit") + Me.tsButtonEdit.Image = Global.DD_Record_Organiser.My.Resources.Resources.EditLabel_13239 + Me.tsButtonEdit.Name = "tsButtonEdit" ' 'ToolStripDropDownButton1 ' @@ -1033,7 +1033,7 @@ Partial Class frmConstructor_Main Friend WithEvents tsButtonAdd As System.Windows.Forms.ToolStripButton Friend WithEvents tsButtonSave As System.Windows.Forms.ToolStripButton Friend WithEvents tsButtonDelete As System.Windows.Forms.ToolStripButton - Friend WithEvents tsButtonEditMode As System.Windows.Forms.ToolStripButton + Friend WithEvents tsButtonEdit As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripDropDownButton1 As System.Windows.Forms.ToolStripDropDownButton Friend WithEvents tsButtonShowTaskOverview As System.Windows.Forms.ToolStripButton Friend WithEvents tsButtonShowWorkflowTasks As System.Windows.Forms.ToolStripButton diff --git a/app/DD-Record-Organiser/frmConstructor_Main.en-US.resx b/app/DD-Record-Organiser/frmConstructor_Main.en-US.resx index 0bb3a3b..87acae5 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.en-US.resx +++ b/app/DD-Record-Organiser/frmConstructor_Main.en-US.resx @@ -853,12 +853,6 @@ Delete - - 95, 22 - - - Work Record - 228, 22 diff --git a/app/DD-Record-Organiser/frmConstructor_Main.resx b/app/DD-Record-Organiser/frmConstructor_Main.resx index f915b39..35abce9 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 @@ -1264,16 +1264,16 @@ Löschen - + False - + Magenta - + 83, 22 - + Bearbeiten @@ -1367,7 +1367,7 @@ 0, 0 - 1071, 25 + 1078, 25 0 @@ -1472,7 +1472,7 @@ Panel2 - 1083, 365 + 1083, 372 0 @@ -2372,10 +2372,10 @@ System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - tsButtonEditMode + + tsButtonEdit - + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 diff --git a/app/DD-Record-Organiser/frmConstructor_Main.vb b/app/DD-Record-Organiser/frmConstructor_Main.vb index 9a2bbe9..bed6cec 100644 --- a/app/DD-Record-Organiser/frmConstructor_Main.vb +++ b/app/DD-Record-Organiser/frmConstructor_Main.vb @@ -7,7 +7,7 @@ Imports DevExpress.XtraGrid.Views.Base Imports DevExpress.XtraGrid.Views.Tile Imports DevExpress.XtraScheduler Imports System.Text -Imports WINDREAMLib +'Imports WINDREAMLib Imports System.IO Imports DevExpress.XtraGrid @@ -34,6 +34,7 @@ Public Class frmConstructor_Main Private VIEW_ID_RUNTIME As Integer = -1 Public RECORD_ENABLED As Boolean = False + Private windream_inited = False Private ENTITY_RECORD_COUNT As Integer = 0 Private EBENE1_ENTITY @@ -62,8 +63,14 @@ Public Class frmConstructor_Main Private SP4 As String Private SP5 As String + Private RIGHT_EDIT_R As Boolean = True + Private RIGHT_ADD_R As Boolean = True + Private RIGHT_DELETE_R As Boolean = False + Private RIGHT_ADD_DOC As Boolean = True + Private RIGHT_VIEW_DOC As Boolean = True + Private RIGHT_DELETE_DOC As Boolean = False + Private windream_Docshow As Boolean = False - Private _windream As New ClassWindream Private WD_Suche As String Private DocView Private DocViewString As String @@ -96,10 +103,6 @@ Public Class frmConstructor_Main Private _ENTITYSQL As String Private _ENTITYSTRING As String - - - - Public Enum EditState None Insert @@ -164,7 +167,7 @@ Public Class frmConstructor_Main If LogErrorsOnly = False Then ClassLogger.Add(" >> Form Load took " & Format(elapsed, "0.000000000") & " seconds", False) Catch ex As System.Exception MsgBox("Error while Loading Form" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - System.Windows.Forms.MessageBox.Show(ex.Message) + 'System.Windows.Forms.MessageBox.Show(ex.Message) End Try Me.Cursor = Cursors.Default @@ -667,7 +670,7 @@ Public Class frmConstructor_Main DisableEditMode() VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True Show_Selected_Record_Data(Grid_RecordID, False) - If LogErrorsOnly = False Then ClassLogger.Add(" >> After Show_Selected_Record_Data - " & Now, False) + If 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") @@ -685,7 +688,7 @@ Public Class frmConstructor_Main End If If RECORD_ID > 0 Then - tsButtonEditMode.Enabled = True + tsButtonEdit.Enabled = True Get_RecordCounts_Nodes() End If End If @@ -816,10 +819,8 @@ Public Class frmConstructor_Main sw.Reset() If LogErrorsOnly = False Then ClassLogger.Add(" >> TreeView Load took " & Format(elapsed, "0.000000000") & " seconds", False) End If - + TreeViewMain.ExpandAll() End Sub - - Sub Load_Tree_View_Data() Dim sw As New Stopwatch sw.Start() @@ -827,7 +828,7 @@ Public Class frmConstructor_Main If SelectedNode IsNot Nothing Then ENTITY_LOADED = False - Dim FormId As Integer = SelectedNode.Tag + ENTITY_ID = SelectedNode.Tag Dim parentNode As TreeNode = TryCast(SelectedNode.Parent, TreeNode) ACT_EBENE = 2 @@ -840,7 +841,6 @@ Public Class frmConstructor_Main Else ACT_EBENE = 1 End If - ENTITY_ID = FormId Dim Sql = "SELECT GUID from VWPMO_CONSTRUCTOR_FORMS WHERE CONSTRUCT_ID = " & CONSTRUCTORID & " AND FORM_ID = " & ENTITY_ID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID CONSTRUCTOR_DETAIL_ID = ClassDatabase.Execute_Scalar(Sql, True) @@ -1273,7 +1273,7 @@ Public Class frmConstructor_Main End Sub - Private Sub tsButtonEditMode_Click(sender As Object, e As EventArgs) Handles tsButtonEditMode.Click + Private Sub tsButtonEditMode_Click(sender As Object, e As EventArgs) Handles tsButtonEdit.Click ToggleEditMode() End Sub @@ -1297,11 +1297,11 @@ Public Class frmConstructor_Main Else stg = "End Working" End If - Me.tsButtonEditMode.Text = stg + Me.tsButtonEdit.Text = stg CURRENT_RECORD_ID = RECORD_ID ' Abhängige Listen laden - ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, RECORD_ID, PARENT_ID, CtrlBuilder.AllControls) + ClassControlValues.LoadControlValuesListWithPlaceholders(ENTITY_ID, RECORD_ID, PARENT_ID, CtrlBuilder.AllControls, ENTITY_ID) RECORD_ENABLED = True CURRENT_RECORD_ENABLED = True @@ -1325,8 +1325,8 @@ Public Class frmConstructor_Main Else stg = "Work record" End If - Me.tsButtonEditMode.Text = stg - Me.tsButtonEditMode.Text = stg + Me.tsButtonEdit.Text = stg + Me.tsButtonEdit.Text = stg 'Funktion nur zum load der Inhalte If RECORD_ENABLED = True Then @@ -1367,7 +1367,75 @@ Public Class frmConstructor_Main Return Convert.ToInt32(apt.CustomFields("RecordID")) = SELECTED_RECORD_ID End Function #End Region + Sub GetSet_Rights() + Try + Dim sel = String.Format("SELECT DISTINCT EDIT_REC,ADD_REC,DELETE_REC,ADD_DOC,VIEW_DOC,DELETE_DOC FROM TBPMO_RIGHT_GROUP WHERE ENTITY_ID = {0} AND GROUP_ID IN (SELECT GROUP_ID FROM TBDD_GROUPS_USER WHERE USER_ID = {1})", ENTITY_ID, USER_GUID) + If LogErrorsOnly = False Then ClassLogger.Add(" >> Select Rightsmanagement " & sel, False) + Dim DT As DataTable = ClassDatabase.Return_Datatable(sel, "GetSet_Rights") + If DT.Rows.Count > 0 Then + For Each row As DataRow In DT.Rows + 'RIGHT_EDIT_R = True + 'RIGHT_ADD_R = True + 'RIGHT_DELETE_R = False + 'RIGHT_ADD_DOC = True + 'RIGHT_VIEW_DOC = True + 'RIGHT_DELETE_DOC = False + If RIGHT_EDIT_R = True And CBool(DT.Rows(0).Item(0)) = False Then + RIGHT_EDIT_R = False + ElseIf RIGHT_EDIT_R = False And CBool(DT.Rows(0).Item(0)) = True Then + RIGHT_EDIT_R = True + End If + + If RIGHT_ADD_R = True And CBool(DT.Rows(0).Item(1)) = False Then + RIGHT_ADD_R = False + ElseIf RIGHT_EDIT_R = False And CBool(DT.Rows(0).Item(1)) = True Then + RIGHT_EDIT_R = True + End If + + If RIGHT_DELETE_R = False And CBool(DT.Rows(0).Item(2)) = True Then + RIGHT_DELETE_R = True + ElseIf RIGHT_DELETE_R = False And CBool(DT.Rows(0).Item(2)) = False Then + RIGHT_DELETE_R = False + End If + If RIGHT_ADD_DOC = True And CBool(DT.Rows(0).Item(3)) = False Then + RIGHT_ADD_DOC = False + ElseIf RIGHT_ADD_DOC = False And CBool(DT.Rows(0).Item(3)) = True Then + RIGHT_ADD_DOC = True + End If + If RIGHT_VIEW_DOC = True And CBool(DT.Rows(0).Item(4)) = False Then + RIGHT_VIEW_DOC = False + ElseIf RIGHT_VIEW_DOC = True And CBool(DT.Rows(0).Item(4)) = False Then + RIGHT_VIEW_DOC = True + End If + If RIGHT_DELETE_DOC = False And CBool(DT.Rows(0).Item(5)) = True Then + RIGHT_DELETE_DOC = False + ElseIf RIGHT_DELETE_DOC = True And CBool(DT.Rows(0).Item(5)) = False Then + RIGHT_DELETE_DOC = True + End If + Next + + End If + tsButtonSave.Visible = True + tsButtonAdd.Visible = True + tsButtonEdit.Visible = True + tsButtonDelete.Visible = True + If RIGHT_ADD_R = False Then + tsButtonAdd.Visible = False + End If + If RIGHT_EDIT_R = False Then + tsButtonEdit.Visible = False + If RIGHT_ADD_R = False Then + tsButtonSave.Visible = False + End If + End If + If RIGHT_DELETE_R = False Then + tsButtonDelete.Visible = False + End If + Catch ex As Exception + MsgBox("Error in GetSet_Rights:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub Sub Load_Entity_Data(ClickedLevel As Integer) Try Dim sw As New Stopwatch @@ -1377,6 +1445,8 @@ Public Class frmConstructor_Main RECORD_CHANGED = False RECORD_ID = 0 VerknüpfungenAnzeigenToolStripMenuItem.Enabled = True + 'Setzen von Rechten + 'GetSet_Rights() 'VerknüpfungenToolStripMenuItem.Enabled = False FORM_TYPE = ClassDatabase.Execute_Scalar("SELECT FORM_TYPE_ID FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID) IS_SINGLE_RECORD = ClassDatabase.Execute_Scalar("SELECT SINGLE_RECORD FROM TBPMO_FORM WHERE GUID = " & ENTITY_ID) @@ -1692,7 +1762,7 @@ Public Class frmConstructor_Main RECORD_ID = Grid_RecordID 'Daten zu Record in jedem Fall laden 'ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, ENTITY_ID, CtrlBuilder.AllControls) - ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, ENTITY_ID, CtrlBuilder.AllControls) + ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, ENTITY_ID, CtrlBuilder.AllControls, ENTITY_ID) ' Laden der Daten bedeutet nicht dass Daten vom Benutzer geändert wurden! RECORD_CHANGED = False Update_Record_Label(Grid_RecordID) @@ -1900,7 +1970,13 @@ Public Class frmConstructor_Main End If If RECORD_CHANGED = True Then - Dim result As DialogResult = MessageBox.Show("Sie haben ungespeicherte Änderungen. Wollen Sie diese speichern?", "Ungespeicherte Änderungen", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + Dim msg = "Sie haben ungespeicherte Änderungen. Wollen Sie diese speichern?" + Dim msg1 = "Ungespeicherte Änderungen" + If USER_LANGUAGE <> "de-DE" Then + msg = "There are unsaved changes. Would You like to save?" + msg1 = "Unsaved changes" + End If + Dim result As DialogResult = MessageBox.Show(msg, msg1, MessageBoxButtons.YesNo, MessageBoxIcon.Question) If result = Windows.Forms.DialogResult.Yes Then If CtrlCommandUI.IsInsert = True Then EDIT_STATE = EditState.None @@ -1908,13 +1984,11 @@ Public Class frmConstructor_Main 'Me.pnlDetails.Enabled = False 'CtrlCommandUI.IsInsert = False End If - Try Update_Record_OnChange() Catch ex As Exception - MsgBox(ex.Message, MsgBoxStyle.Exclamation, "Fehler beim Speichern des Datensatzes") + MsgBox("Error in Save Record Changes: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation) End Try - End If CtrlCommandUI.IsInsert = False RECORD_CHANGED = False @@ -2201,7 +2275,7 @@ Public Class frmConstructor_Main Case 0 Dim sw1 As New Stopwatch sw1.Start() - ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, ENTITY_ID, CtrlBuilder.AllControls) + ClassControlValues.LoadControlValues(SELECTED_RECORD_ID, PARENT_ID, ENTITY_ID, CtrlBuilder.AllControls, ENTITY_ID) Dim elapsed1 As Double elapsed1 = sw1.Elapsed.TotalSeconds sw1.Stop() @@ -2214,7 +2288,7 @@ Public Class frmConstructor_Main RUN_WD_SEARCH(WD_Suche, "RECORD") End If Case 2 - tsButtonEditMode.Enabled = False + tsButtonEdit.Enabled = False Refresh_FollowUps() dtpFollowUp.Enabled = False lblWiedervorlage_Control.Text = "<< Waiting for Selection:" @@ -2434,14 +2508,26 @@ Public Class frmConstructor_Main Private Sub Refresh_FollowUp_TabHeader() Try DT_FU_Record = ClassDatabase.Return_Datatable("select * from VWPMO_FOLLOW_UP_EMAIL_ENTITY_RECORD where Record_ID = " & RECORD_ID, "Refresh FollowUp TabHeader") + Dim msg As String = "Wiedervorlage (Nicht Abrufbar)" + If USER_LANGUAGE <> "de-DE" Then + msg = "Follow Up - (Not accessable)" + End If If IsNothing(DT_FU_Record) Then - TabFollowUp.Text = "Wiedervorlage (Nicht Abrufbar)" + TabFollowUp.Text = msg Exit Sub End If If DT_FU_Record.Rows.Count = 0 Then - TabFollowUp.Text = "Wiedervorlage (Nicht aktiviert)" + msg = "Wiedervorlage (Nicht aktiviert)" + If USER_LANGUAGE <> "de-DE" Then + msg = "Follow Up - (Not activated)" + End If + TabFollowUp.Text = msg Else - TabFollowUp.Text = "Wiedervorlage (Aktive Profile)" + msg = "Wiedervorlage (Aktive Profile)" + If USER_LANGUAGE <> "de-DE" Then + msg = "Follow Up - (active profiles)" + End If + TabFollowUp.Text = msg End If Catch ex As Exception MsgBox("Error in Refresh_FollowUp_TabHeader:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) @@ -2456,7 +2542,12 @@ Public Class frmConstructor_Main If missingControlValues.Count > 0 Then Dim nameString As String = String.Join(vbNewLine, missingControlValues) - Dim errorMessage As String = String.Format("Die folgenden Steuerelemente müssen ausgefüllt sein: {0}{1}", vbNewLine, nameString) + Dim msg = String.Format("Die folgenden Steuerelemente müssen ausgefüllt sein: {0}{1}", vbNewLine, nameString) + + If USER_LANGUAGE <> "de-DE" Then + msg = String.Format("the following controls must be filled with values: {0}{1}", vbNewLine, nameString) + End If + Dim errorMessage As String = msg Throw New Exception(errorMessage) End If @@ -2477,6 +2568,7 @@ Public Class frmConstructor_Main For Each row As DataRow In DT.Rows Dim prsql As String = row.Item("EXECUTE_COMMAND") prsql = prsql.ToUpper.Replace("@FORM_ID", ENTITY_ID) + prsql = prsql.ToUpper.Replace("@ENTITY_ID", ENTITY_ID) prsql = prsql.ToUpper.Replace("@RECORD_ID", RECORD_ID) ClassDatabase.Execute_non_Query(prsql, True) Next @@ -2493,7 +2585,6 @@ Public Class frmConstructor_Main Dim DTWD As DataTable = ClassDatabase.Return_Datatable(sql) If DTWD.Rows.Count = 1 Then TabWindream.PageVisible = True - If IsDBNull(DTWD.Rows(0).Item(0)) Then windream_Docshow = False WindreamsucheNeuLadenToolStripMenuItem.Visible = False @@ -2501,6 +2592,19 @@ Public Class frmConstructor_Main End If WindreamsucheNeuLadenToolStripMenuItem.Visible = True windream_Docshow = True + If windream_inited = False Then + Dim sw As New Stopwatch + sw.Start() + Dim elapsed As Double + + If ClassWindream.Init() = True Then + windream_inited = True + End If + elapsed = sw.Elapsed.TotalSeconds + sw.Stop() + sw.Reset() + If LogErrorsOnly = False Then ClassLogger.Add(" >> Windream init took " & Format(elapsed, "0.000000000") & " seconds", False) + End If Else windream_Docshow = False TabWindream.PageVisible = False @@ -2530,6 +2634,7 @@ Public Class frmConstructor_Main If DTWD.Rows.Count = 1 Then If IsDBNull(DTWD.Rows(0).Item(0)) Then Clear_Windream_ResultList() + Cursor = Cursors.Default Exit Sub End If Dim msg = "Windream-Dokumente für Entität: " & ACT_EBENE_STRING @@ -2539,6 +2644,8 @@ Public Class frmConstructor_Main tslblWindreamView.Text = msg Else Clear_Windream_ResultList() + Cursor = Cursors.Default + Exit Sub Exit Sub End If Else @@ -2547,6 +2654,8 @@ Public Class frmConstructor_Main If DTWD.Rows.Count = 1 Then If IsDBNull(DTWD.Rows(0).Item(0)) Then Clear_Windream_ResultList() + Cursor = Cursors.Default + Exit Sub Exit Sub End If Dim msg = "Windream-Dokumente für Record: " & RECORD_ID @@ -2556,12 +2665,16 @@ Public Class frmConstructor_Main tslblWindreamView.Text = msg Else Clear_Windream_ResultList() + Cursor = Cursors.Default + Exit Sub Exit Sub End If End If 'Die SearchPatterns durchlaufen und zwischenspeichern If IsDBNull(DTWD.Rows(0).Item(0)) Then Clear_Windream_ResultList() + Cursor = Cursors.Default + Exit Sub Exit Sub End If BaseSearch = DTWD.Rows(0).Item(0) @@ -2675,9 +2788,9 @@ Public Class frmConstructor_Main xml.Save(windream_temp_search) If LogErrorsOnly = False Then ClassLogger.Add(" >> Xml Generiert: " & windream_temp_search, False) - Dim windreamSucheErgebnisse As WMObjects + Dim windreamSucheErgebnisse As WINDREAMLib.WMObjects Try - windreamSucheErgebnisse = Me._windream.GetSearchDocuments(windream_temp_search) + windreamSucheErgebnisse = ClassWindream.GetSearchDocuments(windream_temp_search) Catch ex As Exception MsgBox("Error in windreamSucheErgebnisse:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try @@ -2770,7 +2883,7 @@ Public Class frmConstructor_Main End Try If LogErrorsOnly = False Then ClassLogger.Add(" >> AxObjectListControl loaded ", False) 'Execute the search - Dim results As WMObjects = windreamSucheErgebnisse + Dim results As WINDREAMLib.WMObjects = windreamSucheErgebnisse If LogErrorsOnly = False Then ClassLogger.Add(" >> results loaded ", False) 'Set the contents without displaying them AxObjectListControl.SetContentsEx(results) @@ -2805,13 +2918,13 @@ Public Class frmConstructor_Main Cursor = Cursors.Default Catch ex As Exception MsgBox("Error in RUN_WD_SEARCH:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) - Cursor = Cursors.Default + End Try elapsed = sw.Elapsed.TotalSeconds sw.Stop() sw.Reset() If LogErrorsOnly = False Then ClassLogger.Add(" >> Run WD Search took " & Format(elapsed, "0.000000000") & " seconds", False) - + Cursor = Cursors.Default End Sub Private Function Return_SearchPattern(ByVal content As String) Select Case content.ToUpper @@ -2822,8 +2935,8 @@ Public Class frmConstructor_Main Case "@ParentID".ToUpper Return PARENT_RECORDID Case Else - MsgBox("Undefinierter Pattern '" & content & "' in der Windream-SuchKonfiguration. Bitte den Administrator verständigen", MsgBoxStyle.Exclamation) - ClassLogger.Add(" >> Undefinierter Such-Pattern: " & content, True) + MsgBox("Undefined pattern '" & content & "' in windream-Search Config. Please inform Your system-administrator.", MsgBoxStyle.Exclamation) + ClassLogger.Add(" >> Undefined Search-pattern in windream-search config: " & content, True) End Select End Function Private Sub AxObjectListControl_ItemClicked(sender As Object, e As EventArgs) Handles AxObjectListControl.ItemClicked @@ -2959,22 +3072,22 @@ Public Class frmConstructor_Main Private Sub TCDetails_SelectedPageChanged(sender As Object, e As DevExpress.XtraTab.TabPageChangedEventArgs) Handles TCDetails.SelectedPageChanged Update_Status_Label(False, "") - tsButtonEditMode.Enabled = True + tsButtonEdit.Enabled = True If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("pos") Then - tsButtonEditMode.Enabled = False + tsButtonEdit.Enabled = False Load_Pos_Data() Load_POSGrid_Layout() End If If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("windr") Then - tsButtonEditMode.Enabled = False + tsButtonEdit.Enabled = False If RECORD_ID = 0 Then RUN_WD_SEARCH(WD_Suche, "ENTITY") Else RUN_WD_SEARCH(WD_Suche, "RECORD") End If End If - If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("wieder") Then - tsButtonEditMode.Enabled = False + If TCDetails.SelectedTabPage.Text.ToLower.StartsWith("wieder") Or TCDetails.SelectedTabPage.Text.ToLower.StartsWith("follo") Then + tsButtonEdit.Enabled = False Refresh_FollowUps() dtpFollowUp.Enabled = False lblWiedervorlage_Control.Text = "<< Waiting for Selection:" @@ -3056,7 +3169,7 @@ Public Class frmConstructor_Main End If End If If RECORD_ID = 0 Then - MsgBox("Bitte wählen Sie einen Datensatz aus!", MsgBoxStyle.Information) + MsgBox("Please choose a record!", MsgBoxStyle.Information) Exit Sub End If For Each Str As Object In ClassDragDrop.files_dropped @@ -3183,7 +3296,7 @@ Public Class frmConstructor_Main ListBoxUser2Profile.DisplayMember = DT.Columns(1).ColumnName ListBoxUser2Profile.ValueMember = DT.Columns(0).ColumnName Catch ex As Exception - MsgBox("Fehler bei Load_FUUser:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + MsgBox("Error in Load Follow Up User:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try End Sub Private Sub dtpWV_ValueChanged(sender As Object, e As EventArgs) Handles dtpFollowUp.ValueChanged @@ -3401,7 +3514,12 @@ Public Class frmConstructor_Main Cursor = Cursors.WaitCursor GridControlMain.MainView.ExportToXlsx(saveFileDialog1.FileName) Dim result As MsgBoxResult - result = MessageBox.Show("Datei wurde erstellt! Wollen Sie diese nun öffnen?", "Erfolgsmeldung:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + Dim msg = String.Format("Datei wurde erstellt! Wollen Sie diese nun öffnen?") + + If USER_LANGUAGE <> "de-DE" Then + msg = String.Format("File was created. Do You want to open excel?") + End If + result = MessageBox.Show(msg, "Exporting result:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If result = MsgBoxResult.Yes Then Process.Start(saveFileDialog1.FileName) End If @@ -3412,16 +3530,19 @@ Public Class frmConstructor_Main Private Sub frmForm_Constructor_Main_Shown(sender As Object, e As EventArgs) Handles Me.Shown Dim sw As Stopwatch = Stopwatch.StartNew() + Dim elapsed As Double Me.BringToFront() ' LoadLayouts() Load_Level1() Jump_Record() sw.Stop() - If LogErrorsOnly = False Then ClassLogger.Add(String.Format(">> Form Shown took {0} milliseconds to load", sw.ElapsedMilliseconds), False) + elapsed = sw.Elapsed.TotalSeconds + If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Form Shown took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False) End Sub Sub Jump_Record() Try Dim sw As Stopwatch = Stopwatch.StartNew() + Dim elapsed As Double If LogErrorsOnly = False Then ClassLogger.Add(" >> " & Now.ToString & " Jump_Record", False) If JUMP_RECORD_ID > 0 Then Dim sql = String.Format("SELECT FORM_ID FROM TBPMO_RECORD WHERE GUID = {0}", JUMP_RECORD_ID) @@ -3433,8 +3554,9 @@ Public Class frmConstructor_Main Next End If End If + elapsed = sw.Elapsed.TotalSeconds sw.Stop() - If LogErrorsOnly = False Then ClassLogger.Add(String.Format(">> Jump_Record took {0} milliseconds to load", sw.ElapsedMilliseconds), False) + If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Jump_Record took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False) Catch ex As Exception MsgBox("Unexpected error in jump-Record: " & ex.Message, MsgBoxStyle.Critical) End Try @@ -3515,11 +3637,19 @@ Public Class frmConstructor_Main End If Cursor = Cursors.Default Else - MsgBox("Bitte wählen Sie nochmal einen Datensatz aus!", MsgBoxStyle.Exclamation) + Dim msg = "Bitte wählen Sie nochmal einen Datensatz aus." + If USER_LANGUAGE <> "de-DE" Then + msg = "Please choose a record again." + End If + MsgBox(msg, MsgBoxStyle.Exclamation) End If End If Else - MsgBox("Bitte wählen Sie zuerst einen Datensatz aus.", MsgBoxStyle.Exclamation) + Dim msg = "Bitte wählen Sie zuerst einen Datensatz aus." + If USER_LANGUAGE <> "de-DE" Then + msg = "Please choose a record first." + End If + MsgBox(msg, MsgBoxStyle.Exclamation) End If @@ -3529,6 +3659,7 @@ Public Class frmConstructor_Main Try Dim sw As Stopwatch = Stopwatch.StartNew() + Dim elapsed As Double Dim sql As String = "SELECT * from VWPMO_CONSTRUCTOR_FORMS WHERE PARENT_ID = 0 AND CONSTRUCT_ID = " & CONSTRUCTORID & " AND SCREEN_ID = " & CURRENT_SCREEN_ID & " ORDER BY SEQUENCE" Dim dt As DataTable = ClassDatabase.Return_Datatable(sql) @@ -3539,8 +3670,9 @@ Public Class frmConstructor_Main TreeViewMain.Select() End If End If + elapsed = sw.Elapsed.TotalSeconds sw.Stop() - If LogErrorsOnly = False Then ClassLogger.Add(String.Format(">> Load_Level1 took {0} milliseconds to load", sw.ElapsedMilliseconds), False) + If LogErrorsOnly = False Then ClassLogger.Add(String.Format(" >> Load_Level1 took {0} to load", Format(elapsed, "0.000000000") & " seconds"), False) Catch ex As Exception MsgBox("Error in Load_Level1:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try @@ -3576,10 +3708,10 @@ Public Class frmConstructor_Main ' Wenn cId = 0, existiert noch kein wert für diese controlId/FormId Kombination If cId = 0 Then ClassControlCommandsUI.InsertControlValue(controlid, POS_RECORD_ID, e.Value) - Update_Status_Label(True, "Datensatz wurde eingefügt", EditState.Insert) + Update_Status_Label(True, "Record was added!", EditState.Insert) Else ClassControlCommandsUI.UpdateControlValue(controlid, POS_RECORD_ID, e.Value) - Update_Status_Label(True, "Datensatz wurde aktualisiert", EditState.Update) + Update_Status_Label(True, "Record was updated!", EditState.Update) End If Else Update_Status_Label(False) @@ -3675,12 +3807,21 @@ Public Class frmConstructor_Main End Sub Sub Show_Verknuepfungen() If SplitContainerBottom.Collapsed = True Then - VerknüpfungenAnzeigenToolStripMenuItem.Text = "Verknüfungen ausblenden" + Dim msg = "Verknüpfungen ausblenden" + If USER_LANGUAGE <> "de-DE" Then + msg = "Hide record-links" + End If + MsgBox(msg, MsgBoxStyle.Exclamation) + VerknüpfungenAnzeigenToolStripMenuItem.Text = msg Load_ParentConnections() TCDetails.SelectedTabPageIndex = 0 SplitContainerBottom.Collapsed = False Else - VerknüpfungenAnzeigenToolStripMenuItem.Text = "Verknüfungen einblenden" + Dim msg = "Verknüpfungen einblenden" + If USER_LANGUAGE <> "de-DE" Then + msg = "Show record-links" + End If + VerknüpfungenAnzeigenToolStripMenuItem.Text = msg SplitContainerBottom.Collapsed = True 'Save_GridViewParentEntityLayout() My.Settings.Save() @@ -3726,7 +3867,7 @@ Public Class frmConstructor_Main btnRelinkParentID.Enabled = False btnRelinkParentID.BackColor = Color.WhiteSmoke btnRelinkParentID.FlatAppearance.BorderColor = Color.WhiteSmoke - ClassLogger.Add(">> Grid_RecordID konnte nicht gewählt werden - GetFocusedParentID", True) + ClassLogger.Add(">> Grid_RecordID koncould not be chosen - GetFocusedParentID", True) ' lblParentID.Text = "keine Auswahl möglich" End If Else @@ -3743,7 +3884,11 @@ Public Class frmConstructor_Main Private Sub btnRelinkParentID_Click(sender As Object, e As EventArgs) Handles btnRelinkParentID.Click If PARENT_ID > 0 Then Dim result As MsgBoxResult - result = MessageBox.Show("Möchten Sie den Parent-Datensatz für den aktuellen Datensatz wirklich aktualisieren?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + Dim msg = "Möchten Sie den Parent-Datensatz für den aktuellen Datensatz wirklich aktualisieren?" + If USER_LANGUAGE <> "de-DE" Then + msg = "Would You like to change the parent-record?" + End If + result = MessageBox.Show(msg, "Change parent-record:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If result <> MsgBoxResult.Yes Then Exit Sub Else @@ -3755,7 +3900,11 @@ Public Class frmConstructor_Main End If If ClassControlCommandsUI.ConnectRecord(LinkParentID, RECORD_ID, "ReLInk ENTITY " & ENTITY_ID.ToString) = True Then 'Save_GridViewParentEntityLayout() - MsgBox("Die Parent-Entität wurde erfolgreich aktualisiert!", MsgBoxStyle.Information) + Dim msg = "Die Parent-Entität wurde erfolgreich aktualisiert!" + If USER_LANGUAGE <> "de-DE" Then + msg = "The Parent-Record was changed successful!" + End If + MsgBox(msg, MsgBoxStyle.Information) Check_Record_Changed() 'Load_Data_for_TreeView() btnRelinkParentID.BackColor = Color.Lime @@ -3767,7 +3916,11 @@ Public Class frmConstructor_Main Private Sub RecordKopierenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles RecordKopierenToolStripMenuItem.Click Dim result As MsgBoxResult - result = MessageBox.Show("Möchten Sie den Datensatz wirklich kopieren?", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + Dim msg = "Möchten Sie den Datensatz wirklich kopieren?" + If USER_LANGUAGE <> "de-DE" Then + msg = "Would You like to copy the record?" + End If + result = MessageBox.Show(msg, "Copy Record:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If result = MsgBoxResult.Yes Then Dim SQL = String.Format("EXEC PRDD_COPY_RECORD {0}, '{1}'", RECORD_ID, Environment.UserName) If ClassDatabase.Execute_non_Query(SQL, True) = True Then @@ -3784,7 +3937,11 @@ Public Class frmConstructor_Main Private Sub AnwendungscacheFreigebenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnwendungscacheFreigebenToolStripMenuItem.Click Dim result As MsgBoxResult - result = MessageBox.Show("Möchten Sie den Anwendungscache wirklich leeren?" & vbNewLine & "Die Entität wird dann automatisch neugeladen!", "Bestätigung erforderlich:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) + Dim msg = "Möchten Sie den Anwendungscache wirklich leeren?" & vbNewLine & "Die Entität wird dann automatisch neugeladen!" + If USER_LANGUAGE <> "de-DE" Then + msg = "Would You like to clear the applications-cache?" & vbNewLine & "All data will be loaded new!" + End If + result = MessageBox.Show(msg, "Clear cache:", MessageBoxButtons.YesNo, MessageBoxIcon.Question) If result = MsgBoxResult.Yes Then Try Cursor = Cursors.WaitCursor @@ -3799,15 +3956,17 @@ Public Class frmConstructor_Main Cursor = Cursors.Default End Try End If - - End Sub Private Sub grvwGrid_ColumnFilterChanged(sender As Object, e As EventArgs) Handles grvwGrid.ColumnFilterChanged Console.WriteLine("Filter changed: " & Now) End Sub + Public Sub New() + + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. - Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) - MsgBox(grvwGrid.ActiveFilterString) End Sub End Class \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmForm_Input.vb b/app/DD-Record-Organiser/frmForm_Input.vb index 3d8ee16..9727d9d 100644 --- a/app/DD-Record-Organiser/frmForm_Input.vb +++ b/app/DD-Record-Organiser/frmForm_Input.vb @@ -414,8 +414,8 @@ Public Class frmFormInput RefreshRecordByID(SelectedRecordID) ClassControlValues.LoadControlValuesList(thisformid, pnlView.Controls) - ClassControlValues.LoadControlValuesListWithPlaceholders(thisformid, SelectedRecordID, CURRENT_PARENT_ID, pnlView.Controls) - ClassControlValues.LoadControlValues(SelectedRecordID, CURRENT_PARENT_ID, thisformid, pnlView.Controls) + ClassControlValues.LoadControlValuesListWithPlaceholders(thisformid, SelectedRecordID, CURRENT_PARENT_ID, pnlView.Controls, 99) + ClassControlValues.LoadControlValues(SelectedRecordID, CURRENT_PARENT_ID, thisformid, pnlView.Controls, 99) End If load_Documents() End If diff --git a/app/DD-Record-Organiser/frmMain.Designer.vb b/app/DD-Record-Organiser/frmMain.Designer.vb index 253fb1d..ddd4dd7 100644 --- a/app/DD-Record-Organiser/frmMain.Designer.vb +++ b/app/DD-Record-Organiser/frmMain.Designer.vb @@ -61,6 +61,7 @@ Partial Class frmMain Me.BarButtonItem18 = New DevExpress.XtraBars.BarButtonItem() Me.BarButtonItem19 = New DevExpress.XtraBars.BarButtonItem() Me.LabelLanguage = New DevExpress.XtraBars.BarStaticItem() + Me.BarButtonItem20 = New DevExpress.XtraBars.BarButtonItem() Me.pageHome = New DevExpress.XtraBars.Ribbon.RibbonPage() Me.RibbonPageGroup2 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() Me.groupQuickAccessForm = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() @@ -77,7 +78,6 @@ Partial Class frmMain Me.BarButtonItem11 = New DevExpress.XtraBars.BarButtonItem() Me.TimerClose3Minutes = New System.Windows.Forms.Timer(Me.components) Me.RibbonPageGroup3 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup() - Me.BarButtonItem20 = New DevExpress.XtraBars.BarButtonItem() Me.cmsSystray.SuspendLayout() CType(Me.DD_DMSDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWPMO_WF_ACTIVEBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() @@ -389,6 +389,14 @@ Partial Class frmMain Me.LabelLanguage.Name = "LabelLanguage" Me.LabelLanguage.TextAlignment = System.Drawing.StringAlignment.Near ' + 'BarButtonItem20 + ' + resources.ApplyResources(Me.BarButtonItem20, "BarButtonItem20") + Me.BarButtonItem20.Glyph = CType(resources.GetObject("BarButtonItem20.Glyph"), System.Drawing.Image) + Me.BarButtonItem20.Id = 34 + Me.BarButtonItem20.Name = "BarButtonItem20" + Me.BarButtonItem20.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large + ' 'pageHome ' Me.pageHome.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup2, Me.groupQuickAccessForm}) @@ -508,14 +516,6 @@ Partial Class frmMain Me.RibbonPageGroup3.Name = "RibbonPageGroup3" resources.ApplyResources(Me.RibbonPageGroup3, "RibbonPageGroup3") ' - 'BarButtonItem20 - ' - resources.ApplyResources(Me.BarButtonItem20, "BarButtonItem20") - Me.BarButtonItem20.Glyph = CType(resources.GetObject("BarButtonItem20.Glyph"), System.Drawing.Image) - Me.BarButtonItem20.Id = 34 - Me.BarButtonItem20.Name = "BarButtonItem20" - Me.BarButtonItem20.RibbonStyle = DevExpress.XtraBars.Ribbon.RibbonItemStyles.Large - ' 'frmMain ' Me.Appearance.BackColor = CType(resources.GetObject("frmMain.Appearance.BackColor"), System.Drawing.Color) diff --git a/app/DD-Record-Organiser/frmMain.resx b/app/DD-Record-Organiser/frmMain.resx index 677974b..573ed1c 100644 --- a/app/DD-Record-Organiser/frmMain.resx +++ b/app/DD-Record-Organiser/frmMain.resx @@ -1853,50 +1853,49 @@ Konfiguration - iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAAAXNSR0IArs4c6QAAAARnQU1BAACxjwv8 - YQUAAAAZdEVYdFNvZnR3YXJlAEFkb2JlIEltYWdlUmVhZHlxyWU8AAAAC3RFWHRUaXRsZQBVc2VyO5db - CgIAAAmJSURBVFhHlZcLOJT5HseHwplhDCN3rcskcommMCK6uFQuuUQ1uYRCKkpIFyGKtpNNKhspKZFU - u4ZSyjWrNkWkrT2rtc4Wm5It6bSdnu/+3yntZN+z55zf83yeZ+b3vL/f9/v7v+/7n/8wAPwlqbPYjBR7 - NmP7TDZj60y2/hYBOzbRRqE43lqhlSLOWuEYYS6BQUHX46+gTUpCiffcLGVssWWvznTTR9k2b9TlRqP9 - bBraylNxeX8k9iyxQMx0hZyYGQoMKuj6/Cdok6NQIZ7clu15JGLWu74bBfipfh/un9uEjpPhuJW/DG35 - QtwqDMfeQGtEWcpHkBJpghRVS9dzLLTJUagg4qppTprDPXWH8H1lMq7tdkZdmj2uJAlweYs1KhL4KIww - wYGgyVg9Vf5tuBmrM9iYGU5Kx1P1dH0loU2OQsVmgUJ86eZFeFjzd9RnzEUVETy/1hRl4YYoDNLD/sVa - yPDQRIITD6kuGjjoPxFr+Wws5jH9Sfk4ur6S0CZHoYI8cB23Srbi9rEInF1niqNCXeR4aSBzvgrSnZQQ - b8vBjsV8tJZuR6yNEnI8VLHOUh5+vL9VknImXV9JaJOjkJCKt2GPfFeZiYrNdsj21kLSbCWst2IjcioL - gVNY2B/phF+u5+LpzS9RGOeO6GkKiJgiRwwwn5B6Jbq+ktAmRyEhHWej8Oj68UQcEuojaQ4XmQGOOJ7o - D9HeVbhXlYHB20eIeC6eXM/Gz7WZSF8yAwGT5ODLY74l9Wp0fSWhTY5CGdhopdBYkRmCTA9t7Itwx8jP - LRi6W4LndwrF4s/I5E9astHftAePrqahJicUQlOl37z0mW9IvSZdX0lok6NQBmKmy289tNIB8XYT8F3z - BQz/eAVDHScw2Pap+OPadPxYlYiGgwFYaa3xzv0z5iNSr0HXVxLa5CgkpObqyqnGCriPYmZw0NvVgpfd - 1RhsP/Zx2cWT16bhn5e2oev0Goh2LkIQX31otpbcUVLPoesrCW1ylA8xXjiFFbjBWhnfVp3Ai+7LeHYr - //3kjZ9/FO+pjEdrQRAK18+Gn4nyHVJnQNXS9ZWENikJCWpX40RN5/QUJq/GcE8Dmf4wmZwSTxeL/1QZ - h3slEaj/wge7lpjD2UDhJKnh0vUbC21SErIPUCbkvM1UQ5L87Z+0VxfiaWsBHtft/CAejwenI/HNIT+c - 2GCPUCv1IUt1uSBS81/3AAra5FhIUKug5GOh/uX+mCVoq/gCvTU78cPXsbhTFIbmHD+UJToiwVkfdpqy - JeRaDYI0Xa+x0CbHEhQUxDA0NJSbJbCOSVwwGemBc1GcvBzVWcshSvPAgZUzEOOog0DzCdDRUEtksVjM - tXN1pVbPmRgQ4aBzZuVMrcehAo3HQVaqZ5bxVQJNNZjSvmYcce8/iUlCTUGQYysqqnh6ep5b7Ld4eG+Q - Fc7tEiJpkRlWTFNBgBkHkQJ1xDvrIdLOABYWFq90dHQqVthP3JufEonrlfno7zyNnobduJgTgl2hDvAx - U0rTYo8fRwl8IlheXs5IUOeKISFDUJvHZgX72gq+P3v2LIqLi5EeZI/e2t3oLE9A7f5glG5ZiPy1s5C9 - YgZC7Iywa9cuJK4OwNH0dfj3y268/kceXt3LxvCd3XjRmoKeqjVI8TfBfJ58KOkv/YmBsrIyxpncPEpc - VlNmvGmICqdh92QDbJztKBZ/9+4dYqNCULYnAk35a/At+YG6krUUhRtdkLzcDsu83NDR0YEoTxu01onw - 5nENBq5n4NyORUjxtkR9SQ6ekU2sdLM9XPRZIvGQkgZKS0spcWpp9MInKHVeDAtBe2gIzrstRGBgILkE - GBoagq+PLyICA7A+OhqxK1ci0t0dC12c0dzcjKamJgTbaeP5QD9GHuSj+0I8trsbY7qOYtzekLn47WU/ - mrNd4KzLHCA6ip8YIEE97dzo6OijWX6+6Ni3D23EQJPDLLjz+ejq6sLIyAi6u7sxb948pO5Ixc6dO+Hq - 4opr166JxXNzcyG0UhcbGL6bjb6rG1Ge5Izdy63RWnEEv3YW4NpeR8yZKDdItFTHGpAxMDAQkCavvkrZ - jrxl/mhfFYZGezvsMDdDQkIC+vv70draKjZw9+5dnDp1Cq7zXVFZWYnq6mq4ublhOXkb7re14FVXHoaa - 1uP51Qg8uxSEAZEfeksXooicK6zUZW4SPbWxBrjh4eFH6+vrcfN0CbZPt8DtsFA02M3EBXNz8CdNQkND - A2xtbcXiVGRlZZGVuQcrqxnIy8+HuaYSMtf44fXAXSIei8Grq/C0OhADFb54cs4ND444Io6cnIyUx2UR - vT9uAQlq+Q1TU1Mf9fb24oebN7BZTwc3A4SoJYIXzUyRNomHqcTEAi4X5LqPBqjPsxUVwddVE4u/6u/A - r9c2YvDKKgxUCXG/aCG6jnmhdJMNEjxNYMYdf1FaisEjeuMkDcjx+XyfgoIC8X3u6+nBZm01tPh444qV - FapMTSCaYozCSYY4Q0z4KiuLhcPCwuCmyMFWPc0P4nfI5BvwsJzsFd7ELI+F+ZOV4cTjwJ6niklc5hUp - KYY50ZMV60oYUFq6dOkhkUiEFy9e4BdyrzdpqKDR1RXV/GmonGKCr4yMcMbQECU8AxTp6cGTw8ECMnmS - rjo+HxVvXI+HZ5YiyYsHDy4TJuRNr6mpwdcVFVgXHQNLS8tTREvdesL497oSBnSioqJutLS04OnTp3h4 - /z42qXNR6zgbFyymosLYCOeIeJmBAU4R8WN6+sibOBHb9f4Qf94Yg2eXQ9BZ4CGePESeDXtZaXSRvYF6 - g3IOHISTk1Mb0dK1Unm/+pIGDDMyMt4ODAygr68P7Q11iFOfgBqBDURmJjhvRJaex8MpfX0U6eqigIjv - MNB6L97Xjuf169B9egm2kckpcQ8uC5EsFlzkZNBIVqCp+RuIqqoREBBAnRWN6Qyo+vr6Fh3OOwLRxRpU - 5OxHpJoKTpoY4yhZ8sO6n+EQEc3R1kaWpiYyNLWwnK+CN/96TcTXEnF/Im5AHlAmljFZCGYyEUoMuMrJ - ovjgAVy8VIPk5BQIBALqFqjRGaD2/sn+/v41iYmJCLOcijAuG6EUymysIAR/IECJDSHB30KZlALPyGvW - mb9APLkrmwlfDgs+ivLw5hAUWfDkW0IoFMLBweEq0TCmtP5kQPyFPJkEbYIlwZoGGwlmOhuyq7yM2fAw - VBCLm6jIHCd5pzHXjTKNoEOQpcRpDfw/kKD2Dcowh6BGoA4h1Gfxf8L/JQAwfgd3hPPGW+V/iAAAAABJ - RU5ErkJggg== + iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABGdBTUEAALGPC/xhBQAAABl0RVh0U29m + dHdhcmUAQWRvYmUgSW1hZ2VSZWFkeXHJZTwAAAALdEVYdFRpdGxlAFVzZXI7l1sKAgAACYlJREFUWEeV + lws4lPkex4fCmWEMI3etyyRyiaYwIrq4VC65RDW5hEIqSkgXIYq2k00qGykpkVS7hlLKNas2RaStPau1 + zhabki3ptJ2e7/7fKe1k37PnnN/zfJ5n5ve8v9/3+/u/7/uf/zAA/CWps9iMFHs2Y/tMNmPrTLb+FgE7 + NtFGoTjeWqGVIs5a4RhhLoFBQdfjr6BNSkKJ99wsZWyxZa/OdNNH2TZv1OVGo/1sGtrKU3F5fyT2LLFA + zHSFnJgZCgwq6Pr8J2iTo1AhntyW7XkkYta7vhsF+Kl+H+6f24SOk+G4lb8MbflC3CoMx95Aa0RZykeQ + EmmCFFVL13MstMlRqCDiqmlOmsM9dYfwfWUyru12Rl2aPa4kCXB5izUqEvgojDDBgaDJWD1V/m24Gasz + 2JgZTkrHU/V0fSWhTY5CxWaBQnzp5kV4WPN31GfMRRURPL/WFGXhhigM0sP+xVrI8NBEghMPqS4aOOg/ + EWv5bCzmMf1J+Ti6vpLQJkehgjxwHbdKtuL2sQicXWeKo0Jd5HhpIHO+CtKdlBBvy8GOxXy0lm5HrI0S + cjxUsc5SHn68v1WSciZdX0lok6OQkIq3YY98V5mJis12yPbWQtJsJay3YiNyKguBU1jYH+mEX67n4unN + L1EY547oaQqImCJHDDCfkHolur6S0CZHISEdZ6Pw6PrxRBwS6iNpDheZAY44nugP0d5VuFeVgcHbR4h4 + Lp5cz8bPtZlIXzIDAZPk4MtjviX1anR9JaFNjkIZ2Gil0FiRGYJMD23si3DHyM8tGLpbgud3CsXiz8jk + T1qy0d+0B4+upqEmJxRCU6XfvPSZb0i9Jl1fSWiTo1AGYqbLbz200gHxdhPwXfMFDP94BUMdJzDY9qn4 + 49p0/FiViIaDAVhprfHO/TPmI1KvQddXEtrkKCSk5urKqcYKuI9iZnDQ29WCl93VGGw/9nHZxZPXpuGf + l7ah6/QaiHYuQhBffWi2ltxRUs+h6ysJbXKUDzFeOIUVuMFaGd9WncCL7st4div//eSNn38U76mMR2tB + EArXz4afifIdUmdA1dL1lYQ2KQkJalfjRE3n9BQmr8ZwTwOZ/jCZnBJPF4v/VBmHeyURqP/CB7uWmMPZ + QOEkqeHS9RsLbVISsg9QJuS8zVRDkvztn7RXF+JpawEe1+38IB6PB6cj8c0hP5zYYI9QK/UhS3W5IFLz + X/cACtrkWEhQq6DkY6H+5f6YJWir+AK9NTvxw9exuFMUhuYcP5QlOiLBWR92mrIl5FoNgjRdr7HQJscS + FBTEMDQ0lJslsI5JXDAZ6YFzUZy8HNVZyyFK88CBlTMQ46iDQPMJ0NFQS2SxWMy1c3WlVs+ZGBDhoHNm + 5Uytx6ECjcdBVqpnlvFVAk01mNK+Zhxx7z+JSUJNQZBjKyqqeHp6nlvst3h4b5AVzu0SImmRGVZMU0GA + GQeRAnXEO+sh0s4AFhYWr3R0dCpW2E/cm58SieuV+ejvPI2eht24mBOCXaEO8DFTStNijx9HCXwiWF5e + zkhQ54ohIUNQm8dmBfvaCr4/e/YsiouLkR5kj97a3egsT0Dt/mCUblmI/LWzkL1iBkLsjLBr1y4krg7A + 0fR1+PfLbrz+Rx5e3cvG8J3deNGagp6qNUjxN8F8nnwo6S/9iYGysjLGmdw8SlxWU2a8aYgKp2H3ZANs + nO0oFn/37h1io0JQticCTflr8C35gbqStRSFG12QvNwOy7zc0NHRgShPG7TWifDmcQ0Grmfg3I5FSPG2 + RH1JDp6RTax0sz1c9Fki8ZCSBkpLSylxamn0wicodV4MC0F7aAjOuy1EYGAguQQYGhqCr48vIgIDsD46 + GrErVyLS3R0LXZzR3NyMpqYmBNtp4/lAP0Ye5KP7Qjy2uxtjuo5i3N6QufjtZT+as13grMscIDqKnxgg + QT3t3Ojo6KNZfr7o2LcPbcRAk8MsuPP56OrqwsjICLq7uzFv3jyk7kjFzp074eriimvXronFc3NzIbRS + FxsYvpuNvqsbUZ7kjN3LrdFacQS/dhbg2l5HzJkoN0i0VMcakDEwMBCQJq++StmOvGX+aF8VhkZ7O+ww + N0NCQgL6+/vR2toqNnD37l2cOnUKrvNdUVlZierqari5uWE5eRvut7XgVVcehprW4/nVCDy7FIQBkR96 + SxeiiJwrrNRlbhI9tbEGuOHh4Ufr6+tx83QJtk+3wO2wUDTYzcQFc3PwJ01CQ0MDbG1txeJUZGVlkZW5 + ByurGcjLz4e5phIy1/jh9cBdIh6Lwaur8LQ6EAMVvnhyzg0PjjgijpycjJTHZRG9P24BCWr5DVNTUx/1 + 9vbih5s3sFlPBzcDhKglghfNTJE2iYepxMQCLhfkuo8GqM+zFRXB11UTi7/q78Cv1zZi8MoqDFQJcb9o + IbqOeaF0kw0SPE1gxh1/UVqKwSN64yQNyPH5fJ+CggLxfe7r6cFmbTW0+HjjipUVqkxNIJpijMJJhjhD + TPgqK4uFw8LC4KbIwVY9zQ/id8jkG/CwnOwV3sQsj4X5k5XhxOPAnqeKSVzmFSkphjnRkxXrShhQWrp0 + 6SGRSIQXL17gF3KvN2mooNHVFdX8aaicYoKvjIxwxtAQJTwDFOnpwZPDwQIyeZKuOj4fFW9cj4dnliLJ + iwcPLhMm5E2vqanB1xUVWBcdA0tLy1NES916wvj3uhIGdKKiom60tLTg6dOneHj/Pjapc1HrOBsXLKai + wtgI54h4mYEBThHxY3r6yJs4Edv1/hB/3hiDZ5dD0FngIZ48RJ4Ne1lpdJG9gXqDcg4chJOTUxvR0rVS + eb/6kgYMMzIy3g4MDKCvrw/tDXWIU5+AGoENRGYmOG9Elp7Hwyl9fRTp6qKAiO8w0Hov3teO5/Xr0H16 + CbaRySlxDy4LkSwWXORk0EhWoKn5G4iqqhEQEECdFY3pDKj6+voWHc47AtHFGlTk7EekmgpOmhjjKFny + w7qf4RARzdHWRpamJjI0tbCcr4I3/3pNxNcScX8ibkAeUCaWMVkIZjIRSgy4ysmi+OABXLxUg+TkFAgE + AuoWqNEZoPb+yf7+/jWJiYkIs5yKMC4boRTKbKwgBH8gQIkNIcHfQpmUAs/Ia9aZv0A8uSubCV8OCz6K + 8vDmEBRZ8ORbQigUwsHB4SrRMKa0/mRA/IU8mQRtgiXBmgYbCWY6G7KrvIzZ8DBUEIubqMgcJ3mnMdeN + Mo2gQ5ClxGkN/D+QoPYNyjCHoEagDiHUZ/F/wv8lADB+B3eE88Zb5X+IAAAAAElFTkSuQmCC @@ -1906,7 +1905,7 @@ Konfiguration Kalender - Schnellstart + Views/Sichten Home @@ -1915,10 +1914,10 @@ Konfiguration Yellow - Quickstart + Views/Sichten - Entitäten 2 + Weitere Sichten Programm Konfiguration @@ -1939,13 +1938,13 @@ Konfiguration Administration - 1546, 150 + 1554, 150 - 0, 679 + 0, 683 - 1546, 23 + 1554, 23 RibbonStatusBar1 @@ -1996,7 +1995,7 @@ Konfiguration 6, 13 - 1546, 702 + 1554, 706 Segoe UI, 8.25pt @@ -3106,6 +3105,12 @@ Konfiguration DevExpress.XtraBars.BarStaticItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + BarButtonItem20 + + + DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + pageHome @@ -3196,12 +3201,6 @@ Konfiguration DevExpress.XtraBars.Ribbon.RibbonPageGroup, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - BarButtonItem20 - - - DevExpress.XtraBars.BarButtonItem, DevExpress.XtraBars.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - frmMain diff --git a/app/DD-Record-Organiser/frmMain.vb b/app/DD-Record-Organiser/frmMain.vb index d0e340c..2a8a18b 100644 --- a/app/DD-Record-Organiser/frmMain.vb +++ b/app/DD-Record-Organiser/frmMain.vb @@ -83,7 +83,10 @@ Public Class frmMain 'Wenn Argumente übergeben wurden, wird Formular geladen und zu record gesprungen ClassJumpRecord.ParseArgs() - TimerTasks.Interval = Task_Popup_minutes * 60000 + If Task_Popup_minutes <> 0 Then + TimerTasks.Interval = Task_Popup_minutes * 60000 + End If + Catch ex As Exception MsgBox("Error in Load Form:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) End Try @@ -448,7 +451,10 @@ Public Class frmMain Private Sub frmMain_Shown(sender As Object, e As EventArgs) Handles Me.Shown Refresh_TaskReminder() - TimerTasks.Start() + If Task_Popup_minutes <> 0 Then + TimerTasks.Start() + End If + RUN_TIMER() If Sett_ConstructorStart <> 0 Then Cursor = Cursors.WaitCursor @@ -548,9 +554,15 @@ Public Class frmMain If CONNECTION_CHANGED = True Then Load_Connection_Dep_Data() End If - TimerTasks.Stop() - TimerTasks.Interval = Task_Popup_minutes * 60000 - TimerTasks.Start() + If Task_Popup_minutes <> 0 Then + TimerTasks.Stop() + TimerTasks.Interval = Task_Popup_minutes * 60000 + TimerTasks.Start() + Else + TimerTasks.Enabled = False + TimerTasks.Stop() + End If + End Sub Private Sub BarButtonItem3_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem3.ItemClick @@ -681,8 +693,8 @@ Public Class frmMain Private Sub BarButtonItem20_ItemClick(sender As Object, e As ItemClickEventArgs) Handles BarButtonItem20.ItemClick Close_Maximized_Forms() - Dim frm As New frmGroup_Rights - frm = frmGroup_Rights.Instance() + Dim frm As New frmRight_Management + frm = frmRight_Management.Instance() frm.MdiParent = MAIN_FORM frm.Show() End Sub diff --git a/app/DD-Record-Organiser/frmSplash.vb b/app/DD-Record-Organiser/frmSplash.vb index 3e11212..8507979 100644 --- a/app/DD-Record-Organiser/frmSplash.vb +++ b/app/DD-Record-Organiser/frmSplash.vb @@ -72,10 +72,10 @@ Public NotInheritable Class frmSplash If Init.InitDatabase() = True Then System.Threading.Thread.Sleep(500) - bw.ReportProgress(CalcProgress(3), "Initializing Windream-Configuration") - Init.InitWindream() + bw.ReportProgress(CalcProgress(3), "Initializing Basic-Configuration") + Init.InitBasics2() - System.Threading.Thread.Sleep(500) + System.Threading.Thread.Sleep(300) bw.ReportProgress(CalcProgress(4), "Initializing User-Configuration") Init.InitUserLogin() diff --git a/app/DD-Record-Organiser/frmUserKonfig.Designer.vb b/app/DD-Record-Organiser/frmUserKonfig.Designer.vb index 7c61461..fcf6a6d 100644 --- a/app/DD-Record-Organiser/frmUserKonfig.Designer.vb +++ b/app/DD-Record-Organiser/frmUserKonfig.Designer.vb @@ -97,19 +97,29 @@ Partial Class frmUserKonfig Me.btnAddUserToGroup = New System.Windows.Forms.Button() Me.lbGroups = New System.Windows.Forms.ListBox() Me.TabPage2 = New System.Windows.Forms.TabPage() - Me.txtUserSearch3 = New System.Windows.Forms.TextBox() - Me.txtUserSearch2 = New System.Windows.Forms.TextBox() + Me.GridControlWH_Users1 = New DevExpress.XtraGrid.GridControl() + Me.TBWH_Users1BindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.DD_ECMAdmin = New DD_Record_Organiser.DD_ECMAdmin() + Me.GridViewWH_Users1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridColumn3 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn4 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn5 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn6 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridControlUsers2Group = New DevExpress.XtraGrid.GridControl() + Me.TBAD_UsersBindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GridViewlUsers2Group = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colSelect = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn1 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn2 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colID = New DevExpress.XtraGrid.Columns.GridColumn() Me.btndeleteUserfromGroup = New System.Windows.Forms.Button() Me.lblUserforGroup = New System.Windows.Forms.Label() - Me.chklbxUserForGroup = New System.Windows.Forms.CheckedListBox() Me.btnaddSelectedUser2Group = New System.Windows.Forms.Button() Me.Label4 = New System.Windows.Forms.Label() - Me.clbUsersGroups = New System.Windows.Forms.CheckedListBox() Me.Label3 = New System.Windows.Forms.Label() Me.cmbGroups_Group2User = New System.Windows.Forms.ComboBox() Me.TabGruppendefinition = New DevExpress.XtraTab.XtraTabPage() Me.COMMENTTextBox = New System.Windows.Forms.TextBox() - Me.ListBox1 = New System.Windows.Forms.ListBox() Me.GUIDTextBox1 = New System.Windows.Forms.TextBox() Me.NAMETextBox1 = New System.Windows.Forms.TextBox() Me.ADDED_WHOTextBox1 = New System.Windows.Forms.TextBox() @@ -159,14 +169,23 @@ Partial Class frmUserKonfig Me.ADDED_WHOTextBox2 = New System.Windows.Forms.TextBox() Me.ADDED_WHENTextBox2 = New System.Windows.Forms.TextBox() Me.TabPage6 = New System.Windows.Forms.TabPage() - Me.txtUserSearch5 = New System.Windows.Forms.TextBox() - Me.txtUserSearch4 = New System.Windows.Forms.TextBox() + Me.GridControlUsersinClient = New DevExpress.XtraGrid.GridControl() + Me.GridViewUsersinClient = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridColumn11 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn12 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn13 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn14 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridControlUser2Mandanten = New DevExpress.XtraGrid.GridControl() + Me.TBWH_Users2BindingSource = New System.Windows.Forms.BindingSource(Me.components) + Me.GridViewUser2Mandanten = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.GridColumn7 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn8 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn9 = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridColumn10 = New DevExpress.XtraGrid.Columns.GridColumn() Me.btndeleteUserfromClient = New System.Windows.Forms.Button() Me.lblUser2Client = New System.Windows.Forms.Label() - Me.chklbxUsersforClient = New System.Windows.Forms.CheckedListBox() Me.btnsaddUser2Client = New System.Windows.Forms.Button() Me.Label16 = New System.Windows.Forms.Label() - Me.chklbxUserClient = New System.Windows.Forms.CheckedListBox() Me.Label17 = New System.Windows.Forms.Label() Me.cmbClientsforUser = New System.Windows.Forms.ComboBox() Me.VWPMO_USERS_GROUPSBindingSource = New System.Windows.Forms.BindingSource(Me.components) @@ -183,6 +202,9 @@ Partial Class frmUserKonfig Me.colUSERNAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.colNAME = New DevExpress.XtraGrid.Columns.GridColumn() Me.colEMAIL = New DevExpress.XtraGrid.Columns.GridColumn() + Me.GridControl2 = New DevExpress.XtraGrid.GridControl() + Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colNAME1 = New DevExpress.XtraGrid.Columns.GridColumn() GUIDLabel = New System.Windows.Forms.Label() PRENAMELabel = New System.Windows.Forms.Label() NAMELabel = New System.Windows.Forms.Label() @@ -222,6 +244,13 @@ Partial Class frmUserKonfig Me.TabPage1.SuspendLayout() CType(Me.TBDD_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage2.SuspendLayout() + CType(Me.GridControlWH_Users1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBWH_Users1BindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewWH_Users1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlUsers2Group, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewlUsers2Group, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabGruppendefinition.SuspendLayout() CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).BeginInit() Me.BindingNavigator1.SuspendLayout() @@ -232,10 +261,17 @@ Partial Class frmUserKonfig Me.BindingNavigator2.SuspendLayout() CType(Me.TBDD_CLIENTBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.TabPage6.SuspendLayout() + CType(Me.GridControlUsersinClient, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewUsersinClient, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControlUser2Mandanten, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.TBWH_Users2BindingSource, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridViewUser2Mandanten, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.VWPMO_USERS_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'GUIDLabel @@ -417,6 +453,7 @@ Partial Class frmUserKonfig 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 @@ -707,31 +744,136 @@ Partial Class frmUserKonfig ' 'TabPage2 ' - Me.TabPage2.Controls.Add(Me.txtUserSearch3) - Me.TabPage2.Controls.Add(Me.txtUserSearch2) + resources.ApplyResources(Me.TabPage2, "TabPage2") + Me.TabPage2.Controls.Add(Me.GridControlWH_Users1) + Me.TabPage2.Controls.Add(Me.GridControlUsers2Group) Me.TabPage2.Controls.Add(Me.btndeleteUserfromGroup) Me.TabPage2.Controls.Add(Me.lblUserforGroup) - Me.TabPage2.Controls.Add(Me.chklbxUserForGroup) Me.TabPage2.Controls.Add(Me.btnaddSelectedUser2Group) Me.TabPage2.Controls.Add(Me.Label4) - Me.TabPage2.Controls.Add(Me.clbUsersGroups) Me.TabPage2.Controls.Add(Me.Label3) Me.TabPage2.Controls.Add(Me.cmbGroups_Group2User) - resources.ApplyResources(Me.TabPage2, "TabPage2") Me.TabPage2.Name = "TabPage2" Me.TabPage2.UseVisualStyleBackColor = True ' - 'txtUserSearch3 + 'GridControlWH_Users1 + ' + resources.ApplyResources(Me.GridControlWH_Users1, "GridControlWH_Users1") + Me.GridControlWH_Users1.DataSource = Me.TBWH_Users1BindingSource + Me.GridControlWH_Users1.MainView = Me.GridViewWH_Users1 + Me.GridControlWH_Users1.Name = "GridControlWH_Users1" + Me.GridControlWH_Users1.ShowOnlyPredefinedDetails = True + Me.GridControlWH_Users1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewWH_Users1}) + ' + 'TBWH_Users1BindingSource + ' + Me.TBWH_Users1BindingSource.DataMember = "TBWH_Users1" + Me.TBWH_Users1BindingSource.DataSource = Me.DD_ECMAdmin + ' + 'DD_ECMAdmin + ' + Me.DD_ECMAdmin.DataSetName = "DD_ECMAdmin" + Me.DD_ECMAdmin.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema + ' + 'GridViewWH_Users1 + ' + Me.GridViewWH_Users1.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewWH_Users1.Appearance.EvenRow.BackColor"), System.Drawing.Color) + Me.GridViewWH_Users1.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewWH_Users1.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridViewWH_Users1.Appearance.FocusedRow.BackColor"), System.Drawing.Color) + Me.GridViewWH_Users1.Appearance.FocusedRow.Options.UseBackColor = True + Me.GridViewWH_Users1.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn3, Me.GridColumn4, Me.GridColumn5, Me.GridColumn6}) + Me.GridViewWH_Users1.GridControl = Me.GridControlWH_Users1 + Me.GridViewWH_Users1.Name = "GridViewWH_Users1" + Me.GridViewWH_Users1.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewWH_Users1.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewWH_Users1.OptionsBehavior.CopyToClipboardWithColumnHeaders = False + Me.GridViewWH_Users1.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewWH_Users1.OptionsView.ColumnAutoWidth = False + Me.GridViewWH_Users1.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewWH_Users1.OptionsView.ShowAutoFilterRow = True + Me.GridViewWH_Users1.OptionsView.ShowGroupPanel = False + ' + 'GridColumn3 + ' + resources.ApplyResources(Me.GridColumn3, "GridColumn3") + Me.GridColumn3.FieldName = "Select" + Me.GridColumn3.Name = "GridColumn3" + ' + 'GridColumn4 + ' + Me.GridColumn4.FieldName = "Username" + Me.GridColumn4.Name = "GridColumn4" + Me.GridColumn4.OptionsColumn.AllowEdit = False + resources.ApplyResources(Me.GridColumn4, "GridColumn4") + ' + 'GridColumn5 + ' + Me.GridColumn5.FieldName = "Email" + Me.GridColumn5.Name = "GridColumn5" + Me.GridColumn5.OptionsColumn.AllowEdit = False + resources.ApplyResources(Me.GridColumn5, "GridColumn5") + ' + 'GridColumn6 ' - Me.txtUserSearch3.BackColor = System.Drawing.Color.SandyBrown - resources.ApplyResources(Me.txtUserSearch3, "txtUserSearch3") - Me.txtUserSearch3.Name = "txtUserSearch3" + Me.GridColumn6.FieldName = "ID" + Me.GridColumn6.Name = "GridColumn6" ' - 'txtUserSearch2 + 'GridControlUsers2Group ' - Me.txtUserSearch2.BackColor = System.Drawing.Color.SandyBrown - resources.ApplyResources(Me.txtUserSearch2, "txtUserSearch2") - Me.txtUserSearch2.Name = "txtUserSearch2" + resources.ApplyResources(Me.GridControlUsers2Group, "GridControlUsers2Group") + Me.GridControlUsers2Group.DataSource = Me.TBAD_UsersBindingSource + Me.GridControlUsers2Group.MainView = Me.GridViewlUsers2Group + Me.GridControlUsers2Group.Name = "GridControlUsers2Group" + Me.GridControlUsers2Group.ShowOnlyPredefinedDetails = True + Me.GridControlUsers2Group.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewlUsers2Group}) + ' + 'TBAD_UsersBindingSource + ' + Me.TBAD_UsersBindingSource.DataMember = "TBAD_Users" + Me.TBAD_UsersBindingSource.DataSource = Me.DD_ECMAdmin + ' + 'GridViewlUsers2Group + ' + Me.GridViewlUsers2Group.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewlUsers2Group.Appearance.EvenRow.BackColor"), System.Drawing.Color) + Me.GridViewlUsers2Group.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewlUsers2Group.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridViewlUsers2Group.Appearance.FocusedRow.BackColor"), System.Drawing.Color) + Me.GridViewlUsers2Group.Appearance.FocusedRow.Options.UseBackColor = True + Me.GridViewlUsers2Group.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colSelect, Me.GridColumn1, Me.GridColumn2, Me.colID}) + Me.GridViewlUsers2Group.GridControl = Me.GridControlUsers2Group + Me.GridViewlUsers2Group.Name = "GridViewlUsers2Group" + Me.GridViewlUsers2Group.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewlUsers2Group.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewlUsers2Group.OptionsBehavior.CopyToClipboardWithColumnHeaders = False + Me.GridViewlUsers2Group.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewlUsers2Group.OptionsView.ColumnAutoWidth = False + Me.GridViewlUsers2Group.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewlUsers2Group.OptionsView.ShowAutoFilterRow = True + Me.GridViewlUsers2Group.OptionsView.ShowGroupPanel = False + ' + 'colSelect + ' + resources.ApplyResources(Me.colSelect, "colSelect") + Me.colSelect.FieldName = "Select" + Me.colSelect.Name = "colSelect" + ' + 'GridColumn1 + ' + Me.GridColumn1.FieldName = "Username" + Me.GridColumn1.Name = "GridColumn1" + Me.GridColumn1.OptionsColumn.AllowEdit = False + resources.ApplyResources(Me.GridColumn1, "GridColumn1") + ' + 'GridColumn2 + ' + Me.GridColumn2.FieldName = "Email" + Me.GridColumn2.Name = "GridColumn2" + Me.GridColumn2.OptionsColumn.AllowEdit = False + resources.ApplyResources(Me.GridColumn2, "GridColumn2") + ' + 'colID + ' + Me.colID.FieldName = "ID" + Me.colID.Name = "colID" ' 'btndeleteUserfromGroup ' @@ -745,13 +887,6 @@ Partial Class frmUserKonfig resources.ApplyResources(Me.lblUserforGroup, "lblUserforGroup") Me.lblUserforGroup.Name = "lblUserforGroup" ' - 'chklbxUserForGroup - ' - resources.ApplyResources(Me.chklbxUserForGroup, "chklbxUserForGroup") - Me.chklbxUserForGroup.BackColor = System.Drawing.SystemColors.GradientActiveCaption - Me.chklbxUserForGroup.FormattingEnabled = True - Me.chklbxUserForGroup.Name = "chklbxUserForGroup" - ' 'btnaddSelectedUser2Group ' Me.btnaddSelectedUser2Group.Image = Global.DD_Record_Organiser.My.Resources.Resources.add1 @@ -764,13 +899,6 @@ Partial Class frmUserKonfig resources.ApplyResources(Me.Label4, "Label4") Me.Label4.Name = "Label4" ' - 'clbUsersGroups - ' - resources.ApplyResources(Me.clbUsersGroups, "clbUsersGroups") - Me.clbUsersGroups.BackColor = System.Drawing.SystemColors.GradientActiveCaption - Me.clbUsersGroups.FormattingEnabled = True - Me.clbUsersGroups.Name = "clbUsersGroups" - ' 'Label3 ' resources.ApplyResources(Me.Label3, "Label3") @@ -787,9 +915,9 @@ Partial Class frmUserKonfig ' 'TabGruppendefinition ' + Me.TabGruppendefinition.Controls.Add(Me.GridControl2) Me.TabGruppendefinition.Controls.Add(COMMENTLabel) Me.TabGruppendefinition.Controls.Add(Me.COMMENTTextBox) - Me.TabGruppendefinition.Controls.Add(Me.ListBox1) Me.TabGruppendefinition.Controls.Add(GUIDLabel1) Me.TabGruppendefinition.Controls.Add(Me.GUIDTextBox1) Me.TabGruppendefinition.Controls.Add(NAMELabel1) @@ -812,15 +940,6 @@ Partial Class frmUserKonfig resources.ApplyResources(Me.COMMENTTextBox, "COMMENTTextBox") Me.COMMENTTextBox.Name = "COMMENTTextBox" ' - 'ListBox1 - ' - Me.ListBox1.DataSource = Me.TBDD_USER_GROUPSBindingSource - Me.ListBox1.DisplayMember = "NAME" - Me.ListBox1.FormattingEnabled = True - resources.ApplyResources(Me.ListBox1, "ListBox1") - Me.ListBox1.Name = "ListBox1" - Me.ListBox1.ValueMember = "GUID" - ' 'GUIDTextBox1 ' Me.GUIDTextBox1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_USER_GROUPSBindingSource, "GUID", True)) @@ -1151,31 +1270,126 @@ Partial Class frmUserKonfig ' 'TabPage6 ' - Me.TabPage6.Controls.Add(Me.txtUserSearch5) - Me.TabPage6.Controls.Add(Me.txtUserSearch4) + resources.ApplyResources(Me.TabPage6, "TabPage6") + Me.TabPage6.Controls.Add(Me.GridControlUsersinClient) + Me.TabPage6.Controls.Add(Me.GridControlUser2Mandanten) Me.TabPage6.Controls.Add(Me.btndeleteUserfromClient) Me.TabPage6.Controls.Add(Me.lblUser2Client) - Me.TabPage6.Controls.Add(Me.chklbxUsersforClient) Me.TabPage6.Controls.Add(Me.btnsaddUser2Client) Me.TabPage6.Controls.Add(Me.Label16) - Me.TabPage6.Controls.Add(Me.chklbxUserClient) Me.TabPage6.Controls.Add(Me.Label17) Me.TabPage6.Controls.Add(Me.cmbClientsforUser) - resources.ApplyResources(Me.TabPage6, "TabPage6") Me.TabPage6.Name = "TabPage6" Me.TabPage6.UseVisualStyleBackColor = True ' - 'txtUserSearch5 + 'GridControlUsersinClient + ' + resources.ApplyResources(Me.GridControlUsersinClient, "GridControlUsersinClient") + Me.GridControlUsersinClient.DataSource = Me.TBWH_Users1BindingSource + Me.GridControlUsersinClient.MainView = Me.GridViewUsersinClient + Me.GridControlUsersinClient.Name = "GridControlUsersinClient" + Me.GridControlUsersinClient.ShowOnlyPredefinedDetails = True + Me.GridControlUsersinClient.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUsersinClient}) + ' + 'GridViewUsersinClient + ' + Me.GridViewUsersinClient.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewUsersinClient.Appearance.EvenRow.BackColor"), System.Drawing.Color) + Me.GridViewUsersinClient.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewUsersinClient.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridViewUsersinClient.Appearance.FocusedRow.BackColor"), System.Drawing.Color) + Me.GridViewUsersinClient.Appearance.FocusedRow.Options.UseBackColor = True + Me.GridViewUsersinClient.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn11, Me.GridColumn12, Me.GridColumn13, Me.GridColumn14}) + Me.GridViewUsersinClient.GridControl = Me.GridControlUsersinClient + Me.GridViewUsersinClient.Name = "GridViewUsersinClient" + Me.GridViewUsersinClient.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewUsersinClient.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewUsersinClient.OptionsBehavior.CopyToClipboardWithColumnHeaders = False + Me.GridViewUsersinClient.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewUsersinClient.OptionsView.ColumnAutoWidth = False + Me.GridViewUsersinClient.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewUsersinClient.OptionsView.ShowAutoFilterRow = True + Me.GridViewUsersinClient.OptionsView.ShowGroupPanel = False + ' + 'GridColumn11 + ' + resources.ApplyResources(Me.GridColumn11, "GridColumn11") + Me.GridColumn11.FieldName = "Select" + Me.GridColumn11.Name = "GridColumn11" + ' + 'GridColumn12 + ' + Me.GridColumn12.FieldName = "Username" + Me.GridColumn12.Name = "GridColumn12" + Me.GridColumn12.OptionsColumn.AllowEdit = False + resources.ApplyResources(Me.GridColumn12, "GridColumn12") + ' + 'GridColumn13 + ' + Me.GridColumn13.FieldName = "Email" + Me.GridColumn13.Name = "GridColumn13" + Me.GridColumn13.OptionsColumn.AllowEdit = False + resources.ApplyResources(Me.GridColumn13, "GridColumn13") + ' + 'GridColumn14 + ' + Me.GridColumn14.FieldName = "ID" + Me.GridColumn14.Name = "GridColumn14" ' - Me.txtUserSearch5.BackColor = System.Drawing.Color.SandyBrown - resources.ApplyResources(Me.txtUserSearch5, "txtUserSearch5") - Me.txtUserSearch5.Name = "txtUserSearch5" + 'GridControlUser2Mandanten ' - 'txtUserSearch4 + resources.ApplyResources(Me.GridControlUser2Mandanten, "GridControlUser2Mandanten") + Me.GridControlUser2Mandanten.DataSource = Me.TBWH_Users2BindingSource + Me.GridControlUser2Mandanten.MainView = Me.GridViewUser2Mandanten + Me.GridControlUser2Mandanten.Name = "GridControlUser2Mandanten" + Me.GridControlUser2Mandanten.ShowOnlyPredefinedDetails = True + Me.GridControlUser2Mandanten.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridViewUser2Mandanten}) ' - Me.txtUserSearch4.BackColor = System.Drawing.Color.SandyBrown - resources.ApplyResources(Me.txtUserSearch4, "txtUserSearch4") - Me.txtUserSearch4.Name = "txtUserSearch4" + 'TBWH_Users2BindingSource + ' + Me.TBWH_Users2BindingSource.DataMember = "TBWH_Users2" + Me.TBWH_Users2BindingSource.DataSource = Me.DD_ECMAdmin + ' + 'GridViewUser2Mandanten + ' + Me.GridViewUser2Mandanten.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridViewUser2Mandanten.Appearance.EvenRow.BackColor"), System.Drawing.Color) + Me.GridViewUser2Mandanten.Appearance.EvenRow.Options.UseBackColor = True + Me.GridViewUser2Mandanten.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridViewUser2Mandanten.Appearance.FocusedRow.BackColor"), System.Drawing.Color) + Me.GridViewUser2Mandanten.Appearance.FocusedRow.Options.UseBackColor = True + Me.GridViewUser2Mandanten.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.GridColumn7, Me.GridColumn8, Me.GridColumn9, Me.GridColumn10}) + Me.GridViewUser2Mandanten.GridControl = Me.GridControlUser2Mandanten + Me.GridViewUser2Mandanten.Name = "GridViewUser2Mandanten" + Me.GridViewUser2Mandanten.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewUser2Mandanten.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridViewUser2Mandanten.OptionsBehavior.CopyToClipboardWithColumnHeaders = False + Me.GridViewUser2Mandanten.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridViewUser2Mandanten.OptionsView.ColumnAutoWidth = False + Me.GridViewUser2Mandanten.OptionsView.EnableAppearanceEvenRow = True + Me.GridViewUser2Mandanten.OptionsView.ShowAutoFilterRow = True + Me.GridViewUser2Mandanten.OptionsView.ShowGroupPanel = False + ' + 'GridColumn7 + ' + resources.ApplyResources(Me.GridColumn7, "GridColumn7") + Me.GridColumn7.FieldName = "Select" + Me.GridColumn7.Name = "GridColumn7" + ' + 'GridColumn8 + ' + Me.GridColumn8.FieldName = "Username" + Me.GridColumn8.Name = "GridColumn8" + Me.GridColumn8.OptionsColumn.AllowEdit = False + resources.ApplyResources(Me.GridColumn8, "GridColumn8") + ' + 'GridColumn9 + ' + Me.GridColumn9.FieldName = "Email" + Me.GridColumn9.Name = "GridColumn9" + Me.GridColumn9.OptionsColumn.AllowEdit = False + resources.ApplyResources(Me.GridColumn9, "GridColumn9") + ' + 'GridColumn10 + ' + Me.GridColumn10.FieldName = "ID" + Me.GridColumn10.Name = "GridColumn10" ' 'btndeleteUserfromClient ' @@ -1189,13 +1403,6 @@ Partial Class frmUserKonfig resources.ApplyResources(Me.lblUser2Client, "lblUser2Client") Me.lblUser2Client.Name = "lblUser2Client" ' - 'chklbxUsersforClient - ' - resources.ApplyResources(Me.chklbxUsersforClient, "chklbxUsersforClient") - Me.chklbxUsersforClient.BackColor = System.Drawing.SystemColors.GradientActiveCaption - Me.chklbxUsersforClient.FormattingEnabled = True - Me.chklbxUsersforClient.Name = "chklbxUsersforClient" - ' 'btnsaddUser2Client ' Me.btnsaddUser2Client.Image = Global.DD_Record_Organiser.My.Resources.Resources.add1 @@ -1208,13 +1415,6 @@ Partial Class frmUserKonfig resources.ApplyResources(Me.Label16, "Label16") Me.Label16.Name = "Label16" ' - 'chklbxUserClient - ' - resources.ApplyResources(Me.chklbxUserClient, "chklbxUserClient") - Me.chklbxUserClient.BackColor = System.Drawing.SystemColors.GradientActiveCaption - Me.chklbxUserClient.FormattingEnabled = True - Me.chklbxUserClient.Name = "chklbxUserClient" - ' 'Label17 ' resources.ApplyResources(Me.Label17, "Label17") @@ -1323,6 +1523,40 @@ Partial Class frmUserKonfig Me.colEMAIL.FieldName = "EMAIL" Me.colEMAIL.Name = "colEMAIL" ' + 'GridControl2 + ' + resources.ApplyResources(Me.GridControl2, "GridControl2") + Me.GridControl2.DataSource = Me.TBDD_USER_GROUPSBindingSource + Me.GridControl2.MainView = Me.GridView2 + Me.GridControl2.Name = "GridControl2" + Me.GridControl2.ShowOnlyPredefinedDetails = True + Me.GridControl2.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) + ' + 'GridView2 + ' + Me.GridView2.Appearance.EvenRow.BackColor = CType(resources.GetObject("GridView2.Appearance.EvenRow.BackColor"), System.Drawing.Color) + Me.GridView2.Appearance.EvenRow.Options.UseBackColor = True + Me.GridView2.Appearance.FocusedRow.BackColor = CType(resources.GetObject("GridView2.Appearance.FocusedRow.BackColor"), System.Drawing.Color) + Me.GridView2.Appearance.FocusedRow.Options.UseBackColor = True + Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colNAME1}) + Me.GridView2.GridControl = Me.GridControl2 + Me.GridView2.Name = "GridView2" + Me.GridView2.OptionsBehavior.AllowAddRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridView2.OptionsBehavior.AllowDeleteRows = DevExpress.Utils.DefaultBoolean.[False] + Me.GridView2.OptionsBehavior.CopyToClipboardWithColumnHeaders = False + Me.GridView2.OptionsBehavior.Editable = False + Me.GridView2.OptionsSelection.EnableAppearanceFocusedCell = False + Me.GridView2.OptionsView.ColumnAutoWidth = False + Me.GridView2.OptionsView.EnableAppearanceEvenRow = True + Me.GridView2.OptionsView.ShowAutoFilterRow = True + Me.GridView2.OptionsView.ShowGroupPanel = False + ' + 'colNAME1 + ' + resources.ApplyResources(Me.colNAME1, "colNAME1") + Me.colNAME1.FieldName = "NAME" + Me.colNAME1.Name = "colNAME1" + ' 'frmUserKonfig ' resources.ApplyResources(Me, "$this") @@ -1376,6 +1610,13 @@ Partial Class frmUserKonfig CType(Me.TBDD_USER_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage2.ResumeLayout(False) Me.TabPage2.PerformLayout() + CType(Me.GridControlWH_Users1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBWH_Users1BindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.DD_ECMAdmin, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewWH_Users1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlUsers2Group, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBAD_UsersBindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewlUsers2Group, System.ComponentModel.ISupportInitialize).EndInit() Me.TabGruppendefinition.ResumeLayout(False) Me.TabGruppendefinition.PerformLayout() CType(Me.BindingNavigator1, System.ComponentModel.ISupportInitialize).EndInit() @@ -1391,14 +1632,21 @@ Partial Class frmUserKonfig CType(Me.TBDD_CLIENTBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.TabPage6.ResumeLayout(False) Me.TabPage6.PerformLayout() + CType(Me.GridControlUsersinClient, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewUsersinClient, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridControlUser2Mandanten, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.TBWH_Users2BindingSource, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridViewUser2Mandanten, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.VWPMO_USERS_GROUPSBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBDD_GROUPS_USERBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridControl1, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() - Me.ResumeLayout(False) - Me.PerformLayout() + CType(Me.GridControl2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(false) + Me.PerformLayout - End Sub +End Sub Friend WithEvents DD_DMSDataSet As DD_Record_Organiser.DD_DMSDataSet Friend WithEvents TBDD_USERBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBDD_USERTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_USERTableAdapter @@ -1465,7 +1713,6 @@ Partial Class frmUserKonfig Friend WithEvents ToolStripSeparator3 As System.Windows.Forms.ToolStripSeparator Friend WithEvents ToolStripButton7 As System.Windows.Forms.ToolStripButton Friend WithEvents ToolStripButton8 As System.Windows.Forms.ToolStripButton - Friend WithEvents ListBox1 As System.Windows.Forms.ListBox Friend WithEvents lblsave As System.Windows.Forms.Label Friend WithEvents LANGUAGEComboBox As System.Windows.Forms.ComboBox Friend WithEvents TBDD_GROUPS_USERBindingSource As System.Windows.Forms.BindingSource @@ -1475,14 +1722,12 @@ Partial Class frmUserKonfig Friend WithEvents TabPage2 As System.Windows.Forms.TabPage Friend WithEvents Label3 As System.Windows.Forms.Label Friend WithEvents cmbGroups_Group2User As System.Windows.Forms.ComboBox - Friend WithEvents clbUsersGroups As System.Windows.Forms.CheckedListBox Friend WithEvents Label4 As System.Windows.Forms.Label Friend WithEvents Label5 As System.Windows.Forms.Label Friend WithEvents lstbxUserMandant As System.Windows.Forms.ListBox Friend WithEvents btnaddSelectedUser2Group As System.Windows.Forms.Button Friend WithEvents btndeleteUserfromGroup As System.Windows.Forms.Button Friend WithEvents lblUserforGroup As System.Windows.Forms.Label - Friend WithEvents chklbxUserForGroup As System.Windows.Forms.CheckedListBox Friend WithEvents XtraTabPage2 As DevExpress.XtraTab.XtraTabPage Friend WithEvents TBDD_CLIENTBindingSource As System.Windows.Forms.BindingSource Friend WithEvents TBDD_CLIENTTableAdapter As DD_Record_Organiser.DD_DMSDataSetTableAdapters.TBDD_CLIENTTableAdapter @@ -1514,20 +1759,45 @@ Partial Class frmUserKonfig Friend WithEvents TabPage6 As System.Windows.Forms.TabPage Friend WithEvents btnsaddUser2Client As System.Windows.Forms.Button Friend WithEvents Label16 As System.Windows.Forms.Label - Friend WithEvents chklbxUserClient As System.Windows.Forms.CheckedListBox Friend WithEvents Label17 As System.Windows.Forms.Label Friend WithEvents cmbClientsforUser As System.Windows.Forms.ComboBox Friend WithEvents btndeleteUserfromClient As System.Windows.Forms.Button Friend WithEvents lblUser2Client As System.Windows.Forms.Label - Friend WithEvents chklbxUsersforClient As System.Windows.Forms.CheckedListBox Friend WithEvents ADDED_WHENTextBox2 As System.Windows.Forms.TextBox - Friend WithEvents txtUserSearch3 As System.Windows.Forms.TextBox - Friend WithEvents txtUserSearch2 As System.Windows.Forms.TextBox - Friend WithEvents txtUserSearch5 As System.Windows.Forms.TextBox - Friend WithEvents txtUserSearch4 As System.Windows.Forms.TextBox Friend WithEvents GridControl1 As DevExpress.XtraGrid.GridControl Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView Friend WithEvents colUSERNAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colNAME As DevExpress.XtraGrid.Columns.GridColumn Friend WithEvents colEMAIL As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridControlUsers2Group As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewlUsers2Group As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colSelect As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn1 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn2 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents DD_ECMAdmin As DD_Record_Organiser.DD_ECMAdmin + Friend WithEvents TBAD_UsersBindingSource As System.Windows.Forms.BindingSource + Friend WithEvents colID As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridControlWH_Users1 As DevExpress.XtraGrid.GridControl + Friend WithEvents TBWH_Users1BindingSource As System.Windows.Forms.BindingSource + Friend WithEvents GridViewWH_Users1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GridColumn3 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn4 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn5 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn6 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridControlUser2Mandanten As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewUser2Mandanten As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GridColumn7 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn8 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn9 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn10 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents TBWH_Users2BindingSource As System.Windows.Forms.BindingSource + Friend WithEvents GridControlUsersinClient As DevExpress.XtraGrid.GridControl + Friend WithEvents GridViewUsersinClient As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents GridColumn11 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn12 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn13 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridColumn14 As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents GridControl2 As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents colNAME1 As DevExpress.XtraGrid.Columns.GridColumn End Class diff --git a/app/DD-Record-Organiser/frmUserKonfig.resx b/app/DD-Record-Organiser/frmUserKonfig.resx index c58bb13..9a550e9 100644 --- a/app/DD-Record-Organiser/frmUserKonfig.resx +++ b/app/DD-Record-Organiser/frmUserKonfig.resx @@ -507,7 +507,7 @@ True - 135, 38 + 208, 41 22, 13 @@ -537,7 +537,7 @@ True - 200, 38 + 273, 41 72, 13 @@ -567,7 +567,7 @@ True - 135, 79 + 208, 82 65, 13 @@ -597,7 +597,7 @@ True - 304, 79 + 377, 82 73, 13 @@ -627,7 +627,7 @@ True - 135, 120 + 208, 123 77, 13 @@ -657,7 +657,7 @@ True - 304, 120 + 377, 123 85, 13 @@ -717,7 +717,7 @@ True - 487, 38 + 560, 41 65, 13 @@ -738,7 +738,7 @@ TabGruppendefinition - 0 + 1 False @@ -1556,21 +1556,6 @@ True - - True - - - 6, 13 - - - 109, 13 - - - 2 - - - Verfügbare Gruppen: - Label1 @@ -1583,21 +1568,6 @@ 0 - - MiddleLeft - - - 382, 37 - - - 321, 23 - - - 5 - - - Benutzer aus Gruppe entfernen - btnRemoveUserFromGroup @@ -1610,18 +1580,6 @@ 1 - - 929, 17 - - - 140, 10 - - - 236, 21 - - - 0 - cmbGroup @@ -1634,21 +1592,6 @@ 2 - - True - - - 6, 40 - - - 118, 13 - - - 4 - - - Zugewiesene Gruppen: - Label2 @@ -1661,21 +1604,6 @@ 3 - - MiddleLeft - - - 382, 8 - - - 321, 23 - - - 1 - - - Ausgewählten Benutzer zu Gruppe hinzufügen - btnAddUserToGroup @@ -1688,18 +1616,6 @@ 4 - - Top, Bottom, Left - - - 140, 40 - - - 236, 69 - - - 3 - lbGroups @@ -1719,7 +1635,7 @@ 3, 3, 3, 3 - 1077, 130 + 1081, 245 0 @@ -1739,52 +1655,136 @@ 0 - - Segoe UI, 8.25pt, style=Italic + + True + + + Top, Bottom, Left - - 229, 20 + + 17, 134 + + + 729, 95 + + + 667, 19 - - 192, 22 + + Cyan - - 38 + + Fuchsia - - txtUserSearch3 + + Selection - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True - + + 0 + + + 54 + + + True + + + 1 + + + 95 + + + True + + + 2 + + + 84 + + + 263, 221 + + + 88 + + + GridControlWH_Users1 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + TabPage2 - + 0 - - Segoe UI, 8.25pt, style=Italic + + Top, Bottom, Left - - 611, 19 + + 864, 95 + + + 229, 19 - - 192, 22 + + Cyan - - 37 + + Fuchsia - - txtUserSearch2 + + Selection - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True + + + 0 + + + 54 + + + True - + + 1 + + + 107 + + + True + + + 2 + + + 102 + + + 284, 221 + + + 87 + + + GridControlUsers2Group + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + TabPage2 - + 1 @@ -1794,10 +1794,10 @@ NoControl - 809, 19 + 936, 19 - 194, 23 + 135, 53 12 @@ -1827,7 +1827,7 @@ NoControl - 611, 3 + 664, 3 85, 13 @@ -1850,30 +1850,6 @@ 3 - - Top, Bottom, Left - - - 611, 47 - - - 192, 100 - - - 10 - - - chklbxUserForGroup - - - System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 4 - MiddleLeft @@ -1881,10 +1857,10 @@ NoControl - 427, 19 + 519, 19 - 178, 46 + 142, 46 9 @@ -1893,6 +1869,9 @@ Ausgewählte User zu Gruppe hinzufügen + + MiddleRight + btnaddSelectedUser2Group @@ -1903,7 +1882,7 @@ Gruppe hinzufügen TabPage2 - 5 + 4 True @@ -1933,31 +1912,7 @@ Gruppe hinzufügen TabPage2 - 6 - - - Top, Bottom, Left - - - 229, 47 - - - 192, 100 - - - 7 - - - clbUsersGroups - - - System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage2 - - - 7 + 5 True @@ -1987,7 +1942,7 @@ Gruppe hinzufügen TabPage2 - 8 + 6 10, 19 @@ -2008,7 +1963,7 @@ Gruppe hinzufügen TabPage2 - 9 + 7 4, 22 @@ -2017,7 +1972,7 @@ Gruppe hinzufügen 3, 3, 3, 3 - 1073, 127 + 1073, 245 1 @@ -2044,7 +1999,7 @@ Gruppe hinzufügen 0, 0 - 1085, 156 + 1081, 271 6 @@ -2062,7 +2017,7 @@ Gruppe hinzufügen 0 - 1085, 156 + 1081, 271 User-/Gruppenzuordnung @@ -2080,22 +2035,25 @@ Gruppe hinzufügen 0 - 1087, 181 + 1087, 299 30 - - 490, 54 + + 793, 56 + + + GridControl2 - - True + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - 302, 62 + + TabGruppendefinition - - 15 + + 0 COMMENTTextBox @@ -2107,36 +2065,6 @@ Gruppe hinzufügen TabGruppendefinition - 1 - - - 9, 38 - - - 120, 121 - - - 13 - - - ListBox1 - - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabGruppendefinition - - - 2 - - - 138, 54 - - - 54, 21 - - 2 @@ -2151,15 +2079,6 @@ Gruppe hinzufügen 4 - - 203, 54 - - - 278, 21 - - - 4 - NAMETextBox1 @@ -2172,15 +2091,6 @@ Gruppe hinzufügen 6 - - 138, 95 - - - 163, 21 - - - 6 - ADDED_WHOTextBox1 @@ -2193,15 +2103,6 @@ Gruppe hinzufügen 8 - - 307, 95 - - - 174, 21 - - - 8 - ADDED_WHENTextBox1 @@ -2214,15 +2115,6 @@ Gruppe hinzufügen 10 - - 138, 137 - - - 163, 21 - - - 10 - CHANGED_WHOTextBox1 @@ -2235,15 +2127,6 @@ Gruppe hinzufügen 12 - - 307, 137 - - - 174, 21 - - - 12 - CHANGED_WHENTextBox1 @@ -2256,194 +2139,6 @@ Gruppe hinzufügen 14 - - 793, 56 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC - pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ - Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ - /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA - zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ - IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E - rkJggg== - - - - True - - - 23, 22 - - - Neu hinzufügen - - - 35, 22 - - - of {0} - - - Die Gesamtanzahl der Elemente. - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC - DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC - rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV - i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG - 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG - QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX - bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Löschen - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 - wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 - v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg - UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA - Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu - lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Erste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w - 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f - Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ - 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC - - - - True - - - 23, 22 - - - Vorherige verschieben - - - 6, 25 - - - Position - - - False - - - 50, 23 - - - 0 - - - Aktuelle Position - - - 6, 25 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 - n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI - N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f - oAc0QjgAAAAASUVORK5CYII= - - - - True - - - 23, 22 - - - Nächste verschieben - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// - h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B - twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA - kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG - WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 - 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== - - - - True - - - 23, 22 - - - Letzte verschieben - - - 6, 25 - - - - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO - wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo - dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= - - - - 23, 22 - - - Daten speichern - - - Magenta - - - 23, 22 - - - ToolStripButton1 - - - 0, 0 - - - 1085, 25 - - - 1 - - - BindingNavigator1 - BindingNavigator1 @@ -2457,7 +2152,7 @@ Gruppe hinzufügen 15 - 1085, 156 + 1081, 271 Gruppendefinition @@ -2761,6 +2456,9 @@ Gruppe hinzufügen Top, Left, Right + + 171, 95 + 826, 37 @@ -2927,7 +2625,7 @@ Gruppe hinzufügen 3, 3, 3, 3 - 1073, 127 + 1073, 245 0 @@ -2947,52 +2645,130 @@ Gruppe hinzufügen 0 - - Segoe UI, 8.25pt, style=Italic + + True + + + Top, Bottom, Left - - 569, 22 + + 631, 17 - - 192, 22 + + Cyan - - 38 + + Fuchsia - - txtUserSearch5 + + Selection - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True + + + 0 - + + 54 + + + True + + + 1 + + + 107 + + + True + + + 2 + + + 102 + + + 284, 221 + + + 89 + + + GridControlUsersinClient + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + TabPage6 - + 0 - - Segoe UI, 8.25pt, style=Italic + + Top, Bottom, Left - - 187, 20 + + 223, 134 + + + 187, 19 - - 192, 22 + + Cyan - - 37 + + Fuchsia - - txtUserSearch4 + + Selection - - System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + True + + + 0 + + + 54 + + + True + + + 1 + + + 107 - + + True + + + 2 + + + 102 + + + 284, 221 + + + 88 + + + GridControlUser2Mandanten + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + TabPage6 - + 1 @@ -3002,10 +2778,10 @@ Gruppe hinzufügen NoControl - 767, 20 + 921, 17 - 194, 23 + 150, 46 17 @@ -3035,7 +2811,7 @@ Gruppe hinzufügen NoControl - 569, 4 + 628, 1 77, 13 @@ -3058,30 +2834,6 @@ Gruppe hinzufügen 3 - - Top, Bottom, Left - - - 569, 48 - - - 192, 68 - - - 15 - - - chklbxUsersforClient - - - System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 4 - MiddleLeft @@ -3089,17 +2841,20 @@ Gruppe hinzufügen NoControl - 385, 20 + 477, 17 - 178, 46 + 148, 46 14 Ausgewählte User zu -Gruppe hinzufügen +Mandant hinzufügen + + + MiddleRight btnsaddUser2Client @@ -3111,7 +2866,7 @@ Gruppe hinzufügen TabPage6 - 5 + 4 True @@ -3141,34 +2896,10 @@ Gruppe hinzufügen TabPage6 - 6 + 5 - - Top, Bottom, Left - - - 187, 48 - - - 192, 68 - - - 12 - - - chklbxUserClient - - - System.Windows.Forms.CheckedListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage6 - - - 7 - - - True + + True NoControl @@ -3195,109 +2926,621 @@ Gruppe hinzufügen TabPage6 + 6 + + + 7, 20 + + + 171, 21 + + + 10 + + + cmbClientsforUser + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage6 + + + 7 + + + 4, 22 + + + 3, 3, 3, 3 + + + 1073, 245 + + + 1 + + + User zu Mandant hinzufügen + + + TabPage6 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl3 + + + 1 + + + Fill + + + 0, 0 + + + 1081, 271 + + + 38 + + + TabControl3 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + XtraTabPage2 + + + 0 + + + 1081, 271 + + + Mandantendefinition + + + XtraTabPage2 + + + DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + XtraTabControl1 + + + 2 + + + XtraTabControl1 + + + DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + $this + + + 6 + + + True + + + 6, 13 + + + 109, 13 + + + 2 + + + Verfügbare Gruppen: + + + Label1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 0 + + + MiddleLeft + + + 382, 37 + + + 321, 23 + + + 5 + + + Benutzer aus Gruppe entfernen + + + btnRemoveUserFromGroup + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 1 + + + 929, 17 + + + 140, 10 + + + 236, 21 + + + 0 + + + cmbGroup + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 2 + + + 929, 17 + + + True + + + 6, 40 + + + 118, 13 + + + 4 + + + Zugewiesene Gruppen: + + + Label2 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 3 + + + MiddleLeft + + + 382, 8 + + + 321, 23 + + + 1 + + + Ausgewählten Benutzer zu Gruppe hinzufügen + + + btnAddUserToGroup + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 4 + + + Top, Bottom, Left + + + 140, 40 + + + 236, 186 + + + 3 + + + lbGroups + + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 5 + + + 729, 95 + + + 563, 57 + + + True + + + 302, 62 + + + 15 + + + COMMENTTextBox + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabGruppendefinition + + + 2 + + + 211, 57 + + + 54, 21 + + + 2 + + + GUIDTextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabGruppendefinition + + + 4 + + + 276, 57 + + + 278, 21 + + + 4 + + + NAMETextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabGruppendefinition + + + 6 + + + 211, 98 + + + 163, 21 + + + 6 + + + ADDED_WHOTextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabGruppendefinition + + 8 - - 7, 20 + + 380, 98 + + + 174, 21 + + + 8 + + + ADDED_WHENTextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabGruppendefinition + + + 10 + + + 211, 140 + + + 163, 21 + + + 10 + + + CHANGED_WHOTextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabGruppendefinition + + + 12 + + + 380, 140 + + + 174, 21 + + + 12 + + + CHANGED_WHENTextBox1 + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabGruppendefinition + + + 14 + + + 793, 56 + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAUpJREFUOE9jGLzg7gL2/7fmcf6/Oofr/8UZvP+hwsSD60CNfx41/v/zsOH/yckC + pBtwfjov3ICDPSKkG3B8kiBQc93/Pw+q/u9oFydswKWZPP/PTuX7fxKo8Ui/0P993SJAzeX//94r+r++ + Qeb/qhq5/0srFf/PL1X+P6tIFdPAU0B//nlYD9RUC8SV///cKwHivP9/72b+/3sn+f/f23H//92MAOKQ + /5NyNDENONQrDHbu3/ulQI0FQI3ZQI2pQI0J///digZqDPv/70bQ/3/X/f53peliGrCzXeL/lmap/+vA + zpX/v6RC8f/fWzFAjeH/p+Zp/J+QpfW/O0P3f3uq/v/mREPCYTIb6E+Qc//dCPjfk6FDWAM6APnz3w1/ + IPb735qsT7oB3em6YP+CcH2cEekGtCQZ/G+IN/xfE2v8vzLahHQD6AQYGAAkI9iedfyIaQAAAABJRU5E + rkJggg== + + + + True + + + 23, 22 + + + Neu hinzufügen + + + 35, 22 + + + of {0} + + + Die Gesamtanzahl der Elemente. + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAW9JREFUOE+1kE0ow2Ecx3dV3krt4oJaOSCTvIRkMqSxyITIzCQHDouEdnFwIOVC + DrhIDiQl5UTiNG/z2ppafy1S2gX/uDwfY6i1v7Hie3nqeb7fz+/7/FR/Ilwn0G0Exw4fV5GJlXlEZxXC + rIet9bAQvB5Ymgn2sLYAvSZEux7RUQFzE4qQt4bCXAYjPaHvnDoCkLpsRGMB2JqCTGLIijDlwqQ9bEMV + i9OIytR3EMNWcJ/BWH8A6j8/bOGFxwXNxYEvGbMQ9XnQ1/K78KfY3/VXzkMY0qFGG2H4RoLGQshJQNbG + 86CNhdrsX9a/uQZTPhQl4rMY4OLofbl3aX7I8uwPC7y/g1YdjyVJuEvT8e1tfwUYteHUxCCfHChDeHmG + QQvokjlOU+PbWA0x3pZnILVVI3uvQyHsbiLnqnGmRCF1NYD8pDhpRxOH7HQoAKZGkFKjceszQbpSrumX + bO+G80MFwKUTxgfgcO/b8D9IpXoFiiMDHIQm0skAAAAASUVORK5CYII= + + + + True + + + 23, 22 + + + Löschen + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASpJREFUOE9jGDygcNbz/00Lnv/PnPj4P1QIA4S3P8Apx5A789n/VUfe/8elKL77 + wf/ghmu4DciY8vT/wn0fsCqK73n4f+n+///9qy/gNiCh58n/aVveYyiKaL8P1pw56/9/r9ITuA2I7Hr0 + v3f1BxRFoa33wJpb1wFt7/z73yX/AG4DApsf/q+b/w6uKLjl7v9Fe///7wBqzpjz879d3c//9hnbcRvg + UXX/f/60NyiK7Ipv/0+f8/u/f9e3/zqF7/5bJKzHbYB96d3/2ZNfYyjSTzn/36ToxX+VrE//jSOX4TbA + Iu/O/9T+11gVGSSd+C+b9vW/bvA83AYYZt3+H9byEqci/dTL/zV8p+E2QCftxn+/6od4Fal4TMBtgFPu + lf8gBXgVDULAwAAA8HbAq6XlmnAAAAAASUVORK5CYII= + + + + True + + + 23, 22 + + + Erste verschieben + + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAALZJREFUOE9jGDogvP3BfyiTdBDf/eB/cMM18gyI73n4f+n+///9qy+QbkBE+32w + 5sxZ//97lZ4gzYDQ1ntgza3rgLZ3/v3vkn+AeAOCW+7+X7T3//8OoOaMOT//29X9/G+fsZ00F9gV3/6f + Puf3f/+ub/91Ct/9t0hYT3oY6Kec/29S9OK/Stan/8aRy0g3AAQMkk78l037+l83eB55BoCAfurl/xq+ + 08g3AARUPCZQZsBgBQwMANAUYJgEulBVAAAAAElFTkSuQmCC + - - 171, 21 + + True - - 10 + + 23, 22 - - cmbClientsforUser + + Vorherige verschieben - - System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 6, 25 - - TabPage6 + + Position - - 9 + + False - - 4, 22 + + 50, 23 - - 3, 3, 3, 3 + + 0 - - 1073, 127 + + Aktuelle Position - - 1 + + 6, 25 - - User zu Mandant hinzufügen + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAKNJREFUOE9jGHygcNbz/1AmeSB35rP/Cd33yDckY8rT//P2//6f0HWHPEMSep78 + n73v1//OrX//u5VeJt2QyK5H/6ds+/W/ZOnf/wnT//63yT1LmiGBzQ//t659D9ZsXPLlv3T0tf/GkcuI + N8Sj6v7/krnv4JoVXXpIc4F96d3/gS3PyNMMAhZ5d/7bFFwhTzMIGGbdJl8zCOik3SBf81AEDAwAoH5f + oAc0QjgAAAAASUVORK5CYII= + - - TabPage6 + + True - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 23, 22 - - TabControl3 + + Nächste verschieben - - 1 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAASxJREFUOE9jGFygcNbz/1AmBgDJNS14/j9z4mOcahhyZz77n9B9D6sCkNyqI+// + h7c/wG1AxpSn/+ft//0/oesOhiKQ3MJ9H/4HN1zDbUBCz5P/s/f9+t+59e9/t9LLKApBctO2vP/vX30B + twGRXY/+T9n263/J0r//E6b//W+TexauGCTXu/rDf6/SE7gNCGx++L917XuwZuOSL/+lo6/9N45cBtYA + kqub/+6/S/4B3AZ4VN3/XzL3HVyzoksPXDFILn/am//2GdtxG2Bfevd/YMszDM0gAJLLnvz6v0XCetwG + WOTd+W9TcAVDMwiA5FL7X8O9hBUYZt3GqhkEQHJhLS//6wbPw22ATtoNnJIgOb/qh/81fKfhNgAfcMq9 + 8l/FYwIYQ4UGBWBgAAC+0b+zuQxOnAAAAABJRU5ErkJggg== + - - Fill + + True - - 0, 0 + + 23, 22 - - 1085, 156 + + Letzte verschieben - - 38 + + 6, 25 - - TabControl3 + + + iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO + wwAADsMBx2+oZAAAAExJREFUOE9joAr49u3bf1IxVCsEgAWC58Dxh/cf4RhZDETHTNiHaQgpBoAwzBCo + dtINAGGiDUDGyGpoawAxeNSAQWkAORiqnRLAwAAA9EMMU8Daa3MAAAAASUVORK5CYII= + - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 23, 22 - - XtraTabPage2 + + Daten speichern - - 0 + + Magenta - - 1085, 156 + + 23, 22 - - Mandantendefinition + + ToolStripButton1 - - XtraTabPage2 + + 0, 0 - - DevExpress.XtraTab.XtraTabPage, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + 1081, 25 - - XtraTabControl1 + + 1 - - 2 + + BindingNavigator1 - - XtraTabControl1 + + BindingNavigator1 - - DevExpress.XtraTab.XtraTabControl, DevExpress.XtraEditors.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + System.Windows.Forms.BindingNavigator, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - $this + + TabGruppendefinition - - 6 + + 15 259, 56 @@ -3491,6 +3734,48 @@ Gruppe hinzufügen 0 + + Top, Bottom, Left + + + 4, 41 + + + Cyan + + + Fuchsia + + + Group Name + + + True + + + 0 + + + 170 + + + 193, 227 + + + 87 + + + GridControl2 + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + TabGruppendefinition + + + 0 + True @@ -3504,7 +3789,7 @@ Gruppe hinzufügen True - 1099, 475 + 1099, 593 Segoe UI, 8.25pt @@ -4051,6 +4336,84 @@ Gruppe hinzufügen System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + TBWH_Users1BindingSource + + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + DD_ECMAdmin + + + DD_Record_Organiser.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + + GridViewWH_Users1 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn3 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn4 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn5 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn6 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + TBAD_UsersBindingSource + + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GridViewlUsers2Group + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colSelect + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn1 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn2 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colID + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + ToolStripButton1 @@ -4213,6 +4576,72 @@ Gruppe hinzufügen System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + GridViewUsersinClient + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn11 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn12 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn13 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn14 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + TBWH_Users2BindingSource + + + System.Windows.Forms.BindingSource, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GridViewUser2Mandanten + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn7 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn8 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn9 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + GridColumn10 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + VWPMO_USERS_GROUPSBindingSource @@ -4267,6 +4696,18 @@ Gruppe hinzufügen DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + GridView2 + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + colNAME1 + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + frmUserKonfig diff --git a/app/DD-Record-Organiser/frmUserKonfig.vb b/app/DD-Record-Organiser/frmUserKonfig.vb index 3450057..add4640 100644 --- a/app/DD-Record-Organiser/frmUserKonfig.vb +++ b/app/DD-Record-Organiser/frmUserKonfig.vb @@ -278,6 +278,31 @@ End Function End Class + Sub Load_Selectable_Users_for_Groups() + Try + DD_ECMAdmin.TBAD_Users.Clear() + + Dim sql = String.Format("SELECT DISTINCT T.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T where T.GUID in (SELECT DISTINCT USER_ID FROM TBDD_CLIENT_USER WHERE CLIENT_ID IN ({0})) ORDER BY T.USERNAME", USER_CLIENTS_COMMA_SEPERATED) + Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) + For Each userrow As DataRow In DT.Rows + Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow + newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow + + newUserRow.Username = userrow.Item(1) + Try + newUserRow.Email = userrow.Item(2) + Catch ex As Exception + newUserRow.Email = "" + End Try + + newUserRow.ID = userrow.Item(0) + DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow) + 'clbUsersGroups.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)}) + Next + Catch ex As Exception + MsgBox("Error in Load_Selectable_Users_for_Groups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) + End Try + End Sub Private Sub TabControl1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl1.SelectedIndexChanged Select Case TabControl1.SelectedIndex Case 0 @@ -285,12 +310,8 @@ LoadGroupsForSelectedUser() Case 1 Load_Groups() - clbUsersGroups.Items.Clear() - Dim sql = String.Format("SELECT DISTINCT T.GUID, T.USERNAME FROM TBDD_USER T where T.GUID in (SELECT DISTINCT USER_ID FROM TBDD_CLIENT_USER WHERE CLIENT_ID IN ({0})) ORDER BY T.USERNAME", USER_CLIENTS_COMMA_SEPERATED) - Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) - For Each userrow As DataRow In DT.Rows - clbUsersGroups.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)}) - Next + Load_Selectable_Users_for_Groups() + Try cmbGroups_Group2User.SelectedIndex = 1 Catch ex As Exception @@ -301,17 +322,25 @@ End Sub Private Sub btnaddSelectedUser2Group_Click(sender As Object, e As EventArgs) Handles btnaddSelectedUser2Group.Click - For Each obj As Object In clbUsersGroups.CheckedItems - Dim item As MyListBoxItem = CType(obj, MyListBoxItem) - Dim sql = "select count(*) from TBDD_GROUPS_USER Where user_id = " & item.ExtraData & " AND GROUP_ID = " & cmbGroups_Group2User.SelectedValue - If ClassDatabase.Execute_Scalar(sql) = 0 Then - sql = String.Format("INSERT INTO TBDD_GROUPS_USER (USER_ID, GROUP_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", item.ExtraData, cmbGroups_Group2User.SelectedValue, Environment.UserName) - If ClassDatabase.Execute_non_Query(sql) = False Then - MsgBox(String.Format("Error in Adding User {0} to Group {1}", item.Text, cmbGroups_Group2User.Text), MsgBoxStyle.Critical) + For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows + If row.Item(0) = CBool(True) Then + Dim sql = "select count(*) from TBDD_GROUPS_USER Where user_id = " & row.Item(5) & " AND GROUP_ID = " & cmbGroups_Group2User.SelectedValue + If ClassDatabase.Execute_Scalar(sql) = 0 Then + sql = String.Format("INSERT INTO TBDD_GROUPS_USER (USER_ID, GROUP_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", row.Item(5), cmbGroups_Group2User.SelectedValue, Environment.UserName) + If ClassDatabase.Execute_non_Query(sql) = False Then + MsgBox(String.Format("Error in Adding User {0} to Group {1}", row.Item(1), cmbGroups_Group2User.Text), MsgBoxStyle.Critical) + End If End If End If - Next + For Each row As DataRow In DD_ECMAdmin.TBAD_Users.Rows + row.Item(0) = CBool(False) + Next + 'For Each obj As Object In clbUsersGroups.CheckedItems + ' Dim item As MyListBoxItem = CType(obj, MyListBoxItem) + + + 'Next LoadUserForGroups() End Sub Private Sub LoadUserForGroups() @@ -323,13 +352,26 @@ End Try If groupid Is Nothing Then Exit Sub If Not cmbGroups_Group2User.SelectedValue Is Nothing Then - Dim SQL As String = String.Format("SELECT T1.GUID, T.USERNAME FROM TBDD_USER T, TBDD_GROUPS_USER T1 WHERE T1.USER_ID = T.GUID AND T1.GROUP_ID = {0} ORDER BY T.USERNAME", cmbGroups_Group2User.SelectedValue) - lblUserforGroup.Text = "User for Group " & cmbGroups_Group2User.Text + Dim SQL As String = String.Format("SELECT T1.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T, TBDD_GROUPS_USER T1 WHERE T1.USER_ID = T.GUID AND T1.GROUP_ID = {0} ORDER BY T.USERNAME", cmbGroups_Group2User.SelectedValue) + lblUserforGroup.Text = "Users for Group " & cmbGroups_Group2User.Text Try Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL) - chklbxUserForGroup.Items.Clear() + DD_ECMAdmin.TBWH_Users1.Clear() + For Each row As DataRow In dt.Rows - chklbxUserForGroup.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)}) + Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row + newUserRow = DD_ECMAdmin.TBWH_Users1.NewTBWH_Users1Row + + newUserRow.Username = row.Item(1) + Try + newUserRow.Email = row.Item(2) + Catch ex As Exception + newUserRow.Email = "" + End Try + + newUserRow.ID = row.Item(0) + DD_ECMAdmin.TBWH_Users1.Rows.Add(newUserRow) + ' chklbxUserForGroup.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)}) Next Catch ex As Exception MsgBox("Error in LoadUserForGroups:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) @@ -343,15 +385,24 @@ End Sub Private Sub btndeleteUserfromGroup_Click(sender As Object, e As EventArgs) Handles btndeleteUserfromGroup.Click - For Each obj As Object In chklbxUserForGroup.CheckedItems - Dim item As MyListBoxItem = CType(obj, MyListBoxItem) - Dim sql - sql = String.Format("DELETE FROM TBDD_GROUPS_USER WHERE GUID = {0}", item.ExtraData) - If ClassDatabase.Execute_non_Query(sql, True) = False Then - MsgBox(String.Format("Error in deleting User {0} from Group", item.Text), MsgBoxStyle.Critical) + For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows + If row.Item(0) = CBool(True) Then + Dim sql + sql = String.Format("DELETE FROM TBDD_GROUPS_USER WHERE GUID = {0}", row.Item(5)) + If ClassDatabase.Execute_non_Query(sql, True) = False Then + MsgBox(String.Format("Error in deleting User {0} from Group", row.Item(1)), MsgBoxStyle.Critical) + End If End If Next + + 'For Each obj As Object In chklbxUserForGroup.CheckedItems + ' Dim item As MyListBoxItem = CType(obj, MyListBoxItem) + ' Dim sql + ' sql = String.Format("DELETE FROM TBDD_GROUPS_USER WHERE GUID = {0}", item.ExtraData) + + 'Next LoadUserForGroups() + Load_Selectable_Users_for_Groups() End Sub Private Sub ToolStripButton16_Click(sender As Object, e As EventArgs) Handles ToolStripButton24.Click @@ -367,14 +418,26 @@ Private Sub TabControl3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles TabControl3.SelectedIndexChanged Select Case TabControl3.SelectedIndex - Case 1 Try - chklbxUserClient.Items.Clear() - Dim sql = String.Format("SELECT T.GUID, T.USERNAME FROM TBDD_USER T where T.GUID in (SELECT DISTINCT USER_ID FROM TBDD_CLIENT_USER WHERE CLIENT_ID IN ({0})) ORDER BY T.USERNAME", USER_CLIENTS_COMMA_SEPERATED) + DD_ECMAdmin.TBWH_Users2.Clear() + + Dim sql = String.Format("SELECT T.GUID, T.USERNAME,T.EMAIL FROM TBDD_USER T where T.GUID in (SELECT DISTINCT USER_ID FROM TBDD_CLIENT_USER WHERE CLIENT_ID IN ({0})) ORDER BY T.USERNAME", USER_CLIENTS_COMMA_SEPERATED) Dim DT As DataTable = ClassDatabase.Return_Datatable(sql) For Each userrow As DataRow In DT.Rows - chklbxUserClient.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)}) + Dim newUserRow As DD_ECMAdmin.TBWH_Users2Row + newUserRow = DD_ECMAdmin.TBWH_Users2.NewTBWH_Users2Row + + newUserRow.Username = userrow.Item(1) + Try + newUserRow.Email = userrow.Item(2) + Catch ex As Exception + newUserRow.Email = "" + End Try + + newUserRow.ID = userrow.Item(0) + DD_ECMAdmin.TBWH_Users2.Rows.Add(newUserRow) + ' chklbxUserClient.Items.Add(New MyListBoxItem() With {.Text = userrow.Item(1), .ExtraData = userrow.Item(0)}) Next Catch ex As Exception MsgBox("Error in LoadUserForClients:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) @@ -388,16 +451,20 @@ End Sub Private Sub btnsaddUser2Client_Click(sender As Object, e As EventArgs) Handles btnsaddUser2Client.Click - For Each obj As Object In chklbxUserClient.CheckedItems - Dim item As MyListBoxItem = CType(obj, MyListBoxItem) - Dim sql = "select count(*) from TBDD_CLIENT_USER Where user_id = " & item.ExtraData & " AND CLIENT_ID = " & cmbClientsforUser.SelectedValue - If ClassDatabase.Execute_Scalar(sql) = 0 Then - sql = String.Format("INSERT INTO TBDD_CLIENT_USER (USER_ID, CLIENT_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", item.ExtraData, cmbClientsforUser.SelectedValue, Environment.UserName) - If ClassDatabase.Execute_non_Query(sql) = False Then - MsgBox(String.Format("Error in Adding User {0} to Client {1}", item.Text, cmbGroups_Group2User.Text), MsgBoxStyle.Critical) + For Each row As DataRow In DD_ECMAdmin.TBWH_Users2.Rows + If row.Item(0) = CBool(True) Then + Dim sql = "select count(*) from TBDD_CLIENT_USER Where user_id = " & row.Item(5) & " AND CLIENT_ID = " & cmbClientsforUser.SelectedValue + If ClassDatabase.Execute_Scalar(sql) = 0 Then + sql = String.Format("INSERT INTO TBDD_CLIENT_USER (USER_ID, CLIENT_ID, ADDED_WHO) VALUES ({0}, {1}, '{2}')", row.Item(5), cmbClientsforUser.SelectedValue, Environment.UserName) + If ClassDatabase.Execute_non_Query(sql) = False Then + MsgBox(String.Format("Error in Adding User {0} to Client {1}", row.Item(1), cmbGroups_Group2User.Text), MsgBoxStyle.Critical) + End If End If End If Next + For Each row As DataRow In DD_ECMAdmin.TBWH_Users2.Rows + row.Item(0) = CBool(False) + Next LoadUserForClient() End Sub Private Sub LoadUserForClient() @@ -409,13 +476,26 @@ End Try If clientid Is Nothing Then Exit Sub If Not cmbClientsforUser.SelectedValue Is Nothing Then + + lblUser2Client.Text = "User for Client " & cmbClientsforUser.Text - Dim SQL As String = String.Format("SELECT T1.GUID, T.USERNAME FROM TBDD_USER T, TBDD_CLIENT_USER T1 WHERE T1.USER_ID = T.GUID AND T1.CLIENT_ID = {0} ORDER BY T.USERNAME", cmbClientsforUser.SelectedValue) + Dim SQL As String = String.Format("SELECT T1.GUID, T.USERNAME, T.EMAIL FROM TBDD_USER T, TBDD_CLIENT_USER T1 WHERE T1.USER_ID = T.GUID AND T1.CLIENT_ID = {0} ORDER BY T.USERNAME", cmbClientsforUser.SelectedValue) Try Dim dt As DataTable = ClassDatabase.Return_Datatable(SQL) - chklbxUsersforClient.Items.Clear() + DD_ECMAdmin.TBWH_Users1.Clear() For Each row As DataRow In dt.Rows - chklbxUsersforClient.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)}) + Dim newUserRow As DD_ECMAdmin.TBWH_Users1Row + newUserRow = DD_ECMAdmin.TBWH_Users1.NewTBWH_Users1Row + newUserRow.Username = row.Item(1) + Try + newUserRow.Email = row.Item(2) + Catch ex As Exception + newUserRow.Email = "" + End Try + + newUserRow.ID = row.Item(0) + DD_ECMAdmin.TBWH_Users1.Rows.Add(newUserRow) + ' chklbxUsersforClient.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)}) Next Catch ex As Exception MsgBox("Error in LoadUserForClient:" & vbNewLine & ex.Message, MsgBoxStyle.Critical) @@ -429,47 +509,44 @@ End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btndeleteUserfromClient.Click - For Each obj As Object In chklbxUsersforClient.CheckedItems - Dim item As MyListBoxItem = CType(obj, MyListBoxItem) - Dim sql - sql = String.Format("DELETE FROM TBDD_CLIENT_USER WHERE GUID = {0}", item.ExtraData) - If ClassDatabase.Execute_non_Query(sql, True) = False Then - MsgBox(String.Format("Error in deleting User {0} from Client", item.Text), MsgBoxStyle.Critical) + For Each row As DataRow In DD_ECMAdmin.TBWH_Users1.Rows + If row.Item(0) = CBool(True) Then + Dim sql + sql = String.Format("DELETE FROM TBDD_CLIENT_USER WHERE GUID = {0}", row.Item(5)) + If ClassDatabase.Execute_non_Query(sql, True) = False Then + MsgBox(String.Format("Error in deleting User {0} from Client", row.Item(1)), MsgBoxStyle.Critical) + End If End If Next - LoadUserForClient() - End Sub - Private Sub txtUserSearch2_TextChanged(sender As Object, e As EventArgs) Handles txtUserSearch2.TextChanged - Dim i As Integer = chklbxUserForGroup.FindString(txtUserSearch2.Text) - chklbxUserForGroup.SelectedIndex = i - If txtUserSearch2.Text = "" Then - chklbxUserForGroup.SelectedIndex = -1 - End If - End Sub + 'For Each obj As Object In chklbxUsersforClient.CheckedItems + ' Dim item As MyListBoxItem = CType(obj, MyListBoxItem) - Private Sub txtUserSearch3_TextChanged(sender As Object, e As EventArgs) Handles txtUserSearch3.TextChanged - Dim i As Integer = clbUsersGroups.FindString(txtUserSearch3.Text) - clbUsersGroups.SelectedIndex = i - If txtUserSearch3.Text = "" Then - clbUsersGroups.SelectedIndex = -1 - End If - End Sub - - Private Sub txtUserSearch4_TextChanged(sender As Object, e As EventArgs) Handles txtUserSearch4.TextChanged - Dim i As Integer = chklbxUserClient.FindString(txtUserSearch4.Text) - chklbxUserClient.SelectedIndex = i - If txtUserSearch2.Text = "" Then - chklbxUserClient.SelectedIndex = -1 - End If - End Sub - - Private Sub txtUserSearch5_TextChanged(sender As Object, e As EventArgs) Handles txtUserSearch5.TextChanged - Dim i As Integer = chklbxUsersforClient.FindString(txtUserSearch5.Text) - chklbxUsersforClient.SelectedIndex = i - If txtUserSearch2.Text = "" Then - chklbxUsersforClient.SelectedIndex = -1 - End If + 'Next + LoadUserForClient() End Sub + 'Private Sub txtUserSearch2_TextChanged(sender As Object, e As EventArgs) + ' Dim i As Integer = chklbxUserForGroup.FindString(txtUserSearch2.Text) + ' chklbxUserForGroup.SelectedIndex = i + ' If txtUserSearch2.Text = "" Then + ' chklbxUserForGroup.SelectedIndex = -1 + ' End If + 'End Sub + + 'Private Sub txtUserSearch3_TextChanged(sender As Object, e As EventArgs) + ' Dim i As Integer = clbUsersGroups.FindString(txtUserSearch3.Text) + ' clbUsersGroups.SelectedIndex = i + ' If txtUserSearch3.Text = "" Then + ' clbUsersGroups.SelectedIndex = -1 + ' End If + 'End Sub + + 'Private Sub txtUserSearch5_TextChanged(sender As Object, e As EventArgs) + ' Dim i As Integer = chklbxUsersforClient.FindString(txtUserSearch5.Text) + ' chklbxUsersforClient.SelectedIndex = i + ' 'If txtUserSearch2.Text = "" Then + ' ' chklbxUsersforClient.SelectedIndex = -1 + ' 'End If + 'End Sub Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click Dim msg = "Sind Sie sicher, dass Sie diesen User löschen wollen?" diff --git a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.en-US.resx b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.en-US.resx index f06f6ea..7ac4e40 100644 --- a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.en-US.resx +++ b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.en-US.resx @@ -117,29 +117,6 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - Default - - - Default - - - Default - - - - - - - - - - None - - - Default - 103, 22 @@ -147,132 +124,9 @@ Available Groups: - - - - - - - - None - - - - - - - - - None - - - Default - - - - - - - - - - Default - - - Top, Left - - - - - - Tile - - - Inherit - - - 0, 0 - - - - Center - - - - - - None - - - - - - - 0 - - - Regular - - - Horizontal - - - - - - 0 - - - Regular - - - Horizontal - - - - Selection - - Default - - - Default - - - - - - - - - None - - - Default - - - - - - - - - None - - - - - - - - - None - - - Default - 94, 22 @@ -321,72 +175,19 @@ Select none - - - - - - - - None - - - Default - + NoControl Cancel - - - - - - - - None - - - Default - NoControl Add User - - - - - - - - None - - - - - - - - - None - - - - - - - - - None - - - Default - AAABAAYAMDAAAAEACACoDgAAZgAAACAgAAABAAgAqAgAAA4PAAAQEAAAAQAIAGgFAAC2FwAAMDAAAAEA @@ -766,13 +567,4 @@ L/8AADf/AABG/wAATf8AAEn/AABa/wAA6P8AAP//AAD4/wAAzv8AAav/AAOs/w== - - - - - - - - None - \ No newline at end of file diff --git a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.resx b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.resx index cc8160a..c40f170 100644 --- a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.resx +++ b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.resx @@ -117,8 +117,8 @@ System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + @@ -127,9 +127,8 @@ 297, 529 - - - Default + + Verfügbare Gruppen: @@ -145,6 +144,7 @@ Basic Method + Default @@ -160,12 +160,9 @@ System.Windows.Forms.ToolStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - + - - 18, 21 - SplitContainer1.Panel2 @@ -175,10 +172,6 @@ 3 - - - - SplitContainer1.Panel2 @@ -212,8 +205,8 @@ - - 545, 25 + + 0, 0 @@ -242,6 +235,9 @@ True + + SplitContainer1.Panel2 + ToolStrip1 @@ -643,6 +639,7 @@ L/8AADf/AABG/wAATf8AAEn/AABa/wAA6P8AAP//AAD4/wAAzv8AAav/AAOs/w== + Bottom, Left @@ -658,14 +655,14 @@ UserPrincipal-Method - - - 86 - - Fill + + 2 + + + None @@ -673,6 +670,9 @@ Horizontal + + Hinzufügen + Default @@ -682,14 +682,14 @@ None + + $this + 8 - - None - - - System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a 305, 25 @@ -703,9 +703,6 @@ System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - SplitContainer1.Panel1 @@ -727,8 +724,8 @@ 137, 17 - - 0, 0 + + Segoe UI, 9pt, style=Bold 0, 0 @@ -757,11 +754,8 @@ frmUserKonfig_AddUsers - - $this - - - + + None DD_Record_Organiser.DD_ECMAdmin, DD_ECMAdmin.Designer.vb, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null @@ -769,8 +763,8 @@ MiddleLeft - - Top, Bottom, Left, Right + + 95, 17 @@ -781,9 +775,6 @@ 1 - - SplitContainer1 - iVBORw0KGgoAAAANSUhEUgAAABAAAAAQCAYAAAAf8/9hAAAABGdBTUEAALGPC/xhBQAAAAlwSFlzAAAO @@ -799,8 +790,8 @@ AElFTkSuQmCC - - True + + System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 Default @@ -808,17 +799,17 @@ Default - - Tile + + None - - System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + Default 0 - - None + + 0 @@ -841,8 +832,11 @@ SplitContainer1 - - colPrename + + colEmail + + + 1 2 @@ -862,12 +856,6 @@ SplitContainer1.Panel2 - - - - - colEmail - 0 @@ -877,6 +865,12 @@ ToolTipController1 + + Default + + + 104, 22 + @@ -886,11 +880,8 @@ SplitContainer1 - - None - - - None + + @@ -907,14 +898,17 @@ AElFTkSuQmCC - - DevExpress.Utils.ToolTipController, DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + + + System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 colUsername - - Top, Left + + 0 @@ -931,17 +925,17 @@ + + System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + GroupBox1 - - True - 4 - - Segoe UI, 9pt, style=Bold + + Alle auswählen @@ -952,20 +946,17 @@ RBCheck2 - - 1 - - - None + + 18, 21 SplitContainer1.Panel2 - - 0, 25 + + Tile - - DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + System.Windows.Forms.ToolStripLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 True @@ -976,14 +967,17 @@ Verfügbare Benutzer: + + SplitContainer1.Panel1 + Default - - 1 + + DevExpress.Utils.ToolTipController, DevExpress.Utils.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - btnAddUsers + + Top, Left Abbrechen @@ -994,20 +988,11 @@ Default - - System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - - - - System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - 104, 22 + + True - - TBAD_UsersBindingSource + + None @@ -1015,20 +1000,20 @@ Horizontal - - Verfügbare Gruppen: + + System.Windows.Forms.Form, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - + + 125, 22 - - Nichts auswählen + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 100, 26 - - + + 545, 25 @@ -1036,21 +1021,18 @@ None - - 3, 518 + + Default DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a - - System.Windows.Forms.ListBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + 3, 518 1 - - - MiddleLeft @@ -1063,9 +1045,6 @@ 0, 25 - - - Bottom, Left @@ -1078,14 +1057,17 @@ Regular - - Hinzufügen + + SplitContainer1 Default - - System.Windows.Forms.SplitterPanel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + Top, Bottom, Left, Right colSurname @@ -1093,9 +1075,15 @@ None + + Fill + ToolStrip2 + + 1 + @@ -1111,11 +1099,17 @@ System.Windows.Forms.ToolStripButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - 2 + + None - - SplitContainer1.Panel1 + + True + + + DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + btnAddUsers Default @@ -1123,11 +1117,11 @@ 854, 595 - - 125, 22 + + - - SplitContainer1.Panel2 + + TBAD_UsersBindingSource 185, 70 @@ -1135,38 +1129,44 @@ None - - Default - Default 2 - - 1 + + 0, 25 + + Nichts auswählen + None 297, 562 + + + SplitContainer1.Panel2 + + colPrename + 100, 27 None - - Default + + 0, 0 @@ -1201,8 +1201,8 @@ 0, 0 - - + + 1 DevExpress.XtraGrid.Columns.GridColumn, DevExpress.XtraGrid.v15.1, Version=15.1.7.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a @@ -1210,21 +1210,18 @@ 17, 17 - - True - - - en-US - 124, 17 - - 231, 17 + + True 519, 17 + + 231, 17 + 384, 17 diff --git a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb index 6c1db77..2df25c2 100644 --- a/app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb +++ b/app/DD-Record-Organiser/frmUserKonfig_AddUsers.vb @@ -86,18 +86,22 @@ Public Class frmUserKonfig_AddUsers For Each user In users Dim newUserRow As DD_ECMAdmin.TBAD_UsersRow newUserRow = DD_ECMAdmin.TBAD_Users.NewTBAD_UsersRow - newUserRow.Username = user.ToString Try Dim userldap As UserPrincipal = user Dim PRENAME As String = userldap.GivenName Dim NAME As String = userldap.Surname Dim USERNAME As String = userldap.SamAccountName + Try + newUserRow.Username = userldap.SamAccountName + Catch ex As Exception + newUserRow.Username = user.ToString + End Try Dim email As String = userldap.EmailAddress newUserRow.Prename = PRENAME newUserRow.Surname = NAME newUserRow.Email = email Catch ex As Exception - + ClassLogger.Add("Unexpected Error in Read User LDAP-Configurations: " & vbNewLine) End Try DD_ECMAdmin.TBAD_Users.Rows.Add(newUserRow) Next